Задачка. Найти точку нулевого профита.

[Haos]

Наверное, нужно пример привести.
1 бай: 102.16 *** 1.5 лот
2 бай: 103.00 *** 0.5 лот
3 селл: 102.77 *** 1.8 лот
Yc = (102.6 * 1.5 + 103.0 * 0.5 + 102.77 * 1.8) / (1.5 + 0.5 + 1.8) = 390.386 / 3.8 = 102.73.
Таким образом уровень безубытка - 102.73 (оранжевая линия на рисунке).

[Kalkin]

Вот функция для поиска точки нулевого профита, учитывающая комиссии и накапливающиеся свопы. При локе точка профита будет "0" (отсутствовать).

Код: выделить все

double ZeroLevel()
{
 double BuyLots=0;
 double SellLots=0;
 double BuyProfit=0;
 double SellProfit=0;
 int Total=OrdersTotal();
 for (int i=Total-1;i>=0;i--)
 {
  if (OrderSelect(i,SELECT_BY_POS))
  {
   if (OrderSymbol()!=Symbol()) continue;
   if (OrderType()==OP_BUY)
   {
    BuyLots=BuyLots+OrderLots();
    BuyProfit=BuyProfit+OrderProfit()+OrderCommission()+OrderSwap();
   }
   if (OrderType()==OP_SELL)
   {
    SellLots=SellLots+OrderLots();
    SellProfit=SellProfit+OrderProfit()+OrderCommission()+OrderSwap();
   }
  }
 }
 double Price=0;
 double TickValue=MarketInfo(Symbol(),MODE_TICKVALUE)/(MarketInfo(Symbol(),MODE_TICKSIZE)/Point);
 if ((BuyLots-SellLots)>0) Price=NormalizeDouble(Bid-((BuyProfit+SellProfit)/(TickValue*(BuyLots-SellLots))*Point),Digits);
 if ((SellLots-BuyLots)>0) Price=NormalizeDouble(Ask+((BuyProfit+SellProfit)/(TickValue*(SellLots-BuyLots))*Point),Digits);
 return (Price);
}


[Haos]

Вот функция для поиска точки нулевого профита, ...

В конце кода закрывающей скобки не хватало. Исправил.

[piter]

Вот функция для поиска точки нулевого профита, учитывающая комиссии и накапливающиеся свопы. При локе точка профита будет "0" (отсутствовать).

Код: выделить все

double ZeroLevel()
{
 double BuyLots=0;
 double SellLots=0;
 double BuyProfit=0;
 double SellProfit=0;
 int Total=OrdersTotal();
 for (int i=Total-1;i>=0;i--)
 {
  if (OrderSelect(i,SELECT_BY_POS))
  {
   if (OrderSymbol()!=Symbol()) continue;
   if (OrderType()==OP_BUY)
   {
    BuyLots=BuyLots+OrderLots();
    BuyProfit=BuyProfit+OrderProfit()+OrderCommission()+OrderSwap();
   }
   if (OrderType()==OP_SELL)
   {
    SellLots=SellLots+OrderLots();
    SellProfit=SellProfit+OrderProfit()+OrderCommission()+OrderSwap();
   }
  }
 }
 double Price=0;
 double TickValue=MarketInfo(Symbol(),MODE_TICKVALUE)/(MarketInfo(Symbol(),MODE_TICKSIZE)/Point);
 if ((BuyLots-SellLots)>0) Price=NormalizeDouble(Bid-((BuyProfit+SellProfit)/(TickValue*(BuyLots-SellLots))*Point),Digits);
 if ((SellLots-BuyLots)>0) Price=NormalizeDouble(Ask+((BuyProfit+SellProfit)/(TickValue*(SellLots-BuyLots))*Point),Digits);
 return (Price);
}


Вот сдесь Вы писали

Код: выделить все

Price=NormalizeDouble(Ask+((BuyProfit+SellProfit)/(TickValue*(SellLots-BuyLots))*Point),Digits);

А по моему надо

Код: выделить все

Price=NormalizeDouble(Ask-((BuyProfit+SellProfit)/(TickValue*(SellLots-BuyLots))*Point),Digits);

Вот кусок кода из моего индюка

Код: выделить все

if((so+s)>(bo+b)){
     Dpop2=((ProfitB+ProfitS)-Valjut_pljus);
     pop2=NormalizeDouble(Dpop2/TICKVALUE/(lot_b-lot_s),Digits);
    pop = -pop2;
  Dpop=Dpop2;
      NL = NormalizeDouble(Ask- pop2*Point,Digits);

Когда я поменял за Ask - на +, стал безобразничать...
Не подумайте, что умничаю, я не "волшебник", я только учусь, но при всём к Вам уважении счёл нужным вставить свои "пять копеек", буду признателен за подсказки моих ошибок с Вашей стороны...

[piter]

Наверное, нужно пример привести.
1 бай: 102.16 *** 1.5 лот
2 бай: 103.00 *** 0.5 лот
3 селл: 102.77 *** 1.8 лот
Yc = (102.6 * 1.5 + 103.0 * 0.5 + 102.77 * 1.8) / (1.5 + 0.5 + 1.8) = 390.386 / 3.8 = 102.73.
Таким образом уровень безубытка - 102.73 (оранжевая линия на рисунке).

У Вас здесь почти лок! Правильно будет по этой функции

Код: выделить все

NL = NormalizeDouble((price_b-price_s)/(lot_b-lot_s)

т.е. (102.16+103.00-102.77)/(1.5+0.5-1.8)=5128

[piter]

Извиняюсь...

Код: выделить все

NL = NormalizeDouble((price_b-price_s)/(lot_b-lot_s),Digits)

[Haos]

piter, чтобы не превращать тему в бессмысленные разговоры о том что кажется, приобретите опыт использования данного кода в работе советника, тогда и можем поговорить что как и нужны ли улучшения. Поймите главное - надо не ошибки пытаться искать Вам, а учиться сначала на простых примерах программированию, тогда и сложные со временем будут понятны.

[piter]

piter, чтобы не превращать тему в бессмысленные разговоры о том что кажется, приобретите опыт использования данного кода в работе советника, тогда и можем поговорить что как и нужны ли улучшения. Поймите главное - надо не ошибки пытаться искать Вам, а учиться сначала на простых примерах программированию, тогда и сложные со временем будут понятны.

А мои примеры и доводы разве не подтверждают факты ошибочного подхода к вычислениям, кстати при общении мы как раз и постигаем все премудрости программирования..., так сказать,- от простого к сложному....

[Kalkin]

Вот сдесь Вы писали

Код: выделить все

Price=NormalizeDouble(Ask+((BuyProfit+SellProfit)/(TickValue*(SellLots-BuyLots))*Point),Digits);

А по моему надо

Код: выделить все

Price=NormalizeDouble(Ask-((BuyProfit+SellProfit)/(TickValue*(SellLots-BuyLots))*Point),Digits);

Почему Вы так думаете? Если нашли ошибку, прошу обосновать. Лично я не вижу причин ставить "минус" там, где должен быть "плюс"

[Haos]

Коллеги, просьба ко всем: чтобы не превращать темы в бессмысленный флуд типа: "здесь у вас скорее всего не так", "с чего это не так? " и т.п. просьба того, кто высказывает претензии:
1. не провоцировать других на ответы в свою "защиту".
2. доказательно и аргументированно приводить претензии, вроде того как "по формуле провели расчет получили то-то и то-то, а у вас то-то и то-то".
Если нет формулы по которой можно провести аргументированный факт неправильного вычисления, то на чем может быть основаны сомнения? Так бесконечно можно по любой строчке любого коды начать писать всякую чушь типа, это не то, а это не это. Надеяться, что посты будут засчитаны такие не стоит, более того, при продолжении флуда будут выдаваться предупреждения. Коротко говоря, только доказательные аргументы принимаются!