凯恩斯双线制胜公式源码改良版
凯恩斯双线制胜法实际是殷保华的江恩八线略微改进而已，看到这个源码不错，稍作修改，以晌大家。注意：工作线参数方面已经改回殷保华传统参数。
C/C++ www.gszb.com 股票公式指标网提供 Code复制内容到剪贴板
- A1:=DATE <= 13181231;
- DRAWTEXTREL(22,40,'凯恩斯双线'),linethick5,colorred;
- DRAWTEXTREL(180,50,'黄线工作线'),linethick1,coloryellow;
- DRAWTEXTREL(260,50,'紫线生命线'),linethick1,colormagenta;
- DRAWTEXTREL(10,200,'线上阴线买|买错也要买'),linethick1,colorred;
- DRAWTEXTREL(10,240,'线下阳线抛|抛错也要抛'),linethick1,colorgreen;
- 七天线MA7:MA(C,7),colorgray;
- 工作线MA14:MA(C,14) * A1,coloryellow;
- 生命线MA25:MA(C,25) * A1,linethick2,colormagenta;
- 不惑线MA43:MA(C,43) * A1,colorcyan;
- 姊妹线EMA56:EMA(C,50) * A1,colorwhite;
- 长线启动点MA99:MA(C,99) * A1,linethick1,Color0099FF;
- {卖线:EMA(SLOPE(C,21)*21+C,42),colorred,LINETHICK2;}
- A2:="cpzb@cp";
- STICKLINE((A2 >= 8),H,L,0.8,1),colorgreen;
- STICKLINE(((A2 >= 8) AND (C > O)),O,C,8,1),colorgreen;
- STICKLINE(((A2 >= 8) AND (C < O)),C,O,8,0),colorgreen;
- 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 >= 工作线MA14) AND (C >= O)),H,L,0.5,1),colorred;
- STICKLINE(((C >= 工作线MA14) AND (C >= O)),O,C,8,1),colorred;
- STICKLINE(((C >= 工作线MA14) AND (C <= O)),H,L,0.5,0),colorred;
- STICKLINE(((C >= 工作线MA14) AND (C <= O)),O,C,8,0),colorred;
- STICKLINE(((C <工作线MA14) AND (C >= O)),H,L,0.5,1),colorgreen;
- STICKLINE(((C <工作线MA14) AND (C >= O)),O,C,8,1),colorgreen;
- STICKLINE(((C <工作线MA14) AND (C <= O)),H,L,0.5,0),colorgreen;
- STICKLINE(((C < 工作线MA14) AND (C <= O)),O,C,8,0),colorgreen;
- DRAWTEXT((A2 = 1),L,'￣'),linethick2,ALIGN1,Color208FFF;
- DRAWTEXT((A2 = 1),L,'B'),linethick5,ALIGN1,coloryellow;
- DRAWTEXT((A2 = 9),H,'￣'),linethick2,ALIGN1,colorcyan;
- DRAWTEXT((A2 = 9),H+0.38,'S'),linethick5,colorcyan;
- STICKLINE((A2 = 9),C,O,0,0),colorwhite;
- STICKLINE((A2 = 9),C,O,8,0),colorwhite;
- STICKLINE((A2 = 9),C,O,7,0),ColorDDDDDD;
- STICKLINE((A2 = 9),C,O,6,0),ColorCCCCCC;
- STICKLINE((A2 = 9),C,O,5,0),colorwhite;
- 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),colorwhite;
- 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,'△'),linethick2,ALIGN1,coloryellow;
- DRAWTEXT(A7,H,'○'),linethick3,colorgreen;
- 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,'◇'),linethick4,ALIGN1,coloryellow;
- DRAWTEXT((A20 = 1),L,'◇'),linethick4,ALIGN1,colorwhite;
- A23:=((C + L) + H) / 3;
- A24:=EMA(A23,6);
- A25:=EMA(A24,5);
- A26:=CROSS(A24,A25);
- DRAWICON(A26,(LOW / 1.005),3),linethick2,ALIGN1,colormagenta;
- STICKLINE(((C >=工作线MA14) AND (C >= O)),H,L,0.5,1),colorred;
- STICKLINE(((C >=工作线MA14) AND (C >= O)),O,C,8,1),colorred;
- STICKLINE(((C >=工作线MA14) AND (C <= O)),H,L,0.5,0),colorred;
- STICKLINE(((C >=工作线EMA14) AND (C <= O)),O,C,8,0),colorred;
- STICKLINE(((C < 工作线MA14) AND (C >= O)),H,L,0.5,1),colorgreen;
- STICKLINE(((C < 工作线MA14) AND (C >= O)),O,C,8,1),colorgreen;
- STICKLINE(((C < 工作线MA14) AND (C <= O)),H,L,0.5,0),colorgreen;
- STICKLINE(((C < 工作线MA14) AND (C <= O)),O,C,8,0),colorgreen;
C/C++ www.gszb.com 股票公式指标网提供 Code复制内容到剪贴板
- 凯恩斯通达信公式源码
- A1:=DATE <= 13181231;
- 七天线:MA(C,7),COLORGRAY;
- 工作线:(EMA(C,14)) * A1,POINTDOT,LINETHICK4,COLORYELLOW;
- 生命线:(MA(C,25)) * A1,LINETHICK2,COLORMAGENTA;
- 不惑线:(MA(C,40)) * A1,COLORCYAN;
- 姊妹线:(EMA(C,56)) * A1,,POINTDOT,COLORWHITE;
- 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);
- 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;
- A23:=((C + L) + H) / 3;
- A24:=EMA(A23,6);
- A25:=EMA(A24,5);
- A26:=CROSS(A24,A25);
- DRAWICON(A26,(LOW / 1.015),1),LINETHICK2,COLORMAGENTA;
- DRAWTEXT(CROSS(A4,A3),L*0.9,'线上阴线买|买错也要买!线下阳线卖|卖错也要卖!'),LINETHICK4,COLORYELLOW;
- STICKLINE(((C >= 工作线) AND (C >= O)),H,L,0,1),COLORRED;
- STICKLINE(((C >= 工作线) AND (C >= O)),O,C,2,1),COLORRED;
- STICKLINE(((C >= 工作线) AND (C <= O)),H,L,0,0),COLORRED;
- STICKLINE(((C >= 工作线) AND (C <= O)),O,C,2,0),COLORRED;
- STICKLINE(((C < 工作线) AND (C >= O)),H,L,0,1),COLORGREEN;
- STICKLINE(((C < 工作线) AND (C >= O)),O,C,2,1),COLORGREEN;
- STICKLINE(((C < 工作线) AND (C <= O)),H,L,0,0),COLORGREEN;
- STICKLINE(((C < 工作线) AND (C <= O)),O,C,2,0),COLORGREEN;