x Michelangelo
individuazione di probabili supporti/resistenze

poi vai al sito www.fibonaccitrader.com
a destra ...journals...learn how to trade...
poi download issue 14

Var: newday(false), mioopen(0), miomin(0), miomax(0), mioclose(0);
Var: BP(0),SA(0),SB(0),SC(0),SD(0),ND(0),NU(0),RA(0),RB(0),RC(0),RD(0),previousopen1,previousopen2,zona1;
Var: valore1,valore2,miadata1,miadata2,meseprec,lin1;
 
previousopen1=EOD.o[1];
previousopen2=EOD.o[2];
newday=GetValues(days,1,mioopen,miomin,miomax,mioclose);
if newday=true then
   BP=(miomax+miomin+mioclose)/3;
   SA=BP-(miomax-miomin)*0.5;
   SB=BP-(miomax-miomin)*0.618;
   SC=BP-(miomax-miomin);
   SD=BP-(miomax-miomin)*1.382;
   RA=BP+(miomax-miomin)*0.5;
   RB=BP+(miomax-miomin)*0.618;
   RC=BP+(miomax-miomin);
   RD=BP+(miomax-miomin)*1.382;
endif;
if IsFirstBarDay and getmonth<>meseprec then miadata1=getdate;endif;
meseprec=getmonth;
valore1=openm;
valore2=c;
miadata2=getdate;

// disegna livelli su grafico
plotchart(BP,0,gray,solid,2);
DrawText(NEWOGG,0 , D,BP , "Balance Point ",BP , gray, 10, 1+4,Alleft);
plotchart(SA,0,green,solid,1);
DrawText(NEWOGG,0 , D,SA , "Supp.band 1",SA , green, 9, 1+4,Alleft);
plotchart(SB,0,green,dot,1);
DrawText(NEWOGG,0 , D,SB , "Supp.band 1",SB , green, 9, 1+4,Alleft);
plotchart(SC,0,blue,solid,1);
DrawText(NEWOGG,0 , D,SC , "Supp.band 2",SC , green, 9, 1+4,Alleft);
plotchart(SD,0,blue,dot,1);
DrawText(NEWOGG,0 , D,SD , "Supp.band 2",SD , green, 9, 1+4,Alleft);
plotchart(RA,0,red,solid,1);
DrawText(NEWOGG,0 , D,RA , "Res.band 1",RA , red, 9, 1+4,Alleft);
plotchart(RB,0,red,dot,1);
DrawText(NEWOGG,0 , D,RB , "Res.band 1",RB , red, 9, 1+4,Alleft);
plotchart(RC,0,fuchsia,solid,1);
DrawText(NEWOGG,0 , D,RC , "Res.band 2",RC , red, 9, 1+4,Alleft);
plotchart(RD,0,fuchsia,dot,1);
DrawText(NEWOGG,0 , D,RD , "Res.band 2",RD , red, 9, 1+4,Alleft);