软件名称:[B]K线形解[/B]
软件类型:国产软件
运行环境:Win9X/2000/XP/2003/
软件语言:简体中文
授权方式:解密版
软件大小:46.0 KB
官方主页:Home Page
更新时间:2009-02-12 08:42:02
软件简介:
{K线形解}
DRAWGBKLAST(CLOSE>0,STRIP(RGB(95,95,95),RGB(0,0,0),0));
MA5:=MA(C,5);
MA10:=MA(C,10);
MA20:=MA(C,20);
MA40:=MA(C,40);
MA60:=MA(C,60);
BIAS:=(C-MA20)/MA20*100;
SHOPEN:=OPEN;
SHHIGH:=HIGH;
SHLOW:=LOW;
SHCLOSE:=CLOSE;
SHAMOUNT:=AMOUNT;
SHVOL:=VOL;
J12:=(HIGH - ((HIGH - LOW) / 3));
J23:=(LOW + ((HIGH - LOW) / 3));
t1:=(((IF((CLOSE = OPEN),1,0) + IF((CLOSE >= J12),1,0)) + IF((CLOSE <= J23),1,0)) > 1);
t2:=((((CLOSE > J23) AND (CLOSE < J12)) AND (OPEN > J23)) AND (OPEN < J12));
t3:=((CLOSE >= J12) AND (OPEN <= J23));
t4:=(((OPEN <= J12) AND (OPEN >= J23)) AND (CLOSE > J12));
t5:=(((OPEN <= J23) AND (CLOSE <= J12)) AND (CLOSE >= J23));
t6:=((CLOSE <= J23) AND (OPEN >= J12));
t7:=(((OPEN <= J12) AND (OPEN >= J23)) AND (CLOSE < J23));
t8:=(((OPEN >= J12) AND (CLOSE <= J12)) AND (CLOSE >= J23));
t9:=(((SHAMOUNT / SHVOL) / 100) > REF(HIGH,1));
t10:=(((SHAMOUNT / SHVOL) / 100) < REF(LOW,1));
if DISPSTATUS=2 then begin;
var1000:=' ★★★★★ ';
if t1>0 then var1000:=var1000+'☆ 极端行情,在未来的几日内有85%的机会变更方向 ';
if t2>0 then var1000:=var1000+'☆ 中性行情,多空双方都未能取得当日行情主动性的控制权 ';
if t3>0 then var1000:=var1000+'☆ 爬升行情,整个交易期间都有买方主导 ';
if t4>0 then var1000:=var1000+'☆ 爬升行情,信息较少,但收盘期间是买方主导,其他未知 ';
if t5>0 then var1000:=var1000+'☆ 爬升行情,买方把收盘价拉升到开盘价之上,卖方却也主导一段行情,但不知道是谁主导最后的行情 ';
if t6>0 then var1000:=var1000+'☆ 漂流行情,整个交易期间都有卖方主导 ';
if t7>0 then var1000:=var1000+'☆ 漂流行情,信息最少,但收盘期间是卖方主导,其他未知 ';
if t8>0 then var1000:=var1000+'☆ 漂流行情,卖方把收盘价压至到开盘价之下,买方却也主导一段行情,但不知道是谁主导最后的行情 ';
if t9>0 then var1000:=var1000+'☆ 上涨趋势 ';
if t10>0 then var1000:=var1000+'☆ 下跌趋势 ';
if MA20>=MA60 AND CROSS(MA40,MA60) then var1000:=var1000+'☆ 形成季托,待股价回落到20天均线或40天均线时介入,20天均价为:'+MA20+' ';
if BIAS>9.5 AND (C-REF(C,1))/REF(C,1)*100<9.8 then var1000:=var1000+'☆ 短线涨幅过大,有整理要求 ';
if MA20>=MA60 AND H>=MA20 AND L<=MIN(MA40,MA60) AND C>O AND C>REF(C,1) then var1000:=var1000+'☆ 芙蓉出水,趋势向好 ';
if BIAS<-18 AND (C-REF(C,1))/REF(C,1)*100>-9.8 then var1000:=var1000+'☆ 股价严重超跌,有爆发要求 ';
if BIAS<-7 AND ALL(CLOSE<OPEN,5) then var1000:=var1000+'☆ 连收五阴,超跌有反弹要求 ';
if ABS(HIGH-REF(HIGH,1))/HIGH<0.001 then var1000:=var1000+'☆ 平顶 -该高点有一定阻力 ';
if ABS(LOW-REF(LOW,1))/LOW<0.001 and abs(ref(low,1)-ref(low,2))/ref(low,1)<=0.00 then var1000:=var1000+'☆ 平底 -该低点有一定支撑 ';
if CLOSE=OPEN AND HIGH<>close and low<>close and HIGH/LOW > 1.03 then var1000:=var1000+'☆ 长十字 -多空激争 前途未明 &n
[url=http://www.70822.com/soft/sort013/sort03/down-6335.html]K线形解[/url]