2017年4月30日日曜日

T3 ネーミングセンスがわるいかも・・・

FXを始めた時に誰もが考えることであろう
常に上下に相場は動いている。
その動きを細かく取ることは出来ないだろうか!
一切の指標を否定し、ただひたすら両建てを繰り返すことで
それを可能にすることができた。
EA THE T3を紹介しよう。

#property copyright  "CopyRight 2017/04/30,TACA"
#property version    "1.00"
#property strict
int d,i,OCL,OCS;
datetime OldTime;
string S;
extern double lot=0.1;//ロット
extern int M=3;//MAGIC NUMBER
extern double CSP=0.27;
void OnInit(){S=Symbol();}
void OnTick()
{
if(Time[0]!=OldTime)
{
OldTime=Time[0];
CS();
OrderCheck();
if(!OCL)EntryLong();
if(!OCS)EntrySell();
}
}
void EntryLong(){d=OrderSend(S,0,lot,Ask,0,Ask-CSP,0,"T3",M);d=OrderSelect(0,0);}
void EntrySell(){d=OrderSend(S,1,lot,Bid,0,Bid+CSP,0,"T3",M);d=OrderSelect(0,0);}
double RSI(int P){return(iRSI(S,P,14,0,0));}
void OrderCheck(){OCL=0;OCS=0;for(i=OrdersTotal()-1;i>=0;i--){d=OrderSelect(i,0);
if(OrderMagicNumber()==M){if(!OrderType()){OCL++;}else{OCS++;}}}}
void CS(){
if(!OrderType()&&OrderStopLoss()+0.3<Ask){d=OrderModify(OrderTicket(),OrderOpenPrice(),Ask-CSP,0,0,0);}
if( OrderType()&&OrderStopLoss()-0.3>Bid){d=OrderModify(OrderTicket(),OrderOpenPrice(),Bid+CSP,0,0,0);}
}

チャートを見ると一回で大きく勝っただけに見えるので、月別のプロフィットも参考までに作りました。どじゃ~!

行ラベル 合計 / Profit
2016 99,530
01 -8,780
02 1,890
03 -8,200
04 -11,480
05 21,280
06 94,080
07 3,340
08 5,030
09 -10,140
10 -3,480
11 12,230
12 3,760
総計 99,530

0 件のコメント:

コメントを投稿