
源码如下:
A1:=(H-L)/L*100;
B1:=(C-L)/L*100;
C1:=B1/A1*100;
D1:=(3*C+O+L+H)/6;
E1:=(20*D1+19*REF(D1,1)+18*REF(D1,2)+17*REF(D1,3)+16*REF(D1,4)+15*REF(D1,5)+14*REF(D1,6)+13*REF(D1,7)+12*REF(D1,8)+11*REF(D1,9)+10*REF(D1,10)+9*REF(D1,11)+8*REF(D1,12)+7*REF(D1,13)+6*REF(D1,14)+5*REF(D1,15)+4*REF(D1,16)+3*REF(D1,17)+2*REF(D1,18)+REF(D1,20))/210,COLORF0F000;
F1:=MA(E1,5),COLORYELLOW,LINETHICK1;
G1:=(C+L+H)/3;
H1:=CROSS(E1,F1);
I1:=CROSS(F1,E1);
DRAWICON(H1,L,1);
DRAWICON(CROSS(E1,F1),L,8);
DRAWICON(I1,H,2);
DRAWICON(CROSS(F1,E1),H,7);
STICKLINE1(E1>=F1,L,H,0,1),COLORRED;
STICKLINE1(E1>=F1,C,O,3.2,0),COLORRED;
STICKLINE1(E1< F1,L,H,0,1),COLOR00FF00;
STICKLINE1(E1< F1,C,O,3.2,0),COLOR00FF00;
STICKLINE1(CROSS(F1,E1),O,C,3.2,0),COLOR00FF00;
STICKLINE1(CROSS(E1,F1),O,C,3.2,0),COLORRED;
STICKLINE1(C>O AND E1< F1,C,O,3.2,0),COLOR00FF00;
STICKLINE1(C>O AND E1>=F1,C,O,3.2,0),COLORRED;
STICKLINE1(C< O AND E1< F1,C,O,3.2,0),COLOR00FF00;
STICKLINE1(C< O AND E1>=F1,C,O,3.2,0),COLORRED;
J1:=EMA(C,1);
K1:=EMA(J1,5),COLORYELLOW;
M1:=EMA(HHV(K1,5),1);
N1:=EMA(HHV(M1,17),1),COLORFF00FF;
P1:=EMA(HHV(N1,17),2),COLORFF80FF;
Q1:=C>O AND (C/EMA(HHV(P1,17),3)-1)*100>0.5;
DRAWTEXT(Q1,EMA(HHV(P1,17),3)*1.0,’强’),COLORFF0000;
