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