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;…