F[u,v]:=LaplaceTransform[Cos[x + y],{x,y},{u,v}]
Plot3D[{Cos[u+v],Evaluate[F[u,v]]},{u,-Pi,Pi},{v,-Pi,Pi},
Axes->False,PlotStyle->Opacity[.7],
Mesh->{50,50},MeshStyle->Gray,
ImageSize->500,Boxed->False,AspectRatio->1]
ImageSize->500,Boxed->False,AspectRatio->1]
No comments:
Post a Comment