3d mandel

[adelmo]

Hi, sorry, with my program I generated this set of high 3d mandel to the second power. What do you think? Thank you in advance

[DarkBeam]

Good! Bravo! 
Formula used?!

[adelmo]

Hi, I used the following formula, but since i'm not a math I have doubts about nw. I attach pictures with other angles

            case 14:
               rad = Math::Sqrt(nx*nx + ny*ny + nz*nz + nw*nw);

               powRad = Math::Pow(rad, power);
               theta = Math::Atan2(ny, nx) * power;
               phi = Math::Atan(nz / rad) * power;
               nx = powRad * Math::Cos(theta) * Math::Cos(phi);
               ny = powRad * Math::Sin(theta) * Math::Cos(phi);
               nz = powRad * Math::Sin(phi) * inverse_azimuth;
               nw = powRad * Math::Sin(phi) * inverse_azimuth;
               break;

            default:
               break;
            }

            if(julia)
            {
               nx += creal_i;
               ny += cimag_j;
               nz += k;
               nw += l;
            }
            else
            {
               nx += x;
               ny += y;
               nz += z;
            }

[adelmo]

This is the corresponding collection of julia

[adelmo]

A screen of my program

[adelmo]

Julia set with k and l values ​​automatically calculated

[Alef]

It's good but this one looks more like 3D http://www.fractalforums.com/the-3d-mandelbulb/true-3d-mandelbrot/

Your in zoom probably will reveal mandelbrotesque features, but there is nothing on its top.

[adelmo]

Thank you Alef, thanks to all of you, it is a great satisfaction for me

[adelmo]

I replied with the OpenTK

[adelmo]

Hello, I replied with Mandlbulb3Dv191.
Formula used:

procedure MyFormula(var x, y, z, w: Double; PIteration3D: TPIteration3D);
var
   sq_r: double;
   sq_xz: double;
   r, theta, zangle: double;
begin
   sq_r := sqrt(x*x+y*y+z*z);
   sq_xz := sqrt(x*x+z*z);
   r:= power(sq_r, Power_);

   theta := arctan2(y , x) * Power_;
   zangle := arctan2(z, sq_r) * Power_;

   x := cos(zangle) * cos(theta)  * r + PIteration3D^.J1;
   y := sin(theta)  * cos(zangle) * r + PIteration3D^.J2;
   z := sin(zangle) * r * inverse     + PIteration3D^.J3;
end;

[adelmo]

Mandel:
     inverse = 1

Julia:
     inverse = -1

[adelmo]

To the third power

[adelmo]

Elevated to the power of 4 and top view

[adelmo]

Power 5 and left view

[adelmo]

Power 8 Julia