//+------------------------------------------------------------------+
//| |
//| RSI-R2.mq4 - Ver 1.0 @ 03/22/2007 by Bluto |
//| |
//+------------------------------------------------------------------+
#property copyright "Bluto"
#property link "None"
#include
#include
extern double LotSize=0.5;
extern int Slippage=3;
extern double StopLoss=0;
extern double TakeProfit=700;
extern double RiskPercent=2.0;
extern bool UseMoneyMgmt=true;
extern double RSI_Overbought_Value = 85.0;
extern double RSI_Oversold_Value = 15.0;
int MagicNumber=0;
int ticket;
int OpenBuyOrders=0;
int OpenSellOrders=0;
int i;
bool Buy_Mode=false, Sell_Mode=false;
double RSI_Day_1=0, RSI_Day_2=0, RSI_Day_3=0, SMA200_Day3=0;
double MM_MinLotSize=0;
double MM_MaxLotSize=0;
double MM_LotStep=0;
double MM_Decimals=0;
double MM_OrderLotSize=0;
int MM_AcctLeverage=0;
int MM_CurrencyLotSize=0;
//pair array ( IBFX mini )
string pairs[] = { "EURUSDm","USDJPYm","GBPUSDm","USDCHFm","EURCHFm","AUDUSDm","USDCADm",
"NZDUSDm","EURGBPm","EURJPYm","GBPJPYm","CHFJPYm","GBPCHFm","EURAUDm",
"EURCADm","AUDCADm","AUDJPYm","NZDJPYm","AUDNZDm" };
string TradeSymbol,CommentsPairs[];
int Pair = -1;
int init() {
if ( IsTesting() ) { if ( ArrayResize(pairs,1) != 0 ) pairs[0] = Symbol(); }
ArrayCopy (CommentsPairs, pairs);
return(0); }
int deinit() { return(0); }
int start() {
//Select Pair from Array
Pair = (Pair+1) % ArraySize(pairs);
TradeSymbol = pairs[Pair];
//Identify ibfx mini tradesymbol
if(iClose(TradeSymbol,1440,0)==0) { TradeSymbol=StringSubstr(TradeSymbol,0,6); }
//TradeSymbol MagicNumber Assignment
if (TradeSymbol=="AUDCADm" || TradeSymbol=="AUDCAD") {MagicNumber=200001;}
if (TradeSymbol=="AUDJPYm" || TradeSymbol=="AUDJPY") {MagicNumber=200002;}
if (TradeSymbol=="AUDNZDm" || TradeSymbol=="AUDNZD") {MagicNumber=200003;}
if (TradeSymbol=="AUDUSDm" || TradeSymbol=="AUDUSD") {MagicNumber=200004;}
if (TradeSymbol=="CHFJPYm" || TradeSymbol=="CHFJPY") {MagicNumber=200005;}
if (TradeSymbol=="EURAUDm" || TradeSymbol=="EURAUD") {MagicNumber=200006;}
if (TradeSymbol=="EURCADm" || TradeSymbol=="EURCAD") {MagicNumber=200007;}
if (TradeSymbol=="EURCHFm" || TradeSymbol=="EURCHF") {MagicNumber=200008;}
if (TradeSymbol=="EURGBPm" || TradeSymbol=="EURGBP") {MagicNumber=200009;}
if (TradeSymbol=="EURJPYm" || TradeSymbol=="EURJPY") {MagicNumber=200010;}
if (TradeSymbol=="EURUSDm" || TradeSymbol=="EURUSD") {MagicNumber=200011;}
if (TradeSymbol=="GBPCHFm" || TradeSymbol=="GBPCHF") {MagicNumber=200012;}
if (TradeSymbol=="GBPJPYm" || TradeSymbol=="GBPJPY") {MagicNumber=200013;}
if (TradeSymbol=="GBPUSDm" || TradeSymbol=="GBPUSD") {MagicNumber=200014;}
if (TradeSymbol=="NZDJPYm" || TradeSymbol=="NZDJPY") {MagicNumber=200015;}
if (TradeSymbol=="NZDUSDm" || TradeSymbol=="NZDUSD") {MagicNumber=200016;}
if (TradeSymbol=="USDCHFm" || TradeSymbol=="USDCHF") {MagicNumber=200017;}
if (TradeSymbol=="USDJPYm" || TradeSymbol=="USDJPY") {MagicNumber=200018;}
if (TradeSymbol=="USDCADm" || TradeSymbol=="USDCAD") {MagicNumber=200019;}
if (MagicNumber==0) {MagicNumber = 200999;}
//Assign Symbol Bid/Ask & Point values
double bid=MarketInfo(TradeSymbol,MODE_BID);
double ask=MarketInfo(TradeSymbol,MODE_ASK);
double point=MarketInfo(TradeSymbol,MODE_POINT);
//----- Money Management & Lot Sizing Stuff.
MM_AcctLeverage = AccountLeverage();
MM_MinLotSize = MarketInfo(TradeSymbol,MODE_MINLOT);
MM_MaxLotSize = MarketInfo(TradeSymbol,MODE_MAXLOT);
MM_LotStep = MarketInfo(TradeSymbol,MODE_LOTSTEP);
MM_CurrencyLotSize = MarketInfo(TradeSymbol,MODE_LOTSIZE);
if(MM_LotStep == 0.01) {MM_Decimals = 2;}
if(MM_LotStep == 0.1) {MM_Decimals = 1;}
if(UseMoneyMgmt == true) {
MM_OrderLotSize = AccountEquity() * (RiskPercent * 0.01) / (MM_CurrencyLotSize / MM_AcctLeverage);
MM_OrderLotSize = StrToDouble(DoubleToStr(MM_OrderLotSize,MM_Decimals)); }
else { MM_OrderLotSize = LotSize; }
if(MM_OrderLotSize < MM_MinLotSize) {MM_OrderLotSize = MM_MinLotSize;}
if(MM_OrderLotSize > MM_MaxLotSize) {MM_OrderLotSize = MM_MaxLotSize;}
//indicator variable value assignments
SMA200_Day3 = iMA(TradeSymbol,1440,200,0,0,0,1);
RSI_Day_1 = iRSI(TradeSymbol,1440,2,0,3);
RSI_Day_2 = iRSI(TradeSymbol,1440,2,0,2);
RSI_Day_3 = iRSI(TradeSymbol,1440,2,0,1);
//Buy Setup
if(RSI_Day_1 < 65 && RSI_Day_2 < RSI_Day_1 && RSI_Day_3 < RSI_Day_2 &&
iClose(TradeSymbol,1440,1) > SMA200_Day3) { Buy_Mode=true; }
else { Buy_Mode=false; }
//Sell Setup
if(RSI_Day_1 > 35 && RSI_Day_2 > RSI_Day_1 && RSI_Day_3 > RSI_Day_2 &&
iClose(TradeSymbol,1440,1) < SMA200_Day3) { Sell_Mode=true; }
else { Sell_Mode=false; }
//Long Position Closing Conditions
if(OpenBuyOrders == 1 && iRSI(TradeSymbol,1440,2,0,1) > RSI_Overbought_Value) {
CloseLongs(MagicNumber,bid);
OpenBuyOrders = 0; }
//Short Position Closing Conditions
if(OpenSellOrders == 1 && iRSI(TradeSymbol,1440,2,0,1) < RSI_Oversold_Value) {
CloseShorts(MagicNumber,ask);
OpenSellOrders = 0; }
//----- Count number of existing open buy & sell orders; update trailing stops.
OpenBuyOrders=0;
OpenSellOrders=0;
// Manage Paraolic SAR
for(i=0;i<=OrdersTotal();i++) {
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if((OrderSymbol()==TradeSymbol) && (OrderMagicNumber()==MagicNumber)) {
if(OrderType()==OP_BUY) {
OpenBuyOrders++;
if((iSAR(TradeSymbol,1440,0.02,0.2,1)>OrderStopLoss()) &&
(bid>iSAR(TradeSymbol,1440,0.02,0.2,1)) &&
(OrderOpenPrice()iSAR(TradeSymbol,0,0.02,0.2,2))) {
OrderModify(OrderTicket(),
OrderOpenPrice(),
iSAR(TradeSymbol,1440,0.02,0.2,1),
OrderTakeProfit(),0,Blue);
Print("Order # ",OrderTicket()," updated at ",Hour(),":",Minute(),":",Seconds());
return(0); } }
if(OrderType()==OP_SELL) {
OpenSellOrders++;
if((iSAR(TradeSymbol,1440,0.02,0.2,1)iSAR(TradeSymbol,0,0.02,0.2,1)) &&
(iSAR(TradeSymbol,0,0.02,0.2,1) 0) {
CloseShorts(MagicNumber,ask);
OpenSellOrders = 0; }
if(OpenBuyOrders == 0) {
ticket = OpenPendingOrder(OP_BUY,MM_OrderLotSize,ask,Slippage,bid,
StopLoss,TakeProfit,"RSI-R2 mp",MagicNumber,0,Lime);
if(ticket<0) {
Print("OrderSend failed with error #",GetLastError());
return(0); }
else {
OpenBuyOrders++; } } }
if(Sell_Mode==true && OpenSellOrders==0) {
if(OpenBuyOrders > 0) {
CloseLongs(MagicNumber,bid);
OpenBuyOrders = 0; }
if(OpenSellOrders == 0) {
ticket = OpenPendingOrder(OP_SELL,MM_OrderLotSize,bid,Slippage,ask,
StopLoss,TakeProfit,"RSI-R2 mp",MagicNumber,0,HotPink);
if(ticket<0) {
Print("OrderSend failed with error #",GetLastError());
return(0); }
else {
OpenSellOrders++; } } }
//On Chart Comment function call (displays pair data)
CommentAll(SMA200_Day3, RSI_Day_1, RSI_Day_2, RSI_Day_3);
return(0); }//end of Start()
//----- Comments
void CommentAll(double SMA200_Day3, double RSI_Day_1, double RSI_Day_2, double RSI_Day_3) {
string Comments = "";
int i, next = (Pair+1) % ArraySize(pairs);
CommentsPairs[Pair] = StringConcatenate(TradeSymbol,": ","Last Close ",iClose(TradeSymbol,1440,1),
" 200SMA(",SMA200_Day3,") ","RSI(1) ",RSI_Day_1," RSI(2) ",RSI_Day_2," RSI(3) ",
RSI_Day_3," Monthly Tick Count: ",iVolume(TradeSymbol,43200,0));
CommentsPairs[next] = ">" + CommentsPairs[next];
for(i=0; i < ArraySize(CommentsPairs); i++) Comments = StringConcatenate(Comments,"\n",CommentsPairs[i]);
if(!IsTesting())Comment(/*CommentHeader,*/"Last Tick: ",TimeToStr(CurTime(),TIME_DATE|TIME_SECONDS),"\n",
Comments); }// end CommentAll()
//----- Order Processing Functions
void CloseLongs(int MagicNumber, double bid) {
int trade;
for(trade=OrdersTotal()-1;trade>=0;trade--) {
if(OrderSelect(trade,SELECT_BY_POS,MODE_TRADES)==false) continue;
if(OrderSymbol()!=TradeSymbol||OrderMagicNumber()!=MagicNumber) continue;
if(OrderSymbol()==TradeSymbol&&OrderMagicNumber()==MagicNumber) {
if(OrderType()==OP_BUY) {
OrderClose(OrderTicket(),OrderLots(),bid,Slippage,Blue); } } } }//end CloseLongs
void CloseShorts(int MagicNumber, double ask) {
int trade;
for(trade=OrdersTotal()-1;trade>=0;trade--) {
if(OrderSelect(trade,SELECT_BY_POS,MODE_TRADES)==false) continue;
if(OrderSymbol()!=TradeSymbol||OrderMagicNumber()!=MagicNumber) continue;
if(OrderSymbol()==TradeSymbol&&OrderMagicNumber()==MagicNumber) {
if(OrderType()==OP_SELL) {
OrderClose(OrderTicket(),OrderLots(),ask,Slippage,Red); } } } }//end CloseShorts
int OpenPendingOrder(int pType,double pLots,double pLevel,int sp,double pr,int sl,int tp,string pComment,
int pMagic,datetime pExpiration,color pColor) {
double bid=MarketInfo(TradeSymbol,MODE_BID);
double ask=MarketInfo(TradeSymbol,MODE_ASK);
double point=MarketInfo(TradeSymbol,MODE_POINT);
int ticket=0;
int err=0;
int c = 0;
int NumberOfTries = 10;
switch (pType) {
case OP_BUY:
for(c = 0 ; c < NumberOfTries ; c++) {
RefreshRates();
ticket=OrderSend(TradeSymbol,OP_BUY,pLots,ask,sp,StopLong(bid,sl,point),TakeLong(bid,tp,point),
pComment,pMagic,pExpiration,pColor);
if (ticket > 0) break;
err=GetLastError();
if(err==0) { break; }
else { if(err==4 || err==137 ||err==146 || err==136) { //Busy errors
Sleep(5000);
continue; }
else { //normal error
Print("Error Code= ", err);
break; } } }
break;
case OP_SELL:
for(c = 0 ; c < NumberOfTries ; c++) {
RefreshRates();
ticket=OrderSend(TradeSymbol,OP_SELL,pLots,bid,sp,StopShort(ask,sl,point),TakeShort(ask,tp,point),
pComment,pMagic,pExpiration,pColor);
if (ticket > 0) break;
err=GetLastError();
if(err==0) { break; }
else { if(err==4 || err==137 ||err==146 || err==136) { //Busy errors
Sleep(5000);
continue; }
else { //normal error
Print("Error Code= ", err);
break; } } }
break; }
return(ticket); }//end OpenPendingOrder
double StopLong(double price,int stop,double point) {
if(stop==0) return(0);
else return(price-(stop*point)); }//end StopLong
double StopShort(double price,int stop,double point) {
if(stop==0) return(0);
else return(price+(stop*point)); }//end StopShort
double TakeLong(double price,int take,double point) {
if(take==0) return(0);
else return(price+(take*point)); }//end TakeLong
double TakeShort(double price,int take,double point) {
if(take==0) return(0);
else return(price-(take*point)); }//end TakeShort
// * * * * * * * * END OF CODE * * * * * * * *Q·«v±… 9DЎ1ф4‚ЖђјS–NШУТXУµ[щ ‚жcЊ©’@rA&±љ"†‡•zЎцчеZ2d® тЮЏ§Т3yЃk¶ ЧьшЯ~Уя%"кнбєФl‚a#бѓgО«fк†Ю«ЫЃЬт®Шы2nuЯ BхќБууКЗ W™Ь»е~ЮuХю/ofјЕ;яЉХд O‰ХдюЈv_ГyєO2пзЇҐl']ю:»рз~vO#йЩИ №‹§чјІс|‘д[•њ_“31!1§ґM°†ћ (}0mсZ^Ќ чє°s »ЅЇН€‘§њtsҐ•¶4Ck7KфЮЯ• гz‡Жґ\ёLУEЄxо9 H "DЋ 5»RъиO®P=вш"kMJНОо= =₆аYЙ[Я ?8‡&ях-сЌKmUT2fыґл`;вRўЌG1,K gзgcё w>•Їzщт±ЄЋ§™Щќv/Яl%¦–JT»ґцнu§ы)ж?ыЯupTёыQкb rжuH4эЬЮу<µЬеЉЅХ‹bT‰ЄЕc7?Ы‡д~№чуґйЊ‘щАЕG!‡X‘Кт,ЁП+\к]ю†, 3$ґe~ќNЪwO¶0эrЅzМкЗЮбіЅщТd®‹ЬТЩНФДЄN№¬гХ•»¶dйа†;15}ў±ї\}рTЙ ©п1KјUОАм.eVJ+Ќ\jРѕ—9±Z%u¤Щ№Й "^OF€^КХ¤k6<‹·z}ЅaЧьћчН
UЏ©Кђн{™AнЫ~µvGЦ![е=Г5_ ;
VWЅ%¤cшв7ЯSщЄN№уЇvј€K~ї`н"яіщI г¦ёбЧ )2>ы7/ЭЙ Пbџ.ЬЂ q5юрЬ}У/AЖЃ/K'пc4_њПу=¤рЩМ|{хќ¤ж=Щ§jT„ШJB‡3‘ЈOҐБгqдЮqhЇыЭ‡µ« xЯ ќXН ·‘Њn‚~4‰Јs}цхфХ®и оDgу‰Кi»5kЕ™JдЃg™ІЩU?ц>{џTPKді®eЧСdw_}<ЧЂ0‘‚мйIхЦ“FщъyН{ОџёvhH*J-сЊІэcоьKџЗњЮuнx`leQ&—5¬¬ўqњ‚цўV№v’DўБ лoиФЇЃEџщ?/v*{ЇЉ5·ыnн u№xqЊQЗ *шП©cэ7+ЗmЌЫ[Ѕ·ъЙќТ[С»®\ьъуDИАувWMOЙпyHв'nїgоaцФљи№|L¶Ґ€ЈФ V;ь‰o®~’VbзШФзыµ°Nj©шPмZ°gѕ %<кѓнбя гС*Џ¦±.ьZрF 1Х.њлЅШд°fп#шўмЫИ±uzш:4uX•Э:Qvrэ%ѕЎдdЌcђЯКњш
КlL©j8у‡¦5ВЯQоІРнДзkёћц0YОЦБf%w=к…У戆oИпЋЧ–ke,mE«ГщoЖнН\ќќOщIЏВрачЯе‰k›З«]»°EХbсKС3:м=)mя3–СкO&DvDл,RRКдяЊhmr2ѓ™]і”ЦЧ}±M[
»я\иччПУ}p*л¤K\ЏыMЃm)z_Р•Ќ“·6·^ AЛrЙєбqNЎ…Оwµ"HрѕћDЊ›CМnЦ†З” #Z©џч чёюbф6ЊОЧдK”IЯZа7ҐS‘УДњ>Д,Д®i|‹eO?Ќb гюјD–v™<[ !BHTfQеz>тф bЬEЉ&фU—02[‡ІяЈ я‹эґњЬЭ|†YУб4У|.ёъїЋ›xЇЩоI}ј«6ГНу;ZЯ;аC®R Ql п<ЙЬўјєЫЄ#й™Іw~« 8Э№“ уѓБ cS©+ёхW¬3аJ,+ Ь\ТTlЬЕ1яЗя‰Ояб?LTв‚°uB™ф8ејжYPfLіЃЎё]›эФґач@ҐШЖ%@Ѕp~— џЁ=•ЂUЙГЃ"ЙC9Є.Ів]ы.лxuoќ<Т~ЪK4T‡№№ґюџЋтю Ш“Чув,—mэн•Иhфn}џ.ѓ‰ЇjyйfСюЮ-Нx·наГћ'aµZР)«Mu& / ЙiМ[МЧ8D8\Хы{фЛaќ3єѕM«ќ‡·2kК у«ќoхОяЧ6›аµMGјьУUrй{‡|zшFдБoЃћЬЭ, ВїёєXЯсrѕЏ‡Q6їMџН¤9¬“+J-ѕ»PTТhEП
3]Є©е¬5Њ Єs>Чь1eґІњр¶QкцЯшСO§вшMФKJ/Я§МёИIеЭґ›-}‚раџQлf;¤Vь^щсйі§чЯѕ’кЗЎэ‰¬Єp±юҐbMvУlЁу№6кє%ћ1щпЊЉЈЙ.йk–кШhођЧВ8ЏС Ї] ьoЗ Чg
;ЮеXoЬЄљн=ќ-8ЋIє%i
Q©RьҐ{[ЌЛNGdйЬ‘yшкGмщr-Ј№qш&weh0Gџ_!ЪєЩ:|CёYхтЦЭј }ъ76ZМcНЌDќ,§i§лљвєzЦn‡Ог\Є8lйЂ5ыz5wщN`µ3‚#3ь3йЂЦhzw] С<оЊФ#Т¦QJб“±Хa /xѕЮЭ{·О®|С…Цѓ‹ЖR¬xдѕN1уg‘Зј¶єyыо9Cс}Ь¤“ю-mџZ¶o¦дHДЎ>цєbк,д3F:Ыa‹rМµ-»eч“w~Э|ајE†TЫчЗ5b«ПdЁж¬@oJРСБp=xB&ДBУТ] юУ¶й -ЅРk9*дT ђюЪvРIэ\YfX‡]№12М?pGJЊОи!ЪEм
ЙaИ%}|шлфнт.(¶йО?¶$zЦ<ююхЯ:‚†y+фЮОqt0zЌі@уҐЫ&Й±bъqзSш"З ЖЇ„MЕы9чѕ¬ ЈЏnєјыА5юБФµёЌ№k6wVPњРНы¶«љЏХҐ–Эц>LяѕnbunвЋ‰Ёжъ GДЯ.fдGKъь1<}Пп_КќЬЌпH‡ўД·V9ЊµњЎFІПЋ_Їу#ЖдЯ»иh•dzo Н§ҐRkЊмnе0и|wх$)МУM1o
wEWя^XKhЙьзgЫWЛm~гRД:њL|ђЈ it©oпm m–ткґ‹УЙx,“* Jm<<ћi]ж©/\ђOVАpЄw¦ЏEEьYџФтЁЇб¦8Ќ–Yї)еOЅz©rI·B7+ёд®ыю-¤яМ‹Дj$F ьrіґщЈЉыњ .кМ/ш¶і2AЏI9куЙ‰й?hЈЧ¶йЋ5»ъGЗXX[сЏ<Ху2H–бuЕmЪ¶y7+їљ8yLЪ†ХзЈоaЂур-©С/Лў х—!ѓl2И.Џв¶ ‘ќШЛ®9@h»р э‡sк€Л ЇnСБє~ПќM љuq :yзюл/офр–gМ¦аf…ЦвулОћ·Њ<ш7љ~ѕМјЪдјgэ—ш[ЃJЯїЎ’oзt%MЛk¦enЫVЇ%€ыPіЅ3ЃЋь®VI>Й[Sё9SJа9UWЙмо!Ѕ|·—їяЦ1®щ{yz¬µx¦яюўЮёУ*iг‡· =/гPѕMoњ_cfeу5\аљЈњ#Я¬оџ{ҐнA›п“Lч±GC1&ьБРМы’Щ?ТзОPsоІ§ЎмaOњѕzп }ТЉ“„цЪ +/mЅs0с1Q«X\fъ©Іь›Д}Еmеg…цЋ hщ4Яб3§O€FЩГ/УAЈ+%{ГЪ5Џ~f9џRoОW‚~ЭL°I¶№СЂ ¦Ћ'Хј~ЗP\кЖ·ЬjъЎIj–Z ЕЙOКfѓБжwбНСWftЧ{є|Њіъo+o»ЅН‘ТеќЫН Ь®Cd¤K0ВxЪЕ·а‡HФx·15—Ш[їцПг Ъф\_¤|шvL~ы5Ъpl^_ЛАgІ*rZЫСКxvlz3&Ћт IKэ¶єZЕ®јsзаЪЩУЈc2у CХћ{«‡ќеXGд…ЃSх:„ґz;жK„в|Ќ&KA{tFпљэКВЋЕҐч»¤g п¤ЊЏ[ЏмNЉ|ЗЂЧCГ)¦L¦Щ·aьЅ^Б