Расчет по формулам (к-во утеплителя) - Lisp

Формулировка задачи:

Заданы следующие параметры каркасного здания: высота h, длина l, ширина w, толщина утепления стен плитным утеплителем - 0,2 м, пола и потолка рулонным утеплителем - 0,3 м. Рассчитать количество утеплителя обоих видов.

Решение задачи: «Расчет по формулам (к-во утеплителя)»

Листинг программы

(defun roofing (h l w d)
  (* (+ (sqrt (+ (expt (* 2/3 h) 2) (expt (* 0.5 w) 2))) d) (+ l d d) 2))
 
> (insulation 3 10 5)
48.0

Объяснение кода листинга программы

В данном коде представлена функция расчета количества утеплителя для крыши с названием roofing. Функция принимает четыре аргумента: h, l, w, d.

Первый шаг в функции - вычисление значения переменной h_squared, которая равна квадрату аргумента h. Это делается с помощью функции expt, которая возводит число в степень. В данном случае, аргумент h возводится в степень 2/3.
Затем вычисляется значение переменной w_squared. Она равна квадрату аргумента w.
Далее происходит вычисление значения переменной roof_area, которая равна произведению аргументов h, l, w и d.
После этого происходит вычисление значения переменной insulation_thickness, которая равна произведению аргументов h_squared, w_squared, d и 2.
Наконец, функция возвращает значение переменной insulation_thickness. Таким образом, данный код выполняет расчет количества утеплителя для крыши на основе размеров крыши и возвращает результат.