1 files changed, 28 insertions, 0 deletions
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