4 Period MA

#property indicator_chart_window

extern int p1_ma=5;//Period() in minutes
extern int p2_ma=15;//Period() in minutes
extern int p3_ma=60;//Period() in minutes
extern int p4_ma=240;//Period() in minutes
extern int STD_Rgres_length=56;
extern double STD_width=0.809;
extern int ma_applied_price=1;
/*
Applied price constants. It can be any of the following values:
Constant       Value Description 
PRICE_CLOSE    0     Close price. 
PRICE_OPEN     1     Open price. 
PRICE_HIGH     2     High price. 
PRICE_LOW      3     Low price. 
PRICE_MEDIAN   4     Median price, (high+low)/2. 
PRICE_TYPICAL  5     Typical price, (high+low+close)/3. 
PRICE_WEIGHTED 6     Weighted close price, (high+low+close+close)/4.
*/
extern int ma_Method=0;
/*
Moving Average Method
Constant    Value Description 
MODE_SMA    0     Simple moving average, 
MODE_EMA    1     Exponential moving average, 
MODE_SMMA   2     Smoothed moving average, 
MODE_LWMA   3     Linear weighted moving average.   
*/
extern int ma1_Length=13;
extern int ma2_Length=21;
extern int ma3_Length=34;
extern int ma4_Length=55;
extern int ma5_Length=89;
extern int ma6_Length=144;
extern int ma7_Length=233;

extern int fib_SR_shadow_1=13;
extern int fib_SR_shadow_2=21;
extern int fib_SR_shadow_3=34;
extern int fib_SR_shadow_4=55;
extern int fib_SR_shadow_5=89;
extern int fib_SR_shadow_6=144;
extern int fib_SR_shadow_7=233;

extern color fib_SR_shadow_1_c=AliceBlue;
extern color fib_SR_shadow_2_c=LightBlue;
extern color fib_SR_shadow_3_c=DodgerBlue;
extern color fib_SR_shadow_4_c=RoyalBlue;
extern color fib_SR_shadow_5_c=Blue;
extern color fib_SR_shadow_6_c=MediumBlue;
extern color fib_SR_shadow_7_c=DarkBlue;

double ma1_p1, ma2_p1, ma3_p1, ma4_p1, ma5_p1, ma6_p1, ma7_p1;
double ma1_p2, ma2_p2, ma3_p2, ma4_p2, ma5_p2, ma6_p2, ma7_p2;
double ma1_p3, ma2_p3, ma3_p3, ma4_p3, ma5_p3, ma6_p3, ma7_p3;
double ma1_p4, ma2_p4, ma3_p4, ma4_p4, ma5_p4, ma6_p4, ma7_p4;

datetime t1_p1, t2_p1, t1_p2, t2_p2, t1_p3, t2_p3, t1_p4, t2_p4;

int init()
  {
      // код доступен только после оплаты
   }

  int deinit()
  {
   ObjectsDeleteAll(0,OBJ_TEXT);ObjectsDeleteAll(0,OBJ_RECTANGLE);
   ObjectsDeleteAll(0,OBJ_ARROW);ObjectsDeleteAll(0,OBJ_TREND);
   return(0);
  }

  int start()
  {
      // код доступен только после оплаты
   }

  void Time_Coordinate_Set()
  {

   double zoom_multiplier;int bpw=BarsPerWindow();
   if(bpw<25)              {zoom_multiplier=0.05;}
   if(bpw>25 && bpw<50)    {zoom_multiplier=0.07;}
   if(bpw>50 && bpw<175)   {zoom_multiplier=0.12;}
   if(bpw>175 && bpw<375)  {zoom_multiplier=0.25;}
   if(bpw>375 && bpw<750)  {zoom_multiplier=0.5;}
   if(bpw>750)             {zoom_multiplier=1;}
   double time_frame_multiplier;
   if(Period()==1)      {time_frame_multiplier=0.65;}
   if(Period()==5)      {time_frame_multiplier=3.25;}
   if(Period()==15)     {time_frame_multiplier=9.75;}
   if(Period()==30)     {time_frame_multiplier=19.5;}
   if(Period()==60)     {time_frame_multiplier=39;}
   if(Period()==240)    {time_frame_multiplier=156;}
   if(Period()==1440)   {time_frame_multiplier=936;}
   if(Period()==10080)  {time_frame_multiplier=6552;}
   if(Period()==43200)  {time_frame_multiplier=28043;}

   t1_p1=Time[0]+(1000*time_frame_multiplier*zoom_multiplier);
   t2_p1=Time[0]+(3000*time_frame_multiplier*zoom_multiplier);

   t1_p2=Time[0]+(5000*time_frame_multiplier*zoom_multiplier);
   t2_p2=Time[0]+(7000*time_frame_multiplier*zoom_multiplier);

   t1_p3=Time[0]+(9000*time_frame_multiplier*zoom_multiplier);
   t2_p3=Time[0]+(11000*time_frame_multiplier*zoom_multiplier);

   t1_p4=Time[0]+(13000*time_frame_multiplier*zoom_multiplier);
  t2_p4=Time[0]+(16000*time_frame_multiplier*zoom_multiplier);}//end Time_Coordinate_Set()

  void p1_Fib_Plot()
  {

   double lo_ma_p1,hi_ma_p1;
   lo_ma_p1=ma1_p1;
   if(ma2_p1<lo_ma_p1)  {lo_ma_p1=ma2_p1;}
   if(ma3_p1<lo_ma_p1)  {lo_ma_p1=ma3_p1;}
   if(ma4_p1<lo_ma_p1)  {lo_ma_p1=ma4_p1;}
   if(ma5_p1<lo_ma_p1)  {lo_ma_p1=ma5_p1;}
   if(ma6_p1<lo_ma_p1)  {lo_ma_p1=ma6_p1;}
   if(ma7_p1<lo_ma_p1)  {lo_ma_p1=ma7_p1;}
   lo_ma_p1=NormalizeDouble(lo_ma_p1+(fib_SR_shadow_1*Point),Digits);

   hi_ma_p1=ma7_p1;
   if(ma6_p1>hi_ma_p1)  {hi_ma_p1=ma6_p1;}
   if(ma5_p1>hi_ma_p1)  {hi_ma_p1=ma5_p1;}
   if(ma4_p1>hi_ma_p1)  {hi_ma_p1=ma4_p1;}
   if(ma3_p1>hi_ma_p1)  {hi_ma_p1=ma3_p1;}
   if(ma2_p1>hi_ma_p1)  {hi_ma_p1=ma2_p1;}
   if(ma1_p1>hi_ma_p1)  {hi_ma_p1=ma1_p1;}
   hi_ma_p1=NormalizeDouble(hi_ma_p1-(fib_SR_shadow_1*Point),Digits);

   if(lo_ma_p1-hi_ma_p1>Ask-Bid)
     {
      ObjectCreate("lcf_p1",OBJ_TREND,0,t1_p1, lo_ma_p1, t2_p1, lo_ma_p1);
      ObjectSet("lcf_p1",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("lcf_p1",OBJPROP_WIDTH,2);
      ObjectSet("lcf_p1",OBJPROP_RAY,false);
      ObjectSet("lcf_p1",OBJPROP_COLOR,fib_SR_shadow_1_c);
      ObjectSetText("lcf_p1",DoubleToStr(lo_ma_p1,Digits),7,"Arial",fib_SR_shadow_1_c);

      ObjectCreate("hcf_p1",OBJ_TREND,0,t1_p1, hi_ma_p1, t2_p1, hi_ma_p1);
      ObjectSet("hcf_p1",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("hcf_p1",OBJPROP_WIDTH,2);
      ObjectSet("hcf_p1",OBJPROP_RAY,false);
      ObjectSet("hcf_p1",OBJPROP_COLOR,fib_SR_shadow_1_c);
      ObjectSetText("hcf_p1",DoubleToStr(hi_ma_p1,Digits),7,"Arial",fib_SR_shadow_1_c);
     }

   double lo_ma_p1_1, lo_ma_p1_2, lo_ma_p1_3, lo_ma_p1_4, lo_ma_p1_5, lo_ma_p1_6;
   lo_ma_p1_1=lo_ma_p1+(fib_SR_shadow_2*Point);
   lo_ma_p1_2=lo_ma_p1_1+(fib_SR_shadow_3*Point);
   lo_ma_p1_3=lo_ma_p1_2+(fib_SR_shadow_4*Point);
   lo_ma_p1_4=lo_ma_p1_3+(fib_SR_shadow_5*Point);
   lo_ma_p1_5=lo_ma_p1_4+(fib_SR_shadow_6*Point);
   lo_ma_p1_6=lo_ma_p1_5+(fib_SR_shadow_7*Point);

   double hi_ma_p1_1, hi_ma_p1_2, hi_ma_p1_3, hi_ma_p1_4, hi_ma_p1_5, hi_ma_p1_6;
   hi_ma_p1_1=hi_ma_p1-(fib_SR_shadow_2*Point);
   hi_ma_p1_2=hi_ma_p1_1-(fib_SR_shadow_3*Point);
   hi_ma_p1_3=hi_ma_p1_2-(fib_SR_shadow_4*Point);
   hi_ma_p1_4=hi_ma_p1_3-(fib_SR_shadow_5*Point);
   hi_ma_p1_5=hi_ma_p1_4-(fib_SR_shadow_6*Point);
   hi_ma_p1_6=hi_ma_p1_5-(fib_SR_shadow_7*Point);

   if(lo_ma_p1_1-hi_ma_p1_1>Ask-Bid)
     {
      ObjectCreate("lo_1_p1",OBJ_TREND,0,t1_p1, lo_ma_p1_1, t2_p1, lo_ma_p1_1);
      ObjectSet("lo_1_p1",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("lo_1_p1",OBJPROP_WIDTH,2);
      ObjectSet("lo_1_p1",OBJPROP_RAY,false);
      ObjectSet("lo_1_p1",OBJPROP_COLOR,fib_SR_shadow_2_c);
      ObjectSetText("lo_1_p1",DoubleToStr(lo_ma_p1_1,Digits),7,"Arial",fib_SR_shadow_2_c);

      ObjectCreate("hi_1_p1",OBJ_TREND,0,t1_p1, hi_ma_p1_1, t2_p1, hi_ma_p1_1);
      ObjectSet("hi_1_p1",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("hi_1_p1",OBJPROP_WIDTH,2);
      ObjectSet("hi_1_p1",OBJPROP_RAY,false);
      ObjectSet("hi_1_p1",OBJPROP_COLOR,fib_SR_shadow_2_c);
      ObjectSetText("hi_1_p1",DoubleToStr(hi_ma_p1_1,Digits),7,"Arial",fib_SR_shadow_2_c);
     }

   if(lo_ma_p1_2-hi_ma_p1_2>Ask-Bid)
     {
      ObjectCreate("lo_2_p1",OBJ_TREND,0,t1_p1, lo_ma_p1_2, t2_p1, lo_ma_p1_2);
      ObjectSet("lo_2_p1",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("lo_2_p1",OBJPROP_WIDTH,2);
      ObjectSet("lo_2_p1",OBJPROP_RAY,false);
      ObjectSet("lo_2_p1",OBJPROP_COLOR,fib_SR_shadow_3_c);
      ObjectSetText("lo_2_p1",DoubleToStr(lo_ma_p1_2,Digits),7,"Arial",fib_SR_shadow_3_c);

      ObjectCreate("hi_2_p1",OBJ_TREND,0,t1_p1, hi_ma_p1_2, t2_p1, hi_ma_p1_2);
      ObjectSet("hi_2_p1",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("hi_2_p1",OBJPROP_WIDTH,2);
      ObjectSet("hi_2_p1",OBJPROP_RAY,false);
      ObjectSet("hi_2_p1",OBJPROP_COLOR,fib_SR_shadow_3_c);
      ObjectSetText("hi_2_p1",DoubleToStr(hi_ma_p1_2,Digits),7,"Arial",fib_SR_shadow_3_c);
     }

   if(lo_ma_p1_3-hi_ma_p1_3>Ask-Bid)
     {
      ObjectCreate("lo_3_p1",OBJ_TREND,0,t1_p1, lo_ma_p1_3, t2_p1, lo_ma_p1_3);
      ObjectSet("lo_3_p1",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("lo_3_p1",OBJPROP_WIDTH,2);
      ObjectSet("lo_3_p1",OBJPROP_RAY,false);
      ObjectSet("lo_3_p1",OBJPROP_COLOR,fib_SR_shadow_4_c);
      ObjectSetText("lo_3_p1",DoubleToStr(lo_ma_p1_3,Digits),7,"Arial",fib_SR_shadow_4_c);

      ObjectCreate("hi_3_p1",OBJ_TREND,0,t1_p1, hi_ma_p1_3, t2_p1, hi_ma_p1_3);
      ObjectSet("hi_3_p1",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("hi_3_p1",OBJPROP_WIDTH,2);
      ObjectSet("hi_3_p1",OBJPROP_RAY,false);
      ObjectSet("hi_3_p1",OBJPROP_COLOR,fib_SR_shadow_4_c);
      ObjectSetText("hi_3_p1",DoubleToStr(hi_ma_p1_3,Digits),7,"Arial",fib_SR_shadow_4_c);
     }

   if(lo_ma_p1_4-hi_ma_p1_4>Ask-Bid)
     {
      ObjectCreate("lo_4_p1",OBJ_TREND,0,t1_p1, lo_ma_p1_4, t2_p1, lo_ma_p1_4);
      ObjectSet("lo_4_p1",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("lo_4_p1",OBJPROP_WIDTH,2);
      ObjectSet("lo_4_p1",OBJPROP_RAY,false);
      ObjectSet("lo_4_p1",OBJPROP_COLOR,fib_SR_shadow_5_c);
      ObjectSetText("lo_4_p1",DoubleToStr(lo_ma_p1_4,Digits),7,"Arial",fib_SR_shadow_5_c);

      ObjectCreate("hi_4_p1",OBJ_TREND,0,t1_p1, hi_ma_p1_4, t2_p1, hi_ma_p1_4);
      ObjectSet("hi_4_p1",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("hi_4_p1",OBJPROP_WIDTH,2);
      ObjectSet("hi_4_p1",OBJPROP_RAY,false);
      ObjectSet("hi_4_p1",OBJPROP_COLOR,fib_SR_shadow_5_c);
      ObjectSetText("hi_4_p1",DoubleToStr(hi_ma_p1_4,Digits),7,"Arial",fib_SR_shadow_5_c);
     }

   if(lo_ma_p1_5-hi_ma_p1_5>Ask-Bid)
     {
      ObjectCreate("lo_5_p1",OBJ_TREND,0,t1_p1, lo_ma_p1_5, t2_p1, lo_ma_p1_5);
      ObjectSet("lo_5_p1",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("lo_5_p1",OBJPROP_WIDTH,2);
      ObjectSet("lo_5_p1",OBJPROP_RAY,false);
      ObjectSet("lo_5_p1",OBJPROP_COLOR,fib_SR_shadow_6_c);
      ObjectSetText("lo_5_p1",DoubleToStr(lo_ma_p1_5,Digits),7,"Arial",fib_SR_shadow_6_c);

      ObjectCreate("hi_5_p1",OBJ_TREND,0,t1_p1, hi_ma_p1_5, t2_p1, hi_ma_p1_5);
      ObjectSet("hi_5_p1",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("hi_5_p1",OBJPROP_WIDTH,2);
      ObjectSet("hi_5_p1",OBJPROP_RAY,false);
      ObjectSet("hi_5_p1",OBJPROP_COLOR,fib_SR_shadow_6_c);
      ObjectSetText("hi_5_p1",DoubleToStr(hi_ma_p1_5,Digits),7,"Arial",fib_SR_shadow_6_c);
     }

   if(lo_ma_p1_6-hi_ma_p1_6>Ask-Bid)
     {
      ObjectCreate("lo_6_p1",OBJ_TREND,0,t1_p1, lo_ma_p1_6, t2_p1, lo_ma_p1_6);
      ObjectSet("lo_6_p1",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("lo_6_p1",OBJPROP_WIDTH,2);
      ObjectSet("lo_6_p1",OBJPROP_RAY,false);
      ObjectSet("lo_6_p1",OBJPROP_COLOR,fib_SR_shadow_7_c);
      ObjectSetText("lo_6_p1",DoubleToStr(lo_ma_p1_6,Digits),7,"Arial",fib_SR_shadow_7_c);

      ObjectCreate("hi_6_p1",OBJ_TREND,0,t1_p1, hi_ma_p1_6, t2_p1, hi_ma_p1_6);
      ObjectSet("hi_6_p1",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("hi_6_p1",OBJPROP_WIDTH,2);
      ObjectSet("hi_6_p1",OBJPROP_RAY,false);
      ObjectSet("hi_6_p1",OBJPROP_COLOR,fib_SR_shadow_7_c);
      ObjectSetText("hi_6_p1",DoubleToStr(hi_ma_p1_6,Digits),7,"Arial",fib_SR_shadow_7_c);
     }

   string space="             ";
   ObjectCreate("ma1_p1",OBJ_TEXT,0,t1_p1,ma1_p1);//13 ma
   ObjectSetText("ma1_p1",space+DoubleToStr(ma1_p1,Digits),8,"Arial",White);
   ObjectCreate("ma2_p1",OBJ_TEXT,0,t1_p1,ma2_p1);//21 ma
   ObjectSetText("ma2_p1",space+DoubleToStr(ma2_p1,Digits),8,"Arial",White);
   ObjectCreate("ma3_p1",OBJ_TEXT,0,t1_p1,ma3_p1);//34 ma

   if(Bid>ma3_p1) {ObjectSetText("ma3_p1",space+DoubleToStr(ma3_p1,Digits),8,"Arial",LightGreen);}
   if(Ask<ma3_p1) {ObjectSetText("ma3_p1",space+DoubleToStr(ma3_p1,Digits),8,"Arial",Pink);}
   if(Bid<=ma3_p1 && Ask>=ma3_p1)
     {
     ObjectSetText("ma3_p1",space+DoubleToStr(ma3_p1,Digits),8,"Arial",Yellow);}
   ObjectCreate("ma4_p1",OBJ_TEXT,0,t1_p1,ma4_p1);//55 ma
   if(Bid>ma4_p1) {ObjectSetText("ma4_p1",space+DoubleToStr(ma4_p1,Digits),8,"Arial",LightGreen);}
   if(Ask<ma4_p1) {ObjectSetText("ma4_p1",space+DoubleToStr(ma4_p1,Digits),8,"Arial",Pink);}
   if(Bid<=ma4_p1 && Ask>=ma4_p1)
     {
     ObjectSetText("ma4_p1",space+DoubleToStr(ma4_p1,Digits),8,"Arial",Yellow);}
   ObjectCreate("ma5_p1",OBJ_TEXT,0,t1_p1,ma5_p1);//89 ma
   if(Bid>ma5_p1) {ObjectSetText("ma5_p1",space+DoubleToStr(ma5_p1,Digits),8,"Arial",Green);}
   if(Ask<ma5_p1) {ObjectSetText("ma5_p1",space+DoubleToStr(ma5_p1,Digits),8,"Arial",Red);}
   if(Bid<=ma5_p1 && Ask>=ma5_p1)
     {
      ObjectSetText("ma5_p1",space+DoubleToStr(ma5_p1,Digits),8,"Arial",Yellow);
     }
   ObjectCreate("ma6_p1",OBJ_TEXT,0,t1_p1,NormalizeDouble(ma6_p1,Digits));//144 ma
   if(Bid>ma6_p1) {ObjectSetText("ma6_p1",space+DoubleToStr(ma6_p1,Digits),8,"Arial",Green);}
   if(Ask<ma6_p1) {ObjectSetText("ma6_p1",space+DoubleToStr(ma6_p1,Digits),8,"Arial",Red);}
   if(Bid<=ma6_p1 && Ask>=ma6_p1)
     {
     ObjectSetText("ma6_p1",space+DoubleToStr(ma6_p1,Digits),8,"Arial",Yellow);}
   ObjectCreate("ma7_p1",OBJ_TEXT,0,t1_p1,NormalizeDouble(ma7_p1,Digits));//233 ma
   if(Bid>ma7_p1) {ObjectSetText("ma7_p1",space+DoubleToStr(ma7_p1,Digits),8,"Arial",Green);}
   if(Ask<ma7_p1) {ObjectSetText("ma7_p1",space+DoubleToStr(ma7_p1,Digits),8,"Arial",Red);}
   if(Bid<=ma7_p1 && Ask>=ma7_p1)
     {
     ObjectSetText("ma7_p1",space+DoubleToStr(ma7_p1,Digits),8,"Arial",Yellow);}
  }

  void p2_Fib_Plot()
  {

   double lo_ma_p2,hi_ma_p2;
   lo_ma_p2=ma1_p2;
   if(ma2_p2<lo_ma_p2)  {lo_ma_p2=ma2_p2;}
   if(ma3_p2<lo_ma_p2)  {lo_ma_p2=ma3_p2;}
   if(ma4_p2<lo_ma_p2)  {lo_ma_p2=ma4_p2;}
   if(ma5_p2<lo_ma_p2)  {lo_ma_p2=ma5_p2;}
   if(ma6_p2<lo_ma_p2)  {lo_ma_p2=ma6_p2;}
   if(ma7_p2<lo_ma_p2)  {lo_ma_p2=ma7_p2;}
   lo_ma_p2=NormalizeDouble(lo_ma_p2+(fib_SR_shadow_1*Point),Digits);

   hi_ma_p2=ma7_p2;
   if(ma6_p2>hi_ma_p2)  {hi_ma_p2=ma6_p2;}
   if(ma5_p2>hi_ma_p2)  {hi_ma_p2=ma5_p2;}
   if(ma4_p2>hi_ma_p2)  {hi_ma_p2=ma4_p2;}
   if(ma3_p2>hi_ma_p2)  {hi_ma_p2=ma3_p2;}
   if(ma2_p2>hi_ma_p2)  {hi_ma_p2=ma2_p2;}
   if(ma1_p2>hi_ma_p2)  {hi_ma_p2=ma1_p2;}
   hi_ma_p2=NormalizeDouble(hi_ma_p2-(fib_SR_shadow_1*Point),Digits);

   if(lo_ma_p2-hi_ma_p2>Ask-Bid)
     {
      ObjectCreate("lcf_p2",OBJ_TREND,0,t1_p2, lo_ma_p2, t2_p2, lo_ma_p2);
      ObjectSet("lcf_p2",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("lcf_p2",OBJPROP_WIDTH,2);
      ObjectSet("lcf_p2",OBJPROP_RAY,false);
      ObjectSet("lcf_p2",OBJPROP_COLOR,fib_SR_shadow_1_c);
      ObjectSetText("lcf_p2",DoubleToStr(lo_ma_p2,Digits),7,"Arial",fib_SR_shadow_1_c);

      ObjectCreate("hcf_p2",OBJ_TREND,0,t1_p2, hi_ma_p2, t2_p2, hi_ma_p2);
      ObjectSet("hcf_p2",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("hcf_p2",OBJPROP_WIDTH,2);
      ObjectSet("hcf_p2",OBJPROP_RAY,false);
      ObjectSet("hcf_p2",OBJPROP_COLOR,fib_SR_shadow_1_c);
      ObjectSetText("hcf_p2",DoubleToStr(hi_ma_p2,Digits),7,"Arial",fib_SR_shadow_1_c);
     }

   double lo_ma_p2_1, lo_ma_p2_2, lo_ma_p2_3, lo_ma_p2_4, lo_ma_p2_5, lo_ma_p2_6;
   lo_ma_p2_1=lo_ma_p2+(fib_SR_shadow_2*Point);
   lo_ma_p2_2=lo_ma_p2_1+(fib_SR_shadow_3*Point);
   lo_ma_p2_3=lo_ma_p2_2+(fib_SR_shadow_4*Point);
   lo_ma_p2_4=lo_ma_p2_3+(fib_SR_shadow_5*Point);
   lo_ma_p2_5=lo_ma_p2_4+(fib_SR_shadow_6*Point);
   lo_ma_p2_6=lo_ma_p2_5+(fib_SR_shadow_7*Point);

   double hi_ma_p2_1, hi_ma_p2_2, hi_ma_p2_3, hi_ma_p2_4, hi_ma_p2_5, hi_ma_p2_6;
   hi_ma_p2_1=hi_ma_p2-(fib_SR_shadow_2*Point);
   hi_ma_p2_2=hi_ma_p2_1-(fib_SR_shadow_3*Point);
   hi_ma_p2_3=hi_ma_p2_2-(fib_SR_shadow_4*Point);
   hi_ma_p2_4=hi_ma_p2_3-(fib_SR_shadow_5*Point);
   hi_ma_p2_5=hi_ma_p2_4-(fib_SR_shadow_6*Point);
   hi_ma_p2_6=hi_ma_p2_5-(fib_SR_shadow_7*Point);

   if(lo_ma_p2_1-hi_ma_p2_1>Ask-Bid)
     {
      ObjectCreate("lo_1_p2",OBJ_TREND,0,t1_p2, lo_ma_p2_1, t2_p2, lo_ma_p2_1);
      ObjectSet("lo_1_p2",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("lo_1_p2",OBJPROP_WIDTH,2);
      ObjectSet("lo_1_p2",OBJPROP_RAY,false);
      ObjectSet("lo_1_p2",OBJPROP_COLOR,fib_SR_shadow_2_c);
      ObjectSetText("lo_1_p2",DoubleToStr(lo_ma_p2_1,Digits),7,"Arial",fib_SR_shadow_2_c);

      ObjectCreate("hi_1_p2",OBJ_TREND,0,t1_p2, hi_ma_p2_1, t2_p2, hi_ma_p2_1);
      ObjectSet("hi_1_p2",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("hi_1_p2",OBJPROP_WIDTH,2);
      ObjectSet("hi_1_p2",OBJPROP_RAY,false);
      ObjectSet("hi_1_p2",OBJPROP_COLOR,fib_SR_shadow_2_c);
      ObjectSetText("hi_1_p2",DoubleToStr(hi_ma_p2_1,Digits),7,"Arial",fib_SR_shadow_2_c);
     }

   if(lo_ma_p2_2-hi_ma_p2_2>Ask-Bid)
     {
      ObjectCreate("lo_2_p2",OBJ_TREND,0,t1_p2, lo_ma_p2_2, t2_p2, lo_ma_p2_2);
      ObjectSet("lo_2_p2",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("lo_2_p2",OBJPROP_WIDTH,2);
      ObjectSet("lo_2_p2",OBJPROP_RAY,false);
      ObjectSet("lo_2_p2",OBJPROP_COLOR,fib_SR_shadow_3_c);
      ObjectSetText("lo_2_p2",DoubleToStr(lo_ma_p2_2,Digits),7,"Arial",fib_SR_shadow_3_c);

      ObjectCreate("hi_2_p2",OBJ_TREND,0,t1_p2, hi_ma_p2_2, t2_p2, hi_ma_p2_2);
      ObjectSet("hi_2_p2",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("hi_2_p2",OBJPROP_WIDTH,2);
      ObjectSet("hi_2_p2",OBJPROP_RAY,false);
      ObjectSet("hi_2_p2",OBJPROP_COLOR,fib_SR_shadow_3_c);
      ObjectSetText("hi_2_p2",DoubleToStr(hi_ma_p2_2,Digits),7,"Arial",fib_SR_shadow_3_c);
     }

   if(lo_ma_p2_3-hi_ma_p2_3>Ask-Bid)
     {
      ObjectCreate("lo_3_p2",OBJ_TREND,0,t1_p2, lo_ma_p2_3, t2_p2, lo_ma_p2_3);
      ObjectSet("lo_3_p2",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("lo_3_p2",OBJPROP_WIDTH,2);
      ObjectSet("lo_3_p2",OBJPROP_RAY,false);
      ObjectSet("lo_3_p2",OBJPROP_COLOR,fib_SR_shadow_4_c);
      ObjectSetText("lo_3_p2",DoubleToStr(lo_ma_p2_3,Digits),7,"Arial",fib_SR_shadow_4_c);

      ObjectCreate("hi_3_p2",OBJ_TREND,0,t1_p2, hi_ma_p2_3, t2_p2, hi_ma_p2_3);
      ObjectSet("hi_3_p2",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("hi_3_p2",OBJPROP_WIDTH,2);
      ObjectSet("hi_3_p2",OBJPROP_RAY,false);
      ObjectSet("hi_3_p2",OBJPROP_COLOR,fib_SR_shadow_4_c);
      ObjectSetText("hi_3_p2",DoubleToStr(hi_ma_p2_3,Digits),7,"Arial",fib_SR_shadow_4_c);
     }

   if(lo_ma_p2_4-hi_ma_p2_4>Ask-Bid)
     {
      ObjectCreate("lo_4_p2",OBJ_TREND,0,t1_p2, lo_ma_p2_4, t2_p2, lo_ma_p2_4);
      ObjectSet("lo_4_p2",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("lo_4_p2",OBJPROP_WIDTH,2);
      ObjectSet("lo_4_p2",OBJPROP_RAY,false);
      ObjectSet("lo_4_p2",OBJPROP_COLOR,fib_SR_shadow_5_c);
      ObjectSetText("lo_4_p2",DoubleToStr(lo_ma_p2_4,Digits),7,"Arial",fib_SR_shadow_5_c);

      ObjectCreate("hi_4_p2",OBJ_TREND,0,t1_p2, hi_ma_p2_4, t2_p2, hi_ma_p2_4);
      ObjectSet("hi_4_p2",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("hi_4_p2",OBJPROP_WIDTH,2);
      ObjectSet("hi_4_p2",OBJPROP_RAY,false);
      ObjectSet("hi_4_p2",OBJPROP_COLOR,fib_SR_shadow_5_c);
      ObjectSetText("hi_4_p2",DoubleToStr(hi_ma_p2_4,Digits),7,"Arial",fib_SR_shadow_5_c);
     }

   if(lo_ma_p2_5-hi_ma_p2_5>Ask-Bid)
     {
      ObjectCreate("lo_5_p2",OBJ_TREND,0,t1_p2, lo_ma_p2_5, t2_p2, lo_ma_p2_5);
      ObjectSet("lo_5_p2",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("lo_5_p2",OBJPROP_WIDTH,2);
      ObjectSet("lo_5_p2",OBJPROP_RAY,false);
      ObjectSet("lo_5_p2",OBJPROP_COLOR,fib_SR_shadow_6_c);
      ObjectSetText("lo_5_p2",DoubleToStr(lo_ma_p2_5,Digits),7,"Arial",fib_SR_shadow_6_c);

      ObjectCreate("hi_5_p2",OBJ_TREND,0,t1_p2, hi_ma_p2_5, t2_p2, hi_ma_p2_5);
      ObjectSet("hi_5_p2",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("hi_5_p2",OBJPROP_WIDTH,2);
      ObjectSet("hi_5_p2",OBJPROP_RAY,false);
      ObjectSet("hi_5_p2",OBJPROP_COLOR,fib_SR_shadow_6_c);
      ObjectSetText("hi_5_p2",DoubleToStr(hi_ma_p2_5,Digits),7,"Arial",fib_SR_shadow_6_c);
     }

   if(lo_ma_p2_6-hi_ma_p2_6>Ask-Bid)
     {
      ObjectCreate("lo_6_p2",OBJ_TREND,0,t1_p2, lo_ma_p2_6, t2_p2, lo_ma_p2_6);
      ObjectSet("lo_6_p2",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("lo_6_p2",OBJPROP_WIDTH,2);
      ObjectSet("lo_6_p2",OBJPROP_RAY,false);
      ObjectSet("lo_6_p2",OBJPROP_COLOR,fib_SR_shadow_7_c);
      ObjectSetText("lo_6_p2",DoubleToStr(lo_ma_p2_6,Digits),7,"Arial",fib_SR_shadow_7_c);

      ObjectCreate("hi_6_p2",OBJ_TREND,0,t1_p2, hi_ma_p2_6, t2_p2, hi_ma_p2_6);
      ObjectSet("hi_6_p2",OBJPROP_STYLE,STYLE_SOLID);
      ObjectSet("hi_6_p2",OBJPROP_WIDTH,2)

Показано первые 50% кода (символов: 39279)