Back a while I found that if I put spherical coordinates in a SO(3) like matrix and squared it I got a new projective plane out as the harmonics and they...
1528
Roger L. Bagula
rlbagulatftn
Sep 4, 2011 9:55 am
Working with polynomial substitutions into the Steiner Implicit, yesterday, I got to wondering what the inverse would look like. This program is the parametric...
1529
aka: fuzzy
rlbagulatftn
Sep 4, 2011 4:02 pm
I just tried to run this in 5.2 and got all kinds of error signals... Mostly division by zero......
I spent some time uploading to Scultpeo models of one of my surfaces with both of the new texture types ( color and Black and white) and I got some pretty...
1534
Roger L. Bagula
rlbagulatftn
Sep 6, 2011 11:34 pm
While experimenting around with my Sinoid surfaces I remembered the Polylog that comes up in Eulerian sequences which is sort of a generalization of both the...
The idea is to use vertex data in ListSurfacePlot3D[] to give the surface a rough ( or hairy) look. I call this the Hairy Asteriod. The cusp lines on the...
1537
Mats Granvik
mats.granvik
Sep 8, 2011 2:59 pm
Here is how to create a n times n symmetric matrix of size 5, with elements that are randomand range from 0 to 1. The result is shown as matrix M5. n = 5; M1 =...
1538
Roger L. Bagula
rlbagulatftn
Sep 8, 2011 7:58 pm
This is actually my third try this morning at a Deltoid implicit and the best result: Clear[A, B, c, rho, x, y, z, f, g, FermiPlot, p, t] f[x_, y_, z_] = (x^2...
1539
Roger L. Bagula
rlbagulatftn
Sep 8, 2011 8:19 pm
What makes it harder is the unitary constraint: SL(5) or SU(5) I think: Det[M5]=1 ? Another approach to this is the Euler angle SO(5) like approach ( 10...
http://www.dilandau.eu/download_music/rolling-in-the-deep-adele-1.html active ...
1542
aka: fuzzy
rlbagulatftn
Sep 9, 2011 7:58 pm
This post was supposed to Active Elect music... LOL....
1543
Roger L. Bagula
rlbagulatftn
Sep 10, 2011 5:56 am
The six pointed version is the overlap of two of these. Clear[x1, y1, z1, g1, g, ga, gb, t, p, d, a] (* surface with 3 cusps : Deltoid of rotation*) f0[t_] =...
1544
Roger L. Bagula
rlbagulatftn
Sep 10, 2011 5:06 pm
Some Experimentation got me this: ( Lighting->"Neutral" used in a lot of the demos also works) f[x_, y_, z_] = x^2*y^2 + y^2*z^2 + z^2*x^2 - 2*Sqrt[2]*x*y*z ...
1545
Roger L. Bagula
rlbagulatftn
Sep 10, 2011 7:26 pm
I didn't invent this type of iteration or output, but I have considerably altered the escape parameters ... Anyway I picked a simple one of hundreds and...
1546
Roger L. Bagula
rlbagulatftn
Sep 11, 2011 12:49 pm
When I originally did this in 2007 I couldn't get the Cuboid version to work and Paul Bourke put in a lot of work ray tracing it in actual prisms. A simple...
1547
Roger L. Bagula
rlbagulatftn
Sep 12, 2011 2:08 pm
You find a lot about this in fractal places, but not so much in Mathematical places? Why is that? ...
1548
Roger L. Bagula
rlbagulatftn
Sep 12, 2011 10:20 pm
Modulo 2 Pascal's triangles as a topological "and": this graphic was a version 2 Mathematica demo and isn't anywhere on the net today: Shows the Sierpinski...
1549
Roger L. Bagula
rlbagulatftn
Sep 12, 2011 10:56 pm
http://library.wolfram.com/infocenter/MathSource/624/ Title Downloads Mathematica Symbolic Toolbox for MATLAB--Version 1.2 Author Douglas Stein ...
1550
Robert Paynter
rjhpuk
Sep 13, 2011 1:54 pm
It's a bit old - one of the first things that attracted my attentions is a link to a newer one: http://library.wolfram.com/infocenter/MathSource/5344/ As a...
1551
Roger L. Bagula
rlbagulatftn
Sep 15, 2011 1:40 pm
If you have seen one Sierpinski gasket you have seen them all? ListPlot[Table[{BitOr[n, m], BitAnd[n, m]}, {n, 128}, {m, 128}]] But this prime difference gives...
1552
Roger L. Bagula
rlbagulatftn
Sep 15, 2011 3:43 pm
http://www.zeitnews.org/applied-sciences/buildings-made-with-a-printer.html A novel approach to design and construction could save materials and energy, and...
1553
Roger L. Bagula
rlbagulatftn
Sep 15, 2011 3:50 pm
Actual texture on a 3d surface in Mathematica that translates to a model in obj / mtl form: x = (Exp[1 + Cos[t]] - 1)/(Exp[2])^3; y = Sin[t]^3; ...
1554
Roger L. Bagula
rlbagulatftn
Sep 16, 2011 6:11 pm
http://www.bbc.co.uk/news/technology-14946808 16 September 2011 Last updated at 06:49 ET Artificial blood vessels created on a 3D printer Katia Moskvitch By...
1555
Roger L. Bagula
rlbagulatftn
Sep 18, 2011 1:37 pm
Yesterday, I discovered a whole bunch of alternative color schemes built into Mathematica when I went search the news group for "ListSurfacePlot3D". My program...
1556
Mats Granvik
mats.granvik
Sep 19, 2011 6:32 am
The matrix formulation of the Discrete Fourier Transform (DFT): Clear[A, a, b, c, nn]; nn = 5 A = Table[Table[Exp[-I*2*Pi*n*k/nn], {n, 0, nn - 1}], {k, 0, nn -...
