Opis

Licencja

Ja, właściciel praw autorskich do tego dzieła, udostępniam je na poniższej licencji

Ten plik udostępniony jest na licencji Creative Commons Uznanie autorstwa – Na tych samych warunkach 3.0.

Wolno:

• dzielić się – kopiować, rozpowszechniać, odtwarzać i wykonywać utwór
• modyfikować – tworzyć utwory zależne

Na następujących warunkach:

• uznanie autorstwa – musisz określić autorstwo utworu, podać link do licencji, a także wskazać czy utwór został zmieniony. Możesz to zrobić w każdy rozsądny sposób, o ile nie będzie to sugerować, że licencjodawca popiera Ciebie lub Twoje użycie utworu.
• na tych samych warunkach – Jeśli zmienia się lub przekształca niniejszy utwór, lub tworzy inny na jego podstawie, można rozpowszechniać powstały w ten sposób nowy utwór tylko na podstawie tej samej lub podobnej licencji.

https://creativecommons.org/licenses/by-sa/3.0CC BY-SA 3.0 Creative Commons Attribution-Share Alike 3.0 truetrue

Maxima CAS src code

/* 
golden ratio conjugate 
= ((sqrt(5)-1)/2 = 0.618033988749895
It is approximated by finite continued  fractions :

[0;1,1,1,....]



*/

kill(all);

iMax : 10;



/* continuead fraction - goldem mean */
f(i_Max):=
(
[a,i],
i:1,
a:[0,1,1],
while i<i_Max do 
(a:endcons(1,a),
 i:i+1),
float(cfdisrep(a))
)$



/* save the values to 2 lists */
xx:makelist (1, i, 1, 1); /* list of positive integers  */
yy:makelist (f(1), i, 1, 1); /* list of cf  */

for i:2 thru iMax step 1 do 
(  
   xx:cons(i,xx), 
   y:float(f(i)),
   yy:cons(y,yy)

);

load(draw);
draw2d(
   file_name = "golden_mean",
   terminal  = 'png,
  
  
   dimensions  = [1000,1000],
   title= "Finite continued fraction aproximation for golden mean",
   key = "n-fraction",
   xlabel     = "n",
   ylabel     = "n-continued fractions",
   point_type    = filled_circle,
   point_size    = 1.0,
   points_joined = true,

   color         = red,
   points(xx,yy),
   color = blue,
   key = "golden mean",
   explicit((sqrt(5)-1)/2,x,1,iMax)

  );