File:Distance between repetitive squaring of point smaller then one.svg

From Wikimedia Commons, the free media repository
Jump to navigation Jump to search

Original file (SVG file, nominally 1,000 × 1,000 pixels, file size: 14 KB)

Captions

Captions

Add a one-line explanation of what this file represents

Summary

[edit]
Description
English: Distance between repetive iteration of point smaller then one
Date
Source Own work
Author Adam majewski
SVG development
InfoField
 
The SVG code is valid.
 
This plot was created with Gnuplot.
 
 This plot uses embedded text that can be easily translated using a text editor.

==Compare with ==

Maxima CAS code

[edit]

 /*  
batch file for Maxima CAS


see also : 
http://fraktal.republika.pl/julia_equi.html
https://commons.wikimedia.org/wiki/File:NUmber_smaller_then_one_after_repetive_squaring.svg

 */ 



kill(all);
remvalue(all);





GiveList(r0):=
   /*  computes forward orbit of point r0
   and saves it to the list for draw package */
block(
 [r,rtemp,l,i, distance],
 r:r0, /* first point  */
 rtemp:r*r,
 distance :r-rtemp, 
 r:rtemp,
 l:[[0,distance]], 
 for i:1 thru 65 step 1 do
        ( rtemp:r*r,
          distance : r-rtemp,
          l:endcons([i,distance], l),
          r : rtemp),
         
 return(l) 
)$


compile(all);

/* ----------------- computations -------------------------------*/


l:GiveList(9.9999999999999956e-01);



/* ---------------- draw ------------------------------- */

path:"~/maxima/batch/julia/hyperbolic/distance/"$ /*  if empty then file is in a home dir */
/* draw it using draw package by */
 load(draw); 
/* if graphic  file is empty (= 0 bytes) then run draw2d command again */
 draw2d(
  terminal  = 'svg,
  file_name = sconcat(path,"pzoom2"),
  user_preamble="set size square;set key top right",
  title= "distance between r(n) and r(n+1) after iterations r(0) < 1.0 using function f(r)=r*r",
  dimensions = [1000, 1000],
  yrange = [-0.001,0.001],
  /*xrange = [ZxMin,ZyMax],*/
  xlabel     = "iteration ",
  ylabel     = "radius",
   xaxis       = true,
  point_type = filled_circle,
  points_joined =true,
  point_size    =  0.5,
  color         = red,
    
  
  key = "radius",
  points(l)
 
 );

Licensing

[edit]
I, the copyright holder of this work, hereby publish it under the following license:
w:en:Creative Commons
attribution share alike
This file is licensed under the Creative Commons Attribution-Share Alike 4.0 International license.
You are free:
  • to share – to copy, distribute and transmit the work
  • to remix – to adapt the work
Under the following conditions:
  • attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
  • share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current21:03, 23 November 2015Thumbnail for version as of 21:03, 23 November 20151,000 × 1,000 (14 KB)Soul windsurfer (talk | contribs)User created page with UploadWizard

The following page uses this file:

File usage on other wikis

The following other wikis use this file:

Metadata