4 files changed, 127 insertions, 0 deletions
diff --git a/1682/CH11/EX11.1/Exa11_1.sce b/1682/CH11/EX11.1/Exa11_1.sce
new file mode 100755
index 000000000..afd56df86
--- /dev/null
+++ b/1682/CH11/EX11.1/Exa11_1.sce
@@ -0,0 +1,32 @@
+//Exa 11.1
+clc;
+clear;
+close;
+disp("Few steps are as follows : ");
+disp("Step 1 : The estimated future requirementt per year in terms of todays rupees from his age 61 through 70 is Rs. 24000.");
+disp("Step 2 : The formula which is given below is used to get future equivalent of Rs. 24000 with the inflation of 9% per year.");
+disp("Formula : P*(1+IR)^n");
+P=24000;//in Rs.
+IR=9;//in % per year
+Age=61;//in years
+for n=21:30
+    IV=P*(1+IR/100)^n;//in Rs
+    disp("Age in years : "+string(Age)+". ""Inflated value of Rs. 24000 at end of year : "+string(n)+" in Rs. "+string(round(IV)));
+    Age=Age+1;//in Years
+end;
+PW=0;//For initialising
+n=21;//in years
+for m=1:10  
+    IV=P*(1+IR/100)^n;//in Rs
+    n=n+1;
+    i=15;//in % per year
+    PW=PW+IV/(1+i/100)^m;
+end
+disp(PW,"Present equivalent of withdrawls in Rs. : ");
+//The annual equivalent amount :
+i=15;//in % per year
+n=20;//in years
+//Formula : (A/F,i,n) : (i/100)/(((1+i/100)^n)-1) 
+A=PW*(i/100)/(((1+i/100)^n)-1);//in Rs.
+disp(A,"The annual equivalent amount in Rs. : ");
+disp("RECOMMENDATION : The person has to invest an amount of Rs. "+string(A)+" at the end of every year starting from his age 41 through 60 which will enable him to make a withdrawl at the end of every year starting from his age 61 through 70."); 
+\ No newline at end of file
diff --git a/1682/CH11/EX11.2/Exa11_2.sce b/1682/CH11/EX11.2/Exa11_2.sce
new file mode 100755
index 000000000..50ebc789a
--- /dev/null
+++ b/1682/CH11/EX11.2/Exa11_2.sce
@@ -0,0 +1,25 @@
+//Exa 11.2
+clc;
+clear;
+close;
+disp("The method of finding the economic life of the machine witha discounting factor of 20% at zero inflation rate is summarized in table below. From the table it is clear that total annual cost is minimum if the machine is used for 14 years. Hence the economic life of the machine is 14 years.");
+disp("End of year     Op_cost     Main_cost    Op+Main     P/F,i,n     PW     Cummulative     Salvage     PW_S    TPW     A/P,i,n     AEM");
+i=20;//in  per year
+Cum=0;//initialising
+Op_cost=40000;//in RS.
+Main_cost=60000;//in Rs.
+OpMain=Op_cost+Main_cost;//in Rs.
+S=400000;//in Rs.
+for n=1:15
+    PF=1/((1+i/100)^n);
+    PW=OpMain*PF;//in Rs.
+    Cum=Cum+PW
+    PW_S=PF*S;//in RS.
+    TPW=500000+Cum-PW_S;//in Rs.
+    AP=((i/100)*(1+i/100)^n)/(((1+i/100)^n)-1);
+    AEM=TPW*AP;//in RS
+    disp("       "+string(n)+"        "+string(Op_cost)+"        "+string(Main_cost)+"        "+string(OpMain)+"    "+string(PF)+"     "+string(PW)+"        "+string(Cum)+"        "+string(S)+"        "+string(PW_S)+"        "+string(TPW)+"        "+string(AP)+"        "+string(AEM));
+    Op_cost=Op_cost+5000;//in Rs.
+    Main_cost=Main_cost+6000;//in Rs.
+    S=S-50000;//in Rs.
+end
+\ No newline at end of file
diff --git a/1682/CH11/EX11.3/Exa11_3.sce b/1682/CH11/EX11.3/Exa11_3.sce
new file mode 100755
index 000000000..396bf6ee0
--- /dev/null
+++ b/1682/CH11/EX11.3/Exa11_3.sce
@@ -0,0 +1,48 @@
+//Exa 11.3
+clc;
+clear;
+close;
+IR=5;//in % per year
+i=15;//in % per year
+//Machine X :
+disp("Machine X : ");
+Ppx=1500000;//in Rs.
+n=7;//in years
+S=200000;//in Rs.
+AMC=300000;//in Rs.
+disp("End of year     AMC     InflationFactor     InflatedAmount     P/F     PW");
+format('v',9)
+Pw=0;//For initialising
+for n=1:7
+    FP=(1+IR/100)^n
+    IA=AMC*FP;//in Rs.
+    PF=1/((1+i/100)^n);
+    PW=IA*PF;//in Rs.
+    Pw=Pw+PW;//in Rs.
+    disp("     "+string(n)+"        "+string(AMC)+"         "+string(FP)+"           "+string(IA)+"          "+string(PF)+"      "+string(PW));
+end
+disp(Pw,"Present worth of inflated annual operating and maintenance cost in Rs. : ");
+PWX=Ppx+Pw-S*1/((1+i/100)^n);
+disp(PWX,"Present worth of machine X in Rs. : ");
+//Machine Y
+disp("Machine Y : ");
+Ppy=2000000;//in Rs.
+n=7;//in years
+S=300000;//in Rs.
+AMC=250000;//in Rs.
+disp("End of year     AMC     InflationFactor     InflatedAmount     P/F     PW");
+format('v',9)
+Pw=0;//For initialising
+for n=1:7
+    FP=(1+IR/100)^n
+    IA=AMC*FP;//in Rs.
+    PF=1/((1+i/100)^n);
+    PW=IA*PF;//in Rs.
+    Pw=Pw+PW;//in Rs.
+    disp("     "+string(n)+"        "+string(AMC)+"         "+string(FP)+"           "+string(IA)+"          "+string(PF)+"      "+string(PW));
+end
+disp(Pw,"Present worth of inflated annual operating and maintenance cost in Rs. : ");
+PWY=Ppy+Pw-S*1/((1+i/100)^n);
+disp(PWY,"Present worth of machine Y in Rs. : ");
+disp("Since the present worth of Machine X is less than Machine Y, select Machine X")
+//Note : Calculations are not accurate in the book
+\ No newline at end of file
diff --git a/1682/CH11/EX11.4/Exa11_4.sce b/1682/CH11/EX11.4/Exa11_4.sce
new file mode 100755
index 000000000..557131b52
--- /dev/null
+++ b/1682/CH11/EX11.4/Exa11_4.sce
@@ -0,0 +1,22 @@
+//Exa 11.4
+clc;
+clear;
+close;
+IR=6;//in % per year
+i=18;//in % per year
+AFR=5000000;//in Rs.
+n=7;//in years
+AI=500000;//in Rs.
+disp("End of year     AFR     InflationFactor     InflatedAmount     P/F     PW");
+TPW=0;//Initialising
+format('v',10)
+for n=1:5
+    IF=(1+IR/100)^n;
+    IA=IF*AFR;//in Rs.
+    PF=1/((1+i/100)^n);
+    PW=PF*IA;//in Rs.
+    TPW=PW+TPW;//in Rs.
+    disp("       "+string(n)+"        "+string(AFR)+"        "+string(IF)+"        "+string(IA)+"    "+string(PF)+"     "+string(PW));
+    AFR=AFR+AI;//in Rs.
+end;
+disp(TPW,"The value of the single deposit to be made now to recieve the specified series for the next five years is Rs. : ")