{自动R画线}
{R(射线)}
PARTLINE(C,80),LINEDOT,Color00BCBE;
PARTLINE(C,20),LINEDOT,Color00BCBE;
R:SMA(MAX(C-REF(C,1),0),8,1)/SMA(ABS(C-REF(C,1)),8,1)*100,PRECISION2,COLORWHITE;
A1:=IF(CAPITAL=0,REF(H,3)=HHV(H,21),REF(H,3)=HHV(H,13));    
B1:=FILTER(A1,3);    C1:=BACKSET(B1,3+1);    D1:=FILTER(C1,3);
A2:=IF(CAPITAL=0,REF(L,3)=LLV(L,21),REF(L,3)=LLV(L,13));    
B2:=FILTER(A2,3);    C2:=BACKSET(B2,3+1);    D2:=FILTER(C2,3);
E1:=(REF(LLV(L,2*3),1)+REF(HHV(H,2*3),1))/2;    E2:=(H+L)/2;
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(C)=1;         L1:=(D2 AND NOT(D1 AND E1=E2));
X1:=REF(BARSLAST(H1),1)+1;                      F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,L,10000),X1));
G1:=F1>REF(F1,1);         I1:=BACKSET(G1,2);    LD:=I1>REF(I1,1);
L2:=LD OR ISLASTBAR OR BARSCOUNT(C)=1;          X2:=REF(BARSLAST(L2),1)+1;
F2:=BACKSET(L2 AND COUNT(H1,X2)>0,HHVBARS(IF(H1,HIGH,0),X2));   G2:=F2>REF(F2,1);  I2:=BACKSET(G2,2);
HD:=I2>REF(I2,1);
XL_1:=BARSLAST(HD)+1;      XL_2:=if(XL_1>0,R>=HHV(R,XL_1),0);{起点}         XL_3:=XL_1>0 and BARPOS=SYSPARAM(1);{支点}
DRAWLINE(XL_2,R,XL_3,R,1),COLORYELLOW;{射线}
值:=LINEVALUE(XL_2,R,XL_3,R,0,0);
DRAWICON(CROSS(R,值) and R>值*1.03,值,4),PXDN8
//