Insider 3000 - Forums
Insider 3000 - Forums
Home | Profile | Active Topics | Members | Search | FAQ
 All Forums
 Help
 Aiuti, consigli, dubbi ...
 SAR

Note: You must be registered in order to post a reply.

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert Email Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

   
   

T O P I C    R E V I E W
luca71-4 Posted - 05 June 2003 : 18:02:27
Salve sono un nuovo utente e vorrei chiedere un aiuto per realizzare un semplice TS basato sul Parabolic SAR premetto non ho ancora capito il linguaggio di prog.ne e mi sembra essere +tosto semplice come esempio per imparare a capire con il vostro aiuto.
option : .........
long se : SAR inferiore al valore titolo
shorth se : SAR maggiore del valore titolo

GRAZIE.

15   L A T E S T    R E P L I E S    (Newest First)
luca71-4 Posted - 22 July 2003 : 21:10:22
Non capisco con lo stop % continua a darmi gli stessi risultati a qualunque livello lo taro 1% 10% ? uguale , sembra che esca sempre al prezzo di chiusura io vorrei uscisse al prezzo indicato o nel caso non sia possibile xche l'apertura ? gia sotto tale livello vorrei uscisse all'apertura !!!!!
AIUTOooooo

luca71-4 Posted - 04 July 2003 : 16:37:27
Scusami ancora ma non rieco a risolvere il problema dello stop
E in oltre come ti dicevo nella mail il SAR funziona solo da conferma ma non da stop lo stop viene dato solo dalle mm

SupportoTecnico Posted - 04 July 2003 : 15:06:25
Abbiamo aggiunto questa riga:

dExitPrice = Close

alle funzione di "Chiudi acquisto e chiusi vendita" e corretto il nome di una variabile.

Quindi copia e incolla il codice qui sotto nel tuo trading system.

La riga aggiunta (dExitPrice = Close) ? a tua discrezione, nel senso che noi l'abbiamo eguagliata a Close ma tu puoi decidere cosa ? meglio per te.




Sezione "Opzioni Comuni" aggiungi le due dichiarazioni qui sotto:

Dim pdPriceLong As Numeric
Dim pdPriceShort As Numeric



Sezione "Entra in Acquisto":

Function Main()
If MoveAv(Close, 3, "S") > MoveAv(Close, 13, "S") Then
pdPriceLong = Close
Price Close
Return Sar(OptInc, OptMaxInc) < Low
Else
Return False
Endif
EndFunction


Sezione "Chiudi posizioni in acquisto":

Function Main()
Dim bRes As Boolean
Dim dExitPrice As Numeric

bRes = (MoveAv(Close, 3, "S") < MoveAv(Close, 13, "S"))
dExitPrice = Close
If bRes = False Then
dExitPrice = pdPriceLong - pdPriceLong * 0.04
bRes = (Close <= dExitPrice)
Endif
If bRes = False Then
dExitPrice = pdPriceLong - 100
bRes = (Close <= dExitPrice)
endif

Price dExitPrice
Return bRes

EndFunction


Sezione "Entra in Vendita":

Function Main()
If MoveAv(Close, 3, "S") < MoveAv(Close, 13, "S") Then
pdPriceShort = Close
Price Close
Return Sar(OptInc, OptMaxInc) > High
Else
Return False
Endif
EndFunction


Sezione "Chiudi posizioni in vendita":

Function Main()
Dim bRes As Boolean
Dim dExitPrice As Numeric

bRes = (MoveAv(Close, 3, "S") > MoveAv(Close, 13, "S"))
dExitPrice = Close
If bRes = False Then
dExitPrice = pdPriceShort + pdPriceShort * 0.04
bRes = (Close >= dExitPrice)
Endif
If bRes = False Then
dExitPrice = pdPriceShort + 100
bRes = (Close >= dExitPrice)
endif

Price dExitPrice
Return bRes

EndFunction


luca71-4 Posted - 04 July 2003 : 13:36:55
No peccato cosi non funziona nulla calcola il risultato di poche operazioni del resto indica il prezzo di entrata e 0 prezzo uscita non capisco.

SupportoTecnico Posted - 04 July 2003 : 02:07:03
Si ? vero. Era sbagliato il tipo della variabile dichiarata (era stata dichiarata Boolean anzich? Numeric). Ma per questi errori non dovresti avere problemi a cavartela da solo.

Comunque:



Sezione "Opzioni Comuni" aggiungi le due dichiarazioni qui sotto:

Dim pdPriceLong As Numeric
Dim pdPriceShort As Numeric


Sezione "Entra in Acquisto":

Function Main()
If MoveAv(Close, 3, "S") > MoveAv(Close, 13, "S") Then
pdPriceLong = Close
Price Close
Return Sar(OptInc, OptMaxInc) < Low
Else
Return False
Endif
EndFunction


Sezione "Chiudi posizioni in acquisto":

Function Main()
Dim bRes As Boolean
Dim dExitPrice As Numeric

bRes = (MoveAv(Close, 3, "S") < MoveAv(Close, 13, "S"))
If bRes = False Then
dExitPrice = pdPriceLong - pdPriceLong * 0.04
bRes = (Close <= dExitPrice)
Endif
If bRes = False Then
dExitPrice = pdPriceShort - 100
bRes = (Close <= dExitPrice)
endif

Price dExitPrice
Return bRes

EndFunction


Sezione "Entra in Vendita":

Function Main()
If MoveAv(Close, 3, "S") < MoveAv(Close, 13, "S") Then
pdPriceShort = Close
Price Close
Return Sar(OptInc, OptMaxInc) > High
Else
Return False
Endif
EndFunction


Sezione "Chiudi posizioni in vendita":

Function Main()
Dim bRes As Boolean
Dim dExitPrice As Numeric

bRes = (MoveAv(Close, 3, "S") > MoveAv(Close, 13, "S"))
If bRes = False Then
dExitPrice = pdPriceShort + pdPriceShort * 0.04
bRes = (Close >= dExitPrice)
Endif
If bRes = False Then
dExitPrice = pdPriceShort + 100
bRes = (Close >= dExitPrice)
endif

Price dExitPrice
Return bRes

EndFunction




luca71-4 Posted - 03 July 2003 : 23:42:20
Spiacente ma non mia prende la stringa
dExitPrice = pdPriceShort + 100
anche la lostop long inteso.

SupportoTecnico Posted - 03 July 2003 : 18:20:10
Sempre utilizzando la parola chiave "Price" seguita da un'espressione il cui risultato ? il prezzo di entrata o di uscita a seconda della funzione in cui ci si trova.

Ad esempio la riga:

Price Close - 100

inserita nella funzione main di "Entra in acquisto" dice ad Insider 3000 di entrare long ad unprezzo pari alla chiusura meno 100 punti.

Quindi guardati l'esempio poco pi? in su dove si parlava degli stopo loss. Definisci in "Entra in acquisto" il prezzio di entrata. Memorizzalo poi in una variabile comune a tutti i moduli. Infine usa questa variabile nella funzione "Chiudi posizioni in acquisto" abbinata alla parola chiave "Price" per dire ad insider a che prezzo uscire.

Ovviamente il tutto ? subordinato ad una condizione di uscita. Che deve essere precisa.

Vediamo come potrebbe diventare l'esempio di qualche post fa :



Sezione "Opzioni Comuni" aggiungi le due dichiarazioni qui sotto:

Dim pdPriceLong As Numeric
Dim pdPriceShort As Numeric


Sezione "Entra in Acquisto":

Function Main()
If MoveAv(Close, 3, "S") > MoveAv(Close, 13, "S") Then
pdPriceLong = Close
Price Close
Return Sar(OptInc, OptMaxInc) < Low
Else
Return False
Endif
EndFunction


Sezione "Chiudi posizioni in acquisto":

Function Main()
Dim bRes As Boolean
Dim dExitPrice As Boolean

bRes = (MoveAv(Close, 3, "S") < MoveAv(Close, 13, "S"))
If bRes = False Then
dExitPrice = pdPriceLong - pdPriceLong * 0.04
bRes = (Close <= dExitPrice)
Endif
If bRes = False Then
dExitPrice = pdPriceShort - 100
bRes = (Close <= dExitPrice)
endif

Price dExitPrice
Return bRes

EndFunction


Sezione "Entra in Vendita":

Function Main()
If MoveAv(Close, 3, "S") < MoveAv(Close, 13, "S") Then
pdPriceShort = Close
Price Close
Return Sar(OptInc, OptMaxInc) > High
Else
Return False
Endif
EndFunction


Sezione "Chiudi posizioni in vendita":

Function Main()
Dim bRes As Boolean
Dim dExitPrice As Boolean

bRes = (MoveAv(Close, 3, "S") > MoveAv(Close, 13, "S"))
If bRes = False Then
dExitPrice = pdPriceShort + pdPriceShort * 0.04
bRes = (Close >= dExitPrice)
Endif
If bRes = False Then
dExitPrice = pdPriceShort + 100
bRes = (Close >= dExitPrice)
endif

Price dExitPrice
Return bRes

EndFunction








luca71-4 Posted - 03 July 2003 : 17:48:29
Come posso modificare lo stop loos da stop alla chiusura a stop al prezzo di entrata + x punti senza aspettare la chiusura e aspetta un segnale inverso ?
Grazie

SupportoTecnico Posted - 30 June 2003 : 15:55:12
Con la funzione di "Importazione guidata da file di testo" alla quale accedi dal men? "File" => "Gestione file dati" => "Importazione guidata da file di testo"

luca71-4 Posted - 30 June 2003 : 15:21:11
ok GRAZIE RISOLTO

Sul sito investire in borsa dal quale ho scaticato lo storico fib30 5 min fino al 04/2003
ora ho scaricato lo storico del mese di maggio a1min , esiste il modo di accodarlo allo storico a 5min ?
Grazie

SupportoTecnico Posted - 30 June 2003 : 12:08:55
Sei sicuro di non aver impostato nelle opzioni di test (nella tabella "Opzioni" della finestra di gestione trading systems), il valore della Propriet? "Ritardo di entrata" ad un valore maggiore di zero?

luca71-4 Posted - 30 June 2003 : 11:59:38
C'? qalcosa che non va , con il SAR e le MM il TS entra non alla chiusura della candella che porta allincrocio delle mm3 sotto alla mm13 e viceversa , ma alla chiusura della candela sucessiva bisognerebbe riuscire ad entrare almeno all'apertura , c'? modo di risolvere il problema?
Grazie


SupportoTecnico Posted - 28 June 2003 : 13:26:37
Per lo stop loss devi usare una variabile comune a tutti i moduli dove memorizzare il prezzo di ingresso. Ovviamente devi eguagliarlo al vero prezzo di entrata. Nei trading system puoi usare il comando Price per ordinare al trading system di entrare o uscire al prezzo che vuoi tu. Se omesso il trading system si baser? su quello che hai definito nelle Opzioni di test.
Supponiamo che tu voglia entrare sempre al prezzo di chiusura:


Sezione "Opzioni Comuni" aggiungi le due dichiarazioni qui sotto:

Dim pdPriceLong As Numeric
Dim pdPriceShort As Numeric


Sezione "Entra in Acquisto":

Function Main()
If MoveAv(Close, 3, "S") > MoveAv(Close, 13, "S") Then
pdPriceLong = Close
Price Close
Return Sar(OptInc, OptMaxInc) < Low
Else
Return False
Endif
EndFunction


Sezione "Chiudi posizioni in acquisto":

Function Main()
Dim bRes As Boolean

bRes = (MoveAv(Close, 3, "S") < MoveAv(Close, 13, "S"))
If bRes = False Then
bRes = (Close <= pdPriceLong - pdPriceLong * 0.04)
Endif
If bRes = False Then
bRes = (Close <= pdPriceShort - 100)
endif

Return bRes

EndFunction



Sezione "Entra in Vendita":

Function Main()
If MoveAv(Close, 3, "S") < MoveAv(Close, 13, "S") Then
pdPriceShort = Close
Price Close
Return Sar(OptInc, OptMaxInc) > High
Else
Return False
Endif
EndFunction


Sezione "Chiudi posizioni in vendita":

Function Main()
Dim bRes As Boolean

bRes = (MoveAv(Close, 3, "S") > MoveAv(Close, 13, "S"))
If bRes = False Then
bRes = (Close >= pdPriceShort + pdPriceShort * 0.04)
Endif
If bRes = False Then
bRes = (Close >= pdPriceShort + 100)
endif

Return bRes

EndFunction


luca71-4 Posted - 28 June 2003 : 12:10:55
riguardo la visualizzazione delle mm. risolto

luca71-4 Posted - 28 June 2003 : 09:32:21
Ok grazie funziona ha migliorato di molto il solo SAR ora mi manca come fare a visualizzare su Insider3000 le 2mm. visto che nella lista indicatori non trovo le mm. e in oltre vorrei provare ad aggiungere uno stop loss del 4% sul prezzo d'acquisto o 100 punti
E possibile dirgli di operare solo in intradei senza andare over.?
Grazie



Insider 3000 - Forums © Copyright 2003-2016 Tradersoft s.r.l. Go To Top Of Page
Powered By: Snitz Forums 2000 Version 3.4.07