Книга: Искусство программирования на языке сценариев командной оболочки

Пример 12-32. Ежемесячные выплаты по займу

Пример 12-32. Ежемесячные выплаты по займу

#!/bin/bash

# monthlypmt.sh: Расчет ежемесячных выплат по займу.

# Это измененный вариант пакета "mcalc" (mortgage calculator),

#+ написанного Jeff Schmidt и Mendel Cooper (ваш покорный слуга).

# http://www.ibiblio.org/pub/Linux/apps/financial/mcalc-1.6.tar.gz [15k]

echo

echo "Введите сумму займа, процентную ставку и срок займа,"

echo "для расчета суммы ежемесячных выплат."

bottom=1.0

echo

echo -n "Сумма займа (без запятых -- с точностью до доллара) "

read principal

echo -n "Процентная ставка (процент) " # Если 12%, то нужно вводить "12", а не ".12".

read interest_r

echo -n "Срок займа (месяцев) "

read term

interest_r=$(echo "scale=9; $interest_r/100.0" | bc) # Здесь "scale" -- точность вычислений.

interest_rate=$(echo "scale=9; $interest_r/12 + 1.0" | bc)

top=$(echo "scale=9; $principal*$interest_rate^$term" | bc)

echo; echo "Прошу подождать. Вычисления потребуют некоторого времени."

let "months = $term - 1"

# ====================================================================

for ((x=$months; x > 0; x--))

do

bot=$(echo "scale=9; $interest_rate^$x" | bc)

bottom=$(echo "scale=9; $bottom+$bot" | bc)

# bottom = $(($bottom + $bot"))

done

# --------------------------------------------------------------------

# Rick Boivie предложил более эффективную реализацию

#+ цикла вычислений, который дает выигрыш по времени на 2/3.

# for ((x=1; x <= $months; x++))

# do

# bottom=$(echo "scale=9; $bottom * $interest_rate + 1" | bc)

# done

# А затем нашел еще более эффективную альтернативу,

#+ которая выполняется в 20 раз быстрее !!!

# bottom=`{

# echo "scale=9; bottom=$bottom; interest_rate=$interest_rate"

# for ((x=1; x <= $months; x++))

# do

# echo 'bottom = bottom * interest_rate + 1'

# done

# echo 'bottom'

# } | bc` # Внедрить цикл 'for' в конструкцию подстановки команд.

# ====================================================================

# let "payment = $top/$bottom"

payment=$(echo "scale=2; $top/$bottom" | bc)

# Два знака после запятой, чтобы показать доллары и центы.

echo

echo "ежемесячные выплаты = $$payment" # Вывести знак "доллара" перед числом.

echo

exit 0

# Упражнения:

# 1) Добавьте возможность ввода суммы с точностью до цента.

# 2) Добавьте возможность ввода процентной ставки как в виде процентов, так и в виде десятичного числа -- доли целого.

# 3) Если вы действительно честолюбивы,

# добавьте в сценарий вывод полной таблицы помесячных выплат.

Оглавление книги