陳經理, 你好

好的<謝謝你>

陳經理你好

我還是不會寫 需要你的協助幫忙

謝謝你

引用:

---

最初由 ivancclai 發表
陳經理你好

我還是不會寫 需要你的協助幫忙

謝謝你

---

附件: DWMM2P.ALG
此文件已被下載 57 次。

Cgjj 兄 你好,

謝謝你的協助, 我常是修改但是還是出錯, 你可以幫我看看, 我的需求是在五分K上同時畫出
日K三關價, 這部分沒有問題了. 畫15分k上是四個等級的量, 高低點同一顏色. 我搞不定. 總覺得我的程式碼怪怪的

SV :=IF(SV >=10000,SV,0);
S:=0;

MaxLine:=(UDPN+50) *2; //預置 UDPN+50 X2 條價位線(需達Max發生價位數)
VARIABLE: P[MaxLine]=0, T[MaxLine]=0, Q[MaxLine]=0, B[4]=0; //P:價位 T:型態

//==========================================================================================
For k = EndKNo downto StKNo do begin //迴圈從k棒最後計算位置往前推至開始計算位置
IF EDCK[k]=0 then begin
k:=k-BLSP[k];
end else IF SV[k]>0 then begin // 量大於預設值開始計算

B[1]:=MH[k]; B[2]:=ML[k]; //按優先次序1-2 B[1] 最高價, B[2] 最低價
for z = 1 to 2 do begin
IF B[z]>=MinDD and B[z]<=MaxUU then begin // 計算範圍

for FP = S downto 1 do begin
IF B[z]=P[FP] then break; //同價跳過
end;

IF FP=0 then begin
S:=S+1;
IF S>MaxLine then begin
DRAWTEXTEX(1,1,500,450,'預置線條數量不足') ALIGN3 colorff00cc; exit;
end;
P[S]:=B[z];

IF SV[K]>=10000 AND SV[K] <12000 THEN
T[S]:=1; ELSE IF SV[K] >= 12000 AND SV[K] < 15000 THEN
T[S]:=2;ELSE IF SV[K] >= 15000 AND SV[K] <20000 THEN
T[S]:=3; ELSE IF SV[K] >= 20000 THEN
T[S]:=4;


Q[S]:=SV[k]; // P T 計算位置
end else begin

IF SV[k]>Q[FP] then begin
IF SV[K]>=10000 AND SV[K] <12000 THEN
T[FP]:=1; ELSE IF SV[K] >= 12000 AND SV[K] <15000 THEN
T[FP]:=2; ELSE IF SV[K] >= 15000 AND SV[K] <20000 THEN
T[FP]:=3; ELSE IF SV[K] >= 20000 THEN
T[FP]:=4;
// T[FP]:=z;
Q[FP]:=SV[k]; // P T 計算位置
end;
end;
end;
end;
end;
end;

//===========================================================================================
價位數:S linethick1;
PARTLINE(T[1]=1,P[1]) colorBLUE;
PARTLINE(T[1]=2,P[1]) colorYELLOW,;
PARTLINE(T[1]=3,P[1]) colorGREEN;
PARTLINE(T[1]=4,P[1]) colorRED ;

感覺還是有錯,
不知你方便的話, 我可以你上班時間, 我過去找你, 當面請教你, 或是你可以幫我看看這一段程式碼, 要如何修改.

引用:

---

最初由 ivancclai 發表
Cgjj 兄 你好,

謝謝你的協助, 我常是修改但是還是出錯, 你可以幫我看看, 我的需求是在五分K上同時畫出
日K三關價, 這部分沒有問題了. 畫15分k上是四個等級的量, 高低點同一顏色. 我搞不定. 總覺得我的程式碼怪怪的

SV :=IF(SV >=10000,SV,0);
S:=0;

MaxLine:=(UDPN+50) *2; //預置 UDPN+50 X2 條價位線(需達Max發生價位數)
VARIABLE: P[MaxLine]=0, T[MaxLine]=0, Q[MaxLine]=0, B[4]=0; //P:價位 T:型態

//==========================================================================================
For k = EndKNo downto StKNo do begin //迴圈從k棒最後計算位置往前推至開始計算位置
IF EDCK[k]=0 then begin
k:=k-BLSP[k];
end else IF SV[k]>0 then begin // 量大於預設值開始計算

B[1]:=MH[k]; B[2]:=ML[k]; //按優先次序1-2 B[1] 最高價, B[2] 最低價
for z = 1 to 2 do begin
IF B[z]>=MinDD and B[z]<=MaxUU then begin // 計算範圍

for FP = S downto 1 do begin
IF B[z]=P[FP] then break; //同價跳過
end;

IF FP=0 then begin
S:=S+1;
IF S>MaxLine then begin
DRAWTEXTEX(1,1,500,450,'預置線條數量不足') ALIGN3 colorff00cc; exit;
end;
P[S]:=B[z];

IF SV[K]>=10000 AND SV[K] <12000 THEN
T[S]:=1; ELSE IF SV[K] >= 12000 AND SV[K] < 15000 THEN
T[S]:=2;ELSE IF SV[K] >= 15000 AND SV[K] <20000 THEN
T[S]:=3; ELSE IF SV[K] >= 20000 THEN
T[S]:=4;


Q[S]:=SV[k]; // P T 計算位置
end else begin

IF SV[k]>Q[FP] then begin
IF SV[K]>=10000 AND SV[K] <12000 THEN
T[FP]:=1; ELSE IF SV[K] >= 12000 AND SV[K] <15000 THEN
T[FP]:=2; ELSE IF SV[K] >= 15000 AND SV[K] <20000 THEN
T[FP]:=3; ELSE IF SV[K] >= 20000 THEN
T[FP]:=4;
// T[FP]:=z;
Q[FP]:=SV[k]; // P T 計算位置
end;
end;
end;
end;
end;
end;

//===========================================================================================
價位數:S linethick1;
PARTLINE(T[1]=1,P[1]) colorBLUE;
PARTLINE(T[1]=2,P[1]) colorYELLOW,;
PARTLINE(T[1]=3,P[1]) colorGREEN;
PARTLINE(T[1]=4,P[1]) colorRED ;

感覺還是有錯,
不知你方便的話, 我可以你上班時間, 我過去找你, 當面請教你, 或是你可以幫我看看這一段程式碼, 要如何修改.

---

Cgjj 兄 你好,

提示]
原先 H 線用 cc33ff 色，L 線用 00ff33 色
你現在 H 或 L 沒有區分顏色，只有分量之層級

按原來的規則 HL不同色 + 分量之層級
應該是八種顏色!!! 不會只有四種顏色

能改到這樣
這問題我相信您自己有能力處理了
讓您自行完成了~~

===============
我會努力自己改改看<若還是有瓶頸. 在請教你, 可以嗎, 我是一行一行程式加註解才慢慢了解你的稱是,但是還有一些看不懂<

我要的是量的區別, 高低價可以用同一顏色
我再嘗試修改看看, 謝謝你