查看完整版本: 不同週期取固定區間K線值

peter109 2005-7-4 18:11

不同週期取固定區間K線值

在 5分/ 15分/ 30分/ 60分週期
取每天的第一個小時的最高/最低價


請問
一個公式但能夠套用所有週期
應該如何表示?

[color=Teal][align=right] 本贴由 peter109 于 2005-7-4 18:31 最后编辑 [/align][/color]

bajatje 2005-7-4 19:02

w:=barslast(hour<ref(hour,1));
t:=barslast(hour=10 and minute>30)=0;
hh:hhv(h*t,w);
LL:LLv(L*t,w);

股市骑兵00 2005-7-4 19:35

[quote]Originally posted by [i]bajatje[/i] at 2005-7-4 19:02:
w:=barslast(hour<ref(hour,1));
t:=barslast(hour=10 and minute>30)=0;
hh:hhv(h*t,w);
LL:LLv(L*t,w); [/quote]

呵呵，比我还粗心呢，改了下。

zq:=DATATYPE;n:=99999;
if zq<3 or zq>5 then exit;
q:=OPENMINUTES(TIME)<=60;
ts:=sumbars(date>ref(date,1) or barpos=1,1);
hh:hhv(q*h,ts);
ll:llv(if(q,l,n),ts);

peter109 2005-7-4 19:55

謝謝兩位

是我沒說清楚吧
具體要求修正為
第一個小時中的最高價/最低價 (目前公式仍有瑕疵)
畫線方式依據每日為單位 不要連續的線 (就每日而言 成為線段的表現) 由當日第一根K線開始

這裡 if zq<3 or zq>5 then exit;
因為五分鐘要能用
所以 修正為  if zq<2 or zq>5 then exit;

說來慚愧
由於對if條件句不熟
目前我作業的公式長度已經是您的好幾倍
難怪我自編公式相對佔用RAM的空間大了許多

[color=Teal][align=right] 本贴由 peter109 于 2005-7-4 20:01 最后编辑 [/align][/color]

bajatje 2005-7-4 20:27

[quote]Originally posted by [i]股市骑兵00[/i] at 2005-7-4 07:35 PM:


呵呵，比我还粗心呢，改了下。

zq:=DATATYPE;n:=99999;
if zq<3 or zq>5 then exit;
q:=OPENMINUTES(TIME)<=60;
ts:=sumbars(date>ref(date,1) or barpos=1,1);
hh:hhv(q*h,ts);
ll:llv( ... [/quote]

谢谢骑兵！

w:=barslast(hour<ref(hour,1))+1;
t:=barslast(OPENMINUTES(TIME)<=60);
hh:hhv(h*(t=0),w),COLORMAGENTA,LINETHICK0;
LL:ref(LLv(L*(t=0),w),t),COLORGREEN,LINETHICK0;
PARTLINE(w>1,hh),COLORMAGENTA;
PARTLINE(w>1,LL),COLORGREEN;

因为Ｗ句的作用，条件句可省略

peter109 2005-7-4 20:46

依然存有小瑕疵
見圖說明

[url]http://bbs.fjfox.com/viewthread.php?tid=19984&sid=OsRijW[/url]

bajatje 2005-7-4 21:33

w:=barslast(hour<ref(hour,1))+1;
t:=barslast(OPENMINUTES(TIME)<=60);
k:=DATATYPE;
u:=if(k=1,240,if(k=2,48,if(k=3,16,if(k=4,8,4))));
hh:hhv(h*(t=0),w),COLORMAGENTA,LINETHICK0;
LL:ref(LLv(L*(t=0),w),t),COLORGREEN,LINETHICK0;
PARTLINE(w>1,refx(hh,u-w)),COLORMAGENTA;
PARTLINE(w>1,refx(LL,u-w)),COLORGREEN;

peter109 2005-7-4 21:44

依然不對
目前呈現出階梯狀
見圖說明

[url]http://bbs.fjfox.com/viewthread.php?tid=19984&sid=OsRijW[/url]

[color=Teal][align=right] 本贴由 peter109 于 2005-7-4 21:47 最后编辑 [/align][/color]

股市骑兵00 2005-7-4 21:50

[quote]Originally posted by [i]bajatje[/i] at 2005-7-4 20:27:


谢谢骑兵！

w:=barslast(hour<ref(hour,1))+1;
t:=barslast(OPENMINUTES(TIME)<=60);
hh:hhv(h*(t=0),w),COLORMAGENTA,LINETHICK0;
LL:ref(LLv(L*(t=0),w),t),COLORGREEN,LINETHICK0;
PARTLINE( ... [/quote]

不谢，我也瞎搞的。你做的比我好。
你好几天没来了，溜出去玩了吧！:D

股市骑兵00 2005-7-4 21:52

[quote]Originally posted by [i]peter109[/i] at 2005-7-4 21:44:
依然不對
目前呈現出階梯狀
見圖說明

[url]http://bbs.fjfox.com/viewthread.php?tid=19984&sid=OsRijW[/url]

[color=Teal][align=right] 本贴由 peter109 于 2005-7-4 21:47 最后编辑 [/align][/color] [/quote]

没有成階梯狀啊，没见啥问题啊？
是否你K线不齐呢？

bajatje 2005-7-4 21:53

[quote]Originally posted by [i]股市骑兵00[/i] at 2005-7-4 09:50 PM:


不谢，我也瞎搞的。你做的比我好。
你好几天没来了，溜出去玩了吧！:D [/quote]

出差去了。。。。

peter109 2005-7-4 22:06

不會K線有問題吧
每日都做盤後電傳
我再看看

股市骑兵00 2005-7-4 22:12

[quote]Originally posted by [i]peter109[/i] at 2005-7-4 22:06:
不會K線有問題吧
每日都做盤後電傳
我再看看 [/quote]

你贴个图看看！
想了下，公式在最后1天实时行情时可能会错，U会出现不准确吧。
收盘后肯定没问题的。

[color=Teal][align=right] 本贴由 股市骑兵00 于 2005-7-4 22:16 最后编辑 [/align][/color]

peter109 2005-7-4 22:16

圖形已貼
[url]http://bbs.fjfox.com/viewthread.php?tid=19984&sid=OsRijW[/url]

股市骑兵00 2005-7-4 22:22

[quote]Originally posted by [i]peter109[/i] at 2005-7-4 22:16:
圖形已貼
[url]http://bbs.fjfox.com/viewthread.php?tid=19984&sid=OsRijW[/url] [/quote]

哦，我知道，你是台湾人对吗？
和大陆的交易时间不同，你说一下1天的总交易时间是多少？我来改！

peter109 2005-7-4 22:24

期貨  08:45 - 13:45
現貨  09:00 - 13:30

股市骑兵00 2005-7-4 22:27

期貨  300分钟
現貨  270分钟
对吗？

你要期貨还是現貨啊？

peter109 2005-7-4 22:29

u:=if(k=1,240,if(k=2,48,if(k=3,16,if(k=4,8,4))));
改成
u:=if(k=1,300,if(k=2,60,if(k=3,20,if(k=4,10,5))));
這樣對嗎

peter109 2005-7-4 22:31

嗯 正常了
直覺認為時間沒問題
疏忽了兩岸差距
我的錯
抱歉
謝謝兩位的指導

peter109 2005-7-4 22:33

現貨可以加上條件判定做為區分
這樣一個公式可以通用

股市骑兵00 2005-7-4 22:36

[quote]Originally posted by [i]peter109[/i] at 2005-7-4 22:29:
u:=if(k=1,240,if(k=2,48,if(k=3,16,if(k=4,8,4))));
改成
u:=if(k=1,300,if(k=2,60,if(k=3,20,if(k=4,10,5))));
這樣對嗎 [/quote]

不对的，期货这样试试看：

[code]
w:=barslast(hour<ref(hour,1) or barpos=1)+1;
t:=barslast(OPENMINUTES(TIME)<=60);
k:=OPENMINUTES(TIME);
u:=300/(k-ref(k,1));//如現貨就300改为270
hh:hhv(h*(t=0),w),COLORMAGENTA,LINETHICK0;
LL:ref(LLv(L*(t=0),w),t),COLORGREEN,LINETHICK0;
PARTLINE(w>1,refx(hh,u[2]-w)),COLORMAGENTA;
PARTLINE(w>1,refx(LL,u[2]-w)),COLORGREEN;
[/code]

股市骑兵00 2005-7-4 22:37

[quote]Originally posted by [i]peter109[/i] at 2005-7-4 22:33:
現貨可以加上條件判定做為區分
這樣一個公式可以通用 [/quote]

我不知道怎么区分呀？要你自己搞了。

peter109 2005-7-4 22:50

多謝 越來越簡單了

期貨/現貨區別
例如
U:if(stktype=7,300/(k-ref(k,1)),270/(k-ref(k,1)));//stktype=7表示期貨

股市骑兵00 2005-7-4 22:58

[quote]Originally posted by [i]peter109[/i] at 2005-7-4 22:50:
多謝 越來越簡單了

期貨/現貨區別
例如
U:if(stktype=7,300/(k-ref(k,1)),270/(k-ref(k,1)));//stktype=7表示期貨 [/quote]

你前面写的也对的，我看错了，呵呵。
改成这样吧，U就不会错了。

kk:=k-ref(k,1);
u:if(stktype=7,300/kk[2],270/kk[2]);//stktype=7表示期貨

peter109 2005-7-4 23:03

再次感謝

king 2005-7-5 00:13

谢谢

hx817 2005-7-5 13:00

kk:=k-ref(k,1);
u:if(stktype=7,300,270)/kk[2];//stktype=7表示期貨

peter109 2005-7-5 15:08

[quote]Originally posted by [i]股市骑兵00[/i] at 2005-7-4 22:58:
kk:=k-ref(k,1);
u:if(stktype=7,300/kk[2],270/kk[2]);//stktype=7表示期貨 [/quote]

不知為何 改變成這樣以後
在 PARTLINE(w>1,refx(hh,u[2]-w)),COLORMAGENTA; 的地方
會出現   括號不配對 的問題
而實際上這邊根本沒有變更

您那邊有這個問題嗎

股市骑兵00 2005-7-5 17:19

[quote]Originally posted by [i]peter109[/i] at 2005-7-5 15:08:


不知為何 改變成這樣以後
在 PARTLINE(w>1,refx(hh,u[2]-w)),COLORMAGENTA; 的地方
會出現   括號不配對 的問題
而實際上這邊根本沒有變更

您那邊有這個問題嗎 [/quote]

我这里没问题呀，语句看看也对的呢！

peter109 2005-7-5 18:12

被打敗了
沒有動的部分 居然成為異常
實在不知錯在哪裡
只能用舊的囉

lidayong 2005-7-6 17:18

:-#

大炼钢铁 2005-10-10 21:46

学习

sxsy 2006-10-15 16:30

谢谢！

gejas 2006-11-12 16:22

顶啊！！！！！！！！！！！
页: [1]
查看完整版本: 不同週期取固定區間K線值