欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 老版本PEL公式求助

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有2296人关注过本帖树形打印复制链接

主题：老版本PEL公式求助
帅哥哟，离线，有人找我吗？
hborning
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：122 积分：0 威望：0 精华：0 注册：2017/4/27 19:25:29 		老版本PEL公式求助  发帖心情 Post By：2018/6/30 20:45:19 [只看该作者]

我有个以前用<%  %>写的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;
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.07813 秒, 5 次数据查询