61 123
发新话题
打印

[高级] 亚当理论-飞狐公式化讨论

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

亚当理论-飞狐公式化讨论(摘自博庭社区)
引用:
最初由 KOAS 发布
用飞狐交易师的反转坐标功能再将图形转至window 的程序”画图”中用其旋转180度就可得到亚当理论中唯一提及的预测方法Inverted Mirror Bar

算我胡闹,我是台湾的新用户,知道飞狐的公式应用功能强大可是我不会写公式
可否有高手愿意提供一些入门范例以供学习,谢谢
引用:
最初由 清扬 发布
亚当理论,在许沂光的《风险投资实用分析技巧》中有介绍。
是个很有意思的理论。
用基本函数做,大致是这个样子:
复制内容到剪贴板
代码:
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;
“影子”
附件: 您所在的用户组无法下载或查看附件

TOP

引用:
最初由 清扬 发布
做50根K线的“影子”。
因为SHIFTX中的X不可以作为参数调整。所以就把“影子”数固定在50了。
K线数不足101根的,就没有输出。
所以公式还有优化的余地。
复制内容到剪贴板
代码:
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;
亚当理论最有意思的一条是:关于预测的技术指标全无意义。要跟随趋势,不要预测趋势。
当然这个理论本身也有缺陷的。
引用:
最初由 KOAS 发布
胡闹却得了个宝贝,既然是我开的头又得了个宝,只好写全了,
照亚当理论使用双重映像图的时机如下:

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

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

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

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

TOP

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

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

清扬大师,
看了許多帖子,在此對您與諸位前輩的無私奉獻,致上我最高的敬意!!
引用:
最初由 南客 发布
对意思还不是十分明白,大致做了一个随十字光标(十字游标)移动的指标,看看哪些地方不符合?
以下代码做成副图指标,以便跟主图对比:
复制内容到剪贴板
代码:
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;
附件: 您所在的用户组无法下载或查看附件

TOP

引用:
最初由 KOAS 发布
南客前輩,

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

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

謝謝您的指教!!
引用:
最初由 南客 发布
前辈不敢当,正好想用系统函数做实验,互相学习:)
接在后面?
暂且不画未来线,先看看这段代码,做成主图叠加指标(左右移动十字光标,来看看历史数据的“预测”情况)
受基本函数的限制,这段代码只能用K线图的后半段,若要解除限制,需使用VBS代码:
复制内容到剪贴板
代码:
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;
引用:
最初由 KOAS 发布
果然是高手,基本功能完備,只可惜無法接在主圖之後!!
算算我是老狗,想學新把戲,總是有點懶!!
希望早日了解各函數的用法,可以跟您做進一步的請教!!
現階段還是要麻煩您了!!
引用:
最初由 南客 发布
代码稍改动,便于对比:
复制内容到剪贴板
代码:
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;
附件: 您所在的用户组无法下载或查看附件

TOP

引用:
最初由 KOAS 发布
果然是高手,基本功能完備,只可惜無法接在主圖之後!!
算算我是老狗,想學新把戲,總是有點懶!!
希望早日了解各函數的用法,可以跟您做進一步的請教!!
現階段還是要麻煩您了!!
引用:
最初由 南客 发布
按您的本意,似乎不是接在最后一根K线之后,而是接在十字光标所指示的K线之后,并且向未来延伸吧?
引用:
最初由 chotosn 发布
看了KOAS兄贴的原圖,以及利用飞狐反转座标图再旋转180度得到的雙重映射圖,对于亚当理论究竟是如何预测未来走势,倒真正困惑起来。由于未见过原著,也未见到KOAS兄所说的“台灣翻譯原著版”,所以无法知道J.W.Wilder
究竟是如何预测未来走势的。
国内介绍亚当理论的书有几本,但介绍较详细的还是香港许沂光的《风险投资实用分析技巧》。按此书所说,似应较符合亚当理论之原义,即涨时继续看涨,跌时继续看跌。也就是说:预测未来走势(映射部分)与已有走势(原圖)在3-1象限(涨势)或在2-4象限(跌势)呈奇对称(反对称)。chungwen兄和清扬专家的代码即是。
现在看了KOAS兄的贴圖,倒有点相反理论的味道,即”怎么上去就怎么下来”。也就是说:预测未来走势(映射部分)与已有走势(原圖)在3-4象限(涨势)或在2-1象限(跌势)呈偶对称(正对称),但阴阳反相。
J.W.Wilder究竟是如何预测未来走势的?不知KOAS兄是否见过原著“Adam's Theory”?
引用:
最初由 KOAS 发布
南兄,
正是,因為要先選擇一個K bar,然後在應用映射!!


chotosn兄,

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

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

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

TOP

引用:
最初由 南客 发布
呵呵,就按相反的做吧,向未来移动固定50根K线,正如清扬兄所说,右移只能是固定的数值。试试以下代码:
复制内容到剪贴板
代码:
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;
引用:
最初由 KOAS 发布
忍不住要說聲:哥們,好樣的!!
套句我們這的俗話:您真是任考不倒!!
這論壇有您們在,真是我們的福氣!!
再次致上最高的謝意!!!

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

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

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

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

亞當理論需要一段一段的接,也就是要先取一個時段的K bar,再做雙重映射,
等我把書籍內容scan 好再傳給您!!雙重映射部分基本上就如同清揚兄所寫的!!
引用:
最初由 南客 发布
这样的?
复制内容到剪贴板
代码:
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;

TOP

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

让我们学都不不完。

TOP

收藏学习

TOP

收藏学习

TOP

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

TOP

好东西!

TOP

论坛有你们更精彩,谢谢

TOP

TOP

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

TOP

xx

TOP

收藏学习,谢谢

TOP

看不懂

TOP

谢谢

TOP

ok

TOP

收藏学习,谢谢

TOP

我还要慢慢学啊

TOP

3q

TOP

好帖子。。。。

TOP

TOP

 61 123
发新话题
报警岗亭