The All New FractalForums is now in Public Beta Testing! Visit FractalForums.org and check it out!
|
|
This could be something | ||||||
Previous Image | ||||||
Description: // Combination of two rotations in 3d space. // Gestaltlupe Data: Replace formula source with this text and press render int gr=20; public override void Init() { base.Init();if(GetString("intern.Formula.TempUpdateVal")!="13f917ed21bc1d4b0ae2d092d664d257"){SetParameterBulk("<Entry Key='Border.Max.x' Value='1.11363934183171' /><Entry Key='Border.Max.y' Value='1.03264922111264' /><Entry Key='Border.Max.z' Value='0.757490934832636' /><Entry Key='Border.Min.x' Value='-1.074586099284' /><Entry Key='Border.Min.y' Value='-1.15557622000307' /><Entry Key='Border.Min.z' Value='-0.883678146004148' /><Entry Key='Border.Min.zz' Value='0' /><Entry Key='Formula.Static.Cycles' Value='40' /><Entry Key='Formula.Static.Formula' Value='-2' /><Entry Key='Formula.Static.jx' Value='0.23' /><Entry Key='Formula.Static.jy' Value='0.4' /><Entry Key='Formula.Static.jz' Value='0.008' /><Entry Key='Formula.Static.jzz' Value='0' /><Entry Key='Formula.Static.MinCycle' Value='51' /><Entry Key='View.Height' Value='900' /><Entry Key='View.Perspective' Value='0' /><Entry Key='View.Width' Value='1200' /><Entry Key='intern.Formula.TempUpdateVal' Value='13f917ed21bc1d4b0ae2d092d664d257' />");}additionalPointInfo=new AdditionalPointInfo(); } public override long InSet(double ar, double ai, double aj, double br, double bi, double bj, double bk, long zkl, bool invers) { additionalPointInfo.red=0; additionalPointInfo.green=0; additionalPointInfo.blue=0; double xx, yy, zz; long tw; int n; double x = ar, y = ai, z = aj; double r_n = 0; xx = x * x; yy = y * y; zz = z * z; tw = 0; double r = Math.Sqrt(xx + yy + zz); Fractrace.Geometry.VecRotation vecRot = new Fractrace.Geometry.VecRotation(); for (n = 1; n < zkl; n++) { double r_xy = Math.Sqrt(xx + yy); double theta = Math.Atan2(Math.Sqrt(xx + yy), z); double phi = Math.Atan2(y, x); vecRot.x = 0; vecRot.y =0; vecRot.z =1; vecRot.angle = phi; vecRot.Normalize(); Fractrace.Geometry.Vec3 pos=new Fractrace.Geometry.Vec3(x,y,z); Fractrace.Geometry.Vec3 newPos= vecRot.getTransform(pos); x = newPos.X; y = newPos.Y; z = newPos.Z; xx = x * x; yy = y * y; zz = z * z; r = Math.Sqrt(xx + yy + zz); /* x *= r; y *= r; z *= r; y += bj; x += br; z += bi;*/ xx = x * x; yy = y * y; zz = z * z; r_xy = Math.Sqrt(xx + yy); theta = Math.Atan2(Math.Sqrt(xx + yy), z); phi = Math.Atan2(y, x); vecRot.x = 1; vecRot.y =1; vecRot.z =0; vecRot.angle = theta; vecRot.Normalize(); Fractrace.Geometry.Vec3 pos2=new Fractrace.Geometry.Vec3(x,y,z); Fractrace.Geometry.Vec3 newPos2= vecRot.getTransform(pos2); x = newPos2.X; y = newPos2.Y; z = newPos2.Z; xx = x * x; yy = y * y; zz = z * z; r = Math.Sqrt(xx + yy + zz); x *= r; y *= r; z *= r; y += bj; x += br; z += bi; xx = x * x; yy = y * y; zz = z * z; additionalPointInfo.red=xx; additionalPointInfo.green=yy; additionalPointInfo.blue=zz; if (r > gr) { tw = n; break; } } if (invers) { if (tw == 0) tw = 1; else tw = 0; } return (tw); } Stats: Total Favorities: 0 View Who Favorited Filesize: 252.59kB Height: 900 Width: 1200 Keywords: Gestaltlupe Julia Posted by: trafassel June 07, 2011, 10:01:55 PM Rating: by 2 members. Image Linking Codes
|
||||||
0 Members and 1 Guest are viewing this picture. |
|
Comments (3) | |
KRAFTWERK | June 13, 2011, 09:07:51 AM OK! Cool anyway. |
trafassel | June 09, 2011, 09:42:05 PM The M-set looks mostly boring. But there are some spirals, and the corresponding Julia Sets to this areas has arms (and spirals too). |
KRAFTWERK | June 08, 2011, 10:53:15 AM A bit holy grail:ish T! What does the M-set look like? |
Powered by SMF Gallery Pro