//TS RANGE SOLOSPREAD 5 minuti
var:miavar(0),val1,val2,r(0),RR,mioatr1,RR1,RR2,zona1,RR3,RR4,RR6,zona2,RR5,RR7,VAL1,VAL2,VAL3,VAL4;
Var: previousH,previousL,previousC,
Pivot,R1,S1, R1mid,S1mid, prova, cambiatogiorno,mioregrlin0,
lin1,lin2,lin3,lin4,lin5,miotw,mm1,mac,opm,mm2,trad1,
indperiodo, numper, ggini, primavolta(-1);
VAR: Miacondizione1,Miacondizione2,Miacondizione3,Miacondizione4,Miacondizione5,MioTw,MM1,MAC,OPM,MM2;
Var: previousH,previousL,previousC,miovel1,
Pivot,R1,S1, R1mid,S1mid, prova, cambiatogiorno,
lin1,lin2,lin3,lin4,lin5,
indperiodo, numper, ggini, primavolta(-1);
previousH=H[1];
previousL=L[1];
previousC=C[1];
cambiatogiorno = GetValues(minutes, 1, prova, prova, prova, prova);
// Calcola Pivot
R1=(2*Pivot)-previousL;
Pivot=(previousH+previousC+previousL)/3;
S1=(2*Pivot)-previousH;
R1mid=(R1+pivot)/2;
S1mid=(S1+pivot)/2;
if cambiatogiorno then
// Termina le linee precedenti qui, Crea nuove Linee per il prossimo Giorno
lin1 = CREATEOGG;
lin2 = CREATEOGG;
lin3 = CREATEOGG;
lin4 = CREATEOGG;
lin5 = CREATEOGG;
indperiodo = 0;
ggini = Getdate; // da dove parto a tracciare la linea orizzontale
primavolta = false;
endif;
indperiodo = indperiodo + 1;
numper = indperiodo;
// Disegna Linee orizzontali lunghe solo in quel giorno
lin1 = drawhlineper(lin1,0,ggini, r1, numper, fuchsia,1,0);
lin2 = drawhlineper(lin2,0,ggini, Pivot, numper, blue,2,0);
lin3 = drawhlineper(lin3,0,ggini, s1, numper, aqua,1,0);
lin4 = drawhlineper (lin4,0,ggini, R1mid, numper, fuchsia,1,2);
lin5 = drawhlineper (lin5,0,ggini, S1mid, numper, aqua,1,2);
////////////////////////////////////////////////////////////////////////////////
mioatr1 = atr(C,21);
RR = (r[1]+r[2]);
RR1 =(H-l)*V[1]/V*r*3000;
RR3 = LLV(L,10);
RR4 = HHV(H,10);
RR5 =HHV(C,10);
RR7 =LLV(O,10);
mioregrlin0 = regrlin(C,21);
VAL1= (C-O);
VAL2=(O-C);
if val1 < val1[1] and H >= H[1]then
val3 = val1-mioatr1*5;
else
val3 = val1;
endif;
if val1 < val1[1] and l <= l[1] then
val3 = val1 + mioatr1*3;
else
val3 = val1;
endif;
miovel1 =VEL(c,30,0,0);
if C > R1+20 and C > C[1] and C > H[1] then
enterLong (NextBar,AtOpen); endif;//endif;//endif;//endif;endif;
if C < S1-20 and C < C[1] and C < L[1]then
entershort(nextBar,Atopen);endif;//endif;//endif;endif;
mioatr1 = atr(C,21);
RR = (r[1]+r[2]);
RR1 =(H-l)*V[1]/V*r*3000;
RR3 = LLV(L,10);
RR4 = HHV(H,10);
RR5 =HHV(C,10);
RR7 =LLV(O,10);
//*****************************************************************************
if RR1[1] > 10 and C > C[1] and C[1]< C[2] then
RR2 = rr1+50;
else
RR2 = 0;
endif;
if RR1[1] > 10 and C < C[1] and C[1] > C[2] then
RR2 = RR1-50;
else
RR2 = 0;
endif;
if (H-C) > (C-L)and B = true and R > mioatr1*2 then
RR6 = 100;
else
RR6 = 0;
endif;
if (H-C) <(C-L)and W = TRUE and B[1] = true and R > mioatr1*1.5 then
RR7 = 100;
else
RR7 = 0;
endif;
//****************************************************************************************
if RR6[2] > 90 and C > C[1] and L > L[1] or H > H[1] then entershort(Nextbar,atopen);endif;
if RR6[2] > 90 and C < C[1] and L < L[1] or H < H[1] then enterlong (Nextbar,atopen);endif;
installstoploss(INPERC,1.5,"STOP");
//****************************************************************************************