# Scaled Point in Graphics3D

xzak = {-10, 10};
yzak = {-10, 10};
fun := x^2 + y^2;
wykres = Plot3D[
fun, {x, xzak[], xzak[]}, {y, yzak[], yzak[]},
ColorFunction -> Function[{x, y, z}, Hue[z]]];
Graphics3D[
{
wykres[],
Point[{{1, 1, 1}}, Scaled[{2, 2, 2}]]
}
]


Ok guys I have a problem I'd like to Plot3D function fun and then plot a scaled Point in same Graphic. I'd like to make point bigger and could clearly see it.

• Point[{{1, 1, 1}, Scaled[{2, 2, 2}]}] -- note where the {} go.... Next, perhaps BoxRatios and PointSize would be helpful. Also, I would probably use Show to combine the graphics, instead of extracting them from wkres. – Michael E2 Jan 13 '15 at 12:33

With some bells and whistles:

Manipulate[
fun := x^2 + y^2;
Show[
Plot3D[fun,
{x, -rng, rng},
{y, -rng, rng},
ColorFunction ->
Function[{x, y, z}, Hue[z]],
PlotStyle -> Opacity[opac]],
Graphics3D[
{Blue,
AbsolutePointSize[pt],
Point[{1, 1, 1}]}]],
{{rng, 2, "x & y Range"}, 1.5, 10,
Appearance -> "Labeled"},
Row[{
Control[
{{opac, .75, "Opacity"}, Range[.5, 1, .05]}],
Spacer,
Control[
{{pt, 5, "Point Size"}, Range[2, 15]}]}]] 