валерий (Автор тем)

local stopped = false

function OnStop(flag)
    stopped = true
end

function f11()
   local fpath = getScriptPath() .. "\\tos11.log"
   local f = io.open(fpath, "w+")
   f:close()
   f = nil
end

function main()
    while not stopped do
      f11()
      sleep(100)
    end
end

function RF()
   return function(index)
      if C(index) then
         ind, n, l = getCandlesByIndex (Settings.tag, 0, index - 1, 1)
         return ind[0].close
      end
      return nil
   end
end

' Функция заполнить таблицу
' -----------------------------
FUNC FILL_TBL()
   val1 = bar_time
   val2 = signal_pos
   val3 = current_pos
   val4 = buy_quantity
   val5 = sell_quantity
   val6 = trans_id
   val7 = pos_bal
   val8 = status

   map1=create_map()[IMG]c:\Users\ВГ\Pictures\portf.JPG[/IMG]
   map1=SET_VALUE(map1,"val1",val1)
   map1=SET_VALUE(map1,"val2",val2)
   map1=SET_VALUE(map1,"val3",val3)
   map1=SET_VALUE(map1,"val4",val4)
   map1=SET_VALUE(map1,"val5",val5)
   map1=SET_VALUE(map1,"val6",val6)
   map1=SET_VALUE(map1,"val7",val7)
   map1=SET_VALUE(map1,"val8",val8)

   DELETE_ALL_ITEMS()
   add_item(1,map1)
   BGC = "DEFAULT_COLOR"
   FC = "DEFAULT_COLOR"
   if error <> 0 or check_deal >= 10 or check_frun <> 0
      BGC = "RGB(250,200,150)"
   end if
   if status = "STOP"
      BGC = "RGB(250,150,150)"
   end if
   if trade_on_of = "0"
      FC = "RGB(50,200,50)"
   end if
   SET_ROW_COLOR_EX(1, BGC, "DEFAULT_COLOR", FC, "DEFAULT_COLOR")
   tt = t_time(0)
   WRITELN(logfile_path, signal_pos  & "," & current_pos  & "," & pos_bal  & "," & buy_quantity  & "," & sell_quantity  & "," & last_price  & "," & last_time  & "," & best_bid  & "," & best_offer  & "," & status)
   WRITELN(logfile_path, "END"  & "," & tt)

END FUNC

nn0 = string.gsub(getInfoParam ("SERVERTIME"), ":", "")
nn1 = tonumber(nn0)
nn2 = tonumber(string.gsub(getInfoParam ("SERVERTIME"), ":", ""))
message(type(nn0).." ".. type(nn1).." ".. type(nn2))

--require "w32" -- говорят что нужна, на практике не увидел
require "luacom"
local isrun = true

function OnStop(flag)
    isrun = false
end
function main()
--w32.CoInitialize(nil)

ML = luacom.CreateObject("matlab.application.single")
assert(ML)
ML.Visible = 1 -- не обязательно там все равно ничего в принципе не видно, но проще убить процесс если что

t = tos(0)
message("tos = " .. tostring(#t)) -- меньше 150 тк фильтр по "SPBFUT"

ML:PutWorkspaceData("C1", "base", t); -- отправляем в МЛ под именем С1
message("Put")
wd = ML:GetWorkspaceData('C1', 'base') -- а вот так получаем обратно
message("C1(1,1) = " .. tostring(wd[1][1]))
ML:Execute("r = TST;") -- в МЛ у меня эта функция пишет данные в файл и возвращает "1", если все гладко
r = ML:GetWorkspaceData('r', 'base') -- на прямую результат возвращает криво, так наверно удобнее
message("Execute TST = " .. tostring(r))

ML:Quit()
ML = nil
--w32.CoUninitialize(nil)
message("end COM ML")
end

function tos(n) -- читает ТОС  в матрицу начиная с "n"
   local outcell = {}
   local cnt = 0
   nn = getNumberOf("all_trades")
   for i = n, 150 do -- для примера хватит 150 строчек, но максимум 1500 * 5
                                 -- приходится ограничить - у LuaVM случается грыжа при передаче в МЛ более чем 2000*5
      trade = getItem("all_trades", i)
      cc = trade["class_code"]
      if cc == "SPBFUT" then
         cnt = cnt + 1
         dt = trade["datetime"]
         dt = dt.hour*10000 + dt.min*100 + dt.sec
         outcell[cnt] = {trade.trade_num, trade.sec_code, trade.qty, trade.price, dt}
      end
   end
   return outcell
end

require "luacom"
ami = luacom.CreateObject("Broker.Application")
ami.Visible = true
aa = ami:LoadDatabase("D:\\PF\\AmiBroker\\DB\\trade")

qq = ami:Import(0, "c:\\valg\\rt.txt")

st = ami.Stocks:Add("RTSI")