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

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

由 santienchang 在 2014-04-30 14:15 發表:

引用:
最初由 cgjj 發表
這要問您自己呀
該段程式碼, 是您自己提供的


DESP:=barslast(date<>ref(date,1));
//3K
FirstCK:=barpos=datacount-DESP[datacount]-2;
FirstSP:=barslast(FirstCK);
BKFT:=MOD(FirstSP,3)=0;
BKFTSP:=barslast(BKFT);
BKLT:=MOD(FirstSP,3)=3-1 or islastbar;
BKH:=HHV(H,BKFTSP+1);
BKL:=LLV(L,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;
H3KM:IF(BKH<>MMH,MAH,MMH),colorFFFFFF;
L3KM:IF(BKL<>MML,MAL,MML),colorFFFFFF;
LBMH:=lbound(H3KM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H3KM,SetNewLB); x:=SETLBOUND(L3KM,SetNewLB);
end;
H3KM:=SETVAL(BKLT,H3KM,-BKFTSP,H3KM);
L3KM:=SETVAL(BKLT,L3KM,-BKFTSP,L3KM);
抱歉!愚拙??想用之前您給我隱藏線段方式
.http://www.chiefox.com.tw/bbs/showt...ht=santienchang
套在上方語法用.謝謝您!

由 cgjj 在 2014-04-30 14:28 發表:

引用:
最初由 santienchang 發表
DESP:=barslast(date<>ref(date,1));
//3K
FirstCK:=barpos=datacount-DESP[datacount]-2;
FirstSP:=barslast(FirstCK);
BKFT:=MOD(FirstSP,3)=0;
BKFTSP:=barslast(BKFT);
BKLT:=MOD(FirstSP,3)=3-1 or islastbar;
BKH:=HHV(H,BKFTSP+1);
BKL:=LLV(L,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;
H3KM:IF(BKH<>MMH,MAH,MMH),colorFFFFFF;
L3KM:IF(BKL<>MML,MAL,MML),colorFFFFFF;
LBMH:=lbound(H3KM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H3KM,SetNewLB); x:=SETLBOUND(L3KM,SetNewLB);
end;
H3KM:=SETVAL(BKLT,H3KM,-BKFTSP,H3KM);
L3KM:=SETVAL(BKLT,L3KM,-BKFTSP,L3KM);
抱歉!愚拙??想用之前您給我隱藏線段方式
.http://www.chiefox.com.tw/bbs/showt...ht=santienchang
套在上方語法用.謝謝您!



PARTLINE(H<H3KM,H3KM),color00FF00;
PARTLINE(L>L3KM,L3KM),color00FF00;

由 santienchang 在 2014-10-28 23:29 發表:

引用:
最初由 cgjj 發表
PARTLINE(H<H3KM,H3KM),color00FF00;
PARTLINE(L>L3KM,L3KM),color00FF00;


DESP:=barslast(date<>ref(date,1));
//3K
FirstCK:=barpos=datacount-DESP[datacount]-27;
FirstSP:=barslast(FirstCK);
BKFT:=MOD(FirstSP,3)=0;
BKFTSP:=barslast(BKFT);
BKLT:=MOD(FirstSP,3)=3-1 or islastbar;
BKH:=HHV(H,BKFTSP+1);
BKL:=LLV(L,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),color00ff00;
L3gM:IF(BKL<MML,MAL,MML),color00ff00;
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);

當日盤中多3分鐘階梯上下兩線要從10:06這根開始顯示直到10:30止
9根以後不顯示例如(時分秒=091200始)~(時分秒=093900止)~請板主協助.謝謝!

由 cgjj 在 2014-10-29 09:29 發表:

引用:
最初由 santienchang 發表
DESP:=barslast(date<>ref(date,1));
//3K
FirstCK:=barpos=datacount-DESP[datacount]-27;
FirstSP:=barslast(FirstCK);
BKFT:=MOD(FirstSP,3)=0;
BKFTSP:=barslast(BKFT);
BKLT:=MOD(FirstSP,3)=3-1 or islastbar;
BKH:=HHV(H,BKFTSP+1);
BKL:=LLV(L,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),color00ff00;
L3gM:IF(BKL<MML,MAL,MML),color00ff00;
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);

當日盤中多3分鐘階梯上下兩線要從10:06這根開始顯示直到10:30止
9根以後不顯示例如(時分秒=091200始)~(時分秒=093900止)~請板主協助.謝謝! 


原碼:


DESP:=barslast(date<>ref(date,1));

//3K

FirstCK:=barpos=datacount-DESP[datacount]-27;

FirstSP:=barslast(FirstCK);

BKFT:=MOD(FirstSP,3)=0;

BKFTSP:=barslast(BKFT);

BKLT:=MOD(FirstSP,3)=3-1 or islastbar;

BKH:=HHV(H,BKFTSP+1);

BKL:=LLV(L,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),color00ff00 linethick0;

L3gM:IF(BKL<MML,MAL,MML),color00ff00 linethick0;

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);

PARTLINE(time>100600 and time<=103000,H3gM) color00ff00;

PARTLINE(time>100600 and time<=103000,L3gM) color00ff00;

由 santienchang 在 2014-10-31 16:23 發表:

謝謝板主協助.!感恩!

由 santienchang 在 2014-12-02 13:28 發表:

//6K
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-81;
FirstSP:=BARSLAST(FirstCK);
BKFT:=MOD(FirstSP,9)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,9)=9-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;
H6KM:IF(BKH<>MMH,MAH,MMH),linethick0;
L6KM:IF(BKL<>MML,MAL,MML),linethick0;
LBMH:=LBOUND(H6KM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H6KM,SetNewLB); x:=SETLBOUND(L6KM,SetNewLB);
end;
H6KM:=SETVAL(BKLT,H6KM,-BKFTSP,H6KM);
L6KM:=SETVAL(BKLT,L6KM,-BKFTSP,L6KM);
PARTLINE(TIME>093900 and TIME<=103300,H6KM) color00FFFF;
PARTLINE(TIME>093900 and TIME<=103300,L6KM) color00FFFF;
((PARTLINE(TIME>112700 and TIME<=134200,H6KM) color00FFFF;))
((PARTLINE(TIME>112700 and TIME<=134200,L6KM) color00FFFF;))
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
可以再增加下面這一段時間顯示嗎?謝謝!

由 cgjj 在 2014-12-02 13:57 發表:

引用:
最初由 santienchang 發表
//6K
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-81;
FirstSP:=BARSLAST(FirstCK);
BKFT:=MOD(FirstSP,9)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,9)=9-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;
H6KM:IF(BKH<>MMH,MAH,MMH),linethick0;
L6KM:IF(BKL<>MML,MAL,MML),linethick0;
LBMH:=LBOUND(H6KM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H6KM,SetNewLB); x:=SETLBOUND(L6KM,SetNewLB);
end;
H6KM:=SETVAL(BKLT,H6KM,-BKFTSP,H6KM);
L6KM:=SETVAL(BKLT,L6KM,-BKFTSP,L6KM);
PARTLINE(TIME>093900 and TIME<=103300,H6KM) color00FFFF;
PARTLINE(TIME>093900 and TIME<=103300,L6KM) color00FFFF;
((PARTLINE(TIME>112700 and TIME<=134200,H6KM) color00FFFF;))
((PARTLINE(TIME>112700 and TIME<=134200,L6KM) color00FFFF;))
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
可以再增加下面這一段時間顯示嗎?謝謝!


您不是已經寫出來了嗎? (把多餘的括號去除即可)

由 santienchang 在 2015-01-06 14:25 發表:

FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-81;
FirstSP:=BARSLAST(FirstCK);
BKFT:=MOD(FirstSP,9)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,9)=9-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;
H6KM:IF(BKH<>MMH,MAH,MMH),linethick0;
L6KM:IF(BKL<>MML,MAL,MML),linethick0;
LBMH:=LBOUND(H6KM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H6KM,SetNewLB); x:=SETLBOUND(L6KM,SetNewLB);
end;
H6KM:=SETVAL(BKLT,H6KM,-BKFTSP,H6KM);
L6KM:=SETVAL(BKLT,L6KM,-BKFTSP,L6KM);
PARTLINE(TIME>084800 and TIME<=134500,H6KM) color00FFFF;
PARTLINE(TIME>084800 and TIME<=134500,L6KM) color00FFFF

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
請教總板主
如在多3分圖使用多組?例如:
BKFT:=MOD(FirstSP,3)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,3)=3-1 or ISLASTBAR
開始3.6.9.12.15.18.21.24.27........等等多組可以把語法簡化嗎?
太多組跑不動.謝謝!

由 cgjj 在 2015-01-06 18:33 發表:

引用:
最初由 santienchang 發表
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-81;
FirstSP:=BARSLAST(FirstCK);
BKFT:=MOD(FirstSP,9)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,9)=9-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;
H6KM:IF(BKH<>MMH,MAH,MMH),linethick0;
L6KM:IF(BKL<>MML,MAL,MML),linethick0;
LBMH:=LBOUND(H6KM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H6KM,SetNewLB); x:=SETLBOUND(L6KM,SetNewLB);
end;
H6KM:=SETVAL(BKLT,H6KM,-BKFTSP,H6KM);
L6KM:=SETVAL(BKLT,L6KM,-BKFTSP,L6KM);
PARTLINE(TIME>084800 and TIME<=134500,H6KM) color00FFFF;
PARTLINE(TIME>084800 and TIME<=134500,L6KM) color00FFFF

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
請教總板主
如在多3分圖使用多組?例如:
BKFT:=MOD(FirstSP,3)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,3)=3-1 or ISLASTBAR
開始3.6.9.12.15.18.21.24.27........等等多組可以把語法簡化嗎?
太多組跑不動.謝謝!


既然放太多組跑不動，就改放少組一點
需求 vs 效能 必需要有所取捨

由 santienchang 在 2015-01-06 20:50 發表:

微笑

引用:
最初由 cgjj 發表
既然放太多組跑不動，就改放少組一點
需求 vs 效能 必需要有所取捨


原想說是倍數週期有簡易代數語法.
雖未達所需.還是謝謝您!並祝總板主
及奇狐同仁~~.新年快樂!身心健康!~~~
全部時間均為台灣時間, 現在時間為12:10 總頁數 (2): « 1 [2]
在這個頁面顯示本主題全部的 25 個文章


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