 |
chair6408141785
資深會員
註冊日期: Jul 2007
來 自: 馬祖
文章數量: 144 |
|
求助寫法
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;
跑起來沒問題
但無法顯示 日 多日 週 多週 月 多月 的移動均線
|
|
向版主報告此篇 |  |
|
2010-02-08 14:12 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 18091 |
|
回覆: 求助寫法
引用:
最初由 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;
跑起來沒問題
但無法顯示 日 多日 週 多週 月 多月 的移動均線
您把沒設定的週期都給零值
N1:=0; N2:=0; N3:=0; N4:=0; //其它週期
當然看不到呀 
還有 exit; 這行也要去掉
|
|
向版主報告此篇 | |
|
|
2010-02-08 14:21 |
|
|
| |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|
