All Discussions Tagged 'code' - Grasshopper2021-10-18T08:29:40Zhttps://www.grasshopper3d.com/group/mantis/forum/topic/listForTag?tag=code&feed=yes&xn_auth=noHow I can transfer this parametric demonstration of Mathematica into Grasshopper?tag:www.grasshopper3d.com,2015-12-17:2985220:Topic:14231222015-12-17T18:29:04.466ZAysu Aysoyhttps://www.grasshopper3d.com/profile/AysuAysoy
<p></p>
<p>Hello everyone,</p>
<p>I am an architect, and trying to transfer this specific parametric demonstration (which is a parametric minimal surface) into Grasshopper; so that I'll able to manipulate both the shape and its surface. </p>
<p>However, I don't have that much knowledge about both grasshopper and Mathematica.. I mean I can only make assumptions and think about relations of certain functions but that's all. </p>
<p>If you can help me on this, I would appreciate it so…</p>
<p></p>
<p>Hello everyone,</p>
<p>I am an architect, and trying to transfer this specific parametric demonstration (which is a parametric minimal surface) into Grasshopper; so that I'll able to manipulate both the shape and its surface. </p>
<p>However, I don't have that much knowledge about both grasshopper and Mathematica.. I mean I can only make assumptions and think about relations of certain functions but that's all. </p>
<p>If you can help me on this, I would appreciate it so much. </p>
<p></p>
<p>You can see a screenshot of the code and model of the demonstration from mathematica in attachment.</p>
<p></p>
<p>And here is the mathematica code;</p>
<p></p>
<p>Manipulate[<br/> Module[{\[CurlyEpsilon] = 10^-6, c1 = Tan[a1], c2 = Tan[a2], <br/> c3 = Tan[a3], c4 = Tan[a4], c5 = Tan[a5], c6 = Tan[a6]}, <br/> ContourPlot3D[<br/> Evaluate[<br/> c6 Sin[3 x] Sin[2 y] Sin[z] + c4 Sin[2 x] Sin[3 y] Sin[z] + <br/> c5 Sin[3 x] Sin[y] Sin[2 z] + c2 Sin[x] Sin[3 y] Sin[2 z] + <br/> c3 Sin[2 x] Sin[y] Sin[3 z] + c1 Sin[x] Sin[2 y] Sin[3 z] == <br/> 0], {x, \[CurlyEpsilon], <br/> Pi - \[CurlyEpsilon]}, {y, \[CurlyEpsilon], <br/> Pi - \[CurlyEpsilon]}, {z, \[CurlyEpsilon], Pi - \[CurlyEpsilon]},<br/> Mesh -> False, ImageSize -> {400, 400}, Boxed -> False, <br/> Axes -> False, NormalsFunction -> "Average", <br/> PlotPoints -> ControlActive[10, 30], <br/> PerformanceGoal -> "Speed"]], {{a1, 1, <br/> "\!\(\*SubscriptBox[\(\[Alpha]\), \(1\)]\)"}, -Pi/2 - 0.01, <br/> Pi/2 + 0.01, <br/> ImageSize -> Tiny}, {{a2, 1, <br/> "\!\(\*SubscriptBox[\(\[Alpha]\), \(2\)]\)"}, -Pi/2 - 0.01, <br/> Pi/2 + 0.01, <br/> ImageSize -> Tiny}, {{a3, 1, <br/> "\!\(\*SubscriptBox[\(\[Alpha]\), \(3\)]\)"}, -Pi/2 - 0.01, <br/> Pi/2 + 0.01, <br/> ImageSize -> Tiny}, {{a4, 1, <br/> "\!\(\*SubscriptBox[\(\[Alpha]\), \(4\)]\)"}, -Pi/2 - 0.01, <br/> Pi/2 + 0.01, <br/> ImageSize -> Tiny}, {{a5, 1, <br/> "\!\(\*SubscriptBox[\(\[Alpha]\), \(5\)]\)"}, -Pi/2 - 0.01, <br/> Pi/2 + 0.01, <br/> ImageSize -> Tiny}, {{a6, 1, <br/> "\!\(\*SubscriptBox[\(\[Alpha]\), \(6\)]\)"}, -Pi/2 - 0.01, <br/> Pi/2 + 0.01, ImageSize -> Tiny}, AutorunSequencing -> {1, 3, 5}, <br/> ControlPlacement -> Left]</p>