/*-----------------------------+
| |
| Shared by www.Aptrafx.com |
| |
+------------------------------*/
//+------------------------------------------------------------------+
//| S-R.mq4 |
//| Copyright © 2005, tageiger aka fxid10t@yahoo.com |
//| http://www.metatrader.org |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005, tageiger aka fxid10t@yahoo.com"
#property link "http://www.metatrader.org"
extern double MaximumRisk =0.02;
extern double DecreaseFactor =3;
extern int Lot.Margin =1000;
extern int Max.Trendlines =55;
extern double Magic =321;
extern string comment ="m S-R";
int b,s,ticket,ChartPeriod;
double buy,sell,btsl,stsl,b.mod,s.mod,bsl.mod,ssl.mod,bsl,ssl;
double spread;spread=Ask-Bid;
int slip;slip=spread/Point;
double fifteen;
int init(){return(0);}
int deinit(){return(0);}
int start(){
if(IsTesting()) {
ChartPeriod=Period();
fifteen=iCustom(Symbol(),0,"Support Resistance",ChartPeriod,144,13,1,5,
true,RosyBrown,Aqua,DeepPink,PaleVioletRed,Red,DarkOrange,DeepSkyBlue,Lime,0,0);}
PosCounter();
if(ObjectsTotal()==0) {return(0);}
BuySell();
if(b==0 && Ask<buy && Bid>sell && buy>0 && sell>0 && IsTradeAllowed()) {
ticket=OrderSend(Symbol(),
OP_BUYSTOP,
LotsOptimized(),
buy,
slip,//slippage
sell,
0,//TakeProfit(),
Period()+comment,
Magic,
Orderexpiration(),//OrderExpiration
Aqua);
if(ticket>0) {
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
{ Print(ticket); }
else Print("Error Opening BuyStop Order: ",GetLastError());
return(0);}}
if(s==0 && Bid>sell && Ask<buy && buy>0 && sell>0 && IsTradeAllowed()) {
ticket=OrderSend(Symbol(),
OP_SELLSTOP,
LotsOptimized(),
sell,
slip,//slippage
buy,
0,//TakeProfit(),
Period()+comment,
Magic,
Orderexpiration(),//OrderExpiration
HotPink);
if(ticket>0) {
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
{ Print(ticket); }
else Print("Error Opening SellStop Order: ",GetLastError());
return(0);}}
TrailStop();
OrderMod();
SL.Mod();
Old.Object.Delete();
Comments();
return(0);}
//+------------------------------------------------------------------+
void PosCounter() {
b=0;s=0;
for(int cnt=0;cnt<=OrdersTotal();cnt++) {
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic) {
if(OrderType()==OP_SELL) s++;
if(OrderType()==OP_SELLSTOP) s++;
if(OrderType()==OP_BUY) b++;
if(OrderType()==OP_BUYSTOP) b++;}}}
void BuySell() {
//buy=0;sell=0;
for(int c=0;c<ObjectsTotal();c++) {
if(ObjectGetValueByShift(ObjectName(c),0)>Ask) {
buy=ObjectGetValueByShift(ObjectName(c),0)+spread;}
if(ObjectGetValueByShift(ObjectName(c),0)<Bid) {
sell=ObjectGetValueByShift(ObjectName(c),0)-spread;}}}
void TrailStop() {
//btsl=0;stsl=0;
for(int i=0;i<OrdersTotal();i++) {
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic && IsTradeAllowed()) {
if(OrderType()==OP_BUY) {
for(int p=0;p<ObjectsTotal();p++) {
if(ObjectGetValueByShift(ObjectName(p),0)<Bid &&
ObjectGetValueByShift(ObjectName(p),0)>OrderOpenPrice() &&
ObjectGetValueByShift(ObjectName(p),0)>OrderStopLoss()) {
btsl=ObjectGetValueByShift(ObjectName(p),0);}
if(btsl>0 && btsl>OrderStopLoss()) {
OrderModify(OrderTicket(),OrderOpenPrice(),btsl,
OrderTakeProfit(),OrderExpiration(),Olive);}}}
if(OrderType()==OP_SELL) {
for(int k=0;k<ObjectsTotal();k++) {
if(ObjectGetValueByShift(ObjectName(k),0)>Ask &&
ObjectGetValueByShift(ObjectName(k),0)<OrderOpenPrice() &&
ObjectGetValueByShift(ObjectName(k),0)<OrderStopLoss()) {
stsl=ObjectGetValueByShift(ObjectName(k),0);}
if(stsl>0 && stsl<OrderStopLoss()) {
OrderModify(OrderTicket(),OrderOpenPrice(),stsl,
OrderTakeProfit(),OrderExpiration(),Sienna);}}} }}}
void OrderMod() {
for(int i=0;i<OrdersTotal();i++) {
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic && IsTradeAllowed()) {
if(OrderType()==OP_BUYSTOP) {
for(int p=0;p<ObjectsTotal();p++) {
if(Ask<ObjectGetValueByShift(ObjectName(p),0) &&
OrderOpenPrice()>ObjectGetValueByShift(ObjectName(p),0)) {
b.mod=ObjectGetValueByShift(ObjectName(p),0)+spread;
if(b.mod<OrderOpenPrice()) {buy=b.mod;}
if(buy==0 || buy>=OrderOpenPrice()) {return(0);}
OrderModify(OrderTicket(),buy,OrderStopLoss(),
OrderTakeProfit(),OrderExpiration(),Blue);}}}
if(OrderType()==OP_SELLSTOP) {
for(int k=0;k<ObjectsTotal();k++) {
if(Bid>ObjectGetValueByShift(ObjectName(k),0) &&
OrderOpenPrice()<ObjectGetValueByShift(ObjectName(k),0)) {
s.mod=ObjectGetValueByShift(ObjectName(k),0)-spread;
if(s.mod>OrderOpenPrice()) {sell=s.mod;}
if(sell==0 || sell<=OrderOpenPrice()) {return(0);}
OrderModify(OrderTicket(),sell,OrderStopLoss(),
OrderTakeProfit(),OrderExpiration(),Red);}}} }}}
void SL.Mod() {
for(int i=0;i<OrdersTotal();i++) {
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic && IsTradeAllowed()) {
if(OrderType()==OP_BUYSTOP) {
for(int d=0;d<ObjectsTotal();d++) {
if(Bid>ObjectGetValueByShift(ObjectName(d),0) &&
OrderStopLoss()<ObjectGetValueByShift(ObjectName(d),0)) {
bsl.mod=ObjectGetValueByShift(ObjectName(d),0)-spread;
if(bsl.mod>OrderStopLoss()) {bsl=bsl.mod;}
if(bsl==0 || bsl<=OrderStopLoss()) {return(0);}
OrderModify(OrderTicket(),OrderOpenPrice(),bsl,
OrderTakeProfit(),OrderExpiration(),Blue);}}}
if(OrderType()==OP_SELLSTOP) {
for(int j=0;j<ObjectsTotal();j++) {
if(Ask<ObjectGetValueByShift(ObjectName(j),0) &&
OrderStopLoss()>ObjectGetValueByShift(ObjectName(j),0)) {
ssl.mod=ObjectGetValueByShift(ObjectName(j),0)+spread;
if(ssl.mod<OrderStopLoss()) {ssl=ssl.mod;}
if(ssl==0 || ssl>=OrderStopLoss()) {return(0);}
OrderModify(OrderTicket(),OrderOpenPrice(),ssl,
OrderTakeProfit(),OrderExpiration(),Red);}}} }}}
double LotsOptimized() {
double lot;
int orders=HistoryTotal();
int losses=0;
lot=NormalizeDouble(AccountFreeMargin()*MaximumRisk/Lot.Margin,2);
if(DecreaseFactor>0) {
for(int i=orders-1;i>=0;i--) {
if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)==false) { Print("Error in history!"); break; }
if(OrderSymbol()!=Symbol() || OrderType()>OP_SELL) continue;
if(OrderProfit()>0) break;
if(OrderProfit()<0) losses++; }
if(losses>1) lot=NormalizeDouble(lot-lot*losses/DecreaseFactor,2); }
if(lot<0.01) lot=0.01;
return(lot); }//end LotsOptimized
void Old.Object.Delete() {
if(ObjectsTotal()==0) {return(0);}
if(!IsTesting()) {ObjectsDeleteAll(0,22);}
if((Minute()==0 && Seconds()<=15) || (Minute()==15 && Seconds()<=15) ||
(Minute()==30 && Seconds()<=15) || (Minute()==45 && Seconds()<=15)) {ObjectsDeleteAll(0,OBJ_TREND);}
if(ObjectsTotal()>Max.Trendlines) {ObjectsDeleteAll(0,OBJ_TREND);}}
datetime Orderexpiration() {
if(Period()<60) {
double hr=Hour();
string date=TimeToStr(CurTime(),TIME_DATE);
string hour=DoubleToStr(hr,0);
string minutes=":59";
return(StrToTime(date+" "+hour+minutes));}
if(Period()>=60) {
hr=Hour()+(Period()/60);
date=TimeToStr(CurTime(),TIME_DATE);
hour=DoubleToStr(hr,0);
minutes=":00";
return(StrToTime(date+" "+hour+minutes));}}//end timedelete
void Comments() {
if(!IsTesting()) {
Comment("Last Tick: ",TimeToStr(CurTime(),TIME_DATE|TIME_SECONDS),"\n",
"Total S/R Lines: ",ObjectsTotal()); }}
Sample
Analysis
Market Information Used:
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Checks for the total of open orders
It can change open orders parameters, due to possible stepping strategy
Other Features: