奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 不要彩虹K棒,要正常的就好 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=24123)

不要彩虹K棒,要正常的就好

//
fo:=o;fh:=h;fl:=l;fc:=c;
fc[1]:=(2*fc[1]+fh[1]+fl[1])/4;
for i=2 to datacount do begin
fo[i]:=(fo[i-1]+fc[i-1])/2;
if fo[i]>fh[i] then fh[i]:=fo[i];
if fo[i]<fl[i] then fl[i]:=fo[i];
fc[i]:=(2*fc[i]+fh[i]+fl[i])/4;
end;
KK:=IF(fc>=fo AND (fc>=ref(fc,1) or ref(fc,1)>=ref(fo,1)),1,IF(fc<fo AND (fc<ref(fo,1) or ref(fc,1)<ref(fo,1)),-1,0));

fcfo:=fc-fo;
kks1:=KK=1 AND fc>=fo OR KK=1 AND fc<fo;
STICKLINE(fc>fo,fh,fc,0.4,0),COLOR0000FF;{上影線}
STICKLINE(fc>fo,fo,fl,0.4,0),COLOR00FFFF;{下影線}
STICKLINE(kks1,fo,fc,8,0),COLOR00CCFF;
STICKLINE(kks1,fo+fcfo/4,fc,8,0),COLOR0099FF;
STICKLINE(kks1,fo+fcfo*2/4,fc,8,0),COLOR0066FF;
STICKLINE(kks1,fo+fcfo*3/4,fc,8,0),COLOR0033FF;

fofc:=fo-fc;
kks2:=KK<=0 AND fc>=fo OR KK<=0 AND fc<fo;
STICKLINE(fo>fc,fh,fo,0.4,0),COLORFFFF33;{上影線}
STICKLINE(fo>fc,fc,fl,0.4,0),COLORFF0033;{下影線}
STICKLINE(kks2,fo,fc,8,0),COLORFF3300;
STICKLINE(kks2,fo,fc+fofc/4,8,0),COLORFF6600;
STICKLINE(kks2,fo,fc+fofc*2/4,8,0),COLORFF9900;
STICKLINE(kks2,fo,fc+fofc*3/4,8,0),COLORFFCC00;

要如何修改呢??

回覆: 不要彩虹K棒,要正常的就好

引用:

---

最初由 wengd469 發表
//
fo:=o;fh:=h;fl:=l;fc:=c;
fc[1]:=(2*fc[1]+fh[1]+fl[1])/4;
for i=2 to datacount do begin
fo[i]:=(fo[i-1]+fc[i-1])/2;
if fo[i]>fh[i] then fh[i]:=fo[i];
if fo[i]<fl[i] then fl[i]:=fo[i];
fc[i]:=(2*fc[i]+fh[i]+fl[i])/4;
end;
KK:=IF(fc>=fo AND (fc>=ref(fc,1) or ref(fc,1)>=ref(fo,1)),1,IF(fc<fo AND (fc<ref(fo,1) or ref(fc,1)<ref(fo,1)),-1,0));

fcfo:=fc-fo;
kks1:=KK=1 AND fc>=fo OR KK=1 AND fc<fo;
STICKLINE(fc>fo,fh,fc,0.4,0),COLOR0000FF;{上影線}
STICKLINE(fc>fo,fo,fl,0.4,0),COLOR00FFFF;{下影線}
STICKLINE(kks1,fo,fc,8,0),COLOR00CCFF;
STICKLINE(kks1,fo+fcfo/4,fc,8,0),COLOR0099FF;
STICKLINE(kks1,fo+fcfo*2/4,fc,8,0),COLOR0066FF;
STICKLINE(kks1,fo+fcfo*3/4,fc,8,0),COLOR0033FF;

fofc:=fo-fc;
kks2:=KK<=0 AND fc>=fo OR KK<=0 AND fc<fo;
STICKLINE(fo>fc,fh,fo,0.4,0),COLORFFFF33;{上影線}
STICKLINE(fo>fc,fc,fl,0.4,0),COLORFF0033;{下影線}
STICKLINE(kks2,fo,fc,8,0),COLORFF3300;
STICKLINE(kks2,fo,fc+fofc/4,8,0),COLORFF6600;
STICKLINE(kks2,fo,fc+fofc*2/4,8,0),COLORFF9900;
STICKLINE(kks2,fo,fc+fofc*3/4,8,0),COLORFFCC00;

要如何修改呢??

---

報告:
STICKLINE(....)被刪掉後,k棒就完全不見了

引用:

---

最初由 wengd469 發表
報告:
STICKLINE(....)被刪掉後,k棒就完全不見了

---

引用:

---

最初由 cgjj 發表
你是用在主圖嗎?
若是請在[編輯公式]中將[主圖]取消打勾，就會顯示系統內建的K棒

若為副圖公式，則需加入以下這一行:
KLINE(O,H,L,C,0);

---