Matematické Fórum

Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.

Nástěnka
22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.

Nejste přihlášen(a). Přihlásit

#1 06. 12. 2013 09:25

svobis
Příspěvky: 48
Reputace:   
 

wxmaxima fibonaciho posloupnost rada

Ahoj lidi potreboval bych poradit s naprogramování fibonacciho posloupnosti.
Mám za úkol naprogramovat v MAXIMĚ algoritmus, který mi vypíše prvních 100 čísel FP(této posloupnosti).

Zatím jsem přišel na toto, ale to mi vyhodí nějaký zblázněný výsledek. díky za každou radu.

fibonacci(n):=( a:0,b:1,for i:2 thru n do(c:a+b,a:b,b:c), c);



děkuji za jakoukoliv radu.

PS: spěchá

Offline

 

#2 06. 12. 2013 09:38

svobis
Příspěvky: 48
Reputace:   
 

Re: wxmaxima fibonaciho posloupnost rada

ještě jsem přišel na tento příkaz, ale nevím zda se to bere jako naprogramovaný algoritmus makelist(fib(i),i,1,100);

Offline

 

#3 06. 12. 2013 09:58

kaja.marik
Veterán
Příspěvky: 1915
Reputace:   57 
 

Re: wxmaxima fibonaciho posloupnost rada

Code:

Maxima 5.24.0 http://maxima.sourceforge.net
using Lisp GNU Common Lisp (GCL) GCL 2.6.7 (a.k.a. GCL)
Distributed under the GNU Public License. See the file COPYING.
Dedicated to the memory of William Schelter.
The function bug_report() provides bug reporting information.
(%i1) fibonacci(n):=( cc:[1,1],a:1,b:1,for i:2 thru n do(c:a+b,a:b,b:c,cc:append(cc,[c])),cc)$

(%i2) fibonacci(100);
(%o2) [1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 
2584, 4181, 6765, 10946, 17711, 28657, 46368, 75025, 121393, 196418, 317811, 
514229, 832040, 1346269, 2178309, 3524578, 5702887, 9227465, 14930352, 
24157817, 39088169, 63245986, 102334155, 165580141, 267914296, 433494437, 
701408733, 1134903170, 1836311903, 2971215073, 4807526976, 7778742049, 
12586269025, 20365011074, 32951280099, 53316291173, 86267571272, 139583862445, 
225851433717, 365435296162, 591286729879, 956722026041, 1548008755920, 
2504730781961, 4052739537881, 6557470319842, 10610209857723, 17167680177565, 
27777890035288, 44945570212853, 72723460248141, 117669030460994, 
190392490709135, 308061521170129, 498454011879264, 806515533049393, 
1304969544928657, 2111485077978050, 3416454622906707, 5527939700884757, 
8944394323791464, 14472334024676221, 23416728348467685, 37889062373143906, 
61305790721611591, 99194853094755497, 160500643816367088, 259695496911122585, 
420196140727489673, 679891637638612258, 1100087778366101931, 
1779979416004714189, 2880067194370816120, 4660046610375530309, 
7540113804746346429, 12200160415121876738, 19740274219868223167, 
31940434634990099905, 51680708854858323072, 83621143489848422977, 
135301852344706746049, 218922995834555169026, 354224848179261915075, 
573147844013817084101]
(%i3) quit();

Offline

 

#4 06. 12. 2013 14:41

svobis
Příspěvky: 48
Reputace:   
 

Re: wxmaxima fibonaciho posloupnost rada

co znamená to cc:append???

Offline

 

#5 06. 12. 2013 15:10 — Editoval kaja.marik (06. 12. 2013 15:10)

kaja.marik
Veterán
Příspěvky: 1915
Reputace:   57 
 

Re: wxmaxima fibonaciho posloupnost rada

append: http://maxima.sourceforge.net/docs/manu … ma_98.html
dvojtecka by mela byt jasna, pouzivate ji take

Offline

 

Zápatí

Powered by PunBB
© Copyright 2002–2005 Rickard Andersson