# plotting – How to plot3D contour plot and contour3D

I want to plot 3D plot and contour plot separate and if we want to combine them how is it possible. It does not make even simple draw. Kindly help me pointing out error and correct the code

``````{`(Alpha) = 2/10; (Beta)1 = 5/10;(*k=5/10;Fr=20/10;*)S1 = 6/10; (Delta)1 = 7/10; R1 = 3/10; Ec =5/10; Pr = 6.78;sol = ParametricNDSolve({(1 + 1/(Beta)1)*2* f'''((Eta)) - (1 + 1/(Beta)1)*k*f'((Eta)) +2*f((Eta))*f''((Eta)) - f'((Eta))*f'((Eta)) + g((Eta))*g((Eta)) - Fr*f'((Eta))*f'((Eta)) == 0, (1 + 1/(Beta)1)*(g''((Eta)) - k*g((Eta))) + 2*f((Eta))*g'((Eta)) - 2*f'((Eta))*g((Eta)) -Fr*g((Eta))*g((Eta)) == 0, (1 + 4/3*R1)*j''((Eta)) + Pr*f((Eta))*j'((Eta)) + 6*Pr *Ec*f'((Eta))*f'((Eta)) + 2*(1 + 1/(Beta)1)*Pr *Ec*f''((Eta))*f''((Eta)) + 2*(1 + 1/(Beta)1)*Pr *Ec*g'((Eta))*g'((Eta)) == 0,f(0) == S1, f'(0) == (Delta)1, f'(10) == 0, g(0) == 1,g(10) == 0, j(0) == 1, j(10) == 0}, {f, g, j}, {(Eta), 0,10}, {Fr, k});A2 = Plot3D(Evaluate((f'(Fr, 0.3)((Eta))) /. sol), {(Eta), 0, 8}, {Fr, 0, 3},PlotRange -> All) A3 = ContourPlot(Evaluate((f'(Fr, 0.3)((Eta))) /. sol), {(Eta), 0, 8}, {Fr, 0, 3},PlotRange -> All) A4 = ContourPlot3D(Evaluate((f'(Fr, 0.3)((Eta))) /. sol), {(Eta), 0, 8}, {Fr, 0, 3}) A5 = ContourPlot3D(Evaluate((f'(Fr, k)(0)) /. sol), {k, 0, 8}, {Fr, 0, 3})`}
``````