TD Sequential Perl for Amibroker (AFL)
Based on the book of Jason perl _SECTION_BEGIN(“TDST_DeMark_Perl”); /* Set Parameters. */ Plotall=ParamToggle(“Plot all lines “, “No|Yes”,1); Plotpercent=Param(“Plot percentage above/below visible range “,20,0,100,5,0); gapprox=Param(“Proximity Gap Multiplier”,1,0,5,0.5,0); bluedist=Param(“Blue_Multiplier”,1.75,0,10,0.25,0); reddist=Param(“Red_multiplier”,0.25,0,10,0.25,0); /* Initialise variables. */ sup1=sup2=sup3=sup4=sup5=sup6=sup7=sup8=sup9=Null; res1=res2=res3=res4=res5=res6=res7=res8=res9=Null; TDSeqBuy=False; TDSeqbuydigits=0; TDSeqbuyrisk=TDSeqbuyreward=TDSeqbuyrrratio=TDSeqbuystop=0; TDSeqSell=False; TDSeqselldigits=0; TDSeqsellrisk=TDSeqsellreward=TDSeqsellrrratio=TDSeqsellstop=0;…
