All Discussions Tagged 'code' - Grasshopper 2021-10-18T08:29:40Z https://www.grasshopper3d.com/group/mantis/forum/topic/listForTag?tag=code&feed=yes&xn_auth=no How I can transfer this parametric demonstration of Mathematica into Grasshopper? tag:www.grasshopper3d.com,2015-12-17:2985220:Topic:1423122 2015-12-17T18:29:04.466Z Aysu Aysoy https://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 -&gt; False, ImageSize -&gt; {400, 400}, Boxed -&gt; False, <br/> Axes -&gt; False, NormalsFunction -&gt; "Average", <br/> PlotPoints -&gt; ControlActive[10, 30], <br/> PerformanceGoal -&gt; "Speed"]], {{a1, 1, <br/> "\!\(\*SubscriptBox[\(\[Alpha]\), \(1\)]\)"}, -Pi/2 - 0.01, <br/> Pi/2 + 0.01, <br/> ImageSize -&gt; Tiny}, {{a2, 1, <br/> "\!\(\*SubscriptBox[\(\[Alpha]\), \(2\)]\)"}, -Pi/2 - 0.01, <br/> Pi/2 + 0.01, <br/> ImageSize -&gt; Tiny}, {{a3, 1, <br/> "\!\(\*SubscriptBox[\(\[Alpha]\), \(3\)]\)"}, -Pi/2 - 0.01, <br/> Pi/2 + 0.01, <br/> ImageSize -&gt; Tiny}, {{a4, 1, <br/> "\!\(\*SubscriptBox[\(\[Alpha]\), \(4\)]\)"}, -Pi/2 - 0.01, <br/> Pi/2 + 0.01, <br/> ImageSize -&gt; Tiny}, {{a5, 1, <br/> "\!\(\*SubscriptBox[\(\[Alpha]\), \(5\)]\)"}, -Pi/2 - 0.01, <br/> Pi/2 + 0.01, <br/> ImageSize -&gt; Tiny}, {{a6, 1, <br/> "\!\(\*SubscriptBox[\(\[Alpha]\), \(6\)]\)"}, -Pi/2 - 0.01, <br/> Pi/2 + 0.01, ImageSize -&gt; Tiny}, AutorunSequencing -&gt; {1, 3, 5}, <br/> ControlPlacement -&gt; Left]</p>