奇狐社區論壇 - [問題]自訂K線

總頁數 (2): [1] 2 »
在這個頁面顯示本主題全部的 24 個文章

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- [問題]自訂K線 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=15291)

由 Markchu7 在 2011-03-23 13:27 發表:

[問題]自訂K線

請教總版主:我想畫一種K線(姑且稱之為'X'K線),
XC:=(O+H+L+C)/4;//'X'K線的'收'
XO:=(前一根'X'K線開盤價+REF(C,1))/2;//'X'K線的'開'
請問XO要如何寫?謝謝!

由 cgjj 在 2011-03-23 14:17 發表:

回覆: [問題]自訂K線

引用:
最初由 Markchu7 發表
請教總版主:我想畫一種K線(姑且稱之為'X'K線),
XC:=(O+H+L+C)/4;//'X'K線的'收'
XO:=(前一根'X'K線開盤價+REF(C,1))/2;//'X'K線的'開'
請問XO要如何寫?謝謝!

基本上需用迴圈處理
首根並無 [前一根'X'K線] 讓您取開盤價, 這時如何處理?
XH 和 XL 呢?

由 Markchu7 在 2011-03-24 13:19 發表:

XH:=MAX(MAX(H,XO),XC);
XL:=MIN(MIN(L,XO),XC);
首根並無 [前一根'X'K線]則取當根K線之開盤價,謝謝總版主!

由 cgjj 在 2011-03-24 19:03 發表:

引用:
最初由 Markchu7 發表
XH:=MAX(MAX(H,XO),XC);
XL:=MIN(MIN(L,XO),XC);
首根並無 [前一根'X'K線]則取當根K線之開盤價,謝謝總版主!

原碼:XC:=(O+H+L+C)/4;
XO:=O; CC:=C;
for i=2 to datacount do begin
  XO[i]:=(XO[i-1]+CC[i-1])/2;
end;
XH:=MAX(MAX(H,XO),XC);
XL:=MIN(MIN(L,XO),XC);

由 Markchu7 在 2011-03-24 20:27 發表:

收到!謝謝總版主!

由 Markchu7 在 2011-09-23 15:30 發表:

請問總版主:
如果我要在一分鐘週期中劃五分週期及十五分週期的'X'K線,則需引用8次子公式,請問如何在一分週期中去推算五分週期及十五分週期'X'K線的XO,XH,XL,XC?如此是否會比引用8次子公式來得節省資源?感謝解答!

由 cgjj 在 2011-09-23 16:01 發表:

引用:
最初由 Markchu7 發表
請問總版主:
如果我要在一分鐘週期中劃五分週期及十五分週期的'X'K線,則需引用8次子公式,請問如何在一分週期中去推算五分週期及十五分週期'X'K線的XO,XH,XL,XC?如此是否會比引用8次子公式來得節省資源?感謝解答!

為何不在五分和十五分週期內, 先把需運用 XO,XH,XL,XC 的值, 算好再傳回呢?
這樣就不需八次, 只需二次

由 Markchu7 在 2011-09-23 17:21 發表:

報告總版主:不太懂您所說的方法!
以我的了解==>例如我要在一分鐘週期劃一根五分鐘週期的'X'K線,它會橫跨五根一分鐘K棒,就像指標通論書上所寫的:我就必須在一分週期'各'引用五分週期的XO,XH,XL,XC,然後在一分鐘週期的主圖上去劃一根會橫跨五根一分鐘K棒的空心K棒,所以您說的方法要如何做我就不會了!請總版主指導!

由 Markchu7 在 2011-09-27 14:59 發表:

想了兩天假期還是想不出來,請總版主指導!謝謝!

由 cgjj 在 2011-09-27 16:47 發表:

引用:
最初由 Markchu7 發表
報告總版主:不太懂您所說的方法!
以我的了解==>例如我要在一分鐘週期劃一根五分鐘週期的'X'K線,它會橫跨五根一分鐘K棒,就像指標通論書上所寫的:我就必須在一分週期'各'引用五分週期的XO,XH,XL,XC,然後在一分鐘週期的主圖上去劃一根會橫跨五根一分鐘K棒的空心K棒,所以您說的方法要如何做我就不會了!請總版主指導!

您XK線是要用來呈現在畫面畫K棒呢?
還是有用它來算曲線呢?

若有用它來算曲線, 就可以在子公式中先算好曲線再傳回
不需先傳回, 再去計算曲線

由 Markchu7 在 2011-09-27 17:32 發表:

是用來劃K棒所以需要開高低收四個值!

由 Markchu7 在 2011-09-27 17:44 發表:

報告總版主找到一個源碼請問我要如何將'XK線'的XO,XH,XL,XC套上去?
請問總版主:這個源碼會很吃資源嗎?如有較節省資源的寫法還請指導!(指標是用於1分線週期,我的考量是跑得快最重要!)
input:N1(15,1,1000);
if datacount<N1 then exit;
m1:=mod(barpos,N1);
m:=if(m1=0,N1-1,m1-1);
mz:=backset(m=N1-1 or islastbar,intpart(m/2)+1);
//vertline(m=0),colorred,pointdot;
//vertline(m=N1-1),colorgreen,pointdot;
bx:=barslast(m=0);
by:=barslast(m=N1-1);
OO:ref(o,bx),linethick0;
Cy:=ref(C*(by=0),barslast(C*(by=0)));hhx:=hhv(h,bx+1)*(by=0);
llx:=llv(if(L=0,100000,L),bx+1)*(by=0);
cab:=IF(bx=0,CLOSE,0);
cba:=IF(by=0,CLOSE,0);
CC1:=c*0;
cba1:=IF(by=0,HHX,0);
HH1:=c*0;
cba2:=IF(by=0,LLX,0);
LL1:=c*0;

for n=lbound(cab) to ubound(cab) do begin
if cab[n]>0 then begin
for z=n+N1-1 to ubound(cab) do begin
if cba[z]>0 then begin
for s=n to z-1 do begin
CC1[s]:=cba[z];
HH1[s]:=cba1[z];
LL1[s]:=cba2[z];
end;
break;
end;
end;
end;
end;

c1:=C;h3:=hhv(h,m[datacount]+1);L3:=LLV(if(L=0,1000000,L),m[datacount]+1);
CC:if(barpos>datacount-m[datacount]-1,c1[datacount],if(m=N1-1,C,CC1)),linethick0;
HH:if(barpos>datacount-m[datacount]-1,h3[datacount],if(m=N1-1,ref(HH1,1),HH1)),linethick0;
LL:if(barpos>datacount-m[datacount]-1,L3[datacount],if(m=N1-1,ref(LL1,1),LL1)),linethick0;

partline(m>0 and CC>=OO,CC),colorred;
partline(m>0 and CC<OO,CC),colorcyan;
partline(m>0 and CC>=OO,OO),colorred;
partline(m>0 and CC<OO,OO),colorcyan;
stickline((m=N1-1 or islastbar) and CC>=OO,OO,CC,1,0),colorred;
stickline((m=N1-1 or islastbar) and CC<OO,OO,CC,1,0),colorcyan;
stickline(m=0 and CC>=OO,OO,CC,1,0),colorred;
stickline(m=0 and CC<OO,OO,CC,1,0),colorcyan;
stickline(mz=1 and ref(mz=1,1)=0 and CC>=OO,HH,CC,1,0),colorred;
stickline(mz=1 and ref(mz=1,1)=0 and CC<OO,HH,OO,1,0),colorcyan;
stickline(mz=1 and ref(mz=1,1)=0 and CC>=OO,OO,LL,1,0),colorred;
stickline(mz=1 and ref(mz=1,1)=0 and CC<OO,CC,LL,1,0),colorcyan;

由 cgjj 在 2011-09-27 18:00 發表:

引用:
最初由 Markchu7 發表
報告總版主找到一個源碼請問我要如何將'XK線'的XO,XH,XL,XC套上去?
請問總版主:這個源碼會很吃資源嗎?如有較節省資源的寫法還請指導!(指標是用於1分線週期,我的考量是跑得快最重要!)
.....................................

無法直接套, 因為您的 XK 不是標準K棒
且XO 與前一根XO相關

在1分內要去取五分的XK, 必需要用推算的
先得到五分 XH, XL, XO, XC 才有可能繪製

由 Markchu7 在 2011-09-27 18:25 發表:

了解!請總版主指導!

由 cgjj 在 2011-09-28 12:48 發表:

引用:
最初由 Markchu7 發表
了解!請總版主指導!

在1分內推算, 去取得五分的XK, 範例:

原碼:


KN:=5;

BR:=mod(MINUTE,KN)=0 or islastbar;

BL:=ref(BR,1) or barpos=1;

BLSP:barslast(BL) linethick0;

MO:=ref(O,BLSP);

MH:=HHV(H,BLSP+1);

ML:=LLV(L,BLSP+1);

MC:=C; 

XO:C*0;

XH:XO;

XL:XO;

XC:(MO+MH+ML+MC)/4;



StNo:=lbound(BARSSINCE(BR));

XO[StNo]:=MO[StNo];

for i=StNo+KN to datacount do begin

  if BR[i] then begin

    j:=i-BLSP[i]-1; XO[i]:=(XO[j]+MC[j])/2;

  end;

end;

XH:=MAX(MH,XO);

XL:=MIN(ML,XO);

XO:=SETVAL(BR,XO,-BLSP,XO);

XH:=SETVAL(BR,XH,-BLSP,XH);

XL:=SETVAL(BR,XL,-BLSP,XL);

XC:=SETVAL(BR,XC,-BLSP,XC);

值已經求出
後續繪製K線的部份就讓您自己處理了

全部時間均為台灣時間, 現在時間為02:52

總頁數 (2): [1] 2 »
在這個頁面顯示本主題全部的 24 個文章