股票论坛 » 公式指标 » [大智慧1] 我认为非常好的公式。。。。。


2008-1-14 07:56 天天上
[大智慧1] 我认为非常好的公式。。。。。

VAR1:=(VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN))));
R?]h+j!a4zl 成交:=VOL; [ ?#[ {O;?fj7B
买盘:=IF((CLOSE > OPEN),(VAR1 * (HIGH - LOW)),IF((CLOSE < OPEN),(VAR1 * ((HIGH - OPEN) + (CLOSE - LOW))),(VOL / 2)));
!F2F!q6zCVa 卖盘:=IF((CLOSE > OPEN),(0 - (VAR1 * ((HIGH - CLOSE) + (OPEN - LOW)))),IF((CLOSE < OPEN),(0 - (VAR1 * (HIGH - LOW))),(0 - (VOL / 2))));
"m ezG9O3j 买卖差:=(买盘 + 卖盘);!a`B{G g cq;_Fx
STICKLINE((VOL > 0),VOL,0,4,1),colorFFFFFF;
w3q,YN b4_!i STICKLINE((买卖差 > 0),0,买卖差,4,0),color0000FF;)cuQc3NoO@g4|
STICKLINE((买卖差 < 0),0,买卖差,2,0),LINETHICK3,color33FF33;8E"uA:k |8s
量比1:=(VOL / MA(VOL,5)); w*k&} Jc
VAR10:=买盘;4B%Gcu*IY;w}"g/C
VAR20:=卖盘;
J1N![B-V m%E JX1:=BARSSINCE(买盘);
? ur zlOn-F,[C JY1:=IF(((121 > JX1) AND (JX1 > 0)),JX1,120);F5k,U*U^+GkL
JY2:=IF(((4 > JX1) AND (JX1 > 0)),JX1,3);
6Zn/P _N:?u VAR30:=MA(VOL,JY2);
Q7p9mc,D)`dSx.^ 动神:=买盘;BV ^+kLDIUb2k
鬼力:=VAR20;I'eS$dVO6R
神比:=(动神 / VAR30);
:AR"i @/HK7^Y 鬼比:=(鬼力 / VAR30);
k2L]i2N"e$R6C1J`J*L VAR2:=(HIGH - LOW);6oep{X r
VAR3:=ABS((OPEN - CLOSE));&Mp ri8v*ssh
VAR4:=(HIGH - IF((CLOSE > OPEN),CLOSE,OPEN));
$Uu(~ i5u VAR5:=(IF((CLOSE > OPEN),OPEN,CLOSE) - LOW);W5nzGjCC
VAR6:=((VAR3 / VAR2) * VOL);v1P WJ'T7S\
VAR7:=((VAR4 / VAR2) * VOL);
@{J` x(f da&FG VAR8:=((VAR5 / VAR2) * VOL);0z\th YB4x
VAR9:=IF(((VOL / CAPITAL) > 0.001),1,EXP(ABS(LOG(((VOL / CAPITAL) * 100)))));
]gYMvI4}
5]j+h ig4C
e7[q b @(HyH VARA:=(((CLOSE - MA(CLOSE,5)) / MA(CLOSE,5)) * 100);
9t3H)|t#}@:{,mG VARB:=(((MA(CLOSE,5) > MA(CLOSE,10)) AND (MA(CLOSE,10) > MA(CLOSE,30))) AND (MA(CLOSE,30) > MA(CLOSE,60)));1g u#kl|Y
VARC:=((MA(CLOSE,5) < MA(CLOSE,10)) AND (MA(CLOSE,10) < MA(CLOSE,30)));
)gK0I Wrj3R,Cp VARD:=REF(CLOSE,1);
W+yB^k4K)}2J0\ VARE:=((SMA(MAX((CLOSE - VARD),0),6,1) / SMA(ABS((CLOSE - VARD)),6,1)) * 100);,b+Y#Nb9Nw$t)y
VAR40:=((IF((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)),VAR6,动神) + 动神) / 2);
~Vw+cuDu"H c_ VAR41:=((IF(((VAR7 > VAR6) AND (VAR7 > VAR8)),VAR7,动神) + 动神) / 2);!i qf/Ij/K
VAR42:=((IF(((VAR8 > VAR6) AND (VAR8 > VAR7)),VAR8,动神) + 动神) / 2);
_Gn~\!M-f6LU VAR50:=((IF((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE < OPEN)),VAR6,鬼力) + 鬼力) / 2);
[4mI/l_W| n&n 三日上攻:=MA((((VAR40 + VAR41) + VAR42) / 3),JY2);"} @nd4V
三日下攻:=MA(VAR50,JY2);
}g)Ut)aNR 多头:STICKLINE((CLOSE > MA(CLOSE,30)),0,VOL,4,1),color0000FF;"U.v2iD c
空头:STICKLINE((CLOSE < MA(CLOSE,30)),0,VOL,4,1),color00FF00;z!WH2e7c$ql
STICKLINE((鬼力 > 0),鬼力,0,4,0),colorFF3399;g5L _,r)dry(_
加仓:STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)),0,VAR6,4,0),color00FFFF;
T g'El@%v:?x;U8`2c 减仓:STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE < OPEN)),0,VAR6,4,0),colorFF0000;
%l!yO&Z M#N 洗盘:STICKLINE(((VAR8 > VAR6) AND (VAR8 > VAR7)),0,VAR8,4,0),colorFFFFFF;
B%w(zG^M 高卖:STICKLINE(((VAR7 > VAR6) AND (VAR7 > VAR8)),0,VAR7,4,0),colorFF00FF;
9i:uH)CD Muv1z 相对地量:=STICKLINE(((VAR9 > 2) AND (VOL < (MA(VOL,5) / 2))),0,VOL,3,0);

2008-3-8 14:16 理信
来个图啊啊啊:) :)

页: [1]


Powered by Discuz! Archiver 5.5.0  © 2001-2006 Comsenz Inc.