改良的大智慧BS决策主图公式(大智慧)

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;