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

double N(double x) {
  double ax, t, d, p;
  if (x>10) return(1);
  if(x<-10) return(0);
  ax=fabs(x);
  t=1/(1+0.2316419∗ax);
  d=0.3989423∗exp(-0.5∗x∗x);
  p=d∗t∗((((1.330274∗t-1.821256)∗t+1.781478)∗t--0.3565638)∗t+0.3193815);
  p=(x>0) ? 1-p : p;
  return(p);
}

function main()
  SecCode = { ... }
  -- временная табличка вместо экранной
  local tbl = {}
  -- то же самое, что у вас в цикле, только заполняем не экранную таблицу, а временную
  for i,s in pairs(SecCode) do
    -- здесь у вас s - код бумаги, i - индекс в SecCode
    -- я намеренно опустил if i==1 then, ибо это жесть
    if X>100 then
      -- создаем новую "строку" и добавляем во временную табличку
      local r = {}
      r.direction = "SHORT"
      r.name = NAME
      r.x = X
      table.insert(tbl, r)
    end
    if Y>100 then
      -- создаем новую "строку" и добавляем во временную табличку
      local r = {}
      r.direction = "LONG"
      r.name = NAME
      r.x = X
      table.insert(tbl, r)
    end
  end
  -- тут цикл по SecCode закончился и в tbl лежат строки в каком-то там порядке, теперь мы их сортируем по столбцу x
  table.sort(tbl, function(lhs, rhs) return (lhs.x < rhs.x) end)
  -- и вставляем строки из временной таблицы в видимую
  for i,r in pairs(tbl) do
    local idx = InsertRow(t_id, -1)
    SetCell(t_id, idx, 0, tostring(r.direction))
    SetCell(t_id, idx, 1, tostring(r.name))
    SetCell(t_id, idx, 2, tostring(r.x))
  end
  -- tbl больше не нужна, прибьем ее, чтобы не лопала память
  tbl = nil
  -- дальше что там было дальше
end

getParam("SPBFUT", "RI[%w]*", "bid")

local classcode = "SPBFUT"
local seccode = "RIM0"

...

function do_something()
  local val = getParam(classcode, seccode, param) -- и так везде, где нужно сослаться на инструмент
end