let A0 = 3 cm let ω = 20 Hz let λ = 1.5 s fn amplitude(t) = A0 exp(-t/λ) cos(ω t) line_plot(amplitude, 0 s, 8 s) |> xlabel("Time") |> ylabel("Amplitude") |> show
