1
$\begingroup$

I'm still a newbie in Mathematica. I want to draw a beam of radius of the sphere in $\mathbb{R}^3$ without the surface appearing (look at the attached image). I would like so many to appear that the drawing looks dense but not so many that they overlap too much. Thanks for your help.

enter image description here

$\endgroup$
3
  • $\begingroup$ Please post some Mathematica code and some pictures to descript what you want. $\endgroup$
    – cvgmt
    Oct 28, 2022 at 7:40
  • $\begingroup$ I just added an image @cvgmt $\endgroup$ Oct 28, 2022 at 7:50
  • $\begingroup$ Similar perhaps to 219943. $\endgroup$
    – Syed
    Oct 28, 2022 at 9:14

2 Answers 2

5
$\begingroup$

Similar to what Ulrich Neumann wrote:

With[{n = 1000, r = 0.01}, 
  Graphics3D[{MaterialShading["Copper"], 
              Cone[{#, {0, 0, 0}}, r] & /@ SpherePoints[n]}, 
             Background -> Black, Boxed -> False]]

To go further you'd need proper ray tracing. For example, export as POV and run through POV-Ray.

enter image description here

$\endgroup$
4
$\begingroup$

Try SpherePoints[...]

pts = SpherePoints[200];
Graphics3D [{Orange, Line[Map[{{0, 0, 0}, #} &, pts]]},Boxed -> False] 

enter image description here

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.