c7fc7f15-cc26-413e-b246-a305299d5cc6 2 4 5 false false 0 0 decimal

&[DATE] &[TIME] - &[FILENAME]

$g9.81:$ $k80:$ $m8:$ $\omega km/sqrt:$ $L0.5:$ $IC41matrix:$ $IC1el1:$ $IC2el2:$ $t\phi D\phi 3el\phi 4elL\phi 4eltdiff(*\phi 2elsin*L\phi 4el2^*\phi 2elcos*+g+\omega 2^\phi 1el*-\phi 3eltdiff(\phi 2elsin*g\phi 2elsin*-L/41mat:$ $t.13:$ $nt.1\Delta t/:$ $\Delta t0.01:$ $SIC0t.1nt\phi Dmwode45:$ S 1 col S 2 col augment $\tau 0nrange:$ $t\theta S3colt1+el:$ $t\lambda S2colt1+el:$ $txLt\theta sin*eval:$ $tyt\lambda Lt\theta cos*+eval:$ 0 0 o 10 1 4 mat 0 0 + 10 1 4 mat 0 t λ - . 15 1 4 mat t x - t y - . 30 1 4 mat 0 0 0 t λ - 2 2 mat 0 t λ - t x - t y - 2 2 mat t 0 ≡ path t x - t y - 1 2 mat : path path t x - t y - 1 2 mat stack : if 7 1 sys