Interactive 3D Calabi-Yau Surface

Posted by & filed under 3D, Code, Demonstrations Project, Graphics, Mathematica, Sketchfab, Wolfram, Wolfram Language.

Wolfram Language allows creation of computational 3D models. These are different from those you can build with your own hands such as SketchUp etc, because computations are often intrinsically different from the way humans see and think. Let’s take for example Calabi-Yau Surface. It is a mathematical object and it is hard to imagine it. You must use computational tools to visualize it. For example, Wolfram Language code (shown below) can help to export 3D .obj model to be uploaded to sketchfab where you can interact with the model:

u1[a_,b_]:=.5 (E^(a+I*b)+E^(-a-I*b))
u2[a_,b_]:=.5 (E^(a+I*b)-E^(-a-I*b))

z1k[a_,b_,n_,k_]:=E^(k*2*Pi*I/n)*u1[a,b]^(2.0/n)
z2k[a_,b_,n_,k_]:=E^(k*2*Pi*I/n)*u2[a,b]^(2.0/n)

n=5;

calabi[x_,y_,z_,\[Alpha]_,t_,c_]:=Table[With[{alpha=\[Alpha]-t},
ParametricPlot3D[Evaluate@{Re[z1k[a,b,n,k1]]+x,
Re[z2k[a,b,n,k2]]+y,Cos[alpha]*Im[z1k[a,b,n,k1]]+
Sin[alpha]*Im[z2k[a,b,n,k2]]+z},{a,-1,1},{b,0,\[Pi]/2}]],
{k1,0,n-1},{k2,0,n-1}]

model=Show[calabi[0,0,0,0,Pi/4,False],PlotRange->All]

Export["model.obj",model]

For better understanding of the Calabi-Yau Surface visit Wolfram Demonstrations:

2016-04-15_10-48-53

Leave a Reply

Your email address will not be published. Required fields are marked *