 |
ivancclai
資深會員
註冊日期: Apr 2017
來 自: New Taipei city
文章數量: 163 |
|
如何顯示K棒的正中間
版主大大擬好
可否幫我更正此程式
// ============ = 新價線 ===================================
NP : DYNAINFO( 7) COLORFFFF00 LINEDOT;
//==========================================================
//==========================================================
// DRAWLINE(NP,LOW,HD,HIGH,0),colorRED, LINETHICK2;
DRAWNUMBER(NP,HIGH,HIGH,0) colorWHITE,PXUP25;
// DRAWTEXT(NP, HIGH, '-k=') colorWHITE,PXUP50;
DRAWNUMBER(NP,HIGH,HIGH+(HIGH-LOW),0), colorWHITE,PXUP50 SHIFT0;
DRAWNUMBER(NP,LOW,LOW,0) colorWHITE,PXDN25;
DRAWTEXT(NP, LOW, '+K=') colorWHITE,PXDN50;
DRAWNUMBER(NP,LOW ,LOW-(HIGH-LOW),0), colorWHITE,PXDN50 SHIFT1;
DRAWNUMBER(NP,LOW ,(HIGH-LOW),0), colorWHITE,PXDN75;//H-L 點數
//=================//=======================================
// DRAWNUMBER(NP,HIGH,HIGH,0) colorWHITE,PXUP25;
//
// DRAWTEXT(REF(NP,1), HIGH, '+k=') colorWHITE,PXUP50;
// DRAWNUMBER(NP,HIGH ,HIGH+(HIGH-LOW),0), colorWHITE,SHIFT1,PXUP501; //+K
// REFH:=REF(HIGH,1);
// REFL:=REF(LOW,1);
// S:= LOW+(REFH-REFL);
// DRAWNUMBER(NP,HIGH ,S ,0), colorWHITE,PXUP75,SHIFT0; //+S-1
// DRAWNUMBER(NP,LOW,LOW,0) colorWHITE,PXDN25;
// DRAWTEXT(NP, LOW, '+K=') colorWHITE,PXDN50; ///-K
// DRAWNUMBER(NP,LOW ,LOW-(HIGH-LOW),0), colorWHITE,PXDN50, SHIFT1;
// S2:=HIGH-(REFH-REFL);
// DRAWNUMBER(NP,LOW ,S2 ,0), colorWHITE,PXDN75,SHIFT; //-S-1
// DRAWNUMBER(NP,LOW ,(HIGH-LOW),0), colorWHITE,PXDN100;//H-L 點數
//========================================================
EXPLAIN(1>0,'==============='),colorFFFFFF;
EXPLAINEX(1>0,'最新價 = ',NP,2,0) COLORFFFF00;
//EXPLAIN(1>0,'==============='),colorFFFFFF;
//===================================================================
兩根k棒可以做疊k 與堆k +s+k 往上 1:1 和正 N 及-S -S 往下1:1 和倒N 我不會寫倒N 即顯示時如ˊ何以K棒為正中心及 +K=XXXXX 也呈現在K棒正中心
我的問題是
1. 當下K棒顯示高低點, 以K棒正中點為基準顯示
2 顯示K棒疊+K=xxxxxx 以幫正中心顯示 如何將數據及數字轉換成字串
3.當下並沒有下一根K棒數據<等下一根出現時 如何在上一根K棒中心點為基準顯示
謝謝 版主大大
|
| 最後由 ivancclai 在 2023-11-06 10:42 編輯 |
向版主報告此篇 |  |
|
2023-11-06 10:26 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 17628 |
|
回覆: 如何顯示K棒的正中間
引用:
最初由 ivancclai 發表
版主大大擬好
可否幫我更正此程式
// ============ = 新價線 ===================================
NP : DYNAINFO( 7) COLORFFFF00 LINEDOT;
//==========================================================
//==========================================================
// DRAWLINE(NP,LOW,HD,HIGH,0),colorRED, LINETHICK2;
DRAWNUMBER(NP,HIGH,HIGH,0) colorWHITE,PXUP25;
// DRAWTEXT(NP, HIGH, '-k=') colorWHITE,PXUP50;
DRAWNUMBER(NP,HIGH,HIGH+(HIGH-LOW),0), colorWHITE,PXUP50 SHIFT0;
DRAWNUMBER(NP,LOW,LOW,0) colorWHITE,PXDN25;
DRAWTEXT(NP, LOW, '+K=') colorWHITE,PXDN50;
DRAWNUMBER(NP,LOW ,LOW-(HIGH-LOW),0), colorWHITE,PXDN50 SHIFT1;
DRAWNUMBER(NP,LOW ,(HIGH-LOW),0), colorWHITE,PXDN75;//H-L 點數
//=================//=======================================
// DRAWNUMBER(NP,HIGH,HIGH,0) colorWHITE,PXUP25;
//
// DRAWTEXT(REF(NP,1), HIGH, '+k=') colorWHITE,PXUP50;
// DRAWNUMBER(NP,HIGH ,HIGH+(HIGH-LOW),0), colorWHITE,SHIFT1,PXUP501; //+K
// REFH:=REF(HIGH,1);
// REFL:=REF(LOW,1);
// S:= LOW+(REFH-REFL);
// DRAWNUMBER(NP,HIGH ,S ,0), colorWHITE,PXUP75,SHIFT0; //+S-1
// DRAWNUMBER(NP,LOW,LOW,0) colorWHITE,PXDN25;
// DRAWTEXT(NP, LOW, '+K=') colorWHITE,PXDN50; ///-K
// DRAWNUMBER(NP,LOW ,LOW-(HIGH-LOW),0), colorWHITE,PXDN50, SHIFT1;
// S2:=HIGH-(REFH-REFL);
// DRAWNUMBER(NP,LOW ,S2 ,0), colorWHITE,PXDN75,SHIFT; //-S-1
// DRAWNUMBER(NP,LOW ,(HIGH-LOW),0), colorWHITE,PXDN100;//H-L 點數
//========================================================
EXPLAIN(1>0,'==============='),colorFFFFFF;
EXPLAINEX(1>0,'最新價 = ',NP,2,0) COLORFFFF00;
//EXPLAIN(1>0,'==============='),colorFFFFFF;
//===================================================================
兩根k棒可以做疊k 與堆k +s+k 往上 1:1 和正 N 及-s -s 往下1:1 和倒N 我不會寫倒N 即顯示時如ˊ何以K棒為正中心及 +K=XXXXX 也呈現在K棒正中心
謝謝
很抱歉，看不懂您在描述什麼... ＠＠
恕無法協助
|
|
向版主報告此篇 | |
|
|
2023-11-06 10:39 |
|
|
| |
|
ivancclai
資深會員
註冊日期: Apr 2017
來 自: New Taipei city
文章數量: 163 |
|
我的問題是
1. 當下K棒顯示高低點, 以K棒正中點為基準顯示
2 顯示K棒疊+K=xxxxxx 以幫正中心顯示 如何將數據及數字轉換成字串
3.當下並沒有下一根K棒數據<等下一根出現時 如何在上一根K棒中心點為基準顯示
|
|
向版主報告此篇 | |
|
|
2023-11-06 10:46 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 17628 |
|
引用:
最初由 ivancclai 發表
我的問題是
1. 當下K棒顯示高低點, 以K棒正中點為基準顯示
2 顯示K棒疊+K=xxxxxx 以幫正中心顯示 如何將數據及數字轉換成字串
3.當下並沒有下一根K棒數據<等下一根出現時 如何在上一根K棒中心點為基準顯示
Re1:範例如下
DRAWNUMBER(1,HIGH,HIGH,0) ALIGN0 pxup25;
Re2:範例如下
DRAWTEXT(1,HIGH,'文字:') ALIGN2 pxup50 colorred;
DRAWNUMBER(1,HIGH,HIGH,0) ALIGN1 pxup50 colorred;
Re3:例如要取下一根K棒的HIGH，做法如下
refx(HIGH,1);
|
|
向版主報告此篇 | |
|
|
2023-11-06 11:02 |
|
|
| |
|
ivancclai
資深會員
註冊日期: Apr 2017
來 自: New Taipei city
文章數量: 163 |
|
版ˊ主大大你好
謝謝你,目前數據都正確 但是+/-S 與數據距離不對 要修正靠近s 不知如ˊ和處理請教版主大大
REFH:=REF(HIGH,1);
REFL:=REF(LOW,1);
DRAWNUMBER(NP , REFH ,LOW+(REFH-REFL) ,0) align2,colorWHITE,PXUP75; //-S-1
DRAWNUMBER(NP , REFL ,HIGH-(REFH-REFL) ,0) align2,colorWHITE,PXDN75; //-S-1
ivancclai 附帶上了此圖片:
|
|
向版主報告此篇 | |
|
|
2023-11-06 12:55 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 17628 |
|
引用:
最初由 ivancclai 發表
版ˊ主大大你好
謝謝你,目前數據都正確 但是+/-S 與數據距離不對 要修正靠近s 不知如ˊ和處理請教版主大大
REFH:=REF(HIGH,1);
REFL:=REF(LOW,1);
DRAWNUMBER(NP , REFH ,LOW+(REFH-REFL) ,0) align2,colorWHITE,PXUP75; //-S-1
DRAWNUMBER(NP , REFL ,HIGH-(REFH-REFL) ,0) align2,colorWHITE,PXDN75; //-S-1
+S 文字與右側的數字
是不同K棒所標示，當然會有段距離
應該是要把右側的數字拿到+S文字當根來標示
或是把+S文字移到下一根來標示
這樣兩者才會在同一根!
|
|
向版主報告此篇 | |
|
|
2023-11-06 15:51 |
|
|
| |
|
ivancclai
資深會員
註冊日期: Apr 2017
來 自: New Taipei city
文章數量: 163 |
|
如何更改標示顏色
版主大大你好
有問題請教你要如何處理
// ============ = 新價線 ===================================
NP : DYNAINFO( 7) COLORFFFF00 LINEDOT;
DRAWNUMBER(ISLASTBAR,NP,NP,0) SHIFT1,colorFFFF00 PXUP20;
DRAWTEXT(ISLASTBAR,NP,'最新價') SHIFT3,colorFFFF00 PXUP20;
//==========================================================
//==========================================================
k1:=mod(high,1000);
k2:=mod(low,1000);
DRAWNUMBER(NP,HIGH,k1,0) ALIGN0 pxup25,COLORFFFFFF;
DRAWNUMBER(NP,LOW,k2,0) ALIGN0 ,colorFFFFFF,PXDN25;
DRAWNUMBER(NP,LOW ,(HIGH-LOW),0)align0 , colorWHITE,PXDN50;//H-L 點數
//=============================================================================
這是我在上星期寫的 在每一根k棒上下緣標示高低點用白色 我的問題是若從此根k棒出現後的 今高有比此根高點高就將高點顏色更改成紅色顯示 若此根k幫出現後今低有比根k幫低點低就顯示低點顏色更改成綠色沒有就維持白色
我不知道 要如何修改請版主給我提示如何修正
謝謝你
|
| 最後由 ivancclai 在 2023-11-11 05:31 編輯 |
向版主報告此篇 | |
|
|
2023-11-10 16:48 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 17628 |
|
回覆: 如何更改標示顏色
引用:
最初由 ivancclai 發表
版主大大你好
有問題請教你要如何處理
// ============ = 新價線 ===================================
NP : DYNAINFO( 7) COLORFFFF00 LINEDOT;
DRAWNUMBER(ISLASTBAR,NP,NP,0) SHIFT1,colorFFFF00 PXUP20;
DRAWTEXT(ISLASTBAR,NP,'最新價') SHIFT3,colorFFFF00 PXUP20;
//==========================================================
//==========================================================
k1:=mod(high,1000);
k2:=mod(low,1000);
DRAWNUMBER(NP,HIGH,k1,0) ALIGN0 pxup25,COLORFFFFFF;
DRAWNUMBER(NP,LOW,k2,0) ALIGN0 ,colorFFFFFF,PXDN25;
DRAWNUMBER(NP,LOW ,(HIGH-LOW),0)align0 , colorWHITE,PXDN50;//H-L 點數
//=============================================================================
這是我在上星期寫的 在每一根k棒上下緣標示高低點用白色 我的問題是若從此根k棒出現後的 今高有比此根高點高就將高點顏色更改成紅色顯示 若此根k幫出現後今低有比根k幫低點低就顯示低點顏色更改成綠色沒有就維持白色
我不知道 要如何修改請版主給我提示如何修正
謝謝你
原碼:
HH:=H; LL:=L;
k1:=mod(HH,1000);
k2:=mod(LL,1000);
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;
DRAWNUMBER(DH=0,HH,k1,0) ALIGN0 pxup25,colorWHITE;
DRAWNUMBER(DL=0,LL,k2,0) ALIGN0 pxdn25 colorWHITE;
DRAWNUMBER(DH>0,HH,k1,0) ALIGN0 pxup25,colorRED;
DRAWNUMBER(DL>0,LL,k2,0) ALIGN0 pxdn25 colorGREEN;
DRAWNUMBER(1,LL,HH-LL,0) ALIGN0 pxDN50 colorWHITE;//H-L 點數
|
|
向版主報告此篇 | |
|
|
2023-11-12 10:41 |
|
|
| |
|
ivancclai
資深會員
註冊日期: Apr 2017
來 自: New Taipei city
文章數量: 163 |
|
謝謝版主大大
我定義描述描述有問題 =====================================================
這是我在上星期寫的 在每一根k棒上下緣標示高低點用白色 我的問題是若從此根k棒出現後的 今高有比此根高點+(H-L)點位高就將高點顏色更改成紅色顯示 若此根k幫出現後今低有比根k幫低點- (H-L)低 ,就顯示低點顏色更改成綠色沒有就維持白色, 這樣定義才對,我剛剛有模擬跑磐才發現問題
我不知道 要如何修改請版主給我提示如何修正 謝謝
|
| 最後由 ivancclai 在 2023-11-12 12:30 編輯 |
向版主報告此篇 | |
|
|
2023-11-12 11:12 |
|
|
| |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|
