最新整理通達信公式-凱恩斯工作線

引用指標【通達信指標用】
CPZB
X0:=IF(C>=REF(C,1),AMOUNT/10000,0);
X1:=IF(C<REF(C,1),AMOUNT/10000,0);
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:="CPZB.ZP";
A1:="CPZB.CP";
A2:="CPZB.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<REF(C,1))),C,O,3,0),COLORGREEN;
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<REF(C,1))),C,O,3,1),COLORRED;
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<REF(C,1))),H,L,0,0),COLORRED;
STICKLINE(((C>=工作線) AND (C<REF(C,1))),O,C,3,0),COLORRED;
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<REF(C,1))),H,L,0,0),COLORGREEN;
STICKLINE(((C<工作線) AND (C<REF(C,1))),O,C,3,0),COLORGREEN;
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.6,0),COLORFF22FF;
STICKLINE((A2>=10 AND A2<30),C,O,2.2,0),COLORFF44FF;
STICKLINE((A2>=10 AND A2<30),C,O,1.8,0),COLORFF66FF;
STICKLINE((A2>=10 AND A2<30),C,O,1.4,0),COLORFF88FF;
STICKLINE((A2>=10 AND A2<30),C,O,1,0),COLORFF99FF;
STICKLINE((A2>=10 AND A2<30),C,O,0.6,0),COLORFFAAFF;
STICKLINE((A2>=10 AND A2<30),C,O,0,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,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,'◇'),COLORYELLOW;
DRAWTEXT((A20 = 1),L,'◇'),COLORWHITE;

凱恩斯通達信公式源碼：

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;