春节期间、各大论坛都在讨论一个不能使用的【凯恩斯工作线】，本论坛也有此类帖。

千钧经过对源码的认真研究及分析，感觉凯恩斯先生的操作思路与千钧有相同之处，此工作线注重波段操作、未提倡短线搏杀。因此，引起了千钧对他的工作线进行优化的兴趣。

但凯恩斯本人并没有给出【CPZB】DLL文件、这就使得这个指标基本等于无效的废品指标、与其它类似的指标没什么两样！

千钧通过对源码的认真解读、在不违背原创作者的创作意图的前提下、写了一个DLL文件、引用到指标中发现可以基本满足原创作者想要表达的意图，并对源码做了优化。既是工作线，就应当突出三条主要操作线的含义。
所以、去除了与源码思路不大相干的东西、简化了源码、使其更加直观、实用。

为便于大部分朋友都能使用、千钧将DLL文件转化成为引用公式、便于不会使用DLL文件的朋友、也能使用该指标。

为对原创作者凯恩斯先生的劳动成果予以充分的尊重！引用公式是完全加密的。无时限。

注意！
你必须首先导入引用公式、然后才能导入公式源码。否则、无法导入源码！

图示：

2.gif (14.9 KB)

2008-2-12 09:16

1.gif (15.89 KB)

2008-2-12 09:16

引用公式：

CPZB.ALG (445 Bytes)

CPZB.ALG (445 Bytes)
下载次数: 2986

2008-2-12 09:16

【凯恩斯工作线】一发千钧优化版！

DRAWTEXTEX(c,1,4,0,'流通A股:'+NUMTOSTR(FINANCE(7),0)+'万'+' 市净率:'+NUMTOSTR((C/FINANCE(31)),2)+' 昨:'+NUMTOSTR(DYNAINFO(3),2)+' 开:'+NUMTOSTR(DYNAINFO(4),2)+' 高:'+NUMTOSTR(DYNAINFO(5),2)+' 低:'+NUMTOSTR(DYNAINFO(6),2)+' 收:'+NUMTOSTR(DYNAINFO(7),2)),colorWhite;
DRAWTEXTEX(c,1,4,80,''+'涨幅:'+NUMTOSTR((DYNAINFO(14) * 100),2)+'%'+' 振幅:'+NUMTOSTR((DYNAINFO(13) * 100),2)+'%'+' 换手率:'+NUMTOSTR((DYNAINFO(37) * 100),2)+'%'),color00FFFF;
DRAWTEXTEX(c,1,630,80,'凯恩斯工作线 | 一发千钧优化'),color00FFFF;
DRAWTEXTEX(c,1,4,160,'黄点工作线 '),colorYellow;
DRAWTEXTEX(c,1,4,560,'粉色K线    |  大量放出'),colorMagenta;
DRAWTEXTEX(c,1,4,640,'多空止赢   |  停损线'),colorMagenta;
DRAWTEXTEX(c,1,4,240,'线上:工作  |  线下:休息'),color00FFFF;
DRAWTEXTEX(c,1,120,160,' | 最低点靠近工作线低吸'),colorYellow;
DRAWTEXTEX(c,1,420,80,STKLABEL+' '+STKNAME),Color00FFFF;
DRAWTEXTEX(c,1,4,480,'空心:阳线  |  实体:阴线'),color0000FF;
DRAWTEXTEX(c,1,4,320,'线上阴线买 | 买错也要买'),color00FFFF;
DRAWTEXTEX(c,1,4,400,'线下阳线卖 | 卖错也要卖'),color00FFFF;
七天线:MA(C,7),ColorFFFFFF;
工作线:(EMA(C,14)),POINTDOT,linethick4,coloryellow;
生命线:(MA(C,25)),linethick2,colorFF00FF;
长线启动点:(MA(C,99)),CIRCLEDOT,ColorEEBBEE;
A0:="cpzb.zp";
A1:="cpzb.cp";
A2:="cpzb.DP";
STICKLINE((A2>=2.1),H,L,0.8,1),colorGreen;
STICKLINE(((A2>=2.1) AND (C>REF(C,1))),O,C,8,1),colorGreen;
STICKLINE(((A2>=2.1) AND (C<REF(C,1))),C,O,8,0),colorGreen;
STICKLINE(((A2>0) AND (A2<5)),H,L,0.8,1),colorRed;
STICKLINE((((A2>0) AND (A2<5)) AND (C>REF(C,1))),O,C,8,0),colorRed;
STICKLINE((((A2>0) AND (A2<5)) AND (C<REF(C,1))),C,O,8,1),colorRed;
STICKLINE(((C>=工作线) AND (C>REF(C,1))),H,L,0.5,1),colorRed;
STICKLINE(((C>=工作线) AND (C>REF(C,1))),O,C,8,1),colorRed;
STICKLINE(((C>=工作线) AND (C<REF(C,1))),H,L,0.5,0),colorRed;
STICKLINE(((C>=工作线) AND (C<REF(C,1))),O,C,8,0),colorRed;
STICKLINE(((C<工作线) AND (C>REF(C,1))),H,L,0.5,1),colorGreen;
STICKLINE(((C<工作线) AND (C>REF(C,1))),O,C,8,1),colorGreen;
STICKLINE(((C<工作线) AND (C<REF(C,1))),H,L,0.5,0),colorGreen;
STICKLINE(((C<工作线) AND (C<REF(C,1))),O,C,8,0),colorGreen;
DRAWTEXT(A0,L,'￣￣'),linethick2,ALIGN1,ColorFFFFFF;
DRAWTEXT(A0,L*0.98,' B-B'),linethick5,ALIGN1,colorFFFFFF;
DRAWTEXT(A1,H,'￣￣'),linethick2,ALIGN1,colorcyan;
DRAWTEXT(A1,H*1.03,' S-S'),linethick5,colorcyan;
STICKLINE(A1,C,O,8,0),colorFFFF00;
STICKLINE(A1,H,L,1,0),colorFFFF00;
STICKLINE(A0,C,O,8,0),ColorFFFFFF;
STICKLINE(A0,H,L,1,0),ColorFFFFFF;
STICKLINE((A2>=10 and A2<30),C,O,0,0),ColorFFBBFF;
STICKLINE((A2>=10 and A2<30),C,O,8,0),colorMagenta;
STICKLINE((A2>=10 and A2<30),C,O,7,0),ColorFF22FF;
STICKLINE((A2>=10 and A2<30),C,O,6,0),ColorFF44FF;
STICKLINE((A2>=10 and A2<30),C,O,5,0),ColorFF66FF;
STICKLINE((A2>=10 and A2<30),C,O,4,0),ColorFF88FF;
STICKLINE((A2>=10 and A2<30),C,O,3,0),ColorFF99FF;
STICKLINE((A2>=10 and A2<30),C,O,2,0),ColorFFAAFF;
STICKLINE((A2>=10 and A2<30),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,'◇'),ALIGN1,colorYellow;
DRAWTEXT((A20 = 1),L,'◇'),ALIGN1,colorWhite;

朋友们要的选股公式：
股价站上工作线，MACD地位金叉选股：

工作线:=EMA(C,14);
qj2:="macd.diff";
qj3:="macd.dea";
C>工作线 and CROSS(qj2,qj3) and qj3<0

[ 本帖最后由 一发千钧 于 2008-2-19 00:52 编辑 ]

难道这就是传说中的沙发！？？谢谢千钧老师！！！

谢谢老师又发好指标，祝老师新年快乐，身体安康，万事如意。。。。。

和第一版略有差别，学习学习再学习

希望千均的劳动，能给大家带来福音。　

在凯恩斯看盘一书有介绍，就是一根均线，没有什么特别。这线你可认为是7日均线，也可认为是21日均线。。。。。。

[ 本帖最后由 王益群 于 2008-2-12 09:40 编辑 ]

谢谢老师，收下了。

希望千均的劳动，能给大家带来福音。

谢谢老师的指标，好好学习.

谢谢老师又发好指标，祝老师新年快乐，身体安康，万事如意。。。。。

谢谢老师的指标，好好学习.

谢谢老师又发好指标，祝老师新年快乐，身体安康，万事如意。。。。。

谢谢老师又发好指标，祝老师新年快乐，身体安康，万事如意。。。。。

感谢千钧老师，祝老师新年快乐，万事如意！

谢谢老师又发好指标，祝老师新年快乐，身体安康，万事如意。。。。。