initial commit / add all books

5 files changed, 190 insertions, 0 deletions

diff --git a/1682/CH7/EX7.1/Exa7_1.sce b/1682/CH7/EX7.1/Exa7_1.sce
new file mode 100755
index 000000000..6fac31bbe
--- /dev/null
+++ b/1682/CH7/EX7.1/Exa7_1.sce
@@ -0,0 +1,24 @@
+//Exa 7.1

+clc;

+clear;

+close;

+//Given data :

+Ii=100000;//in Rs

+Ar=30000;//in Rs

+n=5;//in years

+//Formula : (P/A,i,n)=(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n)

+// when i=10 %

+i1=10;//in % per annum

+PW1=-Ii+Ar*(((1+i1/100)^n)-1)/((i1/100)*(1+i1/100)^n);//in RS

+disp(PW1,"The present worth for i=10% in RS. : ");

+// when i=15 %

+i2=15;//in % per annum

+PW2=-Ii+Ar*(((1+i2/100)^n)-1)/((i2/100)*(1+i2/100)^n);//in RS

+disp(PW2,"The present worth for i=15% in RS. : ");

+// when i=18 %

+i3=18;//in % per annum

+PW3=-Ii+Ar*(((1+i3/100)^n)-1)/((i3/100)*(1+i3/100)^n);//in RS

+disp(PW3,"The present worth for i=18% in RS. : ");

+disp("Present worth for i=15% is suitable.");

+i=15+(PW2-0)*(i3-i2)/(PW2-PW3);//in Rs.

+disp(i,"Therefore, the rate of return for the new business in % per annum :");
\ No newline at end of file
diff --git a/1682/CH7/EX7.2/Exa7_2.sce b/1682/CH7/EX7.2/Exa7_2.sce
new file mode 100755
index 000000000..c28c974fc
--- /dev/null
+++ b/1682/CH7/EX7.2/Exa7_2.sce
@@ -0,0 +1,21 @@
+//Exa 7.2

+clc;

+clear;

+close;

+//Given data :

+Io=2000000;//in Rs

+ANP=350000;//in Rs

+S=0;//in Rs

+n=10;//in years

+//Formula : (P/A,i,n)=(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n)

+// when i=10 %

+i1=10;//in % per annum

+PW1=-Io+ANP*(((1+i1/100)^n)-1)/((i1/100)*(1+i1/100)^n);//in RS

+disp(PW1,"The present worth for i=10% in RS. : ");

+// when i=12 %

+i2=12;//in % per annum

+PW2=-Io+ANP*(((1+i2/100)^n)-1)/((i2/100)*(1+i2/100)^n);//in RS

+disp(PW2,"The present worth for i=15% in RS. : ");

+disp("Present worth for i=10% is suitable.");

+i=10+(PW1-0)*(i2-i1)/(PW1-PW2);//in Rs.

+disp(i,"Therefore, the rate of return of the new product line in % per annum :");
\ No newline at end of file
diff --git a/1682/CH7/EX7.3/Exa7_3.sce b/1682/CH7/EX7.3/Exa7_3.sce
new file mode 100755
index 000000000..a1d251bc3
--- /dev/null
+++ b/1682/CH7/EX7.3/Exa7_3.sce
@@ -0,0 +1,67 @@
+//Exa 7.3

+clc;

+clear;

+close;

+//Alternative 1:

+disp("Alternative 1:");

+Io=150000;//in Rs

+Ap=45570;//in Rs

+n=5;//in years

+//Formula : (P/A,i,n)=(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n)

+// when i=10 %

+i1=10;//in % per annum

+PW1=-Io+Ap*(((1+i1/100)^n)-1)/((i1/100)*(1+i1/100)^n);//in RS

+disp(PW1,"The present worth for i=10% in RS. : ");

+// when i=12 %

+i2=12;//in % per annum

+PW2=-Io+Ap*(((1+i2/100)^n)-1)/((i2/100)*(1+i2/100)^n);//in RS

+disp(PW2,"The present worth for i=10% in RS. : ");

+// when i=15 %

+i3=15;//in % per annum

+PW3=-Io+Ap*(((1+i3/100)^n)-1)/((i3/100)*(1+i3/100)^n);//in RS

+disp(PW3,"The present worth for i=10% in RS. : ");

+// when i=18 %

+i4=18;//in % per annum

+PW4=-Io+Ap*(((1+i4/100)^n)-1)/((i4/100)*(1+i4/100)^n);//in RS

+disp(PW4,"The present worth for i=10% in RS. : ");

+disp("Present worth for i=15% is suitable.");

+i=i3+(PW3-0)*(i4-i3)/(PW3-PW4);//in Rs.

+disp(i,"Therefore, the rate of return of alternative in % per annum :");

+

+//Alternative 2:

+disp("Alternative 2:");

+Io=210000;//in Rs

+Ap=58260;//in Rs

+n=5;//in years

+//Formula : (P/A,i,n)=(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n)

+// when i=12 %

+i1=12;//in % per annum

+PW1=-Io+Ap*(((1+i1/100)^n)-1)/((i1/100)*(1+i1/100)^n);//in RS

+disp(PW1,"The present worth for i=12% in RS. : ");

+// when i=13 %

+i2=13;//in % per annum

+PW2=-Io+Ap*(((1+i2/100)^n)-1)/((i2/100)*(1+i2/100)^n);//in RS

+disp(PW2,"The present worth for i=13% in RS. : ");

+disp("Present worth for i=12% is suitable.");

+i=i1+(PW1-0)*(i2-i1)/(PW1-PW2);//in Rs.

+disp(i,"Therefore, the rate of return of alternative 2 in % per annum :");

+

+//Alternative 3:

+disp("Alternative 3:");

+Io=255000;//in Rs

+Ap=69000;//in Rs

+n=5;//in years

+//Formula : (P/A,i,n)=(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n)

+// when i=11 %

+i1=11;//in % per annum

+PW1=-Io+Ap*(((1+i1/100)^n)-1)/((i1/100)*(1+i1/100)^n);//in RS

+disp(PW1,"The present worth for i=11% in RS. : ");

+// when i=12 %

+i2=12;//in % per annum

+PW2=-Io+Ap*(((1+i2/100)^n)-1)/((i2/100)*(1+i2/100)^n);//in RS

+disp(PW2,"The present worth for i=12% in RS. : ");

+disp("Present worth for i=11% is suitable.");

+i=i1+(PW1-0)*(i2-i1)/(PW1-PW2);//in Rs.

+disp(i,"Therefore, the rate of return of the alternative 3 in % per annum :");

+disp("");

+disp("It is clear that rate of return for alternative 3v is less than the minimum attractive rate of return of 12 %. So it should not be considered for comparison. the remaining two alternatives are qualified for consideration. Among the alternatives 1 and 2, the rate of return of 1 is greater than that of 2. ence,         alternative 1 should be selected. ");
\ No newline at end of file
diff --git a/1682/CH7/EX7.4/Exa7_4.sce b/1682/CH7/EX7.4/Exa7_4.sce
new file mode 100755
index 000000000..ac51cd933
--- /dev/null
+++ b/1682/CH7/EX7.4/Exa7_4.sce
@@ -0,0 +1,30 @@
+//Exa 7.4

+clc;

+clear;

+close;

+//Given data

+A0=-1275;//in Rs

+A1=150;//in Rs

+G=150;//in Rs

+i=10;//in % per annum

+n=5;//in years

+//Formula : (A/G,i,n) :(((1+i/100)^n)-i*n/100-1)/(((i/100)*(1+i/100)^n)-i/100) 

+A=A1+G*(((1+i/100)^n)-i*n/100-1)/(((i/100)*(1+i/100)^n)-i/100) ;//in RS

+disp(A,"The annual equivalent of the positive cash flows in RS. : ");

+//Formula : (P/A,i,n) : (((1+i/100)^n)-1)/((i/100)*(1+i/100)^n)

+i1=10;//in % per annum

+PW1=A0+(A1+G*(((1+i1/100)^n)-i1*n/100-1)/(((i1/100)*(1+i1/100)^n)-i1/100))*(((1+i1/100)^n)-1)/((i1/100)*(1+i1/100)^n);''//i1n Rs.

+disp(PW1,"PW(10) :");

+i2=12;//i2n % per annum

+PW2=A0+(A1+G*(((1+i2/100)^n)-i2*n/100-1)/(((i2/100)*(1+i2/100)^n)-i2/100))*(((1+i2/100)^n)-1)/((i2/100)*(1+i2/100)^n);''//i2n Rs.

+disp(PW2,"PW(12) :");

+i3=15;//i3n % per annum

+PW3=A0+(A1+G*(((1+i3/100)^n)-i3*n/100-1)/(((i3/100)*(1+i3/100)^n)-i3/100))*(((1+i3/100)^n)-1)/((i3/100)*(1+i3/100)^n);''//i3n Rs.

+disp(PW3,"PW(15) :");

+i4=18;//in % per annum

+PW4=A0+(A1+G*(((1+i4/100)^n)-i4*n/100-1)/(((i4/100)*(1+i4/100)^n)-i4/100))*(((1+i4/100)^n)-1)/((i4/100)*(1+i4/100)^n);''//in Rs.

+disp(PW4,"PW(18) :");

+

+disp("Present worth for i=15% is suitable.");

+i=i3+(PW3-0)*(i4-i3)/(PW3-PW4);//in Rs.

+disp(i,"Therefore, the rate of return for the given cash flow in % per annum :");
\ No newline at end of file
diff --git a/1682/CH7/EX7.5/Exa7_5.sce b/1682/CH7/EX7.5/Exa7_5.sce
new file mode 100755
index 000000000..63a572259
--- /dev/null
+++ b/1682/CH7/EX7.5/Exa7_5.sce
@@ -0,0 +1,48 @@
+//Exa 7.5

+clc;

+clear;

+close;

+//Alternative 1:

+disp("Alternative 1:");

+Io=500000;//in Rs

+Ar=170000;//in Rs

+n=5;//in years

+//Formula : (P/A,i,n)=(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n)

+// when i=15 %

+i1=15;//in % per annum

+PW1=-Io+Ar*(((1+i1/100)^n)-1)/((i1/100)*(1+i1/100)^n);//in RS

+disp(PW1,"The present worth(PW(15%)) for i=10% in RS. : ");

+// when i=17 %

+i2=17;//in % per annum

+PW2=-Io+Ar*(((1+i2/100)^n)-1)/((i2/100)*(1+i2/100)^n);//in RS

+disp(PW2,"The present worth(PW17(%)) for i=10% in RS. : ");

+// when i=20 %

+i3=20;//in % per annum

+PW3=-Io+Ar*(((1+i3/100)^n)-1)/((i3/100)*(1+i3/100)^n);//in RS

+disp(PW3,"The present worth(PW(20%)) for i=10% in RS. : ");

+// when i=22 %

+i4=22;//in % per annum

+PW4=-Io+Ar*(((1+i4/100)^n)-1)/((i4/100)*(1+i4/100)^n);//in RS

+disp(PW4,"The present worth(PW(22%)) for i=10% in RS. : ");

+disp("Present worth for i=15% is suitable.");

+i=i3+(PW3-0)*(i4-i3)/(PW3-PW4);//in Rs.

+disp(i,"Therefore, the rate of return of alternative 1 in % per annum :");

+

+//Alternative 2:

+disp("Alternative 2:");

+Io=800000;//in Rs

+Ar=270000;//in Rs

+n=5;//in years

+//Formula : (P/A,i,n)=(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n)

+// when i=20 %

+i3=20;//in % per annum

+PW3=-Io+Ar*(((1+i3/100)^n)-1)/((i3/100)*(1+i3/100)^n);//in RS

+disp(PW3,"The present worth(PW(20%)) for i=10% in RS. : ");

+// when i=22 %

+i4=22;//in % per annum

+PW4=-Io+Ar*(((1+i4/100)^n)-1)/((i4/100)*(1+i4/100)^n);//in RS

+disp(PW4,"The present worth(PW(22%)) for i=10% in RS. : ");

+disp("Present worth for i=15% is suitable.");

+i=i3+(PW3-0)*(i4-i3)/(PW3-PW4);//in Rs.

+disp(i,"Therefore, the rate of return of alternative 2 in % per annum :");

+disp("Since the rate of return of alternative 1 is greater than that of the alternative 2, select alternative 1. ");
\ No newline at end of file