In theory a perfect torus is it's own toral inverse, but the Paul Chang Klein bottle isn't that exactly. The see-through picture shows it is still a Klein...
This functional set is a generalization of my 6 Star 3d from the late 90's: Clear[f,g,h,k,j,i,e,t] n0 = 18; w0 = Table[n*2*Pi/n0, {n, 0, n0}] g0[t_, n_] :=...
I did a whole number on the isomers of this 5x5 cube this morning. ... Subject: Your 3D model Mengercube555 was successfully uploaded on Sculpteo Date: Thu,...
Some use for my star surfaces... Printing in any scale is faster than grinding and more accurate. This technology kind of changes machine engineering and even...
I developed my own triaxial torus knots, but I thought it best to present this in a form that is "traditional". The SO(3) like equal Euler angle rotations are...
Mats Granvik, Bot Scout, My Code needs: ( I cut that while editing it to send) gw = Show[{g1, g0, g2}, PlotRange -> All] To get the full 4d I think you need to...
Here is what the out put looks like. The tubes are thin for the thicker knots like {2,7}. ... Subject: Your 3D model 23torusknot_braid was successfully...
The Clifford torus projection looks like this. ... Subject: Your 3D model {2, 3} torus Knot Euler Ruled surface Clifford Torus projection was successfully...
The theory is that because of boundary layer flow, a fractally rough surface can provide lift for a wing. Here the Joukowski flow does give a relative wing...
This surface was an effort to get a tubes effect with a 3d Sierpinski gasket function set. The result is a new fractal that gives a view very much like a...
Following the idea of a triaxial function I tried phases of {0,1/3,2/3}, {0,-1/3,1/3},{0,-2/3,2/3} before getting this completely 3d fractal. (* Phase based...
Using a program I had been using to do braided torus knots, I projected my triaxial 3d Weierstrass functions to get 3d fractals. These parametrics give very...
I tried a modified Clifford torus projection and that didn't work , so just off hand, I tried this topological product projection and it seems to work. This...
A really complex trajectory from simple functions: x = 2*t*(1 - t)*Cos[1/(2*t*(1 - t))] y = Cos[1/t^2 + 2*Pi/3]*t^2 z = Cos[1/(1 - t)^2 - 2*Pi/3]*(1 - t)^2 w =...
Peng Gy You need to flatten the extra layers of the array out to get it in 3d points: there are 48 3d points: Clear[a] a = {{{{-0.00201671, 0.87571, 0.482832},...
It's a fun plot, but I don't understand how you got it to run. I had to change the range parameter of t from {t, 0, 1} to {t, 0.01, 1} to avoid a divide by...
How about Dimensions[x] where x is your list, for your list I got the result {4,4,3,3} which suggests to me that you had a 4 by 4 array of 3 by 3 arrays Robert...
I also did a differentiation: x = 2*t*(1 - t)*Cos[1/(2*t*(1 - t))] y = Cos[1/t^2 + 2*Pi/3]*t^2 z = Cos[-1/(1 - t)^2 - 2*Pi/3]*(1 - t)^2 w = D[{x, y, z}, t] g1...
Fully 3 dimensional Weierstrass function at scale3 using a pentaxial toplogical product: Clear[fw, gw, hw, w, a] a = 2*Pi/5; (* pentaxial toplogical product...
Pentaxial Weierstrass with tubes... I call this "fairy wings"... it startled me coming up in Scultpeo looking like a bird or an insect on wings. ... Subject:...
Tubes version of the trajectory: Sculpteo says it is too complex... a = 2*Pi/9; (* nanaxial topological product Phase based 9 sub-functions of Weierstrass...
Try this one ( takes a lot of memory: the nanaxial crashed Mathematica twice...). Clear[fw, gw, hw, w, a] a = 2*Pi/5; (* pentaxial topological product Phase...
http://blog.wolfram.com/2011/07/28/how-i-made-wine-glasses-from-sunflowers/#more-6819 The sphere 3d models seem to use too much data and I can't get...
