damp_oscillator_animation.mw

Animation af svingningsfunktionen for en svagt dæmpet harmonisk oscillator 

 

> with(plots); -1
 

> `:=`(y, proc (t) options operator, arrow; `+`(`*`(5, `*`(exp(`+`(`-`(`/`(`*`(`/`(5, 8), `*`(t)), `*`(Pi))))), `*`(cos(`*`(sqrt(4.9), `*`(t))))))) end proc); 1
 

proc (t) options operator, arrow; `+`(`*`(5, `*`(exp(`+`(`-`(`/`(`*`(`/`(5, 8), `*`(t)), `*`(Pi))))), `*`(cos(`*`(sqrt(4.9), `*`(t))))))) end proc
 

> animate(plot, [y(t), t = 0 .. x], x = 0 .. 35, frames = 200, view = [0 .. 35, -5 .. 5], color = red, thickness = 4); 1
 

Plot_2d
 

>