Logo by AGUS - 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: Check out the originating "3d Mandelbulb" thread here
 
*
Welcome, Guest. Please login or register. March 28, 2024, 01:51:09 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]   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: Another Spiral  (Read 1082 times)
0 Members and 1 Guest are viewing this topic.
trafassel
Fractal Bachius
*
Posts: 531


trafassel
« on: September 16, 2011, 10:54:04 PM »

Another Spiral



http://www.fractalforums.com/index.php?action=gallery;sa=view;id=8628

// A Spiral in the power 8 Mandelbulb.
// Insert this text in the Gestaltlupe formula source and press two times preview


 public override void Init() { base.Init();if(GetString("intern.Formula.TempUpdateVal")!="46af6d73734d7f1a67e26b47d2443186"){SetParameterBulk("<Entry Key='Border.Max.x' Value='0.413799932974611' /><Entry Key='Border.Max.y' Value='-0.514640351499776' /><Entry Key='Border.Max.z' Value='-0.145261704533339' /><Entry Key='Border.Max.zz' Value='0' /><Entry Key='Border.Min.x' Value='0.413799899292171' /><Entry Key='Border.Min.y' Value='-0.514640385182216' /><Entry Key='Border.Min.z' Value='-0.145261738215779' /><Entry Key='Border.Min.zz' Value='0' /><Entry Key='Formula.Static.Cycles' Value='140' /><Entry Key='Formula.Static.Formula' Value='-1' /><Entry Key='Formula.Static.jx' Value='0' /><Entry Key='Formula.Static.jy' Value='0' /><Entry Key='Formula.Static.jz' Value='0' /><Entry Key='Formula.Static.jzz' Value='0' /><Entry Key='Formula.Static.MinCycle' Value='140' /><Entry Key='Transformation.Camera.AngleX' Value='20' /><Entry Key='Transformation.Camera.AngleY' Value='0' /><Entry Key='Transformation.Camera.AngleZ' Value='22' /><Entry Key='Transformation.Perspective.Cameraposition' Value='1' /><Entry Key='Transformation.Stereo.Angle' Value='-9' /><Entry Key='Transformation.Stereo.EyeDistance' Value='0.5' /><Entry Key='View.Height' Value='1200' /><Entry Key='View.Perspective' Value='1' /><Entry Key='View.Width' Value='1200' /><Entry Key='intern.Formula.TempUpdateVal' Value='46af6d73734d7f1a67e26b47d2443186' />");} additionalPointInfo=new AdditionalPointInfo(); gr1=GetDouble("Formula.Static.Cycles");int tempGr=(int)gr1;gr1=gr1- tempGr;gr1=1-gr1;gr1*=2.4; } double gr1=0;double gr2=0; public override long InSet(double ar, double ai, double aj, double br, double bi, double bj, double bk, long zkl, bool invers) { double aar, aai, aaj; long tw; int n; int pow = 8; double gr =Math.Pow(10,gr1)+1.0; double theta, phi; double r_n = 0; aar = ar * ar; aai = ai * ai; aaj = aj * aj; tw = 0L; double r = Math.Sqrt(aar + aai + aaj); double phi_pow; double theta_pow; double sin_theta_pow; double rn_sin_theta_pow;additionalPointInfo.red=0;additionalPointInfo.green=0;additionalPointInfo.blue=0;double red=0; double green=0; double blue=0;red=0.1;green=0.1;blue=1000; for (n = 1; n < zkl; n++) { theta = Math.Atan2(Math.Sqrt(aar + aai), aj); phi = Math.Atan2(ai, ar); r_n = Math.Pow(r, pow); phi_pow=phi*pow; theta_pow=theta*pow; sin_theta_pow=Math.Sin(theta_pow); rn_sin_theta_pow=r_n* sin_theta_pow; ar = rn_sin_theta_pow * Math.Cos(phi_pow)+br; ai = rn_sin_theta_pow * Math.Sin(phi_pow)+bi; aj = r_n * Math.Cos(theta_pow)+bj; aar = ar * ar; aai = ai * ai; aaj = aj * aj; r = aar + aai + aaj;double rr=r*r;if(blue>rr)blue=rr;/*if(n==13 || n==15 || n==17) {red+=aar/r;green+=aai/r;blue+=aaj/r;}*/r = Math.Sqrt(r); if (r > gr) { tw = n; break; } }additionalPointInfo.red=red;additionalPointInfo.green=green;additionalPointInfo.blue=blue; if (invers) { if (tw == 0) tw = 1; else tw = 0; } return (tw); }
Logged
Pages: [1]   Go Down
  Print  
 
Jump to:  

Related Topics
Subject Started by Replies Views Last post
Spiral Bud UltraFractal Gallery bib 0 966 Last post June 05, 2009, 12:02:42 AM
by bib
spiral Images Showcase (Rate My Fractal) yv3 0 790 Last post January 13, 2011, 08:29:05 PM
by yv3
Spiral, yes Images Showcase (Rate My Fractal) Dinkydau 0 670 Last post March 23, 2012, 12:06:59 AM
by Dinkydau
Multicoloured spiral. Images Showcase (Rate My Fractal) domidup 0 570 Last post May 07, 2012, 09:19:46 PM
by domidup
Spiral Plume II Fractal Science Kit Gallery Ross Hilbert 0 450 Last post May 11, 2012, 12:50:02 PM
by Ross Hilbert

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.245 seconds with 29 queries. (Pretty URLs adds 0.009s, 2q)