Пока что скажите, какая версия у вас, а я пока посмотрю.
-- Пн апр 11, 2011 21:45:20 --Если у вас восьмая, должен целиком работать следующий пример:
Код:
Manipulate[
Show[
Plot3D[Sqrt[1 - x^2 - y^2], {x, -1, 1}, {y, -1, 1}],
Graphics3D[{
PointSize[.03],
Point[1.1 {Cos[s] Cos[t], Cos[s] Sin[t], Sin[s]}]
}]
],
{s, 0, Pi/2, Pi/16}, {t, 0, 2 Pi, Pi/16}
]
Принцип работы:
Show может принимать параметрами несколько форм
Graphics (здесь
Graphics3D), вот мы и объединяем ту, которая получается от выполнения
Plot3D и свою, в которой строится точка размером 3% картинки в нужном месте (над полусферой в заданном направлении).
Manipulate обёрнуто для красоты и тестирования.