亚当理论公式应该是这样

g555

亚当理论公式应该是这样

来自：MACD论坛(bbs.macd.cn) 作者：g555 浏览：9767 回复：16

飞狐交易师中亚当理论的公式是错误的，我自己编了一个。
首先把系统选项中，主图末端空余K线数设为20根，这样就可以全部显示预测的K线图。

1. 
   
2. mclose:=close;
   
3. mopen:=open;
   
4. mhigh:=high;
   
5. mlow:=low;
   
6. 
   
7. <%
   
8. mclose=FFL.VarData("mclose")
   
9. mopen=FFL.VarData("mopen")
   
10. mhigh=FFL.VarData("mhigh")
    
11. mlow=FFL.VarData("mlow")
    
12. 
    
13. StNo = FFL.VarStartIndex("mopen")
    
14. EndNo = ubound(mopen)
    
15. 
    
16. middle=mhigh(endno)+mlow(endno)
    
17. 
    
18. for i=stNo to EndNo-1
    
19.   mclose(i)=middle-mclose(i)
    
20. mopen(i)=middle-mopen(i)
    
21. mhigh(i)=middle-mhigh(i)
    
22. mlow(i)=middle-mlow(i)
    
23. next
    
24. 
    
25. 
    
26. for i=0 to 10
    
27.   temp=mclose(endno-i)
    
28.   mclose(endno-i)=mclose(endno-20+i)
    
29.   mclose(endno-20+i)=temp
    
30. 
    
31. temp=mopen(endno-i)
    
32.   mopen(endno-i)=mopen(endno-20+i)
    
33.   mopen(endno-20+i)=temp
    
34. 
    
35. temp=mhigh(endno-i)
    
36.   mhigh(endno-i)=mhigh(endno-20+i)
    
37.   mhigh(endno-20+i)=temp
    
38. 
    
39. temp=mlow(endno-i)
    
40.   mlow(endno-i)=mlow(endno-20+i)
    
41.   mlow(endno-20+i)=temp
    
42. next
    
43. 
    
44. 
    
45. FFL.VarData("mclose")=mclose
    
46. FFL.VarData("mopen")=mopen
    
47. FFL.VarData("mhigh")=mhigh
    
48. FFL.VarData("mlow")=mlow
    
49. ffl.VarStartIndex("mclose")=EndNo-19
    
50. %>
    
51. STICKLINE(mCLOSE>mOPEN,mopen,mclose,7,0),  colorblue,SHIFT20;
    
52. STICKLINE(mCLOSE>mOPEN,mhigh,mlow,1,0), , colorblue,SHIFT20;
    
53. STICKLINE(mCLOSE<=mOPEN,mopen,mclose,7,0), colorblue,SHIFT20;
    
54. STICKLINE(mCLOSE<=mOPEN,mclose,mlow,1,0), colorblue,SHIFT20;
    
55. STICKLINE(mCLOSE<=mOPEN,mhigh,mopen,1,0),colorblue,SHIFT20;
    

复制代码

冰火岛坐看云起

谢谢分享！

炒股上瘾

阴阳线颜色不分呀，能否在修改一下？

Nw588

谢谢分享

老牛158

请教怎样把你的原码安装上去呢?

络盐

谢谢

洪雷

xiexie

gsj007

请问楼主，能做成分析家的吗？

g555

用分析家5.0可能可以，我先学习一下分析家的公式说明

gsj007

谢谢g555兄
能做到象飞狐的那样，光标移到那一根k线，就画出亚当理论所述k线吗？？

干将云飞

===========改了一下显示颜色。。

mclose:=close;
mopen:=open;
mhigh:=high;
mlow:=low;

<%
mclose=FFL.VarData("mclose")
mopen=FFL.VarData("mopen")
mhigh=FFL.VarData("mhigh")
mlow=FFL.VarData("mlow")

StNo = FFL.VarStartIndex("mopen")
EndNo = ubound(mopen)

middle=mhigh(endno)+mlow(endno)

for i=stNo to EndNo-1
  mclose(i)=middle-mclose(i)
mopen(i)=middle-mopen(i)
mhigh(i)=middle-mhigh(i)
mlow(i)=middle-mlow(i)
next


for i=0 to 10
  temp=mclose(endno-i)
  mclose(endno-i)=mclose(endno-20+i)
  mclose(endno-20+i)=temp

temp=mopen(endno-i)
  mopen(endno-i)=mopen(endno-20+i)
  mopen(endno-20+i)=temp

temp=mhigh(endno-i)
  mhigh(endno-i)=mhigh(endno-20+i)
  mhigh(endno-20+i)=temp

temp=mlow(endno-i)
  mlow(endno-i)=mlow(endno-20+i)
  mlow(endno-20+i)=temp
next


FFL.VarData("mclose")=mclose
FFL.VarData("mopen")=mopen
FFL.VarData("mhigh")=mhigh
FFL.VarData("mlow")=mlow
ffl.VarStartIndex("mclose")=EndNo-19
%>
STICKLINE(mCLOSE>mOPEN,mopen,mclose,7,0),  colorblue,SHIFT20;
STICKLINE(mCLOSE>mOPEN,mhigh,mlow,1,0), , colorblue,SHIFT20;
STICKLINE(mCLOSE<=mOPEN,mopen,mclose,7,0), COLORMAGENTA,SHIFT20;
STICKLINE(mCLOSE<=mOPEN,mclose,mlow,1,0), COLORMAGENTA,SHIFT20;
STICKLINE(mCLOSE<=mOPEN,mhigh,mopen,1,0),COLORMAGENTA,SHIFT20;

cdywxy

主图末端空余K线数设为20根???

jss1963

请问老师，
    公式编好调用时出现：脚本引擎请求未知对象信息“WScript",
点击确定后又出现：脚本引擎请求未知对象信息”JSProxy"提示，再次点击后，主图上得内容变了，只剩下K线和亚当理论预测得K线，其他内容没有了，老师可以解决吗？？谢谢

hpy666

g555:*19*: :*19*: :*19*: :*19*:

mfeq2gold

#*d1*# 很好用，配合数浪主图，GOOD

噗嗤

又突然也让他我饿

zephyr998

学习