%> 改良的大智慧BS决策主图公式_
改良的大智慧BS决策主图公式 2380

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;



 

{股票教程网-承接通达信软件和公式破解,普通加密破解,完全加密破解,导入密码破解,时间限制破解,公式编写,可按您的要求写公式指标,价格按难度不同报价,有需要可以找我们}