Интегрирование по формуле прямоугольников - 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 >
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д