3
$\begingroup$

How can a kidney shape be plotted in Mathematica?

enter image description here

Improve this question
$\endgroup$
1
  • $\begingroup$ What have you tried? $\endgroup$
    – David G. Stork
    Mar 7 at 5:33

1 Answer 1

Reset to default
8
$\begingroup$

You can plot a bean curve as presented in the link.

Manipulate[
 ContourPlot[c (x^2 + y^2)^2 == a x^3 + b y^3
  , {x, -0.5, 1.25}, {y, -0.5, 1.25}
  , ContourStyle -> Red
  , PlotPoints -> 50
  ]
 , {{a, 1}, 0.5, 1.5}
 , {{b, 1}, 0.5, 1.5}
 , {{c, 1}, 0.5, 1.5}
 ]

enter image description here

Mathematica has a fully featured AnatomyPlot3D command that can display anatomically accurate 3D primitives. The resultant 3D images can be rotated in space.

enter image description here

Improve this answer
$\endgroup$
1
  • $\begingroup$ You can also try: AnatomyPlot3D[Entity["AnatomicalStructure", "UrinarySystem"]] $\endgroup$
    – Syed
    Mar 7 at 4:57

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