Как построить точку {x1,y1,z1} внутри цилиндра с конечными точками как A = {x,y,z} и B = {x',y',z'} и радиусом r, используя Mathematica?Пример будет оценен с диаграммой
{x1,y1,z1}
A = {x,y,z}
B = {x',y',z'}
r
Вы можете использовать что-то похожее на
Graphics3D[ {{PointSize[0.03], Point[{0, 0, 0}]}, {Opacity[0.5], Cylinder[{{-1, -1, -1}, {1, 1, 1}}, 0.5]}} ]