Есть пространственная кривая
. Если из каждой точки кривой опустить перпендикуляр на плоскость
, эти отрезки сформируют часть цилиндрической поверхности, «сверху» органиченной исходной кривой, а «снизу» — её проекцией на плоскость
.
Пример для
:
(Код Wolfram Language)
Код:
f[t_] := {Cos[t], Sin[t], 1/12 Cos[12 t] + 1}
Show[ParametricPlot3D[{f[t], ReplacePart[3 -> 0][f[t]]}, {t, 0, 2 \[Pi]}, PlotStyle -> Gray], Graphics3D[{Thick, Gray, Table[Line[{f[t], ReplacePart[3 -> 0][f[t]]}], {t, 0, 2 \[Pi], 2 \[Pi]/96}]}], Boxed -> False, Axes -> None]
В данном простом примере получаем часть прямого кругового цилиндра, снизу ограниченную окружностью, сверху — некоей кривулькой.
Вопрос: как задать такую поверхность параметрически, уравнениями и неравенствами? Понятно, что, напрмер, часть цилиндра, отсекаемая двумя параллельными плоскости
плоскостями, задаётся как
. Но дальше у меня пока затык.