?
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
?
?
源碼解析: ?
?
?
公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】
?