以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  飞狐的三线反转公式,金字塔通不过,怎么改?  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=31464)

--  作者:小布丁
--  发布时间:2012/12/13 10:04:09
--  飞狐的三线反转公式,金字塔通不过,怎么改?

VARIABLE: fc:=close,fh:=h,fl:=l,fcolor:=0,ft1:=0,fb1:=0,fi:=0,t[4]=0,b[4]=0,pt=1,pb=1;
 if datacount<2 then exit;
 for i=1 to 4 do begin
  t[i]:=i;
  b[i]:=1;
  end
  for i=2 to datacount do begin 
     if fc[i]>fc[t[pt]] then begin 
        fh[i]:=fc[i];
        fl[i]:=fc[t[1]];
        fcolor[i]:=1;
        b[4]:=b[3];
        b[3]:=b[2];
        b[2]:=b[1];
        b[1]:=t[1];
        t[4]:=t[3];
        t[3]:=t[2];
        t[2]:=t[1];
        t[1]:=i;
        pt:=1;
  pb:=if(pb=3,3,pb+1);
 end
 else if fc[i]<fc[b[pb]] then begin     
 fh[i]:=fc[b[1]];fl[i]:=fc[i];
 fcolor[i]:=-1; 
 t[4]:=t[3];
 t[3]:=t[2];
 t[2]:=t[1];
 t[1]:=b[1]; 
 b[4]:=b[3];
 b[3]:=b[2];
 b[2]:=b[1];
 b[1]:=i;
 pb:=1;
 pt:=if(pt=3,3,pt+1);  
 end
 else if fc[i]<=fc[t[pt]] and fc[i]>=fc[b[pb]] then begin   
 fh[i]:=fh[i-1];
 fl[i]:=fl[i-1];
 fcolor[i]:=fcolor[i-1];
 end
 ft1[i]:=t[1];
 fb1[i]:=b[1];
 fi[i]:=i;
 end
 
STICKLINE(fcolor=1,fh,fl,10,0),colorred;
STICKLINE(fcolor=-1,fh,fl,10,0),colorgreen;


--  作者:jinzhe
--  发布时间:2012/12/13 10:11:48
--  
编译通过,可以用
--  作者:haizxj
--  发布时间:2013/7/1 22:39:15
--  
请问这个是序列计算还是逐K计算
--  作者:jinzhe
--  发布时间:2013/7/2 8:52:28
--  
点编译会提示用什么计算方式的
--  作者:haizxj
--  发布时间:2013/7/2 9:58:04
--  
显示这个
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20130702095717.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2013/7/2 9:58:29编辑过]

--  作者:haizxj
--  发布时间:2013/7/2 9:59:07
--  
另外在图表副图中不显示这个指标,这是怎么回事
--  作者:haizxj
--  发布时间:2013/7/2 10:02:16
--  

另外出现这个错误

 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20130702100118.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2013/7/2 10:02:38编辑过]

--  作者:jinzhe
--  发布时间:2013/7/2 10:29:25
--  
放主图,逐k线计算
--  作者:haizxj
--  发布时间:2013/7/2 17:50:07
--  
if fc[i]>fc[t[pt]] then begin 
错在哪?
--  作者:haizxj
--  发布时间:2013/7/2 20:49:04
--  
已经解决