{均價:=(HIGH+4*LOW+OPEN+CLOSE)/7;
均價差:= EMA(均價,13) - EMA(均價,34);
移動均價:= EMA(均價差,5);
差:=(均價差-移動均價)*5;
A:=IF(差>=1000 ,1000 ,IF(差<=均價,均價,差) );}
買線:EMA(C,2),pointdot,color0000DD;
賣線:EMA(SLOPE(C,21)*20+C,42),pointdot,color00DD00;
BU:=cross(買線,賣線);
SEL:=cross(賣線,買線);
drawtext(bu,LOW-0.5,'買'),coloryellow,LINETHICK3;
drawtext(sel,HIGH+0.5,'賣'),colorgreen,linethick3;
DRAWicon(BU,l-0.2,7),LINETHICK5;
DRAWicon(SEL,h+0.2,8),LINETHICK5;
{十字光標提示}
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)));
DRAWFLAGTEXT(p1=0 and (c1*0.98-c)/c>0.1,c,'<*t=0092F7*><*c=FFFFFF*><*p=95*>'+datestr(date)+'\n'+'<*t=E7FFFF*><*c=111100*><*p=95*>'+'持幣');
DRAWFLAGTEXT(p1=0 and (c1*0.98-c)/c<=0.1 and ref(vol/100,1)<vv,c,'<*t=0092F7*><*c=FFFFFF*><*p=95*>'+datestr(date)+'\n'+'<*t=E7FFFF*><*c=111100*><*p=95*>'+'明日收盤價超過'+str(c1)+'元;'+'\n'+'<*t=E7FFFF*><*c=111100*><*p=95*>'+'或收盤價超過'+str(intpart(c1*0.98*100)/100)+'元;'+'\n'+'<*t=E7FFFF*><*c=111100*><*p=95*>'+'并且成交量大于'+str(vv)+'<*c=0000FF*>'+'買入');
DRAWFLAGTEXT(p1=0 and (c1*0.98-c)/c<=0.1 and ref(vol/100,1)>=vv,c,'<*t=0092F7*><*c=FFFFFF*><*p=95*>'+datestr(date)+'\n'+'<*t=E7FFFF*><*c=111100*><*p=95*>'+'明日收盤價超過'+str(c1)+'<*c=0000FF*><*p=99*>'+'買入');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)>0.1 ,c,'<*t=0092F7*><*c=FFFFFF*><*p=95*>'+datestr(date)+'\n'+'<*t=E7FFFF*><*c=111100*><*p=95*>'+'持股');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)<=0.1 ,c,'<*t=0092F7*><*c=FFFFFF*><*p=95*>'+datestr(date)+'\n'+'<*t=E7FFFF*><*c=111100*><*p=95*>'+'明日收盤價跌破'+str(min(c1,p40))+'賣出');
DRAWTEXTABS(45,0,' QQ:512764231制作'),COLOR0000FF;
(南方財富網(wǎng)SOUTHMONEY.COM)