EA MA-TS 平均MA VS BULL,BEAR

平均からある乖離すると反転するというイメージでBULL,BEARのEAの作成を思いつきました。
泥酔状態での作成でしたが思ったより安定かつ結果がよく、大きな反響をいただきました。

BULL'S　POWERは過去13回の最高値EMAと直近の終値との差Bear'S POWERは最低値EMAとの差です。

下の図は緑が終値
赤が最高値EMA（１３）　青は最低値EMA(13)　そして黄色は終値SMA(13)です。
ＳＭＡ：単純平均　ＥＭＡ：指数平均

印象は赤と青が平行しているのが驚きでした！
黄色をＥＭＡにすると赤と青の間を走るのであえてＳＭＡにしてみたのですが、黄色のほうがなだらかですね。
ＢＵＬＬ，ＢＥＡＲにしなくても平均でいいかもと思ってきました。
ブルベアのメリットはブルベアのＥＡがあまりないので希少性、話題性はありそうです。
平均のメリットはブルとベアに分けないですむことと設定が簡単なことです。

ブルベアの時は期間を標準の１３以外は試さなかったのですが、MAは期間も調整しました。
SMAの期間５　シャンデリア・トレーリングを付けました。
ブルベアはM5でしたがこちらはM1です。
取引数がブルベア　2,271　⇒　MA　21,229へ増加　足が違うので当たり前かもしれません足の増加は5倍に対し9倍は驚くべきことです！
利益は　ブルベア113,170　⇒　MA468,220大幅増加です。

#property copyright "Copyright 2016/5/9,TACA"
#property link      "http://mt4kyoto.blogspot.jp/"
extern int TSProfit=20;
extern int MAPeriod=5;
extern double MADevision=0.0003;
extern int MAGIC=9;
extern int Spread=4;
extern double Lots=0.1;
datetime TimeOld;
int d,i;
double TSL,OTSL,SL;
double MA(){return(iMA(Symbol(),0,MAPeriod,0,0,0,1));}
double MAD(){return((MA()-Close[0])/Close[0]);}
void OnTick()
{
TS();
if(OrdersTotal()==0){
if(MarketInfo(Symbol(),MODE_SPREAD)<=Spread){
if(Time[0]!=TimeOld){TimeOld=Time[0];
if(MAD()>MADevision){E(0);}
if(MAD()<-1*MADevision){E(1);}
}}}}

void E(int BoS){
if(BoS==0){TSL=Ask;SL=TSL-TSProfit*Point;}
else{TSL=Bid;SL=TSL+TSProfit*Point;}
d=OrderSend(Symbol(),BoS,Lots,TSL,2,SL,0,NULL,MAGIC,0,0);}

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