Advertisement
Guest User

Untitled

a guest
Aug 23rd, 2017
57
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.36 KB | None | 0 0
  1. rule1=FourierCosTransform[e[x], x, p]-> eF[p,q,s];
  2. rule2=FourierCosTransform[u[x], x, p]-> uF[p,q,s];
  3. rule3=FourierSinTransform[[Theta][x], x, p]-> [Theta]F[p,q,s];
  4. rule4=FourierSinTransform[v[x], x, p]-> vF[p,q,s];
  5. rule={rule1,rule2,rule3,rule4}
  6.  
  7. eq=s (1 + s b) uF[x] + s (1 + s b) vF[x] + s [Theta]F[x] + s^2 b eF[x]
  8.  
  9. Distribute[FourierCosTransform[eq],x,p]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement