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}; VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN)); 主买:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)); 主卖:=IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2)); VX:=主买-主卖; d1:=ema(abs(VX),60); d2:=max(VX/d1+9.5,9.5); d3:=min(VX/d1*2,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; 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,l,0.5,1),colorffff54; STICKLINE((p1<>1 or barscount(c)<3) and c<=o,o,h,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;附件下载到大智慧目录(dll)LTFunc4.rar 买点排序指示(把指标放在主图中,在排序中选择M指标即可) M:p1=1 and ref(p1,1)=0,linethick0;
 |