h = 2; k = 8; p = 10;
g1 = ContourPlot[{(x - h)^1.27 + (y - k)^3.75 == 1}, {x, 0, p}, {y, 0,
     p}, ContourStyle -> Red];
g2 = ContourPlot[{(x - h)^1.27 + (y - k)^3.75 == 1}, {y, 0, p}, {x, 0,
     p}, ContourStyle -> Blue] ;
g3 = Plot3D[{(x - h)^1.27 + (y - k)^3.75}, {x, 0, p}, {y, 0, p},
   PlotStyle -> Red];
g4 = Plot3D[{(x - h)^1.27 + (y - k)^3.75}, {y, 0, p}, {x, 0, p},
   PlotStyle -> Blue] ;
Show[{g1, g2}]
Show[{g3, g4}]