> 1 <

Автор Сообщение

Киселева А. Г.

Members


Статус

2 сообщений

Где: Russia
Род занятий:
Возраст:

#4327   2011-05-18 15:52 GMT+3 часа(ов)      
Подсчитать ряд: (сos1/sin1)*((cos1+cos2)/(sin1+sin2))*...*((cos1+cos2+...+cosN)/(sin1+sin2+...+sinN)).

ander-skirnir

Members


Статус

227 сообщений
http://lisper.ru
Где: Ukraine
Род занятий: `'`,`',`',
Возраст: 29

#4328   2011-05-18 16:04 GMT+3 часа(ов)      
(defun sfold (efn &key (by #'+)
(from 1) to (diff 0.01))
(do* ((el 0 (funcall efn i))
(acc (funcall by)
(funcall by acc el))
(i from (1+ i)))
((or (and to (> i to))
(and (not to) (< el diff)))
acc)))
 
(defun quux (n)
(sfold (lambda (i)
(/ (sfold #'cos :to i)
(sfold #'sin :to i)))
:by #'* :to n))

отредактировал(а) ander-skirnir: 2011-05-20 06:05 GMT+3 часа(ов)
> 1 <


Онлайн :

0 пользователь(ей), 36 гость(ей) :