Logo by Maya - Contribute your own Logo!

END OF AN ERA, FRACTALFORUMS.COM IS CONTINUED ON FRACTALFORUMS.ORG

it was a great time but no longer maintainable by c.Kleinhuis contact him for any data retrieval,
thanks and see you perhaps in 10 years again

this forum will stay online for reference
News: Did you know ? you can use LaTex inside Postings on fractalforums.com!
 
*
Welcome, Guest. Please login or register. March 30, 2020, 06:57:16 PM


Login with username, password and session length


The All New FractalForums is now in Public Beta Testing! Visit FractalForums.org and check it out!


Pages: [1] 2 3   Go Down
  Print  
Share this topic on DiggShare this topic on FacebookShare this topic on GoogleShare this topic on RedditShare this topic on StumbleUponShare this topic on Twitter
Author Topic: 3d mandel  (Read 6974 times)
0 Members and 1 Guest are viewing this topic.
adelmo
Alien
***
Posts: 38


« 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


* Immagine.png (249.13 KB, 1015x789 - viewed 367 times.)
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!  wink
Formula used?! A Beer Cup
Logged

No sweat, guardian of wisdom!
adelmo
Alien
***
Posts: 38


« 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;
            }


* Immagine.png (198.72 KB, 1193x538 - viewed 326 times.)
Logged
adelmo
Alien
***
Posts: 38


« Reply #3 on: May 01, 2017, 09:39:19 AM »

This is the corresponding collection of julia


* Cattura.PNG (176.46 KB, 630x876 - viewed 326 times.)
Logged
adelmo
Alien
***
Posts: 38


« Reply #4 on: May 05, 2017, 07:41:51 PM »

A screen of my program


* Cattura3.GIF (245.45 KB, 1142x767 - viewed 341 times.)
Logged
adelmo
Alien
***
Posts: 38


« Reply #5 on: May 08, 2017, 09:28:10 PM »

Julia set with k and l values ​​automatically calculated


* Immagine2.png (110.33 KB, 653x825 - viewed 298 times.)
Logged
Alef
Fractal Supremo
*****
Posts: 1174



WWW
« Reply #6 on: May 09, 2017, 04:14:58 PM »

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.
Logged

fractal catalisator
adelmo
Alien
***
Posts: 38


« 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
Alien
***
Posts: 38


« Reply #8 on: May 14, 2017, 08:28:23 AM »

I replied with the OpenTK


* ImmagineOpenTK.png (45.31 KB, 911x685 - viewed 312 times.)
Logged
adelmo
Alien
***
Posts: 38


« 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;


* Mandelbulb3Dv191.png (149.31 KB, 809x690 - viewed 327 times.)
Logged
adelmo
Alien
***
Posts: 38


« Reply #10 on: May 16, 2017, 09:42:53 PM »

Mandel:
     inverse = 1

Julia:
     inverse = -1


* Mandelbulb3Dv191_Julia.png (79.76 KB, 630x463 - viewed 330 times.)
« Last Edit: May 16, 2017, 10:01:53 PM by adelmo » Logged
adelmo
Alien
***
Posts: 38


« Reply #11 on: May 26, 2017, 07:45:48 PM »

To the third power


* Power 3.GIF (97.56 KB, 1227x537 - viewed 272 times.)
Logged
adelmo
Alien
***
Posts: 38


« Reply #12 on: May 29, 2017, 08:42:28 PM »

Elevated to the power of 4 and top view


* Power 4.GIF (143.38 KB, 652x927 - viewed 287 times.)
Logged
adelmo
Alien
***
Posts: 38


« Reply #13 on: May 30, 2017, 07:03:05 AM »

Power 5 and left view


* Power 5.GIF (233.78 KB, 1311x539 - viewed 301 times.)
Logged
adelmo
Alien
***
Posts: 38


« Reply #14 on: May 31, 2017, 08:28:12 PM »

Power 8 Julia


* Power 8_Julia.GIF (237.51 KB, 1306x538 - viewed 298 times.)
Logged
Pages: [1] 2 3   Go Down
  Print  
 
Jump to:  

Related Topics
Subject Started by Replies Views Last post
Mandel FractalForums.com Banner Logos fractalwizz 0 924 Last post October 13, 2009, 08:08:07 PM
by fractalwizz
Mandel 5.3 Multi Platform poorfuckedupnature 0 1817 Last post January 17, 2010, 07:15:25 PM
by poorfuckedupnature
Mandel-Orb Mandelbulb3D Gallery Lee Oliver 0 560 Last post February 05, 2011, 04:41:39 PM
by Lee Oliver
3D Mandel Images Showcase (Rate My Fractal) 3dickulus 0 486 Last post March 19, 2016, 08:53:21 PM
by 3dickulus
3d Mandel Still Frame - Wildstyle adelmo 0 439 Last post June 01, 2017, 10:24:39 PM
by adelmo

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines

Valid XHTML 1.0! Valid CSS! Dilber MC Theme by HarzeM
Page created in 0.155 seconds with 27 queries. (Pretty URLs adds 0.009s, 2q)