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

equations clj

(equations)

evolver clj

(evolver {:keys [t dt a omega g theta_0 thetadot_0 observe]
          :or {t 1 dt 1/60 a 0 omega 0 g 9.8 theta_0 1 thetadot_0 0}})

L clj

(L m l g a ω)

state-derivative clj

(state-derivative m l g a ω)

vertical-periodic-drive clj

(vertical-periodic-drive amplitude frequency phase)