SHARE
TWEET

Untitled

a guest Jun 20th, 2019 46 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. h = 2; k = 8; p = 10;
  2. g1 = ContourPlot[{(x - h)^1.27 + (y - k)^3.75 == 1}, {x, 0, p}, {y, 0,
  3.      p}, ContourStyle -> Red];
  4. g2 = ContourPlot[{(x - h)^1.27 + (y - k)^3.75 == 1}, {y, 0, p}, {x, 0,
  5.      p}, ContourStyle -> Blue] ;
  6. g3 = Plot3D[{(x - h)^1.27 + (y - k)^3.75}, {x, 0, p}, {y, 0, p},
  7.    PlotStyle -> Red];
  8. g4 = Plot3D[{(x - h)^1.27 + (y - k)^3.75}, {y, 0, p}, {x, 0, p},
  9.    PlotStyle -> Blue] ;
  10. Show[{g1, g2}]
  11. Show[{g3, g4}]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top