//+------------------------------------------------------------------+
//| Risk.mq4 |
//| Copyright 2016, AM2 |
//| http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2016, AM2"
#property link "http://www.forexsystems.biz"
#property version "1.00"
#property strict
#property indicator_chart_window
extern double Risk = 1; // риск %
extern color LineColor = Red; // цвет линии
extern int LineStyle = 0; // стиль линии
extern int Magic = 0; // магик
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
//---
Comment("");
//---
return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
Comment("");
ObjectsDeleteAll();
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void PutTrendLine(string name,double pr)
{
ObjectDelete(0,name);
ObjectCreate(0,name,OBJ_TREND,0,Time[10],pr,Time[0],pr);
//--- установим цвет линии
ObjectSetInteger(0,name,OBJPROP_COLOR,LineColor);
//--- установим стиль отображения линии
ObjectSetInteger(0,name,OBJPROP_STYLE,LineStyle);
//--- установим толщину линии
ObjectSetInteger(0,name,OBJPROP_WIDTH,1);
//--- включим (true) или отключим (false) режим продолжения отображения линии вправо
ObjectSetInteger(0,name,OBJPROP_RAY_RIGHT,false);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void PutText(string name,string text,double price)
{
ObjectDelete(0,name);
//--- создадим объект "Текст"
ObjectCreate(0,name,OBJ_TEXT,0,Time[5],price);
//--- установим текст
ObjectSetString(0,name,OBJPROP_TEXT,text);
//--- установим шрифт текста
ObjectSetString(0,name,OBJPROP_FONT,"Arial");
//--- установим размер шрифта
ObjectSetInteger(0,name,OBJPROP_FONTSIZE,12);
//--- установим цвет
ObjectSetInteger(0,name,OBJPROP_COLOR,LineColor);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
double OrdersLot()
{
double lot=0;
for(int i=OrdersTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
{
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
if(OrderType()<2) lot+=OrderLots();
}
}
}
return(lot);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int CountTrades()
{
int count=0;
for(int i=OrdersTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
{
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
if(OrderType()<2) count++;
}
}
}
return(count);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void DeleteObject()
{
int ticket=0;
string name="";
for(int i=OrdersTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
{
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
name=ObjectName(i);
if(name!="Stop"+(string)OrderTicket()) ObjectDelete(0,name);
}
}
}
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int OnCalculate(const int rates_total,
const int prev_calculated,
const datetime &time[],
const double &open[],
const double &high[],
const double &low[],
const double &close[],
const long &tick_volume[],
const long &volume[],
const int &spread[])
{
//---
double stop=0;
if(OrdersLot()>0) stop=AccountBalance()*Risk/(OrdersLot()*100);
for(int i=OrdersTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
{
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
if(OrderType()==0)
{
PutTrendLine("Stop"+(string)OrderTicket(),OrderOpenPrice()-stop*Point);
PutText("Risk"+(string)OrderTicket(),(string)Risk+"%",OrderOpenPrice()-stop*Point);
}
if(OrderType()==1)
{
PutTrendLine("Stop"+(string)OrderTicket(),OrderOpenPrice()+stop*Point);
PutText("Risk"+(string)OrderTicket(),(string)Risk+"%",OrderOpenPrice()+stop*Point);
}
}
}
}
//DeleteObject();
Comment("\n Lots: ",OrdersLot(),
"\n Stop: ",stop,
"\n Trades: ",CountTrades());
//--- return value of prev_calculated for next call
return(rates_total);
}
//+------------------------------------------------------------------+
Я, если надо, вышлю ТЗ и исходный код (который я получил).
//+------------------------------------------------------------------+
//| Locker.mq4 |
//| Copyright 2016, AM2 |
//| http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2016, AM2"
#property link "http://www.forexsystems.biz"
#property version "1.00"
#property strict
//--- Inputs
extern double Lots = 0.1; // лот
extern double Loss = 5000; // убыток в рублях
extern double Profit = 100; // профит в рублях
extern int StopLoss = 0; // лось
extern int TakeProfit = 50; // язь
extern int Step = 100; // шаг ордеров
extern int Expiration = 10; // истечение ордера в часах
extern int BuySell = 1; // 1-Buy 2-Sell 0-Off
extern int StopLimit = 0; // 0-Stop 1-Limit
extern int Slip = 3; // реквот
extern int Count = 5; // количество отложек
extern int Magic = 123; // магик
//+------------------------------------------------------------------+
//| Expert initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
Comment("");
return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
Comment("");
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void PutOrder(int type,double price)
{
int r=0;
color clr=Green;
double sl=0,tp=0,lot=Lots;
if(type==1 || type==3 || type==5)
{
clr=Red;
if(StopLoss>0) sl=NormalizeDouble(price+StopLoss*Point,Digits);
if(TakeProfit>0) tp=NormalizeDouble(price-TakeProfit*Point,Digits);
}
if(type==0 || type==2 || type==4)
{
clr=Blue;
if(StopLoss>0) sl=NormalizeDouble(price-StopLoss*Point,Digits);
if(TakeProfit>0) tp=NormalizeDouble(price+TakeProfit*Point,Digits);
}
if(type>1) lot=OrdersLot()/Count;
r=OrderSend(NULL,type,lot,NormalizeDouble(price,Digits),Slip,sl,tp,"",Magic,TimeCurrent()+Expiration*3600,clr);
return;
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int CountOrders(int type)
{
int count=0;
for(int i=OrdersTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
{
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
if(OrderType()==type) count++;
}
}
}
return(count);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
double AllProfit()
{
double pr=0;
for(int i=OrdersTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
{
if(OrderSymbol()==Symbol())
{
if(OrderType()==OP_BUY || OrderType()==OP_SELL)
{
pr+=OrderProfit()+OrderCommission()+OrderSwap();
}
}
}
}
return(pr);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int CountTrades()
{
int count=0;
for(int i=OrdersTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
{
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
if(OrderType()<2) count++;
}
}
}
return(count);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int Type()
{
int type=0;
if(OrderSelect(OrdersTotal()-1,SELECT_BY_POS,MODE_TRADES))
{
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
type=OrderType();
}
}
return(type);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
double OrdersLot()
{
double lot=0;
for(int i=OrdersTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
{
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
if(OrderType()<2) lot+=OrderLots();
}
}
}
return(lot);
}
//+------------------------------------------------------------------+
//| Закрытие позиции по типу ордера |
//+------------------------------------------------------------------+
void CloseAll(int ot=-1)
{
bool cl;
for(int i=OrdersTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
{
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
if(OrderType()==0 && (ot==0 || ot==-1))
{
RefreshRates();
cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),Slip,White);
}
if(OrderType()==1 && (ot==1 || ot==-1))
{
RefreshRates();
cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),Slip,White);
}
}
}
}
}
//+------------------------------------------------------------------+
//| Expert tick function |
//+------------------------------------------------------------------+
void OnTick()
{
if(CountTrades()<1)
{
if(BuySell==1) PutOrder(0,Ask);
if(BuySell==2) PutOrder(1,Bid);
}
if(CountTrades()<2)
{
if(Type()==0 && CountOrders(5)<1)
{
for(int i=1;i<=Count;i++)
{
PutOrder(5,Ask-Step*i*Point);
}
}
if(Type()==1 && CountOrders(4)<1)
{
for(int i=1;i<=Count;i++)
{
PutOrder(4,Ask+Step*i*Point);
}
}
}
if(CountTrades()>1 && ((Profit>0 && AllProfit()>Profit)||(Loss>0 && AllProfit()<-Loss))) CloseAll(-1);
Comment("\n Lots: ",OrdersLot(),
"\n Type: ",Type(),
"\n Profit: ",AllProfit());
}
//+------------------------------------------------------------------+
Хотел спросить один вопрос, возможно ли технически сделать первый лот процентом от депо????
Те первые ордера берёюутся % от депо, а дальше умножение стандарт.
Тогда план «Б»:- Подключить этот скрипт к Excel
AM2