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

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

Заданы следующие параметры здания: высота h, длина l, ширина w, фронтальный и боковой свес крыши d. Рассчитать количество кровельного материала для двускатной крыши, если высота конька hr = 2 / 3 * h

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

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

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

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

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

Вычисление значения переменной h1 на основе числа h с помощью функции expt, которая возводит число в степень. В данном случае число 2/3 от h возводится в квадрат.
Вычисление значения переменной w1 на основе числа w с помощью функции expt, которая возводит число в степень. В данном случае число 0.5 от w возводится в квадрат.
Вычисление значения переменной h2 на основе значения переменной h1 с помощью функции sqrt, которая извлекает квадратный корень.
Вычисление значения переменной d1 на основе значения переменной d с помощью оператора умножения.
Вычисление значения переменной l1 на основе значения переменной l с помощью оператора сложения.
Вычисление итогового значения переменной result на основе значения переменной d1, значения переменной l1 и значения переменной d.
Возврат итогового значения из функции. При вызове функции roofing с аргументами 3, 10, 5 и 0.4, результатом выполнения функции будет число 77.79374.