MQL4 Program: An EA program known as a success rate of 100%. mq4

用?m?t?4?平?台?所?提?供?的?m?q?l?4?语?言?编?写?。?风?险?与?利?润?同?在?,?高?风?险?可?博?得?高?利?润?。?自?己?把?握?。?已?经?测?试?通?过?,?下?载?导?入?系?统? That is, you can.

#property Copyright "Copyright, puncher from POLAND"
#property link "[Email protected]"
5 or MIN timeframe only extern int rsiperiod=14;
extern int short_price_ma_periods=9;
extern int long_price_ma_periods=45;
extern int short_rsi_ma_periods=9;
extern int long_rsi_ma_periods=45;
extern int slippage=3;
extern int pisto=0; Stochastic Indicator Period
extern int pistok=5; Stochastic Period (amount of bars) for the calculation of%K line
extern int pistod=3; Stochastic averaging period for the calculation of%d line
extern int istslow=3; Stochastic Value of slowdown
extern int pimacd=0; Indicator Period
extern int fastpimacd=12; Averaging period for calculation of a quick MA
extern int slowpimacd=26; Averaging period for calculation of a slow MA
extern int signalpimacd=9; Averaging period for calculation of a signal line
extern int piwpr=0; WPR Indicator Period
extern int piwprbar=14; WPR Period (amount of bars) for indicator calculation
extern int pidem=0; Indicator Period
extern int pidemu=14; Period of averaging
For indicator calculation double Lots=1; That mean 0.1 value if your want 1 lot type 10
Double tp=17; Take profit profit, take profit
Double sl=7777; Stop Loss Stop Loss
int start ()
{
int arraysize=200;
Double rsi[];
Double rsi_sma[];
ArrayResize (rsi,arraysize);
ArrayResize (rsi_sma,arraysize);
Arraysetasseries (rsi,true);

for (int i3=arraysize-1;i3>=0;i3--)
Rsi[i3]=irsi (NULL,0,RSIPERIOD,PRICE_CLOSE,I3);
for (i3=arraysize-1;i3>=0;i3--)
Rsi_sma[i3]=imaonarray (RSI,0,SHORT_RSI_MA_PERIODS,0,MODE_SMA,I3);
Double RSI9 =rsi_sma[1];
for (i3=arraysize-1;i3>=0;i3--)
Rsi[i3]=irsi (NULL,0,RSIPERIOD,PRICE_CLOSE,I3);
for (i3=arraysize-1;i3>=0;i3--)
Rsi_sma[i3]=imaonarray (RSI,0,LONG_RSI_MA_PERIODS,0,MODE_SMA,I3);
Double RSI45 =rsi_sma[1];
Double Price45=ima (null,0, Long_price_ma_periods, 0,mode_lwma,price_close,1);
Double Price9 =ima (null,0, short_price_ma_periods,0,mode_sma,price_close,1);
BOOL Long=false;
BOOL Short=false;
BOOL Sideways=false; if (price9>price45 && rsi9>rsi45) long=true;
if (price9<price45 && rsi9<rsi45) short=true;
if (price9>price45 && rsi9<rsi45) sideways=true;
if (price9<price45 && rsi9>rsi45) sideways=true;
if (long==true && orderstotal () ==0)
{
if (istochastic (null,pisto,pistok,pistod,istslow,mode_ema,0,mode_main,1) <19&&istochastic (NULL,pisto, pistok,pistod,istslow,mode_ema,0,mode_main,0) >=19)
{
if (istochastic (null,pisto,pistok,pistod,istslow,mode_ema,0,mode_main,1) <istochastic (NULL,pisto,pistok, pistod,istslow,mode_ema,0,mode_signal,1) &&istochastic (null,pisto,pistok,pistod,istslow,mode_ema,0,mode _main,0) >=istochastic (null,pisto,pistok,pistod,istslow,mode_ema,0,mode_signal,0))
{
if (Idemarker (null,pidem,pidemu,1) <0.35&&idemarker (null,pidem,pidemu,0) >=0.35) {if (IWPR (NULL,PIWPR , piwprbar,1) &LT;-81&AMP;&AMP;IWPR (null,piwpr,piwprbar,0) >=-81) {OrderSend (Symbol (), Op_buy,lots/10,ask, Slippage,ask-sl*point,ask+tp*point, "Piotrek Buy");
}
}
}
}
}

if (short==true && orderstotal () ==0)
{if (istochastic (null,pisto,pistok,pistod,istslow,mode_ema,0,mode_main,1) >81&&istochastic (NULL,pisto , pistok,pistod,istslow,mode_ema,0,mode_main,0) <=81)
{if (istochastic (null,pisto,pistok,pistod,istslow,mode_ema,0,mode_main,1) >istochastic (NULL,pisto,pistok, pistod,istslow,mode_ema,0,mode_signal,1) &&istochastic (null,pisto,pistok,pistod,istslow,mode_ema,0,mode _main,0) <=istochastic (null,pisto,pistok,pistod,istslow,mode_ema,0,mode_signal,0))
{
if (Idemarker (null,pidem,pidemu,1) >0.63&&idemarker (null,pidem,pidemu,0) <=0.63)
{
if (IWPR (null,piwpr,piwprbar,1) >-19&&IWPR (null,piwpr,piwprbar,0) <=-19) {OrderSend (Symbol (), OP_SELL , Lots/10,bid,slippage,bid+sl*point,bid-tp*point, "Piotrek Sell");}
}
}
}
}
}

1The m?t?4 of the flat-bed? m?q?l?4The language of the speech, the?。? of the wind, and the "Lee" in the?,?, the high-risk, the high-profit, the?。? from the self-to-be, the grasp of the?。? has been the test of the "pass", after the examination of the "guide"? 2 3#property Copyright "Copyright, puncher from POLAND"4#property link "[Email protected]"5 //5 or MIN timeframe only extern int rsiperiod=14;6externintShort_price_ma_periods=9;7externintLong_price_ma_periods=45; 8externintShort_rsi_ma_periods=9; 9externintLong_rsi_ma_periods=45;TenexternintSlippage=3;  Oneexternintpisto=0;//Stochastic Indicator Period Aexternintpistok=5;//Stochastic Period (amount of bars) for the calculation of%K line -externintpistod=3;//Stochastic averaging period for the calculation of%d line -externintistslow=3;//Stochastic Value of slowdown theexternintPimacd=0;//Indicator Period -externintfastpimacd=12;//averaging period for calculation of a quick MA -externintslowpimacd=26;//averaging period for calculation of a slow MA -externintsignalpimacd=9;//averaging period for calculation of a signal line +externintpiwpr=0;//WPR Indicator Period -externintpiwprbar=14;//WPR Period (amount of bars) for indicator calculation +externintpidem=0;//Indicator Period Aexternintpidemu=14;//Period of averaging at  forIndicator calculationDoubleLots=1;//That mean 0.1 value if your want 1 lot type ten - Doubletp=17;//Take profit profit, take profit - Doublesl=7777;//Stop loss Stop loss - intStart () - { - intarraysize=200;  in Doublersi[]; - Doublersi_sma[]; to ArrayResize (rsi,arraysize); + ArrayResize (rsi_sma,arraysize); -Arraysetasseries (RSI,true); the  *  for(inti3=arraysize-1;i3>=0;i3--)  $Rsi[i3]=irsi (null,0, RSIPERIOD,PRICE_CLOSE,I3); Panax Notoginseng  for(i3=arraysize-1;i3>=0;i3--)  -Rsi_sma[i3]=imaonarray (rsi,0,short_rsi_ma_periods,0, MODE_SMA,I3);  the DoubleRSI9 =rsi_sma[1];  +  for(i3=arraysize-1;i3>=0;i3--)  ARsi[i3]=irsi (null,0, RSIPERIOD,PRICE_CLOSE,I3);  the  for(i3=arraysize-1;i3>=0;i3--)  +Rsi_sma[i3]=imaonarray (rsi,0,long_rsi_ma_periods,0, MODE_SMA,I3);  - DoubleRSI45 =rsi_sma[1];  $ DoublePrice45=ima (null,0, Long_price_ma_periods, 0,mode_lwma,price_close,1);  $ DoublePrice9 =ima (null,0, short_price_ma_periods,0,mode_sma,price_close,1);  -BOOL Long=false;  -BOOL Short=false; theBOOL Sideways=false;if(Price9>price45 && rsi9>rsi45) long=true;  - if(Price9<price45 && rsi9<rsi45) short=true;Wuyi if(Price9>price45 && rsi9<rsi45) sideways=true; the if(Price9<price45 && rsi9>rsi45) sideways=true;  - if(long==true&& orderstotal () ==0)  Wu { - if(Istochastic (null,pisto,pistok,pistod,istslow,mode_ema,0,mode_main,1) <19&&istochastic (NULL,pisto, pistok,pistod,istslow,mode_ema,0,mode_main,0) >=19) About { $ if(Istochastic (null,pisto,pistok,pistod,istslow,mode_ema,0,mode_main,1) <istochastic (NULL,pisto,pistok,pistod, istslow,mode_ema,0,mode_signal,1) &&istochastic (null,pisto,pistok,pistod,istslow,mode_ema,0,mode_main,0 ) >=istochastic (null,pisto,pistok,pistod,istslow,mode_ema,0,mode_signal,0)) - {  - if(Idemarker (null,pidem,pidemu,1) <0.35&&idemarker (null,pidem,pidemu,0) >=0.35) {if(IWPR (null,piwpr,piwprbar,1) &LT;-81&AMP;&AMP;IWPR (null,piwpr,piwprbar,0) >=-81) {OrderSend (Symbol (), Op_buy,lots/10,ask,slippage,ask-sl*point,ask+tp*point, "Piotrek BUY"); - }  A } + } the } - } $  the if(short==true&& orderstotal () ==0)  the{if(Istochastic (null,pisto,pistok,pistod,istslow,mode_ema,0,mode_main,1) >81&&istochastic (NULL,pisto, pistok,pistod,istslow,mode_ema,0,mode_main,0) <=81)  the{if(Istochastic (null,pisto,pistok,pistod,istslow,mode_ema,0,mode_main,1) >istochastic (NULL,pisto,pistok,pistod, istslow,mode_ema,0,mode_signal,1) &&istochastic (null,pisto,pistok,pistod,istslow,mode_ema,0,mode_main,0 ) <=istochastic (null,pisto,pistok,pistod,istslow,mode_ema,0,mode_signal,0))  the { - if(Idemarker (null,pidem,pidemu,1) >0.63&&idemarker (null,pidem,pidemu,0) <=0.63)  in {  the if(IWPR (null,piwpr,piwprbar,1) &GT;-19&AMP;&AMP;IWPR (null,piwpr,piwprbar,0) <=-19) {OrderSend (Symbol (), Op_sell,lots/10,bid,slippage,bid+sl*point,bid-tp*point, "Piotrek SELL"));}  the }  About } the } the } the}

MQL4 Program: An EA program known as a success rate of 100%. mq4