通达信公式：四星级主图-凯恩斯的公式

源码大智慧2可用，请老师改写通达信的，造福广大幻友，“线上阴线买，线下阳线卖 ”谢谢！

源码如下

 

A1:=DATE <= 13181231;

DRAWTEXTREL(4,5,'流通A股:'+NUMTOSTRN(FINANCE2(7),0)+'万'+'市净率:'+NUMTOSTRN((DYNAINFO(7)/FINANCE2(34)),2)+'昨:'+NUMTOSTRN(DYNAINFO(3),2)+'开:'+NUMTOSTRN(DYNAINFO(4),2)+'高:'+NUMTOSTRN(DYNAINFO(5),2)+'低:'+NUMTOSTRN(DYNAINFO(6),2)+'收:'+NUMTOSTRN(DYNAINFO(7),2)+'涨幅:'+NUMTOSTRN((DYNAINFO(14)100),2)+'%'+'振幅:'+NUMTOSTRN((DYNAINFO(13)100),2)+'%'+'换手率:'+NUMTOSTRN((DYNAINFO(37)100),2)+'%'),lihick1,colorhite;

DRAWTEXTREL(22,40,'凯恩斯双线'),lihick5,colorred;

DRAWTEXTREL(180,50,'黄点工作线'),lihick1,coloryello;

DRAWTEXTREL(260,50,'多空停损点'),lihick1,colormagenta;

DRAWTEXTREL(340,50,'线上工作|线下休息'),lihick1,colorhite;

DRAWTEXTREL(470,50,'最低点靠近工作线低吸'),lihick1,coloryello;

DRAWTEXTREL(210,100,STKLABEL+' '+STKNAME),lihick5,ColorFFFF80;

DRAWTEXTREL(6,150,'空心:阳线|实体:阴线'),lihick2,colorhite;

DRAWTEXTREL(10,200,'线上阴线买|买错也要买'),lihick1,colorred;

DRAWTEXTREL(10,240,'线下阳线卖|卖错也要卖'),lihick1,colreen;

七天线:MA(C,7),colray;

工作线:(EMA(C,14)) A1,POINTDOT,lihick4,coloryello;

生命线:(MA(C,25)) A1,lihick2,colormagenta;

不惑线:(MA(C,40)) A1,colorcyan;

姊妹线:(EMA(C,56)) A1,CIRCLEDOT,colorhite;

长线启动点:(MA(C,99)) A1,lihick1,Color0099FF;

{卖线:EMA(SLOPE(C,21)21+C,42),colorred,LINETHICK2;}

A2:="cpzb@cp";

STICKLINE((A2 >= 8),H,L,0.8,1),colreen;

STICKLINE(((A2 >= 8) AND (C > O)),O,C,8,1),colreen;

STICKLINE(((A2 >= 8) AND (C < O)),C,O,8,0),colreen;

STICKLINE(((A2 > 0) AND (A2 <= 2)),H,L,0.8,1),colorred;

STICKLINE((((A2 > 0) AND (A2 <= 2)) AND (C > O)),O,C,8,1),colorred;

STICKLINE((((A2 > 0) AND (A2 <= 2)) AND (C < O)),C,O,8,0),colorred;

STICKLINE(((C >= 工作线) AND (C >= O)),H,L,0.5,1),colorred;

STICKLINE(((C >= 工作线) AND (C >= O)),O,C,8,1),colorred;

STICKLINE(((C >= 工作线) AND (C <= O)),H,L,0.5,0),colorred;

STICKLINE(((C >= 工作线) AND (C <= O)),O,C,8,0),colorred;

STICKLINE(((C < 工作线) AND (C >= O)),H,L,0.5,1),colreen;

STICKLINE(((C < 工作线) AND (C >= O)),O,C,8,1),colreen;

STICKLINE(((C < 工作线) AND (C <= O)),H,L,0.5,0),colreen;

STICKLINE(((C < 工作线) AND (C <= O)),O,C,8,0),colreen;

DRAWTEXT((A2 = 1),L,'￣'),lihick2,ALIGN1,Color208FFF;

DRAWTEXT((A2 = 1),L,'B'),lihick5,ALIGN1,coloryello;

DRAWTEXT((A2 = 9),H,'￣'),lihick2,ALIGN1,colorcyan;

DRAWTEXT((A2 = 9),H+0.38,'S'),lihick5,colorcyan;

STICKLINE((A2 = 9),C,O,0,0),colorhite;

STICKLINE((A2 = 9),C,O,8,0),colorhite;

STICKLINE((A2 = 9),C,O,7,0),ColorDDDDDD;

STICKLINE((A2 = 9),C,O,6,0),ColorCCCCCC;

STICKLINE((A2 = 9),C,O,5,0),colorhite;

STICKLINE((A2 = 9),C,O,4,0),ColorEEEEEE;

STICKLINE((A2 = 9),C,O,3,0),ColorDDDDDD;

STICKLINE((A2 = 9),C,O,2,0),ColorCCCCCC;

STICKLINE((A2 = 9),C,O,1,0),colorhite;

STICKLINE((A2 = 1),C,O,0,0),ColorFFBBFF;

STICKLINE((A2 = 1),C,O,8,0),colormagenta;

STICKLINE((A2 = 1),C,O,7,0),ColorFF22FF;

STICKLINE((A2 = 1),C,O,6,0),ColorFF44FF;

STICKLINE((A2 = 1),C,O,5,0),ColorFF66FF;

STICKLINE((A2 = 1),C,O,4,0),ColorFF88FF;

STICKLINE((A2 = 1),C,O,3,0),ColorFF99FF;

STICKLINE((A2 = 1),C,O,2,0),ColorFFAAFF;

STICKLINE((A2 = 1),C,O,1,0),ColorFFBBFF;

 

A3:=EMA((((SLOPE(C,21)) 20) + C),68);

A4:=EMA(C,10);

A5:=REF(C,2);

A6:=((SMA((MAX((C - A5),0)),6,1)) / (SMA(ABS((C - A5)),6,1))) 100;

A7:=IF(((A6 < (REF(A6,1))) AND (A6 > 79)),A6,0);

DRAWTEXT((CROSS(A4,A3)),L,'△'),lihick2,ALIGN1,coloryello;

DRAWTEXT(A7,H,'○'),lihick3,colreen;

A8:=LLV(L,21);

A9:=HHV(H,21);

A10:=EMA((((CLOSE - A8) / (A9 - A8)) 100),5);

A11:=EMA((((CLOSE - A8) / (A9 - A8)) 50),13);

A12:=EMA(((0.667 (REF(A10,1))) + (0.333 A10)),2);

A13:=LLV(L,55);

A14:=HHV(H,34);

A15:=EMA((((C - A13) / (A14 - A13)) 100),3);

A16:=(A11 + A15) / 2;

A17:=EMA(((0.667 (REF(A15,1))) + (0.333 A10)),2);

A18:=EMA(A16,5);

A19:=EMA(((0.667 (REF(A18,1))) + (0.333 A18)),2);

A20:=CROSS(A10,A11);

A21:=(CROSS(A10,A19)) AND (A19 < 30);

A22:=A21 0.6;

DRAWTEXT((A22 = 0.6),L,'◇'),lihick4,ALIGN1,coloryello;

DRAWTEXT((A20 = 1),L,'◇'),lihick4,ALIGN1,colorhite;

A23:=((C + L) + H) / 3;

A24:=EMA(A23,6);

A25:=EMA(A24,5);

A26:=CROSS(A24,A25);

DRAWICON(A26,(LOW / 1.005),3),lihick2,ALIGN1,colormagenta;

STICKLINE(((C >= 工作线) AND (C >= O)),H,L,0.5,1),colorred;

STICKLINE(((C >= 工作线) AND (C >= O)),O,C,8,1),colorred;

STICKLINE(((C >= 工作线) AND (C <= O)),H,L,0.5,0),colorred;

STICKLINE(((C >= 工作线) AND (C <= O)),O,C,8,0),colorred;

STICKLINE(((C < 工作线) AND (C >= O)),H,L,0.5,1),colreen;

STICKLINE(((C < 工作线) AND (C >= O)),O,C,8,1),colreen;

STICKLINE(((C < 工作线) AND (C <= O)),H,L,0.5,0),colreen;

STICKLINE(((C < 工作线) AND (C <= O)),O,C,8,0),colreen;