diff options
Diffstat (limited to '1682/CH4')
| -rwxr-xr-x | 1682/CH4/EX4.1/Exa4_1.sce | 34 | ||||
| -rwxr-xr-x | 1682/CH4/EX4.2/Exa4_2.sce | 24 | ||||
| -rwxr-xr-x | 1682/CH4/EX4.3/Exa4_3.sce | 26 | ||||
| -rwxr-xr-x | 1682/CH4/EX4.4/Exa4_4.sce | 15 | ||||
| -rwxr-xr-x | 1682/CH4/EX4.5/Exa4_5.sce | 23 | ||||
| -rwxr-xr-x | 1682/CH4/EX4.6/Exa4_6.sce | 24 | ||||
| -rwxr-xr-x | 1682/CH4/EX4.7/Exa4_7.sce | 14 |
7 files changed, 160 insertions, 0 deletions
diff --git a/1682/CH4/EX4.1/Exa4_1.sce b/1682/CH4/EX4.1/Exa4_1.sce new file mode 100755 index 000000000..b8b74c61d --- /dev/null +++ b/1682/CH4/EX4.1/Exa4_1.sce @@ -0,0 +1,34 @@ +//Exa 4.1
+clc;
+clear;
+close;
+//Technology 1 :
+disp("Technology 1 : ");
+P=1200000;//in Rs
+A=400000;//in Rs
+i=20;//in % per annum
+n=10;//in years
+//Formula : (P/A,i,n)=(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n)
+PW=-P+A*(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n);//in RS
+disp(PW,"The present worth for this technology in RS. : ");
+
+//Technology 2 :
+disp("Technology 2 : ");
+P=2000000;//in Rs
+A=600000;//in Rs
+i=20;//in % per annum
+n=10;//in years
+//Formula : (P/A,i,n)=(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n)
+PW=-P+A*(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n);//in RS
+disp(PW,"The present worth for this technology in RS. : ");
+
+//Technology 3 :
+disp("Technology 3 : ");
+P=1800000;//in Rs
+A=500000;//in Rs
+i=20;//in % per annum
+n=10;//in years
+//Formula : (P/A,i,n)=(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n)
+PW=-P+A*(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n);//in RS
+disp(PW,"The present worth for this technology in RS. : ");
+disp("It is clear from the calculations that the present worth of technology 2 is the highest among all technologies. Therefore technology 2 is suggested for implementation to expand the production.");
\ No newline at end of file diff --git a/1682/CH4/EX4.2/Exa4_2.sce b/1682/CH4/EX4.2/Exa4_2.sce new file mode 100755 index 000000000..0ebbf6021 --- /dev/null +++ b/1682/CH4/EX4.2/Exa4_2.sce @@ -0,0 +1,24 @@ +//Exa 4.2
+clc;
+clear;
+close;
+//Bid 1: Alpha Elevator Inc.
+disp("Bid 1: Alpha Elevator Inc. ");
+P=450000;//in Rs
+A=27000;//in Rs
+i=15;//in % per annum
+n=15;//in years
+//Formula : (P/A,i,n)=(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n)
+PW=P+A*(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n);//in RS
+disp(PW,"The present worth for this bid in RS. : ");
+
+//Bid 2: Beta Elevator Inc.
+disp("Bid 2: Beta Elevator Inc. ");
+P=540000;//in Rs
+A=28500;//in Rs
+i=15;//in % per annum
+n=15;//in years
+//Formula : (P/A,i,n)=(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n)
+PW=P+A*(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n);//in RS
+disp(PW,"The present worth for this bid in RS. : ");
+disp("The total present worth cost of bid 1 is less than that of bid 2. Hence bid 1 is to be selected for implementation. That is, the Elevator from Alpha Elevator Inc. is to be purchased and installed in the new building.");
\ No newline at end of file diff --git a/1682/CH4/EX4.3/Exa4_3.sce b/1682/CH4/EX4.3/Exa4_3.sce new file mode 100755 index 000000000..d57edbc60 --- /dev/null +++ b/1682/CH4/EX4.3/Exa4_3.sce @@ -0,0 +1,26 @@ +//Exa 4.3
+clc;
+clear;
+close;
+//Investment proposal A :
+P1=-10000;//in Rs
+P2=3000;//in Rs
+P3=3000;//in Rs
+P4=7000;//in Rs
+P5=6000;//in Rs
+i=18;//in % per annum
+//Formula : (P/F,i,n) : 1/((1+i/100)^n)
+PW_A=P1+P2*1/((1+i/100)^1)+P3*1/((1+i/100)^2)+P4*1/((1+i/100)^3)+P5*1/((1+i/100)^4);//in RS
+disp(PW_A,"The present worth of A in RS. : ");
+
+//Investment proposal B :
+P1=-10000;//in Rs
+P2=6000;//in Rs
+P3=6000;//in Rs
+P4=3000;//in Rs
+P5=3000;//in Rs
+i=18;//in % per annum
+//Formula : (P/F,i,n) : 1/((1+i/100)^n)
+PW_B=P1+P2*1/((1+i/100)^1)+P3*1/((1+i/100)^2)+P4*1/((1+i/100)^3)+P5*1/((1+i/100)^4);//in RS
+disp(PW_B,"The present worth of B in RS. : ");
+disp("At i=18%, the present worth of proposal B is higher than that of proposal A. Therefore, select proposal B.")
\ No newline at end of file diff --git a/1682/CH4/EX4.4/Exa4_4.sce b/1682/CH4/EX4.4/Exa4_4.sce new file mode 100755 index 000000000..bd20685b3 --- /dev/null +++ b/1682/CH4/EX4.4/Exa4_4.sce @@ -0,0 +1,15 @@ +//Exa 4.4
+clc;
+clear;
+close;
+//Alternative 1 :
+disp("In 1st alternative down payment : Rs. 16,00,000");
+//Alternative 2 :
+P0=400000;//in Rs
+P=200000;//in Rs
+i=18;//in % per annum
+n=10;//in years
+//Formula : (P/A,i,n) : (((1+i/100)^n)-1)/((i/100)*(1+i/100)^n)
+PW=P0+P*(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n);//in RS
+disp(PW,"The present worth of alternative 2 in RS. : ");
+disp("The present worth of 2nd alternative is less than that of first one i.e., complete downpayment of Rs. 1600000. Hence, select 2nd alternative.");
\ No newline at end of file diff --git a/1682/CH4/EX4.5/Exa4_5.sce b/1682/CH4/EX4.5/Exa4_5.sce new file mode 100755 index 000000000..101b88da7 --- /dev/null +++ b/1682/CH4/EX4.5/Exa4_5.sce @@ -0,0 +1,23 @@ +//Exa 4.5
+clc;
+clear;
+close;
+//Plan 1 :
+P0=-1000;//in Rs
+P=12000;//in Rs
+i=12;//in % per annum
+n=15;//in years
+//Formula : (P/F,i,n) : 1/((1+i/100)^n)
+PW1=P0+P*1/((1+i/100)^n);//in RS
+disp(PW1,"The present worth of Plan-1 in RS. : ");
+
+//Plan 2 :
+P0=-1000;//in Rs
+P=4000;//in Rs
+i=12;//in % per annum
+n1=10;//in years
+n2=15;//in years
+//Formula : (P/F,i,n) : 1/((1+i/100)^n)
+PW2=P0+P*1/((1+i/100)^n1)++P*1/((1+i/100)^n2);//in RS
+disp(PW2,"The present worth of Plan-2 in RS. : ");
+disp("The present worth of Plan-1 is more than that of Plan-1. Therefore plan 1 is the best plan from the investors point of view.");
\ No newline at end of file diff --git a/1682/CH4/EX4.6/Exa4_6.sce b/1682/CH4/EX4.6/Exa4_6.sce new file mode 100755 index 000000000..4b75ed0ea --- /dev/null +++ b/1682/CH4/EX4.6/Exa4_6.sce @@ -0,0 +1,24 @@ +//Exa 4.6
+clc;
+clear;
+close;
+//Novel Investment Ltd. Plan :
+P0=-10000;//in Rs
+P=800000;//in Rs
+i=12;//in % per annum
+n=20;//in years
+//Formula : (P/F,i,n) : 1/((1+i/100)^n)
+//Formula : (P/A,i,n) : (((1+i/100)^n)-1)/((i/100)*(1+i/100)^n)
+PW1=P0*(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n)+P*1/((1+i/100)^n);//in RS
+disp(PW1,"The present worth of Plan-1 in RS. : ");
+
+//Innovative Investment Ltd. Plan :
+P0=-10000;//in Rs
+P=1500000;//in Rs
+i=12;//in % per annum
+n1=20;//in years
+n2=25;//in years
+//Formula : (P/F,i,n) : 1/((1+i/100)^n)
+PW2=P0*(((1+i/100)^n1)-1)/((i/100)*(1+i/100)^n1)+P*1/((1+i/100)^n2);//in RS
+disp(PW2,"The present worth of Plan-1 in RS. : ");
+disp("The present worth of Innovative Investment Ltd. Plan is more than that of Novel Investment Ltd. Plan. Therefore Innovative Investment Ltd. Plan is the best plan from the investors point of view.");
\ No newline at end of file diff --git a/1682/CH4/EX4.7/Exa4_7.sce b/1682/CH4/EX4.7/Exa4_7.sce new file mode 100755 index 000000000..0edb0a0f4 --- /dev/null +++ b/1682/CH4/EX4.7/Exa4_7.sce @@ -0,0 +1,14 @@ +//Exa 4.7
+clc;
+clear;
+close;
+//Given data :
+P=12000;//in Rs
+A1=10000;//in Rs
+G=1000;//in Rs
+i=18;//in % per annum
+n=10;//in years
+//Formula : (P/A,i,n)=(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n)
+//Formula : (A/G,i,n) :(((1+i/100)^n)-i*n/100-1)/(((i/100)*(1+i/100)^n)-i/100)
+PW=-P+(A1+G*(((1+i/100)^n)-i*n/100-1)/(((i/100)*(1+i/100)^n)-i/100))*(((1+i/100)^n)-1)/((i/100)*(1+i/100)^n);//in RS
+disp(PW,"The present worth of the small business in RS. : ");
\ No newline at end of file |