{自动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{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
