Advanced Search

Question: how to plot the graph?

Question:how to plot the graph?

Sofey 10 Maple 13
November 02 2012
0 
> restart; with(plots); with(LinearAlgebra); with(linalg);
> m1 := 2280; m2 := 2243; m3 := 2220; k1 := 300; k2 := 200; k3 := 100; F0 := 4.1; omega1 := sqrt((k1+k2)/m1);
> Sys := m1*(diff(u1(t), t, t))+(k1+k2)*u1(t)-k2*u2(t) = F0*cos(omega*t);
print(??); # input placeholder
> IC := u1(0) = 0, (D[1](u1))(0) = 0;
> csol := dsolve({IC, Sys}, {u1(t)});
%;
> p1 := subs(csol, u1(t));
> 
> plot(p1, t = 0 .. 10*Pi, 'color' = "red", 'thickness' = 2, labels = ['t', 'u(t)'], title = "red=First Floor");
Please Wait...