软件名称:[B]运动曲线---是试图寻找股价运动轨迹,以此来寻找股价运行规律[/B]
软件类型:国产软件
运行环境:Win9X/2000/XP/2003/
软件语言:简体中文
授权方式:解密版
软件大小:2.00 KB
官方主页:Home Page
更新时间:2009-04-12 19:05:55
软件简介:
运动曲线---是试图寻找股价运动轨迹,以此来寻找股价运行规律
INPUT:N(10,1,100);
fc:=c;fo:=o;x:=0*c;t1:=0*c;
for i=1 to datacount do begin
if i=1 and fc[i]>=fo[i] then
x[i]:=fc[i];
if i=1 and fc[i]<=fo[i] then
x[i]:=fc[i];
if i>1 then
x[i]:=x[i-1];
if i>1 and fc[i]>x[i-1]*(1+n/100) then
x[i]:=x[i-1]*(1+n/100);
if i>1 and fc[i]<x[i-1]/(1+n/100) then
x[i]:=x[i-1]/(1+n/100);
if x[i]=x[i-1] then
t1[i]:=t1[i-1]+1;
end;
cc:x,LINETHICK0;
x1:=ref(x,t1+1);
x2:=ref(x1,t1+1);
y:=BARSSINCE(x>ref(x,1))+1;
y1:=BARSSINCE(x<ref(x,1))+1;
k1:=BARSLAST(cross(x>x2,0.5)or y1=1);
d1:=BARSLAST(cross(x<x2,0.5)or y=1);
PARTLINE(d1>k1,x)COLORRED;
PARTLINE(d1<k1,x)COLORCYAN;
ks:=BARPOS;
ks1:=BARSSINCE(cross(x<x2,0.5) or cross(x>x2,0.5));
fk:=ks-ks1;
xk:=0*c;
b:=fk[datacount];
for i=b to DATACOUNT do begin
if fk[i]>1 then
xk[i]:=xk[i-1]+1;
else
xk[i]:=xk[i-1]+2;
end
tj:=if(xk<1,1,0);
PARTLINE(tj=1 and y>=1,x),COLORFF00FF;
PARTLINE(tj=1 and y1>=1,x),COLOR00FF00;
[url=http://www.70822.com/soft/sort013/sort02/down-8228.html]运动曲线---是试图寻找股价运动轨迹,以此来寻找股价运行规律[/url]