> 1 <

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

Lubasha

Members


Статус

3 сообщений

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

#4307   2011-05-17 15:10 GMT+3 часа(ов)      
Здравствуйте.Помогите пожалуйста очень, очень, очень срочно надо. Задачка следующая..
Найти сумму ряда в Lisp.
cosx+cosx^2+cosx^3+...

VH

Members


Статус

289 сообщений

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

#4309   2011-05-17 15:50 GMT+3 часа(ов)      
Вам сумму ряда
cos(x)+cos(x^2)+cos(x^3)+...
или
cos(x)+(cos(x))^2+(cos(x)^3)+... ?

Lubasha

Members


Статус

3 сообщений

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

#4310   2011-05-17 15:52 GMT+3 часа(ов)      
Первый вариант cos(x)+cos(x^2)+cos(x^3)+..

megamanx

Members


Статус

307 сообщений

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

#4313   2011-05-18 00:17 GMT+3 часа(ов)      
(defun init(x)
(let ((summ 0) (arg 1))
(lambda ()
(setf summ (+ summ (cos (setf arg (* arg x))))))))
 
(defun nthell (fun n)
(do ((i 1 (1+ i))) ((= i n) (funcall fun)) (funcall fun)))

соответственно, вызов
(nthell (init 0.1) 200)
вернёт сумму 200 эл. с н.у. 0.1
I wish I'd made you angry earlier

Lubasha

Members


Статус

3 сообщений

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

#4314   2011-05-18 02:35 GMT+3 часа(ов)      
Спасибо огромное буду пробовать!

Митя

Members


Статус

2 сообщений

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

#4332   2011-05-20 00:20 GMT+3 часа(ов)      
Помогите пожулуста тот же ряд и для синуса?

megamanx

Members


Статус

307 сообщений

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

#4333   2011-05-20 00:53 GMT+3 часа(ов)      
ты издеваешься, да?) замени cos на sin
(defun resolve (init fun acc)
(let ((summ 0) (x 1))
(labels ((next () (setf x (* x init)))
(cnt () (setf summ (+ summ (funcall fun (next))))))
(defun solve () (do ((i acc (1- i))) ((= i 1) (cnt)) (cnt))))))

вызов
(resolve 0.1 'sin 2)
(solve)

отредактировал(а) megamanx: 2011-05-20 01:28 GMT+3 часа(ов)
I wish I'd made you angry earlier

Митя

Members


Статус

2 сообщений

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

#4334   2011-05-20 09:28 GMT+3 часа(ов)      
Я так и сделал, просто хотелось узнать есть ли еще возможные варианты, а так большое спасибо!
> 1 <


Онлайн :

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