+JoGET#58+





//+------------------------------------------------------------------+
//|                                                   +JoGET#58+.mq4 |
//|                                        Copyright © 2008, masemus |
//|                                                 Gresik@Indonesia |
//+------------------------------------------------------------------+
#property copyright "masemus"
#property link      "masemus@yahoo.com"

#property indicator_chart_window

//---- Pos!
extern int window       = 0;
extern int corner       = 3;

//---- BBAO
int FastMA       = 5;
int SlowMA       = 12;
int MA_Mode      = MODE_EMA;
int MA_PriceType = PRICE_CLOSE;
int BBperiode    = 10;
double StDv      = 1;

//---- BuySell
extern color DN_clr     = DeepPink;
extern color UP_clr     = DodgerBlue;
extern color SW_clr     = DarkGray;
extern color tDN_clr    = LightPink;
extern color tUP_clr    = LightSkyBlue;
extern color tSW_clr    = LightGray;
extern color Time_clr   = Magenta;
extern color Spread_clr = RosyBrown;
extern color Text_clr   = Silver;

//---- MarketToday :: Mtr
extern color DN0_clr    = Yellow;
extern color DN1_clr    = Gold;
extern color DN2_clr    = Orange;
extern color DN3_clr    = DarkOrange;
extern color DN4_clr    = OrangeRed;
extern color DN5_clr    = Red;
extern color UP0_clr    = GreenYellow;
extern color UP1_clr    = LightGreen;
extern color UP2_clr    = LimeGreen;
extern color UP3_clr    = MediumSeaGreen;
extern color UP4_clr    = SeaGreen;
extern color UP5_clr    = Green;
extern color SW0_clr    = DarkGray;
extern color SW2dn_clr  = LightPink;
extern color SW2up_clr  = LightSkyBlue;


//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {    
  //*****************************************************************************************************
   //Info
   string Teks="", Teks_Menit, Teks_Detik;
   double d_A, d_B;

   //Time for Next Candle
   d_B = (Time[4]-Time[5])-MathMod(CurTime(),Time[4]-Time[5]);
   d_A = d_B/60;
   d_B = (d_A-MathFloor(d_A))*60;
   d_A = MathFloor(d_A);
   Teks_Menit = DoubleToStr(d_A,0);
   Teks_Detik = DoubleToStr(d_B,0);
   Teks=Teks_Menit+":"+Teks_Detik;

   //Price
   double Price1 = iMA(Symbol(),0,1,0,MODE_EMA,PRICE_CLOSE,0);   
    Teks=DoubleToStr(Price1,Digits);

   int R1=0,R5=0,R10=0,R20=0,RAvg=0,i=0;
   R1 =  (iHigh(NULL,PERIOD_D1,1)-iLow(NULL,PERIOD_D1,1))/Point;
   for(i=1;i<=5;i++)
      R5    =    R5  +  (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point;
   for(i=1;i<=10;i++)
      R10   =    R10 +  (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point;
   for(i=1;i<=20;i++)
      R20   =    R20 +  (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point;

   R5 = R5/5;
   R10 = R10/10;
   R20 = R20/20;
   RAvg  =  (R1+R5+R10+R20)/4;    
   
   string HI="",LO="",SPREAD="",PIPS="",DAV="",HILO="",PRC,Pips="",Av="",AV_Yest="";
   string OPEN="";
   color color_pip,color_av;
   double Open_Today = iOpen(NULL,1440,0);
   double CLOSE = iClose(NULL,1440,0);
   double SPRD = (Ask - Bid)/Point;
   double High_Today = iHigh(NULL,1440,0);
   double Low_Today = iLow(NULL,1440,0);
   PIPS =  DoubleToStr((CLOSE-Open_Today)/Point,0);
   SPREAD = (DoubleToStr(SPRD,Digits-4));
   DAV = (DoubleToStr(RAvg,Digits-4));
   AV_Yest =  (iHigh(NULL,PERIOD_D1,1)-iLow(NULL,PERIOD_D1,1))/Point;
   HILO = DoubleToStr((High_Today-Low_Today)/Point,0);
   OPEN =  (DoubleToStr(Open_Today,Digits));
   HI =  (DoubleToStr(High_Today,Digits));
   LO =  (DoubleToStr(Low_Today,Digits));
  
     if (CLOSE >= Open_Today) {Pips= "-";color_pip = LimeGreen; }
     if (CLOSE < Open_Today) {Pips= "-";color_pip = DarkOrange; }
     if (DAV > AV_Yest) {Av= "-";color_av = LimeGreen; }
     if (DAV < AV_Yest) {Av= "-";color_av = DarkOrange; }

  //*****************************************************************************************************
   //D1_TREND
   string D1Mid="",D1Pivot="",D1OPEN="";
   color color_d1op;
   double Open_D1 = iOpen(NULL,1440,0);
   D1OPEN =  (DoubleToStr(Open_D1,Digits));
   double D1r = iHigh(NULL,PERIOD_D1,1) - iLow(NULL,PERIOD_D1,1);
   double D1R = (iHigh(NULL,PERIOD_D1,1) + iLow(NULL,PERIOD_D1,1))/2;
   double D1P = (iHigh(NULL,PERIOD_D1,1) + iLow(NULL,PERIOD_D1,1) + iClose(NULL,PERIOD_D1,1))/3;
   D1Mid = DoubleToStr(D1R,Digits);
   D1Pivot = DoubleToStr(D1P,Digits);

     if (D1OPEN > D1Pivot) {color_d1op=LimeGreen;}
     if (D1OPEN < D1Pivot) {color_d1op=Orange;}
     if (D1OPEN == D1Pivot) {color_d1op=DarkGray;}

   //MarketD1
   string SW01="",UP01="",UP02="",UP03="",
          UP04="",UP05="",UP06="",Mid00="",
          TPb1="",TPb2="",TPb3="",TPs1="",TPs2="",TPs3="",
          TP1="",TP2="",TP3="";
   color Midplus_clr,UPtp1D1_clr,UPtp2D1_clr,UPtp3D1_clr,
         UPtp4D1_clr,UPtp5D1_clr,UPtp6D1_clr,TP_clr;

   double Midnol = (Open_D1 + D1P) * 1/2;
   Mid00 = DoubleToStr(Midnol,Digits);

   double UPtp1D1 = D1P + (D1r * 0.236);
   double UPtp2D1 = D1P + (D1r * 0.382);
   double UPtp3D1 = D1P + (D1r * 0.618);
   double UPtp4D1 = D1P + (D1r * 0.764);
   double UPtp5D1 = D1P + (D1r * 1.000);
   double UPtp6D1 = D1P + (D1r * 1.236);
  
   double DNtp1D1 = D1P - (D1r * 0.236);
   double DNtp2D1 = D1P - (D1r * 0.382);
   double DNtp3D1 = D1P - (D1r * 0.618);
   double DNtp4D1 = D1P - (D1r * 0.764);
   double DNtp5D1 = D1P - (D1r * 1.000);
   double DNtp6D1 = D1P - (D1r * 1.236);
  
   TPb1 = DoubleToStr(UPtp2D1,Digits);
   TPb2 = DoubleToStr(UPtp3D1,Digits);
   TPb3 = DoubleToStr(UPtp6D1,Digits);
   TPs1 = DoubleToStr(DNtp2D1,Digits);
   TPs2 = DoubleToStr(DNtp3D1,Digits);
   TPs3 = DoubleToStr(DNtp6D1,Digits);

     if (Price1 > Midnol) {SW01="n"; Midplus_clr=SW2up_clr;}
     if (Price1 < Midnol) {SW01="n"; Midplus_clr=SW2dn_clr;}
     if (Price1 == Midnol) {SW01="n"; Midplus_clr=SW0_clr;}
     if (Teks > Mid00) {TP1=TPb1; TP2=TPb2; TP3=TPb3; TP_clr=UP3_clr;}
     if (Teks < Mid00) {TP1=TPs1; TP2=TPs2; TP3=TPs3; TP_clr=DN3_clr;}
     if (Price1 > UPtp1D1) {UP01="g"; UPtp1D1_clr=UP0_clr;}
     if (Price1 < DNtp1D1) {UP01="g"; UPtp1D1_clr=DN0_clr;}
     if (Price1 > UPtp2D1) {UP02="g"; UPtp2D1_clr=UP1_clr;}
     if (Price1 < DNtp2D1) {UP02="g"; UPtp2D1_clr=DN1_clr;}
     if (Price1 > UPtp3D1) {UP03="g"; UPtp3D1_clr=UP2_clr;}
     if (Price1 < DNtp3D1) {UP03="g"; UPtp3D1_clr=DN2_clr;}
     if (Price1 > UPtp4D1) {UP04="g"; UPtp4D1_clr=UP3_clr;}
     if (Price1 < DNtp4D1) {UP04="g"; UPtp4D1_clr=DN3_clr;}
     if (Price1 > UPtp5D1) {UP05="g"; UPtp5D1_clr=UP4_clr;}
     if (Price1 < DNtp5D1) {UP05="g"; UPtp5D1_clr=DN4_clr;}
     if (Price1 > UPtp6D1) {UP06="g"; UPtp6D1_clr=UP5_clr;}
     if (Price1 < DNtp6D1) {UP06="g"; UPtp6D1_clr=DN5_clr;}

  //*****************************************************************************************************
   //H4_TREND
   string H4Mid="",H4Pivot="",H4OPEN="";
   double Open_H4 = iOpen(NULL,240,0);
   H4OPEN =  (DoubleToStr(Open_H4,Digits));
   double H4r = iHigh(NULL,PERIOD_H4,1) - iLow(NULL,PERIOD_H4,1);
   double H4R = (iHigh(NULL,PERIOD_H4,1) + iLow(NULL,PERIOD_H4,1))/2;
   double H4P = (iHigh(NULL,PERIOD_H4,1) + iLow(NULL,PERIOD_H4,1) + iClose(NULL,PERIOD_H4,1))/3;
   H4Mid = DoubleToStr(H4R,Digits);
   H4Pivot = DoubleToStr(H4P,Digits);

   //MarketH4
   string SW01h4="",UP01h4="",UP02h4="",UP03h4="",
          UP04h4="",UP05h4="",UP06h4="";
   color Midplush4_clr,UPtp1h4_clr,UPtp2h4_clr,UPtp3h4_clr,
         UPtp4h4_clr,UPtp5h4_clr,UPtp6h4_clr;

   double Midnolh4 = (Open_H4 + H4P) * 1/2;

   double UPtp1h4 = H4P + (H4r * 0.236);
   double UPtp2h4 = H4P + (H4r * 0.382);
   double UPtp3h4 = H4P + (H4r * 0.618);
   double UPtp4h4 = H4P + (H4r * 0.764);
   double UPtp5h4 = H4P + (H4r * 1.000);
   double UPtp6h4 = H4P + (H4r * 1.236);
  
   double DNtp1h4 = H4P - (H4r * 0.236);
   double DNtp2h4 = H4P - (H4r * 0.382);
   double DNtp3h4 = H4P - (H4r * 0.618);
   double DNtp4h4 = H4P - (H4r * 0.764);
   double DNtp5h4 = H4P - (H4r * 1.000);
   double DNtp6h4 = H4P - (H4r * 1.236);
  
     if (Price1 > Midnolh4) {SW01h4="n"; Midplush4_clr=SW2up_clr;}
     if (Price1 < Midnolh4) {SW01h4="n"; Midplush4_clr=SW2dn_clr;}
     if (Price1 == Midnolh4) {SW01h4="n"; Midplush4_clr=SW0_clr;}
     if (Price1 > UPtp1h4) {UP01h4="g"; UPtp1h4_clr=UP0_clr;}
     if (Price1 < DNtp1h4) {UP01h4="g"; UPtp1h4_clr=DN0_clr;}
     if (Price1 > UPtp2h4) {UP02h4="g"; UPtp2h4_clr=UP1_clr;}
     if (Price1 < DNtp2h4) {UP02h4="g"; UPtp2h4_clr=DN1_clr;}
     if (Price1 > UPtp3h4) {UP03h4="g"; UPtp3h4_clr=UP2_clr;}
     if (Price1 < DNtp3h4) {UP03h4="g"; UPtp3h4_clr=DN2_clr;}
     if (Price1 > UPtp4h4) {UP04h4="g"; UPtp4h4_clr=UP3_clr;}
     if (Price1 < DNtp4h4) {UP04h4="g"; UPtp4h4_clr=DN3_clr;}
     if (Price1 > UPtp5h4) {UP05h4="g"; UPtp5h4_clr=UP4_clr;}
     if (Price1 < DNtp5h4) {UP05h4="g"; UPtp5h4_clr=DN4_clr;}
     if (Price1 > UPtp6h4) {UP06h4="g"; UPtp6h4_clr=UP5_clr;}
     if (Price1 < DNtp6h4) {UP06h4="g"; UPtp6h4_clr=DN5_clr;}

   //*****************************************************************************************************
   //H1_TREND
   string H1Mid="",H1Pivot="",H1OPEN="";
   double Open_H1 = iOpen(NULL,60,0);
   H1OPEN =  (DoubleToStr(Open_H1,Digits));
   double H1r = iHigh(NULL,PERIOD_H1,1) - iLow(NULL,PERIOD_H1,1);
   double H1R = (iHigh(NULL,PERIOD_H1,1) + iLow(NULL,PERIOD_H1,1))/2;
   double H1P = (iHigh(NULL,PERIOD_H1,1) + iLow(NULL,PERIOD_H1,1) + iClose(NULL,PERIOD_H1,1))/3;
   H1Mid = DoubleToStr(H1R,Digits);
   H1Pivot = DoubleToStr(H1P,Digits);

   //MarketH1
   string SW01h1="",UP01h1="",UP02h1="",UP03h1="",
          UP04h1="",UP05h1="",UP06h1="";
   color Midplush1_clr,UPtp1h1_clr,UPtp2h1_clr,UPtp3h1_clr,
         UPtp4h1_clr,UPtp5h1_clr,UPtp6h1_clr;

   double Midnolh1 = (Open_H1 + H1P) * 1/2;

   double UPtp1h1 = H1P + (H1r * 0.236);
   double UPtp2h1 = H1P + (H1r * 0.382);
   double UPtp3h1 = H1P + (H1r * 0.618);
   double UPtp4h1 = H1P + (H1r * 0.764);
   double UPtp5h1 = H1P + (H1r * 1.000);
   double UPtp6h1 = H1P + (H1r * 1.236);
  
   double DNtp1h1 = H1P - (H1r * 0.236);
   double DNtp2h1 = H1P - (H1r * 0.382);
   double DNtp3h1 = H1P - (H1r * 0.618);
   double DNtp4h1 = H1P - (H1r * 0.764);
   double DNtp5h1 = H1P - (H1r * 1.000);
   double DNtp6h1 = H1P - (H1r * 1.236);
  
     if (Price1 > Midnolh1) {SW01h1="n"; Midplush1_clr=SW2up_clr;}
     if (Price1 < Midnolh1) {SW01h1="n"; Midplush1_clr=SW2dn_clr;}
     if (Price1 == Midnolh1) {SW01h1="n"; Midplush1_clr=SW0_clr;}
     if (Price1 > UPtp1h1) {UP01h1="g"; UPtp1h1_clr=UP0_clr;}
     if (Price1 < DNtp1h1) {UP01h1="g"; UPtp1h1_clr=DN0_clr;}
     if (Price1 > UPtp2h1) {UP02h1="g"; UPtp2h1_clr=UP1_clr;}
     if (Price1 < DNtp2h1) {UP02h1="g"; UPtp2h1_clr=DN1_clr;}
     if (Price1 > UPtp3h1) {UP03h1="g"; UPtp3h1_clr=UP2_clr;}
     if (Price1 < DNtp3h1) {UP03h1="g"; UPtp3h1_clr=DN2_clr;}
     if (Price1 > UPtp4h1) {UP04h1="g"; UPtp4h1_clr=UP3_clr;}
     if (Price1 < DNtp4h1) {UP04h1="g"; UPtp4h1_clr=DN3_clr;}
     if (Price1 > UPtp5h1) {UP05h1="g"; UPtp5h1_clr=UP4_clr;}
     if (Price1 < DNtp5h1) {UP05h1="g"; UPtp5h1_clr=DN4_clr;}
     if (Price1 > UPtp6h1) {UP06h1="g"; UPtp6h1_clr=UP5_clr;}
     if (Price1 < DNtp6h1) {UP06h1="g"; UPtp6h1_clr=DN5_clr;}

   //*****************************************************************************************************
   //M30_TREND
   string M30Mid="",M30Pivot="",M30OPEN="";
   double Open_M30 = iOpen(NULL,30,0);
   M30OPEN =  (DoubleToStr(Open_M30,Digits));
   double M30r = iHigh(NULL,PERIOD_M30,1) - iLow(NULL,PERIOD_M30,1);
   double M30R = (iHigh(NULL,PERIOD_M30,1) + iLow(NULL,PERIOD_M30,1))/2;
   double M30P = (iHigh(NULL,PERIOD_M30,1) + iLow(NULL,PERIOD_M30,1) + iClose(NULL,PERIOD_M30,1))/3;
   M30Mid = DoubleToStr(M30R,Digits);
   M30Pivot = DoubleToStr(M30P,Digits);

   //MarketM30
   string SW01m30="",UP01m30="",UP02m30="",UP03m30="",
          UP04m30="",UP05m30="",UP06m30="";
   color Midplusm30_clr,UPtp1m30_clr,UPtp2m30_clr,UPtp3m30_clr,
         UPtp4m30_clr,UPtp5m30_clr,UPtp6m30_clr;

   double Midnolm30 = (Open_M30 + M30P) * 1/2;

   double UPtp1m30 = M30P + (M30r * 0.236);
   double UPtp2m30 = M30P + (M30r * 0.382);
   double UPtp3m30 = M30P + (M30r * 0.618);
   double UPtp4m30 = M30P + (M30r * 0.764);
   double UPtp5m30 = M30P + (M30r * 1.000);
   double UPtp6m30 = M30P + (M30r * 1.236);
  
   double DNtp1m30 = M30P - (M30r * 0.236);
   double DNtp2m30 = M30P - (M30r * 0.382);
   double DNtp3m30 = M30P - (M30r * 0.618);
   double DNtp4m30 = M30P - (M30r * 0.764);
   double DNtp5m30 = M30P - (M30r * 1.000);
   double DNtp6m30 = M30P - (M30r * 1.236);
  
     if (Price1 > Midnolm30) {SW01m30="n"; Midplusm30_clr=SW2up_clr;}
     if (Price1 < Midnolm30) {SW01m30="n"; Midplusm30_clr=SW2dn_clr;}
     if (Price1 == Midnolm30) {SW01m30="n"; Midplusm30_clr=SW0_clr;}
     if (Price1 > UPtp1m30) {UP01m30="g"; UPtp1m30_clr=UP0_clr;}
     if (Price1 < DNtp1m30) {UP01m30="g"; UPtp1m30_clr=DN0_clr;}
     if (Price1 > UPtp2m30) {UP02m30="g"; UPtp2m30_clr=UP1_clr;}
     if (Price1 < DNtp2m30) {UP02m30="g"; UPtp2m30_clr=DN1_clr;}
     if (Price1 > UPtp3m30) {UP03m30="g"; UPtp3m30_clr=UP2_clr;}
     if (Price1 < DNtp3m30) {UP03m30="g"; UPtp3m30_clr=DN2_clr;}
     if (Price1 > UPtp4m30) {UP04m30="g"; UPtp4m30_clr=UP3_clr;}
     if (Price1 < DNtp4m30) {UP04m30="g"; UPtp4m30_clr=DN3_clr;}
     if (Price1 > UPtp5m30) {UP05m30="g"; UPtp5m30_clr=UP4_clr;}
     if (Price1 < DNtp5m30) {UP05m30="g"; UPtp5m30_clr=DN4_clr;}
     if (Price1 > UPtp6m30) {UP06m30="g"; UPtp6m30_clr=UP5_clr;}
     if (Price1 < DNtp6m30) {UP06m30="g"; UPtp6m30_clr=DN5_clr;}

   //*****************************************************************************************************
   //M15_TREND
   string M15Mid="",M15Pivot="",M15OPEN="";
   double Open_M15 = iOpen(NULL,15,0);
   M15OPEN =  (DoubleToStr(Open_M15,Digits));
   double M15r = iHigh(NULL,PERIOD_M15,1) - iLow(NULL,PERIOD_M15,1);
   double M15R = (iHigh(NULL,PERIOD_M15,1) + iLow(NULL,PERIOD_M15,1))/2;
   double M15P = (iHigh(NULL,PERIOD_M15,1) + iLow(NULL,PERIOD_M15,1) + iClose(NULL,PERIOD_M15,1))/3;
   M15Mid = DoubleToStr(M15R,Digits);
   M15Pivot = DoubleToStr(M15P,Digits);

   //MarketM15
   string SW01m15="",UP01m15="",UP02m15="",UP03m15="",
          UP04m15="",UP05m15="",UP06m15="";
   color Midplusm15_clr,UPtp1m15_clr,UPtp2m15_clr,UPtp3m15_clr,
         UPtp4m15_clr,UPtp5m15_clr,UPtp6m15_clr;

   double Midnolm15 = (Open_M15 + M15P) * 1/2;

   double UPtp1m15 = M15P + (M15r * 0.236);
   double UPtp2m15 = M15P + (M15r * 0.382);
   double UPtp3m15 = M15P + (M15r * 0.618);
   double UPtp4m15 = M15P + (M15r * 0.764);
   double UPtp5m15 = M15P + (M15r * 1.000);
   double UPtp6m15 = M15P + (M15r * 1.236);
  
   double DNtp1m15 = M15P - (M15r * 0.236);
   double DNtp2m15 = M15P - (M15r * 0.382);
   double DNtp3m15 = M15P - (M15r * 0.618);
   double DNtp4m15 = M15P - (M15r * 0.764);
   double DNtp5m15 = M15P - (M15r * 1.000);
   double DNtp6m15 = M15P - (M15r * 1.236);
  
     if (Price1 > Midnolm15) {SW01m15="n"; Midplusm15_clr=SW2up_clr;}
     if (Price1 < Midnolm15) {SW01m15="n"; Midplusm15_clr=SW2dn_clr;}
     if (Price1 == Midnolm15) {SW01m15="n"; Midplusm15_clr=SW0_clr;}
     if (Price1 > UPtp1m15) {UP01m15="g"; UPtp1m15_clr=UP0_clr;}
     if (Price1 < DNtp1m15) {UP01m15="g"; UPtp1m15_clr=DN0_clr;}
     if (Price1 > UPtp2m15) {UP02m15="g"; UPtp2m15_clr=UP1_clr;}
     if (Price1 < DNtp2m15) {UP02m15="g"; UPtp2m15_clr=DN1_clr;}
     if (Price1 > UPtp3m15) {UP03m15="g"; UPtp3m15_clr=UP2_clr;}
     if (Price1 < DNtp3m15) {UP03m15="g"; UPtp3m15_clr=DN2_clr;}
     if (Price1 > UPtp4m15) {UP04m15="g"; UPtp4m15_clr=UP3_clr;}
     if (Price1 < DNtp4m15) {UP04m15="g"; UPtp4m15_clr=DN3_clr;}
     if (Price1 > UPtp5m15) {UP05m15="g"; UPtp5m15_clr=UP4_clr;}
     if (Price1 < DNtp5m15) {UP05m15="g"; UPtp5m15_clr=DN4_clr;}
     if (Price1 > UPtp6m15) {UP06m15="g"; UPtp6m15_clr=UP5_clr;}
     if (Price1 < DNtp6m15) {UP06m15="g"; UPtp6m15_clr=DN5_clr;}

   //*****************************************************************************************************
   //M5_TREND
   string M5Mid="",M5Pivot="",M5OPEN="";
   double Open_M5 = iOpen(NULL,5,0);
   M5OPEN =  (DoubleToStr(Open_M5,Digits));
   double M5r = iHigh(NULL,PERIOD_M5,1) - iLow(NULL,PERIOD_M5,1);
   double M5R = (iHigh(NULL,PERIOD_M5,1) + iLow(NULL,PERIOD_M5,1))/2;
   double M5P = (iHigh(NULL,PERIOD_M5,1) + iLow(NULL,PERIOD_M5,1) + iClose(NULL,PERIOD_M5,1))/3;
   M5Mid = DoubleToStr(M5R,Digits);
   M5Pivot = DoubleToStr(M5P,Digits);

   //MarketM5
   string SW01m5="",UP01m5="",UP02m5="",UP03m5="",
          UP04m5="",UP05m5="",UP06m5="";
   color Midplusm5_clr,UPtp1m5_clr,UPtp2m5_clr,UPtp3m5_clr,
         UPtp4m5_clr,UPtp5m5_clr,UPtp6m5_clr;

   double Midnolm5 = (Open_M5 + M5P) * 1/2;

   double UPtp1m5 = M5P + (M5r * 0.236);
   double UPtp2m5 = M5P + (M5r * 0.382);
   double UPtp3m5 = M5P + (M5r * 0.618);
   double UPtp4m5 = M5P + (M5r * 0.764);
   double UPtp5m5 = M5P + (M5r * 1.000);
   double UPtp6m5 = M5P + (M5r * 1.236);
  
   double DNtp1m5 = M5P - (M5r * 0.236);
   double DNtp2m5 = M5P - (M5r * 0.382);
   double DNtp3m5 = M5P - (M5r * 0.618);
   double DNtp4m5 = M5P - (M5r * 0.764);
   double DNtp5m5 = M5P - (M5r * 1.000);
   double DNtp6m5 = M5P - (M5r * 1.236);
  
     if (Price1 > Midnolm5) {SW01m5="n"; Midplusm5_clr=SW2up_clr;}
     if (Price1 < Midnolm5) {SW01m5="n"; Midplusm5_clr=SW2dn_clr;}
     if (Price1 == Midnolm5) {SW01m5="n"; Midplusm5_clr=SW0_clr;}
     if (Price1 > UPtp1m5) {UP01m5="g"; UPtp1m5_clr=UP0_clr;}
     if (Price1 < DNtp1m5) {UP01m5="g"; UPtp1m5_clr=DN0_clr;}
     if (Price1 > UPtp2m5) {UP02m5="g"; UPtp2m5_clr=UP1_clr;}
     if (Price1 < DNtp2m5) {UP02m5="g"; UPtp2m5_clr=DN1_clr;}
     if (Price1 > UPtp3m5) {UP03m5="g"; UPtp3m5_clr=UP2_clr;}
     if (Price1 < DNtp3m5) {UP03m5="g"; UPtp3m5_clr=DN2_clr;}
     if (Price1 > UPtp4m5) {UP04m5="g"; UPtp4m5_clr=UP3_clr;}
     if (Price1 < DNtp4m5) {UP04m5="g"; UPtp4m5_clr=DN3_clr;}
     if (Price1 > UPtp5m5) {UP05m5="g"; UPtp5m5_clr=UP4_clr;}
     if (Price1 < DNtp5m5) {UP05m5="g"; UPtp5m5_clr=DN4_clr;}
     if (Price1 > UPtp6m5) {UP06m5="g"; UPtp6m5_clr=UP5_clr;}
     if (Price1 < DNtp6m5) {UP06m5="g"; UPtp6m5_clr=DN5_clr;}

   //*****************************************************************************************************
   //M1_TREND
   string M1Mid="",M1Pivot="",M1OPEN="";
   double Open_M1 = iOpen(NULL,1,0);
   M1OPEN =  (DoubleToStr(Open_M1,Digits));
   double M1r = iHigh(NULL,PERIOD_M1,1) - iLow(NULL,PERIOD_M1,1);
   double M1R = (iHigh(NULL,PERIOD_M1,1) + iLow(NULL,PERIOD_M1,1))/2;
   double M1P = (iHigh(NULL,PERIOD_M1,1) + iLow(NULL,PERIOD_M1,1) + iClose(NULL,PERIOD_M1,1))/3;
   M1Mid = DoubleToStr(M1R,Digits);
   M1Pivot = DoubleToStr(M1P,Digits);

   //MarketM1
   string SW01m1="",UP01m1="",UP02m1="",UP03m1="",
          UP04m1="",UP05m1="",UP06m1="";
   color Midplusm1_clr,UPtp1m1_clr,UPtp2m1_clr,UPtp3m1_clr,
         UPtp4m1_clr,UPtp5m1_clr,UPtp6m1_clr;

   double Midnolm1 = (Open_M1 + M1P) * 1/2;

   double UPtp1m1 = M1P + (M1r * 0.236);
   double UPtp2m1 = M1P + (M1r * 0.382);
   double UPtp3m1 = M1P + (M1r * 0.618);
   double UPtp4m1 = M1P + (M1r * 0.764);
   double UPtp5m1 = M1P + (M1r * 1.000);
   double UPtp6m1 = M1P + (M1r * 1.236);
  
   double DNtp1m1 = M1P - (M1r * 0.236);
   double DNtp2m1 = M1P - (M1r * 0.382);
   double DNtp3m1 = M1P - (M1r * 0.618);
   double DNtp4m1 = M1P - (M1r * 0.764);
   double DNtp5m1 = M1P - (M1r * 1.000);
   double DNtp6m1 = M1P - (M1r * 1.236);
  
     if (Price1 > Midnolm1) {SW01m1="n"; Midplusm1_clr=SW2up_clr;}
     if (Price1 < Midnolm1) {SW01m1="n"; Midplusm1_clr=SW2dn_clr;}
     if (Price1 == Midnolm1) {SW01m1="n"; Midplusm1_clr=SW0_clr;}
     if (Price1 > UPtp1m1) {UP01m1="g"; UPtp1m1_clr=UP0_clr;}
     if (Price1 < DNtp1m1) {UP01m1="g"; UPtp1m1_clr=DN0_clr;}
     if (Price1 > UPtp2m1) {UP02m1="g"; UPtp2m1_clr=UP1_clr;}
     if (Price1 < DNtp2m1) {UP02m1="g"; UPtp2m1_clr=DN1_clr;}
     if (Price1 > UPtp3m1) {UP03m1="g"; UPtp3m1_clr=UP2_clr;}
     if (Price1 < DNtp3m1) {UP03m1="g"; UPtp3m1_clr=DN2_clr;}
     if (Price1 > UPtp4m1) {UP04m1="g"; UPtp4m1_clr=UP3_clr;}
     if (Price1 < DNtp4m1) {UP04m1="g"; UPtp4m1_clr=DN3_clr;}
     if (Price1 > UPtp5m1) {UP05m1="g"; UPtp5m1_clr=UP4_clr;}
     if (Price1 < DNtp5m1) {UP05m1="g"; UPtp5m1_clr=DN4_clr;}
     if (Price1 > UPtp6m1) {UP06m1="g"; UPtp6m1_clr=UP5_clr;}
     if (Price1 < DNtp6m1) {UP06m1="g"; UPtp6m1_clr=DN5_clr;}

   //******************************************************************************************************************
   string jogetS1="", jogetS2="", jogetT="";
   color clr_jogetS1, clr_jogetS2, clr_jogetT;

     if ((Teks > M1OPEN) && (Teks > M5OPEN) && (Teks > M1Pivot) && (Teks > M5Pivot))
        {jogetS1="UP"; clr_jogetS1=UP_clr;}
     else if ((Teks < M1Pivot) && (Teks < M5Pivot) && (Teks < M1OPEN) && (Teks < M5OPEN))
             {jogetS1="DN"; clr_jogetS1=DN_clr;}
          else {jogetS1="-----"; clr_jogetS1=SW_clr;}

     if ((Teks > M15OPEN) && (Teks > M30OPEN) && (Teks > H1OPEN)
        && (Teks > M15Pivot) && (Teks > M30Pivot) && (Teks > H1Pivot))
        {jogetS2="UP"; clr_jogetS2=UP_clr;}
     else if ((Teks < M15Pivot) && (Teks < M30Pivot) && (Teks < H1Pivot)
             && (Teks < M15OPEN) && (Teks < M30OPEN) && (Teks < H1OPEN))
             {jogetS2="DN"; clr_jogetS2=DN_clr;}
          else {jogetS2="-----"; clr_jogetS2=SW_clr;}

     if ((Teks > H4OPEN) && (Teks > D1OPEN) && (Teks > H4Pivot) && (Teks > D1Pivot))
        {jogetT="UP"; clr_jogetT=UP_clr;}
     else if ((Teks < H4Pivot) && (Teks < D1Pivot) && (Teks < H4OPEN) && (Teks < D1OPEN))
             {jogetT="DN"; clr_jogetT=DN_clr;}
          else {jogetT="-----"; clr_jogetT=SW_clr;}


   ObjectSetText("joFast", "Fast", 10, "Arial Bold", clr_jogetS1);
   ObjectSetText("joSignal", "Signal", 10, "Arial Bold", clr_jogetS2);
   ObjectSetText("joTrend", "Trend", 10, "Arial Bold", clr_jogetT);

   //******************************************************************************************************************
   string jogetM1="", jogetM5="", jogetM15="", jogetM30="", jogetH1="", jogetH4="", jogetD1="";
   color clr_jogetM1, clr_jogetM5, clr_jogetM15, clr_jogetM30, clr_jogetH1, clr_jogetH4, clr_jogetD1;

     if ((Teks > M1OPEN) && (Teks > M1Pivot))
        {jogetM1="g"; clr_jogetM1=UP_clr;}
     else if ((Teks < M1Pivot) && (Teks < M1OPEN))
             {jogetM1="g"; clr_jogetM1=DN_clr;}
          else {jogetM1="g"; clr_jogetM1=SW_clr;}

     if ((Teks > M5OPEN) && (Teks > M5Pivot))
        {jogetM5="g"; clr_jogetM5=UP_clr;}
     else if ((Teks < M5Pivot) && (Teks < M5OPEN))
             {jogetM5="g"; clr_jogetM5=DN_clr;}
          else {jogetM5="g"; clr_jogetM5=SW_clr;}

     if ((Teks > M15OPEN) && (Teks > M15Pivot))
        {jogetM15="g"; clr_jogetM15=UP_clr;}
     else if ((Teks < M15Pivot) && (Teks < M15OPEN))
             {jogetM15="g"; clr_jogetM15=DN_clr;}
          else {jogetM15="g"; clr_jogetM15=SW_clr;}

     if ((Teks > M30OPEN) && (Teks > M30Pivot))
        {jogetM30="g"; clr_jogetM30=UP_clr;}
     else if ((Teks < M30Pivot) && (Teks < M30OPEN))
             {jogetM30="g"; clr_jogetM30=DN_clr;}
          else {jogetM30="g"; clr_jogetM30=SW_clr;}

     if ((Teks > H1OPEN) && (Teks > H1Pivot))
        {jogetH1="g"; clr_jogetH1=UP_clr;}
     else if ((Teks < H1Pivot) && (Teks < H1OPEN))
             {jogetH1="g"; clr_jogetH1=DN_clr;}
          else {jogetH1="g"; clr_jogetH1=SW_clr;}

     if ((Teks > H4OPEN) && (Teks > H4Pivot))
        {jogetH4="g"; clr_jogetH4=UP_clr;}
     else if ((Teks < H4Pivot) && (Teks < H4OPEN))
             {jogetH4="g"; clr_jogetH4=DN_clr;}
          else {jogetH4="g"; clr_jogetH4=SW_clr;}

     if ((Teks > D1OPEN) && (Teks > D1Pivot))
        {jogetD1="g"; clr_jogetD1=UP_clr;}
     else if ((Teks < D1Pivot) && (Teks < D1OPEN))
             {jogetD1="g"; clr_jogetD1=DN_clr;}
          else {jogetD1="g"; clr_jogetD1=SW_clr;}

   ObjectSetText("joSignalM1", jogetM1, 12, "Webdings", clr_jogetM1);
   ObjectSetText("joSignalM5", jogetM5, 12, "Webdings", clr_jogetM5);
   ObjectSetText("joSignalM15", jogetM15, 12, "Webdings", clr_jogetM15);
   ObjectSetText("joSignalM30", jogetM30, 12, "Webdings", clr_jogetM30);
   ObjectSetText("joSignalH1", jogetH1, 12, "Webdings", clr_jogetH1);
   ObjectSetText("joSignalH4", jogetH4, 12, "Webdings", clr_jogetH4);
   ObjectSetText("joSignalD1", jogetD1, 12, "Webdings", clr_jogetD1);
  
//*****************************************************************************************************
   double S_cM1=iMA(NULL,1,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,1,SlowMA,0,MA_Mode,MA_PriceType,0);
   double S_cM5=iMA(NULL,5,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,5,SlowMA,0,MA_Mode,MA_PriceType,0);
   double S_cM15=iMA(NULL,15,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,15,SlowMA,0,MA_Mode,MA_PriceType,0);
   double S_cM30=iMA(NULL,30,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,30,SlowMA,0,MA_Mode,MA_PriceType,0);
   double S_cH1=iMA(NULL,60,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,60,SlowMA,0,MA_Mode,MA_PriceType,0);
   double S_cH4=iMA(NULL,240,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,240,SlowMA,0,MA_Mode,MA_PriceType,0);
   double S_cD1=iMA(NULL,1440,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,1440,SlowMA,0,MA_Mode,MA_PriceType,0);
   
   double S_pM1=iMA(NULL,1,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,1,SlowMA,0,MA_Mode,MA_PriceType,1);
   double S_pM5=iMA(NULL,5,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,5,SlowMA,0,MA_Mode,MA_PriceType,1);
   double S_pM15=iMA(NULL,15,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,15,SlowMA,0,MA_Mode,MA_PriceType,1);
   double S_pM30=iMA(NULL,30,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,30,SlowMA,0,MA_Mode,MA_PriceType,1);
   double S_pH1=iMA(NULL,60,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,60,SlowMA,0,MA_Mode,MA_PriceType,1);
   double S_pH4=iMA(NULL,240,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,240,SlowMA,0,MA_Mode,MA_PriceType,1);
   double S_pD1=iMA(NULL,1440,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,1440,SlowMA,0,MA_Mode,MA_PriceType,1);
   
   double avg_M1 = iMAOnArray(S_cM1, 0, BBperiode, 0, MA_Mode, 0);
   double avg_M5 = iMAOnArray(S_cM5, 0, BBperiode, 0, MA_Mode, 0);
   double avg_M15 = iMAOnArray(S_cM15, 0, BBperiode, 0, MA_Mode, 0);
   double avg_M30 = iMAOnArray(S_cM30, 0, BBperiode, 0, MA_Mode, 0);
   double avg_H1 = iMAOnArray(S_cH1, 0, BBperiode, 0, MA_Mode, 0);
   double avg_H4 = iMAOnArray(S_cH4, 0, BBperiode, 0, MA_Mode, 0);
   double avg_D1 = iMAOnArray(S_cD1, 0, BBperiode, 0, MA_Mode, 0);

   double sDev_M1 = iStdDevOnArray(S_cM1, 0, BBperiode, 0, MA_Mode, 0);
   double sDev_M5 = iStdDevOnArray(S_cM5, 0, BBperiode, 0, MA_Mode, 0);
   double sDev_M15 = iStdDevOnArray(S_cM15, 0, BBperiode, 0, MA_Mode, 0);
   double sDev_M30 = iStdDevOnArray(S_cM30, 0, BBperiode, 0, MA_Mode, 0);
   double sDev_H1 = iStdDevOnArray(S_cH1, 0, BBperiode, 0, MA_Mode, 0);
   double sDev_H4 = iStdDevOnArray(S_cH4, 0, BBperiode, 0, MA_Mode, 0);
   double sDev_D1 = iStdDevOnArray(S_cD1, 0, BBperiode, 0, MA_Mode, 0);

   string S_m1 = "", S_m5 = "", S_m15 = "", S_m30 = "", S_h1 = "", S_h4 = "", S_d1 = "",
          T_m1 = "", T_m5 = "", T_m15 = "", T_m30 = "", T_h1 = "", T_h4 = "", T_d1 = "",
          V_m1 = "", V_m5 = "", V_m15 = "", V_m30 = "", V_h1 = "", V_h4 = "", V_d1 = "",
          upBB_m1 = "", upBB_m5 = "", upBB_m15 = "", upBB_m30 = "", upBB_h1 = "", upBB_h4 = "", upBB_d1 = "",
          loBB_m1 = "", loBB_m5 = "", loBB_m15 = "", loBB_m30 = "", loBB_h1 = "", loBB_h4 = "", loBB_d1 = "",
          midBB_m1 = "", midBB_m5 = "", midBB_m15 = "", midBB_m30 = "", midBB_h1 = "", midBB_h4 = "", midBB_d1 = "",
          BS_m1 = "", BS_m5 = "", BS_m15 = "", BS_m30 = "", BS_h1 = "", BS_h4 = "", BS_d1 = "";
   color  Sclr_m1, Sclr_m5, Sclr_m15, Sclr_m30, Sclr_h1, Sclr_h4, Sclr_d1,
          Tclr_m1, Tclr_m5, Tclr_m15, Tclr_m30, Tclr_h1, Tclr_h4, Tclr_d1,
          BSclr_m1, BSclr_m5, BSclr_m15, BSclr_m30, BSclr_h1, BSclr_h4, BSclr_d1;
   
   V_m1 = DoubleToStr(S_cM1,Digits+1);
   V_m5 = DoubleToStr(S_cM5,Digits+1);
   V_m15 = DoubleToStr(S_cM15,Digits+1);
   V_m30 = DoubleToStr(S_cM30,Digits+1);
   V_h1 = DoubleToStr(S_cH1,Digits+1);
   V_h4 = DoubleToStr(S_cH4,Digits+1);
   V_d1 = DoubleToStr(S_cD1,Digits+1);

   upBB_m1 = DoubleToStr((avg_M1 + (StDv * sDev_M1)), Digits+1);  // Upperband 
   upBB_m5 = DoubleToStr((avg_M5 + (StDv * sDev_M5)), Digits+1);  // Upperband 
   upBB_m15 = DoubleToStr((avg_M15 + (StDv * sDev_M15)), Digits+1);  // Upperband 
   upBB_m30 = DoubleToStr((avg_M30 + (StDv * sDev_M30)), Digits+1);  // Upperband 
   upBB_h1 = DoubleToStr((avg_H1 + (StDv * sDev_H1)), Digits+1);  // Upperband 
   upBB_h4 = DoubleToStr((avg_H4 + (StDv * sDev_H4)), Digits+1);  // Upperband 
   upBB_d1 = DoubleToStr((avg_D1 + (StDv * sDev_D1)), Digits+1);  // Upperband 

   loBB_m1 = DoubleToStr((avg_M1 - (StDv * sDev_M1)), Digits+1);  // Lowerband
   loBB_m5 = DoubleToStr((avg_M5 - (StDv * sDev_M5)), Digits+1);  // Lowerband
   loBB_m15 = DoubleToStr((avg_M15 - (StDv * sDev_M15)), Digits+1);  // Lowerband
   loBB_m30 = DoubleToStr((avg_M30 - (StDv * sDev_M30)), Digits+1);  // Lowerband
   loBB_h1 = DoubleToStr((avg_H1 - (StDv * sDev_H1)), Digits+1);  // Lowerband
   loBB_h4 = DoubleToStr((avg_H4 - (StDv * sDev_H4)), Digits+1);  // Lowerband
   loBB_d1 = DoubleToStr((avg_D1 - (StDv * sDev_D1)), Digits+1);  // Lowerband

   midBB_m1 = DoubleToStr(avg_M1, Digits+1) ;  // Midleband
   midBB_m5 = DoubleToStr(avg_M5, Digits+1) ;  // Midleband
   midBB_m15 = DoubleToStr(avg_M15, Digits+1) ;  // Midleband
   midBB_m30 = DoubleToStr(avg_M30, Digits+1) ;  // Midleband
   midBB_h1 = DoubleToStr(avg_H1, Digits+1) ;  // Midleband
   midBB_h4 = DoubleToStr(avg_H4, Digits+1) ;  // Midleband
   midBB_d1 = DoubleToStr(avg_D1, Digits+1) ;  // Midleband

   if (S_cM1 < S_pM1) { S_m1 = "n"; Sclr_m1 = tDN_clr; }
   else if (S_cM1 > S_pM1) { S_m1 = "n"; Sclr_m1 = tUP_clr; }
        else { S_m1 = "n"; Sclr_m1 = tSW_clr; }
   if (S_cM1 < 0) { T_m1 = "n"; Tclr_m1 = DN_clr; }
   else if (S_cM1 > 0) { T_m1 = "n"; Tclr_m1 = UP_clr; }
        else { T_m1 = "n"; Tclr_m1 = SW_clr; }

   if (S_cM5 < S_pM5) { S_m5 = "n"; Sclr_m5 = tDN_clr; }
   else if (S_cM5 > S_pM5) { S_m5 = "n"; Sclr_m5 = tUP_clr; }
        else { S_m5 = "n"; Sclr_m5 = tSW_clr; }
   if (S_cM5 < 0) { T_m5 = "n"; Tclr_m5 = DN_clr; }
   else if (S_cM5 > 0) { T_m5 = "n"; Tclr_m5 = UP_clr; }
        else { T_m5 = "n"; Tclr_m5 = SW_clr; }
   
   if (S_cM15 < S_pM15) { S_m15 = "n"; Sclr_m15 = tDN_clr; }
   else if (S_cM15 > S_pM15) { S_m15 = "n"; Sclr_m15 = tUP_clr; }
        else { S_m15 = "n"; Sclr_m15 = tSW_clr; }
   if (S_cM15 < 0) { T_m15 = "n"; Tclr_m15 = DN_clr; }
   else if (S_cM15 > 0) { T_m15 = "n"; Tclr_m15 = UP_clr; }
        else { T_m15 = "n"; Tclr_m15 = SW_clr; }
      
   if (S_cM30 < S_pM30) { S_m30 = "n"; Sclr_m30 = tDN_clr; }
   else if (S_cM30 > S_pM30) { S_m30 = "n"; Sclr_m30 = tUP_clr; }
        else { S_m30 = "n"; Sclr_m30 = tSW_clr; }
   if (S_cM30 < 0) { T_m30 = "n"; Tclr_m30 = DN_clr; }
   else if (S_cM30 > 0) { T_m30 = "n"; Tclr_m30 = UP_clr; }
        else { T_m30 = "n"; Tclr_m30 = SW_clr; }
   
   if (S_cH1 < S_pH1) { S_h1 = "n"; Sclr_h1 = tDN_clr; }
   else if (S_cH1 > S_pH1) { S_h1 = "n"; Sclr_h1 = tUP_clr; }
        else { S_h1 = "n"; Sclr_h1 = tSW_clr; }
   if (S_cH1 < 0) { T_h1 = "n"; Tclr_h1 = DN_clr; }
   else if (S_cH1 > 0) { T_h1 = "n"; Tclr_h1 = UP_clr; }
        else { T_h1 = "n"; Tclr_h1 = SW_clr; }
   
   if (S_cH4 < S_pH4) { S_h4 = "n"; Sclr_h4 = tDN_clr; }
   else if (S_cH4 > S_pH4) { S_h4 = "n"; Sclr_h4 = tUP_clr; }
        else { S_h4 = "n"; Sclr_h4 = tSW_clr; }
   if (S_cH4 < 0) { T_h4 = "n"; Tclr_h4 = DN_clr; }
   else if (S_cH4 > 0) { T_h4 = "n"; Tclr_h4 = UP_clr; }
        else { T_h4 = "n"; Tclr_h4 = SW_clr; }

   if (S_cD1 < S_pD1) { S_d1 = "n"; Sclr_d1 = tDN_clr; }
   else if (S_cD1 > S_pD1) { S_d1 = "n"; Sclr_d1 = tUP_clr; }
        else { S_d1 = "n"; Sclr_d1 = tSW_clr; }
   if (S_cD1 < 0) { T_d1 = "n"; Tclr_d1 = DN_clr; }
   else if (S_cD1 > 0) { T_d1 = "n"; Tclr_d1 = UP_clr; }
        else { T_d1 = "n"; Tclr_d1 = SW_clr; }

   if ((S_cM1 < S_pM1)&&(V_m1 < loBB_m1)) { BS_m1 = "n"; BSclr_m1 = tDN_clr; }
   else if ((S_cM1 > S_pM1)&&(V_m1 > upBB_m1)) { BS_m1 = "n"; BSclr_m1 = tUP_clr; }
        else { BS_m1 = "n"; BSclr_m1 = tSW_clr; }
   
   if ((S_cM5 < S_pM5)&&(V_m5 < loBB_m5)) { BS_m5 = "n"; BSclr_m5 = tDN_clr; }
   else if ((S_cM5 > S_pM5)&&(V_m5 > upBB_m5)) { BS_m5 = "n"; BSclr_m5 = tUP_clr; }
        else { BS_m5 = "n"; BSclr_m5 = tSW_clr; }
   
   if ((S_cM15 < S_pM15)&&(V_m15 < loBB_m15)) { BS_m15 = "n"; BSclr_m15 = tDN_clr; }
   else if ((S_cM15 > S_pM15)&&(V_m15 > upBB_m15)) { BS_m15 = "n"; BSclr_m15 = tUP_clr; }
        else { BS_m15 = "n"; BSclr_m15 = tSW_clr; }
   
   if ((S_cM30 < S_pM30)&&(V_m30 < loBB_m30)) { BS_m30 = "n"; BSclr_m30 = tDN_clr; }
   else if ((S_cM30 > S_pM30)&&(V_m30 > upBB_m30)) { BS_m30 = "n"; BSclr_m30 = tUP_clr; }
        else { BS_m30 = "n"; BSclr_m30 = tSW_clr; }
   
   if ((S_cH1 < S_pH1)&&(V_h1 < loBB_h1)) { BS_h1 = "n"; BSclr_h1 = tDN_clr; }
   else if ((S_cH1 > S_pH1)&&(V_h1 > upBB_h1)) { BS_h1 = "n"; BSclr_h1 = tUP_clr; }
        else { BS_h1 = "n"; BSclr_h1 = tSW_clr; }
   
   if ((S_cH4 < S_pH4)&&(V_h4 < midBB_h4)) { BS_h4 = "n"; BSclr_h4 = tDN_clr; }
   else if ((S_cH4 > S_pH4)&&(V_h4 > midBB_h4)) { BS_h4 = "n"; BSclr_h4 = tUP_clr; }
        else { BS_h4 = "n"; BSclr_h4 = tSW_clr; }
   
   if ((S_cD1 < S_pD1)&&(V_d1 < midBB_d1)) { BS_d1 = "n"; BSclr_d1 = tDN_clr; }
   else if ((S_cD1 > S_pD1)&&(V_d1 > midBB_d1)) { BS_d1 = "n"; BSclr_d1 = tUP_clr; }
        else { BS_d1 = "n"; BSclr_d1 = tSW_clr; }
   
//*****************************************************************************************************
   ObjectSetText("jobbaoTM1", T_m1, 7, "Webdings", Tclr_m1);
   ObjectSetText("jobbaoTM5", T_m5, 7, "Webdings", Tclr_m5);
   ObjectSetText("jobbaoTM15", T_m15, 7, "Webdings", Tclr_m15);
   ObjectSetText("jobbaoTM30", T_m30, 7, "Webdings", Tclr_m30);
   ObjectSetText("jobbaoTH1", T_h1, 7, "Webdings", Tclr_h1);
   ObjectSetText("jobbaoTH4", T_h4, 7, "Webdings", Tclr_h4);
   ObjectSetText("jobbaoTD1", T_d1, 7, "Webdings", Tclr_d1);

   ObjectSetText("jobbaoBSM1", BS_m1, 12, "Webdings", BSclr_m1);
   ObjectSetText("jobbaoBSM5", BS_m5, 12, "Webdings", BSclr_m5);
   ObjectSetText("jobbaoBSM15", BS_m15, 12, "Webdings", BSclr_m15);
   ObjectSetText("jobbaoBSM30", BS_m30, 12, "Webdings", BSclr_m30);
   ObjectSetText("jobbaoBSH1", BS_h1, 12, "Webdings", BSclr_h1);
   ObjectSetText("jobbaoBSH4", BS_h4, 12, "Webdings", BSclr_h4);
   ObjectSetText("jobbaoBSD1", BS_d1, 12, "Webdings", BSclr_d1);

   ObjectSetText("joTex1", "1", 10, "Arial Black", Sclr_m1);
   ObjectSetText("joTex2", "2", 10, "Arial Black", Sclr_m5);
   ObjectSetText("joTex3", "3", 10, "Arial Black", Sclr_m15);
   ObjectSetText("joTex4", "4", 10, "Arial Black", Sclr_m30);
   ObjectSetText("joTex5", "5", 10, "Arial Black", Sclr_h1);
   ObjectSetText("joTex6", "6", 10, "Arial Black", Sclr_h4);
   ObjectSetText("joTex7", "7", 10, "Arial Black", Sclr_d1);

//*****************************************************************************************************
   ObjectSetText("xCandle", Teks_Menit+":"+Teks_Detik, 10, "Arial Bold", Time_clr);
   ObjectSetText("pric3",""+Teks+"", 18, "Impact",  clr_jogetS2);
   ObjectSetText("joOPD1t", "OPEN", 7, "Arial Bold", Text_clr);
   ObjectSetText("joOPD1a", D1OPEN, 9, "Arial Bold", color_d1op);
   ObjectSetText("joPVD1t", "PIVOT", 7, "Arial Bold", Text_clr);
   ObjectSetText("joPVD1a", D1Pivot, 9, "Arial Bold", Time_clr);
   ObjectSetText("joP2Opent","P2Op", 7, "Arial Bold",  Text_clr);
   ObjectSetText("joP2Opena",""+PIPS+"", 9, "Arial Bold",  color_pip);
   ObjectSetText("joHILOt","HiLo", 7, "Arial Bold",  Text_clr);
   ObjectSetText("joHILOa",""+HILO+"", 9, "Arial Bold",  Spread_clr);
   ObjectSetText("joDAVt","D.Avg", 7, "Arial Bold",  Text_clr);
   ObjectSetText("joDAVa",""+DAV+"", 9, "Arial Bold",  color_av);
   ObjectSetText("joSpreadt","Sprd", 7, "Arial Bold",  Text_clr);
   ObjectSetText("joSpreada",""+SPREAD+"", 9, "Arial Bold",  Spread_clr);
   ObjectSetText("joPair", Symbol(), 12, "Impact",  clr_jogetT);

//*****************************************************************************************************
   ObjectSetText("joG07", SW01, 7, "Webdings", Midplus_clr);
   ObjectSetText("joG06", UP01, 7, "Webdings", UPtp1D1_clr);
   ObjectSetText("joG05", UP02, 7, "Webdings", UPtp2D1_clr);
   ObjectSetText("joG04", UP03, 7, "Webdings", UPtp3D1_clr);
   ObjectSetText("joG03", UP04, 7, "Webdings", UPtp4D1_clr);
   ObjectSetText("joG02", UP05, 7, "Webdings", UPtp5D1_clr);
   ObjectSetText("joG01", UP06, 7, "Webdings", UPtp6D1_clr);

   ObjectSetText("joG014", SW01h4, 7, "Webdings", Midplush4_clr);
   ObjectSetText("joG013", UP01h4, 7, "Webdings", UPtp1h4_clr);
   ObjectSetText("joG012", UP02h4, 7, "Webdings", UPtp2h4_clr);
   ObjectSetText("joG011", UP03h4, 7, "Webdings", UPtp3h4_clr);
   ObjectSetText("joG010", UP04h4, 7, "Webdings", UPtp4h4_clr);
   ObjectSetText("joG09", UP05h4, 7, "Webdings", UPtp5h4_clr);
   ObjectSetText("joG08", UP06h4, 7, "Webdings", UPtp6h4_clr);

   ObjectSetText("joG021", SW01h1, 7, "Webdings", Midplush1_clr);
   ObjectSetText("joG020", UP01h1, 7, "Webdings", UPtp1h1_clr);
   ObjectSetText("joG019", UP02h1, 7, "Webdings", UPtp2h1_clr);
   ObjectSetText("joG018", UP03h1, 7, "Webdings", UPtp3h1_clr);
   ObjectSetText("joG017", UP04h1, 7, "Webdings", UPtp4h1_clr);
   ObjectSetText("joG016", UP05h1, 7, "Webdings", UPtp5h1_clr);
   ObjectSetText("joG015", UP06h1, 7, "Webdings", UPtp6h1_clr);

   ObjectSetText("joG028", SW01m30, 7, "Webdings", Midplusm30_clr);
   ObjectSetText("joG027", UP01m30, 7, "Webdings", UPtp1m30_clr);
   ObjectSetText("joG026", UP02m30, 7, "Webdings", UPtp2m30_clr);
   ObjectSetText("joG025", UP03m30, 7, "Webdings", UPtp3m30_clr);
   ObjectSetText("joG024", UP04m30, 7, "Webdings", UPtp4m30_clr);
   ObjectSetText("joG023", UP05m30, 7, "Webdings", UPtp5m30_clr);
   ObjectSetText("joG022", UP06m30, 7, "Webdings", UPtp6m30_clr);

   ObjectSetText("joG035", SW01m15, 7, "Webdings", Midplusm15_clr);
   ObjectSetText("joG034", UP01m15, 7, "Webdings", UPtp1m15_clr);
   ObjectSetText("joG033", UP02m15, 7, "Webdings", UPtp2m15_clr);
   ObjectSetText("joG032", UP03m15, 7, "Webdings", UPtp3m15_clr);
   ObjectSetText("joG031", UP04m15, 7, "Webdings", UPtp4m15_clr);
   ObjectSetText("joG030", UP05m15, 7, "Webdings", UPtp5m15_clr);
   ObjectSetText("joG029", UP06m15, 7, "Webdings", UPtp6m15_clr);

   ObjectSetText("joG042", SW01m5, 7, "Webdings", Midplusm5_clr);
   ObjectSetText("joG041", UP01m5, 7, "Webdings", UPtp1m5_clr);
   ObjectSetText("joG040", UP02m5, 7, "Webdings", UPtp2m5_clr);
   ObjectSetText("joG039", UP03m5, 7, "Webdings", UPtp3m5_clr);
   ObjectSetText("joG038", UP04m5, 7, "Webdings", UPtp4m5_clr);
   ObjectSetText("joG037", UP05m5, 7, "Webdings", UPtp5m5_clr);
   ObjectSetText("joG036", UP06m5, 7, "Webdings", UPtp6m5_clr);

   ObjectSetText("joG049", SW01m1, 7, "Webdings", Midplusm1_clr);
   ObjectSetText("joG048", UP01m1, 7, "Webdings", UPtp1m1_clr);
   ObjectSetText("joG047", UP02m1, 7, "Webdings", UPtp2m1_clr);
   ObjectSetText("joG046", UP03m1, 7, "Webdings", UPtp3m1_clr);
   ObjectSetText("joG045", UP04m1, 7, "Webdings", UPtp4m1_clr);
   ObjectSetText("joG044", UP05m1, 7, "Webdings", UPtp5m1_clr);
   ObjectSetText("joG043", UP06m1, 7, "Webdings", UPtp6m1_clr);

   ObjectSetText("joTP1", TP1, 8, "Arial Bold", TP_clr);
   ObjectSetText("joTP2", TP2, 8, "Arial Bold", TP_clr);
   ObjectSetText("joTP3", TP3, 8, "Arial Bold", TP_clr);

//*****************************************************************************************************
 //----
   return(0);
  }

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int CreateOL( string n, int xoff, int yoff ) {
   ObjectCreate( n, OBJ_LABEL, window, 0, 0 );
   ObjectSet( n, OBJPROP_CORNER, corner );
   ObjectSet( n, OBJPROP_XDISTANCE, xoff );
   ObjectSet( n, OBJPROP_YDISTANCE, yoff );
   ObjectSet( n, OBJPROP_BACK, false );
}


int init()
  {

//---- 
   IndicatorShortName("+JoGET#58+");  
//---- indicators
   int top = 0;
   int left = 0;


   CreateOL( "joPVD1t", left+250, top+15 );
   CreateOL( "joPVD1a", left+250, top+25 );
   CreateOL( "joOPD1t", left+300, top+15 );
   CreateOL( "joOPD1a", left+300, top+25 );
   CreateOL( "joP2Opent", left+350, top+15 );
   CreateOL( "joP2Opena", left+350, top+25 );
   CreateOL( "joHILOt", left+380, top+15 );
   CreateOL( "joHILOa", left+380, top+25 );
   CreateOL( "joDAVt", left+410, top+15 );
   CreateOL( "joDAVa", left+410, top+25 );
   CreateOL( "joSpreadt", left+440, top+15 );
   CreateOL( "joSpreada", left+440, top+25 );
   CreateOL( "joPair", left+470, top+15 );

   CreateOL( "joFast", left+135, top+46 );
   CreateOL( "joSignal", left+83, top+46 );
   CreateOL( "joTrend", left+40, top+46 );
   CreateOL( "xCandle", left+170, top+32 );
   CreateOL( "pric3", left+170, top+7 );

   CreateOL( "joSignalM1", left+148, top+28 );
   CreateOL( "joSignalM5", left+130, top+28 );
   CreateOL( "joSignalM15", left+112, top+28 );
   CreateOL( "joSignalM30", left+94, top+28 );
   CreateOL( "joSignalH1", left+76, top+28 );
   CreateOL( "joSignalH4", left+58, top+28 );
   CreateOL( "joSignalD1", left+40, top+28 );

   CreateOL( "jobbaoTM1", left+151, top+10 );
   CreateOL( "jobbaoTM5", left+133, top+10 );
   CreateOL( "jobbaoTM15", left+115, top+10 );
   CreateOL( "jobbaoTM30", left+97, top+10 );
   CreateOL( "jobbaoTH1", left+79, top+10 );
   CreateOL( "jobbaoTH4", left+61, top+10 );
   CreateOL( "jobbaoTD1", left+43, top+10 );

   CreateOL( "jobbaoBSM1", left+148, top+10 );
   CreateOL( "jobbaoBSM5", left+130, top+10 );
   CreateOL( "jobbaoBSM15", left+112, top+10 );
   CreateOL( "jobbaoBSM30", left+94, top+10 );
   CreateOL( "jobbaoBSH1", left+76, top+10 );
   CreateOL( "jobbaoBSH4", left+58, top+10 );
   CreateOL( "jobbaoBSD1", left+40, top+10 );

   CreateOL( "joTex1", left+151, top+28 );
   CreateOL( "joTex2", left+133, top+28 );
   CreateOL( "joTex3", left+115, top+28 );
   CreateOL( "joTex4", left+97, top+28 );
   CreateOL( "joTex5", left+79, top+28 );
   CreateOL( "joTex6", left+61, top+28 );
   CreateOL( "joTex7", left+43, top+28 );

   CreateOL( "joG07", left+43, top+62 );
   CreateOL( "joG06", left+43, top+67 );
   CreateOL( "joG05", left+43, top+74 );
   CreateOL( "joG04", left+43, top+81 );
   CreateOL( "joG03", left+43, top+88 );
   CreateOL( "joG02", left+43, top+95 );
   CreateOL( "joG01", left+43, top+102 );

   CreateOL( "joG014", left+61, top+62 );
   CreateOL( "joG013", left+61, top+67 );
   CreateOL( "joG012", left+61, top+74 );
   CreateOL( "joG011", left+61, top+81 );
   CreateOL( "joG010", left+61, top+88 );
   CreateOL( "joG09", left+61, top+95 );
   CreateOL( "joG08", left+61, top+102 );

   CreateOL( "joG021", left+79, top+62 );
   CreateOL( "joG020", left+79, top+67 );
   CreateOL( "joG019", left+79, top+74 );
   CreateOL( "joG018", left+79, top+81 );
   CreateOL( "joG017", left+79, top+88 );
   CreateOL( "joG016", left+79, top+95 );
   CreateOL( "joG015", left+79, top+102 );

   CreateOL( "joG028", left+97, top+62 );
   CreateOL( "joG027", left+97, top+67 );
   CreateOL( "joG026", left+97, top+74 );
   CreateOL( "joG025", left+97, top+81 );
   CreateOL( "joG024", left+97, top+88 );
   CreateOL( "joG023", left+97, top+95 );
   CreateOL( "joG022", left+97, top+102 );

   CreateOL( "joG035", left+115, top+62 );
   CreateOL( "joG034", left+115, top+67 );
   CreateOL( "joG033", left+115, top+74 );
   CreateOL( "joG032", left+115, top+81 );
   CreateOL( "joG031", left+115, top+88 );
   CreateOL( "joG030", left+115, top+95 );
   CreateOL( "joG029", left+115, top+102 );

   CreateOL( "joG042", left+133, top+62 );
   CreateOL( "joG041", left+133, top+67 );
   CreateOL( "joG040", left+133, top+74 );
   CreateOL( "joG039", left+133, top+81 );
   CreateOL( "joG038", left+133, top+88 );
   CreateOL( "joG037", left+133, top+95 );
   CreateOL( "joG036", left+133, top+102 );

   CreateOL( "joG049", left+151, top+62 );
   CreateOL( "joG048", left+151, top+67 );
   CreateOL( "joG047", left+151, top+74 );
   CreateOL( "joG046", left+151, top+81 );
   CreateOL( "joG045", left+151, top+88 );
   CreateOL( "joG044", left+151, top+95 );
   CreateOL( "joG043", left+151, top+102 );

   CreateOL( "joTP1", left+5, top+73 );
   CreateOL( "joTP2", left+5, top+84 );
   CreateOL( "joTP3", left+5, top+95 );

//----
   return(0);
  }

//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   ObjectDelete("joFast");   ObjectDelete("joSignal");
   ObjectDelete("joTrend");   ObjectDelete("joSignalM1");
   ObjectDelete("joSignalM5");   ObjectDelete("joSignalM15");
   ObjectDelete("joSignalM30");   ObjectDelete("joSignalH1");
   ObjectDelete("joSignalH4");   ObjectDelete("joSignalD1");
   ObjectDelete("jobbaoTM1");   ObjectDelete("jobbaoTM5");
   ObjectDelete("jobbaoTM15");   ObjectDelete("jobbaoTM30");
   ObjectDelete("jobbaoTH1");   ObjectDelete("jobbaoTH4");
   ObjectDelete("jobbaoTD1");   ObjectDelete("jobbaoBSM1");
   ObjectDelete("jobbaoBSM5");   ObjectDelete("jobbaoBSM15");
   ObjectDelete("jobbaoBSM30");   ObjectDelete("jobbaoBSH1");
   ObjectDelete("jobbaoBSH4");   ObjectDelete("jobbaoBSD1");
   ObjectDelete("joTex1");   ObjectDelete("joTex2");
   ObjectDelete("joTex3");   ObjectDelete("joTex4");
   ObjectDelete("joTex5");   ObjectDelete("joTex6");
   ObjectDelete("joTex7");   ObjectDelete("xCandle");
   ObjectDelete("pric3");   ObjectDelete("joPair");
   ObjectDelete("joPVD1t");   ObjectDelete("joPVD1a");
   ObjectDelete("joOPD1t");   ObjectDelete("joOPD1a");
   ObjectDelete("joP2Opent");   ObjectDelete("joP2Opena");
   ObjectDelete("joHILOt");   ObjectDelete("joHILOa");
   ObjectDelete("joDAVt");   ObjectDelete("joDAVa");
   ObjectDelete("joSpreadt");   ObjectDelete("joSpreada");
   ObjectDelete("joG01");   ObjectDelete("joG02");
   ObjectDelete("joG03");   ObjectDelete("joG04");
   ObjectDelete("joG05");   ObjectDelete("joG06");
   ObjectDelete("joG07");   ObjectDelete("joG08");
   ObjectDelete("joG09");   ObjectDelete("joG010");
   ObjectDelete("joG011");   ObjectDelete("joG012");
   ObjectDelete("joG013");   ObjectDelete("joG014");
   ObjectDelete("joG015");   ObjectDelete("joG016");
   ObjectDelete("joG017");   ObjectDelete("joG018");
   ObjectDelete("joG019");   ObjectDelete("joG020");
   ObjectDelete("joG021");   ObjectDelete("joG022");
   ObjectDelete("joG023");   ObjectDelete("joG024");
   ObjectDelete("joG025");   ObjectDelete("joG026");
   ObjectDelete("joG027");   ObjectDelete("joG028");
   ObjectDelete("joG029");   ObjectDelete("joG030");
   ObjectDelete("joG031");   ObjectDelete("joG032");
   ObjectDelete("joG033");   ObjectDelete("joG034");
   ObjectDelete("joG035");   ObjectDelete("joG036");
   ObjectDelete("joG037");   ObjectDelete("joG038");
   ObjectDelete("joG039");   ObjectDelete("joG040");
   ObjectDelete("joG041");   ObjectDelete("joG042");
   ObjectDelete("joG043");   ObjectDelete("joG044");
   ObjectDelete("joG045");   ObjectDelete("joG046");
   ObjectDelete("joG047");   ObjectDelete("joG048");
   ObjectDelete("joG049");   ObjectDelete("joG050");
   ObjectDelete("joG051");   ObjectDelete("joG052");
   ObjectDelete("joG053");   ObjectDelete("joG054");
   ObjectDelete("joG055");   ObjectDelete("joG056");
   ObjectDelete("joTP1");   ObjectDelete("joTP2");
   ObjectDelete("joTP3");   
//----
   return(0);
  }
//+------------------------------------------------------------------+





Sample





Analysis



Market Information Used:

Series array that contains open time of each bar
Series array that contains the highest prices of each bar
Series array that contains the lowest prices of each bar
Series array that contains open prices of each bar
Series array that contains close prices for each bar


Indicator Curves created:


Indicators Used:

Moving average indicator
Standard Deviation indicator


Custom Indicators Used:

Order Management characteristics:

Other Features: