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

equations clj/s

(equations)

evolver clj/s

(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 (/ Math/PI 2)}})

L clj/s

state-derivative clj/s

(state-derivative m1 m2 l1 l2 g)

T clj/s

(T m1 m2 l1 l2 _)

V clj/s

(V m1 m2 l1 l2 g)