Цепная дробь, вычислить

@Kaligulaa · Регистрация: 18.05.2015

Author24 — интернет-сервис помощи студентам

Вычислить с точностью до шести знаков бесконечную дробь
$https://www.cyberforum.ru/cgi-bin/latex.cgi?1+\frac{2}{1+\frac{2}{1+\frac{2}{1+...}}}$
Получается , что в теле программы происходит сравнение с точностью, а не количеством шагов?
От каких параметров(в том числе и начальных) должна зависеть тогда функция?

@Catstail · 26.11.2015, 15:00

У меня получилось так:

Lisp

(defun frac (eps &optional (pp 1) (cp 1) (pq 0) (cq 1))
  (let* ((np (+ pp pp cp))
         (nq (+ pq pq cq))
         (f  (+ 0.0 (/ cp cq)))
         (n  (+ 0.0 (/ np nq))))
      (if (<= (abs (- f n)) eps) f (frac eps cp np cq nq))))
 
==> frac
 
(frac 0.01)
 
==> 1.99415204678363
 
(frac 1e-6)
 
==> 1.99999964237217
 
(frac 1e-15)
 
==> 2.0

@Kaligulaa 6 / 7 / 2 Регистрация: 18.05.2015 Сообщений: 124
		1
	Цепная дробь, вычислить 26.11.2015, 13:42. Показов 2195. Ответов 1 Метки нет (Все метки) Вычислить с точностью до шести знаков бесконечную дробь $https://www.cyberforum.ru/cgi-bin/latex.cgi?1+\frac{2}{1+\frac{2}{1+\frac{2}{1+...}}}$ Получается , что в теле программы происходит сравнение с точностью, а не количеством шагов? От каких параметров(в том числе и начальных) должна зависеть тогда функция? 0

	26.11.2015, 15:00

Цепная дробь, вычислить

Решение