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

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 如何例用60 分K 組合日磐及夜磐的K棒 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=23805)

由 ivancclai 在 2023-11-11 15:15 發表:

如何例用60 分K 組合日磐及夜磐的K棒

版主你好


我想很久奇狐看盤軟件, 台當月+ 如何呈現台 指期的日磐及夜磐

開盤後 1小時K當夜磐K榜及畫根K棒標示開高低收點位當夜磐 再下來五根當日磐 , 畫根K棒標示開高低收點位當日磐 就和其他家看磐軟體同步

我不會寫即畫開高低收 請可以請你幫我看看如何修正






// ================= 分時線 小時線====================================
IF DATATYPE =1 THEN BEGIN //1分K
DECK1:=Tradedate<>ref(Tradedate,1) or Time = 84600 or Time=94600 or Time = 104600 or Time = 114600 or Time = 124600
or Time=150100 or Time=160100 or Time=170100 or Time=180100 or Time=190100 or Time=200100 or Time=210100 or Time=220100 or Time=230100 or Time=100 or Time=10100 or Time=20100 or Time=30100 or Time=40100;
End;
IF DATATYPE =2 THEN BEGIN //5分K
DECK1:=Tradedate<>ref(Tradedate,1) or Time = 085000 or Time = 95000 or Time = 105000 or Time = 115000 or Time = 125000
or Time=150500 or Time=160500 or Time=170500 or Time=180500 or Time=190500 or Time=200500 or Time=210500 or Time=220500 or Time=230500 or Time=500 or Time=10500 or Time=20500 or Time=30500 or Time=40500;
End;
IF DATATYPE =3 THEN BEGIN //15分K
DECK1:=Tradedate<>ref(Tradedate,1)or Time=90000or Time=94500 or Time=104500 or Time=114500 or Time=124500
or Time=151500 or Time=161500 or Time=171500 or Time=181500 or Time=191500 or Time=201500 or Time=211500 or Time=221500 or Time=231500 or Time=1500 or Time=11500 or Time=21500 or Time=31500 or Time=41500;
End;

DESP:=BARSLAST(DECK1);
IF DATAPERIOD < 7 THEN BEGIN // <60分K
VERTLINE(DECK1) Color003388 linedot; //標示換交易日(垂直分隔線)
KLINE(O,H,L,C,0);
END;
// ==================================================================
// ================= 隔日線 =====================================
IF DATATYPE =1 THEN BEGIN //1分K
DECK:=Tradedate<>ref(Tradedate,1) or Time = 84600;
End;
IF DATATYPE =2 THEN BEGIN //5分K
DECK:=Tradedate<>ref(Tradedate,1) or Time = 85000;
End;
IF DATATYPE =3 THEN BEGIN //15分K
DECK:=Tradedate<>ref(Tradedate,1) or Time=90000;
End;
IF DATATYPE =4 THEN BEGIN //30分K
DECK1:=Tradedate<>ref(Tradedate,1) or Time=91500;
End;
IF DATATYPE =5 THEN BEGIN //60分K
DECK:=Tradedate<>ref(Tradedate,1) or Time=94500;
End;

DESP:=BARSLAST(DECK);
IF DATAPERIOD < 7 THEN BEGIN // <60分K
VERTLINE(DECK) Color008888 linedot; //標示換交易日(垂直分隔線)
KLINE(O,H,L,C,0);
END;
// ======================================================================

//======================== 鱷魚戰神 ===========================================================================
Var1:=(H+L)/2;
上唇:=REF(SMA(Var1,5,1),3),COLORGREEN;
牙齒:=REF(SMA(Var1,8,1),5),COLORRED;
下顎:=REF(SMA(Var1,13,1),8),COLORBLUE;

input:N1(5,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(o,bx),linethick0;
Cy:=ref(C*(by=0),barslast(C*(by=0)));hhx:=hhv(h,bx+1)*(by=0);llx:=llv(if(L=0,100000,L),bx+1)*(by=0);
cab:=IF(bx=0,CLOSE,0);cba:=IF(by=0,CLOSE,0);CC1:=c*0;cba1:=IF(by=0,HHX,0);HH1:=c*0;cba2:=IF(by=0,LLX,0);LL1:=c*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:=C;h3:=hhv(h,m[datacount]+1);L3:=LLV(if(L=0,1000000,L),m[datacount]+1);
CC:if(barpos>datacount-m[datacount]-1,c1[datacount],if(m=N1-1,C,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;
//=================================================================

====

由 ivancclai 在 2023-11-11 15:24 發表:

如圖

由 ivancclai 在 2023-11-11 15:29 發表:

如圖

由 cgjj 在 2023-11-12 12:03 發表:

回覆: 如何例用60 分K 組合日磐及夜磐的K棒

引用:
最初由 ivancclai 發表
版主你好


我想很久奇狐看盤軟件, 台當月+ 如何呈現台 指期的日磐及夜磐

開盤後 1小時K當夜磐K榜及畫根K棒標示開高低收點位當夜磐 再下來五根當日磐 , 畫根K棒標示開高低收點位當日磐 就和其他家看磐軟體同步

我不會寫即畫開高低收 請可以請你幫我看看如何修正






// ================= 分時線 小時線====================================
IF DATATYPE =1 THEN BEGIN //1分K
DECK1:=Tradedate<>ref(Tradedate,1) or Time = 84600 or Time=94600 or Time = 104600 or Time = 114600 or Time = 124600
or Time=150100 or Time=160100 or Time=170100 or Time=180100 or Time=190100 or Time=200100 or Time=210100 or Time=220100 or Time=230100 or Time=100 or Time=10100 or Time=20100 or Time=30100 or Time=40100;
End;
IF DATATYPE =2 THEN BEGIN //5分K
DECK1:=Tradedate<>ref(Tradedate,1) or Time = 085000 or Time = 95000 or Time = 105000 or Time = 115000 or Time = 125000
or Time=150500 or Time=160500 or Time=170500 or Time=180500 or Time=190500 or Time=200500 or Time=210500 or Time=220500 or Time=230500 or Time=500 or Time=10500 or Time=20500 or Time=30500 or Time=40500;
End;
IF DATATYPE =3 THEN BEGIN //15分K
DECK1:=Tradedate<>ref(Tradedate,1)or Time=90000or Time=94500 or Time=104500 or Time=114500 or Time=124500
or Time=151500 or Time=161500 or Time=171500 or Time=181500 or Time=191500 or Time=201500 or Time=211500 or Time=221500 or Time=231500 or Time=1500 or Time=11500 or Time=21500 or Time=31500 or Time=41500;
End;

DESP:=BARSLAST(DECK1);
IF DATAPERIOD < 7 THEN BEGIN // <60分K
VERTLINE(DECK1) Color003388 linedot; //標示換交易日(垂直分隔線)
KLINE(O,H,L,C,0);
END;
// ==================================================================
// ================= 隔日線 =====================================
IF DATATYPE =1 THEN BEGIN //1分K
DECK:=Tradedate<>ref(Tradedate,1) or Time = 84600;
End;
IF DATATYPE =2 THEN BEGIN //5分K
DECK:=Tradedate<>ref(Tradedate,1) or Time = 85000;
End;
IF DATATYPE =3 THEN BEGIN //15分K
DECK:=Tradedate<>ref(Tradedate,1) or Time=90000;
End;
IF DATATYPE =4 THEN BEGIN //30分K
DECK1:=Tradedate<>ref(Tradedate,1) or Time=91500;
End;
IF DATATYPE =5 THEN BEGIN //60分K
DECK:=Tradedate<>ref(Tradedate,1) or Time=94500;
End;

DESP:=BARSLAST(DECK);
IF DATAPERIOD < 7 THEN BEGIN // <60分K
VERTLINE(DECK) Color008888 linedot; //標示換交易日(垂直分隔線)
KLINE(O,H,L,C,0);
END;
// ======================================================================

//======================== 鱷魚戰神 ===========================================================================
Var1:=(H+L)/2;
上唇:=REF(SMA(Var1,5,1),3),COLORGREEN;
牙齒:=REF(SMA(Var1,8,1),5),COLORRED;
下顎:=REF(SMA(Var1,13,1),8),COLORBLUE;

input:N1(5,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(o,bx),linethick0;
Cy:=ref(C*(by=0),barslast(C*(by=0)));hhx:=hhv(h,bx+1)*(by=0);llx:=llv(if(L=0,100000,L),bx+1)*(by=0);
cab:=IF(bx=0,CLOSE,0);cba:=IF(by=0,CLOSE,0);CC1:=c*0;cba1:=IF(by=0,HHX,0);HH1:=c*0;cba2:=IF(by=0,LLX,0);LL1:=c*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:=C;h3:=hhv(h,m[datacount]+1);L3:=LLV(if(L=0,1000000,L),m[datacount]+1);
CC:if(barpos>datacount-m[datacount]-1,c1[datacount],if(m=N1-1,C,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;
//=================================================================

====


很抱歉，您的文字描述
無法精確看懂您想要怎樣畫!
麻煩請舉實例，實際畫一個您想要的結果，貼圖上來
這樣才能準確了解您想要什麼
注意:畫的範例請至少需含兩個交易日的K棒

由 ivancclai 在 2023-11-12 18:39 發表:

如圖例

由 cgjj 在 2023-11-13 10:21 發表:

引用:
最初由 ivancclai 發表
如圖例


您這是日盤一根，夜盤一根 的概念

請試試14小時線，應該可以合乎您的需求!
請鍵入 h014 或 h0014 後，再按[Enter]，即可觀看14小時線。

註：[系統選項]請不要勾選[多分鐘線單根可跨日]，才能正常觀看!

由 ivancclai 在 2023-11-13 13:49 發表:

謝謝版主大大

可以了 謝謝你

由 cgjj 在 2023-11-13 14:03 發表:

引用:
最初由 ivancclai 發表
謝謝版主大大

可以了 謝謝你


不客氣^^
全部時間均為台灣時間, 現在時間為21:24
在這個頁面顯示本主題全部的 8 個文章


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