相關標簽:

?

{BS決策優化}
a:="LTFunc4@FORLT2";
s1:="LTFunc4@LT_S1";
hs:="LTFunc4@LT_HS";
ls:="LTFunc4@LT_LS";
p1:="LTFunc4@LT_P1";
upp:="LTFunc4@LT_UPP";
udd:="LTFunc4@LT_UDD";

{hs;ls;hhs;lls;us;ds;s1;p1;p0;upp;udd};
TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT AND TIME0<55800;
AODAY:=bigorder(1,1)=0 and bigorder(2,1)=0;
cxh0:=MIN(COUNT(ORDER(2),0),P1);

ZDDR:=selfdata('大單買入');
ZDDC:=selfdata('大單賣出');
ZDTR:=selfdata('特大買入');
ZDTC:=selfdata('特大賣出');

SSTR:=IF(AODAY,"DDE@BIGORDER"(1,3),bigorder(1,3));
SSTC:=IF(AODAY,"DDE@BIGORDER"(2,3),bigorder(2,3));
SSDR:=IF(AODAY,("DDE@BIGORDER"(1,2)-"DDE@BIGORDER"(1,3)),(bigorder(1,2)-bigorder(1,3)));
SSDC:=IF(AODAY,("DDE@BIGORDER"(2,2)-"DDE@BIGORDER"(2,3)),(bigorder(2,2)-bigorder(2,3)));

SZDR:=IF(AODAY,ZDDR,(bigorder(1,2)-bigorder(1,3)));
SZDC:=IF(AODAY,ZDDC,(bigorder(2,2)-bigorder(2,3)));
SZTR:=IF(AODAY,ZDTR,bigorder(1,3));
SZTC:=IF(AODAY,ZDTC,bigorder(2,3));

DDLR:=IF(TODAY,IF(SSDR=0,SZDR,SSDR),SZDR);
DDLC:=IF(TODAY,IF(SSDC=0,SZDC,SSDC),SZDC);
TDLR:=IF(TODAY,IF(SSTR=0,SZTR,SSTR),SZTR);
TDLC:=IF(TODAY,IF(SSTC=0,SZTC,SSTC),SZTC);

ZLLR:=TDLR+DDLR;
ZLLC:=TDLC+DDLC;
ZLJL:=(ZLLR-ZLLC);
DDX:=ZLJL*vol/capital*100;

d1:=ema(abs(DDX),60);
d2:=max(DDX/d1+7.5,7.5);
d3:=min(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;

zz:=(o+h+l)/3;
hjmd:EMA(zz,4),COLORYELLOW,LINETHICK1;
xxb:=CLOSE*VOL;
xxbym:EMA((EMA(xxb,3)/EMA(VOL,3)+EMA(xxb,6)/EMA(VOL,6)+EMA(xxb,12)/EMA(VOL,12)+EMA(xxb,24)/EMA(VOL,24))/4,13),colorff00ff,LINETHICK0;
愛心:=EMA(CLOSE,13)-EMA(CLOSE,55);
無價:=EMA(愛心,3);
PARTLINE(xxbym,愛心>=無價,RGB(255,0,0),1,RGB(0,255,0)),LINETHICK3;{程序化交易 www.kzuj.com.cn }

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?