分析家公式网,提供指标公式,股票软件 用户登录  |  用户 注册

软件名称:[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]

关于本站 | 网站帮助 | 广告合作 | 声明 | 友情连接 | 网站地图 |
分析家公式网声明:本站所有股票公式软件资料均网上公开收集,如侵权请联系删帖。站内所有广告,均与本站无关!
Copyright © 2003-2024 70822.Com. All Rights Reserved .
页面执行时间:31.25000 毫秒