之前见到过一段代码，受它启发我自创了庄筹的算法，这算法是其他地方找不到的，大家不妨一试，我也会在实践中检验它的。红绿中短买卖，黄蓝超短买卖，庄线金叉三线是大涨的最大标志之一。目前最成功的地方是对于顶底背离，它做的真心不错！！

AF1:=ABS(WINNER(C)-WINNER(O));

ZF1:=IF(AF1<5,0.2*V,IF(AF1<10,V*0.5,IF(AF1<20,V*0.8,V*0.95)));

T1:=SUMBARS(VOL,5*CAPITAL);

ZF2:=ZF1*(C-O)/IF(O=C,1,ABS(O-C));

ZF3:=SUM(ZF2,T1);

ZF4:=EMA(ZF3/CAPITAL*100+30,9);

PARTLINE(ZF4,ZF4>=REF(ZF4,1),RGB(250,20,0),ZF4<REF(ZF4,1),RGB(02,20,200),1,RGB(222,222,222)),LINETHICK3;

AF2:=STD(ZF4,9);

AF3:=MA(AF2,3);

CON1:=AF2>1.5*REF(AF3,1) AND C>REF(C,1);

CON2:=AF2>1.5*REF(AF3,1) AND C<REF(C,1);

CON3:=AF2<0.5*REF(AF3,1) AND C>REF(C,1);

CON4:=AF2<0.5*REF(AF3,1) AND C<REF(C,1);

STICKLINE(CON1,ZF4,ZF4+5,3,0),colorred;

STICKLINE(CON2,ZF4,ZF4-5,3,0),colorgreen;

STICKLINE(CON3,ZF4,ZF4+3,3,0),coloryellow;

STICKLINE(CON4,ZF4,ZF4-3,3,0),colorblue;

零线:50,COLOR0088EE,linethick2;

地线:20,COLOREE0088,Linethick2;

火线:80,COLOR8800EE,Linethick2;

DRAWTEXT(ISNULL(REFX(&CLOSE,6)) AND NOT(ISNULL(REFX(&CLOSE,5))),50,'中度控股');

DRAWTEXT(ISNULL(REFX(&CLOSE,6)) AND NOT(ISNULL(REFX(&CLOSE,5))),20,'低度控股');

DRAWTEXT(ISNULL(REFX(&CLOSE,6)) AND NOT(ISNULL(REFX(&CLOSE,5))),80,'高度控股');

CON5:=ZF4>MA(ZF4,30) AND ZF4>MA(ZF4,9) AND ZF4>MA(ZF4,3);

CON6:=ZF4>MA(ZF4,30) AND ZF4>MA(ZF4,9) AND ZF4<MA(ZF4,3);

CON7:=ZF4>MA(ZF4,30) AND ZF4<MA(ZF4,9) AND ZF4>MA(ZF4,3);

CON8:=ZF4>MA(ZF4,30) AND ZF4<MA(ZF4,9) AND ZF4<MA(ZF4,3);

CON9:=ZF4<MA(ZF4,30) AND ZF4>MA(ZF4,9) AND ZF4>MA(ZF4,3);

CON10:=ZF4<MA(ZF4,30) AND ZF4>MA(ZF4,9) AND ZF4<MA(ZF4,3);

CON11:=ZF4<MA(ZF4,30) AND ZF4<MA(ZF4,9) AND ZF4>MA(ZF4,3);

CON12:=ZF4<MA(ZF4,30) AND ZF4<MA(ZF4,9) AND ZF4<MA(ZF4,3);

TIP:=IF((CON5),'该股牛劲冲天，请确认自己不会被套',

IF((CON6),'该股可能已达极限，请谨慎投资',IF((CON7),'该股刚经过一段洗盘，有望回弹',

IF((CON8),'该股正走向衰落',IF((CON9),'该股正在力挽狂澜，建议一博',

IF((CON10),'该股走势并不看好',IF((CON11),'该股可能已见底，请结合其他指标验证',

IF((CON12),'该股已无药可救，请节哀顺变，不要影响了心情',1))))))));

该股预测:TIP;

DRAWTEXT_FIX(1,0,0.9,0,'个人建议：股短线请选择中高度控盘的个股，中长线请选择中低控盘，当股价上升庄线下降，则是顶端即将到来，反之则反'),colorligray;