奇狐社區論壇
在這個頁面顯示本主題全部的 18 個文章

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

由 santienchang 在 2015-05-06 13:00 發表:

預留畫線空間

DESP:=BARSLAST(DATE<>REF(DATE,1));
//3K
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-9;
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),color00ffff;
L3gM:IF(BKL<MML,MAL,MML),color00ffff;
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),color00ffff;
L3gM:=SETVAL(BKLT,L3gM,-BKFTSP,L3gM),color00ffff;

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
請版主幫我改如圖示
開盤後誇昨日3支K線起始計算.爾後每3支K線劃一次至收盤.
該3支K線H超過H3GM直就以H3GM質畫
該3支K線L低過L3GM直就以L3GM質畫
謝謝![IMG]http://[/IMG]

由 cgjj 在 2015-05-06 13:36 發表:

回覆: 預留畫線空間

引用:
最初由 santienchang 發表
DESP:=BARSLAST(DATE<>REF(DATE,1));
//3K
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-9;
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),color00ffff;
L3gM:IF(BKL<MML,MAL,MML),color00ffff;
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),color00ffff;
L3gM:=SETVAL(BKLT,L3gM,-BKFTSP,L3gM),color00ffff;

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
請版主幫我改如圖示
開盤後誇昨日3支K線起始計算.爾後每3支K線劃一次至收盤.
該3支K線H超過H3GM直就以H3GM質畫
該3支K線L低過L3GM直就以L3GM質畫
謝謝![IMG]http://[/IMG]


這是畫延伸線吧，於未端加入
DRAWSL(islastbar,H3gM,0,3,0) pxdn2 linedot color00ffff;
DRAWSL(islastbar,L3gM,0,3,0) pxdn2 linedot color00ffff;

由 santienchang 在 2015-05-06 14:50 發表:

抱歉我多畫出虛線3根.我的意思是.開盤時
H3GM值˙要畫在開盤第一根 K線上方的位置
.再延長兩根.當開盤3根後.用今日3根HHX2+
昨尾盤3根HH計算出來畫在今第4.5.6根上
方.謝謝版主

由 cgjj 在 2015-05-06 15:44 發表:

引用:
最初由 santienchang 發表
抱歉我多畫出虛線3根.我的意思是.開盤時
H3GM值˙要畫在開盤第一根 K線上方的位置
.再延長兩根.當開盤3根後.用今日3根HHX2+
昨尾盤3根HH計算出來畫在今第4.5.6根上
方.謝謝版主


您先用訓練模式倒回去看看
無論當時最末在哪根，它都會向右延伸畫三根最末值

由 santienchang 在 2015-05-06 23:01 發表:

報告版主!
原碼是用昨尾盤.654hh+321hh+今開盤123
hh/3.
想要改計算起始從昨尾盤654hh+(321hh值
x2)/3=今開盤第一支K線H3GM值要畫到第3支位置..隨著盤勢第3支結束.
第4支值計算為昨尾盤321hh+(今123hhx2)/3
=H3GM值從第4支畫到第6支3根位置........
第7支值計算為今第123hh+(456hhx2)/3
=H3GM值從第7支畫到第9支........
由衷謝謝版主幫忙..感恩!

由 cgjj 在 2015-05-07 15:22 發表:

引用:
最初由 santienchang 發表
報告版主!
原碼是用昨尾盤.654hh+321hh+今開盤123
hh/3.
想要改計算起始從昨尾盤654hh+(321hh值
x2)/3=今開盤第一支K線H3GM值要畫到第3支位置..隨著盤勢第3支結束.
第4支值計算為昨尾盤321hh+(今123hhx2)/3
=H3GM值從第4支畫到第6支3根位置........
第7支值計算為今第123hh+(456hhx2)/3
=H3GM值從第7支畫到第9支........
由衷謝謝版主幫忙..感恩!


越看越花 @@，很抱歉無法理解您要算什麼

hh 在您公式中並未定義
請不要將問題公式化(請口語化)，這樣難以被閱讀

例如
654hh 這是什麼東西，只有您自己看得懂

由 santienchang 在 2015-05-08 09:24 發表:

抱歉!表達能力差給您困擾.
如圖示:這樣表達不知可否.?
每日開盤起算至收盤止
謝謝版主感恩!

由 cgjj 在 2015-05-11 10:49 發表:

引用:
最初由 santienchang 發表
抱歉!表達能力差給您困擾.
如圖示:這樣表達不知可否.?
每日開盤起算至收盤止
謝謝版主感恩!


畫面中的K棒，看起來似乎非奇狐所繪製的原始K棒
請提供清楚畫面，並用原始K棒解說，謝謝
否則無從比對，恕難以協助

由 santienchang 在 2015-05-11 22:41 發表:

A區最高價9826+(B區最高價9843X2)/3=
9837.3A區最高價超過H3GM線8:47開盤直接劃H3GM9837.3階梯線.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
A區最低價9812+(B區最低價9818X2)/3=
9816
B區最低價9818-虛L3GM線距離=2
虛9816X3-2/3=8:47開盤劃實L3GM9815.3

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
報告版主:便於圖示.此K棒是5.1版歷史回顧
謝謝您幫助.

由 cgjj 在 2015-05-12 12:10 發表:

引用:
最初由 santienchang 發表
A區最高價9826+(B區最高價9843X2)/3=
9837.3A區最高價超過H3GM線8:47開盤直接劃H3GM9837.3階梯線.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
A區最低價9812+(B區最低價9818X2)/3=
9816
B區最低價9818-虛L3GM線距離=2
虛9816X3-2/3=8:47開盤劃實L3GM9815.3

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
報告版主:便於圖示.此K棒是5.1版歷史回顧
謝謝您幫助.



於尾端加入這些

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) linethick;
SL1:=(ref(BKL,4)+ref(BKL,1)*2)/3;
SL2:=(SL1*3-(ref(BKL,1)-SL1))/3;
SLL:if(SL1>ref(BKL,1),SH1,SH2) linethick;

請先檢驗 8:47 該根K棒算出的 SHH 和 SLL
是否為您要畫的數值

由 santienchang 在 2015-05-24 22:38 發表:

DESP:=BARSLAST(DATE<>REF(DATE,1));
//3K
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-54;
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);
L3gM:IF(BKL<MML,MAL,MML);
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) 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) linethick;

請先檢驗 8:47 該根K棒算出的 SHH 和 SLL
是否為您要畫的數值 [/B][/QUOTE]

最後ㄧ行SH1,SH2應改為SL1.SL2
報告版主.計算完全正確.但階梯線提早兩根.
也就是開盤誇昨日尾盤最後兩根K棒~開盤
第一根就結速?請幫我改到開盤起始..
皆梯現只留SSH與SLL謝謝您感恩!

由 cgjj 在 2015-05-25 10:11 發表:

引用:
最初由 santienchang 發表
最後ㄧ行SH1,SH2應改為SL1.SL2
報告版主.計算完全正確.但階梯線提早兩根.
也就是開盤誇昨日尾盤最後兩根K棒~開盤
第一根就結速?請幫我改到開盤起始..
皆梯現只留SSH與SLL謝謝您感恩!


很抱歉，完全看不懂您意思
既然值正確了，請自行試著用該值去繪出您想要的線

由 santienchang 在 2015-06-07 00:27 發表:

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;
L3gM:IF(BKL<MML,MAL,MML) linethick;

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),color00ff00;
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),,color00ff00;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
愚笨摸索很久??以上2分圖原文請版主幫我如圖往右移2支K線(當日開盤開始)謝謝!

由 cgjj 在 2015-06-08 11:06 發表:

引用:
最初由 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;
L3gM:IF(BKL<MML,MAL,MML) linethick;

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),color00ff00;
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),,color00ff00;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
愚笨摸索很久??以上2分圖原文請版主幫我如圖往右移2支K線(當日開盤開始)謝謝!


將
SHH:IF(SH1<REF(BKH,1),SH1,SH2),color00ff00;
SLL:IF(SL1>REF(BKL,1),SL1,SL2),,color00ff00;
改為
SHH:IF(SH1<REF(BKH,1),SH1,SH2),color00ff00 shift2;
SLL:IF(SL1>REF(BKL,1),SL1,SL2),,color00ff00 shift2;

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

引用:
最初由 cgjj 發表
將
SHH:IF(SH1<REF(BKH,1),SH1,SH2),color00ff00;
SLL:IF(SL1>REF(BKL,1),SL1,SL2),,color00ff00;
改為
SHH:IF(SH1<REF(BKH,1),SH1,SH2),color00ff00 shift2;
SLL:IF(SL1>REF(BKL,1),SL1,SL2),,color00ff00 shift2;

可以了謝謝版主.辛苦了
上方數值只顯示SHH與SLL其他不顯示要改哪裡?感恩!

由 cgjj 在 2015-06-09 08:20 發表:

引用:
最初由 santienchang 發表
可以了謝謝版主.辛苦了
上方數值只顯示SHH與SLL其他不顯示要改哪裡?感恩!


變數 : XX; //顯示數值並畫線
變數 : XX linethick; //顯示數值不畫線
變數 := XX; //不顯示任何東西

由 santienchang 在 2015-08-03 14:06 發表:

引用:
最初由 cgjj 發表
變數 : XX; //顯示數值並畫線
變數 : XX linethick; //顯示數值不畫線
變數 := XX; //不顯示任何東西

DESP:=BARSLAST(DATE<>REF(DATE,1));
//3K
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-36;
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;
H3MH:IF(BKH>MMH,MAH,MMH) linethick;
L3ML:IF(BKL<MML,MAL,MML) linethick;

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,10)+REF(BKH,1)*2)/3;
SH2:=(SH1*3+(SH1-REF(BKH,1)))/3;
SH:IF(SH1<REF(BKH,1),SH1,SH2),color00ffff shift8;
SL1:=(REF(BKL,10)+REF(BKL,1)*2)/3;
SL2:=(SL1*3-(REF(BKL,1)-SL1))/3;
SL:IF(SL1>REF(BKL,1),SL1,SL2),color00ffff shift8;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
請版主幫我改開盤起計算在多3分K圖
逆推誇越昨尾13:16~13:42區最高.低+(13:43~13:45區. X2)/3所得畫到今9:12止
次扣抵變昨尾盤13:43~13:45止最高.低
+(今08:45~09:12區X2)/3所得畫在9:13~
9:39止.
9:40以後每27分計8:45~9:12最高.低+(9:39
X2)/3畫9:40~10:06只.......直到收盤
.謝謝!

由 cgjj 在 2015-08-03 14:28 發表:

引用:
最初由 santienchang 發表
DESP:=BARSLAST(DATE<>REF(DATE,1));
//3K
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-36;
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;
H3MH:IF(BKH>MMH,MAH,MMH) linethick;
L3ML:IF(BKL<MML,MAL,MML) linethick;

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,10)+REF(BKH,1)*2)/3;
SH2:=(SH1*3+(SH1-REF(BKH,1)))/3;
SH:IF(SH1<REF(BKH,1),SH1,SH2),color00ffff shift8;
SL1:=(REF(BKL,10)+REF(BKL,1)*2)/3;
SL2:=(SL1*3-(REF(BKL,1)-SL1))/3;
SL:IF(SL1>REF(BKL,1),SL1,SL2),color00ffff shift8;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
請版主幫我改開盤起計算在多3分K圖
逆推誇越昨尾13:16~13:42區最高.低+(13:43~13:45區. X2)/3所得畫到今9:12止
次扣抵變昨尾盤13:43~13:45止最高.低
+(今08:45~09:12區X2)/3所得畫在9:13~
9:39止.
9:40以後每27分計8:45~9:12最高.低+(9:39
X2)/3畫9:40~10:06只.......直到收盤
.謝謝!


很抱歉，難以理解您的需求。
請參閱先前答覆您的範例程式碼，自行處理。
謝謝。
全部時間均為台灣時間, 現在時間為18:30
在這個頁面顯示本主題全部的 18 個文章


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