编写了基于倍量、梯量，平量的一个指标不完善大家看下

游股海呛出了血 · 发表于 2010-8-22 11:22

加油支持加油支持

恋伊人 · 发表于 2010-8-22 12:00

谢谢分享，辛苦了

王新银 · 发表于 2010-8-22 16:59

黄金柱黄金线
N1(1,100,3);
N2(1,100,6);
N3(1,100,12);
N4(1,100,24);
多空指数:(MA(CLOSE,N1)+MA(CLOSE,N2)+MA(CLOSE,N3)+MA(CLOSE,N4))/4;
X:=IF(VOL==REF(VOL,1) OR (VOL>REF(VOL,1) AND (VOL-REF(VOL,1))<=(VOL*0.05)) OR (VOL<REF(VOL,1) AND (REF(VOL,1)-VOL)<=(REF(VOL,1)*0.05)),1,0);
X1:=IF(X==0 AND VOL>REF(VOL,1) AND (VOL==REF(VOL,2) OR (VOL>REF(VOL,2) AND (VOL-REF(VOL,2))<=(VOL*0.05)) OR (VOL<REF(VOL,2) AND (REF(VOL,2)-VOL)<=(REF(VOL,2)*0.05))),2,0);
X2:=IF(X==0 AND X1==0 AND VOL>REF(VOL,1) AND VOL>REF(VOL,2) AND (VOL==REF(VOL,3) OR (VOL>REF(VOL,3) AND (VOL-REF(VOL,3))<=(VOL*0.05)) OR (VOL<REF(VOL,3) AND (REF(VOL,3)-VOL)<=(REF(VOL,3)*0.05))),3,0);
X3:=IF(X==0 AND X1==0 AND X2==0 AND VOL>REF(VOL,1) AND VOL>REF(VOL,2) AND VOL>REF(VOL,3) AND (VOL==REF(VOL,4) OR (VOL>REF(VOL,4) AND (VOL-REF(VOL,4))<=(VOL*0.05)) OR
(VOL<REF(VOL,4) AND (REF(VOL,4)-VOL)<=(REF(VOL,4)*0.05))),4,0);
X4:=IF(X==0 AND X1==0 AND X2==0 AND X3==0 AND VOL>REF(VOL,1) AND VOL>REF(VOL,2) AND VOL>REF(VOL,3) AND VOL>REF(VOL,4) AND
(VOL==REF(VOL,5) OR (VOL>REF(VOL,5) AND (VOL-REF(VOL,5))<=(VOL*0.05)) OR (VOL<REF(VOL,5) AND (REF(VOL,5)-VOL)<=(REF(VOL,5)*0.05))),5,0);
X5:=IF(X==0 AND X1==0 AND X2==0 AND X3==0 AND X4==0 AND VOL>REF(VOL,1) AND VOL>REF(VOL,2) AND VOL>REF(VOL,3) AND VOL>REF(VOL,4) AND VOL>REF(VOL,5) AND
(VOL==REF(VOL,6) OR (VOL>REF(VOL,6) AND (VOL-REF(VOL,6))<=(VOL*0.05)) OR (VOL<REF(VOL,6) AND (REF(VOL,6)-VOL)<=(REF(VOL,6)*0.05))),6,0);
X6:=IF(X==0 AND X1==0 AND X2==0 AND X3==0 AND X4==0 AND X5==0 AND VOL>REF(VOL,1) AND VOL>REF(VOL,2) AND VOL>REF(VOL,3) AND VOL>REF(VOL,4) AND VOL>REF(VOL,5) AND
VOL>REF(VOL,6) AND (VOL==REF(VOL,7) OR (VOL>REF(VOL,7) AND (VOL-REF(VOL,7))<=(VOL*0.05)) OR (VOL<REF(VOL,7) AND (REF(VOL,7)-VOL)<=(REF(VOL,7)*0.05))),7,0);
X7:=IF(X==0 AND X1==0 AND X2==0 AND X3==0 AND X4==0 AND X5==0 AND X6==0 AND VOL>REF(VOL,1) AND VOL>REF(VOL,2) AND VOL>REF(VOL,3) AND VOL>REF(VOL,4) AND VOL>REF(VOL,5) AND
VOL>REF(VOL,6) AND VOL>REF(VOL,7) AND (VOL==REF(VOL,8) OR (VOL>REF(VOL,8) AND (VOL-REF(VOL,8))<=(VOL*0.05)) OR (VOL<REF(VOL,8) AND (REF(VOL,8)-VOL)<=(REF(VOL,8)*0.05))),8,0);
X8:=IF(X==0 AND X1==0 AND X2==0 AND X3==0 AND X4==0 AND X5==0 AND X6==0 AND X7==0 AND VOL>REF(VOL,1) AND VOL>REF(VOL,2) AND VOL>REF(VOL,3) AND VOL>REF(VOL,4) AND VOL>REF(VOL,5) AND
VOL>REF(VOL,6) AND VOL>REF(VOL,7) AND VOL>REF(VOL,8) AND (VOL==REF(VOL,9) OR (VOL>REF(VOL,9) AND (VOL-REF(VOL,9))<=(VOL*0.05)) OR (VOL<REF(VOL,9) AND (REF(VOL,9)-VOL)<=(REF(VOL,9)*0.05))),9,0);
X9:=IF(X==0 AND X1==0 AND X2==0 AND X3==0 AND X4==0 AND X5==0 AND X6==0 AND X7==0 AND X8==0 AND VOL>REF(VOL,1) AND VOL>REF(VOL,2) AND VOL>REF(VOL,3) AND VOL>REF(VOL,4) AND VOL>REF(VOL,5) AND
VOL>REF(VOL,6) AND VOL>REF(VOL,7) AND VOL>REF(VOL,8) AND VOL>REF(VOL,9) AND
(VOL==REF(VOL,10) OR (VOL>REF(VOL,10) AND (VOL-REF(VOL,10))<=(VOL*0.05)) OR (VOL<REF(VOL,10) AND (REF(VOL,10)-VOL)<=(REF(VOL,10)*0.05))),10,0);
X10:=IF(X==0 AND X1==0 AND X2==0 AND X3==0 AND X4==0 AND X5==0 AND X6==0 AND X7==0 AND X8==0 AND X9==0 AND VOL>REF(VOL,1) AND VOL>REF(VOL,2) AND VOL>REF(VOL,3) AND VOL>REF(VOL,4) AND VOL>REF(VOL,5) AND
VOL>REF(VOL,6) AND VOL>REF(VOL,7) AND VOL>REF(VOL,8) AND VOL>REF(VOL,9) AND VOL>REF(VOL,10) AND
(VOL==REF(VOL,11) OR (VOL>REF(VOL,11) AND (VOL-REF(VOL,11))<=(VOL*0.05)) OR (VOL<REF(VOL,11) AND (REF(VOL,11)-VOL)<=(REF(VOL,11)*0.05))),11,0);
X11:=IF(X==0 AND X1==0 AND X2==0 AND X3==0 AND X4==0 AND X5==0 AND X6==0 AND X7==0 AND X8==0 AND X9==0 AND X10==0 AND VOL>REF(VOL,1) AND VOL>REF(VOL,2) AND VOL>REF(VOL,3) AND VOL>REF(VOL,4) AND VOL>REF (VOL,5) AND VOL>REF(VOL,6) AND VOL>REF(VOL,7) AND VOL>REF(VOL,8) AND VOL>REF(VOL,9) AND VOL>REF(VOL,10) AND VOL>REF(VOL,11) AND
(VOL==REF(VOL,12) OR (VOL>REF(VOL,12) AND (VOL-REF(VOL,12))<=(VOL*0.05)) OR (VOL<REF(VOL,12) AND (REF(VOL,12)-VOL)<=(REF(VOL,12)*0.05))),12,0);
X12:=IF(X==0 AND X1==0 AND X2==0 AND X3==0 AND X4==0 AND X5==0 AND X6==0 AND X7==0 AND X8==0 AND X9==0 AND X10==0 AND X11==0 AND
VOL>REF(VOL,1) AND VOL>REF(VOL,2) AND VOL>REF(VOL,3) AND VOL>REF(VOL,4) AND VOL>REF(VOL,5) AND VOL>REF(VOL,6) AND VOL>REF(VOL,7) AND VOL>REF(VOL,8) AND VOL>REF(VOL,9) AND VOL>REF(VOL,10) AND
VOL>REF(VOL,11) AND VOL>REF(VOL,12) AND
(VOL==REF(VOL,13) OR (VOL>REF(VOL,13) AND (VOL-REF(VOL,13))<=(VOL*0.05)) OR (VOL<REF(VOL,13) AND (REF(VOL,13)-VOL)<=(REF(VOL,13)*0.05))),13,0);
黄:=((((REF(VOL,3)-REF(VOL,4))>=REF(VOL,4)) OR
(REF(VOL,3)-REF(VOL,4))>=(REF(VOL,3)*0.4)) OR
(REF(VOL,4)<REF(VOL,3) AND REF(VOL,5)<REF(VOL,4) AND REF(VOL,6)<REF(VOL,5)) OR REF((X+X1+X2+X3+X4+X5+X6+X7+X8+X9+X10+X11+X12),3)>0)
AND
((VOL<REF(VOL,1) AND REF(VOL,1)<REF(VOL,2) AND REF(VOL,2)<REF(VOL,3)) OR
(VOL<REF(VOL,3) AND REF(VOL,1)<REF(VOL,3) AND REF(VOL,2)<REF(VOL,3))) AND
REF(C,1)>=REF(L,3) AND C>=REF(L,3) AND REF(C,2)>=REF(L,3),linethick0;
KL:=IF(黄>0 and (VOL<REF(VOL,1) AND REF(VOL,1)<REF(VOL,2) AND REF(VOL,2)<REF(VOL,3)),1,0);
HJ:=IF(C<=REF(C,1) AND C<=REF(C,2),0,IF(REF(C,1)<=C AND REF(C,1)<=REF(C,2),1,IF(REF(C,2)<=C AND REF(C,2)<=REF(C,1),2,-1))),linethick0;{3天内最低收盘价}
SJ:=IF(L<=REF(L,1) AND L<=REF(L,2),0,IF(REF(L,1)<=L AND REF(L,1)<=REF(L,2),1,IF(REF(L,2)<=L AND REF(L,2)<=REF(L,1),2,-1)));{3天内最低价}
{成交量逐步缩量，一个比一个低}
ss:=SUMBARS(黄>0 AND KL>0 AND HJ>=0 AND SJ>=0,1);
STICKLINE(ss,REF(REF(C,HJ),ss-1)*1.002,REF(REF(C,HJ),ss-1),2,0),COLORRED;{COLORYELLOW;}
STICKLINE(ss,REF(REF(L,SJ),ss-1)*1.002,REF(REF(L,SJ),ss-1),10,0),COLORRED;
BACKSET101:=BACKSET(黄>0 AND KL>0,4);
FILTER101:=FILTER(BACKSET101,4);
DRAWTEXT(FILTER101,L,'黄');
STICKLINE(FILTER101,OPEN,CLOSE,0.5,0),COLORYELLOW,linethick6;
{成交量比黄金柱低，不是逐步减低}
KS:=IF(黄>0 and (VOL<REF(VOL,3) AND REF(VOL,1)<REF(VOL,3) AND REF(VOL,2)<REF(VOL,3)) AND KL==0,1,0);
FF:=SUMBARS(黄>0 AND KS>0 AND HJ>=0 AND SJ>=0,1);
STICKLINE(FF,REF(REF(C,HJ),FF-1)*1.002,REF(REF(C,HJ),FF-1),2,0),colorblue;{COLORMAGENTA;}
STICKLINE(FF,REF(REF(L,SJ),FF-1)*1.002,REF(REF(L,SJ),FF-1),10,0),colorblue;
BACKSET102:=BACKSET(黄>0 AND KS>0,4);
FILTER102:=FILTER(BACKSET102,4);
DRAWTEXT(FILTER102,L,'次');
STICKLINE(FILTER102,OPEN,CLOSE,0.5,0),COLORMAGENTA,linethick6;

复制代码

追求理想 · 发表于 2011-11-19 22:56

谢谢分享学习了

跟随强者 · 发表于 2016-3-10 12:26

谢谢分享，学习中

8wangle · 发表于 2016-3-18 11:38

88888888888888888888

8wangle · 发表于 2016-3-18 11:39

8888888888888888888888

8wangle · 发表于 2016-3-18 11:40

8888888888888888888

曹先生88888 · 发表于 2016-3-18 11:41

努力地顶一下ok

宇宙祥云 · 发表于 2016-10-12 11:09

好好学习天天向上

wtwl3141 · 发表于 2016-10-12 11:46

多谢分享。

		自动登录	找回密码
密码			立即注册