{均價:=(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;

上一頁  [1] [2]