-- INPUTS:
--   values  : { v1, v2, ... , vN }
--   weights : { w1, w2, ... , wN }
-- OUTPUT:
--   weighted average

function WeightedAverage(values, weights)
  local num = 0, den = 0
  for i = 1, #values do
    num = num + values[i] * weights[i]
    den = den + weights[i]
  end
  return (num / den)
end

-- Функция рассчета средневзвешенного
-- Средневзвешенное значение = (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;

  {
  { direction  =   'B' , value  =   33000.0  },
  { direction  =   'S' , value  =   32000.0  },
}
  

{
  { direction = 'B', value = 33000.0 },
  { direction = 'S', value = 32000.0 },
}

   function   calc_result (tradelist)
   local  result  =   0 
   for  i,t  in  ipairs(tradelist)  do 
     if  t.direction  =  =   'B'   then 
      result  =  result  -  t.value
     elseif  t.direction  =  =   'S'   then 
      result  =  result  +  t.value
     else 
      error( 'WTF' )
     end 
   end 
   return  result
 end 
  

function calc_result(tradelist)
  local result = 0
  for i,t in ipairs(tradelist) do
    if t.direction == 'B' then
      result = result - t.value
    elseif t.direction == 'S' then
      result = result + t.value
    else
      error('WTF')
    end
  end
  return result
end