Var1A:=EMA(CLOSE,5)*0.900*100;
Var2A:=VOL/CAPITAL*100;
Var3A:=Var1A-Var2A;
Var4A:=Var3A<1;
Var5A:=Var3A>=1 AND Var3A<5;
Var6A:=Var3A>=5 AND Var3A<10;
Var7A:=Var3A>=10 AND Var3A<25;
Var8A:=Var3A>=25;
极弱股:=IF(Var4A, (-10), 0),COLORff3399, STICK;
弱势股:=IF(Var5A, (-5), 0),coloryellow, STICK;
转型股:=IF(Var6A, 5, 0),COLOR0066FF, STICK;
强势股:=IF(Var7A, 10, 0),colorgreen, STICK;
主升浪:IF(Var8A, 15, 0),colorffff00, STICK;
//{中期见顶原码 }
庄筹:EMA(WINNER(C)*70,5),colorwhite;
散筹:EMA((WINNER(C*1.1)-WINNER(C*0.9))*80,5),colorgreen;
cc:=FILTER( (CROSS(5,庄筹) AND 散筹<20 )*60,10 );
抄底:cc,coloryellow;
DRAWTEXT(cc ,11 ,'抄底' ) ,coloryellow;
aa:= REF(庄筹,30)>40 OR REF(庄筹,20)>40;
bb:=CROSS(28,庄筹) AND 散筹>40 AND aa=1 AND LLV(L,60)>LLV(L,250);
洗盘:IF(bb ,30 ,60 );
DRAWTEXT(FILTER(bb,4),66 ,'洗盘') ;
DRAWTEXT(庄筹>60,58,'★'),colorred;
STICKLINE(庄筹<散筹 AND 散筹<60,散筹,55,1,0),colorgreen;
STICKLINE(庄筹>散筹,散筹,50,1,0),colorred;
STICKLINE(庄筹<散筹,庄筹,0,0,0),coloryellow;
Var1:=EMA(EMA(CLOSE,13),13);
控盘:=(Var1-REF(Var1,1))/REF(Var1,1)*1000,colorffcccc,POINTDOT;
STICKLINE(控盘<0,控盘,0,4,0),colorwhite;
无庄:控盘<0,colorwhite;
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,4,1),colorred;
有庄: 控盘>REF(控盘,1) AND 控盘>0,colorred;
Var2:=100*WINNER(CLOSE*0.95);
STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,4,0),color00ff00;
出货: 控盘<REF(控盘,1) AND 控盘>0,color00ff00;
STICKLINE(Var2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,4,0),colorff00ff;
高控: Var2>50 AND COST(85)<CLOSE AND 控盘>0,colorff00ff;
a10:=CROSS(控盘,0);
开控:IF(a10,6,0),coloryellow;
//主力升浪: 开始控盘 AND 高度控盘;
//SELECT 主力升浪;
//月金叉MACD 20150516
月DIF:=EMA(CLOSE,223)-EMA(CLOSE,479),colorgreen;
月DEA:=EMA(月DIF,135),colormagenta;
月金叉MACD:=CROSS(月DIF,月DEA);
DRAWTEXT(FILTER(月金叉MACD,4) ,66 ,'☆月MACD' ),colormagenta ;
