AAAAfthresoldfActiveTrendlineActiveTrendlinenFor interpretation, refer to the November 2006 issue of "Technical Analysis of STOCKS & COMMODITIES" magazine.AAAAAAAAAAAAAA ŽAAAAC8AAºAAAASMAAAAAPrice2²šAAAAAALength`¾¯šAAAA¿AAAAAbsAAAAXL9pšAAAAAAAAMinAAAAXL9pšAA¼AAÜAAAAAbsAAAAXü¬ËšAAAA$AAAAMinAAAAX¨H*šAA¼AAAAAAInf€AAbAAAAInf€AA²AAAAC8AAAAAAf1AAAAf1 AAf2AAAAf2 AAf3AAAAf3 AAkAAAAkAAnAAAAnAApcAAAApcAApf1AAAApf1 AApf2AAAApf2 AApf3AAAApf3AApivotAAAAAAsmAAAAsmAAthisAAAA˜ØxAAthresoldAAAAthresoldAAyAAAAyAAAAAAAAthresoldThresold in percent1Y@AAAAAAÐ,(!.)!18! !  !  -!  -! !!3!!!d  1   1¼  '7!   !  -+ÿÿÿ!  ! - 'Çd  1  1¼        '†      ' !  !  -!   ! -¬þÿÿ!* ! !  !  -!  !  -þÿÿ!+!+ !+!+ '<!1€¯'<!1€\!!+-!+- !+!+ !!+-!+- !+!+  !!+ !+18 !AAAA•Input thresold:"Thresold in percent",1,0,100; End_input Var array:pivot[4]:=-1; sm:=SMA(c,5); f1:= 0; f2:=f1; pf1:= sm\f1\; pf2:= sm\f2\; f3:=0; pf3:=0; n:=historysize; pc:=1; k:=0; y:=0; End_var While ((100*abs(pf1-pf2)/min(pf1,pf2)pf2) And pf2>=pf3)))) And (f3pf2) and (pf2>=pf3))) then Begin f2:=f3; pf2:= sm\f2\; End; f3:=f3+1; pf3:= sm\f3\; End; pivot[pc]:=f2; pc:=pc+1; f1:=f2; pf1:= sm\f1\; f2:=f3; pf2:= sm\f2\; End; if (pivot[1]-pivot[3]=0 or pivot[2]-pivot[4]=0) then return inf; if pc<=4 then return inf; {Constructing trend} k:= (sm\pivot[1]\-sm\pivot[3]\)/(pivot[1]-pivot[3]); k:= (k+ (sm\pivot[2]\- sm\pivot[4]\)/(pivot[2]-pivot[4])) / 2; y:= pivot[1]*k + c\pivot[1]\; return y; AAAA