adelmo
|
|
« on: April 28, 2017, 02:29:09 PM » |
|
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
|
|
|
Logged
|
|
|
|
DarkBeam
Global Moderator
Fractal Senior
Posts: 2512
Fragments of the fractal -like the tip of it
|
|
« Reply #1 on: April 28, 2017, 04:33:51 PM » |
|
Good! Bravo! Formula used?!
|
|
|
Logged
|
No sweat, guardian of wisdom!
|
|
|
adelmo
|
|
« Reply #2 on: April 28, 2017, 08:08:59 PM » |
|
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; }
|
|
|
Logged
|
|
|
|
adelmo
|
|
« Reply #3 on: May 01, 2017, 09:39:19 AM » |
|
This is the corresponding collection of julia
|
|
|
Logged
|
|
|
|
adelmo
|
|
« Reply #4 on: May 05, 2017, 07:41:51 PM » |
|
A screen of my program
|
|
|
Logged
|
|
|
|
adelmo
|
|
« Reply #5 on: May 08, 2017, 09:28:10 PM » |
|
Julia set with k and l values automatically calculated
|
|
|
Logged
|
|
|
|
|
adelmo
|
|
« Reply #7 on: May 09, 2017, 07:28:11 PM » |
|
Thank you Alef, thanks to all of you, it is a great satisfaction for me
|
|
|
Logged
|
|
|
|
adelmo
|
|
« Reply #8 on: May 14, 2017, 08:28:23 AM » |
|
I replied with the OpenTK
|
|
|
Logged
|
|
|
|
adelmo
|
|
« Reply #9 on: May 16, 2017, 09:38:37 PM » |
|
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;
|
|
|
Logged
|
|
|
|
adelmo
|
|
« Reply #10 on: May 16, 2017, 09:42:53 PM » |
|
Mandel: inverse = 1
Julia: inverse = -1
|
|
« Last Edit: May 16, 2017, 10:01:53 PM by adelmo »
|
Logged
|
|
|
|
adelmo
|
|
« Reply #11 on: May 26, 2017, 07:45:48 PM » |
|
To the third power
|
|
|
Logged
|
|
|
|
adelmo
|
|
« Reply #12 on: May 29, 2017, 08:42:28 PM » |
|
Elevated to the power of 4 and top view
|
|
|
Logged
|
|
|
|
adelmo
|
|
« Reply #13 on: May 30, 2017, 07:03:05 AM » |
|
Power 5 and left view
|
|
|
Logged
|
|
|
|
adelmo
|
|
« Reply #14 on: May 31, 2017, 08:28:12 PM » |
|
Power 8 Julia
|
|
|
Logged
|
|
|
|
|