奇狐社區論壇 (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=13074)

求助寫法

DE:=DATE; TE:=hour*60+minute;//計算K棒間隔分鐘數
DESP:=BARSSINCE(DE=ref(DE,1));
if lbound(DESP)>0 then begin
KTimeSP:=TE-ref(TE,1);
KTimeSP:=KTimeSP[datacount-DESP[datacount]];
end else begin
KTimeSP:=-1; //K線不足
exit;
end;

if KTimeSP>=1 and KTimeSP<=4 then Begin
N1:=50; N2:=100;N3:=200; N4:=300; //KTimeSP>=1 and KTimeSP<=4

end else if KTimeSP>=5 and KTimeSP<=30 then begin
N1:=15; N2:=30;N3:=45; N4:=60; //

end else if KTimeSP>=31 and KTimeSP<=100 then begin
N1:=10; N2:=20;N3:=30; N4:=40; //

end else if KTimeSP>=101 and KTimeSP<=600 then begin
N1:=5; N2:=10;N3:=20; N4:=30; //

end else if datatype = 5 then Begin
N1:=10; N2:=20;N3:=30; N4:=40; //時

end else if datatype = 6 then Begin
N1:=5; N2:=10;N3:=20; N4:=30; //日

end else if datatype = 7 then Begin
N1:=3; N2:=6;N3:=15; N4:=20; //週

end else if datatype = 8 then Begin
N1:=2; N2:=4;N3:=7; N4:=10; //月

end else begin
N1:=0; N2:=0; N3:=0; N4:=0; //其它週期
end;

VA:MA(C,N1),COLORFFFF00; VB:MA(C,N2),COLORFF9933; VC:MA(C,N3),COLORFFFFFF; VD:MA(C,N4),COLOR3366CC;


跑起來沒問題
但無法顯示 日 多日 週 多週 月 多月 的移動均線

回覆: 求助寫法

引用:

---

最初由 chair6408141785 發表
DE:=DATE; TE:=hour*60+minute;//計算K棒間隔分鐘數
DESP:=BARSSINCE(DE=ref(DE,1));
if lbound(DESP)>0 then begin
KTimeSP:=TE-ref(TE,1);
KTimeSP:=KTimeSP[datacount-DESP[datacount]];
end else begin
KTimeSP:=-1; //K線不足
exit;
end;

if KTimeSP>=1 and KTimeSP<=4 then Begin
N1:=50; N2:=100;N3:=200; N4:=300; //KTimeSP>=1 and KTimeSP<=4

end else if KTimeSP>=5 and KTimeSP<=30 then begin
N1:=15; N2:=30;N3:=45; N4:=60; //

end else if KTimeSP>=31 and KTimeSP<=100 then begin
N1:=10; N2:=20;N3:=30; N4:=40; //

end else if KTimeSP>=101 and KTimeSP<=600 then begin
N1:=5; N2:=10;N3:=20; N4:=30; //

end else if datatype = 5 then Begin
N1:=10; N2:=20;N3:=30; N4:=40; //時

end else if datatype = 6 then Begin
N1:=5; N2:=10;N3:=20; N4:=30; //日

end else if datatype = 7 then Begin
N1:=3; N2:=6;N3:=15; N4:=20; //週

end else if datatype = 8 then Begin
N1:=2; N2:=4;N3:=7; N4:=10; //月

end else begin
N1:=0; N2:=0; N3:=0; N4:=0; //其它週期
end;

VA:MA(C,N1),COLORFFFF00; VB:MA(C,N2),COLORFF9933; VC:MA(C,N3),COLORFFFFFF; VD:MA(C,N4),COLOR3366CC;


跑起來沒問題
但無法顯示 日 多日 週 多週 月 多月 的移動均線

---