urn:lj:klab.lv:atom1:arsens arsens arsens joke@hello.lv arsens 2006-03-03T13:21:33Z 2006-03-03T13:21:33Z urn:lj:klab.lv:atom1:arsens:1706 2006-03-03T15:18:00 2006-03-03T15:18:00 2006-03-03T13:20:28Z 2006-03-03T13:20:28Z [<b>Error:</b> Irreparable invalid markup ('<sminmin1)>') in entry. Owner must fix manually. Raw contents below.]<br /><br /><div style="width: 95%; overflow: auto">//+------------------------------------------------------------------+<br />//| StepMA_Stoch_v1.mq4 |<br />//| Copyright © 2005, TrendLaboratory Ltd. |<br />//| E-mail: igorad2004@list.ru |<br />//+------------------------------------------------------------------+<br />#property copyright "Copyright © 2005, TrendLaboratory Ltd."<br />#property link ""<br /><br />#property indicator_separate_window<br />#property indicator_buffers 2<br />#property indicator_color1 Yellow<br />#property indicator_color2 DeepSkyBlue<br />#property indicator_minimum 0<br />#property indicator_maximum 1<br />//---- input parameters<br />extern int PeriodWATR=10;<br />extern double Kwatr=1.0000;<br />extern int HighLow=0;<br />//---- indicator buffers<br />double LineMinBuffer[];<br />double LineMidBuffer[];<br />//+------------------------------------------------------------------+<br />//| Custom indicator initialization function |<br />//+------------------------------------------------------------------+<br /> int init()<br /> {<br /> string short_name;<br />//---- indicator line<br /> SetIndexStyle(0,DRAW_LINE,STYLE_SOLID,1);<br /> SetIndexStyle(1,DRAW_LINE,STYLE_SOLID,1);<br /> SetIndexBuffer(0,LineMinBuffer);<br /> SetIndexBuffer(1,LineMidBuffer);<br /> IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS));<br />//---- name for DataWindow and indicator subwindow label<br /> short_name="StepMA Stoch("+PeriodWATR+","+Kwatr+","+HighLow+")";<br /> IndicatorShortName(short_name);<br /> SetIndexLabel(0,"StepMA Stoch 1");<br /> SetIndexLabel(1,"StepMA Stoch 2");<br />//----<br /> SetIndexDrawBegin(0,PeriodWATR);<br /> SetIndexDrawBegin(1,PeriodWATR);<br />//----<br /> return(0);<br /> }<br /><br />//+------------------------------------------------------------------+<br />//| StepMA_3D_v1 |<br />//+------------------------------------------------------------------+<br />int start()<br /> {<br /> int i,shift,TrendMin,TrendMax,TrendMid;<br /> double SminMin0,SmaxMin0,SminMin1,SmaxMin1,SumRange,dK,WATR0,WATRmax,WATRmin,WATRmid;<br /> double SminMax0,SmaxMax0,SminMax1,SmaxMax1,SminMid0,SmaxMid0,SminMid1,SmaxMid1;<br /> double linemin,linemax,linemid,Stoch1,Stoch2,bsmin,bsmax;<br /> <br /> for(shift=Bars-1;shift>=0;shift--)<br /> { <br /> SumRange=0;<br /> for (i=PeriodWATR-1;i>=0;i--)<br /> { <br /> dK = 1+1.0*(PeriodWATR-i)/PeriodWATR;<br /> SumRange+= dK*MathAbs(High[i+shift]-Low[i+shift]);<br /> }<br /> WATR0 = SumRange/PeriodWATR;<br /> <br /> WATRmax=MathMax(WATR0,WATRmax);<br /> if (shift==Bars-1-PeriodWATR) WATRmin=WATR0;<br /> WATRmin=MathMin(WATR0,WATRmin);<br /> <br /> int StepSizeMin=MathRound(Kwatr*WATRmin/Point);<br /> int StepSizeMax=MathRound(Kwatr*WATRmax/Point);<br /> int StepSizeMid=MathRound(Kwatr*0.5*(WATRmax+WATRmin)/Point);<br /> <br /> if (HighLow>0)<br /> {<br /> SmaxMin0=Low[shift]+2*StepSizeMin*Point;<br /> SminMin0=High[shift]-2*StepSizeMin*Point;<br /> <br /> SmaxMax0=Low[shift]+2*StepSizeMax*Point;<br /> SminMax0=High[shift]-2*StepSizeMax*Point;<br /> <br /> SmaxMid0=Low[shift]+2*StepSizeMid*Point;<br /> SminMid0=High[shift]-2*StepSizeMid*Point;<br /> <br /> if(Close[shift]>SmaxMin1) TrendMin=1; <br /> if(Close[shift]<SminMin1) TrendMin=-1;<br /> <br /> if(Close[shift]>SmaxMax1) TrendMax=1; <br /> if(Close[shift]<SminMax1) TrendMax=-1;<br /> <br /> if(Close[shift]>SmaxMid1) TrendMid=1; <br /> if(Close[shift]<SminMid1) TrendMid=-1;<br /> }<br /> <br /> if (HighLow == 0)<br /> {<br /> SmaxMin0=Close[shift]+2*StepSizeMin*Point;<br /> SminMin0=Close[shift]-2*StepSizeMin*Point;<br /> <br /> SmaxMax0=Close[shift]+2*StepSizeMax*Point;<br /> SminMax0=Close[shift]-2*StepSizeMax*Point;<br /> <br /> SmaxMid0=Close[shift]+2*StepSizeMid*Point;<br /> SminMid0=Close[shift]-2*StepSizeMid*Point;<br /> <br /> if(Close[shift]>SmaxMin1) TrendMin=1; <br /> if(Close[shift]<SminMin1) TrendMin=-1;<br /> <br /> if(Close[shift]>SmaxMax1) TrendMax=1; <br /> if(Close[shift]<SminMax1) TrendMax=-1;<br /> <br /> if(Close[shift]>SmaxMid1) TrendMid=1; <br /> if(Close[shift]<SminMid1) TrendMid=-1;<br /> }<br /> <br /> if(TrendMin>0 && SminMin0<SminMin1) SminMin0=SminMin1;<br /> if(TrendMin<0 && SmaxMin0>SmaxMin1) SmaxMin0=SmaxMin1;<br /> <br /> if(TrendMax>0 && SminMax0<SminMax1) SminMax0=SminMax1;<br /> if(TrendMax<0 && SmaxMax0>SmaxMax1) SmaxMax0=SmaxMax1;<br /> <br /> if(TrendMid>0 && SminMid0<SminMid1) SminMid0=SminMid1;<br /> if(TrendMid<0 && SmaxMid0>SmaxMid1) SmaxMid0=SmaxMid1;<br /> <br /> <br /> if (TrendMin>0) linemin=SminMin0+StepSizeMin*Point;<br /> if (TrendMin<0) linemin=SmaxMin0-StepSizeMin*Point;<br /> <br /> if (TrendMax>0) linemax=SminMax0+StepSizeMax*Point;<br /> if (TrendMax<0) linemax=SmaxMax0-StepSizeMax*Point;<br /> <br /> if (TrendMid>0) linemid=SminMid0+StepSizeMid*Point;<br /> if (TrendMid<0) linemid=SmaxMid0-StepSizeMid*Point;<br /> <br /> bsmin=linemax-StepSizeMax*Point;<br /> bsmax=linemax+StepSizeMax*Point;<br /> Stoch1=(linemin-bsmin)/(bsmax-bsmin);<br /> Stoch2=(linemid-bsmin)/(bsmax-bsmin);<br /> <br /> LineMinBuffer[shift]=Stoch1;<br /> LineMidBuffer[shift]=Stoch2;<br /> <br /> <br /> SminMin1=SminMin0;<br /> SmaxMin1=SmaxMin0;<br /> <br /> SminMax1=SminMax0;<br /> SmaxMax1=SmaxMax0;<br /> <br /> SminMid1=SminMid0;<br /> SmaxMid1=SmaxMid0;<br /> }<br /> return(0); <br /> }</div> urn:lj:klab.lv:atom1:arsens:1218 2006-02-10T12:20:00 2006-02-10T12:20:00 2006-03-03T13:21:33Z 2006-03-03T13:21:33Z [<b>Error:</b> Irreparable invalid markup ('<ema50[i+1])&&(open[i]>') in entry. Owner must fix manually. Raw contents below.]<br /><br /><div style="width: 95%; overflow: auto">//+------------------------------------------------------------------+<br />//| CatFX50.mq4 |<br />//| Copyright © 2005, MetaQuotes Software Corp. |<br />//| http://www.metaquotes.net |<br />//+------------------------------------------------------------------+<br />#property copyright "Copyright © 2005, MetaQuotes Software Corp."<br />#property link "http://www.forex-tsd.com/showthread.php?t=523"<br /><br />#property indicator_chart_window<br /><br />#property indicator_buffers 3<br />#property indicator_color1 Blue<br />#property indicator_color2 Red<br />#property indicator_color3 Aqua<br />//---- input parameters<br /><br />//Trading Time in server Time<br />extern int confirm_StepMA_Bars=2;<br />extern int TradeTimeFrom=0;<br />extern int TradeTimeTo=24;<br />extern int alert_ON=0;//ON=1,OFF=0<br />extern int EMA_period=50;<br />extern int StepMA_Stoch_PeriodWATR=10;<br />extern int StepMA_Stoch_Kwatr=1.0000;<br />extern int StepMA_Stoch_HighLow=0;<br />//---- buffers<br />double long[];<br />double short[];<br />double EMA50[];<br />//+------------------------------------------------------------------+<br />//| Custom indicator initialization function |<br />//+------------------------------------------------------------------+<br />int init()<br /> {<br />//---- indicators<br /> SetIndexStyle(0,DRAW_ARROW);<br /> SetIndexArrow(0,233);<br /> SetIndexBuffer(0,long);<br /> SetIndexEmptyValue(0,0.0);<br /> SetIndexStyle(1,DRAW_ARROW);<br /> SetIndexArrow(1,234);<br /> SetIndexBuffer(1,short);<br /> SetIndexEmptyValue(1,0.0);<br /> SetIndexStyle(2,DRAW_LINE);<br /> SetIndexLabel(2,"EMA50");<br /> SetIndexBuffer(2,EMA50);<br /> SetIndexStyle(2,DRAW_LINE);<br /> SetIndexEmptyValue(2,0.0);<br />//----<br /> return(0);<br /> }<br />//+------------------------------------------------------------------+<br />//| Custor indicator deinitialization function |<br />//+------------------------------------------------------------------+<br />int deinit()<br /> {<br />//---- <br /> <br />//----<br /> return(0);<br /> }<br />//+------------------------------------------------------------------+<br />//| Custom indicator iteration function |<br />//+------------------------------------------------------------------+<br />int start()<br /> {<br /> int counted_bars=IndicatorCounted(),i,j;<br />//---- check for possible errors<br /> if(counted_bars<0) return(-1);<br />//---- last counted bar will be recounted<br /> if(counted_bars>0) counted_bars--;<br /> int limit=Bars-counted_bars;<br />//variables<br /> double stepma00,stepma01,stepma10,stepma11;<br />//Main roop<br /> for(i=limit; i>=0; i--)<br /> {<br /> <br /> EMA50[i]=iMA(NULL,0,EMA_period,0,MODE_EMA,PRICE_MEDIAN,i);<br /> if (TimeHour(Time[i])>=TradeTimeFrom&&TimeHour(Time[i])<=TradeTimeTo)<br /> {<br /><br /> //Long check start<br /> if ((Open[i+1]<EMA50[i+1])&&(Open[i]>EMA50[i]))//cross EMA50<br /> { <br /> for (j=confirm_StepMA_Bars; j>=0; j--)<br /> {<br /> stepma00=iCustom(NULL,0,"StepMA_Stoch_v1",StepMA_Stoch_PeriodWATR,StepMA_Stoch_Kwatr,StepMA_Stoch_HighLow,0,i+j);<br /> stepma01=iCustom(NULL,0,"StepMA_Stoch_v1",StepMA_Stoch_PeriodWATR,StepMA_Stoch_Kwatr,StepMA_Stoch_HighLow,1,i+j);<br /> stepma10=iCustom(NULL,0,"StepMA_Stoch_v1",StepMA_Stoch_PeriodWATR,StepMA_Stoch_Kwatr,StepMA_Stoch_HighLow,0,i+j+1);<br /> stepma11=iCustom(NULL,0,"StepMA_Stoch_v1",StepMA_Stoch_PeriodWATR,StepMA_Stoch_Kwatr,StepMA_Stoch_HighLow,1,i+j+1);<br /> if ((stepma10<stepma11)&&(stepma00>stepma01))//StepMA cross<br /> {<br /> if (iCustom(NULL,0,"StepMA_Stoch_v1",StepMA_Stoch_PeriodWATR,StepMA_Stoch_Kwatr,StepMA_Stoch_HighLow,0,i)>iCustom(NULL,0,"StepMA_Stoch_v1",StepMA_Stoch_PeriodWATR,StepMA_Stoch_Kwatr,StepMA_Stoch_HighLow,1,i))<br /> {<br /> long[i]=(Low[i])-iATR(NULL,0,5,i)/2 ;<br /> if (i==0&&alert_ON==1)<br /> Alert(TimeToStr(Time[i],TIME_MINUTES)," CatFX50 ",Symbol()," BUY");<br /> }<br /> }<br /> }<br /> <br /> }<br /> //Long check end<br /><br />//Short check start<br /> if ((Open[i+1]>EMA50[i+1])&&(Open[i]<EMA50[i]))//cross EMA50<br /> { <br /> for (j=confirm_StepMA_Bars; j>=0; j--)<br /> {<br /> stepma00=iCustom(NULL,0,"StepMA_Stoch_v1",StepMA_Stoch_PeriodWATR,StepMA_Stoch_Kwatr,StepMA_Stoch_HighLow,0,i+j);<br /> stepma01=iCustom(NULL,0,"StepMA_Stoch_v1",StepMA_Stoch_PeriodWATR,StepMA_Stoch_Kwatr,StepMA_Stoch_HighLow,1,i+j);<br /> stepma10=iCustom(NULL,0,"StepMA_Stoch_v1",StepMA_Stoch_PeriodWATR,StepMA_Stoch_Kwatr,StepMA_Stoch_HighLow,0,i+j+1);<br /> stepma11=iCustom(NULL,0,"StepMA_Stoch_v1",StepMA_Stoch_PeriodWATR,StepMA_Stoch_Kwatr,StepMA_Stoch_HighLow,1,i+j+1);<br /> if ((stepma10>stepma11)&&(stepma00<stepma01))//StepMA cross<br /> {<br /> if (iCustom(NULL,0,"StepMA_Stoch_v1",StepMA_Stoch_PeriodWATR,StepMA_Stoch_Kwatr,StepMA_Stoch_HighLow,0,i)<iCustom(NULL,0,"StepMA_Stoch_v1",StepMA_Stoch_PeriodWATR,StepMA_Stoch_Kwatr,StepMA_Stoch_HighLow,1,i))<br /> {<br /> short[i]=High[i]+iATR(NULL,0,5,i)/2;<br /> if (i==0&&alert_ON==1)<br /> Alert(TimeToStr(Time[i],TIME_MINUTES)," CatFX50 ",Symbol()," SELL");<br /> }<br /> }<br /> }<br /> }<br />//Short check end<br /> }<br /> }<br /> return(0);<br /> }<br />//+------------------------------------------------------------------+</div>