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