幫忙修改以下公式增加一個參數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
在這個函數中，前四個參數為必選參數，第五個為可選參數，函數功能中求輸入的四個或五個參數的和，樓主可以先參考一下。