2017-07-18から1日間の記事一覧
参考: パソコンで見る天体の動き, pp.131-142 function extrapolation(funcs, t0, inits, h) local unpack = unpack or table.unpack local t0 = t0 local inits = inits local function list2oneColMat(list) local oneColMat = {} for i = 1, #list do one…
参考: パソコンで見る天体の動き, pp.131-142 function newMat(numRows, numCols, val) local mat = {} for i = 1, numRows do mat[i] = {} for j = 1, numCols do mat[i][j] = val or nil end end return mat end function midPoints(funcs, t0, inits, h, …
function seq(func, from, to, step) local sequence = {} local step = step or 1 for i = from, to + step/2, step do sequence[#sequence+1] = func(i) end return sequence end -- 確かめる。 a = seq(function(n) return 1/2^n end, 1, 7, _) print("{"…
function newMat(numRows, numCols, val) local mat = {} for i = 1, numRows do mat[i] = {} for j = 1, numCols do mat[i][j] = val or nil end end return mat end -- 確かめる。3 × 7 行列を作る。初期値は 1 とする。 a = newMat(3, 7, 1) for r = 1, #…