EA EADoChin 窓珍

昨日は御霊祭という事で昼間っから姉小路のＢＥＥＲ＆ソーセージの店で飲みすぎてグダングダンでした。姉小路と御霊祭は全く関係ないのですが♪
窓がらみのＥＡを作成したのですが、今朝読み返してみるとグダングダンでした。


そこで修正点をリビルトいたしました。
一万円三年で525円、スプレッド正常化を待ってからのスタートですのでさらに収益は見込めません。
シャンデリア・トレーリングよりも窓の大きさでＴＰを分けたほうがよさそうです。
窓埋め後の反転もあるそうなのですが・・・・

#property copyright "Copyright 2016/5/19,TACA"
#property  version  "1.1"
extern int MAGIC=4;
extern double Lots=0.01;
datetime TimeOld;
int d,i;
double TSL,OTSL,SL,TP;

void OnTick()
{
TS();
if(OrdersTotal()==0){
int hh=Hour(),mm=Minute(),dw=DayOfWeek();
if(Time[0]!=TimeOld){TimeOld=Time[0];
if(hh==0&&mm==0&&dw==5){
if(Open[0]>Close[1]){E(1);}else{E(0);}
}}}}

void E(int BoS){

if(BoS==0){TSL=Ask;SL=TSL-20*Point;TP=TSL+200*Point;}
else{TSL=Bid;SL=TSL+20*Point;TP=TSL-200*Point;}
if(MarketInfo("USDJPY-a01",MODE_SPREAD)<=4)
{d=OrderSend("USDJPY-a01",BoS,Lots,TSL,0,SL,TP,NULL,MAGIC,0,clrNONE);}
else
{E(BoS);}
}

void TS()
{d=OrderSelect(0,SELECT_BY_POS);if(OrderType()==0)
{if(TSL<Close[0]){TSL=Close[0];SL=TSL-20*Point;}}
  else
{if(TSL>Close[0]){TSL=Close[0];SL=TSL+20*Point;}}
if(TSL!=OTSL)
{OTSL=TSL;for(i=OrdersTotal()-1;i>=0;i--)
{d=OrderSelect(i,SELECT_BY_POS);
 d=OrderModify(OrderTicket(),OrderOpenPrice(),SL,TP,0,clrNONE);}}}