daily pastebin goal
9%
SHARE
TWEET

Untitled

a guest Mar 15th, 2019 47 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. element =
  2.  SphericalPlot3D[
  3.   1 + Sin[5 [Phi]]/5, {[Theta], 0, Pi}, {[Phi], 0, 2 Pi},
  4.   PlotStyle ->
  5.    Directive[Orange, Opacity[0.7], Specularity[White, 10]],
  6.   Mesh -> None, PlotPoints -> 30, Boxed -> False, Axes -> None];
  7.  
  8. BubbleChart3D[RandomReal[1,{10,4}], ChartElements->element]
  9.      
  10. obj = First@SphericalPlot3D[1 + 2 Cos[2 θ], {θ, 0, Pi}, {ϕ, 0, 2 Pi}];
  11.      
  12. pts = RandomReal[20, {10, 3}];
  13.      
  14. Graphics3D@Translate[obj, pts]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top