#!/bin/sh

# loancalc - tant donn un capital, un taux d'intrt, et une dure de
#   prt (en annes), calcule le montant de la traite mensuelle.

# La formule est: M = P * ( J / (1 - (1 + T) ** -N))
# o P est le capital, J le taux d'intrt mensuel, N la dure (en mois)
#
# Les utilisateurs fournissent gnralement P, I (taux d'intrt annuel)
# et L (la dure, exprime en annes).

. script-library.sh

if [ $# -ne 3 ] ; then 
  echo "Syntaxe: $0 <capital> <taux d'intrt> <annes>" >&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\) \) )"

# Un lger nettoyage de la valeur calcule:

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

cat << EOF
Un prt de $(nicenumber $P 1 ) EUR sur $L ans  $I% d'intrt
suppose un remboursement de $dollars,$cents EUR chaque mois
pendant toute la dure du prt (soit $N traites).
EOF

exit 0
