sicmutils.examples.double-pendulum — net.littleredcomputer/sicmutils 0.12.0

equations clj

(equations)

evolver clj

(evolver {:keys [t dt g m1 l1 theta_0 thetadot_0 m2 l2 phi_0 phidot_0 observe]
          :or {phi_0 0
               t 1
               phidot_0 0
               m1 1
               l1 0.5
               thetadot_0 0
               dt 1/60
               g 9.8
               l2 0.5
               m2 1
               theta_0 (/ pi 2)}})

L clj

state-derivative clj

(state-derivative m1 m2 l1 l2 g)

T clj

(T m1 m2 l1 l2 _)

V clj

(V m1 m2 l1 l2 g)