完整源码，请下载附件：
FPA:=NPA-LR3A*(NODA),POINTDOT,COLOR93BDA8;
FPA:=NPA-LR3A*(NODA),POINTDOT,COLOR93BDA8;
ADA:=ABS(NPA-FPA);
DBLA:=BARSLAST(BC1A>0)+1;
DBHA:=BARSLAST(TC1A>0)+1;
BSPA:=IF(BC2A>TC2A,DBLA,DBHA)-1;
LRLA:=IF(NPA>FPA,FPA+ADA/NODA*BSPA,FPA-ADA/NODA*BSPA);
AT1A:=IF(BETWEEN(CURRBARSCOUNT,BC2A,TC2A) AND C>LRLA,C,LRLA);
AT2A:=HHV(AT1A-LRLA,MAX(BC2A,TC2A));
AT3A:=REFX1(BARSLAST(AT1A-LRLA=AT2A),10000);
AT5A:=REFX1(IF(AT3A=0,AT1A-LRLA,REF(AT1A-LRLA,AT3A)),10000);
ATLA:=LRLA+AT5A;
UT1A:=IF(BETWEEN(CURRBARSCOUNT,BC2A,TC2A) AND L<LRLA,L,LRLA);
UT2A:=HHV(LRLA-UT1A,MAX(BC2A,TC2A));
UT3A:=REFX1(BARSLAST(LRLA-UT1A=UT2A),10000);
UT5A:=REFX1(IF(UT3A=0,LRLA-UT1A,REF(LRLA-UT1A,UT3A)),10000);
UTLA:=LRLA-UT5A;
RHA:=IF(CURRBARSCOUNT>=MIN(BC2A,TC2A)-10,ATLA,REFX1(REF(ATLA,MIN(BC2A,TC2A)-11),10000));
RLA:=IF(CURRBARSCOUNT>=MIN(BC2A,TC2A)-10,UTLA,REFX1(REF(UTLA,MIN(BC2A,TC2)-11),10000));
