|
ivancclai
資深會員
註冊日期: Apr 2017
來 自: New Taipei city
文章數量: 163 |
如何例用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:23 編輯 |
向版主報告此篇 | |
|
2023-11-11 15:15 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 17640 |
回覆: 如何例用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棒
|
|
向版主報告此篇 | |
|
2023-11-12 12:03 |
|
|
| |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|