|
ivancclai
資深會員
註冊日期: Apr 2017
來 自: New Taipei city
文章數量: 163 |
版主大大你好
修改後的
改用 ReFX(H,1)-(H-L) 之值與未來的H做比較
改用 refx(L,1)+((H-L) 之值與未來的L做比我還是不會陣列 謝謝你 謝謝你
Rexf(H,1)-(H-L) 應該是 Refx(H,1)-(H-L) 我打字的問題
請在幫我看看 謝謝
|
|
向版主報告此篇 | |
|
2023-11-15 03:24 |
|
|
| |
|
ivancclai
資深會員
註冊日期: Apr 2017
來 自: New Taipei city
文章數量: 163 |
版主大大你好
這是我 還不會修改
//=================================k棒 高低點============================================
HH:=H; LL:=L;
k1:=mod(HH,100000);
k2:=mod(LL,100000);
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 pxDN100 colorWHITE;//H-L 點數
//=======================================================================
//==================== 堆K ===========================================
HH:=H; LL:=L;
DH:=C*0; DL:=DH; 差:=HH-LL;
for i=2 to datacount-1 do begin
for j=i+1 to datacount do begin
if HH[j]>HH[i+1]-差[i] then begin
DH[i]:=j; break;
end;
end;
for j=i+1 to datacount do begin
if LL[j]<LL[i+1]+差[i] then begin
DL[i]:=j; break;
end;
end;
end;
REFXH:=mod(REFx(HIGH,1),100000);
REFXL:=mod(REFx(LOW,1),100000);
DRAWNUMBER(DH=0,HH,REFXL+(HIGH-LOW),0) ALIGN1 pxup75,colorWHITE;
DRAWNUMBER(DL=0,LL,REFXH-(HIGH-LOW),0) ALIGN1 pxdn75 colorWHITE;
DRAWTEXT(DH=0, HH, '+S=') align2,colorWHITE,PXUP75;
DRAWTEXT(DL=0, LL, '-s=') align2,colorWHITE,PXDN75;
DRAWNUMBER(DH>0,HH, REFXL+(HIGH-LOW),0) ALIGN1 pxup75,colorRED;
DRAWTEXT(DH>0, HH, '+S=') align2,colorRED,PXUP75;
DRAWNUMBER(DL>0,LL,REFXH-(HIGH-LOW),0) ALIGN1 pxdn75 colorGREEN;
DRAWTEXT(DL>0, LL,'-s=') align2,colorGREEN,PXDN75;
//=============================================================================
SH:=SYSPARAM(4); SL:=SYSPARAM(5); SS:=SH-SL;
STICKLINE(1,SH+SS*0.1,SL-SS*0.1,0,0) COLORTRANSPARENT;
目前數字是對的
K棒高低點位 顏色變化是正確的
+S and -S 數字正確 顏色變化還是不正確 我不會修改 可以幫我看看 謝謝
|
|
向版主報告此篇 | |
|
2023-11-15 03:32 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 17628 |
引用: 最初由 ivancclai 發表
版主大大你好
這是我 還不會修改
//=================================k棒 高低點============================================
HH:=H; LL:=L;
k1:=mod(HH,100000);
k2:=mod(LL,100000);
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 pxDN100 colorWHITE;//H-L 點數
//=======================================================================
//==================== 堆K ===========================================
HH:=H; LL:=L;
DH:=C*0; DL:=DH; 差:=HH-LL;
for i=2 to datacount-1 do begin
for j=i+1 to datacount do begin
if HH[j]>HH[i+1]-差[i] then begin
DH[i]:=j; break;
end;
end;
for j=i+1 to datacount do begin
if LL[j]<LL[i+1]+差[i] then begin
DL[i]:=j; break;
end;
end;
end;
REFXH:=mod(REFx(HIGH,1),100000);
REFXL:=mod(REFx(LOW,1),100000);
DRAWNUMBER(DH=0,HH,REFXL+(HIGH-LOW),0) ALIGN1 pxup75,colorWHITE;
DRAWNUMBER(DL=0,LL,REFXH-(HIGH-LOW),0) ALIGN1 pxdn75 colorWHITE;
DRAWTEXT(DH=0, HH, '+S=') align2,colorWHITE,PXUP75;
DRAWTEXT(DL=0, LL, '-s=') align2,colorWHITE,PXDN75;
DRAWNUMBER(DH>0,HH, REFXL+(HIGH-LOW),0) ALIGN1 pxup75,colorRED;
DRAWTEXT(DH>0, HH, '+S=') align2,colorRED,PXUP75;
DRAWNUMBER(DL>0,LL,REFXH-(HIGH-LOW),0) ALIGN1 pxdn75 colorGREEN;
DRAWTEXT(DL>0, LL,'-s=') align2,colorGREEN,PXDN75;
//=============================================================================
SH:=SYSPARAM(4); SL:=SYSPARAM(5); SS:=SH-SL;
STICKLINE(1,SH+SS*0.1,SL-SS*0.1,0,0) COLORTRANSPARENT;
目前數字是對的
K棒高低點位 顏色變化是正確的
+S and -S 數字正確 顏色變化還是不正確 我不會修改 可以幫我看看 謝謝
您確定數字沒錯嗎?
前面說的
Refx(H,1)-(H-L)
Refx(L,1)+(H-L)
與您這兩行(紅字部分)
DRAWNUMBER(DH=0,HH,REFXL+(HIGH-LOW),0) ALIGN1 pxup75,colorWHITE;
DRAWNUMBER(DL=0,LL,REFXH-(HIGH-LOW),0) ALIGN1 pxdn75 colorWHITE;
兩者的邏輯不一致!!!
|
|
向版主報告此篇 | |
|
2023-11-15 10:38 |
|
|
| |
|
ivancclai
資深會員
註冊日期: Apr 2017
來 自: New Taipei city
文章數量: 163 |
版主大大你好
我要的是我寫 謝謝你 可以幫我改成此邏輯
Refx(H,1)-(H-L)
Refx(L,1)+(H-L)
DRAWNUMBER(DH=0,HH,REFXL+(HIGH-LOW),0) ALIGN1 pxup75,colorWHITE;
DRAWNUMBER(DL=0,LL,REFXH-(HIGH-LOW),0) ALIGN1 pxdn75 colorWHITE;
寫程式的部分才正確 謝謝
謝謝
|
|
向版主報告此篇 | |
|
2023-11-15 10:43 |
|
|
| |
|
ivancclai
資深會員
註冊日期: Apr 2017
來 自: New Taipei city
文章數量: 163 |
DRAWNUMBER(DH=0,HH,REFXL+(HIGH-LOW),0) ALIGN1 pxup75,colorWHITE;
DRAWNUMBER(DL=0,LL,REFXH-(HIGH-LOW),0) ALIGN1 pxdn75 colorWHITE;
這一個正確 我debug 過
|
|
向版主報告此篇 | |
|
2023-11-15 10:55 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 17628 |
引用: 最初由 ivancclai 發表
我不知道這兩者有何差異
抱歉,前面我貼錯段落了
要貼 DH>0 和 DL>0 段落
卻誤貼為 DH=0 和 DL=0 段落
重新描述如下:
按先前的定義是:
改用 refx(H,1)-(H-L) 之值與未來的H做比較,若未來的H大過該值,則 DH>0 顯示紅
改用 refx(L,1)+(H-L) 之值與未來的L做比較,若未來的L小過該值,則 DL>0 顯示綠
而您現在撰寫的卻是:
DRAWNUMBER(DH>0,HH, REFXL+(HIGH-LOW),0) ALIGN1 pxup75,colorRED;
DRAWTEXT(DH>0, HH, '+S=') align2,colorRED,PXUP75;
DRAWNUMBER(DL>0,LL,REFXH-(HIGH-LOW),0) ALIGN1 pxdn75 colorGREEN;
式子中
當 DH>0 成立時,採 REFXL+(HIGH-LOW) 這個數畫紅,也就是 refx(L,1)+(H-L)
當 DL>0 成立時,採 REFXH-(HIGH-LOW) 這個數畫綠,也就是 refx(H,1)-(H-L)
DRAWNUMBER標示的數,與計算紅綠比較用的數,兩者不一致(相反了)!!!
|
|
向版主報告此篇 | |
|
2023-11-15 11:41 |
|
|
| |
|
ivancclai
資深會員
註冊日期: Apr 2017
來 自: New Taipei city
文章數量: 163 |
版主大大你好
謝謝你的解釋 要如何修正計算值跟 DRAWNUMBER 一致呢
按定義是:
改用 refx(L,1)+(H-L) 之值與未來的H做比較,若未來的H大過該值,則 DH>0 顯示紅
改用 refx(H,1)-(H-L) 之值與未來的L做比較,若未來的L小過該值,則 DL>0 顯示綠
謝謝版ˋ主大大
|
最後由 ivancclai 在 2023-11-15 14:32 編輯 |
向版主報告此篇 | |
|
2023-11-15 13:56 |
|
|
| |
|
ivancclai
資深會員
註冊日期: Apr 2017
來 自: New Taipei city
文章數量: 163 |
謝謝版主大大
我測試過是我需要的
|
最後由 ivancclai 在 2023-11-18 06:05 編輯 |
向版主報告此篇 | |
|
2023-11-18 06:01 |
|
|
| |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|