Иван (Все сообщения пользователя)

-- Функция рассчета средневзвешенного
-- Средневзвешенное значение = (x1*w1 + x2*w2 + x3*w3) / (w1+w2+w3)
-- x1,x2,x3 - это значение (например цена)
-- w1,w2,w3 - вес каждого
-- $a = [10,20,30];
-- $b = [5,6,7];
-- $ar = array_map(function($e1,$e2){ return $e1*e2; }, $a, $b);
-- $result = array_sum($ar)/array_sum($b);
-- }
function _QuikUtilityWeightedAverage(ar1,ar2)

        local ar1_map = {};
        for i=1, #ar1 do
                ar1_map[#ar1_map+1] = ar1[i] * ar2[i];
        end;

        local sumAr1 = 0;
        for i=1, #ar1_map do
                sumAr1 = sumAr1 + ar1_map[i];
        end;

        local sumAr2 = 0;
        for i=1, #ar2 do
                sumAr2 = sumAr2 + ar2[i];
        end;

        return tonumber(sumAr1/sumAr2);
end;

   --   label_params = {
      --   TEXT = "----------------=ТЕСТ=----------------",
         --DATE = 20200430,
         --TIME = 221000,
         --YVALUE = 110900,
      --   R = 200,
      --   G = 200,
      --   B = 200,
      --   -- HINT = "-----------------------"
   --   };
      
   --   label_id = AddLabel("priceTest", label_params);

 
-- Функция создает таблицу
function CreateTable()
   
   -- Получает доступный id для создания
   t_id = AllocTable(); 
   
   -- Создаем колонки
   AddColumn(t_id, 0, "", true, QTABLE_STRING_TYPE, 5);
   AddColumn(t_id, 1, "", true, QTABLE_STRING_TYPE, 20);
   AddColumn(t_id, 2, "", true, QTABLE_STRING_TYPE, 5);
   AddColumn(t_id, 3, "", true, QTABLE_STRING_TYPE, 5);

   t = CreateWindow(t_id);-- Создает таблицу
   SetWindowCaption(t_id, "Enter trade 0.1"); -- Устанавливает заголовок   
   SetWindowPos(t_id, 100, 100, 252, 532); -- Задает положение и размеры окна таблицы
   
   -- Дальше пошли строки и колонки...
end;

         -- Alert
         local callResult, result = pcall(dofile, getScriptPath().."\\Script.lua")
         if callResult then
            -- все в порядке, result это то, что вернула функция dofile
         else
            -- result это сообщение об ошибке
            message(tostring(result));
            sleep(5000);
         end;

function OnTrade(trade)

   -- Функция OnTrade() может высываться несколько раз...
   if check_last_trade_num < trade_num then
   check_last_trade_num = trade_num;  -- Запомним номер последнего трейда