奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 多分大K誇越昨日 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=21400)

多分大K誇越昨日

//input:N1(20,1,1000);
IF DATACOUNT<N1 then exit;
m1:=MOD(BARPOS,N1);m:=IF(m1=0,N1-1,m1-1);mz:=BACKSET(m=N1-1 or ISLASTBAR,INTPART(m/2)+1);
//VERTLINE(m=0),colorred,POINTDOT;
//VERTLINE(m=N1-1),colorgreen,POINTDOT;
bx:=BARSLAST(m=0);by:=BARSLAST(m=N1-1);
OO:REF(OPEN,bx),linethick0;
Cy:=REF(CLOSE*(by=0),BARSLAST(CLOSE*(by=0)));hhx:=HHV(HIGH,bx+1)*(by=0);llx:=LLV(IF(LOW=0,100000,LOW),bx+1)*(by=0);
cab:=IF(bx=0,CLOSE,0);cba:=IF(by=0,CLOSE,0);CC1:=CLOSE*0;cba1:=IF(by=0,HHX,0);HH1:=CLOSE*0;cba2:=IF(by=0,LLX,0);LL1:=CLOSE*0;

for n=LBOUND(cab) to UBOUND(cab) do begin
IF cab[n]>0 then begin
for z=n+N1-1 to UBOUND(cab) do begin
IF cba[z]>0 then begin
for s=n to z-1 do begin
CC1[s]:=cba[z];
HH1[s]:=cba1[z];
LL1[s]:=cba2[z];
end;
break;
end;
end;
end;
end;

c1:=CLOSE;h3:=HHV(HIGH,m[DATACOUNT]+1);L3:=LLV(IF(LOW=0,1000000,LOW),m[DATACOUNT]+1);
CC:IF(BARPOS>DATACOUNT-m[DATACOUNT]-1,c1[DATACOUNT],IF(m=N1-1,CLOSE,CC1)),linethick0;
HH:IF(BARPOS>DATACOUNT-m[DATACOUNT]-1,h3[DATACOUNT],IF(m=N1-1,REF(HH1,1),HH1)),linethick0;
LL:IF(BARPOS>DATACOUNT-m[DATACOUNT]-1,L3[DATACOUNT],IF(m=N1-1,REF(LL1,1),LL1)),linethick0;
PARTLINE(m>0 and CC>=OO,CC),colorred;
PARTLINE(m>0 and CC<OO,CC),colorcyan;
PARTLINE(m>0 and CC>=OO,OO),colorred;
PARTLINE(m>0 and CC<OO,OO),colorcyan;
STICKLINE((m=N1-1 or ISLASTBAR) and CC>=OO,OO,CC,1,0),colorred;
STICKLINE((m=N1-1 or ISLASTBAR) and CC<OO,OO,CC,1,0),colorcyan;
STICKLINE(m=0 and CC>=OO,OO,CC,1,0),colorred;
STICKLINE(m=0 and CC<OO,OO,CC,1,0),colorcyan;
STICKLINE(mz=1 and REF(mz=1,1)=0 and CC>=OO,HH,CC,1,0),colorred;
STICKLINE(mz=1 and REF(mz=1,1)=0 and CC<OO,HH,OO,1,0),colorcyan;
STICKLINE(mz=1 and REF(mz=1,1)=0 and CC>=OO,OO,LL,1,0),colorred;
STICKLINE(mz=1 and REF(mz=1,1)=0 and CC<OO,CC,LL,1,0),colorcyan;
如何每日以開盤跨越(過去N日)或昨日小K棒數.起始畫大K一直畫到收盤止.最後部整數沒關係...謝謝!
直到收盤.謝謝!

回覆: 多分大K誇越昨日

引用:

---

最初由 santienchang 發表
//input:N1(20,1,1000);
IF DATACOUNT<N1 then exit;
m1:=MOD(BARPOS,N1);m:=IF(m1=0,N1-1,m1-1);mz:=BACKSET(m=N1-1 or ISLASTBAR,INTPART(m/2)+1);
//VERTLINE(m=0),colorred,POINTDOT;
//VERTLINE(m=N1-1),colorgreen,POINTDOT;
bx:=BARSLAST(m=0);by:=BARSLAST(m=N1-1);
OO:REF(OPEN,bx),linethick0;
Cy:=REF(CLOSE*(by=0),BARSLAST(CLOSE*(by=0)));hhx:=HHV(HIGH,bx+1)*(by=0);llx:=LLV(IF(LOW=0,100000,LOW),bx+1)*(by=0);
cab:=IF(bx=0,CLOSE,0);cba:=IF(by=0,CLOSE,0);CC1:=CLOSE*0;cba1:=IF(by=0,HHX,0);HH1:=CLOSE*0;cba2:=IF(by=0,LLX,0);LL1:=CLOSE*0;

for n=LBOUND(cab) to UBOUND(cab) do begin
IF cab[n]>0 then begin
for z=n+N1-1 to UBOUND(cab) do begin
IF cba[z]>0 then begin
for s=n to z-1 do begin
CC1[s]:=cba[z];
HH1[s]:=cba1[z];
LL1[s]:=cba2[z];
end;
break;
end;
end;
end;
end;

c1:=CLOSE;h3:=HHV(HIGH,m[DATACOUNT]+1);L3:=LLV(IF(LOW=0,1000000,LOW),m[DATACOUNT]+1);
CC:IF(BARPOS>DATACOUNT-m[DATACOUNT]-1,c1[DATACOUNT],IF(m=N1-1,CLOSE,CC1)),linethick0;
HH:IF(BARPOS>DATACOUNT-m[DATACOUNT]-1,h3[DATACOUNT],IF(m=N1-1,REF(HH1,1),HH1)),linethick0;
LL:IF(BARPOS>DATACOUNT-m[DATACOUNT]-1,L3[DATACOUNT],IF(m=N1-1,REF(LL1,1),LL1)),linethick0;
PARTLINE(m>0 and CC>=OO,CC),colorred;
PARTLINE(m>0 and CC<OO,CC),colorcyan;
PARTLINE(m>0 and CC>=OO,OO),colorred;
PARTLINE(m>0 and CC<OO,OO),colorcyan;
STICKLINE((m=N1-1 or ISLASTBAR) and CC>=OO,OO,CC,1,0),colorred;
STICKLINE((m=N1-1 or ISLASTBAR) and CC<OO,OO,CC,1,0),colorcyan;
STICKLINE(m=0 and CC>=OO,OO,CC,1,0),colorred;
STICKLINE(m=0 and CC<OO,OO,CC,1,0),colorcyan;
STICKLINE(mz=1 and REF(mz=1,1)=0 and CC>=OO,HH,CC,1,0),colorred;
STICKLINE(mz=1 and REF(mz=1,1)=0 and CC<OO,HH,OO,1,0),colorcyan;
STICKLINE(mz=1 and REF(mz=1,1)=0 and CC>=OO,OO,LL,1,0),colorred;
STICKLINE(mz=1 and REF(mz=1,1)=0 and CC<OO,CC,LL,1,0),colorcyan;
如何每日以開盤跨越(過去N日)或昨日小K棒數.起始畫大K一直畫到收盤止.最後部整數沒關係...謝謝!
直到收盤.謝謝!

---

回覆: 回覆: 多分大K誇越昨日

引用:

---

最初由 cgjj 發表
這段公式產生出來的大K，就已經有跨日的現象了

---

回覆: 回覆: 回覆: 多分大K誇越昨日

引用:

---

最初由 santienchang 發表
可誇日.但大K框小K範圍可以左移或右移調整範圍起始..謝謝

---

回覆: 回覆: 回覆: 回覆: 多分大K誇越昨日

引用:

---

最初由 cgjj 發表
您自己寫的這行:
m1:=MOD(BARPOS,N1);

在這一行中去加減調整即可，它決定分割

---

回覆: 回覆: 回覆: 回覆: 回覆: 多分大K誇越昨日

引用:

---

最初由 santienchang 發表
m1:=求模運算(數據位置,N1);m:=條件函數(m1=0,N1-1,m1-29);mz:=向前賦值(m=N1-1 or 是否最後週期,取整(m/2)-29);

要往右移29 搞了半天就是移不過?.請幫幫忙
再次謝謝!

---

可以了謝謝總版主

回覆: 回覆: 回覆: 多分大K誇越昨日

引用:

---

最初由 santienchang 發表
可誇日.但大K框小K範圍可以左移或右移調整範圍起始..謝謝

---

回覆: 回覆: 回覆: 回覆: 多分大K誇越昨日

引用:

---

最初由 santienchang 發表
總版主午安!
增加大K起始位置.:每天開盤逆推昨日(或N日)
第N多分K起始畫大K一直到收盤.?請協助.
拱手謝謝!

---

回覆: 回覆: 回覆: 回覆: 回覆: 多分大K誇越昨日

引用:

---

最初由 cgjj 發表
利用前面的提示，應該可以去實現滿足這需求

---

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 多分大K誇越昨日

引用:

---

最初由 santienchang 發表
m1:=MOD(BARPOS-12,N1);m:=IF
實在愚拙
大K寬距目前是可以左右調整適當位置?但隔天
開盤還是繼續累計?無法依設定每天開盤起始切割?可否協助.謝謝!

---

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 多分大K誇越昨日

引用:

---

最初由 cgjj 發表
若您的大K有跨日，就不可能按每天開盤起始切割!!!
若您的大K沒跨日，才有可能實現!

---

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 多分大K誇越昨日

引用:

---

最初由 santienchang 發表
在此還是先謝謝您熱心的指導與幫忙!
我試過2KC倒數自由K線.與1KC自由K線都無法
誇越過昨日切割
可否敬請總版主在有空暇時.費心編寫"誇日大
K"受益於廣眾奇狐戶友之福.(拱手)

---

該圖由上方1kc自由週期所設...不能每日重複?.
如圖示..每日開盤重複起始位置.thank you

是 12:51 吧，不是 12:09，範例如下:

DESP:=barslast(Tradedate<>ref(Tradedate,1));
StPos:=datacount-DESP[datacount]-210;
StSp:=barslast(barpos=StPos);
SplitNum:=81;
KSt:=mod(StSp,SplitNum)=0;
KEd:=refx(KSt,1) or barpos=datacount;
KSP:=BARSLAST(KSt);
KO:ref(O,KSP) LINETHICK0 colormagenta;
KH:HHV(H,KSP+1) LINETHICK0 colormagenta;
KH:=SETVAL(KEd,KH,-KSP,KH);
KL:LLV(L,KSP+1) LINETHICK0 colormagenta;
KL:=SETVAL(KEd,KL,-KSP,KL);
KC:SETVAL(KEd,C,-KSP,C) LINETHICK0 colormagenta;
SpD2:=FLOOR(KSp/2);
MV:=SETVAL(KEd,0,-SpD2,barpos-SpD2);
MV:=barpos=MV;
PKM:=KSp>0;
PKMV:=PKM and MV;
PKLV:=KSt and Not(KEd);
PKRV:=PKM and KEd;
PARTLINE(PKM,KO) colorwhite;
PARTLINE(PKM,KC) colorwhite;
STICKLINE(PKMV,KH,MAX(KC,KO),0,0) colorwhite;
STICKLINE(PKMV,KL,MIN(KC,KO),0,0) colorwhite;
STICKLINE(PKLV,KC,KO,0,0) colorwhite;
STICKLINE(PKRV,KC,KO,0,0) colorwhite;