variable:p1=0;
DRAWTEXTABS(10,10,STKLABEL+' '+STKNAME+' '+BKNAME),ColorFFaaBE;
DD5:=FINANCE2( 35);
SS5:=FINANCE2( 37);
FF5:=FINANCE2(18);
GG5:=FINANCE2(3);
HH5:=DYNAINFO(39);
DRAWTEXTREL(16,144,'市盈率:'+NUMTOSTRN(HH5,2)+'%'+' 每股收益:'+NUMTOSTRN(GG5,3)),ColorFFaaBE;
IF C>0 AND DISPSTATUS=2 THEN
DRAWTEXTREL(16,100,'总股本:'+NUMTOSTRN(DD5,0)+'万股' +' 流通A股:'+NUMTOSTRN(SS5,0)+'万股'),ColorFFaaBE;
攻击线:MA(CLOSE,6),COLOR0099af,DOTLINE;
三日线:=MA(CLOSE,3);
操盘线:MA(CLOSE,10);
魔鬼线:MA(CLOSE,18),ColorC400C4,DOTLINE;
生命线:MA(CLOSE,30);
MA40:=MA(CLOSE,40);
决策线:MA(CLOSE,60);
趋势线:MA(CLOSE,120);
年线线:MA(CLOSE,260),COLOR0099cf;
STICKLINE(三日线<=攻击线 AND 三日线<攻击线,攻击线,三日线,1,0),Color00D269;
STICKLINE(攻击线>=决策线 AND 决策线>=操盘线,操盘线,决策线,1,0);
STICKLINE(攻击线>=操盘线 AND 攻击线<=决策线,操盘线,攻击线,1,0);
STICKLINE(魔鬼线>=决策线 AND 决策线>=MA40,MA40,决策线,1,0),Color6C00D9;
STICKLINE(魔鬼线>=MA40 AND 魔鬼线<决策线,MA40,魔鬼线,1,0);
STICKLINE(攻击线>=魔鬼线 AND 魔鬼线>=操盘线,操盘线,魔鬼线,1,0);
STICKLINE(攻击线>=操盘线 AND 攻击线<魔鬼线,操盘线,攻击线,1,0);
a:=MA(CLOSE,7);
STICKLINE(三日线>=攻击线 AND a>=a,攻击线,a,1,0),Color00DBDB;
STICKLINE(三日线>=攻击线 AND 操盘线>=攻击线,攻击线,a,4,0),color4EE4CA;
PARTLINE(操盘线,(操盘线>REF(操盘线,1))),LINETHICK2;
PARTLINE(生命线,(生命线>REF(生命线,1))),LINETHICK2;
AA1:=AMOUNT/V;
BB1:=L<AA1*0.9;
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;
DD1:=L<MA(C,5)*0.921;
EE1:=V<MA(V,5)*1.5;
老鼠仓:BB1 AND CC1 AND DD1 AND EE1,LINETHICK0,COLOR0099ff;
DRAWTEXT(老鼠仓,l*0.99,' ⊙'),COLOR0099ff;
STICKLINE(老鼠仓,H,L,2,0),COLOR0099ff;
v1:=ema(close,5);
v2:=ema(ema(close,90)*1.01,10);
VAR1:=LLV(LOW,21);
VAR2:=HHV(HIGH,21);
AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);
AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);
AB:=CROSS(AK1,AK);
DRAWICON(cross(v1,v2),v2,4);
DRAWTEXT((AB = 1),(LOW * 0.99),'○'),colorYELLOW;
c1:=INTPART(cyc(5)*100*0.96)/100;
p2:=intpart(ref(cyc(5),1)*100)/100;
p3:=intpart(ref(cyc(5),1)*0.96*100)/100;
vv:=intpart(min(capital*0.05,ref(ma(vol,34),1))/100);
p40:=intpart(maxcyc*100)/100;
p41:=intpart(ref(MAXCYC,1)*100)/100;
p4:=p1=0 and c>p2 or (ref(vol/100,1)<vv and c>intpart(p2*0.98*100)/100 and vol>min(capital*0.05,ref(ma(vol,34),1)));
p5:=p1=1 and c<min(p3,p41);
p1:=if(p4=1,1,if(p5=1,0,ref(p1,1)));
DRAWTEXT(cross(p1,0),l*1,'B'),coloryellow,LINETHICK3;
DRAWFLAGTEXT(p1=0 and (p2*0.98-c)/c>0.1,c,'持币');
DRAWFLAGTEXT(p1=0 and (p2*0.98-c)/c<=0.1 and ref(vol/100,1)<vv,c,'明日收盘价超过'+str(p2)+';或收盘价超过'+str(intpart(p2*0.98*100)/100)+'且成交量大于'+str(vv)+'买入');
DRAWFLAGTEXT(p1=0 and (p2*0.98-c)/c<=0.1 and ref(vol/100,1)>=vv,c,'明日收盘价超过'+str(p2)+'买入');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)>0.1 ,c,'持股');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)<=0.1 ,c,'明日收盘价跌破'+str(min(c1,p40))+'卖出');;
{---------------------------------------------------------------------};
源码净 :="大额日线.主力#day";
特买:="大额日线.特买#day";
特卖:="大额日线.特卖#day";
大买:="大额日线.大买#day";
大卖:="大额日线.大卖#day";

大净:=大买-大卖;
特净:=特买-特卖;
★主力净:=特净+大净;
DRAWTEXTABS(222 ,30 ,'★主力净 '+★主力净),ColorFFaaBE;
DRAWTEXTABS(320,23,'【心不不住于身 身亦不住心㊣应观法界性 一切唯心造】'),LINETHICK3,ColorFFcdBE;
DRAWTEXTABS(550,5,'【觉林菩萨偈】'),LINETHICK3,ColorFFaaBE;
DRAWTEXTABS(150,312,'【心如工画师．能画诸世间㊣五蕴悉丛生．无法而不造㊣】'),LINETHICK3,ColorFFaaBE;