> 1 <

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

x359x

Members


Статус

1 сообщений

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

#6902   2013-02-01 21:48 GMT+3 часа(ов)      
Помогите пожалуйста с решением задачи. Условие задачи следующее: Определить функцию, вычисляющую минимальный и максимальный элементы списка, значения которого определяются по формуле:


Заранее спасибо.

Aoloa

Members


Статус

37 сообщений

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

#6908   2013-02-04 20:38 GMT+3 часа(ов)      
А формулы-то нету.
With iTeX* your entire life can be encapsulated into a dynamic hyperdocument, downloadable by anybody you designate (Donald E. Knuth, An Earthshaking Announcement)

Файфель Б.Л.

Members


Статус

61 сообщений
http://homelisp.ru
Где: Russia Саратов
Род занятий: Программист
Возраст: 66

#6909   2013-02-04 21:09 GMT+3 часа(ов)      
(defun mk-listy nil
(let ((r nil))
(dotimes (x 11 r)
(cond ((> x 5) (setq r (append r (list (/ (log 3) (* (log 2) (+ x 1)))))))
((and (< x 3) (>= x 1)) (setq r (append r (list (- (* x x))))))
(t (setq r (append r (list (* (sign (- (* 3 x) (* x x x x)))) (expt (abs (- (* 3 x) (* x x x x))) 0.2)))))))

(list (apply 'min r) (apply 'max r))

))

==> mk-listy

(mk-listy)

==> (-4 3.60633417143139)
> 1 <


Онлайн :

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