EA金閣寺！！ ☆☆☆☆ 無料MT4ソースコード公開

クリスマスといえばサンタクロースがプレゼントを持ってくる日ですね。
うちのサンタクロースは毎年「本」そうＢＯＯＫを持ってきました．．．

サンタクロースといえばオランダです。
12月初めにSinterklassがスペインからプレゼントを持ってやってきます。
そしてクリスマスには北欧からSanta Clausがまた、プレゼントを持ってくるのです！

そして今日　わたくしがサンタクロースになる日がやってきました。
プレゼントはＥＡ金閣寺　ゴールデンテンプルです！！

アルゴリズムですが、１５分毎にＣＯＡの２０時間、５時間、７５分をチェックします。
三つすべてが上昇もしくは下降する時にエントリーします。
ＬＯＮＧの場合、上がれば利益確定。
下がった時にまたＣＯＡ三つが上昇シグナルを出していれば追加エントリー、
そしてすべてのポジションを平均化し利益確定ポイントを下げます。
また両建ては武士道に反するようですので、
片方のポジションを持っている時には、
反対のエントリーは行いません。
時間固定です。１５分足で動かしてください。

そしてレポートです。
例によって期間は2015.1.1.-2015.11.30（年が明けたら12.31にしたほうがいいか悩んでいます）
100万円が227万円になっています。
ウハウハですね。

たまに大谷がありますが三日ほどで消えるはずです。
この大谷がなければＥＡ金閣寺の必要証拠金を減らし、ロットを上げることができます。
完全放置でしたら現在の設定かもう少しProfitやロットを下げてください。

※監視下でやる場合ですが、常に平均化しますので、本数が増えて来たら利益の出ているポジションだけ手で利益確定してしまうのもありです。
ロットを増やしてがつがつ稼ぐイメージですね。
そして、大きな指標発表前に止めることで必要証拠金を下げつつロットを上げることができます。


にほんブログ村
Doei Merry Christmas!!

//  金閣寺 Rock on Z So Cock Z 2015/12/25
#property copyright "TACA"
#property link "mt4kyoto.blogspot.jp"
#define  MAGIC 1397
extern int Profit=200;
double ProfitP;
extern double Lots=0.03;
double PrSub;
int d;
int Ticket;
int Mode;
int LorS;
datetime TimeOld;
int Judge=0;
double PosAve;
int OnInit(){
ProfitP=Profit*Point;
return(0);}
void OnTick(){
  if(OrdersTotal()==0){Mode=0;}
  if(Time[0]!=TimeOld)
    {TimeOld=Time[0];COACheck();Averaging();}
return;}
int Averaging(){
 PosAve=0;double LastPrice=0;double PosAll=0;double PosNum=0;
  for(int i=0;i<OrdersTotal();i++)
  { d=OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
    LastPrice=OrderOpenPrice();
    PosAll+=LastPrice*OrderLots();
    PosNum+=OrderLots();
  }
  if(PosNum==0){PosAve=0;}
  else{ PosAve=PosAll/PosNum;}  
  for(i=0;i<OrdersTotal();i++)
  { if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==True)
    { Ticket=OrderTicket();
      if(OrderType()==0)
        {PrSub=PosAve+ProfitP;}
      else
        {PrSub=PosAve-ProfitP;}          
      d=OrderModify(Ticket,OrderOpenPrice(),0,PrSub,0,CLR_NONE);
    }
  }
return(0);}
int COACheck(){
Judge=0;
if (iMA(NULL,PERIOD_M15,5,0,MODE_SMA,PRICE_CLOSE,1)>
iMA(NULL,PERIOD_M15,5,0,MODE_SMA,PRICE_OPEN,1))
{Judge++;}else{Judge--;}
if (iMA(NULL,PERIOD_H1,5,0,MODE_SMA,PRICE_CLOSE,1)>
iMA(NULL,PERIOD_H1,5,0,MODE_SMA,PRICE_OPEN,1))
{Judge++;}else{Judge--;}
if (iMA(NULL,PERIOD_H1,20,0,MODE_SMA,PRICE_CLOSE,1)>
iMA(NULL,PERIOD_H1,20,0,MODE_SMA,PRICE_OPEN,1))
{Judge++;}else{Judge--;}
switch(Mode){
    case 1:
    if  (Judge==3){EntryL(1);}
    break;
  case -1:
    if (Judge==-3){EntryS(1);}
    break;
  case 0:
    if  (Judge==3){EntryL(1);}
    else{if (Judge==-3){EntryS(1);}}
    break;}
return(0);}
int EntryL(int Count){
if(PosAve>Close[0]){
d=OrderSend(Symbol(),OP_BUY,Lots*Count,Ask,10,0,Ask+ProfitP,"",MAGIC,0,Red);
Mode=1;}
return(0);}
int EntryS(int Count){
if(PosAve<Close[0]){
d=OrderSend(Symbol(),OP_SELL,Lots*Count,Bid,10,0,Bid-ProfitP,"",MAGIC,0,Blue);
Mode=-1;}
return(0);}