Logo by Trifox - Contribute your own Logo!


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: Visit us on facebook
Welcome, Guest. Please login or register. October 27, 2021, 09:14:19 AM

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
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 693 times)
0 Members and 1 Guest are viewing this topic.
Fractal Bachius
Posts: 531

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

Another Spiral


// 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); }
Pages: [1]   Go Down
Jump to:  

Related Topics
Subject Started by Replies Views Last post
Spiral Bud UltraFractal Gallery bib 0 658 Last post June 05, 2009, 12:02:42 AM
by bib
spiral Images Showcase (Rate My Fractal) yv3 0 565 Last post January 13, 2011, 08:29:05 PM
by yv3
Spiral, yes Images Showcase (Rate My Fractal) Dinkydau 0 528 Last post March 23, 2012, 12:06:59 AM
by Dinkydau
Multicoloured spiral. Images Showcase (Rate My Fractal) domidup 0 427 Last post May 07, 2012, 09:19:46 PM
by domidup
Spiral Plume II Fractal Science Kit Gallery Ross Hilbert 0 242 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.132 seconds with 26 queries. (Pretty URLs adds 0.006s, 2q)