PRD1:=5;
{由李季峰改编 均线神奇数列强弱判断}
STEP:=(SQRT(5)-1)/2;
{TREND STRENGTH INDICATOR}
A1:=IF(C>MA(C,PRD1),10,IF(C<MA(C,PRD1),-10,0));
A2:=IF(C>MA(C,PRD1/STEP),10,IF(C<MA(C,PRD1/STEP),-10,0));
A3:=IF(C>MA(C,INTPART(PRD1/POW(STEP,2))),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,2))),-10,0));
A4:=IF(C>MA(C,INTPART(PRD1/POW(STEP,3))),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,3))),-10,0));
A5:=IF(C>MA(C,INTPART(PRD1/POW(STEP,4))),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,4))),-10,0));
A6:=IF(C>MA(C,INTPART(PRD1/POW(STEP,5))),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,5))),-10,0));
A7:=IF(C>MA(C,INTPART(PRD1/POW(STEP,6))),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,6))),-10,0));
A8:=IF(C>MA(C,INTPART(PRD1/POW(STEP,7))-1),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,7))-1),-10,0));
A9:=IF(C>MA(C,INTPART(PRD1/POW(STEP,8))-1),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,8))-1),-10,0));
A10:=IF(C>MA(C,INTPART(PRD1/POW(STEP,9))-3),10,IF(C<MA(C,INTPART(PRD1/POW(STEP,9))-3),-10,0));
(A1+A2+A3+A4+A5+A6+A7+A8+A9+A10);
