 |
FXシステムトレード 年率200%儲ける投資術
池田 悟 日本実業出版社 2006-05-24 売り上げランキング : 178070 by G-Tools |
上の本の p80 に載っているこの本２つ目のシステムはウィクリートレード（月曜日に売買し、週末に決済） で、日足で動作するものです。
- 買い 月曜日の始値が前週の 5日の平均より低い
- 売り 月曜日の始値が前週の 5日の平均より高い
- 決済 金曜日に強制決済
土曜日に決済したかったのですが、サーバーの時間がずれている（サマータイムもあるしね）のと、日足が週 5本と6本のサーバーがあるのとで、金曜日に決済することにしました。
プライスは前の週のピボット値（平均値に近い）に向かうという傾向があるので、逆張りになっているのでしょう。
EA にしてみると、なるほど多くの通貨ペアで利益が出ますネ。
ユーロ・ドル が一番優秀でした。
EURUSD 日足 2014/1/1 – 2015/1/1
ほとんど元金を割っていないので、運用中は気分がいいんじゃないでしょうか。
金曜日の朝に決済してしまうのが気になりますが、金曜日夜の狂騒劇に巻き込まれなくて、かえっていいですもんね。
関連記事
- 超シンプルな自動売買プログラム（10） 移動平均線（MA）クロス マクロス＋バルキリー
- 超シンプルな自動売買プログラム（11） 前週の平均値と逆張り(2) 曜日属性
- 超シンプルな自動売買プログラム（11） 前週の平均値と逆張り(3) 改良型
- 超シンプルな自動売買プログラム（11） 前週の平均値と逆張り(4) さらに改良型
プログラムソース
//
// yasciiWeekly01.mq4 日足で動作
//マジックナンバーの定義
#define MAGIC 44591
//パラメーターの設定//
extern double Lots = 1.0; //取引ロット数
extern int Slip = 10; //許容スリッページ数
extern string Comments = "yasciiWeekly01"; //コメント
extern int Fast_period = 5;
//変数の設定//
int Ticket_L = 0; //買い注文の結果をキャッチする変数
int Ticket_S = 0; //売り注文の結果をキャッチする変数
int Exit_L = 0; //買いポジションの決済注文の結果をキャッチする変数
int Exit_S = 0; //売りポジションの決済注文の結果をキャッチする変数
int OS1 ;
int OS2 ;
double OOPL;
double OOPS;
int start()
{
if (Volume[0]>1 || IsTradeAllowed() == false) return(0) ;
//買いポジションのエグジット
OS1 = OrderSelect(Ticket_L, SELECT_BY_TICKET);
OOPL = OrderOpenPrice();
if( TimeDayOfWeek(Time[0]) == 5
&& ( Ticket_L != 0 && Ticket_L != -1 ))
{
Exit_L = OrderClose(Ticket_L,Lots,Bid,Slip,Blue);
if( Exit_L ==1 ) {Ticket_L = 0;}
}
//売りポジションのエグジット
OS2 = OrderSelect(Ticket_S, SELECT_BY_TICKET);
OOPS = OrderOpenPrice();
if( TimeDayOfWeek(Time[0]) == 5
&& ( Ticket_S != 0 && Ticket_S != -1 ))
{
Exit_S = OrderClose(Ticket_S,Lots,Ask,Slip,Red);
if( Exit_S ==1 ) {Ticket_S = 0;}
}
//買いエントリー
if( TimeDayOfWeek(Time[0]) == 1 && iMA(NULL, 1440, Fast_period, 0, 0, PRICE_CLOSE, 3) > Open[0]
&& ( Ticket_L == 0 || Ticket_L == -1 )
&& ( Ticket_S == 0 || Ticket_S == -1 ))
{
Ticket_L = OrderSend(Symbol(),OP_BUY,Lots,Ask,Slip,0,0,Comments,MAGIC,0,Blue);
}
//売りエントリー
if( TimeDayOfWeek(Time[0]) == 1 && iMA(NULL, 1440, Fast_period, 0, 0, PRICE_CLOSE, 3) < Open[0]
&& ( Ticket_S == 0 || Ticket_S == -1 )
&& ( Ticket_L == 0 || Ticket_L == -1 ))
{
Ticket_S = OrderSend(Symbol(),OP_SELL,Lots,Bid,Slip,0,0,Comments,MAGIC,0,Red);
}
return(0);
}
###
