Super Trend Afl

 _SECTION_BEGIN("SuperTrend ");  _SECTION_BEGIN("SuperTrend"); SetBarsRequired(100000,0); GraphXSpae  1#; SetChartOpti$ns(0,hartSh$%&rr$%s'hartSh$%ates); SetChartBC$*$r(+araC$*$r("-$*$r",C$*$rRGB(0,0, 0))); G./SetB$de(0); G./SetOer*a2$de(1); SetBar3i**C$*$r(II.(C4O,+araC$*$r("Cand*e 5+ C$*$r", $*$rGreen),II.(C6O,+araC$*$r("Cand*e $%n C$*$r", $*$rRed),$*$r7i8htGre2))); +*$t(C,"9n+rie",II.(C4O,+araC$*$r(":i 5+ C$*$r", $*$rarGreen),II.(C6O,+araC$*$r(":i $%n C$*$r", $*$rarRed),$*$r7i8htGre2)),<,0,0,0,0); SetTradee*a2s(1,1,1,1);  _N(Tit*e  Str3$rat("==N&E>> Str3$rat("==N& E>> ? ==INTER@&7>> ==&TE>> ==&TE> > Open A8, i A8, 7$ A8, C*$se C*$ se A8 (A1.AA) ==@&75ES>>", O, , 7, C, Se*eted@a*ue( ROC( C, 1 ) ) )); 3at$r+ara("3at$r",D,1,10,1); +d+ara("&TR +eri$ds",10,1,100,1); 5p(7)F(3at$rH&TR(+d)); n(7)F?(3at$rH&TR(+d)); i&TR&TR(+d); Trend5pTrend$%nNu**; trend0J1; han8eO.Trend0; .*a8.*a8h0; .$r (i  1; i 6BarC$unt; i) = Trend5piJ  Nu**; Trend$%niJ  Nu**; trendiJ1;

i. (C*$seiJ45pi?1J) = trendiJ1; i. (trendi?1J  ?1) han8eO.Trend  1; > e*se i. (C*$seiJ6ni?1J) = trendiJ?1; i. (trendi?1J  1) han8eO.Trend  1; > e*se i. (trendi?1J1) = trendiJ1; han8eO.Trend  0; > e*se i. (trendi?1J?1) = trendiJ?1; han8eO.Trend  0; > i. (trendiJ60 KK trendi?1J40) = .*a81; > e*se = .*a80;

> i. (trendiJ40 KK trendi?1J60) = .*a8h1; > e*se = .*a8h0; > i. (trendiJ40 KK niJ6ni?1J)= niJni?1J; > i. (trendiJ60 KK 5piJ45pi?1J) = 5piJ5pi?1J; > i. (.*a81) = 5piJ(iJ7iJ)F(3at$rHi&TRiJ);; > i. (.*a8h1) = niJ(iJ7iJ)F?(3at$rHi&TRiJ);; > i. (trendiJ1) = Trend5piJniJ; i. (han8eO.Trend  1) = Trend5pi?1J  Trend$%ni?1J; han8eO.Trend  0; > > e*se i. (trendiJ?1) = Trend$%niJ5piJ; i. (han8eO.Trend  1) = Trend$%ni?1J  Trend5pi?1J; han8eO.Trend  0; > > > +*$t(Trend5p,"Trend",$*$rGreen); +*$t(Trend$%n,"$%n",$*$rRed); Bu2  trend1; Se**trend?1; Bu2E/Re(Bu2,Se**); Se**E/Re(Se**,Bu2); Sh$rtSe**; C$erBu2;

Bu2+rie@a*ue:hen(Bu2,C); Se**+rie@a*ue:hen(Se**,C); Sh$rt+rie@a*ue:hen(Sh$rt,C); C$er+rie@a*ue:hen(C$er,C);

Tit*e  En$deC$*$r($*$r:hite) "Super Trend"  " ? "  Nae()  " ? "  En$deC$*$r($*$rRed) Intera*()  En$deC$*$r($*$r:hite)  " ? "  ate() " ? ""9n" En$deC$*$r($*$rRed) "Op?"O" ""i?"" ""7$?"7" " "C*?"C" " "@$* " :rite@a*(@)"9n" En$deC$*$r($*$r7ie) :riteI. (Bu2 , " GO 7ONG F Reerse Si8na* at "C" ","") :riteI. (Se** , " EXIT 7ONG F Reerse Si8na* at "C" ","") "9n"En$deC$*$r($*$rLe**$%) :riteI.(Se** , "T$ta* +r$.itF7$ss .$r the 7ast Trade Rs"(C?Bu2+rie)"","") :riteI.(Bu2 , "T$ta* +r$.itF7$ss .$r the 7ast trade Rs"(Se**+rie?C)"",""); +*$tShapes(II.(Bu2, shapeSquare, shapeN$ne),$*$rGreen, 0, 7, O..set?<0); +*$tShapes(II.(Bu2, shapeSquare, shapeN$ne),$*$r7ie, 0,7, O..set?#0); +*$tShapes(II.(Bu2, shape5p&rr$%, shapeN$ne),$*$r:hite, 0,7, O..set?<#); +*$tShapes(II.(Sh$rt, shapeSquare, shapeN$ne),$*$rRed, 0, , O..set<0); +*$tShapes(II.(Sh$rt, shapeSquare, shapeN$ne),$*$rOran8e, 0,, O..set#0); +*$tShapes(II.(Sh$rt, shape$%n&rr$%, shapeN$ne),$*$r:hite, 0,, O..set?<#); TrendS7II.(trend1,Trend5p,Trend$%n); .$r(iBarC$unt?1;i41;i??) = i.(Bu2iJ  1) = entr2  CiJ; si8  "B5L"; s*  TrendS7iJ; tar1  entr2  (entr2 H 00#0); tar  entr2  (entr2 H 00M); tarD  entr2  (entr2 H 01M); -ars  i; i  0; > i.(Se**iJ  1) = si8  "SE77"; entr2  CiJ; s*  TrendS7iJ; tar1  entr2 ? (entr2 H 00#0); tar  entr2 ? (entr2 H 011); tarD  entr2 ? (entr2 H 01);

-ars  i; i  0; > > O..set  0; C*r  II.(si8  "B5L", $*$r7ie, $*$rRed); ss*  II.(-ars  BarC$unt?1, TrendS7BarC$unt?1J, Re.(TrendS7, ?1)); s*  ss*BarC$unt?1J;

+*$t(7ine&rra2(-ars?O..set, tar1, BarC$unt, tar1,1), "", C*r, st2*e7ine'st2*e$ts, Nu**, Nu**, O..set);

+*$t(7ine&rra2(-ars?O..set, tar, BarC$unt, tar,1), "", C*r, st2*e7ine'st2*e$ts, Nu**, Nu**, O..set); +*$t(7ine&rra2(-ars?O..set, tarD, BarC$unt, tarD,1), "", C*r, st2*e7ine'st2*e$ts, Nu**, Nu**, O..set); FF+*$t(7ine&rra2(-ars?O..set, s*, BarC$unt, s*,1), "", $*$rarRed, st2*e7ine' st2*e7ine, Nu**, Nu**, O..set); FF+*$t(7ine&rra2(-ars?O..set, entr2, BarC$unt, entr2,1), "", $*$rGreen, st2*e7ine' st2*e7ine, Nu**, Nu**, O..set); .$r (i-ars; i 6BarC$unt;i) = +*$tTe/t(""si8""entr2, BarC$unt1,entr2,Nu**,$*$rB*ue); +*$tTe/t("T1"tar1,BarC$untD,tar1,Nu**,C*r);+*$tTe/t("T"tar,BarC$untD,tar,N u**,C*r);+*$tTe/t ("TD"tarD,BarC$untD,tarD,Nu**,C*r); > essa8e-$ard  +araT$88*e("essa8e B$ard","Sh$%'ide",1); i. (essa8e-$ard  1 ) = G./Se*et3$nt( "Tah$a", 1D, 100 ); G./SetB$de( 1 ); G./SetTe/tC$*$r( $*$r:hite ); i. ( si8 "B5L") = G./Se*etS$*idBrush( $*$rB*ue ); FF this is the -$/ -a8r$und $*$r > e*se = G./Se*etS$*idBrush( $*$rRed ); FF this is the -$/ -a8r$und $*$r > p/ei8ht  Status( "p/harthei8ht" ) ; //  Status( "p/hart%idth"); 7e.t  1100; %idth  D10; /  #; /  M0; 2  p/ei8ht; G./Se*et+en( $*$rGreen, 1); FF -r$ader $*$r G./R$undRet( /, 2 ? MP, /, 2 , ,  ) ; G./Te/tOut( ( "Supertrend"),1D,2?100); G./Te/tOut( (" "),,2?100); G./Te/tOut( ("7ast "  si8  " Si8na* ae "  (BarC$unt?-ars?1) H Intera*()F0  " ins a8$"), 1D, 2?P0) ; FF The te/t .$rat *$ati$n G./Te/tOut( (""  :riteI.(si8 "B5L",si8  "  ",si8  " ")  " Q "  entr2), 1D, 2?0); G./Te/tOut( ("Trai*in8 S7 Q "  TrendS7  " ("  :rite@a*(II.(si8  "SE77",entr2? s*,s*?entr2), )  ")"), 1D, 2?<0); FHG./Te/tOut( ("TGTQ1 Q "  tar1), 1D, 2 ?P0); G./Te/tOut( ("TGTQ Q "  tar), 1D,2?0); G./Te/tOut( ("TGTQD Q "  tarD), 1D,2?<0);HF G./Te/tOut( ("Current +F7 Q "  :rite@a*(II.(si8  "B5L",(C?entr2),(entr2? C)),)), 1D, 2?);; >

 _SECTION_EN();