summaryrefslogtreecommitdiff
path: root/3434/CH14/EX14.9/Ex14_9.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /3434/CH14/EX14.9/Ex14_9.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '3434/CH14/EX14.9/Ex14_9.sce')
-rw-r--r--3434/CH14/EX14.9/Ex14_9.sce24
1 files changed, 24 insertions, 0 deletions
diff --git a/3434/CH14/EX14.9/Ex14_9.sce b/3434/CH14/EX14.9/Ex14_9.sce
new file mode 100644
index 000000000..d2f6092d5
--- /dev/null
+++ b/3434/CH14/EX14.9/Ex14_9.sce
@@ -0,0 +1,24 @@
+clc
+// given data
+
+G=1 //gradient per period in lakh rs
+i=12/100.0 // discount rate
+n=5 // time in years
+A1=10 // payment at end of 1st year in lakhs rs
+loan=40 // load applied for in lakhs
+
+
+AGin=(1/i)-5*1/(-1+(1+i)**n) // gradient to uniform series conversion factor
+
+Ag=A1+G*AGin // in lakhs Rs
+
+Pg=Ag*(-1+(1+i)**n)/(i*(1+i)**n) // present worth in lakhs rs
+
+printf( "The present worth is Rs %.2f Lakh",Pg)
+
+if (Pg*0.85<loan)
+ printf( "\n Loan is not given as amount is less than applied for loan")
+
+else
+printf( "\n Loan is given" )
+end