Hi, I need to plot this stuff, but unfortunately that doesn't work and I don't understand why. If someone could help me?
diffeq3 = x3''[t] + 10*x3[t] + 0.5*(x3[t] - x4[t]) == 0
diffeq4 = x4''[t] + 10*x4[t] + 0.5*(x4[t] - x3[t]) == 0
sol1 := DSolve[{diffeq3, diffeq4, x3'[0] == 0, x4'[0] == 0,
x3[0] == xo3, x4[0] == xo4}, {x3[t], x4[t]}, t];
posx3[t_, xo3_, xo4_] = x3[t] /. sol1;
posx4[t_, xo3_, xo4_] = x4[t] /. sol1;
Plot[{posx3[t, 1, -1], posx4[t, 1, -1]}, {t, 0, 40}]
The problem is at the end of my file.
Attachments:
