m=slider(0,10,0.1) m=1 c=slider(0,50,0.1) c=2 k=slider(0,100,0.1) k=10 omega=slider(0.01,10,0.01) omega=4 f(x)=sin(omega*x) amplitude=1/sqrt(omega^4-16*omega^2+100) xStart=0 yStart=0 yPrimeStart=0 xFinal=100 step=slider(0.01,1,0.01) SolveODE(c/m,k/m,f,xStart,yStart,yPrimeStart,xFinal,step) Text("Solution to " + m + " u'' + " + c + " u' +" + k + " u = 0", (2, 3), true) ZoomIn(-50,-2,50,2)