以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  vba语言版的“亚当理论”能否用pel语言实现呢？  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=61349)
--  作者：vba
--  发布时间：2014/1/28 14:51:58
--  vba语言版的“亚当理论”能否用pel语言实现呢？

这个是金字塔老师用vba实现的指标，能否转化成pel语言呢？请老师帮忙，非常感谢！

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;
--  作者：jinzhe
--  发布时间：2014/1/28 14:55:38
--  

这个注释一下，先看看思路
--  作者：vba
--  发布时间：2014/1/28 14:59:32
--  
晕，vba我也不懂，上面的vba代码是金字塔的老师写的（忘了是哪位老师了），所以想请老师转换成pel语言，这样方便大家解读代码，非常感谢老师！
--  作者：jinzhe
--  发布时间：2014/1/28 15:16:47
--  
这个就不行了，没有思路光给代码转换不了
--  作者：wgj2014
--  发布时间：2014/2/21 23:47:26
--  
请问金字塔软件能画出亚当理论的映像图吗？
--  作者：kevintang
--  发布时间：2014/6/5 11:56:46
--  
楼主找到办法了吗?这个怎么放到金字塔中运行啊?
--  作者：jinzhe
--  发布时间：2014/6/5 13:20:18
--  

怎么用VBA，用户可以去高级区发帖咨询，这里有个连接，用户先看看

 

http://www.weistock.com/WeisoftHelp/vbabiancheng.htm