奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 求助 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=13770)

求助

請版主幫忙
以下公式於紅綠K棒轉換時紅K棒下方增加買字在綠K棒上方有賣
請版主幫忙 謝謝



NkO:=O;
NkH:=H;
NkL:=L;
NkC:=C;
NKC[0]:=(NKH[0]+NKL[0]+2*NKC[0])/4;
For i=Lbound(NKC)+1 to Ubound(NKC) do Begin NKO[i]:=(NKO[i-1]+NKC[i-1])/2;
if NKO[i]>NKH[i] then NKH[i]:=NKO[i] else NKH[i]:=NKH[i];
if NKO[i]<NKL[i] then NKL[i]:=NKO[i] else NKL[i]:=NKL[i];
NKC[i]:=(NKH[i]+NKL[i]+2*NKC[i])/4;
End;
STICKLINE(NKC>NKO ,NKC,NKH,0.1,1),ColorRED;
STICKLINE(NKC>NKO ,NKO,NKC,7,0),ColorRED;
STICKLINE(NKC>NKO ,NKO,NKL,0.1,1),ColorRED;
STICKLINE(NKC=NKO and NKC>REF(NKC,1),NKL,NKH,0.1,0),ColorRED;
STICKLINE(NKC=NKO and NKC>REF(NKC,1),NKO,NKC,7,0),ColorRED;
STICKLINE(NKC=NKO and NKC=REF(NKC,1),NKL,NKH,0.1,0),ColorYELLOW;
STICKLINE(NKC=NKO and NKC=REF(NKC,1),NKO,NKC,7,0),ColorYELLOW;
STICKLINE(NKC=NKO and NKC<REF(NKC,1),NKL,NKH,0.1,0),Colorgreen;
STICKLINE(NKC=NKO and NKC<REF(NKC,1),NKO,NKC,7,0),Colorgreen;
STICKLINE(NKC<NKO ,NKO,NKH,0.1,0),Colorgreen;
STICKLINE(NKC<NKO ,NKO,NKC,7,0),Colorgreen;
STICKLINE(NKC<NKO ,NKC,NKL,0.1,0),Colorgreen;

回覆: 求助

引用:

---

最初由 fatsai99 發表
請版主幫忙
以下公式於紅綠K棒轉換時紅K棒下方增加買字在綠K棒上方有賣
請版主幫忙 謝謝



NkO:=O;
NkH:=H;
NkL:=L;
NkC:=C;
NKC[0]:=(NKH[0]+NKL[0]+2*NKC[0])/4;
For i=Lbound(NKC)+1 to Ubound(NKC) do Begin NKO[i]:=(NKO[i-1]+NKC[i-1])/2;
if NKO[i]>NKH[i] then NKH[i]:=NKO[i] else NKH[i]:=NKH[i];
if NKO[i]<NKL[i] then NKL[i]:=NKO[i] else NKL[i]:=NKL[i];
NKC[i]:=(NKH[i]+NKL[i]+2*NKC[i])/4;
End;
STICKLINE(NKC>NKO ,NKC,NKH,0.1,1),ColorRED;
STICKLINE(NKC>NKO ,NKO,NKC,7,0),ColorRED;
STICKLINE(NKC>NKO ,NKO,NKL,0.1,1),ColorRED;
STICKLINE(NKC=NKO and NKC>REF(NKC,1),NKL,NKH,0.1,0),ColorRED;
STICKLINE(NKC=NKO and NKC>REF(NKC,1),NKO,NKC,7,0),ColorRED;
STICKLINE(NKC=NKO and NKC=REF(NKC,1),NKL,NKH,0.1,0),ColorYELLOW;
STICKLINE(NKC=NKO and NKC=REF(NKC,1),NKO,NKC,7,0),ColorYELLOW;
STICKLINE(NKC=NKO and NKC<REF(NKC,1),NKL,NKH,0.1,0),Colorgreen;
STICKLINE(NKC=NKO and NKC<REF(NKC,1),NKO,NKC,7,0),Colorgreen;
STICKLINE(NKC<NKO ,NKO,NKH,0.1,0),Colorgreen;
STICKLINE(NKC<NKO ,NKO,NKC,7,0),Colorgreen;
STICKLINE(NKC<NKO ,NKC,NKL,0.1,0),Colorgreen;

---

目前跑的狀況還算穩定
請問版主如何增加買賣字樣
謝謝

引用:

---

最初由 fatsai99 發表
目前跑的狀況還算穩定
請問版主如何增加買賣字樣
謝謝

---

NkO:=O;
NkH:=H;
NkL:=L;
NkC:=C;
NKC[1]:=(NKH[1]+NKL[1]+2*NKC[1])/4;
For i=Lbound(NKC)+1 to Ubound(NKC) do Begin NKO[i]:=(NKO[i-1]+NKC[i-1])/2;
if NKO[i]>NKH[i] then NKH[i]:=NKO[i] else NKH[i]:=NKH[i];
if NKO[i]<NKL[i] then NKL[i]:=NKO[i] else NKL[i]:=NKL[i];
NKC[i]:=(NKH[i]+NKL[i]+2*NKC[i])/4;
End;
STICKLINE(NKC>NKO ,NKC,NKH,0.1,1),ColorRED;
STICKLINE(NKC>NKO ,NKO,NKC,7,0),ColorRED;
STICKLINE(NKC>NKO ,NKO,NKL,0.1,1),ColorRED;
STICKLINE(NKC=NKO and NKC>REF(NKC,1),NKL,NKH,0.1,0),ColorRED;
STICKLINE(NKC=NKO and NKC>REF(NKC,1),NKO,NKC,7,0),ColorRED;
STICKLINE(NKC=NKO and NKC=REF(NKC,1),NKL,NKH,0.1,0),ColorYELLOW;
STICKLINE(NKC=NKO and NKC=REF(NKC,1),NKO,NKC,7,0),ColorYELLOW;
STICKLINE(NKC=NKO and NKC<REF(NKC,1),NKL,NKH,0.1,0),Colorgreen;
STICKLINE(NKC=NKO and NKC<REF(NKC,1),NKO,NKC,7,0),Colorgreen;
STICKLINE(NKC<NKO ,NKO,NKH,0.1,0),Colorgreen;
STICKLINE(NKC<NKO ,NKO,NKC,7,0),Colorgreen;
STICKLINE(NKC<NKO ,NKC,NKL,0.1,0),Colorgreen;
R1:=NKC>NKO;
R2:=NKC=NKO and NKC>REF(NKC,1);
RCK:=R1 or R2;
RCK:=RCK and ref(RCK,1)=0;
G1:=NKC<NKO;
G2:=NKC=NKO and NKC<REF(NKC,1);
GCK:=G1 or G2;
GCK:=GCK and ref(GCK,1)=0;
DRAWICON(RCK,L,1) pxdn10;
DRAWICON(GCK,H,1) pxup40;

版主謝謝