二重振子も Lua スクリプトでアニメ化するが、これ↓を math.eval() 函数の引数として Lua スクリプトに記述するのは相当難儀である。
よって Nspire 側でユーザー定義函数にまとめることにする。
引数は左から重力加速度、、
、
、
、スタート時間、ストップ時間、
初期値、
初期値、
初期値、
初期値、時間刻み幅、精度
実行結果：
出力された行列は 1 行目が時間 、2 ～ 5 行目が
、
、
、
。
定数は最初から函数内に書き込んでおけば無駄がないがこのままにしておく。
また、返値で必要なのは「次の 」「次の
」「次の
」「次の
」の 4 つだけであるが、これもこのまま、つまり rk23() の返値をすべて出力することにしておく。
