帮忙修改公式增加一个参数　[金字塔]

帮忙修改以下公式增加一个参数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;

function F(Byval a1 as integer,byval a2 as integer,Byval a3 as integer,Byval a4 as integer,Optional a5) as integer
F=a1+a2+a3+a4
if Not isMissing(a5) then
F=F+a5
end if
ned function
在这个函数中，前四个参数为必选参数，第五个为可选参数，函数功能中求输入的四个或五个参数的和，楼主可以先参考一下。