接力黄金柱
N:=5;
BC:=BARSCOUNT(CLOSE);V5T:=IF(BC<=5,V*BC/SUM(V,BC),V/REF(MA(V,5),1));
V60T:=IF(BC<=60,V5T,V/REF(MA(V,60),1));DING:=MAX(O,C);{êμ?￥}
DI:=MIN(O,C);{êμμ×}SDING:=CURRBARSCOUNT>=N AND DING=HHV(DING,N) AND
DING>REFX(HHV(DING,N-1),N-1);
XDING:=CURRBARSCOUNT>=N
AND H=HHV(H,N) AND
H>REFX(HHV(H,N-1),N-1);
SDI:=CURRBARSCOUNT>=N
AND DI=LLV(DI,N) AND
DI<REFX(LLV(DI,N-1),N-1);
XDI:=CURRBARSCOUNT>=N
AND L=LLV(L,N) AND
L<REFX(LLV(L,N-1),N-1);
YANG:=(DI>=REF(DING,1)) OR (C>O AND NOT(DING<=REF(DI,1))) OR (C>REF(C,1) AND C=O) OR (C=REF(C,1) AND C=O AND REF(DING,1)=C);{????}
YIN:=NOT(YANG);
YANGSHENG:=YANG AND C>=REF(DING,BARSLAST(YIN)) AND (V>REF(V,BARSLAST(YIN)) OR (BETWEEN(V,REF(V,BARSLAST(YIN))*0.95,REF(V,BARSLAST(YIN))*1.05))),NODRAW;YINSHENG:=(YIN AND C<=REF(DI,BARSLAST(YANG)) AND V>REF(V,BARSLAST(YANG)));
LIANGJIABI:=V/C,NODRAW;
MALIANGJIABI:=MA(LIANGJIABI,3),NODRAW;
LIANGJIABIXISHU:=1.5;
BLZ:=V>REF(V,1)*1.5 AND V60T>1.5;
PLZ:=BETWEEN(V,REF(V,1)*0.95,REF(V,1)*1.05) OR BETWEEN(V,REFX(V,1)*0.95,REFX(V,1)*1.05) OR
(BETWEEN(V,REF(V,2)*0.95,REF(V,2)*1.05) AND V>REF(V,1)*1.2) OR
(BETWEEN(V,REF(V,3)*0.95,REF(V,3)*1.05) AND V>REF(MA(V,2),1)*1.2 AND V>REF(HHV(V,2),1)) OR
(BETWEEN(V,REF(V,4)*0.95,REF(V,4)*1.05) AND V>REF(MA(V,3),1)*1.2 AND V>REF(HHV(V,3),1)) OR
(BETWEEN(V,REF(V,5)*0.95,REF(V,5)*1.05) AND V>REF(MA(V,4),1)*1.2 AND V>REF(HHV(V,4),1)) OR
(BETWEEN(V,REF(V,6)*0.95,REF(V,6)*1.05) AND V>REF(MA(V,5),1)*1.2 AND V>REF(HHV(V,5),1)) OR
(BETWEEN(V,REF(V,7)*0.95,REF(V,7)*1.05) AND V>REF(MA(V,6),1)*1.2 AND V>REF(HHV(V,6),1)) OR
(BETWEEN(V,REF(V,8)*0.95,REF(V,8)*1.05) AND V>REF(MA(V,7),1)*1.2 AND V>REF(HHV(V,7),1)) OR
(BETWEEN(V,REF(V,9)*0.95,REF(V,9)*1.05) AND V>REF(MA(V,8),1)*1.2 AND V>REF(HHV(V,8),1)) OR
(BETWEEN(V,REF(V,10)*0.95,REF(V,10)*1.05) AND V>REF(MA(V,9),1)*1.2 AND V>REF(HHV(V,9),1)) OR
(BETWEEN(V,REF(V,11)*0.95,REF(V,11)*1.05) AND V>REF(MA(V,10),1)*1.2 AND V>REF(HHV(V,10),1)) OR
(BETWEEN(V,REF(V,12)*0.95,REF(V,12)*1.05) AND V>REF(MA(V,11),1)*1.2 AND V>REF(HHV(V,11),1));
GLZ:=V=HHV(V,3) AND V=REFX(HHV(V,3),2);
TLZ:=(V*1.1<REFX(V,1) AND REFX(V,1)*1.1<REFX(V,2)) OR (V>REF(V,1)*1.1 AND V*1.1<REFX(V,1)) OR (V>REF(V,1)*1.1 AND REF(V,1)>REF(V,2)*1.1);
JSLS:=C<=REFX(C,1) AND REFX(C,1)<=REFX(C,2) AND LIANGJIABI>REFX(LIANGJIABI,1) AND REFX(LIANGJIABI,1)>REFX(LIANGJIABI,2);
JZ:=BLZ OR GLZ OR PLZ OR TLZ,NODRAW;
JJZ:=CURRBARSCOUNT>=4 AND YANG AND (YANGSHENG) AND JZ AND REFX(LLV(DI,3),3)>=DI AND (REFX(MA(LIANGJIABI,3),3)<=LIANGJIABIXISHU*LIANGJIABI OR REFX(JSLS,1)) AND REFX(C,3)>=DING,NODRAW;
HJZ1:=JJZ AND REFX(MA(C,3),3)>=DING AND REFX(MA(LIANGJIABI,3),3)<=LIANGJIABI AND REFX(YANG,3);
HJZ2:=YANG AND YANGSHENG AND JZ AND REFX(DI,1)>=DI AND REFX(JJZ,2) AND REFX(C,2)>DING AND REFX(LIANGJIABI,1)<LIANGJIABI;
HJZ3:=YANG AND YANGSHENG AND JZ AND REFX(LLV(DI,2),2)>=DI AND REFX(JJZ,3) AND REFX(C,3)>DING AND REFX(MA(LIANGJIABI,2),2)<LIANGJIABI;
HJZ4:=JJZ AND REFX(LLV(DI,3),3)>=DING AND REFX(MA(LIANGJIABI,3),3)<=LIANGJIABI AND REFX(YANG,3) AND (REFX(YANG,1) OR REFX(YANG,2));
WP:=JJZ OR HJZ1 OR HJZ4 OR HJZ2 OR HJZ3;
JJZTJ:=JJZ AND REF(NOT(WP),1);
HJZTJ:=(HJZ1 OR HJZ2 OR HJZ3) AND REF(NOT(WP),1);A:=HJZTJ OR JJZTJ;TJ1:=VOL=HHV(VOL,10) AND VOL>1.7*REF(VOL,1) AND C>=REF(C,1) AND C>=O AND VOL>1.2*REF(MA(V,60),1);LJL:=FILTER(TJ1,3);TJ3:=IF(BARSLAST(LJL)=1 AND CLOSE>REF(LOW,3),1,0);ST:=TJ3=1;CL:=FILTER(ST,3);
HJX:=REF(L,BARSLAST(LJL));
QHJX:=REF(HJX,1);AT:=BARSLAST(HJZTJ);
QAT:=REF(AT,1);
JTJ:=COUNT(C<REF(HJX,1),QAT)=0;ZF:=(C-REF(C,1))*100/REF(C,1);
ZFTJ:=ZF<5 AND COUNT(ZF>5,QAT+1)=0;XH:=A AND JTJ AND ZFTJ;
XH;
大家注意上面函数了。你懂的。
=================其实公式简化一下，并且简化后源码可以做选股公式源码：============
BC:=BARSCOUNT(CLOSE);
V5T:=IF(BC<=5,V*BC/SUM(V,BC),V/REF(MA(V,5),1));
V60T:=IF(BC<=60,V5T,V/REF(MA(V,60),1));
DING:=MAX(O,C);
DI:=MIN(O,C);
YANG:=(DI>=REF(DING,1)) OR (C>O AND NOT(DING<=REF(DI,1))) OR (C>REF(C,1) AND C=O) OR (C=REF(C,1) AND C=O AND REF(DING,1)=C);
YIN:=NOT(YANG);
YANGSHENG:=YANG AND C>=REF(DING,BARSLAST(YIN)) AND (V>REF(V,BARSLAST(YIN)) OR (BETWEEN(V,REF(V,BARSLAST(YIN))*0.95,REF(V,BARSLAST(YIN))*1.05)));
LIANGJIABI:=V/C;
LIANGJIABIXISHU:=1.5;
BLZ:=V>REF(V,1)*1.5 AND V60T>1.5;
PLZ:=BETWEEN(V,REF(V,1)*0.95,REF(V,1)*1.05) OR BETWEEN(V,REFX(V,1)*0.95,REFX(V,1)*1.05) OR (BETWEEN(V,REF(V,2)*0.95,REF(V,2)*1.05) AND V>REF(V,1)*1.2) OR (BETWEEN(V,REF(V,3)*0.95,REF(V,3)*1.05) AND V>REF(MA(V,2),1)*1.2 AND V>REF(HHV(V,2),1)) OR (BETWEEN(V,REF(V,4)*0.95,REF(V,4)*1.05) AND V>REF(MA(V,3),1)*1.2 AND V>REF(HHV(V,3),1)) OR (BETWEEN(V,REF(V,5)*0.95,REF(V,5)*1.05) AND V>REF(MA(V,4),1)*1.2 AND V>REF(HHV(V,4),1)) OR (BETWEEN(V,REF(V,6)*0.95,REF(V,6)*1.05) AND V>REF(MA(V,5),1)*1.2 AND V>REF(HHV(V,5),1)) OR (BETWEEN(V,REF(V,7)*0.95,REF(V,7)*1.05) AND V>REF(MA(V,6),1)*1.2 AND V>REF(HHV(V,6),1)) OR (BETWEEN(V,REF(V,8)*0.95,REF(V,8)*1.05) AND V>REF(MA(V,7),1)*1.2 AND V>REF(HHV(V,7),1)) OR (BETWEEN(V,REF(V,9)*0.95,REF(V,9)*1.05) AND V>REF(MA(V,8),1)*1.2 AND V>REF(HHV(V,8),1)) OR (BETWEEN(V,REF(V,10)*0.95,REF(V,10)*1.05) AND V>REF(MA(V,9),1)*1.2 AND V>REF(HHV(V,9),1)) OR (BETWEEN(V,REF(V,11)*0.95,REF(V,11)*1.05) AND V>REF(MA(V,10),1)*1.2 AND V>REF(HHV(V,10),1)) OR (BETWEEN(V,REF(V,12)*0.95,REF(V,12)*1.05) AND V>REF(MA(V,11),1)*1.2 AND V>REF(HHV(V,11),1));
GLZ:=V=HHV(V,3) AND V=REFX(HHV(V,3),2);
TLZ:=(V*1.1<REFX(V,1) AND REFX(V,1)*1.1<REFX(V,2)) OR (V>REF(V,1)*1.1 AND V*1.1<REFX(V,1)) OR (V>REF(V,1)*1.1 AND REF(V,1)>REF(V,2)*1.1);
JSLS:=C<=REFX(C,1) AND REFX(C,1)<=REFX(C,2) AND LIANGJIABI>REFX(LIANGJIABI,1) AND REFX(LIANGJIABI,1)>REFX(LIANGJIABI,2);
JZ:=BLZ OR GLZ OR PLZ OR TLZ;
JJZ:=CURRBARSCOUNT>=4 AND YANG AND (YANGSHENG) AND JZ AND REFX(LLV(DI,3),3)>=DI AND (REFX(MA(LIANGJIABI,3),3)<=LIANGJIABIXISHU*LIANGJIABI OR REFX(JSLS,1)) AND REFX(C,3)>=DING;
HJZ1:=JJZ AND REFX(MA(C,3),3)>=DING AND REFX(MA(LIANGJIABI,3),3)<=LIANGJIABI AND REFX(YANG,3);
HJZ2:=YANG AND YANGSHENG AND JZ AND REFX(DI,1)>=DI AND REFX(JJZ,2) AND REFX(C,2)>DING AND REFX(LIANGJIABI,1)<LIANGJIABI;
HJZ3:=YANG AND YANGSHENG AND JZ AND REFX(LLV(DI,2),2)>=DI AND REFX(JJZ,3) AND REFX(C,3)>DING AND REFX(MA(LIANGJIABI,2),2)<LIANGJIABI;
HJZ4:=JJZ AND REFX(LLV(DI,3),3)>=DING AND REFX(MA(LIANGJIABI,3),3)<=LIANGJIABI AND REFX(YANG,3) AND (REFX(YANG,1) OR REFX(YANG,2));
WP:=JJZ OR HJZ1 OR HJZ4 OR HJZ2 OR HJZ3;
JJZTJ:=JJZ AND REF(NOT(WP),1);
HJZTJ:=(HJZ1 OR HJZ2 OR HJZ3) AND REF(NOT(WP),1);
A:=HJZTJ OR JJZTJ;
TJ1:=VOL=HHV(VOL,10) AND VOL>1.7*REF(VOL,1) AND C>=REF(C,1) AND C>=O AND VOL>1.2*REF(MA(V,60),1);
LJL:=FILTER(TJ1,3);
HJX:=REF(L,BARSLAST(LJL));
AT:=BARSLAST(HJZTJ);
QAT:=REF(AT,1);
JTJ:=COUNT(C<REF(HJX,1),QAT)=0;
ZF:=(C-REF(C,1))*100/REF(C,1);
ZFTJ:=ZF<5 AND COUNT(ZF>5,QAT+1)=0;
XH:=A AND JTJ AND ZFTJ;
XH;
 |
