以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  公式模型编写问题提交  (http://222.73.7.161/bbs/list.asp?boardid=4)
----  请教：飞狐的这个公式如何调入金字塔？  (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=8553)
--  作者：zhangcharlie
--  发布时间：2011/10/22 11:27:46
--  请教：飞狐的这个公式如何调入金字塔？
input:n(3);
fc:=close;
mhn:=ma(high,n);
mln:=ma(low,n);
hld:=0*close;
tmp:=setlbound(hld,n);
for i=n+1 to datacount do begin
  if fc[i]>mhn[i-1] then
    hld[i]:=1
  else if fc[i]<mln[i-1] then
    hld[i]:=-1;
  else
    hld[i]:=hld[i-1];
end;
hilo:=if(hld=-1,ma(h,n),ma(l,n));
STICKLINE(HLd=1 and ref(HLd,1)=1, HiLo,ref(HiLo,1), 3,0), colorred, linethick3;
STICKLINE(HLd=1 and ref(HLd,1)=-1, HiLo,ref(MA(L,1),1), 3,0), colorred, linethick3;
STICKLINE(HLd=-1 and ref(HLd,1) = -1, HiLo,ref(HiLo,1), 3,0), colorgreen, linethick3;
STICKLINE(HLd=-1 and ref(HLd,1)=1, HiLo,ref(MA(H,3),1), 3,0), colorgreen, linethick3;
--  作者：zhangcharlie
--  发布时间：2011/10/22 11:28:17
--  

飞狐的这个公式，金字塔里通不过。

 
--  作者：王锋
--  发布时间：2011/10/22 12:35:54
--  

语句末尾缺少一个分号

 

input:n(3);
fc:=close;
mhn:=ma(high,n);
mln:=ma(low,n);
hld:=0*close;
tmp:=setlbound(hld,n);
for i=n+1 to datacount do begin
  if fc[i]>mhn[i-1] then
    hld[i]:=1;
  else if fc[i]<mln[i-1] then
    hld[i]:=-1;
  else
    hld[i]:=hld[i-1];
end;
hilo:=if(hld=-1,ma(h,n),ma(l,n));
STICKLINE(HLd=1 and ref(HLd,1)=1, HiLo,ref(HiLo,1), 3,0), colorred, linethick3;
STICKLINE(HLd=1 and ref(HLd,1)=-1, HiLo,ref(MA(L,1),1), 3,0), colorred, linethick3;
STICKLINE(HLd=-1 and ref(HLd,1) = -1, HiLo,ref(HiLo,1), 3,0), colorgreen, linethick3;
STICKLINE(HLd=-1 and ref(HLd,1)=1, HiLo,ref(MA(H,3),1), 3,0), colorgreen, linethick3;

--  作者：zhangcharlie
--  发布时间：2011/10/23 14:01:24
--  

谢谢！
--  作者：zhangcharlie
--  发布时间：2011/10/25 16:04:51
--  

再请斑竹出手：

 

如何把最后 4句 STICKLINE  画线去掉，变成红色的连在一起，绿色的连在一起的 折线图？

偶对公式不通，请帮我写一下，先谢过了！
--  作者：26327756l
--  发布时间：2011/10/25 16:15:04
--  

能具体说明一下连线的数据吗？

[此贴子已经被作者于2011-10-25 16:21:03编辑过]
--  作者：fly
--  发布时间：2011/10/25 16:56:04
--  

//STICKLINE(HLd=1 and ref(HLd,1)=1, HiLo,ref(HiLo,1), 3,0), colorred, linethick3;
//STICKLINE(HLd=1 and ref(HLd,1)=-1, HiLo,ref(MA(L,1),1), 3,0), colorred, linethick3;
partline(HLd=1,HiLo,colorred);


//STICKLINE(HLd=-1 and ref(HLd,1) = -1, HiLo,ref(HiLo,1), 3,0), colorgreen, linethick3;
//STICKLINE(HLd=-1 and ref(HLd,1)=1, HiLo,ref(MA(H,3),1), 3,0), colorgreen, linethick3;
partline(HLd=-1,HiLo,colorgreen);
--  作者：zhangcharlie
--  发布时间：2011/10/25 17:41:17
--  
感谢 FLY 版主和 263277561 朋友。