TI-Nspire & Lua / Fehlberg 法 2 / リストペアの要素の差の絶対値の最大値を求める、それに意味のないとき

参考: パソコンで見る天体の動き, p.103-109

local unpack = unpack or table.unpack

function maxOfErr(listA, listB)
   local sute = {}
   for i = 1, #listA do
      sute[i] = math.abs(listA[i] - listB[i])
   end
   return math.max(unpack(sute))
end

-- 確かめる。
a4 = {1, 2, 3}
a5 = {5, 10, 20}
print(maxOfErr(a4, a5))

f:id:ti-nspire:20170603061035p:plain:w300