到奇狐勝券首頁 奇狐社區論壇 購買奇狐勝券 試用奇狐勝券
 
論壇首頁 你可以在這裡編輯你的資料,查看短訊,訂閱主題和論壇參數等等 免費會員註冊 會員列表 論壇幫助 論壇日曆 論壇搜索 加入我的最愛 登出論壇  
奇狐社區論壇 : Powered by vBulletin version 2.3.0 奇狐社區論壇 > 指標公式 > 應用交流 > 箱體ABC...........................轉
  上一主題   下一主題
作者
主題 發表新主題    回覆主題
mowtua
中級會員

註冊日期: Dec 2005
來  自:
文章數量: 55

箱體ABC...........................轉

n=2


cc:=c;
oo:=o;
hh:=h;
ll:=l;
top:=h;
bot:=l;
xx[1]:=1;
kk:=1;
for i=1 to datacount do begin if xx[i]=1 then begin top[i]:=hh[i];
end;
if xx[i-1]=1 then begin if hh[i]>top[i-1] then begin top[i]:=hh[i];
xx[i]:=1;
end;
else begin top[i]:=top[i-1];
xx[i]:=2;
end;
end;
if xx[i-1]=2 then begin if hh[i]>top[i-1] then begin top[i]:=hh[i];
xx[i]:=1;
end;
else begin top[i]:=top[i-1];
bot[i]:=ll[i];
xx[i]:=3;
end;
end;
if xx[i-1]=3 then begin top[i]:=top[i-1];
if ll[i]<bot[i-1] then begin bot[i]:=ll[i];
xx[i]:=3;
end;
else begin bot[i]:=bot[i-1];
xx[i]:=4;
end;
end;
if xx[i-1]=4 then begin top[i]:=top[i-1];
if ll[i]<bot[i-1] then begin bot[i]:=ll[i];
xx[i]:=3;
end;
else begin bot[i]:=bot[i-1];
xx[i]:=5;
end;
end;
if xx[i-1]=5 then begin if ll[i]<bot[i-1] or hh[i]>top[i-1] then begin top[i]:=hh[i];
bot[i]:=hh[i];
xx[i]:=1;
end;
else begin bot[i]:=bot[i-1];
top[i]:=top[i-1];
xx[i]:=5;
end;
end;
end;
for j=1 to datacount do begin if xx[j]=5 and xx[j-1]=4 then begin for k=j-1 downto j-kk do begin top[k]:=top[j];
bot[k]:=bot[j];
end;
end;
if xx[j-1]=5 and xx[j]=1 then kk:=0;
kk:=kk+1;
end;
中位線:=(top+bot)/2;
買點:=FILTER((TROUGHBARS(3,15,1)<4)=1,3);
賣點:=FILTER((PEAKBARS(3,15,1)<4)=1,3);
F:=100*(C-REF(C,1))/REF(C,1);
p1:=IF(C<REF(O,1) AND f<0,1,0);
p3:=IF(C>REF(O,1) AND f>0,1,0);
p2:=IF(C<REF(O,2) AND f<0,1,0);
p4:=IF(C>REF(O,2) AND f>0,1,0);
買D5:=P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1;
賣D6:=P3=0 AND REF(P3,1)=1 AND P4=0 AND REF(P4,1)=1;
FZ:=PEAK(3,5,1);
FW:=PEAKBARS(3,5,1);
GZ:=TROUGH(3,5,1);
GW:=TROUGHBARS(3,5,1);
AS:=ZIG(3,3);
漲AL:=CROSS(AS,REF(AS,1));
跌AG:=CROSS(REF(AS,1),AS);
Ss1:=IF(FW>GW,FW,0);
Ss2:=IF(FW<GW,GW,0);
Ss3:=BARSLAST(Ss1);
Ss4:=BARSLAST(Ss2);
PARTLINE(top=ref(top,1),top),Color008293;
PARTLINE(bot=ref(bot,1),bot),Color008293;
STICKLINE((top<>ref(top,1) or bot<>ref(bot,1)) and xx=1 and ref(xx,1)=5,top,bot,1,0),Color008293;
STICKLINE((top<>refx(top,1) or bot<>refx(bot,1)) and xx=5 and refx(xx,1)=1,top,bot,1,0),Color008293;
PARTLINE(top=ref(top,1),中位線),LINEDOT,Color008293;

STICKLINE(ma(c,5)>ma(c,10),CLOSE,OPEN,8,0),COLORred;
STICKLINE(ma(c,5)>ma(c,10),HIGH,LOW,0,0),COLORred;
STICKLINE(ma(c,10)>=ma(c,5),CLOSE,OPEN,8,0),COLORBLUE;
STICKLINE(ma(c,10)>=ma(c,5),HIGH,LOW,0,0),COLORBLUE;



HH:=HHV(HIGH,N);
LL:=LLV(LOW,N);
A1:=HH>REF(HH,2) && CLOSE>REF(CLOSE,2);
A2:=LL<REF(LL,2) && CLOSE<REF(CLOSE,2);
A3:=BARSLAST(A1);
A4:=BARSLAST(A2);
A5:=IF(A1,LL,REF(LL,A3));
A6:=IF(A2,HH,REF(HH,A4));
YZX:IF(A3>A4,A6,A5),LINETHICK2;
STICKLINE(CLOSE>YZX,CLOSE,OPEN,8,1),COLORRED,LINETHICK2;
STICKLINE(CLOSE<=YZX,CLOSE,OPEN,8,1),COLORBLUE,LINETHICK2;

向版主報告此篇 | 查IP位址
Old Post 2008-12-27 18:11
mowtua 現在離線 點選這裡查看 mowtua 的個人資料 點選這裡給 mowtua 傳送一條短訊 查找更多關於 mowtua 的文章 增加 mowtua 至你的好友列表 編輯/刪除訊息 引用回覆
亞當理論
初級會員

註冊日期: Jul 2005
來  自:
文章數量: 19

正是想要找的. 感恩

不過,不知這段目的 ....

買點:=FILTER((TROUGHBARS(3,15,1)<4)=1,3);
賣點:=FILTER((PEAKBARS(3,15,1)<4)=1,3);
F:=100*(C-REF(C,1))/REF(C,1);
p1:=IF(C<REF(O,1) AND f<0,1,0);
p3:=IF(C>REF(O,1) AND f>0,1,0);
p2:=IF(C<REF(O,2) AND f<0,1,0);
p4:=IF(C>REF(O,2) AND f>0,1,0);
買D5:=P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1;
賣D6:=P3=0 AND REF(P3,1)=1 AND P4=0 AND REF(P4,1)=1;
FZ:=PEAK(3,5,1);
FW:=PEAKBARS(3,5,1);
GZ:=TROUGH(3,5,1);
GW:=TROUGHBARS(3,5,1);
AS:=ZIG(3,3);
漲AL:=CROSS(AS,REF(AS,1));
跌AG:=CROSS(REF(AS,1),AS);
Ss1:=IF(FW>GW,FW,0);
Ss2:=IF(FW<GW,GW,0);
Ss3:=BARSLAST(Ss1);
Ss4:=BARSLAST(Ss2);

向版主報告此篇 | 查IP位址
Old Post 2009-01-02 10:01
亞當理論 現在離線 點選這裡查看 亞當理論 的個人資料 點選這裡給 亞當理論 傳送一條短訊 查找更多關於 亞當理論 的文章 增加 亞當理論 至你的好友列表 編輯/刪除訊息 引用回覆
B.S.
資深會員

註冊日期: Mar 2005
來  自:
文章數量: 2419

ahfyxl兄於20080528
有篇文可解您的問題
您可搜尋看看

B.S. 附帶上了此圖片:

向版主報告此篇 | 查IP位址
Old Post 2009-01-03 18:13
B.S. 現在離線 點選這裡查看 B.S. 的個人資料 點選這裡給 B.S. 傳送一條短訊 查找更多關於 B.S. 的文章 增加 B.S. 至你的好友列表 編輯/刪除訊息 引用回覆
亞當理論
初級會員

註冊日期: Jul 2005
來  自:
文章數量: 19

了解了. 謝謝

向版主報告此篇 | 查IP位址
Old Post 2009-01-03 21:10
亞當理論 現在離線 點選這裡查看 亞當理論 的個人資料 點選這裡給 亞當理論 傳送一條短訊 查找更多關於 亞當理論 的文章 增加 亞當理論 至你的好友列表 編輯/刪除訊息 引用回覆
全部時間均為台灣時間, 現在時間為01:09 發表新主題    回覆主題
  上一主題   下一主題
顯示可列印版本 | 訂閱此主題

論壇跳轉:
主題評分:

論壇規定:
你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章
HTML語法禁止
vB 語法核准
表情符號核准
貼圖語法[IMG]核准
 

本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。

Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.

簡愛洋行 製作 Copyright 2003-. All Rights Reserved.  聯絡我們