相關標簽:

?

BS決策帶均線，并在當日K線上提示買賣價位，方便操作，公開原碼，有附圖，看了便知，算是對論壇的回報吧。
{主圖}
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";
ma1:ma(c,n1);ma2:ma(c,n2);ma3:ma(c,n3);ma4:ma(c,n4);ma5:ma(c,n5);ma6:ma(c,n6);
{hs;ls;hhs;lls;us;ds;s1;p1;p0;upp;udd};
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');
{DRAWTEXT(p1=1 ,udd ,numtostrn(udd,2)+'s點' ),move1;DRAWTEXT(p1<>1,upp,numtostrn(upp,2)+'b點'),move1;}
PARTLINE(udd,p1=1,rgb(0,255,0)),move1,DOTLINE;
PARTLINE(upp,p1<>1,rgb(255,0,0)),move1,DOTLINE;

DRAWTEXT(barstatus=2 ,ref(udd,1),numtostrn(ref(udd,1),2)+'s點');
DRAWTEXT(barstatus=2 ,ref(upp,1),numtostrn(ref(upp,1),2)+'b點');
{a3:if(93000<=time<=150000,ref((a1 or a2),1),a1 or a2);}

tr1:=ifs(s1=1,'明日收盤價<'+numtostrn(ls,2)+',短線賣出機會','若明日收盤價>'+numtostrn(hs,2)+'短線買入機會');
DRAWTEXT(barstatus=2,ref(ls,1),numtostrn(ref(ls,1),2)+'短賣'),move2;
DRAWTEXT(barstatus=2,ref(hs,1),numtostrn(ref(hs,1),2)+'短買'),move2;

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;{程序化交易 www.kzuj.com.cn }

?

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

?