以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  老版本PEL公式求助  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=164220)
--  作者：hborning
--  发布时间：2018/6/30 20:45:19
--  老版本PEL公式求助
我有个以前用<%  %>写的PEL程序，想问大佬能不能告诉，如何写成VBA程序可以进行调试啊？


KGAODIAN:=HIGH;
KDIDIAN:=LOW;
YIJIBIAOZHI:=CLOSE;

<%
k_gaodian_1 = ffl.vardata("KGAODIAN")\'原始K线高点
k_didian_1 = ffl.vardata("KDIDIAN")\'原始K线低点
yiji_gaodidian_biaozhi = ffl.vardata("YIJIBIAOZHI")


DIM k_gaodian_baohan(65535)
DIM k_didian_baohan(65535)
DIM k_zhenshi_weizhi(65535)

k_baohan_count = 1
k_gaodian_baohan(0) = k_gaodian_1(0)
k_didian_baohan(0) = k_didian_1(0)
k_zhenshi_weizhi(0) = 0


For i = 1 to ubound(k_gaodian_1)
If (k_gaodian_1(i)>= k_gaodian_baohan(k_baohan_count-1)) AND (k_didian_1(i) <= k_didian_baohan(k_baohan_count-1)) Then
\'后面包含前面
k_gaodian_baohan(k_baohan_count-1) = k_gaodian_1(i)
k_didian_baohan(k_baohan_count-1) = k_didian_1(i)
k_zhenshi_weizhi(k_baohan_count-1) = i
Else
If (k_gaodian_1(i)<= k_gaodian_baohan(k_baohan_count-1)) AND (k_didian_1(i) >= k_didian_baohan(k_baohan_count-1)) Then
Else
k_baohan_count = k_baohan_count + 1
k_gaodian_baohan(k_baohan_count-1) = k_gaodian_1(i)
k_didian_baohan(k_baohan_count-1) = k_didian_1(i)
k_zhenshi_weizhi(k_baohan_count-1) = i
End If
End If
Next
For i = 1 to k_baohan_count-1 
If (k_didian_baohan(i)< k_didian_baohan(i+1)) AND (k_didian_baohan(i)< k_didian_baohan(i-1)) Then
start_yiji = i
Exit For
End If
Next

DIM yiji_didian_zhenshi_weizhi(65535)
DIM yiji_gaodian_zhenshi_weizhi(65535)

yiji_didian_count = 0
yiji_gaodian_count = 0
For i = 0 to  ubound(k_gaodian_1)
yiji_gaodidian_biaozhi(i) = 0
Next

For i = start_yiji to k_baohan_count-1 
If (k_didian_baohan(i) < k_didian_baohan(i+1)) AND (k_didian_baohan(i) < k_didian_baohan(i-1)) Then
yiji_didian_count = yiji_didian_count + 1
yiji_didian_zhenshi_weizhi(yiji_didian_count-1) = k_zhenshi_weizhi(i)
yiji_gaodidian_biaozhi(k_zhenshi_weizhi(i)) = -1
Else
If (k_gaodian_baohan(i) > k_gaodian_baohan(i+1)) AND (k_gaodian_baohan(i) > k_gaodian_baohan(i-1)) Then
yiji_gaodian_count = yiji_gaodian_count + 1
yiji_gaodian_zhenshi_weizhi(yiji_gaodian_count - 1) = k_zhenshi_weizhi(i)
yiji_gaodidian_biaozhi(k_zhenshi_weizhi(i)) = 1
End If
End If
Next

ffl.vardata("YIJIBIAOZHI") = yiji_gaodidian_biaozhi

%>

DRAWLINE((YIJIBIAOZHI=-1),LOW,(YIJIBIAOZHI=1),HIGH,0),LINEDOT,COLORDEC4B0;
DRAWLINE((YIJIBIAOZHI=1),HIGH,(YIJIBIAOZHI=-1),LOW,0),LINEDOT,COLORDEC4B0;