Solver Corporate Finance: Get yearly depreciation schedule (for 5 years), given principal and depreciation rate: Reducing balance/Writt

Source code of 'Corporate Finance: Get yearly depreciation schedule (for 5 years), given principal and depreciation rate: Reducing balance/Writt'

This Solver (Corporate Finance: Get yearly depreciation schedule (for 5 years), given principal and depreciation rate: Reducing balance/Writt) 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
Get yearly depreciation schedule, given Principal = $*[input p= 10000] and Rate to Depreciate = *[input r=25] %. Reducing balance/Written down value Method.

==section solution
perl

print "The yearly <A HREF='depreciation_1.lesson'>depreciation</A> amount can be calculated by using the <A HREF='depreciation_1.lesson'>depreciation</A> rate and the written down value (WDV) of the asset. WDV is the initial value of the asset (principal) minus cumulative depreciation. To understand WDV, see <A HREF='methods_of_depreciation.lesson'>Different Methods of Depreciation</A>
The the yearly <A HREF='depreciation_1.lesson'>depreciation</A> would be 
 
<center>
{{{ Di = WDV * Depreciation Rate }}}
</center>
 
The yearly <A HREF='depreciation_1.lesson'>depreciation</A> schedule would be as follows
<table align=center cellpadding=10>
<tr>
<td> End of Year </td> <td> Value of Asset (WDV) </td> <td> Depreciation for the year </td><td>Cumulative Depreciation</td></tr>";
$wdv = $p;
$d=0;
$cd=0;
for ($i = 0; $i <= 5; $i++) {
print "<tr><td>$i</td> <td>$wdv</td> <td>$d</td><td>$cd</td></tr>";
$d = $wdv*$r/100;
$wdv = $wdv * (1-$r/100);
$cd = $cd + $d

}
print "</table>";

==section output
d

==section check
  p=10000 r=20 d=655.36