//+------------------------------------------------------------------+ //| 4 Period MA.mq4 | //| Copyright © 2006, tageiger aka fxid10t@yahoo.com | //| http://www.metatrader.org | //+------------------------------------------------------------------+ #property copyright "Copyright © 2006, tageiger aka fxid10t@yahoo.com" #property link "mailto:fxid10t@yahoo.com" #property indicator_chart_window extern int p1.ma=5;//Period() in minutes extern int p2.ma=15;//Period() in minutes extern int p3.ma=30;//Period() in minutes extern int p4.ma=60;//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=8; extern int fib.SR.shadow.2=13; extern int fib.SR.shadow.3=21; extern int fib.SR.shadow.4=34; extern int fib.SR.shadow.5=55; extern int fib.SR.shadow.6=89; extern int fib.SR.shadow.7=144; 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; double bb1, bb2, bb3, bb4; double tmb1,tmb2,tmb3,tmb4,tmr1,tmr2,tmr3,tmr4; datetime t1.p1, t2.p1, t1.p2, t2.p2, t1.p3, t2.p3, t1.p4, t2.p4; int init() { return(0); } int deinit() { ObjectsDeleteAll(0,OBJ_TEXT);ObjectsDeleteAll(0,OBJ_RECTANGLE); ObjectsDeleteAll(0,OBJ_ARROW);ObjectsDeleteAll(0,OBJ_TREND); return(0); } int start() { ObjectsDeleteAll(); // ObjectCreate("regression channel",OBJ_REGRESSION,0,Time[STD.Rgres.length],Bid,Time[0],Ask); // ObjectSet("regression channel",OBJPROP_RAY,true); // ObjectCreate("std channel",OBJ_STDDEVCHANNEL,0,Time[STD.Rgres.length],Bid,Time[0],Ask); // ObjectSet("std channel",OBJPROP_DEVIATION,STD.width); // ObjectSet("std channel",OBJPROP_COLOR,Olive); // ObjectSet("std channel",OBJPROP_RAY,true); //p1 ma settings ma1.p1=iMA(Symbol(),p1.ma,ma1.Length,0,ma.Method,ma.applied.price,0); ma2.p1=iMA(Symbol(),p1.ma,ma2.Length,0,ma.Method,ma.applied.price,0); ma3.p1=iMA(Symbol(),p1.ma,ma3.Length,0,ma.Method,ma.applied.price,0); ma4.p1=iMA(Symbol(),p1.ma,ma4.Length,0,ma.Method,ma.applied.price,0); ma5.p1=iMA(Symbol(),p1.ma,ma5.Length,0,ma.Method,ma.applied.price,0); ma6.p1=iMA(Symbol(),p1.ma,ma6.Length,0,ma.Method,ma.applied.price,0); ma7.p1=iMA(Symbol(),p1.ma,ma7.Length,0,ma.Method,ma.applied.price,0); //-------------- //p2 ma settings ma1.p2=iMA(Symbol(),p2.ma,ma1.Length,0,ma.Method,ma.applied.price,0); ma2.p2=iMA(Symbol(),p2.ma,ma2.Length,0,ma.Method,ma.applied.price,0); ma3.p2=iMA(Symbol(),p2.ma,ma3.Length,0,ma.Method,ma.applied.price,0); ma4.p2=iMA(Symbol(),p2.ma,ma4.Length,0,ma.Method,ma.applied.price,0); ma5.p2=iMA(Symbol(),p2.ma,ma5.Length,0,ma.Method,ma.applied.price,0); ma6.p2=iMA(Symbol(),p2.ma,ma6.Length,0,ma.Method,ma.applied.price,0); ma7.p2=iMA(Symbol(),p2.ma,ma7.Length,0,ma.Method,ma.applied.price,0); //-------------- //p3 ma settings ma1.p3=iMA(Symbol(),p3.ma,ma1.Length,0,ma.Method,ma.applied.price,0); ma2.p3=iMA(Symbol(),p3.ma,ma2.Length,0,ma.Method,ma.applied.price,0); ma3.p3=iMA(Symbol(),p3.ma,ma3.Length,0,ma.Method,ma.applied.price,0); ma4.p3=iMA(Symbol(),p3.ma,ma4.Length,0,ma.Method,ma.applied.price,0); ma5.p3=iMA(Symbol(),p3.ma,ma5.Length,0,ma.Method,ma.applied.price,0); ma6.p3=iMA(Symbol(),p3.ma,ma6.Length,0,ma.Method,ma.applied.price,0); ma7.p3=iMA(Symbol(),p3.ma,ma7.Length,0,ma.Method,ma.applied.price,0); //-------------- //p4 ma settings ma1.p4=iMA(Symbol(),p4.ma,ma1.Length,0,ma.Method,ma.applied.price,0); ma2.p4=iMA(Symbol(),p4.ma,ma2.Length,0,ma.Method,ma.applied.price,0); ma3.p4=iMA(Symbol(),p4.ma,ma3.Length,0,ma.Method,ma.applied.price,0); ma4.p4=iMA(Symbol(),p4.ma,ma4.Length,0,ma.Method,ma.applied.price,0); ma5.p4=iMA(Symbol(),p4.ma,ma5.Length,0,ma.Method,ma.applied.price,0); ma6.p4=iMA(Symbol(),p4.ma,ma6.Length,0,ma.Method,ma.applied.price,0); ma7.p4=iMA(Symbol(),p4.ma,ma7.Length,0,ma.Method,ma.applied.price,0); //--------------- bb1=(iBullsPower(NULL,p1.ma,5,PRICE_CLOSE,0)+ iBearsPower(NULL,p1.ma,5,PRICE_CLOSE,0)*10000); bb2=(iBullsPower(NULL,p2.ma,5,PRICE_CLOSE,0)+ iBearsPower(NULL,p2.ma,5,PRICE_CLOSE,0)*10000); bb3=(iBullsPower(NULL,p3.ma,5,PRICE_CLOSE,0)+ iBearsPower(NULL,p3.ma,5,PRICE_CLOSE,0)*10000); bb4=(iBullsPower(NULL,p4.ma,5,PRICE_CLOSE,0)+ iBearsPower(NULL,p4.ma,5,PRICE_CLOSE,0)*10000); tmb1=iCustom(NULL,p1.ma,"TrendManager",7,2,1,0); tmb2=iCustom(NULL,p2.ma,"TrendManager",7,2,1,0); tmb3=iCustom(NULL,p3.ma,"TrendManager",7,2,1,0); tmb4=iCustom(NULL,p4.ma,"TrendManager",7,2,1,0); tmr1=iCustom(NULL,p1.ma,"TrendManager",7,2,0,0); tmr2=iCustom(NULL,p2.ma,"TrendManager",7,2,0,0); tmr3=iCustom(NULL,p3.ma,"TrendManager",7,2,0,0); tmr4=iCustom(NULL,p4.ma,"TrendManager",7,2,0,0); Comment(p1.ma ,"Minutes Bull/Bear Power ",bb1,"\n",p2.ma ,"Minutes Bull/Bear Power ",bb2,"\n",p3.ma ,"Minutes Bull/Bear Power ",bb3,"\n",p4.ma ,"Minutes Bull/Bear Power ",bb4); //-------------- Time.Coordinate.Set(); p1.Fib.Plot(); p2.Fib.Plot(); p3.Fib.Plot(); p4.Fib.Plot(); column(); //-------------- return(0);} //+------------------------------------------------------------------+ void Time.Coordinate.Set() { //....Variable Settings for Object Spatial Placement..... 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() { //p1 dynamic fibo levels double lo.ma.p1,hi.ma.p1; lo.ma.p1=ma1.p1; if(ma2.p1hi.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); //p1 center dynamic fib placement 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); //p1 1st level (hi.1.p1, lo.1.p1) 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); } // 2st level (hi.2.p1, lo.2.p1) 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); } // 3rd level (hi.3.p1, lo.3.p1) 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); } // 4th level (hi.4.p1, lo.4.p1) 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); } // 5th level (hi.5.p1, lo.5.p1) 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); } // 6th level (hi.6.p1, lo.6.p1) 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); } //...............Moving Average Support & Resistance Levels.............................. 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",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",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",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",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",Yellow);} }//end p1.Fib.Plot() void p2.Fib.Plot() { //p2 dynamic fibo levels double lo.ma.p2,hi.ma.p2; lo.ma.p2=ma1.p2; if(ma2.p2hi.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); //p2 center dynamic fib placement 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); //p2 1st level (hi.1.p2, lo.1.p2) 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); } // 2st level (hi.2.p2, lo.2.p2) 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); } // 3rd level (hi.3.p2, lo.3.p2) 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); } // 4th level (hi.4.p2, lo.4.p2) 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); } // 5th level (hi.5.p2, lo.5.p2) 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); } // 6th level (hi.6.p2, lo.6.p2) 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); ObjectSet("hi.6.p2",OBJPROP_RAY,false); ObjectSet("hi.6.p2",OBJPROP_COLOR,fib.SR.shadow.7.c); ObjectSetText("hi.6.p2",DoubleToStr(hi.ma.p2.6,Digits),7,"Arial",fib.SR.shadow.7.c); } //...............Moving Average Support & Resistance Levels.............................. string space=" "; // ObjectCreate("ma1.p2",OBJ_TEXT,0,t1.p2,ma1.p2);//13 ma ObjectSetText("ma1.p2",space+DoubleToStr(ma1.p2,Digits),8,"Arial",White); // ObjectCreate("ma2.p2",OBJ_TEXT,0,t1.p2,ma2.p2);//21 ma ObjectSetText("ma2.p2",space+DoubleToStr(ma2.p2,Digits),8,"Arial",White); // ObjectCreate("ma3.p2",OBJ_TEXT,0,t1.p2,ma3.p2);//34 ma if(Bid>ma3.p2) {ObjectSetText("ma3.p2",space+DoubleToStr(ma3.p2,Digits),8,"Arial",LightGreen);} if(Ask=ma3.p2) { ObjectSetText("ma3.p2",space+DoubleToStr(ma3.p2,Digits),8,"Arial",Yellow);} // ObjectCreate("ma4.p2",OBJ_TEXT,0,t1.p2,ma4.p2);//55 ma if(Bid>ma4.p2) {ObjectSetText("ma4.p2",space+DoubleToStr(ma4.p2,Digits),8,"Arial",LightGreen);} if(Ask=ma4.p2) { ObjectSetText("ma4.p2",space+DoubleToStr(ma4.p2,Digits),8,"Arial",Yellow);} // ObjectCreate("ma5.p2",OBJ_TEXT,0,t1.p2,ma5.p2);//89 ma if(Bid>ma5.p2) {ObjectSetText("ma5.p2",space+DoubleToStr(ma5.p2,Digits),8,"Arial",Green);} if(Ask=ma5.p2) { ObjectSetText("ma5.p2",space+DoubleToStr(ma5.p2,Digits),8,"Arial",Yellow);} // ObjectCreate("ma6.p2",OBJ_TEXT,0,t1.p2,NormalizeDouble(ma6.p2,Digits));//144 ma if(Bid>ma6.p2) {ObjectSetText("ma6.p2",space+DoubleToStr(ma6.p2,Digits),8,"Arial",Green);} if(Ask=ma6.p2) { ObjectSetText("ma6.p2",space+DoubleToStr(ma6.p2,Digits),8,"Arial",Yellow);} // ObjectCreate("ma7.p2",OBJ_TEXT,0,t1.p2,NormalizeDouble(ma7.p2,Digits));//233 ma if(Bid>ma7.p2) {ObjectSetText("ma7.p2",space+DoubleToStr(ma7.p2,Digits),8,"Arial",Green);} if(Ask=ma7.p2) { ObjectSetText("ma7.p2",space+DoubleToStr(ma7.p2,Digits),8,"Arial",Yellow);} }//end p2.Fib.Plot() void p3.Fib.Plot() { //p3 dynamic fibo levels double lo.ma.p3,hi.ma.p3; lo.ma.p3=ma1.p3; if(ma2.p3hi.ma.p3) {hi.ma.p3=ma6.p3;} if(ma5.p3>hi.ma.p3) {hi.ma.p3=ma5.p3;} if(ma4.p3>hi.ma.p3) {hi.ma.p3=ma4.p3;} if(ma3.p3>hi.ma.p3) {hi.ma.p3=ma3.p3;} if(ma2.p3>hi.ma.p3) {hi.ma.p3=ma2.p3;} if(ma1.p3>hi.ma.p3) {hi.ma.p3=ma1.p3;} hi.ma.p3=NormalizeDouble(hi.ma.p3-(fib.SR.shadow.1*Point),Digits); //p3 center dynamic fib placement if(lo.ma.p3-hi.ma.p3>Ask-Bid) { ObjectCreate("lcf.p3",OBJ_TREND,0,t1.p3, lo.ma.p3, t2.p3, lo.ma.p3); ObjectSet("lcf.p3",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("lcf.p3",OBJPROP_WIDTH,2); ObjectSet("lcf.p3",OBJPROP_RAY,false); ObjectSet("lcf.p3",OBJPROP_COLOR,fib.SR.shadow.1.c); ObjectSetText("lcf.p3",DoubleToStr(lo.ma.p3,Digits),7,"Arial",fib.SR.shadow.1.c); ObjectCreate("hcf.p3",OBJ_TREND,0,t1.p3, hi.ma.p3, t2.p3, hi.ma.p3); ObjectSet("hcf.p3",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("hcf.p3",OBJPROP_WIDTH,2); ObjectSet("hcf.p3",OBJPROP_RAY,false); ObjectSet("hcf.p3",OBJPROP_COLOR,fib.SR.shadow.1.c); ObjectSetText("hcf.p3",DoubleToStr(hi.ma.p3,Digits),7,"Arial",fib.SR.shadow.1.c); } double lo.ma.p3.1, lo.ma.p3.2, lo.ma.p3.3, lo.ma.p3.4, lo.ma.p3.5, lo.ma.p3.6; lo.ma.p3.1=lo.ma.p3+(fib.SR.shadow.2*Point); lo.ma.p3.2=lo.ma.p3.1+(fib.SR.shadow.3*Point); lo.ma.p3.3=lo.ma.p3.2+(fib.SR.shadow.4*Point); lo.ma.p3.4=lo.ma.p3.3+(fib.SR.shadow.5*Point); lo.ma.p3.5=lo.ma.p3.4+(fib.SR.shadow.6*Point); lo.ma.p3.6=lo.ma.p3.5+(fib.SR.shadow.7*Point); double hi.ma.p3.1, hi.ma.p3.2, hi.ma.p3.3, hi.ma.p3.4, hi.ma.p3.5, hi.ma.p3.6; hi.ma.p3.1=hi.ma.p3-(fib.SR.shadow.2*Point); hi.ma.p3.2=hi.ma.p3.1-(fib.SR.shadow.3*Point); hi.ma.p3.3=hi.ma.p3.2-(fib.SR.shadow.4*Point); hi.ma.p3.4=hi.ma.p3.3-(fib.SR.shadow.5*Point); hi.ma.p3.5=hi.ma.p3.4-(fib.SR.shadow.6*Point); hi.ma.p3.6=hi.ma.p3.5-(fib.SR.shadow.7*Point); //p3 1st level (hi.1.p3, lo.1.p3) if(lo.ma.p3.1-hi.ma.p3.1>Ask-Bid) { ObjectCreate("lo.1.p3",OBJ_TREND,0,t1.p3, lo.ma.p3.1, t2.p3, lo.ma.p3.1); ObjectSet("lo.1.p3",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("lo.1.p3",OBJPROP_WIDTH,2); ObjectSet("lo.1.p3",OBJPROP_RAY,false); ObjectSet("lo.1.p3",OBJPROP_COLOR,fib.SR.shadow.2.c); ObjectSetText("lo.1.p3",DoubleToStr(lo.ma.p3.1,Digits),7,"Arial",fib.SR.shadow.2.c); ObjectCreate("hi.1.p3",OBJ_TREND,0,t1.p3, hi.ma.p3.1, t2.p3, hi.ma.p3.1); ObjectSet("hi.1.p3",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("hi.1.p3",OBJPROP_WIDTH,2); ObjectSet("hi.1.p3",OBJPROP_RAY,false); ObjectSet("hi.1.p3",OBJPROP_COLOR,fib.SR.shadow.2.c); ObjectSetText("hi.1.p3",DoubleToStr(hi.ma.p3.1,Digits),7,"Arial",fib.SR.shadow.2.c); } // 2st level (hi.2.p3, lo.2.p3) if(lo.ma.p3.2-hi.ma.p3.2>Ask-Bid) { ObjectCreate("lo.2.p3",OBJ_TREND,0,t1.p3, lo.ma.p3.2, t2.p3, lo.ma.p3.2); ObjectSet("lo.2.p3",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("lo.2.p3",OBJPROP_WIDTH,2); ObjectSet("lo.2.p3",OBJPROP_RAY,false); ObjectSet("lo.2.p3",OBJPROP_COLOR,fib.SR.shadow.3.c); ObjectSetText("lo.2.p3",DoubleToStr(lo.ma.p3.2,Digits),7,"Arial",fib.SR.shadow.3.c); ObjectCreate("hi.2.p3",OBJ_TREND,0,t1.p3, hi.ma.p3.2, t2.p3, hi.ma.p3.2); ObjectSet("hi.2.p3",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("hi.2.p3",OBJPROP_WIDTH,2); ObjectSet("hi.2.p3",OBJPROP_RAY,false); ObjectSet("hi.2.p3",OBJPROP_COLOR,fib.SR.shadow.3.c); ObjectSetText("hi.2.p3",DoubleToStr(hi.ma.p3.2,Digits),7,"Arial",fib.SR.shadow.3.c); } // 3rd level (hi.3.p3, lo.3.p3) if(lo.ma.p3.3-hi.ma.p3.3>Ask-Bid) { ObjectCreate("lo.3.p3",OBJ_TREND,0,t1.p3, lo.ma.p3.3, t2.p3, lo.ma.p3.3); ObjectSet("lo.3.p3",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("lo.3.p3",OBJPROP_WIDTH,2); ObjectSet("lo.3.p3",OBJPROP_RAY,false); ObjectSet("lo.3.p3",OBJPROP_COLOR,fib.SR.shadow.4.c); ObjectSetText("lo.3.p3",DoubleToStr(lo.ma.p3.3,Digits),7,"Arial",fib.SR.shadow.4.c); ObjectCreate("hi.3.p3",OBJ_TREND,0,t1.p3, hi.ma.p3.3, t2.p3, hi.ma.p3.3); ObjectSet("hi.3.p3",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("hi.3.p3",OBJPROP_WIDTH,2); ObjectSet("hi.3.p3",OBJPROP_RAY,false); ObjectSet("hi.3.p3",OBJPROP_COLOR,fib.SR.shadow.4.c); ObjectSetText("hi.3.p3",DoubleToStr(hi.ma.p3.3,Digits),7,"Arial",fib.SR.shadow.4.c); } // 4th level (hi.4.p3, lo.4.p3) if(lo.ma.p3.4-hi.ma.p3.4>Ask-Bid) { ObjectCreate("lo.4.p3",OBJ_TREND,0,t1.p3, lo.ma.p3.4, t2.p3, lo.ma.p3.4); ObjectSet("lo.4.p3",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("lo.4.p3",OBJPROP_WIDTH,2); ObjectSet("lo.4.p3",OBJPROP_RAY,false); ObjectSet("lo.4.p3",OBJPROP_COLOR,fib.SR.shadow.5.c); ObjectSetText("lo.4.p3",DoubleToStr(lo.ma.p3.4,Digits),7,"Arial",fib.SR.shadow.5.c); ObjectCreate("hi.4.p3",OBJ_TREND,0,t1.p3, hi.ma.p3.4, t2.p3, hi.ma.p3.4); ObjectSet("hi.4.p3",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("hi.4.p3",OBJPROP_WIDTH,2); ObjectSet("hi.4.p3",OBJPROP_RAY,false); ObjectSet("hi.4.p3",OBJPROP_COLOR,fib.SR.shadow.5.c); ObjectSetText("hi.4.p3",DoubleToStr(hi.ma.p3.4,Digits),7,"Arial",fib.SR.shadow.5.c); } // 5th level (hi.5.p3, lo.5.p3) if(lo.ma.p3.5-hi.ma.p3.5>Ask-Bid) { ObjectCreate("lo.5.p3",OBJ_TREND,0,t1.p3, lo.ma.p3.5, t2.p3, lo.ma.p3.5); ObjectSet("lo.5.p3",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("lo.5.p3",OBJPROP_WIDTH,2); ObjectSet("lo.5.p3",OBJPROP_RAY,false); ObjectSet("lo.5.p3",OBJPROP_COLOR,fib.SR.shadow.6.c); ObjectSetText("lo.5.p3",DoubleToStr(lo.ma.p3.5,Digits),7,"Arial",fib.SR.shadow.6.c); ObjectCreate("hi.5.p3",OBJ_TREND,0,t1.p3, hi.ma.p3.5, t2.p3, hi.ma.p3.5); ObjectSet("hi.5.p3",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("hi.5.p3",OBJPROP_WIDTH,2); ObjectSet("hi.5.p3",OBJPROP_RAY,false); ObjectSet("hi.5.p3",OBJPROP_COLOR,fib.SR.shadow.6.c); ObjectSetText("hi.5.p3",DoubleToStr(hi.ma.p3.5,Digits),7,"Arial",fib.SR.shadow.6.c); } // 6th level (hi.6.p3, lo.6.p3) if(lo.ma.p3.6-hi.ma.p3.6>Ask-Bid) { ObjectCreate("lo.6.p3",OBJ_TREND,0,t1.p3, lo.ma.p3.6, t2.p3, lo.ma.p3.6); ObjectSet("lo.6.p3",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("lo.6.p3",OBJPROP_WIDTH,2); ObjectSet("lo.6.p3",OBJPROP_RAY,false); ObjectSet("lo.6.p3",OBJPROP_COLOR,fib.SR.shadow.7.c); ObjectSetText("lo.6.p3",DoubleToStr(lo.ma.p3.6,Digits),7,"Arial",fib.SR.shadow.7.c); ObjectCreate("hi.6.p3",OBJ_TREND,0,t1.p3, hi.ma.p3.6, t2.p3, hi.ma.p3.6); ObjectSet("hi.6.p3",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("hi.6.p3",OBJPROP_WIDTH,2); ObjectSet("hi.6.p3",OBJPROP_RAY,false); ObjectSet("hi.6.p3",OBJPROP_COLOR,fib.SR.shadow.7.c); ObjectSetText("hi.6.p3",DoubleToStr(hi.ma.p3.6,Digits),7,"Arial",fib.SR.shadow.7.c); } //...............Moving Average Support & Resistance Levels.............................. string space=" "; // ObjectCreate("ma1.p3",OBJ_TEXT,0,t1.p3,ma1.p3);//13 ma ObjectSetText("ma1.p3",space+DoubleToStr(ma1.p3,Digits),8,"Arial",White); // ObjectCreate("ma2.p3",OBJ_TEXT,0,t1.p3,ma2.p3);//21 ma ObjectSetText("ma2.p3",space+DoubleToStr(ma2.p3,Digits),8,"Arial",White); // ObjectCreate("ma3.p3",OBJ_TEXT,0,t1.p3,ma3.p3);//34 ma if(Bid>ma3.p3) {ObjectSetText("ma3.p3",space+DoubleToStr(ma3.p3,Digits),8,"Arial",LightGreen);} if(Ask=ma3.p3) { ObjectSetText("ma3.p3",space+DoubleToStr(ma3.p3,Digits),8,"Arial",Yellow);} // ObjectCreate("ma4.p3",OBJ_TEXT,0,t1.p3,ma4.p3);//55 ma if(Bid>ma4.p3) {ObjectSetText("ma4.p3",space+DoubleToStr(ma4.p3,Digits),8,"Arial",LightGreen);} if(Ask=ma4.p3) { ObjectSetText("ma4.p3",space+DoubleToStr(ma4.p3,Digits),8,"Arial",Yellow);} // ObjectCreate("ma5.p3",OBJ_TEXT,0,t1.p3,ma5.p3);//89 ma if(Bid>ma5.p3) {ObjectSetText("ma5.p3",space+DoubleToStr(ma5.p3,Digits),8,"Arial",Green);} if(Ask=ma5.p3) { ObjectSetText("ma5.p3",space+DoubleToStr(ma5.p3,Digits),8,"Arial",Yellow);} // ObjectCreate("ma6.p3",OBJ_TEXT,0,t1.p3,NormalizeDouble(ma6.p3,Digits));//144 ma if(Bid>ma6.p3) {ObjectSetText("ma6.p3",space+DoubleToStr(ma6.p3,Digits),8,"Arial",Green);} if(Ask=ma6.p3) { ObjectSetText("ma6.p3",space+DoubleToStr(ma6.p3,Digits),8,"Arial",Yellow);} // ObjectCreate("ma7.p3",OBJ_TEXT,0,t1.p3,NormalizeDouble(ma7.p3,Digits));//233 ma if(Bid>ma7.p3) {ObjectSetText("ma7.p3",space+DoubleToStr(ma7.p3,Digits),8,"Arial",Green);} if(Ask=ma7.p3) { ObjectSetText("ma7.p3",space+DoubleToStr(ma7.p3,Digits),8,"Arial",Yellow);} }//end p3.Fib.Plot() void p4.Fib.Plot() { //p4 dynamic fibo levels double lo.ma.p4,hi.ma.p4; lo.ma.p4=ma1.p4; if(ma2.p4hi.ma.p4) {hi.ma.p4=ma6.p4;} if(ma5.p4>hi.ma.p4) {hi.ma.p4=ma5.p4;} if(ma4.p4>hi.ma.p4) {hi.ma.p4=ma4.p4;} if(ma3.p4>hi.ma.p4) {hi.ma.p4=ma3.p4;} if(ma2.p4>hi.ma.p4) {hi.ma.p4=ma2.p4;} if(ma1.p4>hi.ma.p4) {hi.ma.p4=ma1.p4;} hi.ma.p4=NormalizeDouble(hi.ma.p4-(fib.SR.shadow.1*Point),Digits); //p4 center dynamic fib placement if(lo.ma.p4-hi.ma.p4>Ask-Bid) { ObjectCreate("lcf.p4",OBJ_TREND,0,t1.p4, lo.ma.p4, t2.p4, lo.ma.p4); ObjectSet("lcf.p4",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("lcf.p4",OBJPROP_WIDTH,2); ObjectSet("lcf.p4",OBJPROP_RAY,false); ObjectSet("lcf.p4",OBJPROP_COLOR,fib.SR.shadow.1.c); ObjectSetText("lcf.p4",DoubleToStr(lo.ma.p4,Digits),7,"Arial",fib.SR.shadow.1.c); ObjectCreate("hcf.p4",OBJ_TREND,0,t1.p4, hi.ma.p4, t2.p4, hi.ma.p4); ObjectSet("hcf.p4",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("hcf.p4",OBJPROP_WIDTH,2); ObjectSet("hcf.p4",OBJPROP_RAY,false); ObjectSet("hcf.p4",OBJPROP_COLOR,fib.SR.shadow.1.c); ObjectSetText("hcf.p4",DoubleToStr(hi.ma.p4,Digits),7,"Arial",fib.SR.shadow.1.c); } double lo.ma.p4.1, lo.ma.p4.2, lo.ma.p4.3, lo.ma.p4.4, lo.ma.p4.5, lo.ma.p4.6; lo.ma.p4.1=lo.ma.p4+(fib.SR.shadow.2*Point); lo.ma.p4.2=lo.ma.p4.1+(fib.SR.shadow.3*Point); lo.ma.p4.3=lo.ma.p4.2+(fib.SR.shadow.4*Point); lo.ma.p4.4=lo.ma.p4.3+(fib.SR.shadow.5*Point); lo.ma.p4.5=lo.ma.p4.4+(fib.SR.shadow.6*Point); lo.ma.p4.6=lo.ma.p4.5+(fib.SR.shadow.7*Point); double hi.ma.p4.1, hi.ma.p4.2, hi.ma.p4.3, hi.ma.p4.4, hi.ma.p4.5, hi.ma.p4.6; hi.ma.p4.1=hi.ma.p4-(fib.SR.shadow.2*Point); hi.ma.p4.2=hi.ma.p4.1-(fib.SR.shadow.3*Point); hi.ma.p4.3=hi.ma.p4.2-(fib.SR.shadow.4*Point); hi.ma.p4.4=hi.ma.p4.3-(fib.SR.shadow.5*Point); hi.ma.p4.5=hi.ma.p4.4-(fib.SR.shadow.6*Point); hi.ma.p4.6=hi.ma.p4.5-(fib.SR.shadow.7*Point); //p4 1st level (hi.1.p4, lo.1.p4) if(lo.ma.p4.1-hi.ma.p4.1>Ask-Bid) { ObjectCreate("lo.1.p4",OBJ_TREND,0,t1.p4, lo.ma.p4.1, t2.p4, lo.ma.p4.1); ObjectSet("lo.1.p4",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("lo.1.p4",OBJPROP_WIDTH,2); ObjectSet("lo.1.p4",OBJPROP_RAY,false); ObjectSet("lo.1.p4",OBJPROP_COLOR,fib.SR.shadow.2.c); ObjectSetText("lo.1.p4",DoubleToStr(lo.ma.p4.1,Digits),7,"Arial",fib.SR.shadow.2.c); ObjectCreate("hi.1.p4",OBJ_TREND,0,t1.p4, hi.ma.p4.1, t2.p4, hi.ma.p4.1); ObjectSet("hi.1.p4",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("hi.1.p4",OBJPROP_WIDTH,2); ObjectSet("hi.1.p4",OBJPROP_RAY,false); ObjectSet("hi.1.p4",OBJPROP_COLOR,fib.SR.shadow.2.c); ObjectSetText("hi.1.p4",DoubleToStr(hi.ma.p4.1,Digits),7,"Arial",fib.SR.shadow.2.c); } // 2st level (hi.2.p4, lo.2.p4) if(lo.ma.p4.2-hi.ma.p4.2>Ask-Bid) { ObjectCreate("lo.2.p4",OBJ_TREND,0,t1.p4, lo.ma.p4.2, t2.p4, lo.ma.p4.2); ObjectSet("lo.2.p4",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("lo.2.p4",OBJPROP_WIDTH,2); ObjectSet("lo.2.p4",OBJPROP_RAY,false); ObjectSet("lo.2.p4",OBJPROP_COLOR,fib.SR.shadow.3.c); ObjectSetText("lo.2.p4",DoubleToStr(lo.ma.p4.2,Digits),7,"Arial",fib.SR.shadow.3.c); ObjectCreate("hi.2.p4",OBJ_TREND,0,t1.p4, hi.ma.p4.2, t2.p4, hi.ma.p4.2); ObjectSet("hi.2.p4",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("hi.2.p4",OBJPROP_WIDTH,2); ObjectSet("hi.2.p4",OBJPROP_RAY,false); ObjectSet("hi.2.p4",OBJPROP_COLOR,fib.SR.shadow.3.c); ObjectSetText("hi.2.p4",DoubleToStr(hi.ma.p4.2,Digits),7,"Arial",fib.SR.shadow.3.c); } // 3rd level (hi.3.p4, lo.3.p4) if(lo.ma.p4.3-hi.ma.p4.3>Ask-Bid) { ObjectCreate("lo.3.p4",OBJ_TREND,0,t1.p4, lo.ma.p4.3, t2.p4, lo.ma.p4.3); ObjectSet("lo.3.p4",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("lo.3.p4",OBJPROP_WIDTH,2); ObjectSet("lo.3.p4",OBJPROP_RAY,false); ObjectSet("lo.3.p4",OBJPROP_COLOR,fib.SR.shadow.4.c); ObjectSetText("lo.3.p4",DoubleToStr(lo.ma.p4.3,Digits),7,"Arial",fib.SR.shadow.4.c); ObjectCreate("hi.3.p4",OBJ_TREND,0,t1.p4, hi.ma.p4.3, t2.p4, hi.ma.p4.3); ObjectSet("hi.3.p4",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("hi.3.p4",OBJPROP_WIDTH,2); ObjectSet("hi.3.p4",OBJPROP_RAY,false); ObjectSet("hi.3.p4",OBJPROP_COLOR,fib.SR.shadow.4.c); ObjectSetText("hi.3.p4",DoubleToStr(hi.ma.p4.3,Digits),7,"Arial",fib.SR.shadow.4.c); } // 4th level (hi.4.p4, lo.4.p4) if(lo.ma.p4.4-hi.ma.p4.4>Ask-Bid) { ObjectCreate("lo.4.p4",OBJ_TREND,0,t1.p4, lo.ma.p4.4, t2.p4, lo.ma.p4.4); ObjectSet("lo.4.p4",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("lo.4.p4",OBJPROP_WIDTH,2); ObjectSet("lo.4.p4",OBJPROP_RAY,false); ObjectSet("lo.4.p4",OBJPROP_COLOR,fib.SR.shadow.5.c); ObjectSetText("lo.4.p4",DoubleToStr(lo.ma.p4.4,Digits),7,"Arial",fib.SR.shadow.5.c); ObjectCreate("hi.4.p4",OBJ_TREND,0,t1.p4, hi.ma.p4.4, t2.p4, hi.ma.p4.4); ObjectSet("hi.4.p4",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("hi.4.p4",OBJPROP_WIDTH,2); ObjectSet("hi.4.p4",OBJPROP_RAY,false); ObjectSet("hi.4.p4",OBJPROP_COLOR,fib.SR.shadow.5.c); ObjectSetText("hi.4.p4",DoubleToStr(hi.ma.p4.4,Digits),7,"Arial",fib.SR.shadow.5.c); } // 5th level (hi.5.p4, lo.5.p4) if(lo.ma.p4.5-hi.ma.p4.5>Ask-Bid) { ObjectCreate("lo.5.p4",OBJ_TREND,0,t1.p4, lo.ma.p4.5, t2.p4, lo.ma.p4.5); ObjectSet("lo.5.p4",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("lo.5.p4",OBJPROP_WIDTH,2); ObjectSet("lo.5.p4",OBJPROP_RAY,false); ObjectSet("lo.5.p4",OBJPROP_COLOR,fib.SR.shadow.6.c); ObjectSetText("lo.5.p4",DoubleToStr(lo.ma.p4.5,Digits),7,"Arial",fib.SR.shadow.6.c); ObjectCreate("hi.5.p4",OBJ_TREND,0,t1.p4, hi.ma.p4.5, t2.p4, hi.ma.p4.5); ObjectSet("hi.5.p4",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("hi.5.p4",OBJPROP_WIDTH,2); ObjectSet("hi.5.p4",OBJPROP_RAY,false); ObjectSet("hi.5.p4",OBJPROP_COLOR,fib.SR.shadow.6.c); ObjectSetText("hi.5.p4",DoubleToStr(hi.ma.p4.5,Digits),7,"Arial",fib.SR.shadow.6.c); } // 6th level (hi.6.p4, lo.6.p4) if(lo.ma.p4.6-hi.ma.p4.6>Ask-Bid) { ObjectCreate("lo.6.p4",OBJ_TREND,0,t1.p4, lo.ma.p4.6, t2.p4, lo.ma.p4.6); ObjectSet("lo.6.p4",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("lo.6.p4",OBJPROP_WIDTH,2); ObjectSet("lo.6.p4",OBJPROP_RAY,false); ObjectSet("lo.6.p4",OBJPROP_COLOR,fib.SR.shadow.7.c); ObjectSetText("lo.6.p4",DoubleToStr(lo.ma.p4.6,Digits),7,"Arial",fib.SR.shadow.7.c); ObjectCreate("hi.6.p4",OBJ_TREND,0,t1.p4, hi.ma.p4.6, t2.p4, hi.ma.p4.6); ObjectSet("hi.6.p4",OBJPROP_STYLE,STYLE_SOLID); ObjectSet("hi.6.p4",OBJPROP_WIDTH,2); ObjectSet("hi.6.p4",OBJPROP_RAY,false); ObjectSet("hi.6.p4",OBJPROP_COLOR,fib.SR.shadow.7.c); ObjectSetText("hi.6.p4",DoubleToStr(hi.ma.p4.6,Digits),7,"Arial",fib.SR.shadow.7.c); } //...............Moving Average Support & Resistance Levels.............................. string space=" "; // ObjectCreate("ma1.p4",OBJ_TEXT,0,t1.p4,ma1.p4);//13 ma ObjectSetText("ma1.p4",space+DoubleToStr(ma1.p4,Digits),8,"Arial",White); // ObjectCreate("ma2.p4",OBJ_TEXT,0,t1.p4,ma2.p4);//21 ma ObjectSetText("ma2.p4",space+DoubleToStr(ma2.p4,Digits),8,"Arial",White); // ObjectCreate("ma3.p4",OBJ_TEXT,0,t1.p4,ma3.p4);//34 ma if(Bid>ma3.p4) {ObjectSetText("ma3.p4",space+DoubleToStr(ma3.p4,Digits),8,"Arial",LightGreen);} if(Ask=ma3.p4) { ObjectSetText("ma3.p4",space+DoubleToStr(ma3.p4,Digits),8,"Arial",Yellow);} // ObjectCreate("ma4.p4",OBJ_TEXT,0,t1.p4,ma4.p4);//55 ma if(Bid>ma4.p4) {ObjectSetText("ma4.p4",space+DoubleToStr(ma4.p4,Digits),8,"Arial",LightGreen);} if(Ask=ma4.p4) { ObjectSetText("ma4.p4",space+DoubleToStr(ma4.p4,Digits),8,"Arial",Yellow);} // ObjectCreate("ma5.p4",OBJ_TEXT,0,t1.p4,ma5.p4);//89 ma if(Bid>ma5.p4) {ObjectSetText("ma5.p4",space+DoubleToStr(ma5.p4,Digits),8,"Arial",Green);} if(Ask=ma5.p4) { ObjectSetText("ma5.p4",space+DoubleToStr(ma5.p4,Digits),8,"Arial",Yellow);} // ObjectCreate("ma6.p4",OBJ_TEXT,0,t1.p4,NormalizeDouble(ma6.p4,Digits));//144 ma if(Bid>ma6.p4) {ObjectSetText("ma6.p4",space+DoubleToStr(ma6.p4,Digits),8,"Arial",Green);} if(Ask=ma6.p4) { ObjectSetText("ma6.p4",space+DoubleToStr(ma6.p4,Digits),8,"Arial",Yellow);} // ObjectCreate("ma7.p4",OBJ_TEXT,0,t1.p4,NormalizeDouble(ma7.p4,Digits));//233 ma if(Bid>ma7.p4) {ObjectSetText("ma7.p4",space+DoubleToStr(ma7.p4,Digits),8,"Arial",Green);} if(Ask=ma7.p4) { ObjectSetText("ma7.p4",space+DoubleToStr(ma7.p4,Digits),8,"Arial",Yellow);} }//end p4.Fib.Plot() void column() { //..................Time Frame Columns................................................. //Addition - uses Psar of that timeframe to colour the lanes //Dull red-green psars are not with you //brighter red-green psar in your favour // because Psar appears with the new bar I thing i can use Bar 0 // for faster notification. string column.down, column.up; column.down=Bid+" "; column.up=Ask+" "; //1st Column if(iBullsPower(NULL,p1.ma,5,PRICE_CLOSE,0)+ iBearsPower(NULL,p1.ma,5,PRICE_CLOSE,0)>0)// no equals for 1 min its sensitive { if(iSAR(NULL,p1.ma,0.02,0.2,0)Bid) { // if(tmr1>Ask) // { ObjectCreate(column.down+p1.ma,OBJ_RECTANGLE,0,t1.p1,Bid,t2.p1,0); ObjectSet(column.down+p1.ma,OBJPROP_COLOR,Red); } } // } else { ObjectCreate(column.down+p1.ma,OBJ_RECTANGLE,0,t1.p1,Bid,t2.p1,0); ObjectSet(column.down+p1.ma,OBJPROP_COLOR,Black); } //2nd Column if(iBullsPower(NULL,p2.ma,5,PRICE_CLOSE,0)+ iBearsPower(NULL,p2.ma,5,PRICE_CLOSE,0)>0) { if(iSAR(NULL,p2.ma,0.02,0.2,0)<=Ask) { /// if(tmb2=Bid) { // if(tmr2>Ask) // { ObjectCreate(column.down+p2.ma,OBJ_RECTANGLE,0,t1.p2,0,t2.p2,Bid); ObjectSet(column.down+p2.ma,OBJPROP_COLOR,Red); } } // } else { ObjectCreate(column.down+p2.ma,OBJ_RECTANGLE,0,t1.p2,0,t2.p2,Bid); ObjectSet(column.down+p2.ma,OBJPROP_COLOR,Black); } //3rd Column if(iBullsPower(NULL,p3.ma,5,PRICE_CLOSE,0)+ iBearsPower(NULL,p3.ma,5,PRICE_CLOSE,0)>0) { if(iSAR(NULL,p3.ma,0.02,0.2,0)<=Ask) { // if(tmb3=Bid) { // if(tmr3>Ask) // { ObjectCreate(column.down+p3.ma,OBJ_RECTANGLE,0,t1.p3,Bid,t2.p3,0); ObjectSet(column.down+p3.ma,OBJPROP_COLOR,Red); } } // } else { ObjectCreate(column.down+p3.ma,OBJ_RECTANGLE,0,t1.p3,Bid,t2.p3,0); ObjectSet(column.down+p3.ma,OBJPROP_COLOR,Black); } //4th column if(iBullsPower(NULL,p4.ma,5,PRICE_CLOSE,0)+ iBearsPower(NULL,p4.ma,5,PRICE_CLOSE,0)>0) { if(iSAR(NULL,p4.ma,0.02,0.2,0)<=Ask) { // if(tmb4=Bid) { // if(tmr4>Ask) // { ObjectCreate(column.down+p4.ma,OBJ_RECTANGLE,0,t1.p4,Bid,t2.p4,0); ObjectSet(column.down+p4.ma,OBJPROP_COLOR,Red); } } // } else { ObjectCreate(column.down+p4.ma,OBJ_RECTANGLE,0,t1.p4,Bid,t2.p4,0); ObjectSet(column.down+p4.ma,OBJPROP_COLOR,Black); } }//end Columns //---- done