IF(FINANCE2(37)/10000>=100) THEN BEGIN DRAWTEXTabs(0,270,'【超大盘0.7%】'+FINANCE2(37)/10000+'亿股 '),LINETHICK2,ColorFF00FF; end; IF(FINANCE2(37)/10000<100 and FINANCE2(37)/10000>=10) THEN BEGIN DRAWTEXTabs(0,270,'【大盘股9.0%】'+FINANCE2(37)/10000+'亿股 '),LINETHICK2,ColorFF00FF; end; IF(FINANCE2(37)/10000<10 and FINANCE2(37)/10000>=5) THEN BEGIN DRAWTEXTabs(0,270,'【中盘股12.7%】'+FINANCE2(37)/10000+'亿股 '),LINETHICK2,ColorFF00FF; end; IF(FINANCE2(37)/10000<5 and FINANCE2(37)/10000>=1) THEN BEGIN DRAWTEXTabs(0,270,'【小盘股55.3%】'+FINANCE2(37)/10000+'亿股 '),LINETHICK2,ColorFF00FF; end; IF(FINANCE2(37)/10000<1) THEN BEGIN DRAWTEXTabs(0,270,'【超小盘22.3%】'+FINANCE2(37)/10000+'亿股 '),LINETHICK2,ColorFF00FF; end;
a:="LTFunc5@FORLT2"; s1:="LTFunc5@LT_S1"; hs:="LTFunc5@LT_HS"; ls:="LTFunc5@LT_LS"; p1:="LTFunc5@LT_P1"; upp:="LTFunc5@LT_UPP"; udd:="LTFunc5@LT_UDD";
{hs;ls;hhs;lls;us;ds;s1;p1;p0;upp;udd}; 买入:p1=1 and ref(p1,1)=0,LineThick0,Precis0,ColorRed; d1:=ema(abs("ddx.ddx"),60); d2:=max("ddx.ddx"/d1+7.5,7.5); d3:=min("ddx.ddx"/d1,10); fb:=if(s1=0,hs,ls); tr0:=ifs(p1=1,'明日收盘价<'+numtostrn(udd,2)+',出现S点\n','若明日收盘价> '+numtostrn(upp,2)+',出现B点\n'); tr1:=ifs(s1=1,'明日收盘价<'+numtostrn(ls,2)+',短线卖出机会','若明日收盘价> '+numtostrn(hs,2)+'短线买入机会'); tr2:=ifs(p1=1,ifs(cross(p1,0),'B点','持股'),ifs(cross(1,p1),'S点','持币')); tr3:=ifs(s1=0,'向下,','向上,'); tr4:='3.能量级别:'+numtostrn(d3,1)+'级';
bs:=''+datestr(date)+'买卖点决策系统提示\n'+'1.BS点:'+tr2+','+tr0+'2.短线:'+tr3+tr1+'\n'+tr4; drawflagtext(1,fb,bs);
STICKLINE(p1=1 and c>=o and o<>0,c,o,d2,0),color5454ff; STICKLINE(p1=1 and c>=o and o<>0,c,o,7.5,0),colorblack; STICKLINE(p1=1 and c>=o and o<>0,c,c,7.5,0),color5454ff; STICKLINE(p1=1 and c>=o and o<>0,o,o,7.5,0),color5454ff; STICKLINE(p1=1 and c>=o and o<>0,o,c,7.5,1),color5454ff; STICKLINE(p1=1 and c<=o,o,c,7.5,1),color5454ff; STICKLINE(p1=1 and c<=o,l,c,0.5,1),color5454ff; STICKLINE(p1=1 and c<=o,h,o,0.5,1),color5454ff;
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,c,o,7.5,1),colorffff54; STICKLINE((p1<>1 or barscount(c)<3) and c>=o,c,h,0.5,1),colorffff54; STICKLINE((p1<>1 or barscount(c)<3) and c>=o,l,o,0.5,1),colorffff54;
drawbmp(p1=1 and ref(p1,1)=0,l,'buy1.bmp'),align1,valign0; drawbmp(p1=0 and ref(p1,1)=1,h,'sell1.bmp'),align1,valign2;
drawbmp(s1=1 and ref(s1,1)=0 and (p1+ref(p1,1))<>1,l,'bs.bmp'),align1,valign0; drawbmp(s1=0 and ref(s1,1)=1 and (p1+ref(p1,1))<>1,h,'ss.bmp'),align1,valign2;
{45度异动} x1:=(C+L+H)/3; bb13:=atan(ema(x1,13)-ref(ema(x1,13),1))*3.1416*10; ema8:=ema(c,8); DRAWTEXT(filter(bb13>1 and ema(x1,13)>ref(ema(x1,8),1),10), ema8,'∠45上升'),coloryellow;
STICKLINE(CLOSE<OPEN and ref(CLOSE,1)>ref(OPEN,1),ref(close,1),ref(close,1),28,0),COLORAAAAFF,LINETHICK1;
cc:=(h-c)/(c-o)<0.33; dd:=(c/ref(c,1)-1)>=0.0502 and c>ref(c,1) and (o-l)/(c-o)>=1.48 and l<ref(l,1) and l<ref(l,2); ee:=(c/ref(c,1)-1)>=0.08; aa:=VOL>REF(VOL,1)*1.9 and c>ref(c,1) and c/ref(c,1)-1>=0.049 and cc; bb:=(c/ref(c,1)-1)>=0.0502 and c>ref(c,1) and v>ref(v,1) and VOL>REF(VOL,1)*2.5 and cc; DRAWTEXT(FILTER(aa or bb or dd or ee,34),l,'↖异动'),COLOrffff00;
DD:=FINANCE2(35); SS:=FINANCE2(37); GG:=FINANCE2(3); TH:=DYNAINFO(39); DRAWTEXTREL(1,920,'总股本:'+NUMTOSTRn(DD,0)+'万股' +' 流通A股:'+NUMTOSTRn(SS,0)+'万股'+'市盈率:'+NUMTOSTRn(TH,2)+' 倍'+' 每股收益:'+NUMTOSTRn(GG,3)+' 元'),ColorFFFF00; gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100); 明日阻力:=l+(gj-l)+(c-l); 明日支撑:=l+(c-gj); 今日阻力:=REF(明日阻力 , 1); 今日支撑:=REF(明日支撑 , 1); STICKLINE(DISPSTATUS=2 and c>=今日阻力,今日阻力,今日阻力,20,0),Color0000FF; STICKLINE(DISPSTATUS=2 and c<今日阻力,今日阻力,今日阻力,20,0),Color00FF00; STICKLINE(DISPSTATUS=2 and c>=今日支撑,今日支撑,今日支撑,20,0),ColorFF00FF; STICKLINE(DISPSTATUS=2 and c<今日支撑,今日支撑,今日支撑,20,0),ColorFF9900; DRAWTEXTREL(850,950,'今日支撑:'+NUMTOSTRN(今日支撑 ,2 )),Colorred; DRAWTEXTREL(700,950,'今日阻力:'+NUMTOSTRN(今日阻力 ,2 )),ColorGREEN; DRAWTEXTREL(1,870,'所属板块:'+BKNAME),ColorAFFF00; DRAWTEXTREL(1,820,'每股收益:'+NUMTOSTRN(FINANCE2(3),3)+'元'+' 市盈率:'+NUMTOSTRN(DYNAINFO(39),2)+'元'+' 市净率:'+NUMTOSTRN((CLOSE / FINANCE2(4)),2)+'元'+' 净资产:'+NUMTOSTRN(FINANCE2(4),2)+'元'),Color00C0FF;
{ 未来波段 } GET:ZIG(3,3),COLORYELLOW; PL5:=ZIG(3,5); EN1:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3); EX1:=ZIG(3,5)<REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)>=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3); PL10:=ZIG(3,10); EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3); EX2:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3); PL20:=ZIG(3,20); EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3); EX3:=ZIG(3,20)<REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)>=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)>=REF(ZIG(3,20),3); PL40:=ZIG(3,40); 走强1:=BARSLAST(PL5<REF(PL5,1)); 走弱1:=BARSLAST(PL5>REF(PL5,1)); 走强2:=BARSLAST(PL10<REF(PL10,1)); 走弱2:=BARSLAST(PL10>REF(PL10,1)); 走强3:=BARSLAST(PL20<REF(PL20,1)); 走弱3:=BARSLAST(PL20>REF(PL20,1)); ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强2),0); ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强2),0); DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱2),0); DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱2),0); ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走强3),0); ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强3),0); DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0); DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱3),0); DRAWTEXT(EN1 AND DTJZ5=1,L*0.98,'(A)'),COLORFFFF00; DRAWTEXT(EX1 AND DTJD5=2,H*1.02,'(B)'),COLORFF00FF; DRAWTEXT(EN2 AND ZTJZ5=1,L*0.99,'(C)'),COLOR0000FF; DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,H*1.02,'⑴'),COLOR0000FF; DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,L*0.98,'⑵'),COLOR0000FF; DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,H*1.02,'⑶'),COLOR0000FF; DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L*0.98,'⑷'),COLOR0000FF; DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.02,'⑸'),COLOR0000FF; DRAWTEXT(EN2 AND DTJZ10=1,L*0.93,'Ⅰ'),COLORFF00FF; DRAWTEXT(EX2 AND DTJD10=2,H*1.05,'Ⅱ'),COLORFFFF00; DRAWTEXT(EN3 AND ZTJZ10=1,L*0.93,'Ⅲ'),COLOR0000FF; DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.03,'①'),LINETHICK3,COLOR00FFFF; DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.96,'②'),LINETHICK3,COLOR00FFFF; DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H*1.03,'③'),LINETHICK3,COLOR00FFFF; DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,L*0.96,'④'),LINETHICK3,COLOR00FFFF;
vv:=-30; 特买单:="丰赢数据.特买单#MIN1"; 大买单:="丰赢数据.大买单#MIN1"; 中买单:="丰赢数据.中买单#MIN1"; 小买单:="丰赢数据.小买单#MIN1"; ub:=特买单+大买单+中买单+小买单;
特卖单:="丰赢数据.特卖单#MIN1"; 大卖单:="丰赢数据.大卖单#MIN1"; 中卖单:="丰赢数据.中卖单#MIN1"; 小卖单:="丰赢数据.小卖单#MIN1";
流入额:="丰赢数据.流入额#MIN1"; 流出额:="丰赢数据.流出额#MIN1";
总流入:="丰赢数据.总流入#MIN1"; 总流出:="丰赢数据.总流出#MIN1"; 买力合计:="丰赢数据.买力合计#MIN1"; 卖力合计:="丰赢数据.卖力合计#MIN1"; 流入:(总流入-总流出)/10000,linethick0,color000000; us:=特卖单+大卖单+中卖单+小卖单; u:=ub+us;
DRAWRECTABS(150,15,170,20+特买单/u*100,rgb(222,52,0)),color000099; DRAWRECTABS(180,15,200,20+特卖单/u*100,rgb(49,182,24)),color000000; DRAWRECTABS(210,15,230,20+大买单/u*100,rgb(255,117,0)),color000000; DRAWRECTABS(240,15,260,20+大卖单/u*100,rgb(99,231,74)),color000000; DRAWRECTABS(270,15,290,20+中买单/u*100,rgb(255,186,0)),color000000; DRAWRECTABS(300,15,320,20+中卖单/u*100,rgb(74,243,156)),color000000; DRAWRECTABS(330,15,350,20+小买单/u*100,rgb(239,223,0)),color000000; DRAWRECTABS(360,15,380,20+小卖单/u*100,rgb(189,243,156)),color000000;
DRAWRECTABS(140,16,765,82,0),colorcccc00; DRAWRECTABS(140,13,400,14,rgb(0,200,200)),color00FFFF; DRAWTEXTABS(150,0,'巨买 巨卖 大买 大卖 中买 中卖 小买 小卖'),colorAAAA00;
DRAWRECTABS(395,18,415,80,rgb(0,200,200)),colorcc9900; DRAWTEXTABS(600,vv+55,'委'),color00ffff; DRAWTEXTABS(600,vv+75,'买'),color00ffff; DRAWTEXTABS(600,vv+95,'入'),color00ffff;
DRAWTEXTABS(600,vv+30,'共流入'+总流入/10000+'万元,'+ub+'次'),color0022ee; DRAWTEXTABS(600,vv+38,'──────────────'),color00ffff; DRAWTEXTABS(620,vv+50,'巨额■'+STRRIGHT(' '+NUMTOSTRN(特买单,0),7)+' 占'+STRRIGHT(' '+NUMTOSTRN(特买单/u*100,2),6)+'%'),color0036dd; DRAWTEXTABS(620,vv+65,'大额■'+STRRIGHT(' '+NUMTOSTRN(大买单,0),7)+' 占'+STRRIGHT(' '+NUMTOSTRN(大买单/u*100,2),6)+'%'),COLOR0174fa; DRAWTEXTABS(620,vv+80,'中额■'+STRRIGHT(' '+NUMTOSTRN(中买单,0),7)+' 占'+STRRIGHT(' '+NUMTOSTRN(中买单/u*100,2),6)+'%'),COLOR1ab9ff; DRAWTEXTABS(620,vv+95,'小额■'+STRRIGHT(' '+NUMTOSTRN(小买单,0),7)+' 占'+STRRIGHT(' '+NUMTOSTRN(小买单/u*100,2),6)+'%'),COLOR01ddef;
DRAWRECTABS(595,18,615,80,rgb(200,90,200)),color990099; DRAWTEXTABS(400,vv+55,'委'),color00ffff; DRAWTEXTABS(400,vv+75,'卖'),color00ffff; DRAWTEXTABS(400,vv+95,'出'),color00ffff;
DRAWTEXTABS(400,vv+30,'共流出'+总流出/10000+'万元,'+us+'次'),color00ee22; DRAWTEXTABS(400,vv+38,'─────────────────────'),color00ffff; DRAWTEXTABS(420,vv+50,'巨额■'+STRRIGHT(' '+NUMTOSTRN(特卖单,0),7)+' 占'+STRRIGHT(' '+NUMTOSTRN(特卖单/u*100,2),6)+'%'),color1ab731; DRAWTEXTABS(420,vv+65,'大额■'+STRRIGHT(' '+NUMTOSTRN(大卖单,0),7)+' 占'+STRRIGHT(' '+NUMTOSTRN(大卖单/u*100,2),6)+'%'),COLOR49e560; DRAWTEXTABS(420,vv+80,'中额■'+STRRIGHT(' '+NUMTOSTRN(中卖单,0),7)+' 占'+STRRIGHT(' '+NUMTOSTRN(中卖单/u*100,2),6)+'%'),COLOR9bf149; DRAWTEXTABS(420,vv+95,'小额■'+STRRIGHT(' '+NUMTOSTRN(小卖单,0),7)+' 占'+STRRIGHT(' '+NUMTOSTRN(小卖单/u*100,2),6)+'%'),COLOR9bf1bf;
DRAWTEXTABS(0,0,'净流入额:'+(总流入-总流出)/10000+'万元'),colorAAAAAA; DRAWTEXTABS(0,30,'买力合计:'+买力合计),colorAAAAAA; DRAWTEXTABS(0,45,'卖力合计:'+卖力合计),colorAAAAAA; DRAWTEXTABS(0,60,'买卖次差:'+NUMTOSTRN(ub-us,0)),colorAAAAAA; DRAWTEXTABS(0,15,'占流通盘:'+NUMTOSTRN((总流入-总流出)/CAPITAL,2)+'%'),colorAAAAAA; DDX10:=count("ddx.ddx">0,10); BL2:=sum("散户数量.散户数量",5)*-1; DRAWTEXTABS(0,75,'L2DDX翻红:'+ddx10+'/10'),colorAAAAAA; DRAWTEXTABS(0,90,'L2主力买入:'+bl2+'(五天)'),colorAAAAAA;
DRAWTEXTABS(150,85,'巨额(50万以上成交)大额(20万-50万)中额(5万-20万)小额(5万以下),次数合计超过270以上为无效数据。'),colorFFAA55;
|