通达信凯恩斯工作线主图源码

{凯恩斯工作线}
X0:=IF(C>=REF(C,1),AMOUNT/10000,0);
X1:=IF(C DD:=(X0-X1);
EE:=VOL/SUM(VOL,55);
LC:=REF(CLOSE,1);
JH:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
CP:=FILTER(CROSS(75,JH),11);
ZP:=FILTER(CROSS(JH,25),22);
DP:=IF(C>1000,(DD/10000000000)/EE,DD/(FINANCE(33)*FINANCE(37)/4))*100;
七天线:MA(C,7),COLORFFFFFF;
工作线:EMA(C,14),POINTDOT,LINETHICK4,COLORYELLOW;
生命线:MA(C,22),LINETHICK2,COLORFF00FF;
季线:MA(C,66),LINETHICK2,COLOR0000FF;
半年线:MA(C,120),LINETHICK2,COLORFFFF00;
长期趋势线:MA(C,240),CIRCLEDOT,COLOREEBBEE;
A0:=ZP;
A1:=CP;
A2:=DP;
STICKLINE((A2>=2.1),H,L,0,1),COLORGREEN;
STICKLINE(((A2>=2.1) AND (C>REF(C,1))),O,C,3,1),COLORGREEN;
STICKLINE(((A2>=2.1) AND (C STICKLINE(((A2>0) AND (A2<5)),H,L,0,1),COLORRED;
STICKLINE((((A2>0) AND (A2<5)) AND (C>REF(C,1))),O,C,3,0),COLORRED;
STICKLINE((((A2>0) AND (A2<5)) AND (C STICKLINE(((C>=工作线) AND (C>REF(C,1))),H,L,0,1),COLORRED;
STICKLINE(((C>=工作线) AND (C>REF(C,1))),O,C,3,1),COLORRED;
STICKLINE(((C>=工作线) AND (C STICKLINE(((C>=工作线) AND (C STICKLINE(((C<工作线) AND (C>REF(C,1))),H,L,0,1),COLORGREEN;
STICKLINE(((C<工作线) AND (C>REF(C,1))),O,C,3,1),COLORGREEN;
STICKLINE(((C<工作线) AND (C STICKLINE(((C<工作线) AND (C DRAWTEXT(A0,L,'￣￣'),LINETHICK2,COLORFFFFFF;
DRAWTEXT(A0,L*0.999,' B-B'),LINETHICK5,COLORFFFFFF;
DRAWTEXT(A1,H,'￣￣'),LINETHICK2,COLORCYAN;
DRAWTEXT(A1,H*1.001,' S-S'),LINETHICK5,COLORCYAN;
STICKLINE(A1,C,O,3,0),COLORFFFF00;
STICKLINE(A1,H,L,0,0),COLORFFFF00;
STICKLINE(A0,C,O,3,0),COLORFFFFFF;
STICKLINE(A0,H,L,0,0),COLORFFFFFF;
STICKLINE((A2>=10 AND A2<30),C,O,0,0),COLORFFBBFF;
STICKLINE((A2>=10 AND A2<30),C,O,2,0),COLORMAGENTA;
STICKLINE((A2>=10 AND A2<30),C,O,2.