BULLsPower & BearsPower

プサンでアップしたブル＆ベアのブログを間違えて消してしまったようです。(;´д｀)トホホ

プサンのカジノで半日ビールを飲みながら考えたのは、
①ＭＡＣＤやボリンジャーバンドなどメジャーなインディケーターは終値を見ているのに、最高値、最低値を含むろうそく足を見るのは迷いが生じる。
②平均からの現在の終値の差の成長で未来が予測できる。

そして、バカラと酒に酔いながらひらめいたのがＢＵＬＬｓＰＯＷＥＲ　ＢｅａｒｓＰＯＷＥＲです。

過去13回の最高値の平均－現在の終値がＢＵＬＬｓＰＯＷＥＲ
最低値の場合はＢｅａｒｓＰＯＷＥＲ

①とは逆なのですが最高値、最低値の差をみるのはＣＯＡ的発想でありですね。
②は終値平均で考えていたのですが、二つの平均の差というのは面白そうです。

そういえば有名なＥＡ　ＷｈｉｔｅＢｅａｒ　なんてのもありますが、あれももしかするとＢＥＡＲかもしれませんね。

そして朝二時酩酊状態で作りました。（今回のはその時の進化版です）
作成の流れは
①ブル、ベア共に正ならＬＯＮＧエントリー、両方負の時はＳＨＯＲＴ
いい結果はでません。
②すこし下駄をはかせます。ブル、ベアともに０．１以上の時はＬＯＮＧ、以下同じ・・・
真横に進むグラフ
③シャンデリア・トレーリングを装備
いい結果になりました。
④足を5分に変更
完成です。

1・5分足においてシャンデリア・トレーリングは幅３０以下での数値が出るのが、いいインジケーターです。40以上ではブレが生じます。
ブレというのは月別に見た時にマイナス月が多くなることです。
今回のＥＡはマイナス月０です。優秀かつ安定型ですね。

時々迷走していますが・・・
プログラムを覚えるときに他人のソースコードを見ると勉強になります。
しかしなかなかいい教材が無いのも事実です。
そこで、公開しようと思ったのがこのブログです。
という事はわかりやすいソースコードを書かなければならないのですね。
はい、がんばります。

#property copyright "Copyright 2016/5/1,TACA"
#property link      "http://mt4kyoto.blogspot.jp/"
extern int TSProfit=20;
extern int MAGIC=7;
extern int Spread=4;
extern double Lots=0.1;
datetime TimeOld;
int d,i;
double TSL,OTSL,SL;
double Bull(){return(iBullsPower(Symbol(),0,13,0,1));}
double Bear(){return(iBearsPower(Symbol(),0,13,0,1));}
void OnTick()
{
TS();
if(OrdersTotal()==0){
if(MarketInfo(Symbol(),MODE_SPREAD)<=Spread){
if(Time[0]!=TimeOld){TimeOld=Time[0];
if(Bull()> 0.1&&Bear()> 0.1){E(0);}
if(Bull()<-0.1&&Bear()<-0.1){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);}}}