| Author |
 Topic  |
|
|
luca71-4
Nuovo Utente
34 Posts |
 Posted - 04 August 2003 : 11:05:47
|
OR C<Ref(C-ATR(6)*1.2,-1)
|
|
|
SupportoTecnico
Forum Admin
1261 Posts |
Posted - 04 August 2003 : 13:14:11
|
In Insider3000 non c'? per ora l'indicatore (ATR => Average True Range). Ovviamente lo puoi programmare tu ed utilizzarlo in altre parti del programma.
Quindi, fermo restando l'aver programmato il tuo indicatore ATR il pezzo di formula da te riportata si traduce nel seguente modo:
Or (Close < (Close( - 1) - Value(ATR(6), - 1) * 1.2))
|
 |
|
|
luca71-4
Nuovo Utente
34 Posts |
Posted - 04 August 2003 : 15:53:11
|
Allora non ci sono ho bisogno anche di programmare l'indicatore mi aiutate?
|
|
|
|
SupportoTecnico
Forum Admin
1261 Posts |
Posted - 04 August 2003 : 19:21:25
|
Stiamo studiando il codice. Vedremo di pubblicarlo nei prossimi giorni
|
|
|
|
SupportoTecnico
Forum Admin
1261 Posts |
|
|
luca71-4
Nuovo Utente
34 Posts |
Posted - 06 August 2003 : 10:30:30
|
Complimenti per la tempestivit? nel creare l'indicatore l'ho inserito al volo .
Ora come lo integro nel TS ?
Opzioni comuni
Option OptInc(0.01 , 0.2 , 0.01)
Option OptMaxInc(0.01 , 0.3 , 0.01)
Dim pdPriceLong As Numeric
< Entra in acquisto >
Function Main()
If MoveAv(Close,1,"s")>MoveAv(Close,13,"s")Then
pdPriceLong=Close
Price Close
Return Sar(OptInc,OptMaxInc)<Low
Else
Endif
Return False
End Function
< Chiudi Posizioni In acquisto >
Function Main()
Dim bRes As Boolean
bRes = (MoveAv(Close, 1,"s")<MoveAv(Close, 13,"s"))
If bRes=False Then
bRes = (Close <=pdPriceLong - pdPriceLong * 0.04)
Endif
Return dRes
EndFunction
.........................................
Ora mi servirebbe aggiungere in chiudi posizioni in acquisto la funzione che in metastock sarebbe :
Or C<REF(C-ATR(5)*1.2 , -1)
GRAZIE
|
|
|
|
SupportoTecnico
Forum Admin
1261 Posts |
Posted - 06 August 2003 : 10:53:40
|
Era gi? scritta nei post precedenti:
Or (Close < (Close( - 1) - Value(MyATR(5), - 1) * 1.2))
Ovviamente se non hai chiamato l'indicatore MyATR scrivi al posto di MyATR nella formula qui sopra il vero nome che gli hai dato.
Quindi, ad esempio, potrebbe essere:
Function Main()
Dim bRes As Boolean
bRes = (MoveAv(Close, 1,"s")<MoveAv(Close, 13,"s"))
If bRes=False Then
bRes = (Close <=pdPriceLong - pdPriceLong * 0.04)
Endif
If bRes = False Then
bRes = (Close < (Close( - 1) - Value(MyATR(5), - 1) * 1.2))
EndIf
Return dRes
EndFunction
|
|
|
| |
Topic |
|
tradurre
