 |
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
大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)謝謝!
|
|
向版主報告此篇 |  |
|
2016-04-18 23:18 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18165 |
回覆: 大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棒為何?
恕無法協助
|
|
向版主報告此篇 |  |
|
2016-04-19 10:13 |
|
|
|  |
 |
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
引用: 最初由 cgjj 發表
您的一根大K,範圍超過一天
這樣的公式會有起算點問題
K棒起算點不同,大K組成會不一樣
例如:
原來大K是 4/18 10:39 - 4/19 13:45
變為大K是 4/19 10:39 - 4/20 13:45
總版主!您博深眾疑?厲害!
就是這樣每日誇越昨.
大k若能調?日.?時?分
這樣適各周期.謝謝你
|
|
向版主報告此篇 |  |
|
2016-04-20 09:55 |
|
|
|  |
 |
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
引用: 最初由 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.當天收盤價再哪裡為目的.
麻煩你謝謝!
|
|
向版主報告此篇 |  |
|
2016-05-18 11:17 |
|
|
|  |
 |
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
我要再一分圖.每天收盤前一分鐘(13:44當根)逆推該日12:45開始畫大k線寬距360根直到明日收盤(也就是13:45已經重新畫了60根合併的k線誇越明日開盤繼續合併直到當日13:44在重複.煩請總版主代勞謝謝!
|
|
向版主報告此篇 |  |
|
2017-01-08 23:05 |
|
|
|  |
 |
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
引用: 最初由 cgjj 發表
這樣大k線間彼此之間是有重疊區域的(重疊60根)
如此就不叫做K棒了!!!
是的我要這段高.低.收盤值位置在哪?
請總版主協助!謝謝!
|
|
向版主報告此篇 |  |
|
2017-01-09 09:44 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18165 |
引用: 最初由 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;
|
|
向版主報告此篇 |  |
|
2017-01-09 09:53 |
|
|
|  |
 |
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
引用: 最初由 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跳動新高低收使用.
要改哪?可以這樣嗎?謝謝!
|
|
向版主報告此篇 |  |
|
2017-01-09 12:38 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|