From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1682/CH6/EX6.4/Exa6_4.sce | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 1682/CH6/EX6.4/Exa6_4.sce

(limited to '1682/CH6/EX6.4/Exa6_4.sce')

diff --git a/1682/CH6/EX6.4/Exa6_4.sce b/1682/CH6/EX6.4/Exa6_4.sce
new file mode 100755
index 000000000..48c86e911
--- /dev/null
+++ b/1682/CH6/EX6.4/Exa6_4.sce
@@ -0,0 +1,28 @@
+//Exa 6.4
+clc;
+clear;
+close;
+//Machine X :
+disp("Machine X : ");
+P=150000;//in Rs
+A=0;//in Rs
+S=0;//in Rs
+i=15;//in % per annum
+n=12;//in years
+//Formula : (A/P,i,n) : ((i/100)*(1+i/100)^n)/(((1+i/100)^n)-1)
+AE_X=P*((i/100)*(1+i/100)^n)/(((1+i/100)^n)-1);//in RS
+disp(AE_X,"The Annual equivalent cost of machine X in RS. : ");
+
+//Machine Y :
+disp("Machine Y : ");
+P=240000;//in Rs
+A=4500;//in Rs
+S=60000;//in Rs
+i=15;//in % per annum
+n=12;//in years
+//Formula : (A/P,i,n) : ((i/100)*(1+i/100)^n)/(((1+i/100)^n)-1)
+//Formula : (A/F,i,n) : (i/100)/(((1+i/100)^n)-1)
+AE_Y=P*((i/100)*(1+i/100)^n)/(((1+i/100)^n)-1)+A-S*(i/100)/(((1+i/100)^n)-1);//in RS
+disp(AE_Y,"The Annual equivalent cost of machine X in RS. : ");
+disp("The annual equivalent cost of machine X is less than that of machine Y.So machine X is more cost effective machine. ");
+//Note : Calculation in the book is not accurate.
\ No newline at end of file
-- 
cgit