幫忙修改公式增加一個參數(shù)　[金字塔]

幫忙修改以下公式增加一個參數(shù)P,使延長條件即周期數(shù)5成為一個變參

如：N=10 P=5

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

// 金字塔上新構(gòu)建指標(biāo)：在HHV/LLV函數(shù)基礎(chǔ)上，忽略周期長度小于某個數(shù)值（暫定5），只延長長度大于5的直線直至新的交易日，延長線用虛線或其它顏色
表示。
// @author: 黃炬紅
// @version: 1.0 2012-04-13

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

vmyllv2=vmyllv '用另一個序列數(shù)組來存放

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 '用另一個序列數(shù)組來存放

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
在這個函數(shù)中，前四個參數(shù)為必選參數(shù)，第五個為可選參數(shù)，函數(shù)功能中求輸入的四個或五個參數(shù)的和，樓主可以先參考一下。