//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 :");