Solver Personal Finance: Convert compound interest to equivalent simple interest for a given period

Source code of 'Personal Finance: Convert compound interest to equivalent simple interest for a given period'

This Solver (Personal Finance: Convert compound interest to equivalent simple interest for a given period) was created by by Shruti_Mishra(0)

: View Source, Show, Put on YOUR site
About Shruti_Mishra: I am a maths graduate from India and am currently persuing masters in Operations Research.

==section input
Find Simple Interest (annual compounding), given Principal = $ *[input p=1000], Compound Interest = *[input ci=102.5]% and Time = *[input t=2] years. The interest rate is same for both simple and compound interest.

==section solution
perl

print "We need to first calculate the <A HREF='interest_rate.lesson'>interest rate</A> for the given <A HREF='compound_interest.lesson'>compound interest</A>. This can be calculated as follows:
 
The formula for finding Annual <A HREF='interest_rate.lesson'>Interest Rate</A> for <A HREF='compound_interest.lesson'>Compound interest</A> is: 
 
<center>Interest Rate = {{{((TotalAmount/Principal)^(1/Time)-1)*100}}}%.</center>
 
Thus for the given values of P= $p , I = $i and T = $t , the <A HREF='interest_rate.lesson'>interest rate</A> would be
 
R = ((($ci+$p)/$p)^(1/$t)-1)*100 = ";

$r = ((($ci+$p)/$p)**(1/$t)-1)*100;
print "$r% per annum.
 
So, the interest rate is $r% per annum
 
Now we calculate the <A HREF='simple_interest.lesson'>simple interest</A> as follows:
 
The formula for finding <A HREF='simple_interest.lesson'>simple interest</A> is: Interest = Principal * Rate * Time. 
 
Thus for the given values of P= $p , R = $r and T = $t , the <A HREF='simple_interest.lesson'>simple interest</A> would be
 
I = $p * $r * $t/100 = ";
$si= $p*$r*$t/100;
print "$si. 
So, the interest amount is $si and the total payable amount is $si + $p = ";
$n=$si+$p;
print "$n
 ";
$sii = int($si);

==section output
sii

==section check
  p=1000 ci=102.5 t=2 sii=100