奇狐社區論壇 - 增加控時間.畫線

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 增加控時間.畫線 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=20923)

由 santienchang 在 2017-06-30 13:45 發表:

增加控時間.畫線

DESP:=BARSLAST(DATE<>REF(DATE,1));
//3K
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-12;
FirstSP:=BARSLAST(FirstCK);
BKFT:=MOD(FirstSP,3)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,3)=3-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);
BKNSP:=SUMBARS(BKLT,3);
MAH:=SUM(BKH*BKLT,BKNSP)/3;
MAL:=SUM(BKL*BKLT,BKNSP)/3;
MMH:=MAH+(MAH-BKH)/3;
MML:=MAL-(BKL-MAL)/3;
H3gM:IF(BKH>MMH,MAH,MMH) linethick,color00ff00 shift2;
L3gM:IF(BKL<MML,MAL,MML) linethick,color00ff00 shift2;

LBMH:=LBOUND(H3gM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H3gM,SetNewLB); x:=SETLBOUND(L3gM,SetNewLB);
end;
H3gM:=SETVAL(BKLT,H3gM,-BKFTSP,H3gM);
L3gM:=SETVAL(BKLT,L3gM,-BKFTSP,L3gM);
SH1:=(REF(BKH,4)+REF(BKH,1)*2)/3;
SH2:=(SH1*3+(SH1-REF(BKH,1)))/3;
SHH:IF(SH1<REF(BKH,1),SH1,SH2);
SL1:=(REF(BKL,4)+REF(BKL,1)*2)/3;
SL2:=(SL1*3-(REF(BKL,1)-SL1))/3;
SLL:IF(SL1>REF(BKL,1),SL1,SL2);
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
以上劃線改成如下.謝謝總版主
DESP:=BARSLAST(DATE<>REF(DATE,1));
//3K
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-12;
FirstSP:=BARSLAST(FirstCK);
BKFT:=MOD(FirstSP,4)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,4)=4-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);
BKNSP:=SUMBARS(BKLT,3);
MAH:=SUM(BKH*BKLT,BKNSP)/3;
MAL:=SUM(BKL*BKLT,BKNSP)/3;
MMH:=MAH+(MAH-BKH)/3;
MML:=MAL-(BKL-MAL)/3;
H3gM:IF(BKH>MMH,MAH,MMH) linethick,color00ff00 shift2;
L3gM:IF(BKL<MML,MAL,MML) linethick,color00ff00 shift2;

LBMH:=LBOUND(H3gM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H3gM,SetNewLB); x:=SETLBOUND(L3gM,SetNewLB);
end;
H3gM:=SETVAL(BKLT,H3gM,-BKFTSP,H3gM);
L3gM:=SETVAL(BKLT,L3gM,-BKFTSP,L3gM);
SH1:=(REF(BKH,4)+REF(BKH,1)*2)/3;
SH2:=(SH1*3+(SH1-REF(BKH,1)))/3;
SHH:IF(SH1<REF(BKH,1),SH1,SH2);
SL1:=(REF(BKL,4)+REF(BKL,1)*2)/3;
SL2:=(SL1*3-(REF(BKL,1)-SL1))/3;
SLL:IF(SL1>REF(BKL,1),SL1,SL2);

由 cgjj 在 2017-06-30 15:27 發表:

回覆: 增加控時間.畫線

引用:
最初由 santienchang 發表
DESP:=BARSLAST(DATE<>REF(DATE,1));
//3K
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-12;
FirstSP:=BARSLAST(FirstCK);
BKFT:=MOD(FirstSP,3)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,3)=3-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);
BKNSP:=SUMBARS(BKLT,3);
MAH:=SUM(BKH*BKLT,BKNSP)/3;
MAL:=SUM(BKL*BKLT,BKNSP)/3;
MMH:=MAH+(MAH-BKH)/3;
MML:=MAL-(BKL-MAL)/3;
H3gM:IF(BKH>MMH,MAH,MMH) linethick,color00ff00 shift2;
L3gM:IF(BKL<MML,MAL,MML) linethick,color00ff00 shift2;

LBMH:=LBOUND(H3gM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H3gM,SetNewLB); x:=SETLBOUND(L3gM,SetNewLB);
end;
H3gM:=SETVAL(BKLT,H3gM,-BKFTSP,H3gM);
L3gM:=SETVAL(BKLT,L3gM,-BKFTSP,L3gM);
SH1:=(REF(BKH,4)+REF(BKH,1)*2)/3;
SH2:=(SH1*3+(SH1-REF(BKH,1)))/3;
SHH:IF(SH1<REF(BKH,1),SH1,SH2);
SL1:=(REF(BKL,4)+REF(BKL,1)*2)/3;
SL2:=(SL1*3-(REF(BKL,1)-SL1))/3;
SLL:IF(SL1>REF(BKL,1),SL1,SL2);
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
以上劃線改成如下.謝謝總版主
DESP:=BARSLAST(DATE<>REF(DATE,1));
//3K
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-12;
FirstSP:=BARSLAST(FirstCK);
BKFT:=MOD(FirstSP,4)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,4)=4-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);
BKNSP:=SUMBARS(BKLT,3);
MAH:=SUM(BKH*BKLT,BKNSP)/3;
MAL:=SUM(BKL*BKLT,BKNSP)/3;
MMH:=MAH+(MAH-BKH)/3;
MML:=MAL-(BKL-MAL)/3;
H3gM:IF(BKH>MMH,MAH,MMH) linethick,color00ff00 shift2;
L3gM:IF(BKL<MML,MAL,MML) linethick,color00ff00 shift2;

LBMH:=LBOUND(H3gM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H3gM,SetNewLB); x:=SETLBOUND(L3gM,SetNewLB);
end;
H3gM:=SETVAL(BKLT,H3gM,-BKFTSP,H3gM);
L3gM:=SETVAL(BKLT,L3gM,-BKFTSP,L3gM);
SH1:=(REF(BKH,4)+REF(BKH,1)*2)/3;
SH2:=(SH1*3+(SH1-REF(BKH,1)))/3;
SHH:IF(SH1<REF(BKH,1),SH1,SH2);
SL1:=(REF(BKL,4)+REF(BKL,1)*2)/3;
SL2:=(SL1*3-(REF(BKL,1)-SL1))/3;
SLL:IF(SL1>REF(BKL,1),SL1,SL2);

你都貼出改後的原碼了，還需要協助什麼

由 santienchang 在 2017-06-30 15:39 發表:

回覆: 回覆: 增加控時間.畫線

引用:
最初由 cgjj 發表
你都貼出改後的原碼了，還需要協助什麼

抱歉!

H3gM:=SETVAL(BKLT,H3gM,-BKFTSP,H3gM)linethick;;
L3gM:=SETVAL(BKLT,L3gM,-BKFTSP,L3gM)linethick;
SS:=(CLOSE>=H3gM+4)-(CLOSE<=L3gM-4);
SS:=REF(SS,BARSLAST(SS<>0));
RML:=REF(L3gM,BARSLAST(L3gM<>REF(L3gM,1))+1);
RMH:=REF(H3gM,BARSLAST(H3gM<>REF(H3gM,1))+1);
CK:=SUM(TIME>084500 and TIME<=100600,2)=2;
PARTLINE(SS=1 and L3gM>RML-1 and CK,L3gM),color00ff00 shift1;
PARTLINE(SS=-1 and H3gM<RMH+1 and CK,H3gM),color00ff00 shift1;

由 cgjj 在 2017-06-30 15:46 發表:

回覆: 回覆: 回覆: 增加控時間.畫線

引用:
最初由 santienchang 發表
抱歉!

H3gM:=SETVAL(BKLT,H3gM,-BKFTSP,H3gM)linethick;;
L3gM:=SETVAL(BKLT,L3gM,-BKFTSP,L3gM)linethick;
SS:=(CLOSE>=H3gM+4)-(CLOSE<=L3gM-4);
SS:=REF(SS,BARSLAST(SS<>0));
RML:=REF(L3gM,BARSLAST(L3gM<>REF(L3gM,1))+1);
RMH:=REF(H3gM,BARSLAST(H3gM<>REF(H3gM,1))+1);
CK:=SUM(TIME>084500 and TIME<=100600,2)=2;
PARTLINE(SS=1 and L3gM>RML-1 and CK,L3gM),color00ff00 shift1;
PARTLINE(SS=-1 and H3gM<RMH+1 and CK,H3gM),color00ff00 shift1;

@@ 不要只給程式碼
你沒有描述問題需求，要做什麼?怎樣做?，無從幫起!!!

由 santienchang 在 2017-07-03 14:11 發表:

[IMG]http://[/IMG]

如圖示請幫忙.謝謝感恩!

由 cgjj 在 2017-07-03 15:21 發表:

引用:
最初由 santienchang 發表
[IMG]http://[/IMG]

如圖示請幫忙.謝謝感恩!

很抱歉，你的描述實在無法看懂
不確定您要做什麼，故恕難協助

由 santienchang 在 2017-07-13 00:30 發表:

我要如圖K棒最高價突破過上線5點
.顯示下線.不顯示上線.
反之K棒最低價跌破過下線5點
顯示上線.不顯示下線.
謝謝!總版主

由 cgjj 在 2017-07-13 08:52 發表:

引用:
最初由 santienchang 發表
我要如圖K棒最高價突破過上線5點
.顯示下線.不顯示上線.
反之K棒最低價跌破過下線5點
顯示上線.不顯示下線.
謝謝!總版主

上線和下線都是用大K最終值向前畫水平線的
也就是說，水平梯線它有用到未來數據

在這樣的情況下
直接用水平梯線當根數值，去和當根K棒價格比較高低是沒有意義的

由 santienchang 在 2017-07-13 13:59 發表:

引用:
最初由 cgjj 發表
上線和下線都是用大K最終值向前畫水平線的
也就是說，水平梯線它有用到未來數據

在這樣的情況下
直接用水平梯線當根數值，去和當根K棒價格比較高低是沒有意義的

水平延伸未來區是主觀參考用!
當下這階數遽是上階計算出成固定值.與
當下大K做比對+-5.這樣可以嗎?
感謝指導

由 cgjj 在 2017-07-13 14:27 發表:

引用:
最初由 santienchang 發表
水平延伸未來區是主觀參考用!
當下這階數遽是上階計算出成固定值.與
當下大K做比對+-5.這樣可以嗎?
感謝指導

那必需你原來算的東西，本身就符合這特性才可行

由 santienchang 在 2017-07-13 23:19 發表:

引用:
最初由 cgjj 發表
那必需你原來算的東西，本身就符合這特性才可行

末6行就是這樣計算的.
要如何顯示與不顯示?.謝謝先!

由 cgjj 在 2017-07-14 08:48 發表:

引用:
最初由 santienchang 發表
末6行就是這樣計算的.
要如何顯示與不顯示?.謝謝先!

您給的程序
H3gM:=SETVAL(BKLT,H3gM,-BKFTSP,H3gM)linethick;;
L3gM:=SETVAL(BKLT,L3gM,-BKFTSP,L3gM)linethick;
SS:=(CLOSE>=H3gM+4)-(CLOSE<=L3gM-4);
SS:=REF(SS,BARSLAST(SS<>0));
RML:=REF(L3gM,BARSLAST(L3gM<>REF(L3gM,1))+1);
RMH:=REF(H3gM,BARSLAST(H3gM<>REF(H3gM,1))+1);
CK:=SUM(TIME>084500 and TIME<=100600,2)=2;
PARTLINE(SS=1 and L3gM>RML-1 and CK,L3gM),color00ff00 shift1;
PARTLINE(SS=-1 and H3gM<RMH+1 and CK,H3gM),color00ff00 shift1;
畫的線並沒有那樣算唷，請看清楚~~

由 santienchang 在 2017-07-17 00:15 發表:

一次給多個動作.有亂掉抱歉!

第一樓原碼是您協助的.確實是我要的昨區計算右移今開盤區(請再查閱如不是請指正?)

因第一樓漏貼.所要的動作.所以再補上第三樓這段(我要像這樣在盤中用時間控制顯示或不顯示上下階梯線)
在此很感謝總版主熱心幫忙.感恩!

由 santienchang 在 2017-07-17 00:33 發表:

簡言說目前一樓原碼階梯是開盤畫到收盤
如今要增加一動作:如何在
08:45~10:06顯示階梯線.其他時間不顯示階梯線

由 cgjj 在 2017-07-17 08:52 發表:

引用:
最初由 santienchang 發表
簡言說目前一樓原碼階梯是開盤畫到收盤
如今要增加一動作:如何在
08:45~10:06顯示階梯線.其他時間不顯示階梯線

原碼:DESP:=BARSLAST(DATE<>REF(DATE,1));
//3K
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-12;
FirstSP:=BARSLAST(FirstCK);
BKFT:=MOD(FirstSP,3)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,3)=3-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);
SH1:=(REF(BKH,4)+REF(BKH,1)*2)/3;
SH2:=(SH1*3+(SH1-REF(BKH,1)))/3;
SHH:IF(SH1<REF(BKH,1),SH1,SH2) colorred linethick;
SL1:=(REF(BKL,4)+REF(BKL,1)*2)/3;
SL2:=(SL1*3-(REF(BKL,1)-SL1))/3;
SLL:IF(SL1>REF(BKL,1),SL1,SL2) colorgreen linethick;
CK:=SUM(TIME>084500 and TIME<=100600,2)=2;
PARTLINE(CK,SHH) colorred;
PARTLINE(CK,SLL) colorgreen;

全部時間均為台灣時間, 現在時間為04:41

在這個頁面顯示本主題全部的 15 個文章