欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → [求助]请版主帮忙看看如何编译成金字塔的

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有3672人关注过本帖树形打印复制链接

主题：[求助]请版主帮忙看看如何编译成金字塔的
帅哥哟，离线，有人找我吗？
winewine99
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：47 积分：422 威望：0 精华：1 注册：2010/3/19 15:47:54 		[求助]请版主帮忙看看如何编译成金字塔的  发帖心情 Post By：2012/8/25 20:19:16    Post IP：111.161.10.59[只看该作者]

INPUT: nH(5,3,100), nL(5,3,100);
fH:=H;
fL:=L;
CBH:=HHV(H,3);
tH:=HHV(H,nH);
for i=nH+1 to datacount do begin
   if fH[i] < tH[i]                                                   then  CBH[i]:=tH[i-1]
   else if fL[i-2] < fL[i-1] and fL[i-2] < fL[i]
       and fL[i-1] < fL[i]                                            then  CBH[i]:=fL[i-2]
   else if nH > 3 and fL[i-3] < fL[i-2] and fL[i-3] < fL[i-1]
       and fL[i-3] < fL[i] and (fL[i-2] < fL[i] or fL[i-1] < fL[i])   then  CBH[i]:=fL[i-3]
   else if nH > 4 and fL[i-4] < fL[i-3] and fL[i-4] < fL[i-2]
       and fL[i-4] < fL[i-1] and fL[i-4] < fL[i]
       and (fL[i-3] < fL[i] or fL[i-2] < fL[i] or fL[i-1] < fL[i])    then  CBH[i]:=fL[i-4]
   else if nH > 5 and fL[i-5] < fL[i-4] and fL[i-5] < fL[i-3]
       and fL[i-5] < fL[i-2] and fL[i-5] < fL[i-1]
       and fL[i-5] < fL[i]
       and (fL[i-4] < fL[i] or fL[i-3] < fL[i] or fL[i-2] < fL[i] or fL[i-1] < fL[i])  then  CBH[i]:=fL[i-4];
end;

CBH;

CBL:=LLV(L,3);
tL:=LLV(L,nL);
for i=nL+1 to datacount do begin
   if fL[i] > tL[i]                                                   then  CBL[i]:=tL[i-1]
   else if fH[i-2] > fH[i-1] and fH[i-2] > fH[i]
       and fH[i-1] > fH[i]                                            then  CBL[i]:=fH[i-2]
   else if nL > 3 and fH[i-3] > fH[i-2] and fH[i-3] > fH[i-1]
       and fH[i-3] > fH[i] and (fH[i-2] > fH[i] or fH[i-1] > fH[i])   then  CBL[i]:=fH[i-3]
   else if nL > 4 and fH[i-4] > fH[i-3] and fH[i-4] > fH[i-2]
       and fH[i-4] > fH[i-1] and fH[i-4] > fH[i]
       and (fH[i-3] > fH[i] or fH[i-2] > fH[i] or fH[i-1] > fH[i])    then  CBL[i]:=fH[i-4]
   else if nL > 5 and fH[i-5] > fH[i-4] and fH[i-5] > fH[i-3]
       and fH[i-5] > fH[i-2] and fH[i-5] > fH[i-1]
       and fH[i-5] > fH[i]
       and (fH[i-4] > fH[i] or fH[i-3] > fH[i] or fH[i-2] > fH[i] or fH[i-1] > fH[i])  then  CBL[i]:=fH[i-4];
end;

CBL;



 回到顶部
帅哥哟，离线，有人找我吗？
jinzhe
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：46311 积分：50819 威望：0 精华：2 注册：2011/3/23 8:50:25 		  发帖心情 Post By：2012/8/27 8:57:02    Post IP：58.246.57.26[只看该作者]

INPUT: nH(5,3,100), nL(5,3,100);
fH:=H;
fL:=L;
CBH:=HHV(H,3);
tH:=HHV(H,nH);
for i=nH+1 to datacount do begin
   if fH[i] < tH[i]                                                   then  CBH[i]:=tH[i-1]
   else if fL[i-2] < fL[i-1] and fL[i-2] < fL[i]
       and fL[i-1] < fL[i]                                            then  CBH[i]:=fL[i-2]
   else if nH > 3 and fL[i-3] < fL[i-2] and fL[i-3] < fL[i-1]
       and fL[i-3] < fL[i] and (fL[i-2] < fL[i] or fL[i-1] < fL[i])   then  CBH[i]:=fL[i-3]
   else if nH > 4 and fL[i-4] < fL[i-3] and fL[i-4] < fL[i-2]
       and fL[i-4] < fL[i-1] and fL[i-4] < fL[i]
       and (fL[i-3] < fL[i] or fL[i-2] < fL[i] or fL[i-1] < fL[i])    then  CBH[i]:=fL[i-4]
   else if nH > 5 and fL[i-5] < fL[i-4] and fL[i-5] < fL[i-3]
       and fL[i-5] < fL[i-2] and fL[i-5] < fL[i-1]
       and fL[i-5] < fL[i]
       and (fL[i-4] < fL[i] or fL[i-3] < fL[i] or fL[i-2] < fL[i] or fL[i-1] < fL[i])  then  CBH[i]:=fL[i-4];
end;

CBH;

CBL:=LLV(L,3);
tL:=LLV(L,nL);
for i=nL+1 to datacount do begin
   if fL[i] > tL[i]                                                   then  CBL[i]:=tL[i-1]
   else if fH[i-2] > fH[i-1] and fH[i-2] > fH[i]
       and fH[i-1] > fH[i]                                            then  CBL[i]:=fH[i-2]
   else if nL > 3 and fH[i-3] > fH[i-2] and fH[i-3] > fH[i-1]
       and fH[i-3] > fH[i] and (fH[i-2] > fH[i] or fH[i-1] > fH[i])   then  CBL[i]:=fH[i-3]
   else if nL > 4 and fH[i-4] > fH[i-3] and fH[i-4] > fH[i-2]
       and fH[i-4] > fH[i-1] and fH[i-4] > fH[i]
       and (fH[i-3] > fH[i] or fH[i-2] > fH[i] or fH[i-1] > fH[i])    then  CBL[i]:=fH[i-4]
   else if nL > 5 and fH[i-5] > fH[i-4] and fH[i-5] > fH[i-3]
       and fH[i-5] > fH[i-2] and fH[i-5] > fH[i-1]
       and fH[i-5] > fH[i]
       and (fH[i-4] > fH[i] or fH[i-3] > fH[i] or fH[i-2] > fH[i] or fH[i-1] > fH[i])  then  CBL[i]:=fH[i-4];
end;
CBL;

 

加几个分号就可以了

金字塔—专业程序化交易量化投资平台

客户服务部

----------------------------------------------------------- 欢迎您参加我公司的技术培训，具体培训需求请发邮件到service@weistock.com

您的宝贵建议或者投诉，请发往邮箱:weiwei@weistock.com
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.09375 秒, 6 次数据查询