打印本文
關(guān)閉窗口
”節(jié)假日及周末前“，這個(gè)節(jié)假日及周末的日期需要您手動(dòng)輸入，然后在代碼中實(shí)時(shí)的與當(dāng)前的日期時(shí)間進(jìn)行比較判斷，下面分別提供螺紋和滬金的例子，僅供參考：
//rb
input: endtime(2300);
var: tt(""),t1(""), t_date(0);
tt=txt_read("F:\test25.txt");??
{這里使用了從外部讀取信息，因?yàn)檫@樣可以在程序運(yùn)行過(guò)程中，對(duì)外部讀取的文件進(jìn)行人工更改，而不需要停止自動(dòng)交易然后再重新輸入?yún)?shù)或者更改代碼了；輸入節(jié)假日的第一天的日期即可}
t1=midstr(tt,1,7);//見(jiàn)附件內(nèi)容，只是一個(gè)簡(jiǎn)單的模板，更復(fù)雜的數(shù)據(jù)需要清洗
t_date=strtonum(t1);??//將字符轉(zhuǎn)化為數(shù)值
condition1=juliantodate(datetojulian(t_date)-1)=date and time>=minutestotime(timetominutes(endtime)-5);
{juliantodate(datetojulian(t_date)-1)=date這個(gè)條件判斷當(dāng)天是否為節(jié)假日前的第一天； time>=minutestotime(timetominutes(endtime)-5)這個(gè)條件判斷當(dāng)根bar是否處在收盤前的5分鐘內(nèi)}
if condition1 and marketposition<>0 then begin
? ? ? ? sell next bar at market;
? ? ? ? buytocover next bar at market;
end;
//au
input: endtime(230);
var: tt(""),t1(""), t_date(0);
tt=txt_read("F:\test25.txt");
t1=midstr(tt,1,7);
t_date=strtonum(t1);
condition1=juliantodate(datetojulian(t_date))=date and time>=minutestotime(timetominutes(endtime)-5) and time<900;
if condition1 and marketposition<>0 then begin
? ? ? ? sell next bar at market;
? ? ? ? buytocover next bar at market;
end;
代碼見(jiàn)鏈接：
http://dl.icetech.com.cn/download/forums/test25.txt
?
”節(jié)假日及周末前“，這個(gè)節(jié)假日及周末的日期需要您手動(dòng)輸入，然后在代碼中實(shí)時(shí)的與當(dāng)前的日期時(shí)間進(jìn)行比較判斷，下面分別提供螺紋和滬金的例子，僅供參考：
//rb
input: endtime(2300);
var: tt(""),t1(""), t_date(0);
tt=txt_read("F:\test25.txt");??
{這里使用了從外部讀取信息，因?yàn)檫@樣可以在程序運(yùn)行過(guò)程中，對(duì)外部讀取的文件進(jìn)行人工更改，而不需要停止自動(dòng)交易然后再重新輸入?yún)?shù)或者更改代碼了；輸入節(jié)假日的第一天的日期即可}
t1=midstr(tt,1,7);//見(jiàn)附件內(nèi)容，只是一個(gè)簡(jiǎn)單的模板，更復(fù)雜的數(shù)據(jù)需要清洗
t_date=strtonum(t1);??//將字符轉(zhuǎn)化為數(shù)值
condition1=juliantodate(datetojulian(t_date)-1)=date and time>=minutestotime(timetominutes(endtime)-5);
{juliantodate(datetojulian(t_date)-1)=date這個(gè)條件判斷當(dāng)天是否為節(jié)假日前的第一天； time>=minutestotime(timetominutes(endtime)-5)這個(gè)條件判斷當(dāng)根bar是否處在收盤前的5分鐘內(nèi)}
if condition1 and marketposition<>0 then begin
? ? ? ? sell next bar at market;
? ? ? ? buytocover next bar at market;
end;
//au
input: endtime(230);
var: tt(""),t1(""), t_date(0);
tt=txt_read("F:\test25.txt");
t1=midstr(tt,1,7);
t_date=strtonum(t1);
condition1=juliantodate(datetojulian(t_date))=date and time>=minutestotime(timetominutes(endtime)-5) and time<900;
if condition1 and marketposition<>0 then begin
? ? ? ? sell next bar at market;
? ? ? ? buytocover next bar at market;
end;
代碼見(jiàn)鏈接：
http://dl.icetech.com.cn/download/forums/test25.txt