奇狐社區論壇 總頁數 (2): [1] 2 »
在這個頁面顯示本主題全部的 18 個文章

奇狐社區論壇 (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=19941)

由 santienchang 在 2016-04-18 23:18 發表:

大K與階梯誇昨日

DESP:=BARSLAST(DATE<>REF(DATE,1));
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-4374;
FirstSP:=BARSLAST(FirstCK);
M486K:=MOD(FirstSP,486);
M486st:=M486K=0;
M486ed:=M486K=485 or BARPOS=DATACOUNT;
M486sp:=BARSLAST(M486st)+1;
M486O:REF(OPEN,BARSLAST(M486st)) LINETHICK0 colormagenta;
M486H:HHV(HIGH,M486sp) LINETHICK0 colormagenta;
M486H:=SETVAL(M486ed,M486H,-BARSLAST(M486st),M486H);
M486L:LLV(LOW,M486sp) LINETHICK0 colormagenta;
M486L:=SETVAL(M486ed,M486L,-BARSLAST(M486st),M486L);
M486C:SETVAL(M486ed,CLOSE,-BARSLAST(M486st),CLOSE) LINETHICK0 colormagenta;
M486V:=SETVAL(M486ed,0,-FLOOR(BARSLAST(M486st)/2),1);
M486V:=SETVAL(M486ed,M486V,-FLOOR(BARSLAST(M486st)/2)+1,0);
PKW:=M486sp>1;
PKMV:=PKW and M486V;
PKLV:=M486st and NOT(M486ed);
PKRV:=PKW and M486ed;
PARTLINE(M486C>M486O and PKW,M486O) colormagenta;
PARTLINE(M486C>M486O and PKW,M486C) colormagenta;
STICKLINE(M486C>M486O and PKMV,M486H,MAX(M486C,M486O),0,0) colormagenta;
STICKLINE(M486C>M486O and PKMV,M486L,MIN(M486C,M486O),0,0) colormagenta;
STICKLINE(M486C>M486O and PKLV,M486C,M486O,0,0) colormagenta;
STICKLINE(M486C>M486O and PKRV,M486C,M486O,0,0) colormagenta;
PARTLINE(M486C<=M486O and PKW,M486O) colorgreen;
PARTLINE(M486C<=M486O and PKW,M486C) colorgreen;
STICKLINE(M486C<=M486O and PKMV,M486H,MAX(M486C,M486O),0,0) colorgreen;
STICKLINE(M486C<=M486O and PKMV,M486L,MIN(M486C,M486O),0,0) colorgreen;
STICKLINE(M486C<=M486O and PKLV,M486C,M486O,0,0) colorgreen;
STICKLINE(M486C<=M486O and PKRV,M486C,M486O,0,0) colorgreen;


DESP:=BARSLAST(DATE<>REF(DATE,1));
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-4374;
FirstSP:=BARSLAST(FirstCK);
BKFT:=MOD(FirstSP,729)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,729)=729-1 or ISLASTBAR;
BKH:=HHV(HIGH,BKFTSP+1);
BKL:=LLV(LOW,BKFTSP+1);
BKH:=SETVAL(BKLT,BKH,-BKFTSP,BKH);
BKL:=SETVAL(BKLT,BKL,-BKFTSP,BKL);
//VERTLINE(BKLT) LINEDOT;
BK3SP:=SUMBARS(BKLT,3);
MAH3:=SUM(BKH*BKLT,BK3SP)/3;
MAL3:=SUM(BKL*BKLT,BK3SP)/3;
MMH3:=MAH3+(MAH3-BKH)/3;
MML3:=MAL3-(BKL-MAL3)/3;
MHg:IF(BKH>MMH3,MAH3,MMH3) colorred linethick0;
MLg:IF(BKL<MML3,MAL3,MML3) colorgreen linethick0;
LBMH:=LBOUND(MHg);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(MHg,SetNewLB); x:=SETLBOUND(MLg,SetNewLB);
end;
MHg:=SETVAL(BKLT,MHg,-BKFTSP,MHg);
MLg:=SETVAL(BKLT,MLg,-BKFTSP,MLg);
SS:=(CLOSE>=MHg+4)-(CLOSE<=MLg-4);
SS:=REF(SS,BARSLAST(SS<>0));
RML:=REF(MLg,BARSLAST(MLg<>REF(MLg,1))+1);
RMH:=REF(MHg,BARSLAST(MHg<>REF(MHg,1))+1);
CK:=SUM(TIME>084500 and TIME<=134500,2)=2;
PARTLINE(SS=1 and MLg>RML-1 and CK,MLg),color0000ff;
PARTLINE(SS=-1 and MHg<RMH+1 and CK,MHg),colorFFff00;

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
總版主您好..
請幫我改1分圖的大K線每日開盤最後一根
誇越昨日10:39分開始畫到今收盤(計486)

改今開盤最後一.階梯.誇越前天11:36分畫
到今收盤為最後一階(計729)謝謝!

由 cgjj 在 2016-04-19 10:13 發表:

回覆: 大K與階梯誇昨日

引用:
最初由 santienchang 發表
DESP:=BARSLAST(DATE<>REF(DATE,1));
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-4374;
FirstSP:=BARSLAST(FirstCK);
M486K:=MOD(FirstSP,486);
M486st:=M486K=0;
M486ed:=M486K=485 or BARPOS=DATACOUNT;
M486sp:=BARSLAST(M486st)+1;
M486O:REF(OPEN,BARSLAST(M486st)) LINETHICK0 colormagenta;
M486H:HHV(HIGH,M486sp) LINETHICK0 colormagenta;
M486H:=SETVAL(M486ed,M486H,-BARSLAST(M486st),M486H);
M486L:LLV(LOW,M486sp) LINETHICK0 colormagenta;
M486L:=SETVAL(M486ed,M486L,-BARSLAST(M486st),M486L);
M486C:SETVAL(M486ed,CLOSE,-BARSLAST(M486st),CLOSE) LINETHICK0 colormagenta;
M486V:=SETVAL(M486ed,0,-FLOOR(BARSLAST(M486st)/2),1);
M486V:=SETVAL(M486ed,M486V,-FLOOR(BARSLAST(M486st)/2)+1,0);
PKW:=M486sp>1;
PKMV:=PKW and M486V;
PKLV:=M486st and NOT(M486ed);
PKRV:=PKW and M486ed;
PARTLINE(M486C>M486O and PKW,M486O) colormagenta;
PARTLINE(M486C>M486O and PKW,M486C) colormagenta;
STICKLINE(M486C>M486O and PKMV,M486H,MAX(M486C,M486O),0,0) colormagenta;
STICKLINE(M486C>M486O and PKMV,M486L,MIN(M486C,M486O),0,0) colormagenta;
STICKLINE(M486C>M486O and PKLV,M486C,M486O,0,0) colormagenta;
STICKLINE(M486C>M486O and PKRV,M486C,M486O,0,0) colormagenta;
PARTLINE(M486C<=M486O and PKW,M486O) colorgreen;
PARTLINE(M486C<=M486O and PKW,M486C) colorgreen;
STICKLINE(M486C<=M486O and PKMV,M486H,MAX(M486C,M486O),0,0) colorgreen;
STICKLINE(M486C<=M486O and PKMV,M486L,MIN(M486C,M486O),0,0) colorgreen;
STICKLINE(M486C<=M486O and PKLV,M486C,M486O,0,0) colorgreen;
STICKLINE(M486C<=M486O and PKRV,M486C,M486O,0,0) colorgreen;


DESP:=BARSLAST(DATE<>REF(DATE,1));
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-4374;
FirstSP:=BARSLAST(FirstCK);
BKFT:=MOD(FirstSP,729)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,729)=729-1 or ISLASTBAR;
BKH:=HHV(HIGH,BKFTSP+1);
BKL:=LLV(LOW,BKFTSP+1);
BKH:=SETVAL(BKLT,BKH,-BKFTSP,BKH);
BKL:=SETVAL(BKLT,BKL,-BKFTSP,BKL);
//VERTLINE(BKLT) LINEDOT;
BK3SP:=SUMBARS(BKLT,3);
MAH3:=SUM(BKH*BKLT,BK3SP)/3;
MAL3:=SUM(BKL*BKLT,BK3SP)/3;
MMH3:=MAH3+(MAH3-BKH)/3;
MML3:=MAL3-(BKL-MAL3)/3;
MHg:IF(BKH>MMH3,MAH3,MMH3) colorred linethick0;
MLg:IF(BKL<MML3,MAL3,MML3) colorgreen linethick0;
LBMH:=LBOUND(MHg);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(MHg,SetNewLB); x:=SETLBOUND(MLg,SetNewLB);
end;
MHg:=SETVAL(BKLT,MHg,-BKFTSP,MHg);
MLg:=SETVAL(BKLT,MLg,-BKFTSP,MLg);
SS:=(CLOSE>=MHg+4)-(CLOSE<=MLg-4);
SS:=REF(SS,BARSLAST(SS<>0));
RML:=REF(MLg,BARSLAST(MLg<>REF(MLg,1))+1);
RMH:=REF(MHg,BARSLAST(MHg<>REF(MHg,1))+1);
CK:=SUM(TIME>084500 and TIME<=134500,2)=2;
PARTLINE(SS=1 and MLg>RML-1 and CK,MLg),color0000ff;
PARTLINE(SS=-1 and MHg<RMH+1 and CK,MHg),colorFFff00;

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
總版主您好..
請幫我改1分圖的大K線每日開盤最後一根
誇越昨日10:39分開始畫到今收盤(計486)

改今開盤最後一.階梯.誇越前天11:36分畫
到今收盤為最後一階(計729)謝謝!


很抱歉，看不懂您要改的大K棒為何?
恕無法協助

由 santienchang 在 2016-04-19 14:19 發表:

抱歉!附一分圖..
原本階梯是前兩皆高低統計後.畫在今開盤.
現在改每日開盤誇越到前天11:36起畫到今
收盤為一階.總計729分


大K原本也是今開盤開始畫.
現在改大K每日開盤誇越昨日
誇越到昨日10:39開始畫到今收盤
總計486分
謝謝幫忙.

由 cgjj 在 2016-04-20 09:13 發表:

引用:
最初由 santienchang 發表
抱歉!附一分圖..
原本階梯是前兩皆高低統計後.畫在今開盤.
現在改每日開盤誇越到前天11:36起畫到今
收盤為一階.總計729分


大K原本也是今開盤開始畫.
現在改大K每日開盤誇越昨日
誇越到昨日10:39開始畫到今收盤
總計486分
謝謝幫忙.


您的一根大K，範圍超過一天
這樣的公式會有起算點問題

K棒起算點不同，大K組成會不一樣

例如:
原來大K是 4/18 10:39 - 4/19 13:45
變為大K是 4/19 10:39 - 4/20 13:45

由 santienchang 在 2016-04-20 09:55 發表:

引用:
最初由 cgjj 發表
您的一根大K，範圍超過一天
這樣的公式會有起算點問題

K棒起算點不同，大K組成會不一樣

例如:
原來大K是 4/18 10:39 - 4/19 13:45
變為大K是 4/19 10:39 - 4/20 13:45

總版主!您博深眾疑?厲害!
就是這樣每日誇越昨.
大k若能調?日.?時?分
這樣適各周期.謝謝你

由 cgjj 在 2016-04-20 10:37 發表:

引用:
最初由 santienchang 發表
總版主!您博深眾疑?厲害!
就是這樣每日誇越昨.
大k若能調?日.?時?分
這樣適各周期.謝謝你


假設
第一根大K是 4/18 10:39 - 4/19 13:45 (486根)

那麼第二根大K(486根)，如何畫?
畫起來不會是您貼圖的那個樣子

請舉實例演示
並至少提供連續四根大K之起終點位置

由 santienchang 在 2016-05-18 11:17 發表:

引用:
最初由 cgjj 發表
假設
第一根大K是 4/18 10:39 - 4/19 13:45 (486根)

那麼第二根大K(486根)，如何畫?
畫起來不會是您貼圖的那個樣子

請舉實例演示
並至少提供連續四根大K之起終點位置


引用:最初由 santienchang 發表
抱歉!應該是扣掉今日100支在往前4日那天9:30分那根起算
謝謝!幫助.



原碼:

UK:=162;

CKDE:=DATE<>REF(DATE,1) or barpos=1;

StP:=sumbars(CKDE,5);

StP:=datacount-StP[datacount];

StP:=BARSSINCE(time=093000 and barpos>StP);

StP:=datacount-StP[datacount];

HH:=H; x:=SETLBOUND(HH,StP);

LL:=L; x:=SETLBOUND(LL,StP);

SKNo:=barpos-StP+1;x:=SETLBOUND(SKNo,StP);

MKR:=MOD(SKNo,UK)=0 or barpos=datacount;

SP:BARSLAST(MOD(SKNo,UK)=1) linethick;

MKH:=HHV(HH,SP+1); MKL:=LLV(LL,SP+1);

NN:=3;

MASP:=SUMBARS(MKR,NN);

MKMAH3:SUM(MKR*MKH,MASP)/NN;

MKMAL3:SUM(MKR*MKL,MASP)/NN;

lb:=LBOUND(MKMAH3);

IF lb=0 then exit;

x:=SETLBOUND(MKMAH3,lb-SP[lb]);

x:=SETLBOUND(MKMAL3,lb-SP[lb]);

MKMAH3:=SETVAL(MKR and SP>0,MKMAH3,-SP,MKMAH3);

MKMAL3:=SETVAL(MKR and SP>0,MKMAL3,-SP,MKMAL3);

報告總板主.不知如何表達?用以前
煩您編.寫的階梯線.(每天開盤誇越昨日逆推起始計算)雖每天大K線會不一樣主要用在當根大K.當天收盤價再哪裡為目的.
麻煩你謝謝!

由 cgjj 在 2016-05-18 11:25 發表:

引用:
最初由 santienchang 發表
引用:最初由 santienchang 發表
抱歉!應該是扣掉今日100支在往前4日那天9:30分那根起算
謝謝!幫助.



原碼:

UK:=162;

CKDE:=DATE<>REF(DATE,1) or barpos=1;
..............略 ..............

報告總板主.不知如何表達?用以前
煩您編.寫的階梯線.(每天開盤誇越昨日逆推起始計算)雖每天大K線會不一樣主要用在當根大K.當天收盤價再哪裡為目的.
麻煩你謝謝!


很抱歉
定義含糊不清，前後不一致，恕無法理解協助

請重新完整描述您的需求
(請把前面的內容，視為不存在，重新完整描述)

由 santienchang 在 2017-01-08 23:05 發表:

我要再一分圖.每天收盤前一分鐘(13:44當根)逆推該日12:45開始畫大k線寬距360根直到明日收盤(也就是13:45已經重新畫了60根合併的k線誇越明日開盤繼續合併直到當日13:44在重複.煩請總版主代勞謝謝!

由 cgjj 在 2017-01-09 08:54 發表:

引用:
最初由 santienchang 發表
我要再一分圖.每天收盤前一分鐘(13:44當根)逆推該日12:45開始畫大k線寬距360根直到明日收盤(也就是13:45已經重新畫了60根合併的k線誇越明日開盤繼續合併直到當日13:44在重複.煩請總版主代勞謝謝!


這樣大k線間彼此之間是有重疊區域的(重疊60根)
如此就不叫做K棒了!!!

由 santienchang 在 2017-01-09 09:44 發表:

引用:
最初由 cgjj 發表
這樣大k線間彼此之間是有重疊區域的(重疊60根)
如此就不叫做K棒了!!!


是的我要這段高.低.收盤值位置在哪?
請總版主協助!謝謝!

由 cgjj 在 2017-01-09 09:53 發表:

引用:
最初由 santienchang 發表
是的我要這段高.低.收盤值位置在哪?
請總版主協助!謝謝!


DESP:=BARSLAST(DATE<>REF(DATE,1));
CK:=time=134500;
MH:=HHV(H,360);
ML:=LLV(L,360);
MO:=ref(O,360);
DRAWSL(CK,MH,0,-360,1) pxdn2;
DRAWSL(CK,ML,0,-360,1) pxdn2;
DRAWSL(CK,MO,0,-360,1) pxdn2;

由 santienchang 在 2017-01-09 12:38 發表:

引用:
最初由 cgjj 發表
DESP:=BARSLAST(DATE<>REF(DATE,1));
CK:=time=134500;
MH:=HHV(H,360);
ML:=LLV(L,360);
MO:=ref(O,360);
DRAWSL(CK,MH,0,-360,1) pxdn2;
DRAWSL(CK,ML,0,-360,1) pxdn2;
DRAWSL(CK,MO,0,-360,1) pxdn2;

謝謝!不過我要的是
(用昨天1344分逆推到昨12:45分)開始畫延伸銜接到明天開盤~13:44跳動新高低收使用.
要改哪?可以這樣嗎?謝謝!

由 cgjj 在 2017-01-09 13:05 發表:

引用:
最初由 santienchang 發表
謝謝!不過我要的是
(用昨天1344分逆推到昨12:45分)開始畫延伸銜接到明天開盤~13:44跳動新高低收使用.
要改哪?可以這樣嗎?謝謝!


明天又還沒有行情，你要畫到哪裡去?
描述的文字，實在難以被理解想像 ...
建議畫張圖說明吧!!

由 santienchang 在 2017-01-10 12:19 發表:

我要在今1344以前知道H.L.C值多少?
然後明天開盤繼續更新H.L.C直到1344
這樣時間寬距為360分
謝謝總版主
全部時間均為台灣時間, 現在時間為13:13 總頁數 (2): [1] 2 »
在這個頁面顯示本主題全部的 18 個文章


Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.