编写一个选股指标,实现买进时发出预警
[通达信] 3116
N:=12; M:=26; DIFF:=EMA(CLOSE,N)-EMA(CLOSE,M); DEA:=EMA(DIFF,9); MA(C,8),COLORWHITE; MA(C,21),COLORYELLOW; 多头:STICKLINE(DIFF>DEA,C,O,3,-1),COLORRED; STICKLINE(DIFF>DEA,H,L,0,0),COLORWHITE; 空头:STICKLINE(DIFF<=DEA,C,O,3,0),COLORWHITE; STICKLINE(DIFF<=DEA,H,L,0,0),COLORWHITE; DRAWTEXT(CROSS(DIFF,DEA),L*0.98,'买'),COLORYELLOW; DRAWTEXT(CROSS(DEA,DIFF),H*1.02,'卖'),COLORGREEN; DIFF1:=EMA(CLOSE,12)-EMA(CLOSE,26); DEA1:=EMA(DIFF1,9); MA(C,8),COLORWHITE; MA(C,21),COLORYELLOW; 多头1:STICKLINE(DIFF1>DEA1,C,O,3,0),COLORRED; STICKLINE(DIFF>DEA1,H,L,0,0),COLORRED; 空头1:STICKLINE(DIFF1<=DEA1,C,O,3,0),COLORYELLOW; STICKLINE(DIFF1<=DEA1,H,L,0,0),COLORYELLOW; DRAWTEXT(CROSS(DIFF1,DEA1),L*0.98,'买'),COLORWHITE; DRAWTEXT(CROSS(DEA1,DIFF1),H*1.02,'卖'),COLORGREEN; A:=(3*C+L+O+H)/6; AA:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+1*REF(A,19))/210,COLORRED; A3:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100; A4:=SMA(A3,3,1); A5:=SMA(A4,3,1); A6:=3*A4-2*A5; A7:=C-REF(C,1); A8:=100*EMA(EMA(A7,6),6)/(EMA(ABS(A7),6),6); 买:=LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND CROSS(A8,MA(A8,2)); DRAWTEXT(FILTER(买=1,5),LOW-0.05,'↖买进'),COLORMAGENTA; AA1:=AMOUNT/V; BB1:=L<AA1*0.9; CC1:=(C-REF(C,1))/REF(C,1)*100>1.2; DD1:=L<MA(C,5)*0.921; EE1:=V<MA(V,5)*1.5; 介入:=BB1 AND CC1 AND DD1 AND EE1,LINETHICK0,COLOR0099FF; DRAWTEXT(介入,L*0.99,'介入'),COLORMAGENTA; VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0); VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0); DRAWTEXT(FILTER((VAR4AA>90),45),(LOW)*(0.98),'★买入 '),COLORMAGENTA; DRAWTEXT(FILTER((VAR4AA>90),35),(LOW)*(0.99000001),'★加仓'),COLORMAGENTA; VAR33:=(CLOSE*2.5/100+CLOSE);阻力价:=HHV(HIGH,19),COLORBLUE, LINETHICK3; DRAWICON(阻力价>REF(阻力价,1)AND CROSS(阻力价,VAR33)AND C<O AND H>BBI,H*1.02,6); LCC:=REF(CLOSE,1); RSIC:=SMA(MAX(CLOSE-LCC,0),6,1)/SMA(ABS(CLOSE-LCC),6,1)*100; DRAWTEXT(CROSS(84,RSIC) , HIGH*1.03,'逃'),COLORYELLOW; VAR1D:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);VAR2DD:=REF(VAR1D,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VAR3D:=REF(VAR2DD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);VAR4D:=REF(VAR3D,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VAR5D:=REF(VAR4D,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);VAR6D:=REF(VAR5D,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VAR7D:=REF(VAR6D,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);VAR8D:=REF(VAR7D,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VAR9D:=REF(VAR8D,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); VARAD:=REF(VAR9D,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VARBD:=REF(VARAD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);VARCD:=REF(VARBD,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VARDD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);VARED:=REF(VARDD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);VARFD:=REF(VARED,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); VAR10D:=REF(VARFD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);VAR11D:=REF(VAR10D,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VAR12D:=REF(VAR11D,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);VAR13D:=REF(VAR12D,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VAR14D:=REF(VAR13D,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);VAR15D:=REF(VAR14D,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VAR16D:=REF(VAR15D,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);VAR17D:=REF(VAR16D,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);VAR18D:=REF(VAR17D,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); VAR19D:=REF(VARDD OR VARED OR VARFD OR VAR10D OR VAR11D OR VAR12D OR VAR13D OR VAR14D OR VAR15D OR VAR16D OR VAR17D OR VAR18D,1) AND VAR1D; STICKLINE(VAR19D,REF(CLOSE,1),REF(CLOSE,2),3.0,0),COLOR0088FF; STICKLINE(VAR19D,REF(CLOSE,1),REF(CLOSE,2),2.0,0),COLOR33AAFF; STICKLINE(VAR19D,REF(CLOSE,1),REF(CLOSE,2),0.5,0),COLOR66CCFF; VAR1AD:=REF(VAR1D OR VAR2DD OR VAR3D OR VAR4D OR VAR5D OR VAR6D OR VAR7D OR VAR8D OR VAR9D OR VARAD OR VARBD OR VARCD,1) AND VARDD; STICKLINE(VAR1AD,REF(CLOSE,1),REF(CLOSE,2),3.0,0),COLOR008800; STICKLINE(VAR1AD,REF(CLOSE,1),REF(CLOSE,2),2.0,0),COLOR00BB00; STICKLINE(VAR1AD,REF(CLOSE,1),REF(CLOSE,2),0.5,0),COLOR00EE00; |
相关股票
楼主 |
2楼 |