請問如何將日 k 三關價 劃在隔日5分k 中

引用:

---

最初由 perryliu1688 發表
請問如何將日 k 三關價 劃在隔日5分k 中

---

引用:

---

最初由 cgjj 發表
以開盤價為例:

開盤:"TRP.開盤##DAY";

---

引用:

---

最初由 perryliu1688 發表
謝謝]回覆但不懂

---

引用:

---

最初由 perryliu1688 發表
三關 價 是有三條線嗎?

---

另存OHLC.ALG
HH:H;
LL:L;
CC:C;
OO:O;

本程式
TD:=DATATYPE;
if TD=1 then Begin TN:=300;TNM1:=30;TNM2:=60;CBV:=12;End;{分}if TD=2 then Begin TN:=60; TNM1:=6; TNM2:=12;CBV:=11; End;{5}
if TD=3 then Begin TN:=20; TNM1:=2; TNM2:=4; CBV:= 3;End;{15}if TD=4 then Begin TN:=10; TNM1:=5; TNM2:=10;CBV:= 4; End;{30}
if TD=5 then Begin TN:=5; TNM1:=5; TNM2:=10;CBV:= 2;End;{60}if TD=6 then Begin TN:=1; TNM1:=5; TNM2:=10;CBV:= 1; End;{日}
日收:="OHLC.CC#DAY";
日高:="OHLC.HH#DAY";
日低:="OHLC.LL#DAY";
日開:="OHLC.OO#DAY";
昨日:=REF(Date,1)<>Date;
昨高:=REF(日高,TN),LINEDOT,LINETHICK1,ColorMagenta;
昨低:=REF(日低,TN),LINEDOT,LINETHICK1,ColorCyan;
昨收:=REF(日收,TN),LINEDOT,LINETHICK1,ColorGREEN;
上關:=昨低+(昨高-昨低)*1.382,LINEDOT,LINETHICK1,ColorRed;
中關:=(昨高+ 昨低)/2,LINEDOT,LINETHICK1,ColorYellow;
下關:=昨高-(昨高-昨低)*1.382,LINEDOT,LINETHICK1,ColorFF6600;
將本圖設為5"K線

引用:

---

最初由 sunnyjboy1960 發表
另存OHLC.ALG
HH:H;
LL:L;
CC:C;
OO:O;

本程式
TD:=DATATYPE;
if TD=1 then Begin TN:=300;TNM1:=30;TNM2:=60;CBV:=12;End;{分}if TD=2 then Begin TN:=60; TNM1:=6; TNM2:=12;CBV:=11; End;{5}
if TD=3 then Begin TN:=20; TNM1:=2; TNM2:=4; CBV:= 3;End;{15}if TD=4 then Begin TN:=10; TNM1:=5; TNM2:=10;CBV:= 4; End;{30}
if TD=5 then Begin TN:=5; TNM1:=5; TNM2:=10;CBV:= 2;End;{60}if TD=6 then Begin TN:=1; TNM1:=5; TNM2:=10;CBV:= 1; End;{日}
日收:="OHLC.CC#DAY";
日高:="OHLC.HH#DAY";
日低:="OHLC.LL#DAY";
日開:="OHLC.OO#DAY";
昨日:=REF(Date,1)<>Date;
昨高:=REF(日高,TN),LINEDOT,LINETHICK1,ColorMagenta;
昨低:=REF(日低,TN),LINEDOT,LINETHICK1,ColorCyan;
昨收:=REF(日收,TN),LINEDOT,LINETHICK1,ColorGREEN;
上關:=昨低+(昨高-昨低)*1.382,LINEDOT,LINETHICK1,ColorRed;
中關:=(昨高+ 昨低)/2,LINEDOT,LINETHICK1,ColorYellow;
下關:=昨高-(昨高-昨低)*1.382,LINEDOT,LINETHICK1,ColorFF6600;
將本圖設為5"K線

---

引用:

---

最初由 perryliu1688 發表
謝謝

但公式語法 編譯沒成功

---

引用:

---

最初由 cgjj 發表
另存OHLC.ALG
本程式
將本圖設為5"K線

以上三行不是公式的原碼, 不要置入 (是說明)

---

上關:=昨低+(昨高-昨低)*1.382,LINEDOT,LINETHICK1,ColorRed;
中關:=(昨高+ 昨低)/2,LINEDOT,LINETHICK1,ColorYellow;
下關:=昨高-(昨高-昨低)*1.382,LINEDOT,LINETHICK1,ColorFF6600;

由於: 之後接上 ( 會有錯誤符號在網頁上，所以才再加上 = 的內容，由於沒有輸出，就會不正常。
附上我試上面刪除 = 後的指令輸出圖形。

sunnyjboy1960 附帶上了此圖片:

引用:

---

最初由 perryliu1688 發表
請問如何將日 k 三關價 劃在隔日5分k 中

---

下列程式看看是否您要的，可在任一分鐘走勢圖看　　


//三關價
IF DATATYPE=11 or DATATYPE>=1 and DATATYPE<=3 then VERTLINE(ref(date,1)<>date),LINEDOT,COLOR444000;
KN1:=BARSLAST(DATE<>ref(DATE,1))+1;
DO1:=ref(O,KN1-1);//今開
DH1:=HHV(H,KN1);//今高
DL1:=LLV(L,KN1);//今低
DO2:=ref(DO1,KN1);//昨開
DH2:=ref(DH1,KN1);//昨高
DL2:=ref(DL1,KN1);//昨低
DC2:=ref(C,KN1);//昨收

上關L2+(DH2-DL2)*1.382,LINEDOT,LINETHICK1,ColorRed;
中關DH2+ DL2)/2,LINEDOT,LINETHICK1,ColorYellow;
下關H2-(DH2-DL2)*1.382,LINEDOT,LINETHICK1,ColorFF6600;

引用:

---

最初由 L0123 發表
下列程式看看是否您要的，可在任一分鐘走勢圖看　　


//三關價
IF DATATYPE=11 or DATATYPE>=1 and DATATYPE<=3 then VERTLINE(ref(date,1)<>date),LINEDOT,COLOR444000;
KN1:=BARSLAST(DATE<>ref(DATE,1))+1;
DO1:=ref(O,KN1-1);//今開
DH1:=HHV(H,KN1);//今高
DL1:=LLV(L,KN1);//今低
DO2:=ref(DO1,KN1);//昨開
DH2:=ref(DH1,KN1);//昨高
DL2:=ref(DL1,KN1);//昨低
DC2:=ref(C,KN1);//昨收

上關:　DL2+(DH2-DL2)*1.382,LINEDOT,LINETHICK1,ColorRed;
中關:　(DH2+ DL2)/2,LINEDOT,LINETHICK1,ColorYellow;
下關:　DH2-(DH2-DL2)*1.382,LINEDOT,LINETHICK1,ColorFF6600;

---

引用:

---

最初由 L0123 發表

---