Advertisement
Guest User

Untitled

a guest
Mar 30th, 2017
58
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.53 KB | None | 0 0
  1. FullSimplify[ DSolve[{y'''[z] == -I*Betta*y'[z] + B}, y[z], z] /.
  2. Solve[0 ==
  3. C[3] + C[2]*Cosh[I/2*(I*Betta)^0.5] +
  4. C[1]/I*Sinh[I/2*(I*Betta)^0.5] + B/(2*I*Betta) &&
  5. 0 == C[3] + C[2]*Cosh[I/2*(I*Betta)^0.5] -
  6. C[1]/I*Sinh[I/2*(I*Betta)^0.5] - B/(2*I*Betta) &&
  7. 1 == C[2]*I*(I*Betta)^0.5*Sinh[I/2*(I*Betta)^0.5] +
  8. C[1]*(I*Betta)^0.5*Cosh[I/2*(I*Betta)^0.5] + B/(I*Betta) &&
  9. 1 == -C[2]*I*(I*Betta)^0.5*Sinh[I/2*(I*Betta)^0.5] +
  10. C[1]*(I*Betta)^0.5*Cosh[I/2*(I*Betta)^0.5] + B/(I*Betta), {C[1],
  11. C[2], C[3], B}] ]// TraditionalForm
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement