Общие вопросы по разработке > ЛЧИ 2018 - как лог сделок вынести на график?

[m4Dmitry]

Камрады!!!

Ну очень интересно посмотреть сделки самых успешных и не очень успешных участников ЛЧИ 2018.

На сайте http://investor.moex.com есть возможность скачать сделки в xls формате.

А вот как бы их вынести в терминал?

[evge]

Хорошая идея!

реализую, как появится время, если меня не опередят

[m4Dmitry]

Хорошая идея!
реализую, как появится время, если меня не опередят

Вот такой ресурс нашел - https://atikhonov.shinyapps.io/lchi2018/#dashboard-4 но что-то он тупит и т.д.
И вот такой топик был на СмартЛабе https://smart-lab.ru/blog/220596.php

[Simonov]

Вау! Какая идея классная. Неистово плюсую. Евгений Алексеевич, уповаем, крестимся и молимся! Надеемся и верим.

[m4Dmitry]

Вау! Какая идея классная. Неистово плюсую. Евгений Алексеевич, уповаем, крестимся и молимся! Надеемся и верим.

[evge]

Уже есть результаты

На примере BRX8, RIZ8

Участник: Qqqq2018

на графике сделки, внизу объем (покупка - зеленым, продажа - красным)

BRX8, Qqqq2018

Investor-Moex-Com-2_182782-BRX-01.png (35.45 КБ) 50944 просмотра

RIZ8, Qqqq2018

Investor-Moex-Com-2_182782-RIZ8-01.png (36.89 КБ) 50939 просмотров

Код чуть-чуть приведу в порядок и выложу тут

[evge]

Предварительный вариант.

Если что-то не так, сообщайте.

Видел баг, если отмотать фьючерс далеко назад в историю, то можно увидеть фантомные сделки по ценам которых не было

Код вывода сделок и определения бара надо будет чуть довести до ума позже.

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

function Initialize()
{
IndicatorName = "Trades";
PriceStudy = true;   
AddInput("I", Inputs.Candle);   

AddSeries("CountBuy", DrawAs.Custom, Color.Green, AxisType.ZeroBased, true, Axes.New);
AddSeries("CountSell", DrawAs.Custom, Color.Red, AxisType.ZeroBased, true, Axes.New);
AddSeries("Buy", DrawAs.Custom, Color.Green);   
AddSeries("Sell", DrawAs.Custom, Color.Red);   

AddGlobalVariable("C", Types.DoubleList); // кол-во
AddGlobalVariable("Price", Types.DoubleList); // цена
AddGlobalVariable("DT", Types.DoubleList); // дата и время
AddGlobalVariable("Type", Types.IntList); // тип

AddGlobalVariable("NeedRead", Types.Boolean, true); // читать файл?
}

function Evaluate()
{

// evge 05.10.2018 http://alfadirect4.ru

// скачиваем сделки участника с страницы конкурса ЛЧИ
// http://investor.moex.com/ru/statistics/2018/
// файл распаковываем и указываем путь в переменной File (ниже)

// Считываем параметры сделок из файла File (1 раз) в списки DoubleList
// ФОРМАТ .csv файла: Дата время (ГГГГ-ММ-ДД HH:MM:SS.000);Тикер;Кол-во;Цена
if (C.Count == 0 && NeedRead)
{
   // Укажите файл сделок ЛЧИ
   string File = @"C:\\temp\\1_182704.csv";   
      
   var Ticker = I.VirtualSecurity.Split('=')[0];
   string S = "";
   
   if (System.IO.File.Exists(File))
   {
   System.IO.StreamReader F = new System.IO.StreamReader(File);
   while (!F.EndOfStream)
   {   
      S = F.ReadLine();
      string[] Data = S.Split(';');
      if (Ticker != Data[1].Trim()) continue;         
      if (Data.Count() >= 4)
      {         
         var count = double.Parse(Data[2]);
         C.Add(count);
         Price.Add(double.Parse(Data[3].Replace(".",",")));
         var D = DateTime.ParseExact(Data[0].Substring(0, 19), "yyyy-MM-dd HH:mm:ss", null);
         DT.Add(D.ToBinary());
         if (count < 0)
            Type.Add(-1);
         if (count > 0)
            Type.Add(1);
      }
   }
   F.Close();
   }
NeedRead = false;
} // C == 0

for (var x = 0; x < C.Count; x++)
{   
   long b = Convert.ToInt64(DT[x]);
   DateTime d = DateTime.FromBinary(b).Date;
   TimeSpan t =  DateTime.FromBinary(b).TimeOfDay;   
   if (BarDate(0) == d && BarDate(1) != d && BarTime(0) == AsTime(0,0,0) && BarTime(1) == AsTime(0,0,0))
   {
      if (Type[x] > 0) { Buy[0] = Price[x]; CountBuy[0] += C[x]; }
      if (Type[x] < 0) { Sell[1] = Price[x]; CountSell[0] += C[x]; }
   } else
   if (BarDate(0) == d && t == BarTime(0))
   {
      if (Type[x] > 0) { Buy[0] = Price[x]; CountBuy[0] += C[x]; }
      if (Type[x] < 0) { Sell[0] = Price[x]; CountSell[0] += C[x]; }
   } else
   if (
      (BarDate(0) == d && t > BarTime(1) && t < BarTime(0))
         ||
      (BarDate(1) == d && BarDate(0) > BarDate(1) && t > BarTime(1) && t > BarTime(0))
      )
   {
      if (Type[x] > 0) { Buy[1] = Price[x]; CountBuy[1] += C[x]; }
      if (Type[x] < 0) { Sell[1] = Price[x]; CountSell[1] += C[x]; }
   }
}

Buy.DrawArrowUp();
Sell.DrawArrowDown();
CountBuy.DrawHistogram();
CountSell.DrawHistogram();

}


[evge]

После добавления индикатора, лучше сразу увеличить размер для меток, как на скриншоте.

Investor-Moex-Com-01.png (21.68 КБ) 50933 просмотра

[Simonov]

Класс! Спасибо большое! А с чем может быть связан глюк "фантомных сделок"?

[evge]

Код выше поправил,

Если сделок нет на текущем графике, слишком нудно читать пыталось файл на каждом баре и рождались тормоза в терминале