Skip to main content
Mathematica

Return to Question

edited tags
Link
Sikandar khan
Sikandar khan
  • 1
  • 1
Source Link
Sikandar khan
Sikandar khan
  • 1
  • 1

Plot3D does not show the image of function

I have a functionR1[x_, t_] = -((t^35 x^2)/10333147966386144929666651337523200000000); I use the following command in Mathematica to show the graph of Function

pic1 = Plot3D[Abs[R1[x, t]], {x, 0, 1}, {t, 0, 1}, PlotRange -> Full, AxesLabel -> {"x", "t"}, AxesEdge -> {{-1, -1}, {-1, -1}, {-1, 1}}, LabelStyle -> Directive[Black, Bold, 14], BoxStyle -> Directive[Thick, Black, 16], BoxRatios -> {1.5, 1.5, 1.5}, ViewPoint -> {-2, -2, 1}, PlotStyle -> Green]

The Image is not shown enter image description here

But when I am using the following Function

R2[x_, t_] = - ((t^35*x^2)/10333147966386144929666651337523200000);

I have just removed three zero from the denominator, Mathematica gives the Image of function using same code

pic1 = Plot3D[Abs[R2[x, t]], {x, 0, 1}, {t, 0, 1}, PlotRange -> Full, 
  AxesLabel -> {"x", "t"}, AxesEdge -> {{-1, -1}, {-1, -1}, {-1, 1}}, 
  LabelStyle -> Directive[Black, Bold, 14], 
  BoxStyle -> Directive[Thick, Black, 16], 
  BoxRatios -> {1.5, 1.5, 1.5}, ViewPoint -> {-2, -2, 1}, 
  PlotStyle -> Green]

The Image of Second Function is enter image description here

How we obtain the Image of 1st Function. I am using Mathematica 13.3.1