通达信炉架底(主图幅图选股源码贴图}

[复制链接]
查看88 | 回复0 | 2021-8-20 14:45:01 | 显示全部楼层 |阅读模式

以下是通达信炉架底(主图幅图选股源码贴图}(无源码的请下载附件导入)

{主图}
LY:=BARSLASTCOUNT(C>O);
 YX:=REF(C,1)/C>=1.023 AND C<O AND H<REF(H,1) AND L<REF(L,1);
 T:=BARSLAST(YX);
 ZF:=(C-REF(C,1))/REF(C,1)*100;
 A:=EVERY(BETWEEN(ZF,-5,5) AND VOL<REF(VOL,T),T);
 A1:=C>=REF((O-C)*7/9+C,T)AND VOL=HHV(VOL,T) AND VOL>REF(VOL,1);
 A2:=BRAR.AR*1.06>BRAR.BR AND BRAR.AR>=REF(BRAR.AR,2);
 A3:=VR.VR*1.03>=VR.MAVR AND MACD.DEA=HHV(MACD.DEA,3);
 A4:=C/MA(C,20)*100;
 A5:=IF(EXIST(L>REF(H,1),2),HSL>0,HSL>3 AND HSL<12);
 SY:=H/MAX(C,O)*100 ;
 ST:=MAX(C,O)/MIN(C,O)*100;
 A7:=IF(ST>107,SY<100.95,SY>0)AND LY<7;
 A6:=A1 AND A2 AND A3 AND A4<110.35 AND A5 AND A7;
 XG:=T>3 AND REF(A,1) AND COUNT(A1,T+1)=1 AND A6 AND T<17;
 TA:=BARSLAST(XG);
止损价:IF(TA>0,REF(C,TA)*0.9,DRAWNULL),COLORCYAN,DOTLINE;
止盈价:IF(TA>0,REF(C,TA)*1.1,DRAWNULL),COLORRED,DOTLINE;
 DRAWICON(XG,L*0.95,1);
 STICKLINE(XG,C,O,1.8,0),COLORYELLOW;
 STICKLINE(XG,H,L,0,0),COLORYELLOW;


 {幅图}

LY:=BARSLASTCOUNT(C>O);
 YX:=REF(C,1)/C>=1.023 AND C<O AND H<REF(H,1) AND L<REF(L,1);
 T:=BARSLAST(YX);
 ZF:=(C-REF(C,1))/REF(C,1)*100;
 A:=EVERY(BETWEEN(ZF,-5,5) AND VOL<REF(VOL,T),T);
 A1:=C>=REF((O-C)*7/9+C,T)AND VOL=HHV(VOL,T) AND VOL>REF(VOL,1);
 A2:=BRAR.AR*1.06>BRAR.BR AND BRAR.AR>=REF(BRAR.AR,2);
 A3:=VR.VR*1.03>=VR.MAVR AND MACD.DEA=HHV(MACD.DEA,3);
 A4:=C/MA(C,20)*100;
 A5:=IF(EXIST(L>REF(H,1),2),HSL>0,HSL>3 AND HSL<12);
 SY:=H/MAX(C,O)*100 ;
 ST:=MAX(C,O)/MIN(C,O)*100;
 A7:=IF(ST>107,SY<100.95,SY>0)AND LY<7;
 A6:=A1 AND A2 AND A3 AND A4<110.35 AND A5 AND A7;
 XG:=T>3 AND REF(A,1) AND COUNT(A1,T+1)=1 AND A6 AND T<17;
 STICKLINE(XG,0,5,1.8,0),COLORYELLOW;


 {选股}

LY:=BARSLASTCOUNT(C>O);
 YX:=REF(C,1)/C>=1.023 AND C<O AND H<REF(H,1) AND L<REF(L,1);
 T:=BARSLAST(YX);
 ZF:=(C-REF(C,1))/REF(C,1)*100;
 A:=EVERY(BETWEEN(ZF,-5,5) AND VOL<REF(VOL,T),T);
 A1:=C>=REF((O-C)*7/9+C,T)AND VOL=HHV(VOL,T) AND VOL>REF(VOL,1);
 A2:=BRAR.AR*1.06>BRAR.BR AND BRAR.AR>=REF(BRAR.AR,2);
 A3:=VR.VR*1.03>=VR.MAVR AND MACD.DEA=HHV(MACD.DEA,3);
 A4:=C/MA(C,20)*100;
 A5:=IF(EXIST(L>REF(H,1),2),HSL>0,HSL>3 AND HSL<12);
 SY:=H/MAX(C,O)*100 ;
 ST:=MAX(C,O)/MIN(C,O)*100;
 A7:=IF(ST>107,SY<100.95,SY>0)AND LY<7;
 A6:=A1 AND A2 AND A3 AND A4<110.35 AND A5 AND A7;
 XG:T>3 AND REF(A,1) AND COUNT(A1,T+1)=1 AND A6 AND T<17;

55466711.jpg

55466711.jpg

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则