vba語(yǔ)言版的“亞當(dāng)理論”能否用pel語(yǔ)言實(shí)現(xiàn)呢？　[金字塔]

這個(gè)是金字塔老師用vba實(shí)現(xiàn)的指標(biāo)，能否轉(zhuǎn)化成pel語(yǔ)言呢？請(qǐng)老師幫忙，非常感謝！

AH:=HIGH; AL:=LOW; AO:=OPEN; AC:=CLOSE;
<%
vh=ffl.vardata("AH")
vl=ffl.vardata("AL")
vo=ffl.vardata("AO")
vc=ffl.vardata("AC")
last=ubound(vh)
if last<101 then
b=last+1
else
b=0
for i=last-101 to last-51
  vh(i)=vh(i+51)
  vl(i)=vl(i+51)
  vo(i)=vo(i+51)
  vc(i)=vc(i+51)
next
a=(vh(last-51)+vl(last-51))/2
j=1
for i=last-49 to last
  j=j+2
  vh(i)=2*a-vl(i-j)
  vl(i)=2*a-vh(i-j)
  vo(i)=2*a-vc(i-j)
  vc(i)=2*a-vo(i-j)
next
end if
ffl.vardata("AH")=vh
ffl.vardata("AL")=vl
ffl.vardata("AO")=vo
ffl.vardata("AC")=vc
ffl.varstartindex("AH")=b
ffl.varstartindex("AL")=b
ffl.varstartindex("AO")=b
ffl.varstartindex("AC")=b
%>
A:=BACKSET(ISLASTBAR,50);
STICKLINE(A AND AC>=AO,AO,AC,6,1),COLORMAGENTA,SHIFT50;
STICKLINE(A AND AC>=AO,AL,AO,0.1,1),COLORMAGENTA,SHIFT50;
STICKLINE(A AND AC>=AO,AC,AH,0.1,1),COLORMAGENTA,SHIFT50;
STICKLINE(A AND AC<AO,AO,AC,6,0),COLORGREEN,SHIFT50;
STICKLINE(A AND AC<AO,AL,AH,0.1,0),COLORGREEN,SHIFT50;
VERTLINE(ISLASTBAR),COLORYEALOW,POINTDOT;

這個(gè)注釋一下，先看看思路