看到苍雪兄回帖问代码怎么修改，苍雪兄最近答赏非常频繁，礼轻情意重，鄙人非常感激，我们要以是否有感恩之心每天自省，也诚挚邀请苍雪兄和打赏其他兄加入“赵老哥的操盘圣经”的解密游戏，感恩良善之人自会增福改命。当然也有其他兄留言或回信要源码。这里就公布出来，抛砖引玉，兄们可以在此基础赏自由调整发挥，形成不同风格。[淘股吧]


因为昨天匆忙改的，代码可读性较差，兄们见谅！



1.自定义板块“样本数据”，执行选股程序:10天内有一天涨停。


2.拷贝下面代码，保存为“板块强度”，并编译运行

昨日涨停: REF(CLOSE,1) gt;=ZTP RICE (REF(CLOSE,2),IF(FINANCE(3)=4,0.2,0.1));
今日红盘: REF(CLOSE,1) gt;=ZTPRICE(REF(CLOSE,2),IF(FINANCE(3)=4,0.2,0.1)) AND DYNAINFO(14) gt;0;

连板涨停: REF(CLOSE,2) gt;=ZTPRICE(REF(CLOSE,3),IF(FINANCE(3)=4,0.2,0.1)) AND REF(CLOSE,1) gt;=ZTPRICE(REF(CLOSE,2),IF(FINANCE(3)=4,0.2,0.1));
连板红盘: REF(CLOSE,2) gt;=ZTPRICE(REF(CLOSE,3),IF(FINANCE(3)=4,0.2,0.1)) AND REF(CLOSE,1) gt;=ZTPRICE(REF(CLOSE,2),IF(FINANCE(3)=4,0.2,0.1)) AND DYNAINFO(14) gt;0;

昨日连板: REF(CLOSE,3) gt;=ZTPRICE(REF(CLOSE,4),IF(FINANCE(3)=4,0.2,0.1)) AND REF(CLOSE,2) gt;=ZTPRICE(REF(CLOSE,3),IF(FINANCE(3)=4,0.2,0.1));
昨日连板红盘: REF(CLOSE,3) gt;=ZTPRICE(REF(CLOSE,4),IF(FINANCE(3)=4,0.2,0.1)) AND REF(CLOSE,2) gt;=ZTPRICE(REF(CLOSE,3),IF(FINANCE(3)=4,0.2,0.1)) AND DYNAINFO(14) gt;0 ;

涨停大面: REF(CLOSE,1) gt;=ZTPRICE(REF(CLOSE,2),IF(FINANCE(3)=4,0.2,0.1)) AND (H-C)/REF(C,1) gt;0.06;
连板大面: REF(CLOSE,2) gt;=ZTPRICE(REF(CLOSE,3),IF(FINANCE(3)=4,0.2,0.1)) AND REF(CLOSE,1) gt;=ZTPRICE(REF(CLOSE,2),IF(FINANCE(3)=4,0.2,0.1)) AND (H-C)/REF(C,1) gt;0.06;

涨停:(CLOSE gt;=ZTPRICE(REF(CLOSE,1),IF(FINANCE(3)=4,0.2,0.1)));
跌停: (C-REF(C,1))/REF(C,1)*100 =ZTPRICE(REF(CLOSE,1),IF(FINANCE(3)=4,0.2,0.1))),2) gt;=2;
涨停额:IF((CLOSE gt;=ZTPRICE(REF(CLOSE,1),IF(FINANCE(3)=4,0.2,0.1))),AMOUNT,0);
连板额:IF((COUNT((CLOSE gt;=ZTPRICE(REF(CLOSE,1),IF(FINANCE(3)=4,0.2,0.1))),2) gt;=2),AMOUNT,0);
昨连板:COUNT((REF(CLOSE,1) gt;=ZTPRICE(REF(CLOSE,2),IF(FINANCE(3)=4,0.2,0.1))),3) gt;=2;

今跌停:COUNT((CLOSE=2;
昨跌停:COUNT((REF(CLOSE,1)=2;

破板率:(CLOSE lt;ZTPRICE(REF(CLOSE,1),IF(FINANCE(3)=4,0.2,0.1)) AND H=ZTPRICE(REF(CLOSE,1),IF(FINANCE(3)=4,0.2,0.1)));



3.拷贝下面代码，保存为“势能”，并编译运行

ZT:= INSUM(‘样本数据‘,‘板块强度‘,9,0);
DRAWTEXT_FIX(ISLA STBA R,0.04,0.06,0,STRCAT(‘涨停股数: ‘, CON2STR(ZT/150,2))),COLORGREEN;

CAAA1:=INSUM(‘样本数据‘,‘板块强度‘,11,0)/35;

CAA1:=STRCAT(‘二连板数: ‘,(CON2STR(CAAA1,2)));
DRAWTEXT_FIX(ISLASTBAR,0.04,0.12,0,CAA1),COLORGREEN;

AA3:=DYNAINFO(60)/(DYNAINFO(60)+DYNAINFO(61));
A3:=STRCAT(‘红盘个股比: ‘,CON2STR(AA3,2));
DRAWTEXT_FIX(ISLASTBAR,0.04,0.18,0,A3),COLORGREEN;

B8:=INSUM(‘样本数据‘,‘板块强度‘,10,0);
A44:= B8/(ZT+B8);
DRAWTEXT_FIX(ISLASTBAR,0.04,0.24,0,STRCAT(‘亏钱效应: ‘, CON2STR(A44,2))),COLORGREEN;

AB4:=(ZT/150+CAAA1+AA3)/3;

AAAA4:=STRCAT(‘1.天时赚钱概率: ‘,CON2STR(AB4/(AB4+A44),2));
DRAWTEXT_FIX(ISLASTBAR,0,0,0,AAAA4),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,0.5,0,0,‘3.天时-羊群效应：‘),COLORYELLOW;

CAA3:=STRCAT(‘涨停成交额(亿): ‘,CON2STR(INTPART(INSUM(‘样本数据‘,‘板块强度‘,12,0)/100000000),0));
DRAWTEXT_FIX(ISLASTBAR,0.54,0.06,0,CAA3),COLORGREEN;

CAA4:=STRCAT(‘连板成交额(亿): ‘,CON2STR(INTPART(INSUM(‘样本数据‘,‘板块强度‘,13,0)/100000000),0));
DRAWTEXT_FIX(ISLASTBAR,0.54,0.12,0,CAA4),COLORGREEN;

CAA2:=STRCAT(‘成交额(亿): ‘,CON2STR(INTPART(DYNAINFO(62)/100000000),0));
DRAWTEXT_FIX(ISLASTBAR,0.54,0.18,0,CAA2),COLORGREEN;

DAA1:=INSUM(‘样本数据‘,‘板块强度‘,2,0)/INSUM(‘样本数据‘,‘板块强度‘,1,0);
DAA2:=STRCAT(‘涨停红盘: ‘,CON2STR(DAA1,2));
DRAWTEXT_FIX(ISLASTBAR,0.30,0.06,0,DAA2),COLORGREEN;

EAA1:=INSUM(‘样本数据‘,‘板块强度‘,4,0)/INSUM(‘样本数据‘,‘板块强度‘,3,0);
EAA2:=STRCAT(‘连板红盘: ‘,CON2STR(EAA1, 2));
DRAWTEXT_FIX(ISLASTBAR,0.30,0.12,0,EAA2),COLORGREEN;

FAA1:=INSUM(‘样本数据‘,‘板块强度‘,6,0)/INSUM(‘样本数据‘,‘板块强度‘,5,0);
FAA2:=STRCAT(‘昨连板红: ‘,CON2STR(FAA1,2));
DRAWTEXT_FIX(ISLASTBAR,0.30,0.18,0,FAA2),COLORGREEN;

GAA1:=INSUM(‘样本数据‘,‘板块强度‘,7,0)/INSUM(‘样本数据‘,‘板块强度‘,1,0);
GAA2:=STRCAT(‘涨停大面: ‘,CON2STR(GAA1,2));
DRAWTEXT_FIX(ISLASTBAR,0.30,0.24,0,GAA2),COLORGREEN;

KAA1:=INSUM(‘样本数据‘,‘板块强度‘,8,0)/INSUM(‘样本数据‘,‘板块强度‘,3,0);
KAA2:=STRCAT(‘连板大面: ‘,CON2STR(KAA1,2));
DRAWTEXT_FIX(ISLASTBAR,0.30,0.30,0,KAA2),COLORGREEN;

ZB:=INSUM(‘沪深Ａ股‘,‘板块强度‘,17,0);

PAA2:=STRCAT(‘炸板比率: ‘,CON2STR(ZB/(ZB+ZT),2));
DRAWTEXT_FIX(ISLASTBAR,0.30,0.36,0,PAA2),COLORGREEN;

W1:=DAA1*0.2+EAA1*0.5+FAA1*0.3;
W2:=GAA1*0.3+KAA1*0.35+ZB/(ZB+ZT)*0.35;
BBBB4:=STRCAT(‘2.短线赚钱概率：‘,CON2STR(W1/(W1+W2),2));
DRAWTEXT_FIX(ISLASTBAR,0.26,0,0,BBBB4),COLORYELLOW;


4. 更新最新数据后，输入 “势能”回车即可。





感恩相遇！
每天提升20-30% 复利创造奇迹！