COSTRUZIONE INDICATORE PER ANALISI CICLICA CON VISUAL TRADER (1 Viewer)

[solospread]

ciao il problema e' lo shift delle medie ?se si ci parlo io a v.t. le faccio sistemare
Un saluto a Solospread

Ciao Magico e un benvenuto a Kenshiro.

 

[urka78]

Salve ragazzi so che rompo ma ne ho estremo bisogno,

Allora ne ho trovato il codice in esylanguage che è simile a vt e ho provato a tradurre, ma già alla prima condizione mi dava errore

Posto l'originale in easyl

// This indicator labels HH, HL, LL, LH on the chart.
//

inputs:  
    LeftStrength( 3 ) ,  
    RightStrength( 3 ), 
    LookBackLength( 100 );
 
variable:  
    ID(-1), 
    Offset( 0 ) , 
    HighValue1(0),
    HighValue2(0),
    LowValue1(0),
    LowValue2(0);



 
Offset = .15 * Average( Range, 5 ) ; 
 
if PivotHighVSBar( 1, High, LeftStrength, RightStrength, RightStrength + 1 ) <> -1 then 
begin 
    HighValue1 = PivotHighVS(1, High, Leftstrength, RightStrength, LookBackLength );  
    HighValue2 = PivotHighVS(2, High, Leftstrength, RightStrength, LookBackLength );  
 
    if HighValue2 <> -1 and ( ( HighValue1 >= HighValue2 - Offset ) and ( HighValue1 <= HighValue2 + Offset ) ) then  
    begin 
        ID = Text_New(Date[RightStrength], Time[RightStrength], High[RightStrength] + Offset, "DT");  
        Text_SetStyle(ID, 2, 1 ) ; 
        Text_SetColor(ID, darkyellow);

        Value1 = 1;
    end ;  

    if HighValue2 <> -1 and HighValue1 > HighValue2 and value1 = 0 then  
    begin 
        ID = Text_New(Date[RightStrength], Time[RightStrength], High[RightStrength] + Offset, "HH");  
        Text_SetStyle(ID, 2, 1 ) ; 
        Text_SetColor(ID, darkgreen);
    end 
    else 
    if HighValue2 <> -1 and HighValue1 < HighValue2 and value1 = 0 then
    begin
        ID = Text_New(Date[RightStrength], Time[Rightstrength], High[RightStrength] + Offset, "(LH)");
        Text_SetStyle(ID, 2, 1 ) ;
        Text_SetColor(ID, Red);
    end ;
    Value1 = 0;
end ; 
 
if PivotLowVSBar( 1, Low, LeftStrength, RightStrength, RightStrength + 1 ) <> -1 then 
begin 
    LowValue1 = PivotLowVS(1, Low, Leftstrength, RightStrength, LookBackLength );  
    LowValue2 = PivotLowVS(2, Low, Leftstrength, RightStrength, LookBackLength );  
 
    if LowValue2 <> -1 and ( ( LowValue1 >= LowValue2 - Offset ) and ( LowValue1 <= LowValue2 + Offset ) ) then  
    begin 
        ID = Text_New(Date[RightStrength], Time[RightStrength], Low[RightStrength] - Offset, "DB");  
        Text_SetStyle(ID, 2, 0 ) ; 
        Text_SetColor(ID, darkyellow);

        Value1 = 1;
    end;  

    if LowValue2 <> -1 and LowValue1 < LowValue2 and Value1 = 0 then  
    begin  
        ID = Text_New(Date[RightStrength], Time[RightStrength], Low[RightStrength] - Offset, "LL");  
        Text_SetStyle(ID, 2, 0 ) ; 
        Text_SetColor(ID, Red);
    end 
    else 
    
    if LowValue2 <> -1 and LowValue1 > LowValue2 and Value1 = 0 then
    begin
        ID = Text_New(Date[RightStrength], Time[RightStrength], Low[RightStrength] - Offset, "(HL)");
        Text_SetStyle(ID, 2, 0 ) ;
        Text_SetColor(ID, darkgreen);
    end;
    Value1 = 0;
end ;

E quello iniziato da me:

input: LeftStrength( 3 ),RightStrength( 3 ),LookBackLength( 100 );

var:ID(-1),Offset( 0 ),HighValue1(0),HighValue2(0),LowValue1(0),LowValue2(0),PivotHighVSBar(0),
PivotHighVS;



Offset = .15*(AvgPrice[5]);

beginfor (ID,OFFSET,LookBackLength);
if PivotHighVSBar(1,H,LeftStrength,RightStrength,RightStrength + 1 ) <> -1 then
HighValue1 = PivotHighVS(1, H, Leftstrength, RightStrength, LookBackLength );
HighValue2 = PivotHighVS(2, H, Leftstrength, RightStrength, LookBackLength );

ENDIF;
ENDFOR;

poi fermarmi è stato d'obbligo perchè non ne venivo più fuori

 

[solospread]

Per i cicli for ci vuole Misterx, il numero 1 in questo campo.
Se ci sei fatti sentire.........................ciao

 

[solospread]

Oggi solo 3 operazioni , ma tutte OK. Ieri ne ha cannate 2 su 6 ma nel complesso và ancora alla grande.

 

[misterx]

Per i cicli for ci vuole Misterx, il numero 1 in questo campo.
Se ci sei fatti sentire.........................ciao

Ciao Solo

che piacere risentirti.....e rivedere i tuoi post.....il forum senza il tuo apporto è davvero più spento....

X URKA78.....
appena rientro dalle ferie se non è troppo tardi gli do un'occhiata.....

 

[solospread]

Ciao Solo

che piacere risentirti.....e rivedere i tuoi post.....il forum senza il tuo apporto è davvero più spento....

X URKA78.....
appena rientro dalle ferie se non è troppo tardi gli do un'occhiata.....

Anche per me è sempre un piacere ritrovarti. Ti auguro di passare delle ottime ferie e ritornare fresco e riposato per ripartire con il lavoro.
Il sistema è corto da 1,2712 e vediamo se và dritta anche stavolta.

 

[solospread]

La pazienza è la virtu' dei forti. Mancato il profit per 1 pips. Ha fatto il minimo a '02 ed ho profit a '01. Vediamo se ci ritorna.....

 

[solospread]

mercato piatto e volumi assenti. Chi si accontenta gode , si chiude a '05 e si và a nanna. Buona notte a tutti.

 

[solospread]

Ho aggiunto una variante per farlo stare piu' tempo a mercato.
Lo short và meglio del long con 89% contro l'85%. Ho aumentato il profit a 13 pips e lo stop a 30. Se ne canna 1 ce ne vogliono 3 per pareggiare il conto, ma se mantiene il 90% di positività non è certo un problema. Il problema è il mantenimento del 90%

 

[FFausto2]

Ho aggiunto una variante per farlo stare piu' tempo a mercato.
Lo short và meglio del long con 89% contro l'85%. Ho aumentato il profit a 13 pips e lo stop a 30. Se ne canna 1 ce ne vogliono 3 per pareggiare il conto, ma se mantiene il 90% di positività non è certo un problema. Il problema è il mantenimento del 90%

ciao campione, è disponibile l'ultima versione aggiornata x il popolo ???
cmq buon gain