查看完整版本: 亚当理论-飞狐公式化讨论

亚当理论-飞狐公式化讨论

亚当理论－飞狐公式化讨论（摘自博庭社区）

[QUOTE][i]最初由 KOAS 发布[/i]
用飞狐交易师的反转坐标功能再将图形转至window 的程序”画图”中用其旋转180度就可得到亚当理论中唯一提及的预测方法Inverted Mirror Bar

算我胡闹,我是台湾的新用户,知道飞狐的公式应用功能强大可是我不会写公式
可否有高手愿意提供一些入门范例以供学习,谢谢 [/QUOTE]

[QUOTE][i]最初由 清扬 发布[/i]
亚当理论，在许沂光的《风险投资实用分析技巧》中有介绍。
是个很有意思的理论。
用基本函数做，大致是这个样子：[/QUOTE]
[code]
A:=L+(H-L)/2; //{主图叠加}
STICKLINE(ISLASTBAR,A+A-REF(O,1),A+A-REF(C,1),6,0),COLORYELLOW,SHIFT1;
STICKLINE(ISLASTBAR,A+A-REF(H,1),A+A-REF(L,1),0.1,0),COLORYELLOW,SHIFT1;
STICKLINE(ISLASTBAR,A+A-REF(O,2),A+A-REF(C,2),6,0),COLORYELLOW,SHIFT2;
STICKLINE(ISLASTBAR,A+A-REF(H,2),A+A-REF(L,2),0.1,0),COLORYELLOW,SHIFT2;
STICKLINE(ISLASTBAR,A+A-REF(O,3),A+A-REF(C,3),6,0),COLORYELLOW,SHIFT3;
STICKLINE(ISLASTBAR,A+A-REF(H,3),A+A-REF(L,3),0.1,0),COLORYELLOW,SHIFT3;
STICKLINE(ISLASTBAR,A+A-REF(O,4),A+A-REF(C,4),6,0),COLORYELLOW,SHIFT4;
STICKLINE(ISLASTBAR,A+A-REF(H,4),A+A-REF(L,4),0.1,0),COLORYELLOW,SHIFT4;
STICKLINE(ISLASTBAR,A+A-REF(O,5),A+A-REF(C,5),6,0),COLORYELLOW,SHIFT5;
STICKLINE(ISLASTBAR,A+A-REF(H,5),A+A-REF(L,5),0.1,0),COLORYELLOW,SHIFT5;
STICKLINE(ISLASTBAR,A+A-REF(O,6),A+A-REF(C,6),6,0),COLORYELLOW,SHIFT6;
STICKLINE(ISLASTBAR,A+A-REF(H,6),A+A-REF(L,6),0.1,0),COLORYELLOW,SHIFT6;
STICKLINE(ISLASTBAR,A+A-REF(O,7),A+A-REF(C,7),6,0),COLORYELLOW,SHIFT7;
STICKLINE(ISLASTBAR,A+A-REF(H,7),A+A-REF(L,7),0.1,0),COLORYELLOW,SHIFT7;
STICKLINE(ISLASTBAR,A+A-REF(O,8),A+A-REF(C,8),6,0),COLORYELLOW,SHIFT8;
STICKLINE(ISLASTBAR,A+A-REF(H,8),A+A-REF(L,8),0.1,0),COLORYELLOW,SHIFT8;
STICKLINE(ISLASTBAR,A+A-REF(O,9),A+A-REF(C,9),6,0),COLORYELLOW,SHIFT9;
STICKLINE(ISLASTBAR,A+A-REF(H,9),A+A-REF(L,9),0.1,0),COLORYELLOW,SHIFT9;
STICKLINE(ISLASTBAR,A+A-REF(O,10),A+A-REF(C,10),6,0),COLORYELLOW,SHIFT10;
STICKLINE(ISLASTBAR,A+A-REF(H,10),A+A-REF(L,10),0.1,0),COLORYELLOW,SHIFT10;
[/code]

“影子”

[QUOTE][i]最初由 清扬 发布[/i]
做50根K线的“影子”。
因为SHIFTX中的X不可以作为参数调整。所以就把“影子”数固定在50了。
K线数不足101根的，就没有输出。
所以公式还有优化的余地。
[/QUOTE]
[code]
HH:=H; LL:=L; OO:=O; CC:=C;
<%
vh=ffl.vardata("hh")
vl=ffl.vardata("ll")
vo=ffl.vardata("oo")
vc=ffl.vardata("cc")
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("hh")=vh
ffl.vardata("ll")=vl
ffl.vardata("oo")=vo
ffl.vardata("cc")=vc
ffl.varstartindex("hh")=b
ffl.varstartindex("ll")=b
ffl.varstartindex("oo")=b
ffl.varstartindex("cc")=b
%>
A:=BACKSET(ISLASTBAR,50);
STICKLINE(A AND CC>=OO,OO,CC,6,1),COLORMAGENTA,SHIFT50;
STICKLINE(A AND CC>=OO,LL,OO,0.1,1),COLORMAGENTA,SHIFT50;
STICKLINE(A AND CC>=OO,CC,HH,0.1,1),COLORMAGENTA,SHIFT50;
STICKLINE(A AND CC<OO,OO,CC,6,0),COLORGREEN,SHIFT50;
STICKLINE(A AND CC<OO,LL,HH,0.1,0),COLORGREEN,SHIFT50;
VERTLINE(ISLASTBAR),COLORYELLOW,POINTDOT;
[/code]

亚当理论最有意思的一条是：关于预测的技术指标全无意义。要跟随趋势，不要预测趋势。
当然这个理论本身也有缺陷的。

[QUOTE][i]最初由 KOAS 发布[/i]
胡闹却得了个宝贝,既然是我开的头又得了个宝,只好写全了,
照亚当理论使用双重映像图的时机如下:

线索1 突破,当下列情形发生时,运用双重映像图做决策:
市场涨到图形中以往许多高点或所有高点之上,反之亦然!

线索2 趋势改变,当下列情形发生时,运用双重映像图做决策:
市场突破明确的长期下跌走势,而新的上升趋势有攻克以前几个高价时,反之亦然!

线索3 缺口或当日高低价差大, 当下列情形发生时,运用双重映像图做决策:
市场突然之间跳空向上,或当日高低价差显著增加,显示市场苏醒,特别是线索1,2一起发生时,尤其重要!向下跳空亦然!!
以上因本人懒散,故节录重点

这理论简单的说就是咱们中国人说的”怎么上去就怎么下来”!!
建议 前辈所写的公式可往下列方向优化:
1.设定突破长期趋势线为公式的条件之一
2.配合波动量为其参数
谢谢您的指教,衷心感谢!!
假設一個下跌趨勢,從底部反轉的當天利用雙重映射圖
在主圖疊加後接著顯示出來的應該是一個上升圖形
與主圖疊加起來看起來會像一個 V 型反轉
[/QUOTE]

[[i] 本贴由 hx817 于 2004-3-24 11:25 最后编辑 [/i]]

[QUOTE][i]最初由 KOAS 发布[/i]
補充說明一下:
這映射圖如果能像扣抵公式一樣,隨著指標移動到哪個K線就生成後續的映射圖
就太完美了!!
或是依循原著作裡(我看的是台灣翻譯原著版)所提出突破趨勢線的條件再來使用
應該在飛狐的環境下可以實現才對,因為我好像看過有前輩寫過趨勢線的公式!!

chotosn 兄,
謝謝您提及chungwen兄所寫的那篇帖子,照當時預測的上證指數,現在看看還有幾分準確呢!!另外請問您 是否有哪位高手前輩寫過關於解消點的公式?

清扬大师,
看了許多帖子,在此對您與諸位前輩的無私奉獻,致上我最高的敬意!! [/QUOTE]

[QUOTE][i]最初由 南客 发布[/i]
对意思还不是十分明白，大致做了一个随十字光标（十字游标）移动的指标，看看哪些地方不符合？
以下代码做成副图指标，以便跟主图对比：
[/QUOTE]
[code]
fbars:=SYSPARAM(1)-1;
fend:=SYSPARAM(3)-1;
fc:=c;
fo:=o;
fl:=l;
fh:=h;
<%
vbars=ffl.vardata("fbars")
vend=ffl.vardata("fend")
vc=ffl.vardata("fc")
vo=ffl.vardata("fo")
vh=ffl.vardata("fh")
vl=ffl.vardata("fl")
n=vend-vbars+1
redim temp(n,3)
temp1=vend
for i=vbars to vend
  temp(temp1-i,0)=vo(i)
  temp(temp1-i,1)=vh(i)
  temp(temp1-i,2)=vl(i)
  temp(temp1-i,3)=vc(i)
next
for i=vbars to vend
  vo(i)=temp(i-vbars,3)
  vh(i)=temp(i-vbars,2)
  vl(i)=temp(i-vbars,1)
  vc(i)=temp(i-vbars,0)
next
ffl.vardata("fc")=vc
ffl.vardata("fo")=vo
ffl.vardata("fh")=vh
ffl.vardata("fl")=vl
%>
STICKLINE(fo>=fc,fl,fh,0.1,0),colorblue;
STICKLINE(fo>=fc,fo,fc,8,0),colorblue;
STICKLINE(fo<fc,fl,fh,0.1,1),colorred;
STICKLINE(fo<fc,fo,fc,8,1),colorred;
[/code]

[QUOTE][i]最初由 KOAS 发布[/i]
南客前輩,

如果用主圖疊加 與shift 功能接在主圖後面就更完美了!!
雙重映射圖的使用時機,我寫在上面的帖子!!請您參考指正!!

您使用的例子如果是一個下降底部剛開始起漲的時候,如上證指數在1300附近時使用主圖與映射圖就可以接到一塊了!!就如同我所舉的圖例,正是上星期五該股
收盤的情形,也正好符合雙重映射的使用時機!!

謝謝您的指教!! [/QUOTE]

[QUOTE][i]最初由 南客 发布[/i]
前辈不敢当，正好想用系统函数做实验，互相学习：）
接在后面？
暂且不画未来线，先看看这段代码，做成主图叠加指标（左右移动十字光标，来看看历史数据的“预测”情况）
受基本函数的限制，这段代码只能用K线图的后半段，若要解除限制，需使用VBS代码：[/QUOTE]
[code]
kBars:=barssince(c)+1;
cBars:=sysparam(1);
ts:=2*barslast(cbars=kbars)-1;
fc:=if(kBars<=cBars,c,ref(c,ts));
fo:=if(kBars<=cBars,o,ref(o,ts));
fl:=if(kBars<=cBars,l,ref(l,ts));
fh:=if(kBars<=cBars,h,ref(h,ts));
STICKLINE(fo>=fc,fl,fh,0.1,0),colorblue;
STICKLINE(fo>=fc,fo,fc,8,0),colorblue;
STICKLINE(fo<fc,fl,fh,0.1,1),colormagenta;
STICKLINE(fo<fc,fo,fc,8,1),colormagenta;
[/code]

[QUOTE][i]最初由 KOAS 发布[/i]
果然是高手,基本功能完備,只可惜無法接在主圖之後!!
算算我是老狗,想學新把戲,總是有點懶!!
希望早日了解各函數的用法,可以跟您做進一步的請教!!
現階段還是要麻煩您了!! [/QUOTE]

[QUOTE][i]最初由 南客 发布[/i]
代码稍改动，便于对比：[/QUOTE]
[code]
kBars:=barssince(c)+1;
cBars:=sysparam(1);
ts:=2*barslast(cbars=kbars)-1;
tj:=kBars<=cBars;
fc:=if(tj,c,ref(c,ts));
fo:=if(tj,o,ref(o,ts));
fl:=if(tj,l,ref(l,ts));
fh:=if(tj,h,ref(h,ts));
STICKLINE(fo>=fc,fl,fh,0.1,0),colorblue;
STICKLINE(fo>=fc,fo,fc,8,0),colorblue;
STICKLINE(fo<fc,fl,fh,0.1,1),colormagenta;
STICKLINE(fo<fc,fo,fc,8,1),colormagenta;

STICKLINE(fo>=fc and tj,fl,fh,0.1,0),colorcyan;
STICKLINE(fo>=fc and tj,fo,fc,8,0),colorcyan;
STICKLINE(fo<fc and tj,fl,fh,0.1,1),colorred;
STICKLINE(fo<fc and tj,fo,fc,8,1),colorred;
[/code]

[QUOTE][i]最初由 KOAS 发布[/i]
果然是高手,基本功能完備,只可惜無法接在主圖之後!!
算算我是老狗,想學新把戲,總是有點懶!!
希望早日了解各函數的用法,可以跟您做進一步的請教!!
現階段還是要麻煩您了!! [/QUOTE]

[QUOTE][i]最初由 南客 发布[/i]
按您的本意，似乎不是接在最后一根K线之后，而是接在十字光标所指示的K线之后，并且向未来延伸吧？ [/QUOTE]

[QUOTE][i]最初由 chotosn 发布[/i]
看了KOAS兄贴的原圖，以及利用飞狐反转座标图再旋转180度得到的雙重映射圖，对于亚当理论究竟是如何预测未来走势，倒真正困惑起来。由于未见过原著，也未见到KOAS兄所说的“台灣翻譯原著版”，所以无法知道J.W.Wilder
究竟是如何预测未来走势的。
国内介绍亚当理论的书有几本，但介绍较详细的还是香港许沂光的《风险投资实用分析技巧》。按此书所说，似应较符合亚当理论之原义，即涨时继续看涨，跌时继续看跌。也就是说：预测未来走势（映射部分）与已有走势（原圖）在3-1象限（涨势）或在2-4象限（跌势）呈奇对称（反对称）。chungwen兄和清扬专家的代码即是。
现在看了KOAS兄的贴圖，倒有点相反理论的味道，即”怎么上去就怎么下来”。也就是说：预测未来走势（映射部分）与已有走势（原圖）在3-4象限（涨势）或在2-1象限（跌势）呈偶对称（正对称），但阴阳反相。
J.W.Wilder究竟是如何预测未来走势的？不知KOAS兄是否见过原著“Adam's Theory”？ [/QUOTE]

[QUOTE][i]最初由 KOAS 发布[/i]
南兄,
正是,因為要先選擇一個K bar,然後在應用映射!!


chotosn兄,

我剛才查了一下,您說的沒錯,照原書確是第二象限與第三象限映射!!
我讀書真是不求甚解!!謝謝指正!!造成各位先進迷惑,在此致歉!!!

但我發覺錯有錯著!!照我原來的解釋是否也能做成另一種公式!!
請各位前輩幫忙完成!!!
如此看來亞當理論更像是一種全息理論的引申!!
而我原來的看法則是另一種思考!!

哈哈!!!有意思!!!
沒有各位的驗證與指導,還真驚不起我這個夢中人!!
真是要好好謝謝各位!!! [/QUOTE]

[QUOTE][i]最初由 南客 发布[/i]
呵呵，就按相反的做吧，向未来移动固定50根K线，正如清扬兄所说，右移只能是固定的数值。试试以下代码：[/QUOTE]

[code]
fbars:=SYSPARAM(1)-1;
tj:=barssince(c)>fbars-50;
fc:=c;
fo:=o;
fl:=l;
fh:=h;
<%
vbars=ffl.vardata("fbars")
vc=ffl.vardata("fc")
vo=ffl.vardata("fo")
vh=ffl.vardata("fh")
vl=ffl.vardata("fl")
vend=ubound(vc)
n=50
if vbars<=vend and vbars>vend-vbars+n then
  redim temp(vend-vbars+n,3)
  for i=2*vbars-vend-n to vbars
    ii=i+vend-2*vbars+n
    temp(ii,0)=vo(i)
    temp(ii,1)=vh(i)
    temp(ii,2)=vl(i)
    temp(ii,3)=vc(i)
  next
  for i=vbars-n to vend
    ii=vend-i
    vo(i)=temp(ii,3)
    vh(i)=temp(ii,2)
    vl(i)=temp(ii,1)
    vc(i)=temp(ii,0)
  next
  ffl.vardata("fc")=vc
  ffl.vardata("fo")=vo
  ffl.vardata("fh")=vh
  ffl.vardata("fl")=vl
end if
%>
STICKLINE(fo>=fc and tj,fl,fh,0.1,0),colorblue,shift50;
STICKLINE(fo>=fc and tj,fo,fc,8,0),colorblue,shift50;
STICKLINE(fo<fc and tj,fl,fh,0.1,1),colormagenta,shift50;
STICKLINE(fo<fc and tj,fo,fc,8,1),colormagenta,shift50;
[/code]

[QUOTE][i]最初由 KOAS 发布[/i]
忍不住要說聲:哥們,好樣的!!
套句我們這的俗話:您真是任考不倒!!
這論壇有您們在,真是我們的福氣!!
再次致上最高的謝意!!!

ps,看我發帖子的時間就知道我的期待了!!

之前多有誤導,敬請各路兄弟務必從頭看清楚了,如果再造成大家的誤會,我的罪過就更大了,順便也看看我的糊塗!!哈哈哈!!

我想世上像我這樣的懶人比較多,懶人想的多,所以鬼主意有!!但缺乏執行力!!
像幾位高手就是少數有執行力的人,這個論壇如果能好好結合這兩種人!!
一定能把飛狐提升到另一種境界!!

南客兄,您可知道要找到像您與其他前輩這樣的高手,又能無私的奉獻,我找了多久!!以後一定常常打擾!!!到時,您可別嫌我煩!!

亞當理論需要一段一段的接,也就是要先取一個時段的K bar,再做雙重映射,
等我把書籍內容scan 好再傳給您!!雙重映射部分基本上就如同清揚兄所寫的!!
[/QUOTE]

[QUOTE][i]最初由 南客 发布[/i]
这样的？[/QUOTE]

[code]
fbars:=SYSPARAM(1)-1;
tj:=barssince(c)>fbars-50;
fc:=c;
fo:=o;
fl:=l;
fh:=h;
<%
vbars=ffl.vardata("fbars")
vc=ffl.vardata("fc")
vo=ffl.vardata("fo")
vh=ffl.vardata("fh")
vl=ffl.vardata("fl")
vend=ubound(vc)
n=50
if vbars<=vend and vbars>vend-vbars+n then
  redim temp(vend-vbars+n,3)
  for i=2*vbars-vend-n to vbars
    ii=i+vend-2*vbars+n
    temp(ii,0)=2*vc(vbars)-vo(i)
    temp(ii,1)=2*vc(vbars)-vh(i)
    temp(ii,2)=2*vc(vbars)-vl(i)
    temp(ii,3)=2*vc(vbars)-vc(i)
  next
  for i=vbars-n to vend
    ii=vend-i
    vo(i)=temp(ii,3)
    vh(i)=temp(ii,2)
    vl(i)=temp(ii,1)
    vc(i)=temp(ii,0)
  next
  ffl.vardata("fc")=vc
  ffl.vardata("fo")=vo
  ffl.vardata("fh")=vh
  ffl.vardata("fl")=vl
end if
%>
STICKLINE(fo>=fc and tj,fl,fh,0.1,0),colorblue,shift50;
STICKLINE(fo>=fc and tj,fo,fc,8,0),colorblue,shift50;
STICKLINE(fo<fc and tj,fl,fh,0.1,1),colormagenta,shift50;
STICKLINE(fo<fc and tj,fo,fc,8,1),colormagenta,shift50;
[/code]

hx817大版主，还有南客、清扬的帖子，帖帖有新意啊。

让我们学都不不完。:yes:

收藏学习

收藏学习:cool::po::po:

论坛有你更精彩，谢谢，辛苦了，感谢你的辛勤劳动！

好东西！

好

论坛有你更精彩，谢谢，辛苦了，感谢你的辛勤劳动！

xx

收藏学习，谢谢

看不懂

谢谢

收藏学习，谢谢

我还要慢慢学啊

3q

好帖子。。。。

好

祝你们成功！

虽然我不会编辑公式，但看得出来：值得进一步研究亚当理论在预测方面的应用。
祝你们成功！

hx817老师：
非常感谢您！
           LHL311   2004/05/09

ok

ok

感谢你的辛勤劳动！

论坛有你更精彩，谢谢，辛苦了，感谢你的辛勤劳动！

非常复杂 , 但也非常丰富 . 论坛有你更精彩 ! 谢谢 !! 辛苦了!!! 感谢你的辛勤劳动 !!!

[color=Teal][align=right] 本贴由 yulingang 于 2004-6-2 21:51 最后编辑 [/align][/color]

感谢你的辛勤劳动！

okok

thanks

很深的编程功底。

我还要慢慢学

[quote][i]cds[/i] 于 2004-4-26 03:14 PM 写道:
[/quote]
:D:D:D

收藏学习

感谢你!

ok

XIEXIE

收藏学习

ok

:cool:

论坛有你更精彩，谢谢，辛苦了，感谢你的辛勤劳动！

:clap:

学习...谢谢！

学习...谢谢！

慢慢学啊