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

[求救]

DESP:=BARSLAST(DATE<>REF(DATE,1));
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]+3;
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);
//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;
MH:IF(BKH>MMH3,MAH3,MMH3),colorFFFFFF;
ML:IF(BKL<MML3,MAL3,MML3),colorFFFFFF;
LBMH:=LBOUND(MH);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(MH,SetNewLB); x:=SETLBOUND(ML,SetNewLB);
end;
MH:=SETVAL(BKLT,MH,-BKFTSP,MH);
ML:=SETVAL(BKLT,ML,-BKFTSP,ML);

煩總板主幫我改成如圖在多分視窗改為1.~2一循環(=或><即變換顯
示或不顯示).盤中上下線會上仰或下仰以上一3連線價為突跌破謝謝您!

回覆: [求救]

引用:

---

最初由 santienchang 發表
DESP:=BARSLAST(DATE<>REF(DATE,1));
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]+3;
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);
//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;
MH:IF(BKH>MMH3,MAH3,MMH3),colorFFFFFF;
ML:IF(BKL<MML3,MAL3,MML3),colorFFFFFF;
LBMH:=LBOUND(MH);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(MH,SetNewLB); x:=SETLBOUND(ML,SetNewLB);
end;
MH:=SETVAL(BKLT,MH,-BKFTSP,MH);
ML:=SETVAL(BKLT,ML,-BKFTSP,ML);

煩總板主幫我改成如圖在多分視窗改為1.~2一循環(=或><即變換顯
示或不顯示).盤中上下線會上仰或下仰以上一3連線價為突跌破謝謝您!

---

回覆: 回覆: [求救]

引用:

---

最初由 cgjj 發表
以MH或 ML 繪製嗎?
起畫點如何決定 要取 MH? 還是取 ML?

---

回覆: 回覆: 回覆: [求救]

引用:

---

最初由 santienchang 發表
是以MH 與 ML 繪製
以開盤開始.價=>MH顯示 ML .......直到下次價=<ML變成顯示MH循環
以開盤開始.價=<ML顯示 MH .......直到下次價=>MH變成顯示ML循環
上方數值保持顯示.謝謝總板主.

---

上方變數值沒顯示?
SS:=(C-1>=MH)-(C+1<=ML);..........這樣加入收過MH+1點?
收破低ML-1點?對嗎?
(SS=-1,MH).........=-1是什麼意思?
謝謝總板主.教導.

引用:

---

最初由 santienchang 發表
上方變數值沒顯示?
SS:=(C-1>=MH)-(C+1<=ML);..........這樣加入收過MH+1點?
收破低ML-1點?對嗎?
(SS=-1,MH).........=-1是什麼意思?
謝謝總板主.教導.

---

引用:

---

最初由 cgjj 發表
Re: 上方變數值沒顯示?

將
MH:=IF(BKH>MMH3,MAH3,MMH3),colorFFFFFF;
ML:=IF(BKL<MML3,MAL3,MML3),colorFFFFFF;
改為
MH:IF(BKH>MMH3,MAH3,MMH3) colorred linethick0;
ML:IF(BKL<MML3,MAL3,MML3) colorgreen linethick0;

Re: 這樣加入收過MH+1點? 收破低ML-1點?對嗎?
改這樣 (C>=MH+1)-(C<=ML-1)
會比 (C-1>=MH)-(C+1<=ML)
來的更直覺些...

Re:-1是什麼意思?
代表該處要畫 MH

---

引用:

---

最初由 santienchang 發表
這樣明白.
用同樣語法套不同周期在同多分窗使用?
MH:IF(BKH>MMH3,MAH3,MMH3) colorred linethick0;
ML:IF(BKL<MML3,MAL3,MML3) colorgreen linethick0;
不同周期顯現上方變數值會亂掉?這要從何區修改?讓各
周期顏色各顯現在上方謝謝.

---

引用:

---

最初由 cgjj 發表
何謂亂掉? 何謂 "套不同周期在同多分窗" ....
請詳述，如此簡短敘述很難理解您在說什麼
建議舉實例說明

---

引用:

---

最初由 santienchang 發表
DESP:=BARSLAST(DATE<>REF(DATE,1));
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);
//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;
MH:IF(BKH>MMH3,MAH3,MMH3)colorred linethick0;
ML:IF(BKL<MML3,MAL3,MML3)colorred linethick0;
LBMH:=LBOUND(MH);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(MH,SetNewLB); x:=SETLBOUND(ML,SetNewLB);
end;
MH:=SETVAL(BKLT,MH,-BKFTSP,MH);
ML:=SETVAL(BKLT,ML,-BKFTSP,ML);
SS:=(C-1>=MH+1)-(C+1<=ML-1);
SS:=REF(SS,BARSLAST(SS<>0));
PARTLINE(SS=1,ML) color0000ff;
PARTLINE(SS=-1,MH) color0000ff;


DESP:=BARSLAST(DATE<>REF(DATE,1));
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-15;
FirstSP:=BARSLAST(FirstCK);
BKFT:=MOD(FirstSP,5)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,5)=5-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;
MH:=IF(BKH>MMH3,MAH3,MMH3)colorred colorwhite;
早盤開出5K.正確3K.ML變數值就錯誤?
希望不受循環影響兩組變數值全顯示出來
謝謝您的協助.

---

抱歉意開盤後失忽短漏貼部份.請查問題所在謝謝!
DESP:=BARSLAST(DATE<>REF(DATE,1));
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);
//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;
MH:IF(BKH>MMH3,MAH3,MMH3)colorred linethick0;
ML:IF(BKL<MML3,MAL3,MML3)colorred linethick0;
LBMH:=LBOUND(MH);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(MH,SetNewLB); x:=SETLBOUND(ML,SetNewLB);
end;
MH:=SETVAL(BKLT,MH,-BKFTSP,MH);
ML:=SETVAL(BKLT,ML,-BKFTSP,ML);
SS:=(C-1>=MH+1)-(C+1<=ML-1);
SS:=REF(SS,BARSLAST(SS<>0));
PARTLINE(SS=1,ML) color0000ff;
PARTLINE(SS=-1,MH) color0000ff;


DESP:=BARSLAST(DATE<>REF(DATE,1));
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-15;
FirstSP:=BARSLAST(FirstCK);
BKFT:=MOD(FirstSP,5)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,5)=5-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;
MH:=IF(BKH>MMH3,MAH3,MMH3)colorred colorwhite;
ML:=IF(BKL<MML3,MAL3,MML3)colorred colorwhite;
LBMH:=LBOUND(MH);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(MH,SetNewLB); x:=SETLBOUND(ML,SetNewLB);
end;
MH:=SETVAL(BKLT,MH,-BKFTSP,MH);
ML:=SETVAL(BKLT,ML,-BKFTSP,ML);
SS:=(CLOSE>=MH+1)-(CLOSE<=ML-1);
SS:=REF(SS,BARSLAST(SS<>0));
PARTLINE(SS=1,ML) color666666;
PARTLINE(SS=-1,MH) color666666;

引用:

---

最初由 santienchang 發表
抱歉意開盤後失忽短漏貼部份.請查問題所在謝謝!


DESP:=BARSLAST(DATE<>REF(DATE,1));
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-15;
FirstSP:=BARSLAST(FirstCK);
BKFT:=MOD(FirstSP,5)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,5)=5-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;
MH:=IF(BKH>MMH3,MAH3,MMH3)colorred colorwhite;
ML:=IF(BKL<MML3,MAL3,MML3)colorred colorwhite;
LBMH:=LBOUND(MH);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(MH,SetNewLB); x:=SETLBOUND(ML,SetNewLB);
end;
MH:=SETVAL(BKLT,MH,-BKFTSP,MH);
ML:=SETVAL(BKLT,ML,-BKFTSP,ML);
SS:=(CLOSE>=MH+1)-(CLOSE<=ML-1);
SS:=REF(SS,BARSLAST(SS<>0));
PARTLINE(SS=1,ML) color666666;
PARTLINE(SS=-1,MH) color666666;

---