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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → 帮忙修改公式增加一个参数

   

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


  共有4894人关注过本帖平板打印复制链接

主题:帮忙修改公式增加一个参数

帅哥哟,离线,有人找我吗?
macro
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:36 积分:195 威望:0 精华:0 注册:2012/2/22 10:46:32
帮忙修改公式增加一个参数  发帖心情 Post By:2012/4/17 14:24:04 [只看该作者]

帮忙修改以下公式增加一个参数P,使延长条件即周期数5成为一个变参

 

如:N=10 P=5

 

bg:(HHV(high,n))COLORred;
bd:(LLV(low,n))COLORgreen;

// 金字塔上新构建指标:在HHV/LLV函数基础上,忽略周期长度小于某个数值(暂定5),只延长长度大于5的直线直至新的交易日,延长线用虚线或其它颜色
表示。
// @author: 黄炬红
// @version: 1.0 2012-04-13

myllv:=llv(l,n);
mydate:=date;
<%
vmyllv=ffl.vardata("myllv")

vmyllv2=vmyllv '用另一个序列数组来存放

vmydate=ffl.vardata("mydate")

last=ubound(vmyllv)

value = 0

for i=5 to last

vmyllv2(i) = vmyllv(i)

if ( vmydate(i) = vmydate(i-1) ) then

  if ( vmyllv(i)=vmyllv(i-1) and vmyllv(i-1)=vmyllv(i-2) and vmyllv(i-2)=vmyllv(i-3) and vmyllv(i-3)=vmyllv(i-4) ) then
    flag = true
    value = vmyllv(i)
  end if
 
  if (flag) then
    vmyllv2(i) = value
  end if
 
else
 
  flag = false
 
end if

next

ffl.vardata("myllv") = vmyllv2

%>

myllv colorblue;


myhhv:=hhv(h,n);
<%
vmyhhv=ffl.vardata("myhhv")

vmyhhv2=vmyhhv '用另一个序列数组来存放

vmydate=ffl.vardata("mydate")

last=ubound(vmyhhv)

value = 0

for i=5 to last

vmyhhv2(i) = vmyhhv(i)

if ( vmydate(i) = vmydate(i-1) ) then

  if ( vmyhhv(i)=vmyhhv(i-1) and vmyhhv(i-1)=vmyhhv(i-2) and vmyhhv(i-2)=vmyhhv(i-3) and vmyhhv(i-3)=vmyhhv(i-4) ) then
    flag = true
    value = vmyhhv(i)
  end if
 
  if (flag) then
    vmyhhv2(i) = value
  end if
 
else
 
  flag = false
 
end if

next

ffl.vardata("myhhv") = vmyhhv2

%>

myhhv colorwhite;


 回到顶部