|
ivancclai
資深會員
註冊日期: Apr 2017
來 自: New Taipei city
文章數量: 163 |
如何顯示最後五根k值就好
版主你好
可否幫我修改顯示k棒的開高低収點及上下一倍值 程式原本是高有碰到就變色(虛過) 可否幫我更改成收盤價才變色(實過)
但是只顯示最後五根的值就好
//================ 點位變色 =======================
HH:=H; LL:=L;
k1:=HH;
k2:=LL;
DH:=C*0; DL:=DH;
for i=1 to datacount do begin
for j=i+1 to datacount do begin
if HH[j]>HH[i] then begin
DH[i]:=j; break;
end;
end;
for j=i+1 to datacount do begin
if LL[j]<LL[i] then begin
DL[i]:=j; break;
end;
end;
end;
KLINE(O,H,L,C,0);
綠K:=C<O ;//or C=O and C<=ref(C,1);
紅K:=Not(綠K);
K3:=max(c,o);//上緣
K4:=min(c,o);//下緣
DRAWNUMBER(紅K>0,K3,mod(C,1000),0) ALIGN0 pxup55 color00FFFF;
DRAWNUMBER(紅K>0,k4,mod(O,1000),0) ALIGN0 pxdn55 colorFFFFFF;
DRAWNUMBER(綠K>0,K3,mod(o,1000),0) ALIGN0 pxup55 colorFFFFFF;
DRAWNUMBER(綠K>0,k4,mod(c,1000),0) ALIGN0 pxdn55 color00FFFF;
DRAWNUMBER(DH=0,HH,k1,0) ALIGN0 pxup95,colorFF33FF;
DRAWNUMBER(DL=0,LL,k2,0) ALIGN0 pxdn95 colorFFFF00;
DRAWNUMBER(DH>0,HH,k1,0) ALIGN0 pxup95,color0000FF;
DRAWNUMBER(DL>0,LL,k2,0) ALIGN0 pxdn95 color00FF00;
DRAWNUMBER(1,LL,HH-LL,0) ALIGN0 pxDN50 colorWHITE;//H-L 點數
//==================================================================================
//==============================堆 K= +k =========================================
HH:=H; LL:=L;
k1:=HH;
k2:=LL;
DH:=C*0; DL:=DH; 差:=HH-LL;
for i=1 to datacount do begin
for j=i+1 to datacount do begin
if HH[j]>HH[i]+差[i] then begin
DH[i]:=j; break;
end;
end;
for j=i+1 to datacount do begin
if LL[j]<LL[i]-差[i] then begin
DL[i]:=j; break;
end;
end;
end;
DRAWNUMBER(DH=0,HH,mod(H+差,100000),0) ALIGN1 pxup155,colorFF33FF;
DRAWNUMBER(DL=0,LL,mod(Ll-差,100000),0) ALIGN1 pxdn155 colorFFFF00;
DRAWTEXT(DH=0, HH, '+K=') align2,colorFF33FF,PXUP155;
DRAWTEXT(DL=0, LL, '-k=') align2,colorFFFF00,PXDN155;
DRAWNUMBER(DH>0,HH,mod(H+差,100000),0) ALIGN1 pxup155,colorRED;
DRAWTEXT(DH>0, HH, '+K=') align2,colorRED,PXUP155;
DRAWNUMBER(DL>0,LL,mod(L-差,100000),0) ALIGN1 pxdn155 colorGREEN;
DRAWTEXT(DL>0, LL,'-k=') align2,colorGREEN,PXDN155;
DRAWNUMBER(1,LL,差,0) ALIGN0 pxDN75˙ colorWHITE;//H-L 點數
KLINE(O,H,L,C,0);
//===================================================================================
|
最後由 ivancclai 在 2024-03-18 02:17 編輯 |
向版主報告此篇 | |
|
2024-03-18 02:10 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 17628 |
回覆: 如何顯示最後五根k值就好
引用: 最初由 ivancclai 發表
版主你好
可否幫我修改顯示k棒的開高低収點及上下一倍值 程式原本是高有碰到就變色(虛過) 可否幫我更改成收盤價才變色(實過)
但是只顯示最後五根的值就好
//================ 點位變色 =======================
HH:=H; LL:=L;
k1:=HH;
k2:=LL;
DH:=C*0; DL:=DH;
for i=1 to datacount do begin
for j=i+1 to datacount do begin
if HH[j]>HH[i] then begin
DH[i]:=j; break;
end;
end;
for j=i+1 to datacount do begin
if LL[j]<LL[i] then begin
DL[i]:=j; break;
end;
end;
end;
KLINE(O,H,L,C,0);
綠K:=C<O ;//or C=O and C<=ref(C,1);
紅K:=Not(綠K);
K3:=max(c,o);//上緣
K4:=min(c,o);//下緣
DRAWNUMBER(紅K>0,K3,mod(C,1000),0) ALIGN0 pxup55 color00FFFF;
DRAWNUMBER(紅K>0,k4,mod(O,1000),0) ALIGN0 pxdn55 colorFFFFFF;
DRAWNUMBER(綠K>0,K3,mod(o,1000),0) ALIGN0 pxup55 colorFFFFFF;
DRAWNUMBER(綠K>0,k4,mod(c,1000),0) ALIGN0 pxdn55 color00FFFF;
DRAWNUMBER(DH=0,HH,k1,0) ALIGN0 pxup95,colorFF33FF;
DRAWNUMBER(DL=0,LL,k2,0) ALIGN0 pxdn95 colorFFFF00;
DRAWNUMBER(DH>0,HH,k1,0) ALIGN0 pxup95,color0000FF;
DRAWNUMBER(DL>0,LL,k2,0) ALIGN0 pxdn95 color00FF00;
DRAWNUMBER(1,LL,HH-LL,0) ALIGN0 pxDN50 colorWHITE;//H-L 點數
//==================================================================================
//==============================堆 K= +k =========================================
HH:=H; LL:=L;
k1:=HH;
k2:=LL;
DH:=C*0; DL:=DH; 差:=HH-LL;
for i=1 to datacount do begin
for j=i+1 to datacount do begin
if HH[j]>HH[i]+差[i] then begin
DH[i]:=j; break;
end;
end;
for j=i+1 to datacount do begin
if LL[j]<LL[i]-差[i] then begin
DL[i]:=j; break;
end;
end;
end;
DRAWNUMBER(DH=0,HH,mod(H+差,100000),0) ALIGN1 pxup155,colorFF33FF;
DRAWNUMBER(DL=0,LL,mod(Ll-差,100000),0) ALIGN1 pxdn155 colorFFFF00;
DRAWTEXT(DH=0, HH, '+K=') align2,colorFF33FF,PXUP155;
DRAWTEXT(DL=0, LL, '-k=') align2,colorFFFF00,PXDN155;
DRAWNUMBER(DH>0,HH,mod(H+差,100000),0) ALIGN1 pxup155,colorRED;
DRAWTEXT(DH>0, HH, '+K=') align2,colorRED,PXUP155;
DRAWNUMBER(DL>0,LL,mod(L-差,100000),0) ALIGN1 pxdn155 colorGREEN;
DRAWTEXT(DL>0, LL,'-k=') align2,colorGREEN,PXDN155;
DRAWNUMBER(1,LL,差,0) ALIGN0 pxDN75˙ colorWHITE;//H-L 點數
KLINE(O,H,L,C,0);
//===================================================================================
原碼: //================ 點位變色 =======================
HH:=H; LL:=L; CC:=C;
LB:=datacount-5+1; if LB<1 then exit;
x:=setlbound(CC,LB); x:=setlbound(HH,LB); x:=setlbound(LL,LB);
DH:=CC*0; DL:=DH;
for i=LB to datacount do begin
for j=i+1 to datacount do begin
if CC[j]>HH[i] then begin
DH[i]:=j; break;
end;
end;
for j=i+1 to datacount do begin
if CC[j]<LL[i] then begin
DL[i]:=j; break;
end;
end;
end;
KLINE(O,H,L,C,0);
綠K:=C<O ;//or C=O and C<=ref(C,1);
x:=setlbound(綠K,LB);
紅K:=Not(綠K);
K3:=max(c,o);//上緣
K4:=min(c,o);//下緣
DRAWNUMBER(紅K>0,K3,mod(C,1000),0) ALIGN0 pxup55 color00FFFF;
DRAWNUMBER(紅K>0,k4,mod(O,1000),0) ALIGN0 pxdn55 colorFFFFFF;
DRAWNUMBER(綠K>0,K3,mod(o,1000),0) ALIGN0 pxup55 colorFFFFFF;
DRAWNUMBER(綠K>0,k4,mod(c,1000),0) ALIGN0 pxdn55 color00FFFF;
DRAWNUMBER(DH=0,HH,HH,0) ALIGN0 pxup95,colorFF33FF;
DRAWNUMBER(DL=0,LL,LL,0) ALIGN0 pxdn95 colorFFFF00;
DRAWNUMBER(DH>0,HH,HH,0) ALIGN0 pxup95,color0000FF;
DRAWNUMBER(DL>0,LL,LL,0) ALIGN0 pxdn95 color00FF00;
DRAWNUMBER(1,LL,HH-LL,0) ALIGN0 pxDN50 colorWHITE;//H-L 點數
//==================================================================================
//==============================堆 K= +k =========================================
HH:=H; LL:=L; CC:=C;
LB:=datacount-5+1; if LB<1 then exit;
x:=setlbound(CC,LB); x:=setlbound(HH,LB); x:=setlbound(LL,LB);
DH:=CC*0; DL:=DH; 差:=HH-LL;
for i=LB to datacount do begin
for j=i+1 to datacount do begin
if CC[j]>HH[i]+差[i] then begin
DH[i]:=j; break;
end;
end;
for j=i+1 to datacount do begin
if CC[j]<LL[i]-差[i] then begin
DL[i]:=j; break;
end;
end;
end;
DRAWNUMBER(DH=0,HH,mod(H+差,100000),0) ALIGN1 pxup155,colorFF33FF;
DRAWNUMBER(DL=0,LL,mod(Ll-差,100000),0) ALIGN1 pxdn155 colorFFFF00;
DRAWTEXT(DH=0, HH, '+K=') align2,colorFF33FF,PXUP155;
DRAWTEXT(DL=0, LL, '-k=') align2,colorFFFF00,PXDN155;
DRAWNUMBER(DH>0,HH,mod(H+差,100000),0) ALIGN1 pxup155,colorRED;
DRAWTEXT(DH>0, HH, '+K=') align2,colorRED,PXUP155;
DRAWNUMBER(DL>0,LL,mod(L-差,100000),0) ALIGN1 pxdn155 colorGREEN;
DRAWTEXT(DL>0, LL,'-k=') align2,colorGREEN,PXDN155;
DRAWNUMBER(1,LL,差,0) ALIGN0 pxDN75˙ colorWHITE;//H-L 點數
KLINE(O,H,L,C,0);
|
|
向版主報告此篇 | |
|
2024-03-18 09:42 |
|
|
| |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|