diff options
Diffstat (limited to '1682/CH5/EX5.5/Exa5_5.sce')
-rwxr-xr-x | 1682/CH5/EX5.5/Exa5_5.sce | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/1682/CH5/EX5.5/Exa5_5.sce b/1682/CH5/EX5.5/Exa5_5.sce new file mode 100755 index 000000000..fbe6108fb --- /dev/null +++ b/1682/CH5/EX5.5/Exa5_5.sce @@ -0,0 +1,29 @@ +//Exa 5.5
+clc;
+clear;
+close;
+//Machine A :
+disp("Machine A: ");
+P=400000;//in Rs
+A=40000;//in Rs
+S=200000;//in Rs
+i=12;//in % per annum
+n=4;//in years
+//Formula : (F/P,i,n) : (1+i/100)^n
+//Formula : (F/A,i,n) : (((1+i/100)^n)-1)/(i/100)
+FW_A=(P*(1+i/100)^n)+(A*(((1+i/100)^n)-1)/(i/100))-S;//in RS
+disp(FW_A,"The future worth amount of Machine A in RS. : ");
+
+//Machine B :
+disp("Machine AB: ");
+P=800000;//in Rs
+A=0;//in Rs
+S=550000;//in Rs
+i=12;//in % per annum
+n=4;//in years
+//Formula : (F/P,i,n) : (1+i/100)^n
+//Formula : (F/A,i,n) : (((1+i/100)^n)-1)/(i/100)
+FW_B=(P*(1+i/100)^n)+(A*(((1+i/100)^n)-1)/(i/100))-S;//in RS
+disp(FW_B,"The future worth amount of Machine B in RS. : ");
+disp("The future worth of Machine A is less than that of Machine B. Thus, Machine A should be selected.");
+//Note : Calculation in the book is not accurate.
\ No newline at end of file |