- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2003-11-22
|
|

楼主 |
发表于 2004-6-20 16:52
|
显示全部楼层
Originally posted by 24小时 at 2004-6-18 20:23:
谢谢你的分析,受益非浅,我搜了kkddj的帖,发现他的a03附件都已不能下载,麻烦你发一个给我好吗?
A03
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=(SMA(RSV,3,1));
D:=(SMA(K,3,1));
J:=(3*K-2*D);
KK:=INTPART(SMA(RSV,3,1));
DD:=INTPART(SMA(K,3,1));
JJ:=INTPART(3*K-2*D);
N:=KK+DD;
kx:=n<25;
kx1:=ref(kx,29);
xx:=n<18;
xx1:=ref(xx,31);
xxx:=n<23;
xxx1:=ref(xxx,198);
kp:=(kx1 or xx1 or xxx1);
ka1:=ref(close,2)/ref(open,2)<0.95
and ref(c,2)<ref(c,3);
ka2:=ref(open,1)<ref(close,2) and
ref(close,1)>ref(close,2) and
ref(close,1)>(ref(close,2)+ref(open,2))/2;
ka3:=close>ref(close,1);
ka4:=llv(low,13)=ref(low,1);
kp1:=backset(ka1 and ka2 and ka3 and ka4,3);
kp2:=ref(kp1,2);
kp3:=CROSS("W&R"(14),80);
kd:=n<45;
kd1:=ref(kd,180) or ref(kd,179) or ref(kd,31) or ref(kd,29) or ref(kd,13) or ref(kd,11);
kp4:=kp2 and kp3 and kd1;
kP5:=("EXPLORER.macd");
kd2:=ref(kd,180) or ref(kd,261) or ref(kd,98) or ref(kd,77) or ref(kd,1);
kp6:=kp2 and kp5 and kd2;
kp7:=n<34;
kp8:=ref(kp7,11);
kp9:=n<45;
kp10:=ref(kp9,83) and kp8 and kp2;
kp11:=n<38;
kp12:=ref(kp11,19) and ref(kp11,32) and kp2;
kp13:=ref(kp9,28) and ref(kp11,101) and kp2;
kp14:=n<43;
kp15:=ref(kp14,28) and ref(kp14,189) and kp2;
i:=REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND
REF(OPEN,1) < REF(CLOSE,2) AND
ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.03 AND
CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2);
i1:=("EXPLORER.macd");
t3:=n<40;
t4:=ref(t3,34) or ref(t3,28) or ref(t3,57);
kp16:=i and i1 and t4;
kkddj3:(kp and kp2) or kp4 or kp6 or kp10 or kp12 or kp13 or kp15 or kp16; |
-
|
|