#!/bin/bash
# Skrypt loancalc wyliczający wysokość raty na podstawie wartości kredytu,
# oprocentowania i okresu kredytowania (w latach).
# Zastosowana formuła: M = P * ( J / (1 - (1 + J) ^ -N)),
# gdzie P oznacza wysokość kredytu, J oprocentowanie miesięczne,
# a N okres kredytowania (w miesiącach).
# Użytkownik musi podać wartość P, I (oprocentowanie roczne) i L (okres
# kredytowania w latach).

. ../01/library.sh         # Najpierw dołączana jest biblioteka skryptów.

if [ $# -ne 3 ] ; then
  echo "Użycie: $0 wysokość_kredytu oprocentowanie okres_w_latach" >&2
  exit 1
fi

P=$1  I=$2   L=$3
J="$(scriptbc -p 8 $I / \( 12 \* 100 \) )"
N="$(( $L * 12 ))"
M="$(scriptbc -p 8 $P \* \( $J / \(1 - \(1 + $J\) \^ -$N\) \) )"

# Przygotowanie do czytelnego zaprezentowania wartości.

zlote="$(echo $M | cut -d. -f1)"
grosze="$(echo $M | cut -d. -f2 | cut -c1-2)"

cat << EOF
Kredyt $L-letni, w wysokości $(nicenumber $P 1 ) zł z oprocentowaniem $I%,
musisz spłacić w $N miesięcznych ratach po $zlote,$grosze zł.
EOF

exit 0
