I was trying to solve the equation of base excited cantilever. But I couldn't get that. Please help. My input is:
M = EI*D[y[x, t], {x, 2}];
V = EI*D[y[x, t], {x, 3}];
th = EI*D[y[x, t], x];
M1 = M /. x -> 0;
M2 = M /. x -> L;
V1 = V /. x -> 0;
V2 = V /. x -> L;
th1 = th /. x -> 0;
th2 = th /. x -> L;
y1 = y[x, t] /. x -> 0;
y2 = y[x, t] /. x -> L;
s = DSolve[{PA*D[y[x, t], {t, 2}] + EI*D[y[x, t], {x, 4}] +
CI*D[y[x, t], {x, 4}, t] == 0, y1 == 0, th1 == 0, M2 == 0,
V2 == 0}, y[x, t], {x, t}]
But I couldn't get output. The output is:
DSolve[{CI y^(4,1)(x,t)+EI y^(4,0)(x,t)+PA y^(0,2)(x,t)==0,y(0,t)==0,EI y^(1,0)(0,t)==0,EI y^(2,0)(L,t)==0,EI y^(3,0)(L,t)==0},y(x,t),{x,t}]
Attachments: