股资源-股票学习站-学炒股-股票课程-炒股教程-分析选股指标-入门基础知识

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索

[通达信] 〖万象寻踪〗服务于超跌反弹量价时空多维共振研判思路源码


   
楼主
5 天前


{副图源码如下}
{万象寻踪优化版}
ZBGS31:=(C>O) AND (REF(C,1)< REF(O,1));
ZBGS32:=((C>O) AND (REF(C,1)< REF(O,1))) AND (C>=((((ABS(REF(O,1)-REF(C,1)))*2)/5)+REF(C,1)));
ZBGS33:=((C>O) AND (REF(C,1)< REF(O,1))) AND (C>=(((ABS(REF(O,1)-REF(C,1)))/2)+REF(C,1)));
ZBGS34:=((C>O) AND (REF(C,1)< REF(O,1))) AND (C>=REF(O,1));
ZBGS35:=((((ABS(O-REF(C,1)))<=0.03) OR ((ABS(L-REF(C,1)))<=0.05)) OR (L=REF(L,1))) OR (O=REF(C,1));
ZBGS36:=(((ABS(O-REF(C,1)))<=0.01) OR ((ABS(L-REF(C,1)))<=0.01)) OR (L=REF(L,1));
ZBGS37:=VOL< REF(LLV(VOL,100),1);
ZBGS38:=(((O-C)/O)>=0.04) AND ((((VOL/MA(VOL,60))<=(2/3)) OR ((VOL/REF(VOL,1))<=1)) OR (VOL< HHV(VOL,5)));
ZBGS39:=VOL< REF(LLV(VOL,20),1);
ZBGS310:=((C>O) AND (((O-L)/O)>=0.025)) OR ((C< O) AND (((C-L)/C)>=0.025));
ZBGS311:=(((VOL< REF(VOL,1)) AND (REF(VOL,1)< REF(VOL,2))) AND (REF(VOL,2)< REF(VOL,3))) AND (HIGH>L);
ZBGS312:=(VOL/REF(VOL,1))<=0.52;
ZBGS313:=COUNT(ZBGS312,2) AND ((VOL/REF(VOL,1))<=0.7);
ZBGS314:=COUNT(((((ZBGS37 OR ZBGS38) OR ZBGS39) OR ZBGS310) OR ZBGS311) OR ZBGS313,5);
ZBGS315:=IF(NAMELIKE('DT'),0,1);
ZBGS316:=IF(NAMELIKE('*ST'),0,1);
ZBGS317:=((DYNAINFO(7)>2) AND (DYNAINFO(7)< 270)) AND (NOT(DYNAINFO(4)=0));
ZBGS318:=(ZBGS315 AND ZBGS316) AND ZBGS317;
ZBGS319:=((REF(C,1)-HHV(O,4))/HHV(O,4))<=-0.05;
DRAWTEXT_FIX(1,0.980,20,1,''),COLOR333333;
基础信号:=((ZBGS319 AND ZBGS31) AND ZBGS35) AND ZBGS314 AND ZBGS318;
强信号:=基础信号 AND (ZBGS32 OR ZBGS33 OR ZBGS34);
万象寻踪:IF(基础信号,1,0),COLORFFFFFF,NODRAW;

STICKLINE(基础信号 AND NOT(强信号),0,1,2,0),COLORFFFFFF;
STICKLINE(强信号,0,1.5,2,0),COLORMAGENTA;
DRAWICON(((ZBGS319 AND ZBGS31) AND ZBGS36) AND ZBGS314 AND ZBGS318,0,41);



{选股源码如下}
ZBGS31:=(C>O) AND (REF(C,1)< REF(O,1));
ZBGS32:=((C>O) AND (REF(C,1)< REF(O,1))) AND (C>=((((ABS(REF(O,1)-REF(C,1)))*2)/5)+REF(C,1)));
ZBGS33:=((C>O) AND (REF(C,1)< REF(O,1))) AND (C>=(((ABS(REF(O,1)-REF(C,1)))/2)+REF(C,1)));
ZBGS34:=((C>O) AND (REF(C,1)< REF(O,1))) AND (C>=REF(O,1));
ZBGS35:=((((ABS(O-REF(C,1)))<=0.03) OR ((ABS(L-REF(C,1)))<=0.05)) OR (L=REF(L,1))) OR (O=REF(C,1));
ZBGS36:=(((ABS(O-REF(C,1)))<=0.01) OR ((ABS(L-REF(C,1)))<=0.01)) OR (L=REF(L,1));
ZBGS37:=VOL< REF(LLV(VOL,100),1);
ZBGS38:=(((O-C)/O)>=0.04) AND ((((VOL/MA(VOL,60))<=(2/3)) OR ((VOL/REF(VOL,1))<=1)) OR (VOL< HHV(VOL,5)));
ZBGS39:=VOL< REF(LLV(VOL,20),1);
ZBGS310:=((C>O) AND (((O-L)/O)>=0.025)) OR ((C< O) AND (((C-L)/C)>=0.025));
ZBGS311:=(((VOL< REF(VOL,1)) AND (REF(VOL,1)< REF(VOL,2))) AND (REF(VOL,2)< REF(VOL,3))) AND (HIGH>L);
ZBGS312:=(VOL/REF(VOL,1))<=0.52;
ZBGS313:=COUNT(ZBGS312,2) AND ((VOL/REF(VOL,1))<=0.7);
ZBGS314:=COUNT(((((ZBGS37 OR ZBGS38) OR ZBGS39) OR ZBGS310) OR ZBGS311) OR ZBGS313,5);
WWWZBGS3COM:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
ZBGS315:=IF(NAMELIKE('DT'),0,1);
ZBGS316:=IF(NAMELIKE('*ST'),0,1);
ZBGS317:=((DYNAINFO(7)>2) AND (DYNAINFO(7)< 270)) AND (NOT(DYNAINFO(4)=0));
ZBGS318:=(ZBGS315 AND ZBGS316) AND ZBGS317;
ZBGS319:=((REF(C,1)-HHV(O,4))/HHV(O,4))<=-0.05;
万象寻踪X:(((ZBGS319 AND ZBGS31 AND ZBGS32 AND ZBGS33 AND ZBGS34) AND ZBGS35) AND ZBGS314) AND ZBGS318;















未
回复

举报