Интегрирование по формуле прямоугольников - Lisp
Формулировка задачи:
Зная значения функции в равноотстоящих точках на отрезке, вычислить определенный интеграл по формуле прямоугольников: I = h *(f0 + f1 + f2 +f3+...+ fn-1+ fn)
Значения функции в точках и шаг разбиения отрезка заданы списком:
(f0 f1 f2 f3 ….fn-1 fn h), h – шаг разбиения.
Решение задачи: «Интегрирование по формуле прямоугольников»
textual
Листинг программы
- Язык: r5rs; memory limit: 1024 MB.
- > (define (foo lst acc)
- (if (null? (cdr lst))
- (* (car lst) acc)
- (foo (cdr lst) (+ acc (car lst)))))
- > (define (bar lst)
- (foo lst 0))
- > (bar '(1 2 3 4 5 6 0.1))
- 2.1
- >
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
