diff options
Diffstat (limited to '1553')
400 files changed, 4301 insertions, 0 deletions
diff --git a/1553/CH1/EX1.1/1Ex1.sce b/1553/CH1/EX1.1/1Ex1.sce new file mode 100644 index 000000000..19fcbabaf --- /dev/null +++ b/1553/CH1/EX1.1/1Ex1.sce @@ -0,0 +1,7 @@ +//chapter 1 Ex 1
+clc;
+clear;
+close;
+//let value to be found is x
+x=9587-7429+4358;
+mprintf("x=%.0f",x);
diff --git a/1553/CH1/EX1.10/1Ex10.sce b/1553/CH1/EX1.10/1Ex10.sce new file mode 100644 index 000000000..a7bdb78e4 --- /dev/null +++ b/1553/CH1/EX1.10/1Ex10.sce @@ -0,0 +1,7 @@ +//chapter 1 Ex 10
+clc;
+clear;
+close;
+//let value to be found is x
+x=387*387+113*113+2*387*113;
+mprintf("x=%.0f",x);
diff --git a/1553/CH1/EX1.11/1Ex11.sce b/1553/CH1/EX1.11/1Ex11.sce new file mode 100644 index 000000000..48c5644bb --- /dev/null +++ b/1553/CH1/EX1.11/1Ex11.sce @@ -0,0 +1,7 @@ +//chapter 1 Ex 11
+clc;
+clear;
+close;
+//let value to be found is x
+x=87*87+61*61-2*87*61;
+mprintf("x=%.0f",x);
diff --git a/1553/CH1/EX1.16/1Ex16.sce b/1553/CH1/EX1.16/1Ex16.sce new file mode 100644 index 000000000..032ddb1b4 --- /dev/null +++ b/1553/CH1/EX1.16/1Ex16.sce @@ -0,0 +1,9 @@ +//chapter 1 Ex 16
+
+clc;
+clear;
+close;
+dividend=1672;
+divisor=17;
+leastN=modulo(dividend,divisor); //remainder
+printf("The least number to be subtracted is %d",leastN);
diff --git a/1553/CH1/EX1.17/1Ex17.sce b/1553/CH1/EX1.17/1Ex17.sce new file mode 100644 index 000000000..29911283b --- /dev/null +++ b/1553/CH1/EX1.17/1Ex17.sce @@ -0,0 +1,9 @@ +//chapter 1 Ex 17
+
+clc;
+clear;
+close;
+dividend=2010;
+divisor=19;
+mod=modulo(dividend,divisor); //remainder
+printf("The least number to be added is %d",(divisor-mod));
diff --git a/1553/CH1/EX1.19/1Ex19.sce b/1553/CH1/EX1.19/1Ex19.sce new file mode 100644 index 000000000..83207ba77 --- /dev/null +++ b/1553/CH1/EX1.19/1Ex19.sce @@ -0,0 +1,9 @@ +//chapter 1 Ex 19
+
+clc;
+clear;
+close;
+dividend=12401; quotient=76; remainder=13;
+
+divisor=(dividend-remainder)/quotient;
+printf("The divisor is %d.",divisor);
diff --git a/1553/CH1/EX1.2/1Ex2.sce b/1553/CH1/EX1.2/1Ex2.sce new file mode 100644 index 000000000..c93aa43f6 --- /dev/null +++ b/1553/CH1/EX1.2/1Ex2.sce @@ -0,0 +1,7 @@ +//chapter 1 Ex 2
+clc;
+clear;
+close;
+//let value to be found is x
+x=5793405*9999;
+mprintf("x=%.0f",x);
diff --git a/1553/CH1/EX1.21/1Ex21.sce b/1553/CH1/EX1.21/1Ex21.sce new file mode 100644 index 000000000..d11d29f8c --- /dev/null +++ b/1553/CH1/EX1.21/1Ex21.sce @@ -0,0 +1,9 @@ +//chapter 1 Ex 21
+clc;
+clear;
+close;
+//let value to be found is x
+numerator=789*789*789+211*211*211;
+denominator=789*789-789*211+211*211;
+x=(numerator/denominator);
+mprintf("x=%.0f",x);
diff --git a/1553/CH1/EX1.22/1Ex22.sce b/1553/CH1/EX1.22/1Ex22.sce new file mode 100644 index 000000000..55e6b731a --- /dev/null +++ b/1553/CH1/EX1.22/1Ex22.sce @@ -0,0 +1,9 @@ +//chapter 1 Ex 22
+clc;
+clear;
+close;
+//let value to be found is x
+numerator=658^3-328^3;
+denominator=658^2+658*328+328^2;
+x=(numerator/denominator);
+mprintf("x=%.0f",x);
diff --git a/1553/CH1/EX1.23/1Ex23.sce b/1553/CH1/EX1.23/1Ex23.sce new file mode 100644 index 000000000..a60fb4184 --- /dev/null +++ b/1553/CH1/EX1.23/1Ex23.sce @@ -0,0 +1,9 @@ +//chapter 1 Ex 23
+clc;
+clear;
+close;
+//let value to be found is x
+numerator=(893+786)^2-(893-786)^2;
+denominator=893*796;
+x=(numerator/denominator);
+mprintf("x=%.0f",x);
diff --git a/1553/CH1/EX1.24/1Ex24.sce b/1553/CH1/EX1.24/1Ex24.sce new file mode 100644 index 000000000..563fd301a --- /dev/null +++ b/1553/CH1/EX1.24/1Ex24.sce @@ -0,0 +1,14 @@ +//chapter 1 Ex 24
+
+clc;
+clear;
+close;
+n1=684; n2=759; n3=413; n4=676;
+ //in order to find unit digit in product of above 4 numbers, we find product of unit digits of each of these numbers
+//unit places of each of the 4 numbers
+unit1=modulo(modulo(n1,100),10); //since given number is 3 digit
+unit2=modulo(modulo(n2,100),10);
+unit3=modulo(modulo(n3,100),10);
+unit4=modulo(modulo(n4,100),10);
+unitProduct=unit1*unit2*unit3*unit4;
+printf("The unit digit of product is %d.",modulo(unitProduct,10));
diff --git a/1553/CH1/EX1.28/1Ex28.sce b/1553/CH1/EX1.28/1Ex28.sce new file mode 100644 index 000000000..d3fe0d9a1 --- /dev/null +++ b/1553/CH1/EX1.28/1Ex28.sce @@ -0,0 +1,8 @@ +//chapter 1 Ex 24
+
+clc;
+clear;
+close;
+divisor=5; dividend=2^31;
+remainder=modulo(dividend,divisor);
+mprintf("The remainder is %d",remainder);
diff --git a/1553/CH1/EX1.3/1Ex3.sce b/1553/CH1/EX1.3/1Ex3.sce new file mode 100644 index 000000000..de2c9934d --- /dev/null +++ b/1553/CH1/EX1.3/1Ex3.sce @@ -0,0 +1,7 @@ +//chapter 1 Ex 3
+clc;
+clear;
+close;
+//let value to be found is x
+x=839478*625;
+mprintf("x=%.0f",x);
diff --git a/1553/CH1/EX1.30/1Ex30.sce b/1553/CH1/EX1.30/1Ex30.sce new file mode 100644 index 000000000..a1d596818 --- /dev/null +++ b/1553/CH1/EX1.30/1Ex30.sce @@ -0,0 +1,11 @@ +//chapter 1 Ex 30
+
+clc;
+clear;
+close;
+n1=17; n2=80; count=0;
+for i=n1:n2
+ if modulo(i,6)==0 then count=count+1;
+ end
+end
+mprintf("The count of numbers divisible by 6 is %d",count);
diff --git a/1553/CH1/EX1.31/1Ex31.sce b/1553/CH1/EX1.31/1Ex31.sce new file mode 100644 index 000000000..1e9b31f55 --- /dev/null +++ b/1553/CH1/EX1.31/1Ex31.sce @@ -0,0 +1,11 @@ +//chapter 1 Ex 31
+
+clc;
+clear;
+close;
+//This problem can be solved using Arithmetic Progression formula
+a=2; d=2; //since even numbers, the difference is 2
+l=74; //given less than 75
+n=l/2;//number of elements in series, divided by 2 since even numbers
+Sum=n/2*(a+l);
+printf("The sum of even numbers less than 75 is %d",Sum);
diff --git a/1553/CH1/EX1.32/1Ex32.sce b/1553/CH1/EX1.32/1Ex32.sce new file mode 100644 index 000000000..2d8b0d4bf --- /dev/null +++ b/1553/CH1/EX1.32/1Ex32.sce @@ -0,0 +1,13 @@ +//chapter 1 Ex 32
+
+clc;
+clear;
+close;
+//given series is in AP in which first element a1=6, second element a2=15, last element an=105
+a1=6; a2=15; d=a2-a1; an=105;
+
+//formula for last element is a1+(n-1)*d=an; where n is number of elements in series
+n=(an-a1)/d+1;
+
+Sum=n/2*(a1+an);
+printf("The required sum is %d",Sum);
diff --git a/1553/CH1/EX1.33/1Ex33.sce b/1553/CH1/EX1.33/1Ex33.sce new file mode 100644 index 000000000..45318111f --- /dev/null +++ b/1553/CH1/EX1.33/1Ex33.sce @@ -0,0 +1,11 @@ +//chapter 1 Ex 33
+
+clc;
+clear;
+close;
+//The given series is in geometric progression
+a1=2; a2=2^2; n=10;
+r=a2/a1;
+
+Sum=a1*(r^n-1)/(r-1); //formula for GP
+printf("The required sum is %d",Sum);
diff --git a/1553/CH1/EX1.4/1Ex4.sce b/1553/CH1/EX1.4/1Ex4.sce new file mode 100644 index 000000000..39ef7e632 --- /dev/null +++ b/1553/CH1/EX1.4/1Ex4.sce @@ -0,0 +1,7 @@ +//chapter 1 Ex 4
+clc;
+clear;
+close;
+//let value to be found is x
+x=976*237+976*763;
+mprintf("x=%.0f",x);
diff --git a/1553/CH1/EX1.5/1Ex5.sce b/1553/CH1/EX1.5/1Ex5.sce new file mode 100644 index 000000000..53e6e6151 --- /dev/null +++ b/1553/CH1/EX1.5/1Ex5.sce @@ -0,0 +1,7 @@ +//chapter 1 Ex 5
+clc;
+clear;
+close;
+//let value to be found is x
+x=986*307-986*207;
+mprintf("x=%.0f",x);
diff --git a/1553/CH1/EX1.6/1Ex6.sce b/1553/CH1/EX1.6/1Ex6.sce new file mode 100644 index 000000000..289f48d67 --- /dev/null +++ b/1553/CH1/EX1.6/1Ex6.sce @@ -0,0 +1,7 @@ +//chapter 1 Ex 6
+clc;
+clear;
+close;
+//let value to be found is x
+x=1607*1607;
+mprintf("x=%.0f",x);
diff --git a/1553/CH1/EX1.7/1Ex7.sce b/1553/CH1/EX1.7/1Ex7.sce new file mode 100644 index 000000000..85c0b09d9 --- /dev/null +++ b/1553/CH1/EX1.7/1Ex7.sce @@ -0,0 +1,7 @@ +//chapter 1 Ex 7
+clc;
+clear;
+close;
+//let value to be found is x
+x=1396*1396;
+mprintf("x=%.0f",x);
diff --git a/1553/CH1/EX1.8/1Ex8.sce b/1553/CH1/EX1.8/1Ex8.sce new file mode 100644 index 000000000..63a239fbb --- /dev/null +++ b/1553/CH1/EX1.8/1Ex8.sce @@ -0,0 +1,7 @@ +//chapter 1 Ex 8
+clc;
+clear;
+close;
+//let value to be found is x
+x=475*475+125*125;
+mprintf("x=%.0f",x);
diff --git a/1553/CH1/EX1.9/1Ex9.sce b/1553/CH1/EX1.9/1Ex9.sce new file mode 100644 index 000000000..40a9ff155 --- /dev/null +++ b/1553/CH1/EX1.9/1Ex9.sce @@ -0,0 +1,7 @@ +//chapter 1 Ex 9
+clc;
+clear;
+close;
+//let value to be found is x
+x=796*796-204*204;
+mprintf("x=%.0f",x);
diff --git a/1553/CH10/EX10.1/10Ex1.sce b/1553/CH10/EX10.1/10Ex1.sce new file mode 100644 index 000000000..15b9342bc --- /dev/null +++ b/1553/CH10/EX10.1/10Ex1.sce @@ -0,0 +1,10 @@ +//chapter 10 Ex 1
+
+clc;
+clear;
+close;
+
+mprintf("(i)56 percent=%.2f",(56/100));
+mprintf("\n(ii)4 percent=%.3f",(4/100));
+mprintf("\n(iii)0.6 percent=%.3f",(.6/100));
+mprintf("\n(iv)0.08 percent=%.4f",(.08/100));
diff --git a/1553/CH10/EX10.10/10Ex10.sce b/1553/CH10/EX10.10/10Ex10.sce new file mode 100644 index 000000000..642a90760 --- /dev/null +++ b/1553/CH10/EX10.10/10Ex10.sce @@ -0,0 +1,9 @@ +//chapter 10 Ex 10
+
+clc;
+clear;
+close;
+Diff=21;
+per=65/100
+num=Diff/(4/5-per);
+printf("The number is %1.0f.",num);
diff --git a/1553/CH10/EX10.11/10Ex11.sce b/1553/CH10/EX10.11/10Ex11.sce new file mode 100644 index 000000000..f56bff902 --- /dev/null +++ b/1553/CH10/EX10.11/10Ex11.sce @@ -0,0 +1,21 @@ +//chapter 10 Ex 11
+
+clc;
+clear;
+close;
+Diff=1660;
+
+y=poly(0,'y');
+x=Diff+y; //equation 1,given difference
+x=(125/75)*y; //equation 2
+for y=1:5000
+ if Diff+y ==(125/75)*y
+ mprintf("y=%i \n ",y);
+ break
+ end
+end
+disp("substitute value of y in any one of the above equations to find x");
+x=(125/75)*y;
+
+ans=[x y];
+printf("\n Thus the two numbers are %d and %d",ans(1),ans(2));
diff --git a/1553/CH10/EX10.12/10Ex12.sce b/1553/CH10/EX10.12/10Ex12.sce new file mode 100644 index 000000000..42475f00c --- /dev/null +++ b/1553/CH10/EX10.12/10Ex12.sce @@ -0,0 +1,10 @@ +//chapter 10 Ex 12
+
+clc;
+clear;
+close;
+num=81.472;
+nearNum=81.5; //nearest floating number
+Error=nearNum-num;
+percent=(Error/num)*100;
+printf("The percentage error is %0.3f percent",percent);
diff --git a/1553/CH10/EX10.13/10Ex13.sce b/1553/CH10/EX10.13/10Ex13.sce new file mode 100644 index 000000000..84a9569ef --- /dev/null +++ b/1553/CH10/EX10.13/10Ex13.sce @@ -0,0 +1,11 @@ +//chapter 10 Ex 13
+
+clc;
+clear;
+close;
+voters=75/100;
+invalid=2/100;
+candidate=75/100;
+votes=9261;
+totalVotes=votes/(voters*(1-invalid)*candidate);
+mprintf("The number of votes enrolled were %d",totalVotes);
diff --git a/1553/CH10/EX10.14/10Ex14.sce b/1553/CH10/EX10.14/10Ex14.sce new file mode 100644 index 000000000..6b8d8f92d --- /dev/null +++ b/1553/CH10/EX10.14/10Ex14.sce @@ -0,0 +1,12 @@ +//chapter 10 Ex 14
+
+clc;
+clear;
+close;
+probTotal=75;
+arith=10; algebra=30; geo=35;
+per_arith=70/100; per_algebra=40/100; per_geo=60/100;
+correct=(per_arith*arith+per_algebra*algebra+per_geo*geo);
+correctPass=(60/100)*probTotal;
+required=correctPass-correct;
+mprintf("The number of questions required were %d",required);
diff --git a/1553/CH10/EX10.16/10Ex16.sce b/1553/CH10/EX10.16/10Ex16.sce new file mode 100644 index 000000000..9b6a988d0 --- /dev/null +++ b/1553/CH10/EX10.16/10Ex16.sce @@ -0,0 +1,12 @@ +//chapter 10 Ex 16
+
+clc;
+clear;
+close;
+JtoW=40/100; JtoS=20/100; amtRemain=12000; amtRemainPercent=1-JtoW;
+//let initial amount be x
+amtJtoS=3*JtoS*amtRemainPercent;
+bal=amtRemainPercent-amtJtoS;
+amtBank=(1/2)*bal;
+initialAmt=amtRemain/amtBank;
+mprintf("Mr. Jones initially had Rs.%d with him",initialAmt);
diff --git a/1553/CH10/EX10.17/10Ex17.sce b/1553/CH10/EX10.17/10Ex17.sce new file mode 100644 index 000000000..3b0974ebe --- /dev/null +++ b/1553/CH10/EX10.17/10Ex17.sce @@ -0,0 +1,8 @@ +//chapter 10 Ex 17
+
+clc;
+clear;
+close;
+died=10/100; left=25/100; popRemain=4050;
+popOriginal= popRemain/((1-died)*(1-left));
+mprintf("Original population was %d",popOriginal);
diff --git a/1553/CH10/EX10.18/10Ex18.sce b/1553/CH10/EX10.18/10Ex18.sce new file mode 100644 index 000000000..2692bfe7b --- /dev/null +++ b/1553/CH10/EX10.18/10Ex18.sce @@ -0,0 +1,9 @@ +//chapter 10 Ex 18
+
+clc;
+clear;
+close;
+com=5/100; amtupto5=10000; morethan5=4/100; remits=31100;
+amtCom=com*amtupto5;
+total=(remits+amtCom-(amtupto5*morethan5))/(1-morethan5);
+mprintf("The total sales are Rs.%d",total);
diff --git a/1553/CH10/EX10.19/10Ex19.sce b/1553/CH10/EX10.19/10Ex19.sce new file mode 100644 index 000000000..305f7d697 --- /dev/null +++ b/1553/CH10/EX10.19/10Ex19.sce @@ -0,0 +1,17 @@ +//chapter 10 Ex 19
+
+clc;
+clear;
+close;
+dec=50/100; inc=50/100;
+//let original be Rs.100
+original=100;
+final=(dec*original)*(1+inc);
+if(original>final)
+
+changePercent=original-final;
+mprintf("The salary of raman is decreased by %d percent",changePercent);
+else
+ changePercent=final-original;
+ mprintf("The salary of raman is increased by %d percent",changePercent);
+end
diff --git a/1553/CH10/EX10.2/10Ex2.sce b/1553/CH10/EX10.2/10Ex2.sce new file mode 100644 index 000000000..a906e8b8f --- /dev/null +++ b/1553/CH10/EX10.2/10Ex2.sce @@ -0,0 +1,6 @@ +//chapter 10 Ex 2
+clc;
+clear;
+close;
+n1=6; n2=28; n3=0.2; n4=.04;
+mprintf("(i)6 percent=%.2f\n (ii)28 percent=%.2f\n (iii)0.2 percent=%.3f\n (iv)0.04 percent=%.4f",n1/100,n2/100,n3/100,n4/100);
diff --git a/1553/CH10/EX10.20/10Ex20.sce b/1553/CH10/EX10.20/10Ex20.sce new file mode 100644 index 000000000..f576d290c --- /dev/null +++ b/1553/CH10/EX10.20/10Ex20.sce @@ -0,0 +1,15 @@ +//chapter 10 Ex 20
+
+clc;
+clear;
+close;
+spends=75/100; inc=20/100; expPercent=10/100;
+original=100;
+expAmt=original*spends;
+saving=original-expAmt;
+newIncome=original*(1+inc);
+newExp=(1+expPercent)*expAmt;
+newSaving=newIncome-newExp;
+incSaving=newSaving-saving;
+incPercent=(incSaving/(1-spends));
+mprintf("The increase in percentage is %d percent",incPercent);
diff --git a/1553/CH10/EX10.21/10Ex21.sce b/1553/CH10/EX10.21/10Ex21.sce new file mode 100644 index 000000000..edbf2552e --- /dev/null +++ b/1553/CH10/EX10.21/10Ex21.sce @@ -0,0 +1,10 @@ +//chapter 10 Ex 21
+
+clc;
+clear;
+close;
+red=10/100;
+original=100;
+newSal=original*(1-red);
+increase=((original-newSal)/newSal)*100;
+mprintf("The percentage reduction is %.2f percent",increase);
diff --git a/1553/CH10/EX10.22/10Ex22.sce b/1553/CH10/EX10.22/10Ex22.sce new file mode 100644 index 000000000..c2f4acb52 --- /dev/null +++ b/1553/CH10/EX10.22/10Ex22.sce @@ -0,0 +1,11 @@ +//chapter 10 Ex 22
+
+clc;
+clear;
+close;
+dec=10/100; numInc=30/100;
+original=100; num=100;
+totalsale=original*num;
+newtotal=original*(1-dec)*(1+numInc)*100;
+incRevenue=((newtotal-totalsale)/totalsale)*100;
+mprintf("The increase in revenue is %d percent",incRevenue);
diff --git a/1553/CH10/EX10.23/10Ex23.sce b/1553/CH10/EX10.23/10Ex23.sce new file mode 100644 index 000000000..0bd1df494 --- /dev/null +++ b/1553/CH10/EX10.23/10Ex23.sce @@ -0,0 +1,9 @@ +//chapter 10 Ex 23
+
+clc;
+clear;
+close;
+numInc=15/100; denDec=8/100;
+frac=15/16;
+original= frac/((1+numInc)/(1-denDec));
+mprintf("The original fraction is: %.2f",original);
diff --git a/1553/CH10/EX10.24/10Ex24.sce b/1553/CH10/EX10.24/10Ex24.sce new file mode 100644 index 000000000..aa827c6b2 --- /dev/null +++ b/1553/CH10/EX10.24/10Ex24.sce @@ -0,0 +1,8 @@ +//chapter 10 Ex 24
+
+clc;
+clear;
+close;
+inc=25/100;
+red=(inc/(1+inc))*100;
+mprintf("The reduction in consumption should be %d percent",red);
diff --git a/1553/CH10/EX10.25/10Ex25.sce b/1553/CH10/EX10.25/10Ex25.sce new file mode 100644 index 000000000..7aaa30037 --- /dev/null +++ b/1553/CH10/EX10.25/10Ex25.sce @@ -0,0 +1,9 @@ +//chapter 10 Ex 25
+
+clc;
+clear;
+close;
+pop=176400; rate=5/100; years=2;
+popafter=pop*(1+rate)^years;
+popbefore=pop/((1+rate)^years);
+mprintf("The population 2 years after is %d \n and 2 years before was %d",popafter,popbefore);
diff --git a/1553/CH10/EX10.26/10Ex26.sce b/1553/CH10/EX10.26/10Ex26.sce new file mode 100644 index 000000000..46ddb1be0 --- /dev/null +++ b/1553/CH10/EX10.26/10Ex26.sce @@ -0,0 +1,10 @@ +//chapter 10 Ex 26
+
+clc;
+clear;
+close;
+decRate=10/100;
+presentValue=162000; years=2;
+valueAfter=presentValue*(1-decRate)^years;
+valueBefore=presentValue/(1-decRate)^years;
+mprintf("The value after 2 years will be Rs.%d \n and before 2 years was Rs.%d",valueAfter,valueBefore);
diff --git a/1553/CH10/EX10.27/10Ex27.sce b/1553/CH10/EX10.27/10Ex27.sce new file mode 100644 index 000000000..671f19210 --- /dev/null +++ b/1553/CH10/EX10.27/10Ex27.sce @@ -0,0 +1,8 @@ +//chapter 10 Ex 27
+
+clc;
+clear;
+close;
+inc=5/100; dec=5/100; popAfter=9975;
+popBefore=popAfter/((1+inc)*(1-dec));
+mprintf("The population at the beginning of first year was %d",popBefore);
diff --git a/1553/CH10/EX10.28/10Ex28.sce b/1553/CH10/EX10.28/10Ex28.sce new file mode 100644 index 000000000..995cd1bf6 --- /dev/null +++ b/1553/CH10/EX10.28/10Ex28.sce @@ -0,0 +1,8 @@ +//chapter 10 Ex 28
+
+clc;
+clear;
+close;
+AmoreB=100/(3*100);
+BlessA=(AmoreB/(1+AmoreB))*100;
+mprintf("B earns %d percent less than A",BlessA);
diff --git a/1553/CH10/EX10.29/10Ex29.sce b/1553/CH10/EX10.29/10Ex29.sce new file mode 100644 index 000000000..5d7b88564 --- /dev/null +++ b/1553/CH10/EX10.29/10Ex29.sce @@ -0,0 +1,8 @@ +//chapter 10 Ex 29
+
+clc;
+clear;
+close;
+AlessB=20/100;
+BmoreA=(AlessB/(1-AlessB))*100;
+mprintf("B earns %d percent more than A",BmoreA);
diff --git a/1553/CH10/EX10.3/10Ex3.sce b/1553/CH10/EX10.3/10Ex3.sce new file mode 100644 index 000000000..131c34279 --- /dev/null +++ b/1553/CH10/EX10.3/10Ex3.sce @@ -0,0 +1,6 @@ +//chapter 10 Ex 3
+clc;
+clear;
+close;
+n1=23/36; n2=27/4; n3=.004;
+mprintf("(i)23/36=%.2f percent\n (ii)27/4 =%.0f percent\n (iii)0.004 =%.1f percent",n1*100,n2*100,n3*100);
diff --git a/1553/CH10/EX10.30/10Ex30.sce b/1553/CH10/EX10.30/10Ex30.sce new file mode 100644 index 000000000..9ebe085c8 --- /dev/null +++ b/1553/CH10/EX10.30/10Ex30.sce @@ -0,0 +1,11 @@ +//chapter 10 Ex 30
+
+clc;
+clear;
+close;
+solAmt=30; solPercent=2/100; incPercent=10/100;
+saltAmt=solAmt*solPercent;
+//let x kg of pure salt be added, thus equation will be (0.6+x)/(30+x)=10/100
+pureAmt=240/90;
+mprintf("The amount of pure salt that must be added is %.2f kg.",pureAmt);
+
diff --git a/1553/CH10/EX10.31/10Ex31.sce b/1553/CH10/EX10.31/10Ex31.sce new file mode 100644 index 000000000..49037924d --- /dev/null +++ b/1553/CH10/EX10.31/10Ex31.sce @@ -0,0 +1,10 @@ +//chapter 10 Ex 31
+
+clc;
+clear;
+close;
+redPercent=(25/4)/100; more=120;
+redRate=1-redPercent; //this term has to be multiplied by original rate that is found below
+originalRate=(more*(1/redRate-1));
+reducedRate=originalRate*redRate;
+mprintf("The reduced rate is Rs. %.2f per kg",reducedRate);
diff --git a/1553/CH10/EX10.32/10Ex32.sce b/1553/CH10/EX10.32/10Ex32.sce new file mode 100644 index 000000000..04cc2429a --- /dev/null +++ b/1553/CH10/EX10.32/10Ex32.sce @@ -0,0 +1,9 @@ +//chapter 10 Ex 32
+
+clc;
+clear;
+close;
+hinFail=35; engFail=45; bothFail=20;
+hinengbothFail=hinFail+engFail-bothFail;
+passboth=100-hinengbothFail;
+mprintf("The percentage passed in both is %d percent",passboth);
diff --git a/1553/CH10/EX10.33/10Ex33.sce b/1553/CH10/EX10.33/10Ex33.sce new file mode 100644 index 000000000..8ee4b27c0 --- /dev/null +++ b/1553/CH10/EX10.33/10Ex33.sce @@ -0,0 +1,8 @@ +//chapter 10 Ex 33
+
+clc;
+clear;
+close;
+engPass=80/100; mathPass=85/100; bothPass=75/100; bothFail=40;
+total=bothFail/(1-(engPass+mathPass-bothPass));
+mprintf("Total number of students are %.0f",total);
diff --git a/1553/CH10/EX10.4/10Ex4.sce b/1553/CH10/EX10.4/10Ex4.sce new file mode 100644 index 000000000..e16645b69 --- /dev/null +++ b/1553/CH10/EX10.4/10Ex4.sce @@ -0,0 +1,7 @@ +//chapter 10 Ex 4
+clc;
+clear;
+close;
+n1=(28/100)*450+(45/100)*280;
+n2=(50/3/100)*600-(100/3/100)*180;
+mprintf("(i)28 percent of 450+45 percent of 280=%.0f\n (ii)50/3 percent of 600 gm-100/3 percent of 180 gm =%.0f gm",n1,n2);
diff --git a/1553/CH10/EX10.5/10Ex5.sce b/1553/CH10/EX10.5/10Ex5.sce new file mode 100644 index 000000000..b94263055 --- /dev/null +++ b/1553/CH10/EX10.5/10Ex5.sce @@ -0,0 +1,10 @@ +//chapter 10 Ex 5
+clc;
+clear;
+close;
+n1=2/50*100;
+n2=((1/2)/(1/3))*100;
+n3=(84/7)*100;
+n4=(40/20)*100;
+n5=(130/(6.5*1000))*100;
+mprintf("(i)2 is %.0f percent of 50\n (ii)1/2 is %.0f percent of 1/3\n (iii)%.0f percent of 7 is 84\n (iv)%.0f percent of 2 metric tonnes is 40 quintals\n (v) %.0f percent of 6.5 litres is 130 ml",n1,n2,n3,n4,n5);
diff --git a/1553/CH10/EX10.6/10Ex6.sce b/1553/CH10/EX10.6/10Ex6.sce new file mode 100644 index 000000000..4d2c00b69 --- /dev/null +++ b/1553/CH10/EX10.6/10Ex6.sce @@ -0,0 +1,6 @@ +//chapter 10 Ex 3
+clc;
+clear;
+close;
+n1=2.125/25; n2=6.3/9; n3=.04/.25;
+mprintf("(i)%.1f percent of 25=2.125\n (ii)9 percent of %.0f =63\n (iii)0.25 percent of %.0f = .04",n1*100,n2*100,n3*100);
diff --git a/1553/CH10/EX10.7/10Ex7.sce b/1553/CH10/EX10.7/10Ex7.sce new file mode 100644 index 000000000..85e68dba7 --- /dev/null +++ b/1553/CH10/EX10.7/10Ex7.sce @@ -0,0 +1,15 @@ +//chapter 10 Ex 1
+
+clc;
+clear;
+close;
+a=(50/3)/100; b=2/15; c=0.17; greatest=a;
+if a>b then if a>c then greatest=a;
+end
+
+else if b>c then greatest=b;
+end
+else greatest=c;
+end
+
+mprintf("The greatest number is %.2f",greatest);
diff --git a/1553/CH10/EX10.8/10Ex8.sce b/1553/CH10/EX10.8/10Ex8.sce new file mode 100644 index 000000000..ba47dc77e --- /dev/null +++ b/1553/CH10/EX10.8/10Ex8.sce @@ -0,0 +1,9 @@ +//chapter 10 Ex 8
+
+clc;
+clear;
+close;
+per1=(7/2)/100;
+per2=(10/3)/100;
+difference=(per1*8400)-(per2*8400);
+mprintf("the difference amount is Rs.%d",difference);
diff --git a/1553/CH10/EX10.9/10Ex9.sce b/1553/CH10/EX10.9/10Ex9.sce new file mode 100644 index 000000000..550e81433 --- /dev/null +++ b/1553/CH10/EX10.9/10Ex9.sce @@ -0,0 +1,8 @@ +//chapter 10 Ex 9
+
+clc;
+clear;
+close;
+per=0.08; reject=2;
+meter= reject/(0.08/100);
+mprintf("The inspector will examine %d meter",meter);
diff --git a/1553/CH11/EX11.1/11Ex1.sce b/1553/CH11/EX11.1/11Ex1.sce new file mode 100644 index 000000000..7a1bb1097 --- /dev/null +++ b/1553/CH11/EX11.1/11Ex1.sce @@ -0,0 +1,10 @@ +//Ex 1
+
+clc;
+clear;
+close;
+cp=27.50;
+sp=28.60;
+gain=sp-cp;
+gainPercent=(gain/cp)*100;
+printf("The gain is %d percent",gainPercent);
diff --git a/1553/CH11/EX11.10/11Ex10.sce b/1553/CH11/EX11.10/11Ex10.sce new file mode 100644 index 000000000..29047e6d9 --- /dev/null +++ b/1553/CH11/EX11.10/11Ex10.sce @@ -0,0 +1,12 @@ +//Ex 10
+
+clc;
+clear;
+close;
+n1=6;c=10;
+n2=4;s=6;
+n=double(lcm(int32([4,6]))); //Number of bananas
+cp=(c/n1)*n;
+sp=(s/n2)*n;
+lossPercent=(cp-sp)/cp*100;
+printf("The loss is %d percent",lossPercent);
diff --git a/1553/CH11/EX11.11/11Ex11.sce b/1553/CH11/EX11.11/11Ex11.sce new file mode 100644 index 000000000..1d95fad03 --- /dev/null +++ b/1553/CH11/EX11.11/11Ex11.sce @@ -0,0 +1,10 @@ +//Ex 11
+
+clc;
+clear;
+close;
+cp_3=1;
+sp_3=(150/100)*cp_3;
+t_sold=3;
+n=t_sold/sp_3; //Number of toffees sold
+printf("The number of toffees sold are %d",n);
diff --git a/1553/CH11/EX11.12/11Ex12.sce b/1553/CH11/EX11.12/11Ex12.sce new file mode 100644 index 000000000..8ead84c61 --- /dev/null +++ b/1553/CH11/EX11.12/11Ex12.sce @@ -0,0 +1,12 @@ +//Ex 12
+
+clc;
+clear;
+close;
+n1=80;c1=13.50;
+n2=120;c2=16;
+profitPercent=16;
+cp_200=n1*c1+n2*c2;
+sp=(100+profitPercent)/100*cp_200;
+rate=sp/(n1+n2);
+printf("The rate of SP of mixture is %3.2f per kg",rate);
diff --git a/1553/CH11/EX11.14/11Ex14.sce b/1553/CH11/EX11.14/11Ex14.sce new file mode 100644 index 000000000..098aeb927 --- /dev/null +++ b/1553/CH11/EX11.14/11Ex14.sce @@ -0,0 +1,9 @@ +//Ex 12
+
+clc;
+clear;
+close;
+Error=40;
+true_value=1000;
+gainPercent=(Error/(true_value-Error))*100;
+printf("The gain is %3.2f percent",gainPercent);
diff --git a/1553/CH11/EX11.15/11Ex15.sce b/1553/CH11/EX11.15/11Ex15.sce new file mode 100644 index 000000000..8931fbed6 --- /dev/null +++ b/1553/CH11/EX11.15/11Ex15.sce @@ -0,0 +1,9 @@ +//Ex 15
+
+clc;
+clear;
+close;
+r=125;w=115;m=110;
+retail_price=1265;
+cost=retail_price/(r/100*m/100*w/100);
+printf("The production cost of table is Rs. %d",cost);
diff --git a/1553/CH11/EX11.16/11Ex16.sce b/1553/CH11/EX11.16/11Ex16.sce new file mode 100644 index 000000000..1c3ea2493 --- /dev/null +++ b/1553/CH11/EX11.16/11Ex16.sce @@ -0,0 +1,15 @@ +//Chapter 9 Ex 16
+
+clc;
+close;
+clear;
+x=poly(0,'x');
+inc=(8/100);
+SP1=x;
+CP=(9/10)*SP1;
+SP2=(1+inc)*SP1;
+gain=SP2-CP;
+gainper=(gain/CP)*100;
+mprintf("The gain percentage of Monika is");
+disp(gainper)
+mprintf("percent");
diff --git a/1553/CH11/EX11.17/11Ex17.sce b/1553/CH11/EX11.17/11Ex17.sce new file mode 100644 index 000000000..b6d985861 --- /dev/null +++ b/1553/CH11/EX11.17/11Ex17.sce @@ -0,0 +1,15 @@ +//Chapter 9 Ex 17
+
+clc;
+close;
+clear;
+x=poly(0,'x');
+loss=10;
+SP1=x;
+SP2=(2/3)*SP1; //given
+CP=(100/(100-loss))*SP2;
+gain=SP1-CP;
+gainper=(gain/CP)*100;
+mprintf("The gain percentage is");
+disp(gainper)
+mprintf("percent");
diff --git a/1553/CH11/EX11.18/11Ex18.sce b/1553/CH11/EX11.18/11Ex18.sce new file mode 100644 index 000000000..603162d48 --- /dev/null +++ b/1553/CH11/EX11.18/11Ex18.sce @@ -0,0 +1,10 @@ +//Ex 18
+
+clc;
+clear;
+close;
+lossPercent=20;
+gainPercent=5;
+spIncreased=100;
+cpnew=spIncreased/((100+gainPercent)-(100-lossPercent))*100;
+printf("The new cost price of article is Rs. %d",cpnew);
diff --git a/1553/CH11/EX11.19/11Ex19.sce b/1553/CH11/EX11.19/11Ex19.sce new file mode 100644 index 000000000..5e68ee0bf --- /dev/null +++ b/1553/CH11/EX11.19/11Ex19.sce @@ -0,0 +1,12 @@ +//Ex 19
+
+clc;
+clear;
+close;
+difference=10.5;
+profitPercent1=25;
+profitPercent2=30;
+lossPercent=20;
+
+cp=difference/((100+profitPercent1)*100-((100+profitPercent2)*(100-lossPercent)))*100*100;
+printf("The cost price of article is Rs. %d",cp);
diff --git a/1553/CH11/EX11.2/11Ex2.sce b/1553/CH11/EX11.2/11Ex2.sce new file mode 100644 index 000000000..5aa2e6ab1 --- /dev/null +++ b/1553/CH11/EX11.2/11Ex2.sce @@ -0,0 +1,10 @@ +//Ex 2
+
+clc;
+clear;
+close;
+cp=490;
+sp=465.50;
+loss=cp-sp;
+lossPercent=(loss/cp)*100;
+printf("The loss is %d percent",lossPercent);
diff --git a/1553/CH11/EX11.20/11Ex20.sce b/1553/CH11/EX11.20/11Ex20.sce new file mode 100644 index 000000000..77171527c --- /dev/null +++ b/1553/CH11/EX11.20/11Ex20.sce @@ -0,0 +1,12 @@ +//Ex 20
+
+clc;
+clear;
+close;
+profitPercent1=25;
+profitPercent2=20;
+totalProfitPercent=65;
+
+profit3=((100+totalProfitPercent)/100)/((100+profitPercent1)/100*(100+profitPercent2)/100);
+profitPercent3=(profit3*100-100);
+mprintf("The percentage profit earned by 3rd seller is %3.2f percent",profitPercent3);
diff --git a/1553/CH11/EX11.21/11Ex21.sce b/1553/CH11/EX11.21/11Ex21.sce new file mode 100644 index 000000000..7c1b47236 --- /dev/null +++ b/1553/CH11/EX11.21/11Ex21.sce @@ -0,0 +1,8 @@ +//Ex 21
+
+clc;
+clear;
+close;
+commonLossGain=16;
+lossPercent=(commonLossGain/10)^2;
+printf("The loss is %3.2f percent",lossPercent);
diff --git a/1553/CH11/EX11.22/11Ex22.sce b/1553/CH11/EX11.22/11Ex22.sce new file mode 100644 index 000000000..a5954427f --- /dev/null +++ b/1553/CH11/EX11.22/11Ex22.sce @@ -0,0 +1,16 @@ +//Chapter 9 Ex 22
+
+clc;
+close;
+clear;
+x=poly(0,'x');
+gain=(20/100);
+CP=x;
+CP1=(3/4)*CP;
+CP2=(1/4)*CP; //given
+SP=((1+gain)*CP1)+CP2;
+gain=SP-CP;
+gainper=(gain/CP)*100;
+mprintf("The gain percentage is");
+disp(gainper)
+mprintf("percent");
diff --git a/1553/CH11/EX11.23/11Ex23.sce b/1553/CH11/EX11.23/11Ex23.sce new file mode 100644 index 000000000..e5ff09a9b --- /dev/null +++ b/1553/CH11/EX11.23/11Ex23.sce @@ -0,0 +1,16 @@ +//Chapter 9 Ex 23
+
+clc;
+close;
+clear;
+x=poly(0,'x');
+tot=3000;
+CP=x;
+CPcarr=(tot-x);
+gainh=20/100; lossc=10/100; gaintot=2/100; //given
+for x=1:2000
+ if ((x/5)-((3000-x)/10))==60
+ break;
+ end
+end
+mprintf("The cost price of the horse is Rs.%d",x);
diff --git a/1553/CH11/EX11.24/11Ex24.sce b/1553/CH11/EX11.24/11Ex24.sce new file mode 100644 index 000000000..0e5c399cd --- /dev/null +++ b/1553/CH11/EX11.24/11Ex24.sce @@ -0,0 +1,10 @@ +//Ex 24
+
+clc;
+clear;
+close;
+MP=100;
+d1=20;d2=10;d3=5;
+NetSp=((100-d1)/100)*((100-d2)/100)*((100-d3)/100)*MP;
+NetDiscount=100-NetSp;
+printf("The required discount is %3.2f percent",NetDiscount);
diff --git a/1553/CH11/EX11.25/11Ex25.sce b/1553/CH11/EX11.25/11Ex25.sce new file mode 100644 index 000000000..a2c4dcd4c --- /dev/null +++ b/1553/CH11/EX11.25/11Ex25.sce @@ -0,0 +1,15 @@ +//Chapter 9 Ex 25
+
+clc;
+close;
+clear;
+x=poly(0,'x');
+dis2=12.5/100;
+dis1=x;
+LP=150; SP=105;
+for x=1:50
+ if (((1-dis2)*(100-x)*LP)/100)==SP
+ break;
+ end
+end
+mprintf("First Discount=%d percent",x);
diff --git a/1553/CH11/EX11.26/11Ex26.sce b/1553/CH11/EX11.26/11Ex26.sce new file mode 100644 index 000000000..a74567ac4 --- /dev/null +++ b/1553/CH11/EX11.26/11Ex26.sce @@ -0,0 +1,12 @@ +//Ex 26
+
+clc;
+clear;
+close;
+cp=100;
+discount=25;
+mPercent=50;
+mp=cp+mPercent;
+sp=((100-discount)*mp)/100;
+gainPercent=(sp-100);
+printf("The gain is %3.2f percent",gainPercent);
diff --git a/1553/CH11/EX11.27/11Ex27.sce b/1553/CH11/EX11.27/11Ex27.sce new file mode 100644 index 000000000..9ad055229 --- /dev/null +++ b/1553/CH11/EX11.27/11Ex27.sce @@ -0,0 +1,11 @@ +//Ex 27
+
+clc;
+clear;
+close;
+discount=1;
+cp_40=36;
+sp_40=40;
+sp_40=(100-discount)/100*sp_40;
+profitPercent=(sp_40-cp_40)/cp_40*100;
+printf("The profit is %d percent",profitPercent);
diff --git a/1553/CH11/EX11.28/11Ex28.sce b/1553/CH11/EX11.28/11Ex28.sce new file mode 100644 index 000000000..af5a4f0b6 --- /dev/null +++ b/1553/CH11/EX11.28/11Ex28.sce @@ -0,0 +1,12 @@ +//Ex 28
+
+clc;
+clear;
+close;
+cp=100;
+discount=5;
+gainPercent=33;
+sp=cp+gainPercent;
+mp=sp/((100-discount)/100);
+mPercent=mp-cp;
+printf("The marked price is %d percent above CP",mPercent);
diff --git a/1553/CH11/EX11.29/11Ex29.sce b/1553/CH11/EX11.29/11Ex29.sce new file mode 100644 index 000000000..b73d4b08f --- /dev/null +++ b/1553/CH11/EX11.29/11Ex29.sce @@ -0,0 +1,14 @@ +//Chapter 11 Ex 29
+
+clc;
+close;
+clear;
+retail=100; com=36; red=24/100;
+SP=retail-com;
+profit=(8.8/100);
+CP=(SP/(1+profit));
+ncom=12;
+SPn=retail-ncom;
+gain=SPn-CP;
+gainper=(gain/CP)*100;
+mprintf("The profit percent is %.2f percent",gainper);
diff --git a/1553/CH11/EX11.3/11Ex3.sce b/1553/CH11/EX11.3/11Ex3.sce new file mode 100644 index 000000000..f27289275 --- /dev/null +++ b/1553/CH11/EX11.3/11Ex3.sce @@ -0,0 +1,12 @@ +//Ex 3
+
+clc;
+clear;
+close;
+//(i)
+sp1=(120/100)*56.25;
+printf("(i)The SP is Rs. %3.2f",sp1);
+
+//(ii)
+sp2=(85/100)*80.4;
+printf("\n(ii) The SP is Rs. %3.2f",sp2);
diff --git a/1553/CH11/EX11.4/11Ex4.sce b/1553/CH11/EX11.4/11Ex4.sce new file mode 100644 index 000000000..a892f080c --- /dev/null +++ b/1553/CH11/EX11.4/11Ex4.sce @@ -0,0 +1,11 @@ +//Ex 4
+
+clc;
+clear;
+close;
+//(i)
+cp1=(100/116)*40.6;
+printf("(i) The CP is Rs. %d",cp1);
+//(ii)
+cp2=(100/88)*51.7;
+printf("\n(ii) The CP is Rs. %3.2f",cp2);
diff --git a/1553/CH11/EX11.5/11Ex5.sce b/1553/CH11/EX11.5/11Ex5.sce new file mode 100644 index 000000000..5ebef9c04 --- /dev/null +++ b/1553/CH11/EX11.5/11Ex5.sce @@ -0,0 +1,11 @@ +//Ex 5
+
+clc;
+clear;
+close;
+lossPercent=5;
+spOld=1140;
+gainPercent=5;
+
+spNew=(spOld/(100-lossPercent))*(100+gainPercent);
+printf("The new Selling Price is Rs. %d",spNew);
diff --git a/1553/CH11/EX11.6/11Ex6.sce b/1553/CH11/EX11.6/11Ex6.sce new file mode 100644 index 000000000..8294d9135 --- /dev/null +++ b/1553/CH11/EX11.6/11Ex6.sce @@ -0,0 +1,12 @@ +//Ex 6
+
+clc;
+clear;
+close;
+sp1=27.50;
+sp2=25.75;
+profit1=10;
+cp=(100/(100+profit1))*sp1;
+profit2=sp2-cp;
+profitPercent=profit2/cp*100;
+mprintf("The profit percent is %d percent",profitPercent);
diff --git a/1553/CH11/EX11.7/11Ex7.sce b/1553/CH11/EX11.7/11Ex7.sce new file mode 100644 index 000000000..db81b884e --- /dev/null +++ b/1553/CH11/EX11.7/11Ex7.sce @@ -0,0 +1,10 @@ +//Ex 7
+
+clc;
+clear;
+close;
+sp=100;
+cp=96;
+profit=sp-cp;
+profitPercent=(profit/cp)*100;
+printf("The profit is %3.2f percent",profitPercent);
diff --git a/1553/CH11/EX11.8/11Ex8.sce b/1553/CH11/EX11.8/11Ex8.sce new file mode 100644 index 000000000..014e8422f --- /dev/null +++ b/1553/CH11/EX11.8/11Ex8.sce @@ -0,0 +1,9 @@ +//Ex 8
+
+clc;
+clear;
+close;
+cp=1;
+cp_18=18; sp_18=21;
+gainPercent=(3/18)*100;
+mprintf("The profit percent is %3.2f percent",gainPercent);
diff --git a/1553/CH11/EX11.9/11Ex9.sce b/1553/CH11/EX11.9/11Ex9.sce new file mode 100644 index 000000000..2e36ed5e1 --- /dev/null +++ b/1553/CH11/EX11.9/11Ex9.sce @@ -0,0 +1,10 @@ +//Ex 9
+
+clc;
+clear;
+close;
+cp_33=33;cp_22=22; //let cp of each meter be Rs.1
+sp_22=cp_33; //given
+gain=11;
+gainPercent=(gain/cp_22)*100;
+mprintf("The profit percent is %d percent",gainPercent);
diff --git a/1553/CH16/EX16.1/16Ex1.sce b/1553/CH16/EX16.1/16Ex1.sce new file mode 100644 index 000000000..77ecc5c1d --- /dev/null +++ b/1553/CH16/EX16.1/16Ex1.sce @@ -0,0 +1,8 @@ +//chapter 16 Ex 1
+clc;
+clear;
+close;
+t1=36; t2=45; //time taken by A and B to fill tank individually
+A1hour=1/t1; B1hour=1/t2; //part filled by A and B in 1 hour each
+AB1hour=A1hour+B1hour; //part filled by both in 1 hour
+mprintf("Thus the time taken by both pipes together to fill the tank is %d hours",1/AB1hour);
diff --git a/1553/CH16/EX16.2/16Ex2.sce b/1553/CH16/EX16.2/16Ex2.sce new file mode 100644 index 000000000..83bc253e5 --- /dev/null +++ b/1553/CH16/EX16.2/16Ex2.sce @@ -0,0 +1,11 @@ +//chapter 16 Ex 2
+clc;
+clear;
+close;
+//let pipes be A, B and C
+t1=10; t2=12; //time taken by A and B to fill tank individually
+t3=-20; //negative sign since time taken is to empty the tank
+A1hour=1/t1; B1hour=1/t2; //part filled by A and B in 1 hour each
+C1hour=1/t3; //part emptied by C in 1 hour
+ABC1hour=A1hour+B1hour+C1hour; //part filled by all 3 pipes in 1 hour
+mprintf("Thus the time taken by all pipes together to fill the tank is %.1f hours",1/ABC1hour);
diff --git a/1553/CH16/EX16.3/16Ex3.sce b/1553/CH16/EX16.3/16Ex3.sce new file mode 100644 index 000000000..5a2ccc42c --- /dev/null +++ b/1553/CH16/EX16.3/16Ex3.sce @@ -0,0 +1,16 @@ +//chapter 16 Ex 3
+clc;
+clear;
+close;
+//let pipes be A and B
+t12=12; //time taken by A and B to fill tank together
+AB1hour=1/t12; //part filled by both in 1 hour
+//Let reservoir be filled by pipe 1 in x hours, thus other in (10+x)hours, thus the equation that is formed is (1/x)+1/(10+x)=1/12; on solving we get
+mycoeff=[-120 -14 1];
+p=poly(mycoeff,"x","coeff");
+r=roots(p);
+v=int32([20 -6]);
+a=v(1); b=v(2);
+if a>0 then mprintf("Thus the time taken by both pipes individually are %d hours and %d hours respectively to fill the tank",a,a+10);
+end
+
diff --git a/1553/CH16/EX16.4/16Ex4.sce b/1553/CH16/EX16.4/16Ex4.sce new file mode 100644 index 000000000..e8120bb66 --- /dev/null +++ b/1553/CH16/EX16.4/16Ex4.sce @@ -0,0 +1,12 @@ +//chapter 16 Ex 4
+clc;
+clear;
+close;
+//let pipes be A B and C
+t1=12; t2=15; //time taken by A and B to fill cistern individually
+t3=20; //time taken by waste pipe to empty the cistern
+A1min=1/t1; B1min=1/t2; //part filled by A and B in 1 min each
+ABC1min=1/t3; //part filled by all 3 pipes in 1 min
+C1min=ABC1min-(A1min+B1min); //part emptied by C in 1 min
+C1min=abs(C1min); //absolute since the value is negative as it empties the cistern
+mprintf("Thus the waste pipe empties the cistern in %.0f min",1/C1min);
diff --git a/1553/CH16/EX16.5/16Ex5.sce b/1553/CH16/EX16.5/16Ex5.sce new file mode 100644 index 000000000..73c6814d5 --- /dev/null +++ b/1553/CH16/EX16.5/16Ex5.sce @@ -0,0 +1,12 @@ +//chapter 16 Ex 5
+clc;
+clear;
+close;
+//let pipes be A
+t1=3; //time taken by A to fill tank in 1 hour
+t2=7/2;//time taken by leak to empty the tank
+A1hour=1/t1; //part filled by A in 1 hour
+
+Aleak1hour=1/t2; //part filled inspite of leak in 1 hour
+leak1hour=A1hour-Aleak1hour;
+mprintf("Thus the leak empties the tank in %.0f hours",1/leak1hour);
diff --git a/1553/CH16/EX16.6/16Ex6.sce b/1553/CH16/EX16.6/16Ex6.sce new file mode 100644 index 000000000..ab8fae3f1 --- /dev/null +++ b/1553/CH16/EX16.6/16Ex6.sce @@ -0,0 +1,14 @@ +//chapter 16 Ex 6
+clc;
+clear;
+close;
+//let pipes be A B and leak be C
+t1=14; t2=16; //time taken by A and B to fill cistern individually
+t3=32/60;
+A1hour=1/t1; B1hour=1/t2; //part filled by A and B in 1 hour each
+AB1hour=A1hour+B1hour;
+
+ABC1hour=1/(1/AB1hour+t3); //part filled by all 3 pipes in 1 hour
+C1hour=AB1hour-ABC1hour; //part emptied by C in 1 hour
+
+mprintf("Thus the leak empties the cistern in %.0f hours",1/C1hour);
diff --git a/1553/CH16/EX16.7/16Ex7.sce b/1553/CH16/EX16.7/16Ex7.sce new file mode 100644 index 000000000..ee200456e --- /dev/null +++ b/1553/CH16/EX16.7/16Ex7.sce @@ -0,0 +1,16 @@ +//chapter 16 Ex 7
+clc;
+clear;
+close;
+//let pipes be A B and leak be C
+t1=36; t2=45; //time taken by A and B to fill tank individually
+t3=30; //time taken by leak to empty the tank
+A1min=1/t1; B1min=1/t2; //part filled by A and B in 1 min each individually
+C1min=-1/t3; //part emptied by leak
+AB1min=A1min+B1min; //part filled by A and B in 1 min each together
+AB7min=7*AB1min;
+remainingPart=1-AB7min;
+ABC1min=A1min+B1min+C1min; //part filled by all 3 pipes in 1 min
+totalTime=(1/ABC1min)*remainingPart+7;
+
+mprintf("Thus total time taken to fill the tank is %.0f min",totalTime);
diff --git a/1553/CH16/EX16.8/16Ex8.sce b/1553/CH16/EX16.8/16Ex8.sce new file mode 100644 index 000000000..48b4cd437 --- /dev/null +++ b/1553/CH16/EX16.8/16Ex8.sce @@ -0,0 +1,13 @@ +//Chapter 9 Ex 8
+
+clc;
+clear;
+close;
+//let B be closed after x min.Then part filled by(A+B) in x min +part filled by A in (18-x)=1
+x=poly(0,'x');
+for x=1:10
+ if ((x*(1/24+1/32))+((18-x)/24))==1
+ break;
+ end
+end
+mprintf("The pipe B should be closed after %d min",x);
diff --git a/1553/CH17/EX17.1/17Ex1.sce b/1553/CH17/EX17.1/17Ex1.sce new file mode 100644 index 000000000..c8b00ccaf --- /dev/null +++ b/1553/CH17/EX17.1/17Ex1.sce @@ -0,0 +1,11 @@ +//chapter 17: Ex1
+clc;
+clear;
+close;
+dist=400; //distance given
+aspeed=20*5/18; //converting km/hr to m/sec
+t= dist/aspeed;
+//t1=modulo(t,60);
+t2=(t/60);
+printf("The time taken is %1.2f min",t2);
+
diff --git a/1553/CH17/EX17.10/17Ex10.sce b/1553/CH17/EX17.10/17Ex10.sce new file mode 100644 index 000000000..39cc78e5b --- /dev/null +++ b/1553/CH17/EX17.10/17Ex10.sce @@ -0,0 +1,13 @@ +//chapter 17 Ex 10
+
+clc;
+clear;
+close;
+s1=65; s2=35;
+d=390;
+t=(390+s2)/(s1+s2);
+t_hr=round(t);
+t_min=(modulo(t,t_hr))*60;
+t1=10;
+t2_hr=t1+t_hr;
+printf("They meet at %d:%d hour",t2_hr,t_min);
diff --git a/1553/CH17/EX17.11/17Ex11.sce b/1553/CH17/EX17.11/17Ex11.sce new file mode 100644 index 000000000..fa2fa73d7 --- /dev/null +++ b/1553/CH17/EX17.11/17Ex11.sce @@ -0,0 +1,9 @@ +//chapter 17 Ex 11
+
+clc;
+clear;
+close;
+us=90;t1=6;t2=4;
+t=t1+t2;
+s_goods=us*t2/t;
+printf("The speed of goods train is %d km/hr",s_goods);
diff --git a/1553/CH17/EX17.12/17Ex12.sce b/1553/CH17/EX17.12/17Ex12.sce new file mode 100644 index 000000000..a6e2af8dc --- /dev/null +++ b/1553/CH17/EX17.12/17Ex12.sce @@ -0,0 +1,13 @@ +//chapter 17 Ex 12
+
+clc;
+clear;
+close;
+d=100/1000; //converting meter to km
+s_t=8;s_p=10;
+s_relative=s_p-s_t;
+
+t_p=d/s_relative;
+d_t=s_t*t_p;
+dist_theif=d_t*1000;
+printf("The distance covered by theif is %d meter",dist_theif);
diff --git a/1553/CH17/EX17.13/17Ex13.sce b/1553/CH17/EX17.13/17Ex13.sce new file mode 100644 index 000000000..bcb70ebf9 --- /dev/null +++ b/1553/CH17/EX17.13/17Ex13.sce @@ -0,0 +1,7 @@ +//chapter 17: Ex13
+clc;
+clear;
+close;
+walkrideTime=37; walkTime=55;
+rideTime=(2*walkrideTime-walkTime);
+mprintf("It takes %d min to ride both ways",rideTime);
diff --git a/1553/CH17/EX17.2/17Ex2.sce b/1553/CH17/EX17.2/17Ex2.sce new file mode 100644 index 000000000..24d2758aa --- /dev/null +++ b/1553/CH17/EX17.2/17Ex2.sce @@ -0,0 +1,9 @@ +//chapter 17: Ex2
+
+clc;
+clear;
+close;
+dist=750; time=2*60+30; //converting into seconds
+speed=dist/time;
+speedKmhr=speed/(5/18);
+mprintf("The speed of cyclist is %d km/hr",speedKmhr);
diff --git a/1553/CH17/EX17.4/17Ex4.sce b/1553/CH17/EX17.4/17Ex4.sce new file mode 100644 index 000000000..da9e7ae0e --- /dev/null +++ b/1553/CH17/EX17.4/17Ex4.sce @@ -0,0 +1,15 @@ +//chapter 17 Ex4
+clc;
+clear;
+close;
+t=1+(40/60); //time in hours
+//dist=t*s; //distance in km and s is speed
+//remain_dist=24-dist; //remaining distance in km
+//dist=(5/7)*remain_dist;
+
+
+mycoeff=[-72 12];
+p=poly(mycoeff,"x","coeff");
+ans=roots(p);
+speed=ans*5/18; //converting to m/sec
+printf("The speed is %1.2f m/sec",speed);
diff --git a/1553/CH17/EX17.5/17Ex5.sce b/1553/CH17/EX17.5/17Ex5.sce new file mode 100644 index 000000000..0fdebd7b0 --- /dev/null +++ b/1553/CH17/EX17.5/17Ex5.sce @@ -0,0 +1,8 @@ +//chapter 17: Ex5
+clc;
+clear;
+close;
+time=1+(24/60); //converting into hours
+speed1=4; speed2=5; dist1=2/3; dist2=1-dist1;
+distanceTotal=time/(dist1/speed1+dist2/speed2);
+mprintf("Toal distance is %.0f km",distanceTotal);
diff --git a/1553/CH17/EX17.6/17Ex6.sce b/1553/CH17/EX17.6/17Ex6.sce new file mode 100644 index 000000000..dac252640 --- /dev/null +++ b/1553/CH17/EX17.6/17Ex6.sce @@ -0,0 +1,15 @@ +//chapter 17 Ex6
+
+clc;
+clear;
+close;
+s1=25;s2=4; //given speeds in km/hr
+function [s]=average(s1,s2)
+ s=(2*s1*s2)/(s1+s2);
+endfunction
+
+s=average(25,4);
+t=5+(48/60); //converting minutes into hours
+d=t*s; //distance=time*speed
+dpost=d/2;
+printf("The distance of post office from village is %2.0f km",dpost);
diff --git a/1553/CH17/EX17.7/17Ex7.sce b/1553/CH17/EX17.7/17Ex7.sce new file mode 100644 index 000000000..9548f04ef --- /dev/null +++ b/1553/CH17/EX17.7/17Ex7.sce @@ -0,0 +1,7 @@ +//chapter 17 Example 7
+clc;
+clear;
+close;
+s1=200;s2=400;s3=600;s4=800;
+avgspeed=4/(1/s1+1/s2+1/s3+1/s4);
+printf("The average speed is %3.0f km/hr",avgspeed);
diff --git a/1553/CH17/EX17.8/17Ex8.sce b/1553/CH17/EX17.8/17Ex8.sce new file mode 100644 index 000000000..8bb0456e8 --- /dev/null +++ b/1553/CH17/EX17.8/17Ex8.sce @@ -0,0 +1,9 @@ +//chapter 17 Example 8
+
+clc;
+clear;
+close;
+
+tLate=10;
+t=tLate/(6/5-1);
+printf("The usual time to cover the journey is %d min",t);
diff --git a/1553/CH17/EX17.9/17Ex9.sce b/1553/CH17/EX17.9/17Ex9.sce new file mode 100644 index 000000000..9e583e5df --- /dev/null +++ b/1553/CH17/EX17.9/17Ex9.sce @@ -0,0 +1,9 @@ +//chapter 17 Ex 9
+
+clc;
+clear;
+close;
+s1=5;s2=6;t1=7;t2=5;
+difference=(t1+t2)/60; //converting minutes into hours
+dist=difference/(1/s1-1/s2);
+printf("The required distance is %1.0f km",dist);
diff --git a/1553/CH18/EX18.1/18Ex1.sce b/1553/CH18/EX18.1/18Ex1.sce new file mode 100644 index 000000000..991aae994 --- /dev/null +++ b/1553/CH18/EX18.1/18Ex1.sce @@ -0,0 +1,9 @@ +//chapter 18 Ex 1
+
+clc;
+clear;
+close;
+s=30*5/18; //converting into m/sec
+d=100;
+t=d/s;
+printf("The required time taken is %d sec",t);
diff --git a/1553/CH18/EX18.10/18Ex10.sce b/1553/CH18/EX18.10/18Ex10.sce new file mode 100644 index 000000000..ccd8110a0 --- /dev/null +++ b/1553/CH18/EX18.10/18Ex10.sce @@ -0,0 +1,9 @@ +//chapter 18 Ex 10
+
+clc;
+clear;
+close;
+sTrain=50; t=9; lTrain=280;
+sRelative=(lTrain/t)/(5/18);
+sGoods=sRelative-sTrain;
+printf("The speed of goods train is %d km/hr",sGoods);
diff --git a/1553/CH18/EX18.2/18Ex2.sce b/1553/CH18/EX18.2/18Ex2.sce new file mode 100644 index 000000000..89006e34c --- /dev/null +++ b/1553/CH18/EX18.2/18Ex2.sce @@ -0,0 +1,9 @@ +//chapter 18 Ex 2
+
+clc;
+clear;
+close;
+s=132*5/18; //converting into m/sec
+d=110+165; //length of train + length of platform
+t=d/s;
+printf("The time taken is %1.1f sec",t);
diff --git a/1553/CH18/EX18.3/18Ex3.sce b/1553/CH18/EX18.3/18Ex3.sce new file mode 100644 index 000000000..52f6f160a --- /dev/null +++ b/1553/CH18/EX18.3/18Ex3.sce @@ -0,0 +1,11 @@ +//chapter 18 Ex 3
+
+clc;
+clear;
+close;
+
+d_b=180; t1=8; t2=12; t=t1+t2;
+length_t=(d_b/t)/(1/t1-1/t);
+s_t=length_t/t1;
+s=s_t*18/5;
+printf("The length of train is %d meter and its speed is %d km/hr",length_t,s);
diff --git a/1553/CH18/EX18.4/18Ex4.sce b/1553/CH18/EX18.4/18Ex4.sce new file mode 100644 index 000000000..16840c2b2 --- /dev/null +++ b/1553/CH18/EX18.4/18Ex4.sce @@ -0,0 +1,9 @@ +//chapter 18 Ex 4
+
+clc;
+clear;
+close;
+s_t=68; s_m=8; d_t=150;
+s_relative=(s_t-s_m)*5/18;
+t=d_t/s_relative;
+printf("The train will pass the man in %d sec",t);
diff --git a/1553/CH18/EX18.5/18Ex5.sce b/1553/CH18/EX18.5/18Ex5.sce new file mode 100644 index 000000000..fc2e7d74b --- /dev/null +++ b/1553/CH18/EX18.5/18Ex5.sce @@ -0,0 +1,9 @@ +//chapter 18 Ex 5
+
+clc;
+clear;
+close;
+sTrain=59; lTrain=220; sMan=7;
+sRelative=(sTrain+sMan)*5/18; //addition of speed since opposite direction
+t=lTrain/sRelative;
+printf("The time taken by train to pass the man is %d sec",t);
diff --git a/1553/CH18/EX18.6/18Ex6.sce b/1553/CH18/EX18.6/18Ex6.sce new file mode 100644 index 000000000..7dcf87d6e --- /dev/null +++ b/1553/CH18/EX18.6/18Ex6.sce @@ -0,0 +1,10 @@ +//chapter 18 Ex 6
+
+clc;
+clear;
+close;
+
+l1=137; l2=163; s1=42; s2=48;
+sRelative=(s1+s2)*5/18; //Addition of speeds since in opposite direction
+tPass=(l1+l2)/sRelative;
+printf("The time taken by trians to pass each other is %d sec",tPass);
diff --git a/1553/CH18/EX18.7/18Ex7.sce b/1553/CH18/EX18.7/18Ex7.sce new file mode 100644 index 000000000..64cd2ef22 --- /dev/null +++ b/1553/CH18/EX18.7/18Ex7.sce @@ -0,0 +1,9 @@ +//chapter 18 Ex 7
+
+clc;
+clear;
+close;
+l1=100; l2=120; s1=72; s2=54;
+sRelative=(s1-s2)*5/18; //Addition of speeds since in opposite direction
+tPass=(l1+l2)/sRelative;
+printf("The time taken by trians to pass each other is %d sec",tPass);
diff --git a/1553/CH18/EX18.8/18ex8.sce b/1553/CH18/EX18.8/18ex8.sce new file mode 100644 index 000000000..07d2b9c45 --- /dev/null +++ b/1553/CH18/EX18.8/18ex8.sce @@ -0,0 +1,10 @@ +//chapter 18 Ex 8
+
+clc;
+clear;
+close;
+lTrain=100; t=6;
+sMan=5;
+sRelative=lTrain/(t*5/18);
+sTrain=sRelative-sMan;
+printf("The speed of train is %d km/hr",sTrain);
diff --git a/1553/CH18/EX18.9/18Ex9.sce b/1553/CH18/EX18.9/18Ex9.sce new file mode 100644 index 000000000..ad01ff8a8 --- /dev/null +++ b/1553/CH18/EX18.9/18Ex9.sce @@ -0,0 +1,11 @@ +//chapter 18 Ex 9
+
+clc;
+clear;
+close;
+sTrain=54; tTrainP=20; tTrainM=12; sMan=6;
+sRelative=(sTrain-sMan)*5/18; //Difference since opposite in direction
+lTrain=sRelative*tTrainM;
+lTotal=tTrainP*sTrain*5/18;
+lPlatform=lTotal-lTrain;
+printf("The length of train is %d m and length of platform is %d m",lTrain,lPlatform);
diff --git a/1553/CH19/EX19.1/19Ex1.sce b/1553/CH19/EX19.1/19Ex1.sce new file mode 100644 index 000000000..19da613c2 --- /dev/null +++ b/1553/CH19/EX19.1/19Ex1.sce @@ -0,0 +1,9 @@ +//chapter 19 Ex 1
+
+clc;
+clear;
+close;
+sUpstream=7; sDownstream=10;
+rStill=(sUpstream+sDownstream)/2;
+rCurrent=(sDownstream-sUpstream)/2;
+printf("The rate of man in still water is %1.1f km/hr and rate of current is %1.1f km/hr",rStill,rCurrent);
diff --git a/1553/CH19/EX19.2/19Ex2.sce b/1553/CH19/EX19.2/19Ex2.sce new file mode 100644 index 000000000..01bc89d2f --- /dev/null +++ b/1553/CH19/EX19.2/19Ex2.sce @@ -0,0 +1,10 @@ +//chapter 19 Ex 2
+
+clc;
+clear;
+close;
+dDown=15; dUp=5; tDown=3+(45/60); tUp=2+(30/60);
+rDown=dDown/tDown;
+rUp=dUp/tUp;
+sCurrent=(rDown-rUp)/2;
+printf("The speed of current is %d km/hr",sCurrent);
diff --git a/1553/CH19/EX19.3/19Ex3.sce b/1553/CH19/EX19.3/19Ex3.sce new file mode 100644 index 000000000..500d3241d --- /dev/null +++ b/1553/CH19/EX19.3/19Ex3.sce @@ -0,0 +1,9 @@ +//chapter 19 Ex 3
+
+clc;
+clear;
+close;
+
+rUp=9; rDown=27;
+rStream=(rDown-rUp)/2;
+printf("The rate of stream is %d km/hr",rStream);
diff --git a/1553/CH19/EX19.4/19Ex4.sce b/1553/CH19/EX19.4/19Ex4.sce new file mode 100644 index 000000000..f693a36bc --- /dev/null +++ b/1553/CH19/EX19.4/19Ex4.sce @@ -0,0 +1,16 @@ +//chapter 19 Ex 4
+
+clc;
+clear;
+close;
+
+sCycle=12; sBoat=10; sRiver=4;
+sAvgCyclist=12; //since the speed of cyclist is same in both directions
+sDown=sBoat+sRiver;
+sUp=sBoat-sRiver;
+sAvgSailor=(2*sDown*sUp)/(sDown+sUp);
+if(sAvgCyclist>sAvgSailor)
+ {printf("The cyclist will return to place A first");}
+
+else{printf("The sailor will return to place A first");}
+ end
diff --git a/1553/CH19/EX19.5/19Ex5.sce b/1553/CH19/EX19.5/19Ex5.sce new file mode 100644 index 000000000..5d5423921 --- /dev/null +++ b/1553/CH19/EX19.5/19Ex5.sce @@ -0,0 +1,11 @@ +//chapter 19 Ex 5
+
+clc;
+clear;
+close;
+sStill=7.5; sRiver=1.5; tTotal=50/60;
+sDown=sStill+sRiver;
+sUp=sStill-sRiver;
+
+dist=tTotal/(1/sDown+1/sUp);
+printf("The required distance is %d km",dist);
diff --git a/1553/CH19/EX19.6/19Ex6.sce b/1553/CH19/EX19.6/19Ex6.sce new file mode 100644 index 000000000..7452066f1 --- /dev/null +++ b/1553/CH19/EX19.6/19Ex6.sce @@ -0,0 +1,13 @@ +//chapter 19 Ex 6
+
+clc;
+clear;
+close;
+sStream=2; dist=6; t=33/60;
+//let sBoat be x, thus (6/(x-2)+6/(x+2))=33/60; solving this we get the equation as
+// 11x^2-240x-44=0
+
+ mycoeff=[-44 -240 11];
+p=poly(mycoeff,"x","coeff");
+r=abs(roots(p)); //absolute since the speed cannot be negative
+printf("The speed of motorboat in still water is %d km/hr",r(1));
diff --git a/1553/CH19/EX19.7/19Ex7.sce b/1553/CH19/EX19.7/19Ex7.sce new file mode 100644 index 000000000..59591f9ed --- /dev/null +++ b/1553/CH19/EX19.7/19Ex7.sce @@ -0,0 +1,26 @@ +//chapter 19 Ex 7
+
+clc;
+clear;
+close;
+dUp1=40; dDown1=55; dUp2=30; dDown=44;
+t1=13; t2=10;
+//let rate upstream be x km/hr and downstream be y km/hr
+//Equations are : 40/x+55/y=13 & 30/x+44/y=10
+x=poly(0,'x');
+y=(-55*x)/(40-13*x); //equation 1
+y=(-44*x)/(30-10*x); //equation 2
+for x=1:99
+ if(x~=3) //since denominator becomes 0
+ if (-55*x)/(40-13*x) ==(-44*x)/(30-10*x)
+ mprintf("x=%i \n ",x);
+ break
+ end
+ end
+end
+
+y=(-55*x)/(40-13*x);
+
+rStill=(x+y)/2;
+rCurrent=(y-x)/2;
+printf("The speed in still water is %d km/hr and rate of current is %d km/hr",rStill,rCurrent);
diff --git a/1553/CH2/EX2.1/2Ex1.sce b/1553/CH2/EX2.1/2Ex1.sce new file mode 100644 index 000000000..3d1662ae6 --- /dev/null +++ b/1553/CH2/EX2.1/2Ex1.sce @@ -0,0 +1,9 @@ +//chapter 2 Ex 1
+
+clc;
+clear;
+close;
+n1=2^3*3^2*5*7^4; n2=2^2*3^5*5^2*7^3; n3=2^3*5^3*7^2;
+V=int32([n1 n2 n3]);
+Lcm=gcd(V);
+mprintf("The LCM of given numbers is %d.",Lcm);
diff --git a/1553/CH2/EX2.10/2Ex10.sce b/1553/CH2/EX2.10/2Ex10.sce new file mode 100644 index 000000000..174a2c671 --- /dev/null +++ b/1553/CH2/EX2.10/2Ex10.sce @@ -0,0 +1,8 @@ +//chapter 2 Ex 10
+
+clc;
+clear;
+close;
+Hcf=13;
+n1=15*Hcf; n2=11*Hcf; //since the numbers are in the ratio 15:11
+mprintf("The given numbers are %d and %d",n1,n2);
diff --git a/1553/CH2/EX2.11/2Ex11.sce b/1553/CH2/EX2.11/2Ex11.sce new file mode 100644 index 000000000..ba361dc10 --- /dev/null +++ b/1553/CH2/EX2.11/2Ex11.sce @@ -0,0 +1,8 @@ +//chapter 2 Ex 11
+
+clc;
+clear;
+close;
+Hcf=11; Lcm=693; n1=77;
+n2=(Hcf*Lcm)/n1;
+mprintf("The other number is %d",n2);
diff --git a/1553/CH2/EX2.12/2Ex12.sce b/1553/CH2/EX2.12/2Ex12.sce new file mode 100644 index 000000000..4d4d22801 --- /dev/null +++ b/1553/CH2/EX2.12/2Ex12.sce @@ -0,0 +1,9 @@ +//chapter 2 Ex 12
+
+clc;
+clear;
+close;
+l1=4*100+95; l2=9*100; l3=16*100+65; //converting lengths into cm
+V=int32([l1 l2 l3]);
+Hcf=gcd(V);
+mprintf("The required length is %d cm",Hcf);
diff --git a/1553/CH2/EX2.13/2Ex13.sce b/1553/CH2/EX2.13/2Ex13.sce new file mode 100644 index 000000000..8caca8818 --- /dev/null +++ b/1553/CH2/EX2.13/2Ex13.sce @@ -0,0 +1,9 @@ +//chapter 2 Ex 12
+
+clc;
+clear;
+close;
+l1=1657; l2=2037; r1=6; r2=5; //given values
+V=int32([(l1-r1) (l2-r2)]);
+Hcf=gcd(V);
+mprintf("The required number is %d",Hcf);
diff --git a/1553/CH2/EX2.14/2Ex14.sce b/1553/CH2/EX2.14/2Ex14.sce new file mode 100644 index 000000000..ce46810cf --- /dev/null +++ b/1553/CH2/EX2.14/2Ex14.sce @@ -0,0 +1,9 @@ +//chapter 2 Ex 14
+
+clc;
+clear;
+close;
+n1=62; n2=132; n3=237;
+V=int32([n2-n1 n3-n2 n3-n1]); //since it leaves same reminder
+Hcf=gcd(V);
+mprintf("The largest such number is %d.",Hcf);
diff --git a/1553/CH2/EX2.15/2Ex15.sce b/1553/CH2/EX2.15/2Ex15.sce new file mode 100644 index 000000000..00d39dcc7 --- /dev/null +++ b/1553/CH2/EX2.15/2Ex15.sce @@ -0,0 +1,7 @@ +//chapter 2 Ex 15
+clc;
+clear;
+close;
+n1=12; n2=15; n3=20; n4=27;
+n=lcm(int32([n1,n2,n3,n4]));
+mprintf("The required number is %d",n);
diff --git a/1553/CH2/EX2.16/2Ex16.sce b/1553/CH2/EX2.16/2Ex16.sce new file mode 100644 index 000000000..52285511d --- /dev/null +++ b/1553/CH2/EX2.16/2Ex16.sce @@ -0,0 +1,8 @@ +//chapter 2 Ex 16
+clc;
+clear;
+close;
+n1=6; n2=7; n3=8; n4=9; n5=12;
+n=lcm(int32([n1,n2,n3,n4]));
+rem=1;
+mprintf("The required number is %d",n+rem);
diff --git a/1553/CH2/EX2.17/2Ex17.sce b/1553/CH2/EX2.17/2Ex17.sce new file mode 100644 index 000000000..b8cb26eaf --- /dev/null +++ b/1553/CH2/EX2.17/2Ex17.sce @@ -0,0 +1,11 @@ +//chapter 2 Ex 17
+clc;
+clear;
+close;
+n1=12; n2=15; n3=18; n4=27;
+n=lcm(int32([n1,n2,n3,n4]));
+Lcm=double(n);
+large=9999; //largest 4 digit number
+remainder=modulo(large,Lcm);
+largest_num=large-remainder;
+mprintf("The largest such number is %d",largest_num);
diff --git a/1553/CH2/EX2.18/2Ex18.sce b/1553/CH2/EX2.18/2Ex18.sce new file mode 100644 index 000000000..7d19d2f52 --- /dev/null +++ b/1553/CH2/EX2.18/2Ex18.sce @@ -0,0 +1,11 @@ +//chapter 2 Ex 18
+clc;
+clear;
+close;
+n1=16; n2=24; n3=36; n4=54;
+n=lcm(int32([n1,n2,n3,n4]));
+Lcm=double(n);
+small=10000; //smallest 5 digit number
+remainder=pmodulo(small,Lcm);
+smallest_num=small+n-remainder;
+mprintf("The smallest such number is %d",smallest_num);
diff --git a/1553/CH2/EX2.19/2Ex19.sce b/1553/CH2/EX2.19/2Ex19.sce new file mode 100644 index 000000000..233a14686 --- /dev/null +++ b/1553/CH2/EX2.19/2Ex19.sce @@ -0,0 +1,8 @@ +//chapter 2 Ex 19
+clc;
+clear;
+close;
+n1=20; n2=25; n3=35; n4=40;
+n=lcm(int32([n1,n2,n3,n4]));
+rem=6;
+mprintf("The least such number is %d",n-rem);
diff --git a/1553/CH2/EX2.2/2Ex2.sce b/1553/CH2/EX2.2/2Ex2.sce new file mode 100644 index 000000000..bd71ff6d9 --- /dev/null +++ b/1553/CH2/EX2.2/2Ex2.sce @@ -0,0 +1,9 @@ +//chapter 2 Ex 2
+
+clc;
+clear;
+close;
+n1=108; n2=288; n3=360;
+V=int32([n1 n2 n3]);
+Hcf=gcd(V);
+mprintf("The HCF of given numbers is %d.",Hcf);
diff --git a/1553/CH2/EX2.20/2Ex20.sce b/1553/CH2/EX2.20/2Ex20.sce new file mode 100644 index 000000000..2f174a513 --- /dev/null +++ b/1553/CH2/EX2.20/2Ex20.sce @@ -0,0 +1,9 @@ +//chapter 2 Ex 20
+clc;
+clear;
+close;
+n1=5; n2=6; n3=7; n4=8; rem=3;
+n=lcm(int32([n1,n2,n3,n4]));
+k=2;
+num=n*k+rem; //the number is in the form of (quotient*dividend+remainder)
+mprintf("The least such number is %d",num);
diff --git a/1553/CH2/EX2.21/2Ex21.sce b/1553/CH2/EX2.21/2Ex21.sce new file mode 100644 index 000000000..52fe4486d --- /dev/null +++ b/1553/CH2/EX2.21/2Ex21.sce @@ -0,0 +1,12 @@ +//chapter 2 Ex 21
+clc;
+clear;
+close;
+t1=48; t2=72; t3=108;
+Hours=8; Min=20;
+t=lcm(int32([t1,t2,t3]));
+Lcm=double(t);
+mins=Min+(t/60);
+Sec=pmodulo(Lcm,60);
+mprintf("The required time is %d min and %d sec",t/60,Sec);
+mprintf("\n Thus simultaneous change will take place at %d hours %d mins and %d secs",Hours,mins,Sec);
diff --git a/1553/CH2/EX2.22/2Ex22.sce b/1553/CH2/EX2.22/2Ex22.sce new file mode 100644 index 000000000..48406b226 --- /dev/null +++ b/1553/CH2/EX2.22/2Ex22.sce @@ -0,0 +1,11 @@ +
+//chapter 9 Ex 13
+
+clc;
+clear;
+close;
+
+a=17/18; b=31/36; c=43/45; d=59/60;
+v=[a b c d];
+v=gsort(v,'lc','i');
+mprintf("%.3f > %.3f >%.3f >%.3f ",v(4),v(3),v(2),v(1));
diff --git a/1553/CH2/EX2.3/2Ex3.sce b/1553/CH2/EX2.3/2Ex3.sce new file mode 100644 index 000000000..48da1846f --- /dev/null +++ b/1553/CH2/EX2.3/2Ex3.sce @@ -0,0 +1,9 @@ +//chapter 2 Ex 3
+
+clc;
+clear;
+close;
+n1=513; n2=1134; n3=1215;
+V=int32([n1 n2 n3]);
+Hcf=gcd(V);
+mprintf("The HCF of given numbers is %d.",Hcf);
diff --git a/1553/CH2/EX2.5/2Ex5.sce b/1553/CH2/EX2.5/2Ex5.sce new file mode 100644 index 000000000..87426a4f0 --- /dev/null +++ b/1553/CH2/EX2.5/2Ex5.sce @@ -0,0 +1,9 @@ +//chapter 2 Ex 5
+
+clc;
+clear;
+close;
+n1=2^2*3^3*5*7^2; n2=2^3*3^2*5^2*7^4; n3=2**3*5^3*7*11;
+V=int32([n1 n2 n3]);
+Lcm=lcm(V);
+mprintf("The LCM of given numbers is %d.",Lcm);
diff --git a/1553/CH2/EX2.6/2Ex6.sce b/1553/CH2/EX2.6/2Ex6.sce new file mode 100644 index 000000000..2beebe8b9 --- /dev/null +++ b/1553/CH2/EX2.6/2Ex6.sce @@ -0,0 +1,12 @@ +//chapter 2 Ex 6
+
+clc;
+clear;
+close;
+n1=72; n2=108; n3=2100;
+V=int32([n1 n2 n3]);
+Lcm=lcm(V);
+mprintf("The LCM of given numbers is %d.",Lcm);
+
+
+
diff --git a/1553/CH2/EX2.7/2Ex7.sce b/1553/CH2/EX2.7/2Ex7.sce new file mode 100644 index 000000000..9666e0f4b --- /dev/null +++ b/1553/CH2/EX2.7/2Ex7.sce @@ -0,0 +1,12 @@ +//chapter 2 Ex 7
+
+clc;
+clear;
+close;
+n1=16; n2=24; n3=36; n4=54;
+V=int32([n1 n2 n3 n4]);
+Lcm=lcm(V);
+mprintf("The LCM of given numbers is %d.",Lcm);
+
+
+
diff --git a/1553/CH2/EX2.8/2Ex8.sce b/1553/CH2/EX2.8/2Ex8.sce new file mode 100644 index 000000000..a1a34566a --- /dev/null +++ b/1553/CH2/EX2.8/2Ex8.sce @@ -0,0 +1,15 @@ +//chapter 2 Ex 8
+
+clc;
+clear;
+close;
+n1=2; n2=8; n3=16; n4=10;
+d1=3; d2=9; d3=81; d4=27;
+VN=int32([n1 n2 n3 n4]);
+VD=int32([d1 d2 d3 d4]);
+HcfNum=gcd(VN);
+LcmNum=lcm(VN);
+HcfDen=gcd(VD);
+LcmDen=lcm(VD);
+mprintf("The HCF of fractions is %d/%.d.",HcfNum,LcmDen);
+mprintf("The LCM of fractions is %.d/%d.",LcmNum,HcfDen);
diff --git a/1553/CH2/EX2.9/2Ex9.sce b/1553/CH2/EX2.9/2Ex9.sce new file mode 100644 index 000000000..a829755e8 --- /dev/null +++ b/1553/CH2/EX2.9/2Ex9.sce @@ -0,0 +1,11 @@ +//chapter 2 Ex 9
+
+clc;
+clear;
+close;
+n1=0.63; n2=1.05; n3=2.1;
+//V=int8([n1 n2 n3]);
+Hcf=gcd(int32([n1 n2 n3]*100));
+Lcm=lcm(int32([n1 n2 n3]*100))
+mprintf("The HCF of given numbers is %1.2f",(double(Hcf)/100));
+mprintf("\n The LCM of given numbers is %1.2f",(double(Lcm)/100));
diff --git a/1553/CH21/EX21.1/21Ex1.sce b/1553/CH21/EX21.1/21Ex1.sce new file mode 100644 index 000000000..629325463 --- /dev/null +++ b/1553/CH21/EX21.1/21Ex1.sce @@ -0,0 +1,8 @@ +//chapter 21 Ex 1
+
+clc;
+clear;
+close;
+p=68000; r=50/3; t=9/12;
+sInterest=(p*r*t)/100;
+printf("The simple interest is Rs. %d",sInterest);
diff --git a/1553/CH21/EX21.10/21Ex10.sce b/1553/CH21/EX21.10/21Ex10.sce new file mode 100644 index 000000000..1226d24ee --- /dev/null +++ b/1553/CH21/EX21.10/21Ex10.sce @@ -0,0 +1,8 @@ +//chapter 21 Ex 10
+
+clc;
+clear;
+close;
+t=3; rateHigh=2/100; amtHigh=360;
+Sum=amtHigh/(t*(1+rateHigh)-t);
+mprintf("The sum is Rs.%.0f",Sum);
diff --git a/1553/CH21/EX21.11/21Ex11.sce b/1553/CH21/EX21.11/21Ex11.sce new file mode 100644 index 000000000..7a18ece9c --- /dev/null +++ b/1553/CH21/EX21.11/21Ex11.sce @@ -0,0 +1,10 @@ +//chapter 21 Ex 11
+
+clc;
+clear;
+close;
+debt=1092; t=3; SI=12/100;
+year1=(1+SI);
+year2=(1+2*SI);
+instalment=debt/(year1+year2+1);
+mprintf("Each instalment is Rs.%.0f",instalment);
diff --git a/1553/CH21/EX21.12/21Ex12.sce b/1553/CH21/EX21.12/21Ex12.sce new file mode 100644 index 000000000..a1f1a10be --- /dev/null +++ b/1553/CH21/EX21.12/21Ex12.sce @@ -0,0 +1,9 @@ +//chapter 21 Ex 12
+
+clc;
+clear;
+close;
+Sum=1550; rate1=8/100; rate2=6/100; total=106;
+lent1=(total-(Sum*rate2))/(rate1-rate2);
+lent2=Sum-lent1;
+mprintf("Money lent at 8 percent is Rs.%.0f and that lent at 6 pecent is Rs.%.0f",lent1,lent2);
diff --git a/1553/CH21/EX21.2/21Ex2.sce b/1553/CH21/EX21.2/21Ex2.sce new file mode 100644 index 000000000..a0e5beaf9 --- /dev/null +++ b/1553/CH21/EX21.2/21Ex2.sce @@ -0,0 +1,9 @@ +//chapter 21 Ex 2
+
+clc;
+clear;
+close;
+t=(24+31+18)/365; //time from 4th feb to 18th april
+p=3000; r=25/4;
+sInterest=(p*r*t)/100;
+printf("The simple interest is Rs. %2.2f",sInterest);
diff --git a/1553/CH21/EX21.3/21Ex3.sce b/1553/CH21/EX21.3/21Ex3.sce new file mode 100644 index 000000000..88b2face8 --- /dev/null +++ b/1553/CH21/EX21.3/21Ex3.sce @@ -0,0 +1,10 @@ +//chapter 21 Ex 3
+
+clc;
+clear;
+close;
+sInterest=2502.50;
+r=27/2; t=4;
+Sum=sInterest/(1+(r*t/100));
+
+printf("The principle amount is Rs. %d",Sum);
diff --git a/1553/CH21/EX21.4/21Ex4.sce b/1553/CH21/EX21.4/21Ex4.sce new file mode 100644 index 000000000..1769fc98d --- /dev/null +++ b/1553/CH21/EX21.4/21Ex4.sce @@ -0,0 +1,12 @@ +//chapter 21 Ex 4
+
+clc;
+clear;
+close;
+Sum=800; amount=920; t=3; rIncrease=3;
+sInterest=amount-Sum;
+rate=(sInterest*100)/(Sum*t);
+rNew=(rate+rIncrease);
+sInterestNew=(Sum*rNew*t)/100;
+aNew=Sum+sInterestNew;
+printf("The new amount is Rs. %d",aNew);
diff --git a/1553/CH21/EX21.5/21Ex5.sce b/1553/CH21/EX21.5/21Ex5.sce new file mode 100644 index 000000000..3cf2709a4 --- /dev/null +++ b/1553/CH21/EX21.5/21Ex5.sce @@ -0,0 +1,9 @@ +//chapter 21 Ex 5
+
+clc;
+clear;
+close;
+TotalInterest=11400; r1=6;r2=9;r3=14;
+t1=2;t2=3;t3=4;
+Sum=TotalInterest/((r1*t1/100)+(r2*t2/100)+(r3*t3/100));
+printf("The sum borrowed is Rs. %d",Sum);
diff --git a/1553/CH21/EX21.6/21Ex6.sce b/1553/CH21/EX21.6/21Ex6.sce new file mode 100644 index 000000000..b7f3b82d3 --- /dev/null +++ b/1553/CH21/EX21.6/21Ex6.sce @@ -0,0 +1,11 @@ +//chapter 21 Ex 6
+
+clc;
+clear;
+close;
+a1=1008; t1=2; a2=1164; t2=1.5;
+sInterestDiff=a2-a1;
+sInterest2=sInterestDiff*t1/t2;
+p=a1-sInterest2;
+rNew=(sInterest2/(p*t1))*100;
+printf("The new rate is %d percent",rNew);
diff --git a/1553/CH21/EX21.7/21Ex7.sce b/1553/CH21/EX21.7/21Ex7.sce new file mode 100644 index 000000000..fc010faba --- /dev/null +++ b/1553/CH21/EX21.7/21Ex7.sce @@ -0,0 +1,9 @@ +//chapter 21 Ex 7
+
+clc;
+clear;
+close;
+t=16;
+p=100; //assuming principle=100
+rate=((100*p)/(p*t));
+mprintf("The rate percent per annum will be %.2f percent",rate);
diff --git a/1553/CH21/EX21.8/21Ex8.sce b/1553/CH21/EX21.8/21Ex8.sce new file mode 100644 index 000000000..5965a4968 --- /dev/null +++ b/1553/CH21/EX21.8/21Ex8.sce @@ -0,0 +1,9 @@ +//chapter 21 Ex 8
+
+clc;
+clear;
+close;
+SI=4/9;
+rate=sqrt(SI*100);
+t=rate; //since both are numerfically equal
+mprintf("The rate is %.2f percent and the time is %.2f years",rate,t);
diff --git a/1553/CH21/EX21.9/21Ex9.sce b/1553/CH21/EX21.9/21Ex9.sce new file mode 100644 index 000000000..bb5044c2b --- /dev/null +++ b/1553/CH21/EX21.9/21Ex9.sce @@ -0,0 +1,8 @@ +//chapter 21 Ex 9
+
+clc;
+clear;
+close;
+t1=5/2; rate1=12/100; lessby=40; t2=7/2; rate2=10/100;
+Sum=lessby/((t2*rate2)-(t1*rate1));
+mprintf("The sum is Rs.%.0f",Sum);
diff --git a/1553/CH22/EX22.1/22Ex1.sce b/1553/CH22/EX22.1/22Ex1.sce new file mode 100644 index 000000000..65a258905 --- /dev/null +++ b/1553/CH22/EX22.1/22Ex1.sce @@ -0,0 +1,10 @@ +//chapter 22 Ex 1
+
+clc;
+clear;
+close;
+p=7500; n=2; r=4;
+amount=p*((1+r/100)^n);//formula for compound interest
+CI=amount-p;
+printf("The Compound Interest is Rs. %d",CI);
+
diff --git a/1553/CH22/EX22.11/22Ex11.sce b/1553/CH22/EX22.11/22Ex11.sce new file mode 100644 index 000000000..68b2f044c --- /dev/null +++ b/1553/CH22/EX22.11/22Ex11.sce @@ -0,0 +1,9 @@ +//chapter 22 Ex 11
+
+clc;
+clear;
+close;
+amt=1301; t1=7; t2=9; rate=4/100;
+part1=(((1+rate)^t2/(1+rate)^t1)*amt)/(1+((1+rate)^t2/(1+rate)^t1));
+part2=amt-part1;
+mprintf("The two parts are Rs.%.0f and Rs.%.0f",part1,part2);
diff --git a/1553/CH22/EX22.12/22Ex12.sce b/1553/CH22/EX22.12/22Ex12.sce new file mode 100644 index 000000000..e79861ae6 --- /dev/null +++ b/1553/CH22/EX22.12/22Ex12.sce @@ -0,0 +1,10 @@ +//chapter 22 Ex 12
+
+clc;
+clear;
+close;
+amt1=7350; n1=2; amt2=8575; n2=3;
+rate=((amt2-amt1)/(n2-n1)/amt1)*100;
+//let sum be Rs.x
+Sum=amt1/(1+(rate/100))^n1;
+mprintf("The sum is Rs.%.0f",Sum);
diff --git a/1553/CH22/EX22.13/22Ex13.sce b/1553/CH22/EX22.13/22Ex13.sce new file mode 100644 index 000000000..1e6871ff7 --- /dev/null +++ b/1553/CH22/EX22.13/22Ex13.sce @@ -0,0 +1,9 @@ +//chapter 22 Ex 13
+
+clc;
+clear;
+close;
+Sum1=6690; t1=3; Sum2=10035; t2=6;
+rate=((nthroot((Sum2/Sum1),(t2-t1)))-1);
+p=Sum1/(1+rate)^t1;
+mprintf("The Sum is %.0f",p);
diff --git a/1553/CH22/EX22.2/22Ex2.sce b/1553/CH22/EX22.2/22Ex2.sce new file mode 100644 index 000000000..ee315c079 --- /dev/null +++ b/1553/CH22/EX22.2/22Ex2.sce @@ -0,0 +1,9 @@ +//chapter 22 Ex 2
+
+clc;
+clear;
+close;
+p=8000; n=2; r=15;
+amount=p*((1+r/100)^n)*((1+(1/3)*r/100));
+CI=amount-p;
+printf("The Compound Interest is Rs. %3.0f",CI);
diff --git a/1553/CH22/EX22.3/22Ex3.sce b/1553/CH22/EX22.3/22Ex3.sce new file mode 100644 index 000000000..82a6095bb --- /dev/null +++ b/1553/CH22/EX22.3/22Ex3.sce @@ -0,0 +1,10 @@ +//chapter 22 Ex 1
+
+clc;
+clear;
+close;
+p=10000; n=4; //since half yearly, hence 2 years=4 half years
+ r=2;
+amount=p*((1+r/100)^n);
+CI=amount-p;
+printf("The Compound Interest is Rs. %3.2f",CI);
diff --git a/1553/CH22/EX22.4/22Ex4.sce b/1553/CH22/EX22.4/22Ex4.sce new file mode 100644 index 000000000..a3d755f20 --- /dev/null +++ b/1553/CH22/EX22.4/22Ex4.sce @@ -0,0 +1,10 @@ +//chapter 22 Ex 4
+
+clc;
+clear;
+close;
+p=16000; t=3; //since quarterly compounded
+r=5;//since quarterly compounded
+amount=(p*(1+r/100)^t);
+CI=amount-p;
+printf("The Compound Interest is Rs. %d",CI);
diff --git a/1553/CH22/EX22.5/22Ex5.sce b/1553/CH22/EX22.5/22Ex5.sce new file mode 100644 index 000000000..564946fc6 --- /dev/null +++ b/1553/CH22/EX22.5/22Ex5.sce @@ -0,0 +1,11 @@ +//chapter 22 Ex 5
+
+clc;
+clear;
+close;
+rate=5/100;
+t=3; SIAmt=1200;
+p=SIAmt/(t*rate);
+Amt=p*(1+rate)^t;
+CI=Amt-p;
+mprintf("The compound interest is Rs.%d",CI);
diff --git a/1553/CH22/EX22.7/22Ex7.sce b/1553/CH22/EX22.7/22Ex7.sce new file mode 100644 index 000000000..636dbfb6c --- /dev/null +++ b/1553/CH22/EX22.7/22Ex7.sce @@ -0,0 +1,9 @@ +//chapter 22 Ex 6
+
+clc;
+clear;
+close;
+p=500; amt=583.20; t=2;
+
+rate=(nthroot((amt/p),t)-1)*100;
+mprintf("The rate of interest is %d percent",rate);
diff --git a/1553/CH22/EX22.9/22Ex9.sce b/1553/CH22/EX22.9/22Ex9.sce new file mode 100644 index 000000000..6b46e9949 --- /dev/null +++ b/1553/CH22/EX22.9/22Ex9.sce @@ -0,0 +1,10 @@ +//chapter 22 Ex 9
+
+clc;
+clear;
+close;
+rate=10/100; t=2; difference=631;
+CI=((1+rate)^t)-1;
+SI=t*rate;
+Sum=difference/(CI-SI);
+mprintf("The Sum is Rs.%.0f",Sum);
diff --git a/1553/CH23/EX23.1/23Ex1.sce b/1553/CH23/EX23.1/23Ex1.sce new file mode 100644 index 000000000..e18d40e28 --- /dev/null +++ b/1553/CH23/EX23.1/23Ex1.sce @@ -0,0 +1,24 @@ +// Chapter 23 Ex1
+
+clc;
+clear;
+close;
+
+//(i)
+
+n1=27; n2=3;
+ans1=log(n1)/log(n2);
+mprintf("log 27 to the base 3 is %d",ans1);
+
+//(ii)
+
+n3=(1/343); n4=7;
+ans2=log(n3)/log(n4);
+mprintf("\nlog (1/343) to the base 7 is %d",ans2);
+
+//(iii)
+
+n5=0.01; n6=100;
+ans3=log(n5)/log(n6);
+mprintf("\nlog 0.01 to the base 100 is %.0f",ans3);
+
diff --git a/1553/CH23/EX23.10/23Ex10.sce b/1553/CH23/EX23.10/23Ex10.sce new file mode 100644 index 000000000..b4da36ae5 --- /dev/null +++ b/1553/CH23/EX23.10/23Ex10.sce @@ -0,0 +1,10 @@ +// Chapter 23 Ex. 10
+
+clc;
+clear;
+close;
+//given log2 =0.30103
+//consider x=log2
+x=0.30103;
+ans=56*x;
+mprintf("The number of digits are %.0f",ans);
\ No newline at end of file diff --git a/1553/CH23/EX23.2/23Ex2.sce b/1553/CH23/EX23.2/23Ex2.sce new file mode 100644 index 000000000..fdb82aab3 --- /dev/null +++ b/1553/CH23/EX23.2/23Ex2.sce @@ -0,0 +1,21 @@ +//chapter 23 Ex 2
+
+clc;
+clear;
+close;
+
+//(i)
+n1=1; n2=7;
+ans1=log(n1)/log(n2);
+mprintf("log %d to base %d is %d",n1,n2,ans1);
+
+//(ii)
+n3=34; n4=34;
+ans2=log(n3)/log(n4);
+mprintf("\n log %d to base %d is %d",n3,n4,ans2);
+
+//(iii)
+base=36; n5=4; n6=6;
+power=log(n5)/log(n6);
+ans3=base^power;
+mprintf("\n The ans is %.0f",ans3);
diff --git a/1553/CH23/EX23.3/23Ex3.sce b/1553/CH23/EX23.3/23Ex3.sce new file mode 100644 index 000000000..47e4495d2 --- /dev/null +++ b/1553/CH23/EX23.3/23Ex3.sce @@ -0,0 +1,8 @@ +// Chapter 23 Ex3
+
+clc;
+clear;
+close;
+ans=(10/3); n1=sqrt(8);
+x=(n1)^ans; // derived from equation log x to the base n1=ans.
+mprintf("The value of x is %.0f",x);
diff --git a/1553/CH23/EX23.4/23Ex4.sce b/1553/CH23/EX23.4/23Ex4.sce new file mode 100644 index 000000000..c3dfb8d95 --- /dev/null +++ b/1553/CH23/EX23.4/23Ex4.sce @@ -0,0 +1,14 @@ +//chapter 23 Ex 4
+
+clc;
+clear;
+close;
+//(i)
+n1=3; n2=5; n3=25; n4=27;
+ans1=(log(n1)/log(n2))*(log(n3)/log(n4));
+mprintf("The answer is %.2f",ans1);
+
+//(ii)
+n5=27; n6=9; n7=9; n8=27;
+ans2=(log(n5)/log(n6))-(log(n7)/log(n8));
+mprintf("\nThe answer is %.2f",ans2);
diff --git a/1553/CH23/EX23.5/23Ex5.sce b/1553/CH23/EX23.5/23Ex5.sce new file mode 100644 index 000000000..91117154b --- /dev/null +++ b/1553/CH23/EX23.5/23Ex5.sce @@ -0,0 +1,8 @@ +// Chapter 23 Ex5
+
+clc;
+clear;
+close;
+n1=75; n2=16; n3=5; n4=9; n5=32; n6=243;
+ans=(log(n1/n2)-2*log(n3/n4)+log(n5/n6));
+mprintf("The answer of the equation is %.2f",ans);
\ No newline at end of file diff --git a/1553/CH23/EX23.6/23Ex6.sce b/1553/CH23/EX23.6/23Ex6.sce new file mode 100644 index 000000000..3c98b5b76 --- /dev/null +++ b/1553/CH23/EX23.6/23Ex6.sce @@ -0,0 +1,14 @@ +// Chapter 23 Ex6
+
+clc;
+clear;
+close;
+n1=3;
+//x=poly(0,'x');
+for x=1:.5:10
+ if log10((4*x+1)/(x+1))==(1-(log10(n1)))
+
+ break;
+end
+end
+mprintf("The value of x is %.2f",x);
diff --git a/1553/CH23/EX23.7/23Ex7.sce b/1553/CH23/EX23.7/23Ex7.sce new file mode 100644 index 000000000..e2a2323f4 --- /dev/null +++ b/1553/CH23/EX23.7/23Ex7.sce @@ -0,0 +1,8 @@ +// Chapter 23 Ex7
+
+clc;
+clear;
+close;
+x=1; y=2; z=3;
+ans=(1/(log((x)*(y)*(z))/log((x)*(y))))+(1/(log((x)*(y)*(z))/log((z)*(y))))+(1/(log((x)*(y)*(z))/log((x)*(z))));
+mprintf("The answer is %d",ans);
\ No newline at end of file diff --git a/1553/CH23/EX23.8/23Ex8.sce b/1553/CH23/EX23.8/23Ex8.sce new file mode 100644 index 000000000..fb5120cb5 --- /dev/null +++ b/1553/CH23/EX23.8/23Ex8.sce @@ -0,0 +1,8 @@ +//chapter 23 Ex 8
+
+clc;
+clear;
+close;
+n1=50; n2=10;
+ans1=log10(n1)
+mprintf("The value of log %d to base %d is %.3f",n1,n2,ans1);
diff --git a/1553/CH23/EX23.9/23Ex9.sce b/1553/CH23/EX23.9/23Ex9.sce new file mode 100644 index 000000000..8abfc9d72 --- /dev/null +++ b/1553/CH23/EX23.9/23Ex9.sce @@ -0,0 +1,14 @@ +//chapter 23 Ex 9
+
+clc;
+clear;
+close;
+//(i)
+n1=25
+ans1=log10(n1);
+mprintf("The value of log %d is %.3f",n1,ans1);
+
+//(ii)
+n2=4.5
+ans2=log10(n2);
+mprintf("The value of log %d is %.3f",n2,ans2);
diff --git a/1553/CH24/EX24.1/24Ex1.sce b/1553/CH24/EX24.1/24Ex1.sce new file mode 100644 index 000000000..d72de0498 --- /dev/null +++ b/1553/CH24/EX24.1/24Ex1.sce @@ -0,0 +1,9 @@ +//chapter 24 Ex 1
+
+clc;
+clear;
+close;
+l=15; Diag=17;
+b=sqrt(Diag^2-l^2);
+area=l*b;
+printf("The area of the field is %d square meter",area);
diff --git a/1553/CH24/EX24.10/24Ex10.sce b/1553/CH24/EX24.10/24Ex10.sce new file mode 100644 index 000000000..90eaad16f --- /dev/null +++ b/1553/CH24/EX24.10/24Ex10.sce @@ -0,0 +1,8 @@ +//Chapter 24 Ex 10
+
+clc;
+clear;
+close;
+dia=3.8;
+A=((dia)^2)/2;
+mprintf("The area od the square whose diagonal is given is %.2f sq.meter",A);
\ No newline at end of file diff --git a/1553/CH24/EX24.12/24Ex12.sce b/1553/CH24/EX24.12/24Ex12.sce new file mode 100644 index 000000000..06aab367a --- /dev/null +++ b/1553/CH24/EX24.12/24Ex12.sce @@ -0,0 +1,11 @@ +//Chapter 24 Ex12
+
+clc;
+clear;
+close;
+side=1; //assuming side of square as 1
+area=side^2;
+nside=(1+(25/100))*side;
+narea=(nside)^2;
+increase=((narea-area)/area)*100;
+mprintf("The percentage change in area is %.2f percent",increase);
diff --git a/1553/CH24/EX24.13/24Ex13.sce b/1553/CH24/EX24.13/24Ex13.sce new file mode 100644 index 000000000..35be8c2ea --- /dev/null +++ b/1553/CH24/EX24.13/24Ex13.sce @@ -0,0 +1,17 @@ +//Chapter 24 Ex 13
+
+clc;
+clear;
+close;
+inc=3; dec=4;
+x=poly(0,'x');
+y=(x-7); //from given condition 1
+y=(3*x-12)/4; //from given condition 2
+for x=1:99
+ if (x-7)==((3*x-12)/4) then
+ break;
+ end
+end
+y=x-7;
+area=2*(x+y);
+mprintf("The perimeter of the rectangle is %d cm.",area);
\ No newline at end of file diff --git a/1553/CH24/EX24.14/24Ex14.sce b/1553/CH24/EX24.14/24Ex14.sce new file mode 100644 index 000000000..ffa713d11 --- /dev/null +++ b/1553/CH24/EX24.14/24Ex14.sce @@ -0,0 +1,17 @@ +//Chapter 24 Ex 14
+
+clc;
+clear;
+close;
+tc1=270; rate1=5;
+area1=tc1/rate1; //area of floor
+//given length is 3/2 of breadth.
+//breadth=x then length=(3*x/2) and area= (x*3*x)/2
+b=sqrt(area1*(2/3));
+l=(3/2)*b;
+tc2=1720; rate2=10;
+area2=tc2/rate2; //papered area
+area3=8; //given area of a door and 2 windows
+totarea=area2+area3;
+ht=totarea/(2*(l+b));
+mprintf("The length,bredth and height of the room are %d m,%d m,%d m respectively.",l,b,ht);
diff --git a/1553/CH24/EX24.15/24Ex15.sce b/1553/CH24/EX24.15/24Ex15.sce new file mode 100644 index 000000000..59d03d385 --- /dev/null +++ b/1553/CH24/EX24.15/24Ex15.sce @@ -0,0 +1,9 @@ +//Chapter 24 Ex 15
+
+clc;
+clear;
+close;
+a=13; b=14; c=15;
+s=(a+b+c)/2;
+area=sqrt(s*(s-a)*(s-b)*(s-c));
+mprintf("The area of triangle is %d sq.cm",area);
diff --git a/1553/CH24/EX24.16/24Ex16.sce b/1553/CH24/EX24.16/24Ex16.sce new file mode 100644 index 000000000..a44f483c1 --- /dev/null +++ b/1553/CH24/EX24.16/24Ex16.sce @@ -0,0 +1,9 @@ +//Chapter 24 Ex 16
+
+clc;
+clear;
+close;
+base=12; hypo=13;
+h=sqrt((hypo)^2-(base)^2);
+area=(1/2)*base*h;
+mprintf("The area of a right angled triangle is %d sq.cm.",area);
\ No newline at end of file diff --git a/1553/CH24/EX24.17/24Ex17.sce b/1553/CH24/EX24.17/24Ex17.sce new file mode 100644 index 000000000..aca0478d6 --- /dev/null +++ b/1553/CH24/EX24.17/24Ex17.sce @@ -0,0 +1,10 @@ +//chapter 24 Ex 17
+
+clc;
+clear;
+close;
+rate=24.68; costfield=333.18;
+Area=(costfield/rate)*10000;
+altitude=sqrt(Area/((1/2)*3));
+base=3*altitude;
+mprintf("The altitude and base are %d meter and %d meter",altitude,base);
diff --git a/1553/CH24/EX24.18/24Ex18.sce b/1553/CH24/EX24.18/24Ex18.sce new file mode 100644 index 000000000..feeac1bfc --- /dev/null +++ b/1553/CH24/EX24.18/24Ex18.sce @@ -0,0 +1,11 @@ +//chapter 24 Ex 18
+
+clc;
+clear;
+close;
+altitude=8; perimeter=32;
+//from given the equation formed is x^2=(8^2)+(16-x)^2
+side=320/32;
+base=perimeter-2*side;
+area=(1/2)*base*side;
+mprintf("The area of the triangle is %.0f square cm",area);
diff --git a/1553/CH24/EX24.19/24Ex19.sce b/1553/CH24/EX24.19/24Ex19.sce new file mode 100644 index 000000000..5d2d20a14 --- /dev/null +++ b/1553/CH24/EX24.19/24Ex19.sce @@ -0,0 +1,10 @@ +//chapter 24 Ex 19
+
+clc;
+clear;
+close;
+l=3*sqrt(3);
+area=((sqrt(3))/4)*l^2;
+height=area/((1/2)*l);
+mprintf("The height of %.1f cm",height);
+
diff --git a/1553/CH24/EX24.2/24Ex2.sce b/1553/CH24/EX24.2/24Ex2.sce new file mode 100644 index 000000000..2b134d10b --- /dev/null +++ b/1553/CH24/EX24.2/24Ex2.sce @@ -0,0 +1,10 @@ +//chapter 24 Ex 2
+
+clc;
+clear;
+close;
+l=13; b=9; w=75/100; rate=12.4;
+area=l*b;
+Length=area/w;
+cost=Length*rate;
+printf("The cost of carpeting is Rs. %4.2f",cost);
diff --git a/1553/CH24/EX24.21/24Ex21.sce b/1553/CH24/EX24.21/24Ex21.sce new file mode 100644 index 000000000..efde14fd4 --- /dev/null +++ b/1553/CH24/EX24.21/24Ex21.sce @@ -0,0 +1,8 @@ +//chapter 24 Ex 21
+
+clc;
+clear;
+close;
+area=72;
+h=sqrt(area/2);
+mprintf("The height of parallelogram is %d cm",h);
diff --git a/1553/CH24/EX24.22/24Ex22.sce b/1553/CH24/EX24.22/24Ex22.sce new file mode 100644 index 000000000..99b91e155 --- /dev/null +++ b/1553/CH24/EX24.22/24Ex22.sce @@ -0,0 +1,10 @@ +//chapter 24 Ex 22
+
+clc;
+clear;
+close;
+side=20; diagonal1=24;
+x=sqrt(side^2-(diagonal1/2)^2);
+diagonal2=2*x;
+area=(1/2)*(diagonal1*diagonal2);
+mprintf("The area of rhombus is %d square cm",area);
diff --git a/1553/CH24/EX24.23/24Ex23.sce b/1553/CH24/EX24.23/24Ex23.sce new file mode 100644 index 000000000..2722e5180 --- /dev/null +++ b/1553/CH24/EX24.23/24Ex23.sce @@ -0,0 +1,16 @@ +//Chapter 24 Ex 23
+
+clc;
+clear;
+close;
+// consider two parallel sides of trapezium as a and b
+a=poly(0,'a');
+b=(a-4); //from given condition 1
+b=(50-a); //from given condition 2
+for a=1:99
+ if (a-4)==(50-a) then
+ break;
+ end
+end
+b=a-4;
+mprintf("The parallel sides of trapezium are %d cm and %d cm",a,b);
\ No newline at end of file diff --git a/1553/CH24/EX24.24/24Ex24.sce b/1553/CH24/EX24.24/24Ex24.sce new file mode 100644 index 000000000..93ddbca51 --- /dev/null +++ b/1553/CH24/EX24.24/24Ex24.sce @@ -0,0 +1,8 @@ +//chapter 24 Ex 24
+
+clc;
+clear;
+close;
+area=9856;
+radius=sqrt(area/%pi);
+mprintf("The length of rope is %d cm",radius);
diff --git a/1553/CH24/EX24.25/24Ex25.sce b/1553/CH24/EX24.25/24Ex25.sce new file mode 100644 index 000000000..f85a208e6 --- /dev/null +++ b/1553/CH24/EX24.25/24Ex25.sce @@ -0,0 +1,12 @@ +//chapter 24 Ex 25
+
+clc;
+clear;
+close;
+a=13.86;
+rate=4.4;
+area1=a*10000;
+radius=sqrt(area1/%pi);
+circumference=2*(%pi)*radius;
+cost=rate*circumference;
+mprintf("The area is Rs.%.0f",cost);
diff --git a/1553/CH24/EX24.26/24Ex26.sce b/1553/CH24/EX24.26/24Ex26.sce new file mode 100644 index 000000000..cd126b78d --- /dev/null +++ b/1553/CH24/EX24.26/24Ex26.sce @@ -0,0 +1,10 @@ +//Chapter 24 Ex 26
+
+clc;
+clear;
+close;
+dia=140; s=66;
+speed=(66*1000)/60; //converting into meter/min or distance to be covered in 1 min
+circumference=2*(%pi)*(dia/(2*100));
+number=speed/circumference;
+mprintf("The number of revolutions per min are %d",number);
\ No newline at end of file diff --git a/1553/CH24/EX24.27/24Ex27.sce b/1553/CH24/EX24.27/24Ex27.sce new file mode 100644 index 000000000..90774b701 --- /dev/null +++ b/1553/CH24/EX24.27/24Ex27.sce @@ -0,0 +1,10 @@ +//chapter 24 Ex 27
+
+clc;
+clear;
+close;
+rev=1000;
+distTotal=88;
+dist=(distTotal/1000)*rev;
+rad=dist/(2*(%pi));
+mprintf("The radius of wheel is %d meter",rad);
diff --git a/1553/CH24/EX24.28/24Ex28.sce b/1553/CH24/EX24.28/24Ex28.sce new file mode 100644 index 000000000..caf5db008 --- /dev/null +++ b/1553/CH24/EX24.28/24Ex28.sce @@ -0,0 +1,9 @@ +//Chapter 24 Ex 28
+
+clc;
+clear;
+close;
+circum1=440; path=14;
+r=circum1/(2*(%pi));
+Radius=r+path;
+mprintf("The radius of outer circle is %d meter",Radius);
\ No newline at end of file diff --git a/1553/CH24/EX24.29/24Ex29.sce b/1553/CH24/EX24.29/24Ex29.sce new file mode 100644 index 000000000..836dbaa8e --- /dev/null +++ b/1553/CH24/EX24.29/24Ex29.sce @@ -0,0 +1,10 @@ +//Chapter 24 Ex 29
+
+clc;
+clear;
+close;
+circumI=352/7; circumO=528/7;
+r=circumI/(2*(%pi));
+R=circumO/(2*(%pi));
+width=(R-r);
+mprintf("The widht of the ring is %d meter",width);
\ No newline at end of file diff --git a/1553/CH24/EX24.3/24Ex3.sce b/1553/CH24/EX24.3/24Ex3.sce new file mode 100644 index 000000000..5832ab164 --- /dev/null +++ b/1553/CH24/EX24.3/24Ex3.sce @@ -0,0 +1,12 @@ +//chapter 24 Ex 3
+
+clc;
+clear;
+close;
+
+l=13; b=9; w=75/100; //converting into meter
+rate=12.4;
+area=l*b;
+lCarpet=area/w;
+cost=lCarpet*rate;
+mprintf("The cost for carpeting is Rs.%.2f",cost);
diff --git a/1553/CH24/EX24.30/24Ex30.sce b/1553/CH24/EX24.30/24Ex30.sce new file mode 100644 index 000000000..a3e7caf46 --- /dev/null +++ b/1553/CH24/EX24.30/24Ex30.sce @@ -0,0 +1,8 @@ +//Chapter 24 Ex 30
+
+clc;
+clear;
+close;
+area=(66/7); deg=120;
+r=sqrt((area*360)/((%pi)*deg));
+mprintf("The radius of the circle is %d cm.",r);
\ No newline at end of file diff --git a/1553/CH24/EX24.32/24Ex32.sce b/1553/CH24/EX24.32/24Ex32.sce new file mode 100644 index 000000000..b3c70f313 --- /dev/null +++ b/1553/CH24/EX24.32/24Ex32.sce @@ -0,0 +1,11 @@ +//Chapter 24 Ex 32
+
+clc;
+clear;
+close;
+R=1; // assuming radius of the circle is 1.
+NR=(50/100)*R;
+OArea=(%pi)*(R^2);
+NArea=(%pi)*(NR^2);
+dec=((OArea-NArea)*100)/OArea;
+mprintf("The percentage decrease in area of circle is %d percent",dec);
\ No newline at end of file diff --git a/1553/CH24/EX24.4/24Ex4.sce b/1553/CH24/EX24.4/24Ex4.sce new file mode 100644 index 000000000..55a12668e --- /dev/null +++ b/1553/CH24/EX24.4/24Ex4.sce @@ -0,0 +1,10 @@ +//chapter 24 Ex 4
+
+clc;
+clear;
+diagonal=17;
+perimeter=46;
+//perimeter=2(l+b), area=l*b, diagonal^2=l^2+b^2 using hypotenus
+//using above conditions, the equation diagonal^2+2l*b=(perimeter/2)^2
+area=((perimeter/2)^2-diagonal^2)/2;
+mprintf("The area of rectangle is %d square cm",area);
diff --git a/1553/CH24/EX24.5/24Ex5.sce b/1553/CH24/EX24.5/24Ex5.sce new file mode 100644 index 000000000..a52d21378 --- /dev/null +++ b/1553/CH24/EX24.5/24Ex5.sce @@ -0,0 +1,9 @@ +//Chapter 24 Ex5
+
+clc;
+clear;
+close;
+//consider breadht=x and length=2x as given. Thus solving statement we get following equation.
+//(2*x-5)(x+5)-2*x*x=75 and solving it we get
+x=(75+25)/5;
+mprintf("The length of rectangle is %d cm.",x);
\ No newline at end of file diff --git a/1553/CH24/EX24.6/24Ex6.sce b/1553/CH24/EX24.6/24Ex6.sce new file mode 100644 index 000000000..cbb813b34 --- /dev/null +++ b/1553/CH24/EX24.6/24Ex6.sce @@ -0,0 +1,9 @@ +//chapter 24 Ex 6
+
+clc;
+clear;
+close;
+excess=5/100; deficit=4/100;
+Error=((1+excess)*(1-deficit))-1;
+ErrorPercent=Error*100;
+mprintf("The percentage error is %.1f percent",ErrorPercent);
diff --git a/1553/CH24/EX24.7/24Ex7.sce b/1553/CH24/EX24.7/24Ex7.sce new file mode 100644 index 000000000..17ea2f41b --- /dev/null +++ b/1553/CH24/EX24.7/24Ex7.sce @@ -0,0 +1,11 @@ +//Chapter 24 Ex 7
+
+clc;
+clear;
+close;
+l=110; b=65; w=2.5; cost=80;
+A1=l*b; //area of plot
+A2=(l-2*w)*(b-2*w); //area of plot excluding path
+A3=A1-A2; // area of path
+CP=A3*(cost/100);
+mprintf("The cost of gravelling the path at 80 paise per sq. metre is Rs.%d",CP);
\ No newline at end of file diff --git a/1553/CH24/EX24.8/24Ex8.sce b/1553/CH24/EX24.8/24Ex8.sce new file mode 100644 index 000000000..186380d54 --- /dev/null +++ b/1553/CH24/EX24.8/24Ex8.sce @@ -0,0 +1,12 @@ +//chapter 24 Ex 8
+
+clc;
+clear;
+close;
+peri1=40; peri2=32;
+side1=peri1/4; //side=perimeter/number of sides
+side2=peri2/4;
+area3=side1^2-side2^2; //given
+side3=sqrt(area3);
+peri3=side3*4;
+mprintf("The perimeter of 3rd square is %d cm",peri3);
diff --git a/1553/CH24/EX24.9/24Ex9.sce b/1553/CH24/EX24.9/24Ex9.sce new file mode 100644 index 000000000..9d1873fb7 --- /dev/null +++ b/1553/CH24/EX24.9/24Ex9.sce @@ -0,0 +1,12 @@ +//chapter 24 Ex 9
+
+clc;
+clear;
+close;
+l=5*100+55; //converting to centimeter
+b=3*100+74;
+area=l*b;
+sideLargest=gcd(uint32([l b]));
+areatile=sideLargest^2;
+number=area/areatile;
+mprintf("The number of tiles required are %d",number);
diff --git a/1553/CH25/EX25.1/25Ex1.sce b/1553/CH25/EX25.1/25Ex1.sce new file mode 100644 index 000000000..c95b68f01 --- /dev/null +++ b/1553/CH25/EX25.1/25Ex1.sce @@ -0,0 +1,11 @@ +//Chapter 25, Ex1
+clc;
+clear;
+close;
+l=16; b=14; h=7; //given
+volume=l*b*h;
+surface_area=[2*((l*b)+(b*h)+(l*h))];
+//disp("cubic meter",volume,"The volume is:")
+//disp("cubic centimeter",surface_area,"The surface area is:");
+printf("The volume is %d cubic meter",volume);
+printf("\n The surface area is %d cubic centimeter",surface_area);
diff --git a/1553/CH25/EX25.10/25Ex10.sce b/1553/CH25/EX25.10/25Ex10.sce new file mode 100644 index 000000000..d59581f5d --- /dev/null +++ b/1553/CH25/EX25.10/25Ex10.sce @@ -0,0 +1,10 @@ +//Chapter 25 Ex 10
+
+clc;
+close;
+clear;
+scube=15; lvessel=20; bvessel=15; //all in cemtimeter
+volcube=(scube)^3;
+areavessel=lvessel*bvessel;
+rise=volcube/areavessel;
+mprintf("The rise in water level is %.2f cm",rise);
diff --git a/1553/CH25/EX25.11/25Ex11.sce b/1553/CH25/EX25.11/25Ex11.sce new file mode 100644 index 000000000..608ebb4cd --- /dev/null +++ b/1553/CH25/EX25.11/25Ex11.sce @@ -0,0 +1,14 @@ +//Chapter 25 Ex 11
+
+clc;
+close;
+clear;
+scube1=1; scube2=6; scube3=8; //all in centimeter
+vol1=(scube1)^3;
+vol2=(scube2)^3;
+vol3=(scube3)^3;
+volnew=vol1+vol2+vol3;
+newedge=nthroot(volnew,3);
+facearea=(newedge)^2;
+surarea=6*facearea;
+mprintf("The surface area of the new cube is %.0f square centimeters",surarea);
diff --git a/1553/CH25/EX25.12/25Ex12.sce b/1553/CH25/EX25.12/25Ex12.sce new file mode 100644 index 000000000..3ff691bac --- /dev/null +++ b/1553/CH25/EX25.12/25Ex12.sce @@ -0,0 +1,12 @@ +//Chapter 25 Ex 12
+
+clc;
+close;
+clear;
+//let the original length of edge a=1
+edge=1; inc=50/100;
+surorg=6*(edge^2);
+newedge=(1+inc)*edge;
+surnew=6*(newedge^2);
+incsurarea=((surnew-surorg)/surorg)*100;
+mprintf("The percentage increase in surface area is %d percent",incsurarea);
diff --git a/1553/CH25/EX25.14/25Ex14.sce b/1553/CH25/EX25.14/25Ex14.sce new file mode 100644 index 000000000..b6eeef7af --- /dev/null +++ b/1553/CH25/EX25.14/25Ex14.sce @@ -0,0 +1,11 @@ +//chapter 25 Ex 14
+clc;
+clear;
+close;
+d=7; //given diameter
+r=d/2;
+h=40; //given height
+vol=(22/7)*r^2*h;
+curved_area=2*(22/7)*r*h;
+Total_area=(2*(22/7)*r*h)+(2*(22/7)*r^2);
+printf("Volume= %d cubic cm\n Curved Surface area= %d square cm\n Total surface area= %d square cm",vol,curved_area,Total_area);
diff --git a/1553/CH25/EX25.15/25Ex15.sce b/1553/CH25/EX25.15/25Ex15.sce new file mode 100644 index 000000000..90e024e68 --- /dev/null +++ b/1553/CH25/EX25.15/25Ex15.sce @@ -0,0 +1,9 @@ +//Ch25_Ex 15
+clc;
+clear;
+close;
+vol=1848;
+diameter=14;
+radius=diameter/2;
+h= vol/(%pi*radius^2);
+mprintf("The depth of tank is %.0f meter",h);
diff --git a/1553/CH25/EX25.16/25Ex16.sce b/1553/CH25/EX25.16/25Ex16.sce new file mode 100644 index 000000000..6d7441570 --- /dev/null +++ b/1553/CH25/EX25.16/25Ex16.sce @@ -0,0 +1,9 @@ +//Ch25_Ex16
+clc;
+clear;
+close;
+vol=2.2/1000; //converting into cubic meter
+d=0.5/100; //diameter in meter
+r=d/2; //radius
+h=vol/(%pi*r^2);
+mprintf("The length of wire is %.0f meter",h);
diff --git a/1553/CH25/EX25.17/25Ex17.sce b/1553/CH25/EX25.17/25Ex17.sce new file mode 100644 index 000000000..a8ca27111 --- /dev/null +++ b/1553/CH25/EX25.17/25Ex17.sce @@ -0,0 +1,11 @@ +//Ch25_Ex17
+clc;
+clear;
+close;
+vol=0.88;
+l=7; //length
+d=2/100; //diameter converting into centimeter
+r=d/2;
+volRod=%pi*r^2*l;
+noRods=vol/volRod; //number of rods
+mprintf("The number of rods made are %.0f",noRods);
diff --git a/1553/CH25/EX25.19/25Ex19.sce b/1553/CH25/EX25.19/25Ex19.sce new file mode 100644 index 000000000..b12aec253 --- /dev/null +++ b/1553/CH25/EX25.19/25Ex19.sce @@ -0,0 +1,12 @@ +//Ch25_Ex19
+clc;
+clear;
+close;
+vol=1; w=21/1000; //weight converted into kilogram
+l=1*100; r=3/2; //since diameter=3cm
+t=1; //thickness of metal
+innerR=r; //inner radius
+outerR=innerR+t; //outer radius
+volIron= %pi*outerR^2*l-%pi*innerR^2*l;
+weightPipe=volIron*w;
+mprintf("The weight of the pipe is %.1f kg",weightPipe);
diff --git a/1553/CH25/EX25.2/25Ex2.sce b/1553/CH25/EX25.2/25Ex2.sce new file mode 100644 index 000000000..4d35db713 --- /dev/null +++ b/1553/CH25/EX25.2/25Ex2.sce @@ -0,0 +1,8 @@ +//Chapter 25 Ex 2
+
+clc;
+close;
+clear;
+long=12; breadth=8; height=9; //all in meters
+ldia=sqrt(long^2+breadth^2+height^2);
+mprintf("The length of longest pole is %d meters",ldia);
diff --git a/1553/CH25/EX25.20/25Ex20.sce b/1553/CH25/EX25.20/25Ex20.sce new file mode 100644 index 000000000..8749ee297 --- /dev/null +++ b/1553/CH25/EX25.20/25Ex20.sce @@ -0,0 +1,10 @@ +//Ch25_Ex20
+clc;
+clear;
+close;
+r=21; h=28;
+slantH=sqrt(r^2+h^2); //slant height
+vol=(1/3)*(22/7)*r^2*h;
+curvedArea=(22/7)*r*slantH;
+totalArea=curvedArea+(22/7)*r^2;
+mprintf("Slant Height= %.0f cm\n Volume= %.0f cubic cm\n Curved Surface area= %.0f square cm\n Total surface area= %.0f square cm",slantH,vol,curvedArea,totalArea);
diff --git a/1553/CH25/EX25.21/25Ex21.sce b/1553/CH25/EX25.21/25Ex21.sce new file mode 100644 index 000000000..f0cdb3bbe --- /dev/null +++ b/1553/CH25/EX25.21/25Ex21.sce @@ -0,0 +1,10 @@ +//Ch25_Ex21
+clc;
+clear;
+close;
+
+r=7; h=24; w=1.25;
+l=sqrt(h^2+r^2);
+area=%pi*r*l;
+lengthCanvas=area/w;
+mprintf("The length of canvas is %.0f meter",lengthCanvas);
diff --git a/1553/CH25/EX25.22/25Ex22.sce b/1553/CH25/EX25.22/25Ex22.sce new file mode 100644 index 000000000..af547237f --- /dev/null +++ b/1553/CH25/EX25.22/25Ex22.sce @@ -0,0 +1,9 @@ +//Ch25_Ex22
+clc;
+clear;
+close;
+//since the heights are in in ratio 1:2 and perimeter in ratio 3:4;
+//let ratio of radii be ratioR
+ratioR=(4/3); ratioH=1/2
+ratioV=((1/3)*%pi*ratioH)/((1/3)*%pi*ratioR);
+mprintf("The ratio of their volumes is %.2f",ratioV);
diff --git a/1553/CH25/EX25.23/25Ex23.sce b/1553/CH25/EX25.23/25Ex23.sce new file mode 100644 index 000000000..2b2f99a2c --- /dev/null +++ b/1553/CH25/EX25.23/25Ex23.sce @@ -0,0 +1,10 @@ +//Ch25_Ex23
+clc;
+clear;
+close;
+//since the radii are in in ratio 3:4 and heights in ratio 2:3;
+//let ratio of radii be ratioR
+ratioR=(3/4); ratioH=2/3;
+ratioV=(%pi*ratioH*ratioR^2)/((1/3)*%pi);
+mprintf("The ratio of their volumes is %.2f",ratioV);
+
diff --git a/1553/CH25/EX25.24/25Ex24.sce b/1553/CH25/EX25.24/25Ex24.sce new file mode 100644 index 000000000..cafd13235 --- /dev/null +++ b/1553/CH25/EX25.24/25Ex24.sce @@ -0,0 +1,8 @@ +//Ch25_Ex24
+clc;
+clear;
+close;
+r1=12; h1=50; r2=10;
+vol=(1/3)*(22/7)*r1^2*h1;
+h2=vol/((22/7)*r2^2);
+mprintf("The height to which liquid rises in cylindrical vessel is %.0f cm",h2);
diff --git a/1553/CH25/EX25.25/25Ex25.sce b/1553/CH25/EX25.25/25Ex25.sce new file mode 100644 index 000000000..f9c96f709 --- /dev/null +++ b/1553/CH25/EX25.25/25Ex25.sce @@ -0,0 +1,8 @@ +//Ch25_Ex25
+clc;
+clear;
+close;
+r=10.5;
+vol=(4/3)*(22/7)*r^3;
+surfaceArea=4*(22/7)*r^2;
+mprintf("Volume= %.0f cubic cm\n Surface Area=%.0f square cm",vol,surfaceArea);
diff --git a/1553/CH25/EX25.26/25Ex26.sce b/1553/CH25/EX25.26/25Ex26.sce new file mode 100644 index 000000000..d95b1fb9a --- /dev/null +++ b/1553/CH25/EX25.26/25Ex26.sce @@ -0,0 +1,13 @@ +//Ch25_Ex26
+clc;
+clear;
+close;
+increasedR=50/100;
+newR=1+increasedR;
+originalVol=(4/3)*%pi; //this formula excludes the term R since it is not given and it gets cancelled with denominator
+newVol=(4/3)*%pi*newR^3;
+originalArea=4*%pi;
+newArea=4*%pi*newR^2;
+percentIncVol=(newVol-originalVol)/originalVol;//percent increase in volume
+percentIncSurArea=(newArea-originalArea)/originalArea;
+mprintf("The increase in volume is %.1f percent and the increase in surface area is %.0f percent",percentIncVol*100,percentIncSurArea*100);
diff --git a/1553/CH25/EX25.27/25Ex27.sce b/1553/CH25/EX25.27/25Ex27.sce new file mode 100644 index 000000000..e44e23630 --- /dev/null +++ b/1553/CH25/EX25.27/25Ex27.sce @@ -0,0 +1,10 @@ +//Ch25_Ex27
+clc;
+clear;
+close;
+dl=1; rl=dl/2; //diameter and radius of lead ball
+ds=12; rs=ds/2;//diamerer and radius of sphere
+volS=(4/3)*%pi*rs^3;
+volL=(4/3)*%pi*rl^3;
+noBalls=volS/volL;
+mprintf("THe number of lead balls are %d",noBalls);
diff --git a/1553/CH25/EX25.28/25Ex28.sce b/1553/CH25/EX25.28/25Ex28.sce new file mode 100644 index 000000000..3839a4c4f --- /dev/null +++ b/1553/CH25/EX25.28/25Ex28.sce @@ -0,0 +1,10 @@ +//Ch25_Ex28
+clc;
+clear;
+close;
+db=1.5; rb=db/2; //diameter and radius of bullet
+rc=6; hc=28;//radius and height of cylinder
+volC=%pi*rc^2*hc;
+volB=(4/3)*%pi*rb^3;
+noBullets=volC/volB;
+mprintf("THe number of bullets are %d",noBullets);
diff --git a/1553/CH25/EX25.29/25Ex29.sce b/1553/CH25/EX25.29/25Ex29.sce new file mode 100644 index 000000000..b690bf440 --- /dev/null +++ b/1553/CH25/EX25.29/25Ex29.sce @@ -0,0 +1,9 @@ +//Ch25_Ex29
+clc;
+clear;
+close;
+dw=4; rw=dw/2; //diameter and radius wire
+ds=18; rs=ds/2;//diamerer and radius of sphere
+volS=(4/3)*%pi*rs^3;
+hw=volS/(%pi*rw^2);
+mprintf("THe length of wire is %.0f m",hw);
diff --git a/1553/CH25/EX25.3/25Ex3.sce b/1553/CH25/EX25.3/25Ex3.sce new file mode 100644 index 000000000..49c721c72 --- /dev/null +++ b/1553/CH25/EX25.3/25Ex3.sce @@ -0,0 +1,16 @@ +//Ch25_Ex3
+clc;
+clear;
+close;
+volume=12.8; //Given
+x=poly(3,"x");
+40*x*5*x*x==12.8; //volume=l*b*h and l=40*x, h=5*x, b=x
+
+//polynomial is 200*x^3-12.8=0;
+//let s=x^3
+s=12.8/200;
+s=nthroot(s,3);
+
+b=s*100; //converting meter into centimeter
+printf("The breadth is: %d cm",b);
+
diff --git a/1553/CH25/EX25.30/25Ex30.sce b/1553/CH25/EX25.30/25Ex30.sce new file mode 100644 index 000000000..bbbe2383e --- /dev/null +++ b/1553/CH25/EX25.30/25Ex30.sce @@ -0,0 +1,8 @@ +//Ch25_Ex30
+clc;
+clear;
+close;
+h1=4.1; h2=4.3; r=2.1
+volS=(1/3)*%pi*r^2*(h1+h2);
+R=nthroot(volS/((4/3)*%pi),3);
+mprintf("The diameter of sphere is %.1f cm",R*2);
diff --git a/1553/CH25/EX25.32/25Ex32.sce b/1553/CH25/EX25.32/25Ex32.sce new file mode 100644 index 000000000..8e4881b5e --- /dev/null +++ b/1553/CH25/EX25.32/25Ex32.sce @@ -0,0 +1,9 @@ +//Ch25_Ex32
+clc;
+clear;
+close;
+r=10.5;
+vol=(2/3)*(22/7)*r^3;
+curved=2*(22/7)*r^2;
+total=3*(22/7)*r^2;
+mprintf("Volume=%.1f cubic cm\n Curved surface area=%.0f square cm\n Total surface area=%.1f square cm",vol,curved,total);
diff --git a/1553/CH25/EX25.33/25Ex33.sce b/1553/CH25/EX25.33/25Ex33.sce new file mode 100644 index 000000000..85a55b9f4 --- /dev/null +++ b/1553/CH25/EX25.33/25Ex33.sce @@ -0,0 +1,9 @@ +//Ch25_Ex33
+clc;
+clear;
+close;
+r1=9; d2=3; r2=d2/2; h=4;
+volBowl=(2/3)*%pi*r1^3;
+vol1bottle=(%pi)*r2^2*h;
+noBottles=volBowl/vol1bottle;
+mprintf("The number of bottles required are %.0f",noBottles);
diff --git a/1553/CH25/EX25.4/25Ex4.sce b/1553/CH25/EX25.4/25Ex4.sce new file mode 100644 index 000000000..8770bb920 --- /dev/null +++ b/1553/CH25/EX25.4/25Ex4.sce @@ -0,0 +1,14 @@ +//Ch25 Ex 4
+clc;
+clear;
+close;
+
+lb=24; bb=12; hb=8; //dimensions of brick
+lw=2400; bw=800; hw=60; //converting meter to centimeter
+mortar=10/100;
+remaining=1-mortar;
+volWall=lw*bw*hw;
+volBricks=remaining*(volWall);
+vol1brick=lb*bb*hb; //volume of 1 brick
+noBricks=volBricks/vol1brick; //number of bricks required
+mprintf("The number od=f bricks required are %d",noBricks);
diff --git a/1553/CH25/EX25.5/25Ex5.sce b/1553/CH25/EX25.5/25Ex5.sce new file mode 100644 index 000000000..bd5157127 --- /dev/null +++ b/1553/CH25/EX25.5/25Ex5.sce @@ -0,0 +1,13 @@ +//Ch25_Ex5
+clc;
+clear;
+close;
+lt=200; bt=150; //dimensions of tank
+lp=1.5; bp=1.25; //dimensions of pipe
+rise=2
+speed=20*1000/60; //converting speed into meter/min
+volreq=lt*bt*rise;
+length1min=speed*1; //length of water column flown in 1 min
+vol1min=lp*bp*length1min;
+time=volreq/vol1min;
+mprintf("The time required is %d min",time);
diff --git a/1553/CH25/EX25.6/25Ex6.sce b/1553/CH25/EX25.6/25Ex6.sce new file mode 100644 index 000000000..bf00c0da5 --- /dev/null +++ b/1553/CH25/EX25.6/25Ex6.sce @@ -0,0 +1,10 @@ +//Chapter 25 Ex 6
+clc;
+clear;
+close;
+ExtVol=50*40*23; //given
+IntVol=44*34*20; //given
+Metal_vol=ExtVol-IntVol;
+
+Weight=(Metal_vol*0.5)/1000;
+printf("Weight of box is %2.2f kg",Weight);
diff --git a/1553/CH25/EX25.7/25Ex7.sce b/1553/CH25/EX25.7/25Ex7.sce new file mode 100644 index 000000000..e75d26196 --- /dev/null +++ b/1553/CH25/EX25.7/25Ex7.sce @@ -0,0 +1,8 @@ +//Chapter 25 Ex 7
+clc;
+clear;
+close;
+a=(6*sqrt(3))/sqrt(3);...//since diagonal of a cube=sqrt(3)*side;
+Volume=a^3;
+Sur_area=6*a^2;
+printf("The volume of cube is %d cubic meter \n Surface area is %d centimeter square.",Volume,Sur_area);
diff --git a/1553/CH25/EX25.8/25Ex8.sce b/1553/CH25/EX25.8/25Ex8.sce new file mode 100644 index 000000000..ed01d0bc6 --- /dev/null +++ b/1553/CH25/EX25.8/25Ex8.sce @@ -0,0 +1,9 @@ +//chapter 25 ex 8
+clc;
+clear;
+close;
+
+a=sqrt(1734/6); //given surface area=1734 and by formula surface area=6*a^2
+
+volume=a^3;
+printf("The volume of cube is %d cubic cm",volume);
diff --git a/1553/CH25/EX25.9/25Ex9.sce b/1553/CH25/EX25.9/25Ex9.sce new file mode 100644 index 000000000..8b6383c82 --- /dev/null +++ b/1553/CH25/EX25.9/25Ex9.sce @@ -0,0 +1,11 @@ +//chapter 25 EX 9
+clc;
+clear;
+close;
+l=6; b=12; h=15;
+volume=l*b*h;
+
+side_largest=gcd(int32([l b h])); //side of largest cube
+vol_largestcube=side_largest^3;
+num_of_cubes=volume/vol_largestcube;
+printf("The least possible cubes are %d",(volume/vol_largestcube));
diff --git a/1553/CH26/EX26.1/26Ex1.sce b/1553/CH26/EX26.1/26Ex1.sce new file mode 100644 index 000000000..abaf83e08 --- /dev/null +++ b/1553/CH26/EX26.1/26Ex1.sce @@ -0,0 +1,11 @@ +//chapter 26 Ex 1
+
+clc;
+clear;
+close;
+Dist=28; t=7;
+Btime=(t/Dist)*1000;
+Atime=Btime-t;
+Atime_min=(round(Atime/60));
+Atime_sec=(modulo(Atime,240));
+printf("Time of A over course is %d min %d sec",Atime_min,Atime_sec);
diff --git a/1553/CH26/EX26.2/26Ex2.sce b/1553/CH26/EX26.2/26Ex2.sce new file mode 100644 index 000000000..91a06a065 --- /dev/null +++ b/1553/CH26/EX26.2/26Ex2.sce @@ -0,0 +1,9 @@ +//Chapter 27 Ex2
+clc;
+clear;
+close;
+ //the ratio of their distances is 7: 4 thus assuming dist of A as 7, dist of B is3
+ distA=7; distB=3; //from given conditions
+ gain=84;
+ distPost=gain/(distB/distA);
+ mprintf("The pole must be placed %.0f meter away from starting point",distPost);
diff --git a/1553/CH26/EX26.3/26Ex3.sce b/1553/CH26/EX26.3/26Ex3.sce new file mode 100644 index 000000000..e81ec9910 --- /dev/null +++ b/1553/CH26/EX26.3/26Ex3.sce @@ -0,0 +1,9 @@ +//Chapter 26 Ex 3
+
+clc;
+close;
+clear;
+t1=190; t2=200; //converted into seconds
+dist1=1000; //converted into kilometers
+dist2=(dist1*(t2-t1))/t2;
+mprintf("A beats B by %d meters",dist2);
diff --git a/1553/CH26/EX26.4/26Ex4.sce b/1553/CH26/EX26.4/26Ex4.sce new file mode 100644 index 000000000..81a617971 --- /dev/null +++ b/1553/CH26/EX26.4/26Ex4.sce @@ -0,0 +1,13 @@ +//Chapter 26 Ex 4
+
+clc;
+close;
+clear;
+dist=100;
+speedA=(8*1000)/(60*60); //converted into meter/second
+tA=dist/speedA;
+ahead=4; tbeat=15;...//if B starts 4 meters ahead od A then also A beats B by 15 seconds
+Bcover=dist-ahead;
+tB=tA+tbeat;
+speedB=(Bcover/tB);
+mprintf("The speed of B is %.2f km/hr",(speedB*60*60)/1000);
diff --git a/1553/CH26/EX26.5/26Ex5.sce b/1553/CH26/EX26.5/26Ex5.sce new file mode 100644 index 000000000..6f1242977 --- /dev/null +++ b/1553/CH26/EX26.5/26Ex5.sce @@ -0,0 +1,11 @@ +//Chapter 26 Ex5
+clc;
+clear;
+close;
+lagBA=40; lagCA=64; //distance B and C are lagging from A
+//assuming A covers 1000 m
+A=1000;
+B=A-lagBA; //from given condition
+C=A-lagCA;
+lagCB=A*(C/B); //Distance C is lagging from B
+mprintf("B should give C a start of %.0f meter",A-lagCB);
diff --git a/1553/CH29/EX29.1/29Ex1.sce b/1553/CH29/EX29.1/29Ex1.sce new file mode 100644 index 000000000..613876a3c --- /dev/null +++ b/1553/CH29/EX29.1/29Ex1.sce @@ -0,0 +1,23 @@ +//Chapter 29 Ex 1
+
+clc;
+clear;
+close;
+
+//(a)
+facevalue=90;
+marketvalue=100;
+cost1=7200*(facevalue/marketvalue);
+mprintf("Cost of Rs.7200 stock is Rs %d",cost1);
+
+//(b)
+marketvalue=100; premium=4;
+facevalue=marketvalue+premium;
+cost2=4500*(facevalue/marketvalue);
+mprintf("\n Cost of Rs.4500 stock is Rs %d",cost2);
+
+//(c)
+marketvalue=100; discount=15;
+facevalue=marketvalue-discount;
+cost3=6400*(facevalue/marketvalue);
+mprintf("\n Cost of Rs.6400 stock is Rs %d",cost3);
diff --git a/1553/CH29/EX29.10/29Ex10.sce b/1553/CH29/EX29.10/29Ex10.sce new file mode 100644 index 000000000..b82dd70c7 --- /dev/null +++ b/1553/CH29/EX29.10/29Ex10.sce @@ -0,0 +1,16 @@ +//Chapter 29 Ex10
+clc;
+clear;
+close;
+facevalue=100;
+sellAmt=5000;
+stock1=12/100;
+marketvalue1=156;
+stock2=8; stock3=9; //the 2 stocks at which the man invests
+marketvalue2=90; marketvalue3=108;
+increaseIncome=70;
+SPsellAmt=sellAmt*(marketvalue1/facevalue);
+income=(stock1*sellAmt);
+investStock2=(income+increaseIncome-(SPsellAmt*(stock3/marketvalue3)))/(stock2/marketvalue2-(stock3/marketvalue3));
+investStock3=SPsellAmt-investStock2;
+mprintf("The money invested at %.0f stock is Rs.%.0f\n and the money invested at %d stock is Rs.%.0f",stock2,investStock2,stock3,investStock3);
diff --git a/1553/CH29/EX29.2/29Ex2.sce b/1553/CH29/EX29.2/29Ex2.sce new file mode 100644 index 000000000..dbcf144b1 --- /dev/null +++ b/1553/CH29/EX29.2/29Ex2.sce @@ -0,0 +1,12 @@ +//Chapter 29 Ex2
+clc;
+clear;
+close;
+
+facevalue=100; //since the stock is calculated over 100
+marketvalue=107; //given
+brokerage=1/2; //value is in percentage
+purchaseAmt=3200;
+cashfacevalue=marketvalue+brokerage; //cash required to purchase Rs.100 stock
+cashpurchaseAmt= cashfacevalue*purchaseAmt/facevalue;
+mprintf("The cash required to purchase Rs.3200 stock is Rs.%.0f",cashpurchaseAmt);
diff --git a/1553/CH29/EX29.3/29Ex3.sce b/1553/CH29/EX29.3/29Ex3.sce new file mode 100644 index 000000000..b88c6f043 --- /dev/null +++ b/1553/CH29/EX29.3/29Ex3.sce @@ -0,0 +1,12 @@ +//Chapter 29 Ex3
+clc;
+clear;
+close;
+
+facevalue=100; //since the stock is calculated over 100
+discount=4;
+brokerage=1/4; //value is in percentage
+purchaseAmt=2400;
+cashfacevalue=facevalue-discount-brokerage; //cash required to purchase Rs.100 stock
+cashpurchaseAmt= cashfacevalue*purchaseAmt/facevalue;
+mprintf("The cash required to purchase Rs.2400 stock is Rs.%.0f",cashpurchaseAmt);
diff --git a/1553/CH29/EX29.4/29Ex4.sce b/1553/CH29/EX29.4/29Ex4.sce new file mode 100644 index 000000000..a1e10e1f2 --- /dev/null +++ b/1553/CH29/EX29.4/29Ex4.sce @@ -0,0 +1,12 @@ +//Chapter 29 Ex4
+clc;
+clear;
+close;
+
+facevalue=100; //since the stock is calculated over 100
+marketvalue=106; //given
+stock=8; //value is in percentage
+purchaseAmt=2500;
+incomefacevalue=stock; //since the income is directly calculated on stock
+incomepurchaseAmt= incomefacevalue*purchaseAmt/facevalue;
+mprintf("The cash required to purchase Rs.2500 stock is Rs.%.0f",incomepurchaseAmt);
diff --git a/1553/CH29/EX29.5/29Ex5.sce b/1553/CH29/EX29.5/29Ex5.sce new file mode 100644 index 000000000..1a83de248 --- /dev/null +++ b/1553/CH29/EX29.5/29Ex5.sce @@ -0,0 +1,12 @@ +//Chapter 29 Ex5
+clc;
+clear;
+close;
+
+facevalue=100; //since the stock is calculated over 100
+marketvalue=136; //given
+stock=10; //value is in percentage
+investAmt=6800;
+incomemarketvalue=stock; //since the income is directly calculated on stock
+incomeinvestAmt= incomemarketvalue*investAmt/marketvalue;
+mprintf("The income obtained by investing Rs.6800 is Rs.%.0f",incomeinvestAmt);
diff --git a/1553/CH29/EX29.6/29Ex6.sce b/1553/CH29/EX29.6/29Ex6.sce new file mode 100644 index 000000000..957da247a --- /dev/null +++ b/1553/CH29/EX29.6/29Ex6.sce @@ -0,0 +1,28 @@ +//Chapter 29 Ex5
+clc;
+clear;
+close;
+
+facevalue=100; //since the stock is calculated over 100
+marketvalue1=105; //given
+stock1=15/2; //value is in percentage
+
+marketvalue2=94; //given
+stock2=13/2; //value is in percentage
+
+investAmt=marketvalue1*marketvalue2;
+
+
+incomemarketvalue1=stock1; //since the income is directly calculated on stock
+incomeinvestAmt1= incomemarketvalue1*investAmt/marketvalue1;
+
+
+incomemarketvalue2=stock2; //since the income is directly calculated on stock
+incomeinvestAmt2= incomemarketvalue2*investAmt/marketvalue2;
+mprintf("The incomes are Rs.%.0f and Rs.%.2f",incomeinvestAmt1,incomeinvestAmt2);
+if (incomeinvestAmt1>incomeinvestAmt2) then
+ mprintf("\n Thus the income obtained from %.2f stock at %.0f is more",stock1,marketvalue1);
+else
+ mprintf("\n Thus the income obtained from %.2f stock at %.0f is more",stock2,marketvalue2);
+end
+
diff --git a/1553/CH29/EX29.7/29Ex7.sce b/1553/CH29/EX29.7/29Ex7.sce new file mode 100644 index 000000000..6762c97a7 --- /dev/null +++ b/1553/CH29/EX29.7/29Ex7.sce @@ -0,0 +1,13 @@ +//Chapter 29 Ex7
+clc;
+clear;
+close;
+
+facevalue=10; //since the stock is calculated over 100
+discount=3/4;
+brokerage=1/4;
+shares=96;
+
+cost1share=facevalue-discount+brokerage; //cash required to purchase Rs.100 stock
+costshares= cost1share*shares;
+mprintf("The cost of %.0f shares is Rs.%.0f",shares,costshares);
diff --git a/1553/CH29/EX29.8/29Ex8.sce b/1553/CH29/EX29.8/29Ex8.sce new file mode 100644 index 000000000..8a90d05fe --- /dev/null +++ b/1553/CH29/EX29.8/29Ex8.sce @@ -0,0 +1,21 @@ +//Chapter 29 Ex8
+clc;
+clear;
+close;
+
+facevalue=25;
+premium=5;
+brokerage=1/4;
+shares=88;
+rateDividend=(15/2)/100; //rate is in percentage hence divided by 100
+investment=2662;
+
+cost1share=facevalue+premium+brokerage; //cash required to purchase Rs.100 stock
+costshares= cost1share*shares;
+facevalueAllShares=shares*facevalue;
+dividendAllShares=facevalueAllShares*rateDividend;
+income=dividendAllShares;
+
+rateInterest=(income/investment)*100;
+
+mprintf("The rate of interest on investment is Rs.%.1f percent",rateInterest);
diff --git a/1553/CH29/EX29.9/29Ex9.sce b/1553/CH29/EX29.9/29Ex9.sce new file mode 100644 index 000000000..a8c49fdb6 --- /dev/null +++ b/1553/CH29/EX29.9/29Ex9.sce @@ -0,0 +1,10 @@ +//Chapter 29 Ex9
+clc;
+clear;
+close;
+
+shares=25;
+rateDividend=9/100;
+rateInterest=10/100;
+price1share=(shares*rateDividend)/rateInterest;
+mprintf("The price of each share is Rs.%.2f",price1share);
diff --git a/1553/CH3/EX3.10/3Ex10.sce b/1553/CH3/EX3.10/3Ex10.sce new file mode 100644 index 000000000..89d68940f --- /dev/null +++ b/1553/CH3/EX3.10/3Ex10.sce @@ -0,0 +1,11 @@ +//chapter 3 Ex 10
+clc;
+clear;
+close;
+//let value to be found is x, y and z
+x=0.63/9;
+y=.0204/17;
+z=3.1603/13;
+mprintf("(i)x=%.2f",x);
+mprintf("\n(ii)y=%.4f",y);
+mprintf("\n(iii)z=%.4f",z);
diff --git a/1553/CH3/EX3.11/3Ex11.sce b/1553/CH3/EX3.11/3Ex11.sce new file mode 100644 index 000000000..aea9e36a7 --- /dev/null +++ b/1553/CH3/EX3.11/3Ex11.sce @@ -0,0 +1,11 @@ +//chapter 3 Ex 11
+clc;
+clear;
+close;
+//let value to be found is x, y and z
+x=35/0.07;
+y=2.5/.0005;
+z=136.09/43.9;
+mprintf("(i)x=%.0f",x);
+mprintf("\n(ii)y=%.0f",y);
+mprintf("\n(iii)z=%.1f",z);
diff --git a/1553/CH3/EX3.12/3Ex12.sce b/1553/CH3/EX3.12/3Ex12.sce new file mode 100644 index 000000000..756fd90b2 --- /dev/null +++ b/1553/CH3/EX3.12/3Ex12.sce @@ -0,0 +1,11 @@ +//chapter 3 Ex 12
+clc;
+clear;
+close;
+//let value to be found is x and y
+x=0.006/.6;
+y=80*.025;
+
+mprintf("(i)x=%.2f",x);
+mprintf("\n(ii)y=%.0f",y);
+
diff --git a/1553/CH3/EX3.13/3Ex13.sce b/1553/CH3/EX3.13/3Ex13.sce new file mode 100644 index 000000000..92e242f6f --- /dev/null +++ b/1553/CH3/EX3.13/3Ex13.sce @@ -0,0 +1,7 @@ +//chapter 3 Ex 13
+clc;
+clear;
+close;
+//let value to be found is x
+x=1/0.0003718;
+mprintf("x=%d",x);
diff --git a/1553/CH3/EX3.16/3Ex16.sce b/1553/CH3/EX3.16/3Ex16.sce new file mode 100644 index 000000000..959d738d1 --- /dev/null +++ b/1553/CH3/EX3.16/3Ex16.sce @@ -0,0 +1,9 @@ +//chapter 3 Ex 16
+clc;
+clear;
+close;
+//let value to be found is x
+numerator=0.05^3+0.04^3;
+denominator=0.05^2-.05*.04+.04^2;
+x=(numerator/denominator);
+mprintf("x=%.2f",x);
diff --git a/1553/CH3/EX3.2/3Ex2.sce b/1553/CH3/EX3.2/3Ex2.sce new file mode 100644 index 000000000..c9f73aa12 --- /dev/null +++ b/1553/CH3/EX3.2/3Ex2.sce @@ -0,0 +1,8 @@ +//chapter 3 Ex2
+clc;
+clear;
+close;
+n1=5/8; n2=7/12; n3=13/16; n4=16/29; n5=3/4;
+V=[n1 n2 n3 n4 n5];
+V=gsort(V,'lc','i');
+mprintf("%.2f < %.2f< %.2f < %.2f < %.2f",V(1),V(2),V(3),V(4),V(5));
diff --git a/1553/CH3/EX3.3/3Ex3.sce b/1553/CH3/EX3.3/3Ex3.sce new file mode 100644 index 000000000..6b6cf19e7 --- /dev/null +++ b/1553/CH3/EX3.3/3Ex3.sce @@ -0,0 +1,8 @@ +//chapter 3 Ex3
+clc;
+clear;
+close;
+n1=3/5; n2=4/7; n3=8/9; n4=9/11;
+V=[n1 n2 n3 n4];
+V=gsort(V,'lc','i');
+mprintf("%.2f > %.2f> %.2f > %.2f",V(4),V(3),V(2),V(1));
diff --git a/1553/CH3/EX3.4/3Ex4.sce b/1553/CH3/EX3.4/3Ex4.sce new file mode 100644 index 000000000..beea81d97 --- /dev/null +++ b/1553/CH3/EX3.4/3Ex4.sce @@ -0,0 +1,9 @@ +//chapter 3 Ex 4
+clc;
+clear;
+close;
+//let value to be found is x and y
+x=6202.5+620.25+62.025+6.2025+0.62025;
+y=5.064+3.98+.7036+7.6+.3+2;
+mprintf("(i) x=%.5f",x);
+mprintf("\n(ii) y=%.5f",y);
diff --git a/1553/CH3/EX3.5/3Ex5.sce b/1553/CH3/EX3.5/3Ex5.sce new file mode 100644 index 000000000..cbeaac9c4 --- /dev/null +++ b/1553/CH3/EX3.5/3Ex5.sce @@ -0,0 +1,9 @@ +//chapter 3 Ex 5
+clc;
+clear;
+close;
+//let value to be found is x and y
+x=31.004-17.2386;
+y=13-5.1967;
+mprintf("(i) x=%.5f",x);
+mprintf("\n(ii) y=%.5f",y)
diff --git a/1553/CH3/EX3.6/3Ex6.sce b/1553/CH3/EX3.6/3Ex6.sce new file mode 100644 index 000000000..7ea454724 --- /dev/null +++ b/1553/CH3/EX3.6/3Ex6.sce @@ -0,0 +1,10 @@ +//chapter 3 Ex 6
+clc;
+clear;
+close;
+//let value to be found is x and y
+x=9318.678-5172.49-378.352;
+y=5169.38+7328.96;
+
+mprintf("(i) x=%.3f",x);
+mprintf("\n(ii) y=%.2f",y)
diff --git a/1553/CH3/EX3.7/3Ex7.sce b/1553/CH3/EX3.7/3Ex7.sce new file mode 100644 index 000000000..6edf8cb92 --- /dev/null +++ b/1553/CH3/EX3.7/3Ex7.sce @@ -0,0 +1,9 @@ +//chapter 3 Ex 7
+clc;
+clear;
+close;
+//let value to be found is x and y
+x=6.3204*100;
+y=.069*10000;
+mprintf("(i) x=%.2f",x);
+mprintf("\n(ii) y=%.0f",y)
diff --git a/1553/CH3/EX3.8/3Ex8.sce b/1553/CH3/EX3.8/3Ex8.sce new file mode 100644 index 000000000..9ca5b7b25 --- /dev/null +++ b/1553/CH3/EX3.8/3Ex8.sce @@ -0,0 +1,11 @@ +//chapter 3 Ex 8
+clc;
+clear;
+close;
+//let value to be found is x, y and z
+x=2.61*1.3;
+y=2.1693*1.4;
+z=0.4*.04*.004*40;
+mprintf("(i) x=%.3f",x);
+mprintf("\n(ii) y=%.5f",y);
+mprintf("\n(iii)z=%.5f",z)
diff --git a/1553/CH3/EX3.9/3Ex9.sce b/1553/CH3/EX3.9/3Ex9.sce new file mode 100644 index 000000000..51b5c26f8 --- /dev/null +++ b/1553/CH3/EX3.9/3Ex9.sce @@ -0,0 +1,7 @@ +//chapter 3 Ex 9
+clc;
+clear;
+close;
+//let value to be found is x
+x=2.68*.74;
+mprintf("x=%.4f",x);
diff --git a/1553/CH30/EX30.1/30Ex1.sce b/1553/CH30/EX30.1/30Ex1.sce new file mode 100644 index 000000000..a4a076160 --- /dev/null +++ b/1553/CH30/EX30.1/30Ex1.sce @@ -0,0 +1,8 @@ +//Chapter 30 Ex 1
+
+clc;
+close;
+clear;
+n1=30; n2=28;
+ans=factorial(30)/factorial(28);
+mprintf("The value of expression is %d",ans);
diff --git a/1553/CH30/EX30.2/30Ex2.sce b/1553/CH30/EX30.2/30Ex2.sce new file mode 100644 index 000000000..89057a137 --- /dev/null +++ b/1553/CH30/EX30.2/30Ex2.sce @@ -0,0 +1,9 @@ +//Chapter 30 Ex2
+clc;
+clear;
+close;
+ //(i)
+ n1=60; r1=3; n2=4; r2=4;
+ f1=factorial(n1)/factorial(n1-r1);
+ f2=factorial(n2)/factorial(n2-r2);
+ mprintf("(i) 60P3=%d\n (ii)4P4=%d",f1,f2);
diff --git a/1553/CH30/EX30.3/30Ex3.sce b/1553/CH30/EX30.3/30Ex3.sce new file mode 100644 index 000000000..8a5fc0465 --- /dev/null +++ b/1553/CH30/EX30.3/30Ex3.sce @@ -0,0 +1,19 @@ +//Chapter 30 Ex 3
+
+clc;
+clear;
+close;
+
+//(i)
+n1=10; r1=3;
+C1=factorial(n1)/(factorial(r1)*factorial(n1-r1));
+
+//(ii)
+n2=100; r2=98;
+C2=factorial(n2)/(factorial(r2)*factorial(n2-r2));
+
+//(iii)
+n3=50; r3=50;
+C3=factorial(n3)/(factorial(r3)*factorial(n3-r3));
+
+mprintf("10C3=%d \n 100C98=%d \n 50C50=%d",C1,C2,C3);
diff --git a/1553/CH30/EX30.4/30Ex4.sce b/1553/CH30/EX30.4/30Ex4.sce new file mode 100644 index 000000000..29054baae --- /dev/null +++ b/1553/CH30/EX30.4/30Ex4.sce @@ -0,0 +1,10 @@ +//Chapter 30 Ex4
+clc;
+clear;
+close;
+
+S={'B','I','H','A','R'};
+sizeS=size(S,"c");
+reqLetters=sizeS; //since all the letters are required
+noWords=factorial(sizeS)/factorial(sizeS-reqLetters);
+mprintf("The required number of words are %.0f",noWords);
diff --git a/1553/CH30/EX30.5/30Ex5.sce b/1553/CH30/EX30.5/30Ex5.sce new file mode 100644 index 000000000..7a2ff7323 --- /dev/null +++ b/1553/CH30/EX30.5/30Ex5.sce @@ -0,0 +1,14 @@ +//Chapter 30 Ex5
+clc;
+clear;
+close;
+
+S={'D','A','U','G','H','T','E','R'};
+sizeS=size(S,"c");
+n=6; //since there are 3 vowels, they are considered as 1 letter
+reqLetters=n; //since all the letters are required
+noLetters=factorial(n)/factorial(n-reqLetters);
+reqVowels=3; //since vowels are required to be together
+noWays=factorial(reqVowels); //no of ways in which vowels can be arranged together
+mprintf("The required number of words are %.0f",noLetters*noWays);
+
diff --git a/1553/CH30/EX30.6/30Ex6.sce b/1553/CH30/EX30.6/30Ex6.sce new file mode 100644 index 000000000..e8c47b045 --- /dev/null +++ b/1553/CH30/EX30.6/30Ex6.sce @@ -0,0 +1,15 @@ +//Chapter 30 Ex6
+clc;
+clear;
+close;
+
+S={'E','X','T','R','A'};
+sizeS=size(S,"c");
+n=4; //since there are 3 vowels, they are considered as 1 letter
+reqLetters=n; //since all the letters are required
+noLetters=factorial(n)/factorial(n-reqLetters);
+reqVowels=2; //since vowels are required to be together
+noWays=factorial(reqVowels); //no of ways in which vowels can be arranged together
+noWords=factorial(n)/factorial(n-reqLetters);
+noWordsAll=factorial(sizeS); //no of words using all letters
+mprintf("The required number of words having vowel together are %.0f\n The no of words having each vowel never together are %.0f",noWords*noWays,noWordsAll-noWords*noWays);
diff --git a/1553/CH30/EX30.7/30Ex7.sce b/1553/CH30/EX30.7/30Ex7.sce new file mode 100644 index 000000000..f1da7ab6c --- /dev/null +++ b/1553/CH30/EX30.7/30Ex7.sce @@ -0,0 +1,14 @@ +//Chapter 30 Ex7
+clc;
+clear;
+close;
+
+S={'D','I','R','E','C','T','O','R'};
+sizeS=size(S,"c");
+n=6;
+r=2; //since R occurs twice
+noWays=factorial(n)/factorial(r);
+Vowels=3;
+noWaysVowels=factorial(Vowels); //no of ways in which vowels can be arranged
+reqWays=noWaysVowels*noWays;
+mprintf("The required number of ways are %.0f",reqWays);
diff --git a/1553/CH30/EX30.8/30Ex8.sce b/1553/CH30/EX30.8/30Ex8.sce new file mode 100644 index 000000000..d220da288 --- /dev/null +++ b/1553/CH30/EX30.8/30Ex8.sce @@ -0,0 +1,8 @@ +//Chapter 30 Ex 8
+
+clc;
+clear;
+close;
+total=15; chosen=11;
+noways=factorial(total)/(factorial(chosen)*factorial(total-chosen));
+mprintf("The number of ways in which a cricket 11 be chosen out of a batch of 15 players is %d",noways);
diff --git a/1553/CH30/EX30.9/30Ex9.sce b/1553/CH30/EX30.9/30Ex9.sce new file mode 100644 index 000000000..a8b68c8d1 --- /dev/null +++ b/1553/CH30/EX30.9/30Ex9.sce @@ -0,0 +1,10 @@ +//Chapter 30 Ex 9
+
+clc;
+clear;
+close;
+men=6; mselect=3; ladies=5; lselect=2; //given
+menways=factorial(men)/(factorial(mselect)*factorial(men-mselect));
+ladiesway=factorial(ladies)/(factorial(lselect)*factorial(ladies-lselect));
+totways=menways*ladiesway;
+mprintf("A committee of 5 members consisting of 3 men and 2 ladies selected from 6 men and 5 ladies cen be choosen in %d ways",totways);
diff --git a/1553/CH31/EX31.1/31Ex1.sce b/1553/CH31/EX31.1/31Ex1.sce new file mode 100644 index 000000000..62134d567 --- /dev/null +++ b/1553/CH31/EX31.1/31Ex1.sce @@ -0,0 +1,10 @@ +//chapter 31 Ex 1
+
+clc;
+clear;
+close;
+S={'H','T'};
+E={'H'};
+sizeS=size(S,"c"); sizeE=size(E,"c");
+prob=sizeE/sizeS;
+printf("The probability of getting a head is %0.2f",prob);
diff --git a/1553/CH31/EX31.2/31Ex2.sce b/1553/CH31/EX31.2/31Ex2.sce new file mode 100644 index 000000000..786b67486 --- /dev/null +++ b/1553/CH31/EX31.2/31Ex2.sce @@ -0,0 +1,10 @@ +//chapter 24 Ex 2
+
+clc;
+clear;
+close;
+S={'HH','HT','TH','TT'};
+E={'TT','HT','TH'};
+sizeS=size(S,"c"); sizeE=size(E,"c");
+prob=sizeE/sizeS;
+printf("The probability of getting at most one head is %0.2f",prob);
diff --git a/1553/CH31/EX31.3/31Ex3.sce b/1553/CH31/EX31.3/31Ex3.sce new file mode 100644 index 000000000..ff35de1b1 --- /dev/null +++ b/1553/CH31/EX31.3/31Ex3.sce @@ -0,0 +1,10 @@ +//chapter 31 Ex 3
+
+clc;
+clear;
+close;
+S={'1','2','3','4','5','6'};
+E={'3','6'};
+sizeS=size(S,"c"); sizeE=size(E,"c");
+prob=sizeE/sizeS;
+printf("The probability of getting multiple of 3 is %0.2f",prob);
diff --git a/1553/CH31/EX31.4/31Ex4.sce b/1553/CH31/EX31.4/31Ex4.sce new file mode 100644 index 000000000..7c46ad158 --- /dev/null +++ b/1553/CH31/EX31.4/31Ex4.sce @@ -0,0 +1,11 @@ +//chapter 31 Ex 4
+
+clc;
+clear;
+close;
+
+E={'(2,6)','(3,5)','(3,6)','(4,4)','(4,5)','(4,6)','(5,3)','(5,4)','(5,5)','(5,6)','(6,2)','(6,3)','(6,4)','(6,5)','(6,6)'};
+sizeS=6*6; //rolling 2 dice
+sizeE=size(E,"c");
+prob=sizeE/sizeS;
+printf("The probability of getting total more than 7 is %0.3f",prob);
diff --git a/1553/CH31/EX31.5/31Ex5.sce b/1553/CH31/EX31.5/31Ex5.sce new file mode 100644 index 000000000..eae78e476 --- /dev/null +++ b/1553/CH31/EX31.5/31Ex5.sce @@ -0,0 +1,11 @@ +//chapter 31 Ex 5
+
+clc;
+clear;
+close;
+totalBalls=10; white=6; Black=4; random=2;
+
+sizeS= factorial(totalBalls)/(factorial(totalBalls-random)*factorial(random));
+sizeE=(factorial(white)/(factorial(white-random)*factorial(random)))+(factorial(Black)/(factorial(Black-random)*factorial(random)));
+prob=sizeE/sizeS;
+printf("The probability of getting both balls of same color is %0.2f",prob);
diff --git a/1553/CH31/EX31.6/31Ex6.sce b/1553/CH31/EX31.6/31Ex6.sce new file mode 100644 index 000000000..85435923e --- /dev/null +++ b/1553/CH31/EX31.6/31Ex6.sce @@ -0,0 +1,11 @@ +//chapter 31 Ex 6
+
+clc;
+clear;
+close;
+
+E={'(1,3)','(3,5)','(2,2)','(2,4)','(2,6)','(3,1)','(3,5)','(3,3)','(4,2)','(4,4)','(5,1)','(5,3)','(6,2)','(6,6)'};
+sizeS=6*6; //rolling 2 dice
+sizeE=size(E,"c");
+prob=sizeE/sizeS;
+printf("The probability that sum of numbers on 2 faces is divisible by 4 or 6 id is %0.3f",prob);
diff --git a/1553/CH31/EX31.7/31Ex7.sce b/1553/CH31/EX31.7/31Ex7.sce new file mode 100644 index 000000000..c27a54b46 --- /dev/null +++ b/1553/CH31/EX31.7/31Ex7.sce @@ -0,0 +1,15 @@ +//chapter 31 Ex 7
+
+clc;
+clear;
+close;
+totalCards=52; random=2; Black=26; queen=4;
+sizeS= factorial(totalCards)/(factorial(totalCards-random)*factorial(random));
+sizeE1=(factorial(Black)/(factorial(Black-random)*factorial(random)));
+sizeE2=(factorial(queen)/(factorial(queen-random)*factorial(random)));
+prob1=sizeE1/sizeS;
+prob2=sizeE2/sizeS;
+probBoth=prob1*prob2;
+
+probTotal=prob1+prob2-probBoth;
+printf("The probability that either both cards are black or both are queen is %0.3f",probTotal);
diff --git a/1553/CH32/EX32.1/32Ex1.sce b/1553/CH32/EX32.1/32Ex1.sce new file mode 100644 index 000000000..71eb0ac4b --- /dev/null +++ b/1553/CH32/EX32.1/32Ex1.sce @@ -0,0 +1,9 @@ +//Chapter 32 Ex 1
+
+clc;
+clear;
+close;
+amt=930; R=3; t=8;
+PW=(100*amt)/(100+(R*t));
+TD=amt-PW;
+mprintf("The present worth and true discount of Rs.930 due 3yrs at 8 percent per annum Rs %d and Rs %d",PW,TD);
diff --git a/1553/CH32/EX32.2/32Ex2.sce b/1553/CH32/EX32.2/32Ex2.sce new file mode 100644 index 000000000..d6d2f9929 --- /dev/null +++ b/1553/CH32/EX32.2/32Ex2.sce @@ -0,0 +1,9 @@ +//Chapter 32 Ex 2
+
+clc;
+close;
+clear;
+TD=540; t=9/12; r=12;
+amt=(TD*(100+(r*t)))/(r*t); //derived from formula true discount
+PW=amt-TD;
+mprintf("The amount of the bill and its present worth are Rs.%d and Rs.%d",amt,PW);
diff --git a/1553/CH32/EX32.3/32Ex3.sce b/1553/CH32/EX32.3/32Ex3.sce new file mode 100644 index 000000000..d4a9e55d9 --- /dev/null +++ b/1553/CH32/EX32.3/32Ex3.sce @@ -0,0 +1,9 @@ +//Chapter 32 Ex 3
+
+clc;
+close;
+clear;
+TD=250; SI= 375; t=3;
+sumdue=(SI*TD)/(SI-TD);
+R=(100*SI)/(sumdue*t);
+mprintf("The sum and the rate are Rs.%d and %.2f percent",sumdue,R);
diff --git a/1553/CH32/EX32.4/32Ex4.sce b/1553/CH32/EX32.4/32Ex4.sce new file mode 100644 index 000000000..7d0bea3af --- /dev/null +++ b/1553/CH32/EX32.4/32Ex4.sce @@ -0,0 +1,14 @@ +//Chapter 32 Ex 4
+
+clc;
+close;
+clear;
+t=6/12; r=25/2; dif=25;
+// after solving equation of difference between SI and TD considering amount as x we get (x/16)-(x/17)=25 and solving it
+for x=1:7000
+ if ((x/16)-(x/17))==25
+ break;
+ end
+end
+mprintf("The sum is Rs.%d",x);
+
diff --git a/1553/CH32/EX32.5/32Ex5.sce b/1553/CH32/EX32.5/32Ex5.sce new file mode 100644 index 000000000..486612b51 --- /dev/null +++ b/1553/CH32/EX32.5/32Ex5.sce @@ -0,0 +1,12 @@ +//Chapter 32 Ex 5
+
+clc;
+close;
+clear;
+//according to prob statement and forming the equation considering sum as x we get (x/2)+(2x/5)-(8x/9)=40 and solving equation
+for x=1:5000
+ if (x/2)+((2*x)/5)-((8*x)/9)==40
+ break;
+ end
+end
+mprintf("The amount of the bill is Rs %d",x);
diff --git a/1553/CH33/EX33.1/33Ex1.sce b/1553/CH33/EX33.1/33Ex1.sce new file mode 100644 index 000000000..99ac60a15 --- /dev/null +++ b/1553/CH33/EX33.1/33Ex1.sce @@ -0,0 +1,12 @@ +//Chapter 33 Ex 1
+clc;
+clear;
+close;
+facevalue=6000; rate=10/100;
+//calculating unexpired time, 26 days (october 31-october 5)+30 days (november)+ 17 days (december)
+unexpiredTime=1/5; //converting 73 days into years
+bd=facevalue*unexpiredTime*rate; //banker's discount
+td=bd/(1+(unexpiredTime*rate)); //true discount
+bg=bd-td; //banker's gain
+money=facevalue-bd;
+mprintf("The bankers discount is Rs.%.0f\n The true discount is Rs.%.2f\n The bankers gain is Rs.%.2f\n The money received by holder of bill is Rs.%.0f",bd,td,bg,money);
diff --git a/1553/CH33/EX33.2/33Ex2.sce b/1553/CH33/EX33.2/33Ex2.sce new file mode 100644 index 000000000..ca126fe9f --- /dev/null +++ b/1553/CH33/EX33.2/33Ex2.sce @@ -0,0 +1,9 @@ +//Chapter 33 Ex 2
+
+clc;
+clear;
+close;
+TD=120; rate=15/100; t=1/2; //given
+BG=TD*rate*t; //banker's gain
+BD=TD+BG; //banker's discount
+mprintf("The bankers discount is Rs %d",BD);
diff --git a/1553/CH33/EX33.3/33Ex3.sce b/1553/CH33/EX33.3/33Ex3.sce new file mode 100644 index 000000000..421cc2899 --- /dev/null +++ b/1553/CH33/EX33.3/33Ex3.sce @@ -0,0 +1,9 @@ +//Chapter 33 Ex3
+clc;
+clear;
+close;
+bd=1800;rate=12/100; facevalue=1872;
+//SI on 1800=TD on 1872
+PW=facevalue-bd; //present worth
+time=PW/(bd*rate);
+mprintf("The time is %.2f year i.e %.0f months",time,time*12);
diff --git a/1553/CH33/EX33.4/33Ex4.sce b/1553/CH33/EX33.4/33Ex4.sce new file mode 100644 index 000000000..4af5b8fed --- /dev/null +++ b/1553/CH33/EX33.4/33Ex4.sce @@ -0,0 +1,10 @@ +//Chapter 33 Ex 4
+
+clc;
+clear;
+close;
+BD=120; TD=110; //given
+t=8/12; //converted in year
+Sum=((BD*TD)/(BD-TD));
+rate= ((100*BD)/(Sum*t));
+mprintf("The sum is Rs.%d \n The rate is %.2f percent",Sum,rate);
diff --git a/1553/CH33/EX33.5/33Ex5.sce b/1553/CH33/EX33.5/33Ex5.sce new file mode 100644 index 000000000..7ae94f27c --- /dev/null +++ b/1553/CH33/EX33.5/33Ex5.sce @@ -0,0 +1,9 @@ +//Chapter 33 Ex5
+clc;
+clear;
+close;
+PW=1100;
+td=110;
+bg=(td)^2/PW;
+bd=td+bg;
+mprintf("The bankers discount is Rs.%.0f and the bankers gain is Rs.%.0f",bd,bg);
diff --git a/1553/CH33/EX33.6/33Ex6.sce b/1553/CH33/EX33.6/33Ex6.sce new file mode 100644 index 000000000..54742841b --- /dev/null +++ b/1553/CH33/EX33.6/33Ex6.sce @@ -0,0 +1,10 @@ +//Chapter 33 Ex 6
+
+clc;
+clear;
+close;
+BD=165; Sum=1650; //given
+// As ratio of TD as to BG is 10:1 Thus BD =11 as BD=TD+BG
+TD=(10/11)*BD;
+BG=BD-TD;
+mprintf("THe true discount is Rs.%d \n The bankers gain is Rs.%d",TD,BG);
diff --git a/1553/CH33/EX33.7/33Ex7.sce b/1553/CH33/EX33.7/33Ex7.sce new file mode 100644 index 000000000..7e0bce7e1 --- /dev/null +++ b/1553/CH33/EX33.7/33Ex7.sce @@ -0,0 +1,12 @@ +//Chapter 31 Ex7
+clc;
+clear;
+close;
+deduced=10/100;
+//let amount be Rs.100
+amt=100;
+deducedAmt=amt*(deduced);
+moneyReceived=amt-deducedAmt;
+t=10/12; //converting due period in years
+rate=(amt*deducedAmt)/(moneyReceived*t);
+mprintf("The rate percent is %.2f percent",rate);
diff --git a/1553/CH34/EX34.1/34Ex1.sce b/1553/CH34/EX34.1/34Ex1.sce new file mode 100644 index 000000000..fcf4dc6bd --- /dev/null +++ b/1553/CH34/EX34.1/34Ex1.sce @@ -0,0 +1,9 @@ +//Chapter 34 Ex 1
+
+clc;
+clear;
+close;
+d1=2*sqrt(3); d2=2;
+x=d1/d2;
+theta=atan(x);
+mprintf("The angle of elevation is %.2f degree",((theta*180)/%pi));
diff --git a/1553/CH34/EX34.2/34Ex2.sce b/1553/CH34/EX34.2/34Ex2.sce new file mode 100644 index 000000000..4c22a5a25 --- /dev/null +++ b/1553/CH34/EX34.2/34Ex2.sce @@ -0,0 +1,9 @@ +//Chapter 34 Ex 2
+
+clc;
+clear;
+close;
+d1=19;
+theta=(60*%pi)/180; //converted into radian
+d2=d1*cos(theta);
+mprintf("Distance of the foot of the ladder from the wall is %.1f meters",d2);
diff --git a/1553/CH34/EX34.3/34Ex3.sce b/1553/CH34/EX34.3/34Ex3.sce new file mode 100644 index 000000000..7091b9f61 --- /dev/null +++ b/1553/CH34/EX34.3/34Ex3.sce @@ -0,0 +1,9 @@ +//Chapter 34 Ex 3
+
+clc;
+clear;
+close;
+theta1=(60*%pi)/180; theta2=(30*%pi)/180; //converted into radian
+//forming the equations from given condition and solving them we get (h/tan(theta2))-(h/tan(theta1))=24 and solving we get
+h=24/((1/tan(theta2))-(1/tan(theta1)));
+mprintf("The height of the tower is %.2f meters",h);
diff --git a/1553/CH34/EX34.4/34Ex4.sce b/1553/CH34/EX34.4/34Ex4.sce new file mode 100644 index 000000000..136ecb1f4 --- /dev/null +++ b/1553/CH34/EX34.4/34Ex4.sce @@ -0,0 +1,14 @@ +//Chapter 34 Ex 4
+
+clc;
+close;
+clear;
+theta1=(60*%pi)/180; theta2=(30*%pi)/180; //converted into radian
+d1=36; //given
+x=poly(0,'x');
+for x=1:25
+ if round((d1+x)*tan(theta2))==round(x*tan(theta1)) then
+ break
+ end
+end
+mprintf("The breadth of the river is %d meters",x);
diff --git a/1553/CH34/EX34.5/34Ex5.sce b/1553/CH34/EX34.5/34Ex5.sce new file mode 100644 index 000000000..97e0ca579 --- /dev/null +++ b/1553/CH34/EX34.5/34Ex5.sce @@ -0,0 +1,12 @@ +//chapter 34 Ex 5
+
+clc;
+clear;
+close;
+t=10; theta1=30; theta2=60;
+//let height=h; base1=x; base2=y;
+//from figure, (x+y)=tan(60)*h; and y=tan(30)*h;
+x=tan(60)-tan(30); //this equation excludes the h term since 2 eq's cannot contain 3 unknowns
+y=1/tan(60); //this equation excludes the h term since 2 eq's cannot contain 3 unknowns
+time=t*y/x;
+mprintf("The time required to reach shore is %.0f min",time);
diff --git a/1553/CH34/EX34.6/34Ex6.sce b/1553/CH34/EX34.6/34Ex6.sce new file mode 100644 index 000000000..9624c2f7d --- /dev/null +++ b/1553/CH34/EX34.6/34Ex6.sce @@ -0,0 +1,11 @@ +//Chapter 34 Ex 4
+
+clc;
+close;
+clear;
+theta1=(60*%pi)/180; theta2=(30*%pi)/180; //converted into radian
+d1=54; //given height of temple 1
+d2=d1/tan(theta1); //widht of river
+d3=d2*tan(theta2);
+d4=d1-d3; //height of other temple
+mprintf("The widht of the river is %.2f meters \n The height of the other temple is %.0f meters", d2,d4);
diff --git a/1553/CH4/EX4.1/4Ex1.sce b/1553/CH4/EX4.1/4Ex1.sce new file mode 100644 index 000000000..650042dd2 --- /dev/null +++ b/1553/CH4/EX4.1/4Ex1.sce @@ -0,0 +1,13 @@ +//Chapter 4 Ex 1
+
+clc;
+clear;
+close;
+
+//(i)
+x=5005-5000/10;
+mprintf("(i)The value of expression is %d",x);
+
+//(ii)
+y=18800/470/20;
+mprintf("\n (ii)The value of expression is %d",y);
diff --git a/1553/CH4/EX4.10/4EX10.sce b/1553/CH4/EX4.10/4EX10.sce new file mode 100644 index 000000000..ae7fb45c8 --- /dev/null +++ b/1553/CH4/EX4.10/4EX10.sce @@ -0,0 +1,8 @@ +//chapter 4 Ex 10
+clc;
+clear;
+close;
+ratioXY=6/5; //the ratio of x/y
+//dividing the equation (x^2+y^2)/(x^2-y^2) by y^2 we get (x/y)^2+1/(x/y)^2-1
+value=(ratioXY^2+1)/(ratioXY^2-1);
+mprintf("The value of expression is %.2f",value);
diff --git a/1553/CH4/EX4.11/4Ex11.sce b/1553/CH4/EX4.11/4Ex11.sce new file mode 100644 index 000000000..afd947797 --- /dev/null +++ b/1553/CH4/EX4.11/4Ex11.sce @@ -0,0 +1,7 @@ +//Chapter 4 Ex 11
+
+clc;
+close;
+clear;
+expr=4-(5/(1+(1/(3+(1/(2+(1/4)))))));
+mprintf("The Value of expression is %.3f",expr);
diff --git a/1553/CH4/EX4.12/4Ex12.sce b/1553/CH4/EX4.12/4Ex12.sce new file mode 100644 index 000000000..8d5614c38 --- /dev/null +++ b/1553/CH4/EX4.12/4Ex12.sce @@ -0,0 +1,14 @@ +//Chapter 4 Ex 12
+
+clc;
+clear;
+close;
+
+x=poly(0,'x');
+for x=0.1:0.1:0.9
+ if (x/(1+1-x))==0.5
+ mprintf("\n The value of x is %.2f",x);
+ break;
+ end
+end
+
diff --git a/1553/CH4/EX4.13/4Ex13.sce b/1553/CH4/EX4.13/4Ex13.sce new file mode 100644 index 000000000..79286086a --- /dev/null +++ b/1553/CH4/EX4.13/4Ex13.sce @@ -0,0 +1,25 @@ +//Chapter 4 Ex 13
+
+clc;
+clear;
+close;
+
+//(i)
+a=poly(0,'a');
+b1=a/(3/4); //equation(1)
+b2=(22-(8*a))/5; //equation(2)
+for a=1:0.1:10
+ if (a/(3/4))==((22-(8*a))/5) then
+ break;
+ end
+end
+mprintf("(i)The value of a is %.1f",a);
+
+//(ii)
+x=poly(0,'x');
+for x=1:10
+ if ((x/4)-((x-3)/6))==1 then
+ break;
+ end
+end
+mprintf("\n(ii) The value of x is %.0f",x);
diff --git a/1553/CH4/EX4.14/4Ex14.sce b/1553/CH4/EX4.14/4Ex14.sce new file mode 100644 index 000000000..06cb2e2c7 --- /dev/null +++ b/1553/CH4/EX4.14/4Ex14.sce @@ -0,0 +1,16 @@ +//chapter 4 Ex 14
+
+clc;
+clear;
+close;
+x=poly(0,'x');
+y=(34-2*x)/3; //equation 1
+y=8*x/5; //equation 2
+for x=1:99
+ if (34-2*x)/3==8*x/5
+ mprintf("x=%i \n ",x);
+ break
+ end
+end
+y=8*x/5;
+printf("The value of 5*y+7*x is: %d",(5*y+7*x));
diff --git a/1553/CH4/EX4.15/4Ex15.sce b/1553/CH4/EX4.15/4Ex15.sce new file mode 100644 index 000000000..016a389b8 --- /dev/null +++ b/1553/CH4/EX4.15/4Ex15.sce @@ -0,0 +1,16 @@ +//chapter 4 Ex 15
+
+clc;
+clear;
+close;
+x=poly(0,'x');
+y=(51-x)/4; //equation 1
+y=(43-3*x)/2; //equation 2
+for x=1:99
+ if (51-x)/4==(43-3*x)/2
+ break
+ end
+end
+y=(43-3*x)/2;
+z=12-y+x;
+printf("The values of x, y & z are: %d, %d, and %d respectively",x,y,z);
diff --git a/1553/CH4/EX4.16/4Ex16.sce b/1553/CH4/EX4.16/4Ex16.sce new file mode 100644 index 000000000..b3c8af397 --- /dev/null +++ b/1553/CH4/EX4.16/4Ex16.sce @@ -0,0 +1,10 @@ +//chapter 4 Ex 16
+
+clc;
+clear;
+close;
+a=1;
+for n=2:99
+ a= a*(1-(1/(1+n)));
+end
+mprintf("The value is %.2f",a);
diff --git a/1553/CH4/EX4.17/4Ex17.sce b/1553/CH4/EX4.17/4Ex17.sce new file mode 100644 index 000000000..1936ac642 --- /dev/null +++ b/1553/CH4/EX4.17/4Ex17.sce @@ -0,0 +1,10 @@ +//chapter 4 Ex 17
+
+clc;
+clear;
+close;
+a=0;
+for n=2:9
+ a= a+(1/(n*(n+1)));
+end
+mprintf("The value is %0.2f",a);
diff --git a/1553/CH4/EX4.18/4Ex18.sce b/1553/CH4/EX4.18/4Ex18.sce new file mode 100644 index 000000000..ee2143dc9 --- /dev/null +++ b/1553/CH4/EX4.18/4Ex18.sce @@ -0,0 +1,7 @@ +//chapter 4 Ex 18
+
+clc;
+clear;
+close;
+ans=(100-1/49)*245;
+mprintf("The simplified value is %d",ans);
diff --git a/1553/CH4/EX4.19/4Ex19.sce b/1553/CH4/EX4.19/4Ex19.sce new file mode 100644 index 000000000..853ade7ee --- /dev/null +++ b/1553/CH4/EX4.19/4Ex19.sce @@ -0,0 +1,10 @@ +//chapter 4 Ex 19
+
+clc;
+clear;
+close;
+Length=(7*12+9); //converting into inches
+Length_part=Length/3;
+Length_part_ft=Length_part/12;
+Length_part_in=modulo(Length_part,12);
+printf("The length of each part is %d ft %d inches",Length_part_ft,Length_part_in);
diff --git a/1553/CH4/EX4.20/4Ex20.sce b/1553/CH4/EX4.20/4Ex20.sce new file mode 100644 index 000000000..d5149bc13 --- /dev/null +++ b/1553/CH4/EX4.20/4Ex20.sce @@ -0,0 +1,8 @@ +//chapter 4 Ex 20
+
+clc;
+clear;
+close;
+total=8600; s=5;d=4;n=2;
+amtD=total/(5*s+4*d+n);
+printf("The share of each daughter is Rs. %d",d*amtD);
diff --git a/1553/CH4/EX4.21/4Ex21.sce b/1553/CH4/EX4.21/4Ex21.sce new file mode 100644 index 000000000..95cada65f --- /dev/null +++ b/1553/CH4/EX4.21/4Ex21.sce @@ -0,0 +1,11 @@ +//chapter 4 Ex 21
+
+clc;
+clear;
+close;
+rent=2/5; food=3/10; conveyance=1/8; Amtleft=1400;
+PartLeft=1-(rent+food+conveyance);
+salary=Amtleft/PartLeft;
+eFood=food*salary;
+eConveyance=conveyance*salary;
+printf("The expenditure on food is Rs. %3.0f and that on conveyance is Rs. %3.0f",eFood,eConveyance);
diff --git a/1553/CH4/EX4.22/4Ex22.sce b/1553/CH4/EX4.22/4Ex22.sce new file mode 100644 index 000000000..9a072b89e --- /dev/null +++ b/1553/CH4/EX4.22/4Ex22.sce @@ -0,0 +1,15 @@ +//chapter 4 Ex 22
+
+clc;
+clear;
+close;
+x=poly(0,'x');
+y=(2*x-180)/3; //equation 1
+y=240-x; //equation 2
+for x=1:200
+ if (2*x-180)/3==240-x
+ break
+ end
+end
+y=240-x;
+printf("Arun got %d marks in English",y);
diff --git a/1553/CH4/EX4.23/4Ex23.sce b/1553/CH4/EX4.23/4Ex23.sce new file mode 100644 index 000000000..9c29e6bf5 --- /dev/null +++ b/1553/CH4/EX4.23/4Ex23.sce @@ -0,0 +1,9 @@ +//chapter 4 Ex 23
+
+clc;
+clear;
+close;
+b_taken=6; b_poured=4; //number of bottles taken and poured respectively
+oil_filled=4/5; oilfill_poured=3/4;
+numBottles=(b_taken-b_poured)/(oil_filled-oilfill_poured);
+mprintf("The required number of bottles are %0.0f",numBottles);
diff --git a/1553/CH4/EX4.24/4Ex24.sce b/1553/CH4/EX4.24/4Ex24.sce new file mode 100644 index 000000000..d87fe2f2d --- /dev/null +++ b/1553/CH4/EX4.24/4Ex24.sce @@ -0,0 +1,8 @@ +//chapter 4 Ex 24
+
+clc;
+clear;
+close;
+penBlack=1/8; penBlue=3.5;
+totalLength=penBlue/(1/2*(1-penBlack));
+mprintf("The total length of pencil is %0.0f",totalLength);
diff --git a/1553/CH4/EX4.25/4Ex25.sce b/1553/CH4/EX4.25/4Ex25.sce new file mode 100644 index 000000000..f23d1f318 --- /dev/null +++ b/1553/CH4/EX4.25/4Ex25.sce @@ -0,0 +1,12 @@ +//chapter 4 Ex 25
+
+clc;
+clear;
+close;
+women=1/3; men=1-women;
+womenMarried=1/2*women;
+womenChildren=1/3*womenMarried;
+menChildren=(2/3)*(3/4)*men;
+workerChildren=womenChildren+menChildren;
+NoChildren=1-workerChildren;
+mprintf("The workers with no children are %1.2f part of total workers",NoChildren);
diff --git a/1553/CH4/EX4.26/4Ex26.sce b/1553/CH4/EX4.26/4Ex26.sce new file mode 100644 index 000000000..3401536ec --- /dev/null +++ b/1553/CH4/EX4.26/4Ex26.sce @@ -0,0 +1,10 @@ +//chapter 4 Ex 23
+
+clc;
+clear;
+close;
+bruised=1/30;
+unsalable=3/4;
+unsalableMangoes=12;
+totalMangoes=unsalableMangoes/(unsalable*bruised);
+mprintf("The total number of mangoes are %0.0f",totalMangoes);
diff --git a/1553/CH4/EX4.27/4Ex27.sce b/1553/CH4/EX4.27/4Ex27.sce new file mode 100644 index 000000000..152c8afa0 --- /dev/null +++ b/1553/CH4/EX4.27/4Ex27.sce @@ -0,0 +1,10 @@ +//chapter 4 Ex 27
+
+clc;
+clear;
+close;
+firstStation=280;
+secondStation=12;
+thirdStationTotal=248;
+totalBeginning=(((thirdStationTotal-secondStation)/(1/2))-280)/(2/3);
+mprintf("The total number of passengers in the beginning were %0.0f",totalBeginning);
diff --git a/1553/CH4/EX4.28/4Ex28.sce b/1553/CH4/EX4.28/4Ex28.sce new file mode 100644 index 000000000..95a890548 --- /dev/null +++ b/1553/CH4/EX4.28/4Ex28.sce @@ -0,0 +1,10 @@ +//chapter 4 Ex 28
+
+clc;
+clear;
+close;
+sumsquares=117; product=54;
+Sum=sqrt(sumsquares+2*product); //from the formula (a+b)^2=a^2+b^2+2*a*b
+subtract=sqrt(sumsquares-2*product);
+value=Sum/subtract;
+mprintf("The value of (a+b)/(a-b)=%.0f",value);
diff --git a/1553/CH4/EX4.29/4Ex29.sce b/1553/CH4/EX4.29/4Ex29.sce new file mode 100644 index 000000000..fd94da1bd --- /dev/null +++ b/1553/CH4/EX4.29/4Ex29.sce @@ -0,0 +1,8 @@ +//chapter 4 Ex 28
+
+clc;
+clear;
+close;
+a=75983; b=45983; c=30000;
+value=(a*a-b*b)/c;
+mprintf("The value is %d",value);
diff --git a/1553/CH4/EX4.3/4Ex3.sce b/1553/CH4/EX4.3/4Ex3.sce new file mode 100644 index 000000000..83ce23ac5 --- /dev/null +++ b/1553/CH4/EX4.3/4Ex3.sce @@ -0,0 +1,7 @@ +//Chapter 4 Ex 3
+
+clc;
+clear;
+close;
+x=67/5-(9/2+19/6+7/3); //derived from problem statement 9/2+19/6+x+7/3=67/5
+mprintf("The missing term is %.2f",x);
diff --git a/1553/CH4/EX4.30/4Ex30.sce b/1553/CH4/EX4.30/4Ex30.sce new file mode 100644 index 000000000..2338f991d --- /dev/null +++ b/1553/CH4/EX4.30/4Ex30.sce @@ -0,0 +1,8 @@ +//chapter 4 Ex 30
+
+clc;
+clear;
+close;
+a=343; b=113;
+value=(a*a*a-b*b*b)/(a*a+a*b+b*b);
+mprintf("The value is %d",value);
diff --git a/1553/CH4/EX4.31/4Ex31.sce b/1553/CH4/EX4.31/4Ex31.sce new file mode 100644 index 000000000..8f5ac4fb1 --- /dev/null +++ b/1553/CH4/EX4.31/4Ex31.sce @@ -0,0 +1,9 @@ +//chapter 4 Ex 31
+
+clc;
+clear;
+close;
+popX=68000; popY=42000;
+rateX=1200; rateY=800;
+years=(popX-popY)/(rateX+rateY);
+mprintf("The population will be equal after %d years",years);
diff --git a/1553/CH4/EX4.32/4Ex32.sce b/1553/CH4/EX4.32/4Ex32.sce new file mode 100644 index 000000000..1a0c04023 --- /dev/null +++ b/1553/CH4/EX4.32/4Ex32.sce @@ -0,0 +1,10 @@ +//chapter 4 Ex 32
+
+clc;
+clear;
+close;
+girlsLeave=15; boysEachgirl=2; boysLeave=45; girlsEachboy=5;
+//let x boys are there at present; thus totalboys=x+45; girls=5*x
+boysPresent=boysLeave/(girlsEachboy*boysEachgirl-1);
+girlsBeginning=girlsEachboy*boysPresent+girlsLeave;
+mprintf("The number of girls in the beginning were %d",girlsBeginning);
diff --git a/1553/CH4/EX4.33/4Ex33.sce b/1553/CH4/EX4.33/4Ex33.sce new file mode 100644 index 000000000..dc82a9b3f --- /dev/null +++ b/1553/CH4/EX4.33/4Ex33.sce @@ -0,0 +1,8 @@ +//chapter 4 Ex 33
+
+clc;
+clear;
+close;
+Eachday=20; idleFortified=3; twoMonths=60; wageTwoMonths=280;
+idleDays=(Eachday*twoMonths-wageTwoMonths)/(Eachday+idleFortified);
+mprintf("The worker remained idle for %d days",idleDays);
diff --git a/1553/CH4/EX4.34/4Ex34.sce b/1553/CH4/EX4.34/4Ex34.sce new file mode 100644 index 000000000..ced85481a --- /dev/null +++ b/1553/CH4/EX4.34/4Ex34.sce @@ -0,0 +1,9 @@ +//chapter 4 Ex 34
+
+clc;
+clear;
+close;
+totalnotes=85; amount=5000; den100=100; den50=50;
+notes50=(amount-den100*totalnotes)/(den50-den100);
+amount50=notes50*den50;
+mprintf("The required amount is Rs.%d",amount50);
diff --git a/1553/CH4/EX4.35/4Ex35.sce b/1553/CH4/EX4.35/4Ex35.sce new file mode 100644 index 000000000..51e8361eb --- /dev/null +++ b/1553/CH4/EX4.35/4Ex35.sce @@ -0,0 +1,8 @@ +//chapter 4 Ex 35
+
+clc;
+clear;
+close;
+n1=14; n2=18; amtEach=80;
+amtTotal=amtEach/(1/n1-1/n2);
+mprintf("The total amount was Rs.%d",amtTotal);
diff --git a/1553/CH4/EX4.36/4Ex36.sce b/1553/CH4/EX4.36/4Ex36.sce new file mode 100644 index 000000000..245bc67fb --- /dev/null +++ b/1553/CH4/EX4.36/4Ex36.sce @@ -0,0 +1,13 @@ +//chapter 4 Ex 36
+
+clc;
+clear;
+close;
+expenses=360; expCut=3; numdaysCut=4;
+
+for n=1:99
+ if n^2+4*n-480==0
+ break;
+ end
+end
+mprintf("Mr. Bhaskar is on tour for %d days",n);
diff --git a/1553/CH4/EX4.37/4Ex37.sce b/1553/CH4/EX4.37/4Ex37.sce new file mode 100644 index 000000000..a011834be --- /dev/null +++ b/1553/CH4/EX4.37/4Ex37.sce @@ -0,0 +1,17 @@ +//chapter 4 Ex 37
+
+clc;
+clear;
+close;
+cost1=86; cost2=112;
+x=poly(0,'x');
+y=(cost1-2*x)/3; //equation 1
+y=cost2-4*x; //equation 2
+for x=1:99
+ if (cost1-2*x)/3==cost2-4*x
+ break
+ end
+end
+y=cost2-4*x;
+printf("The cost of pen is Rs.%d and that of pencil is Rs.%d",x,y);
+
diff --git a/1553/CH4/EX4.38/4Ex38.sce b/1553/CH4/EX4.38/4Ex38.sce new file mode 100644 index 000000000..dee0c6545 --- /dev/null +++ b/1553/CH4/EX4.38/4Ex38.sce @@ -0,0 +1,16 @@ +//chapter 4 Ex 38
+
+clc;
+clear;
+close;
+x=poly(0,'x');
+AtoS=30; StoA=10;
+y=2*x-(AtoS+2*AtoS); //equation 1
+y=(x+AtoS+StoA)/3; //equation 2
+for x=1:99
+ if 2*x-(AtoS+2*AtoS)==(x+AtoS+StoA)/3
+ break
+ end
+end
+y=(x+AtoS+StoA)/3;
+printf("Arun has Rs.%d and Sajal has Rs.%d",x,y);
diff --git a/1553/CH4/EX4.39/4Ex39.sce b/1553/CH4/EX4.39/4Ex39.sce new file mode 100644 index 000000000..8de543128 --- /dev/null +++ b/1553/CH4/EX4.39/4Ex39.sce @@ -0,0 +1,8 @@ +//chapter 4 Ex 39
+
+clc;
+clear;
+close;
+hens=50; goats=45; camels=8; numFeet=224;
+numKeepers=numFeet-((goats*4+camels*4+hens*2)-(hens+goats+camels));
+mprintf("The total number of keepers are %d",numKeepers);
diff --git a/1553/CH4/EX4.4/4Ex4.sce b/1553/CH4/EX4.4/4Ex4.sce new file mode 100644 index 000000000..29a729de8 --- /dev/null +++ b/1553/CH4/EX4.4/4Ex4.sce @@ -0,0 +1,13 @@ +//Chapter 4 Ex 4
+
+clc;
+clear;
+close;
+// from given statement we the equation as (4/21)x-(8/45)x=8
+for x=1:700
+ if ((4/21)*x-(8/45)*x)==8
+ break;
+ end
+end
+half=x/2;
+mprintf("The required number is %d",half);
diff --git a/1553/CH4/EX4.5/4Ex5.sce b/1553/CH4/EX4.5/4Ex5.sce new file mode 100644 index 000000000..c23d98837 --- /dev/null +++ b/1553/CH4/EX4.5/4Ex5.sce @@ -0,0 +1,7 @@ +//Chapter 4 Ex 5
+
+clc;
+close;
+clear;
+expr=[(13/4)/{5/4-(1/2)*(5/2-(1/4-1/6))}];
+mprintf("The value of expression is %.0f",expr);
diff --git a/1553/CH4/EX4.6/4Ex6.sce b/1553/CH4/EX4.6/4Ex6.sce new file mode 100644 index 000000000..bc3b2e77a --- /dev/null +++ b/1553/CH4/EX4.6/4Ex6.sce @@ -0,0 +1,7 @@ +//Chapter 4 Ex 6
+
+clc;
+close;
+clear;
+expr=108/[36*(1/4)]+[(2/5)*(13/4)];
+mprintf("The value of expression is %.2f",expr);
diff --git a/1553/CH4/EX4.7/4Ex7.sce b/1553/CH4/EX4.7/4Ex7.sce new file mode 100644 index 000000000..62f603f0d --- /dev/null +++ b/1553/CH4/EX4.7/4Ex7.sce @@ -0,0 +1,7 @@ +//Chapter 4 Ex 7
+
+clc;
+clear;
+close;
+expr=(((7/2)/(5/2)*(3/2))/((7/2)/((5/2)*(3/2))))/5.25;
+mprintf("The value of expression is %.2f",expr);
diff --git a/1553/CH4/EX4.8/4Ex8.sce b/1553/CH4/EX4.8/4Ex8.sce new file mode 100644 index 000000000..655054120 --- /dev/null +++ b/1553/CH4/EX4.8/4Ex8.sce @@ -0,0 +1,13 @@ +//Chapter 4 Ex 8
+
+clc;
+clear;
+close;
+
+//(i)
+expr1=12.05*5.4/0.6;
+mprintf("The value of expression is %.2f",expr1);
+
+//(ii)
+expr2=(0.6*0.6)+(0.6/6);
+mprintf("\n The value of expression is %.2f",expr2);
diff --git a/1553/CH4/EX4.9/4Ex9.sce b/1553/CH4/EX4.9/4Ex9.sce new file mode 100644 index 000000000..2c8a27a05 --- /dev/null +++ b/1553/CH4/EX4.9/4Ex9.sce @@ -0,0 +1,22 @@ +//Chapter 4 Ex 9
+
+clc;
+clear;
+close;
+
+//(i)
+x1=17.28/(2*3.6*0.2);
+mprintf("(i)The value of x is %.0f",x1);
+
+//(ii)
+x2=364.824/(3794.1696+36.4824-3648.24);
+mprintf("\n(ii)The value of x is %.0f",x2);
+
+//(iii)
+x3=poly(0,'x');
+for x3=1:0.1:10
+ if round(8.5-(5.5-(7.5+(2.8/x3)))*(4.25/0.04))==306
+ break;
+ end
+end
+mprintf("\n(iii)The value of x is %.1f",x3);
diff --git a/1553/CH5/EX5.1/5Ex1.sce b/1553/CH5/EX5.1/5Ex1.sce new file mode 100644 index 000000000..920630d64 --- /dev/null +++ b/1553/CH5/EX5.1/5Ex1.sce @@ -0,0 +1,8 @@ +//chapter 5 Ex 1
+clc;
+clear;
+close;
+
+//let the value to be found out be x
+x=sqrt(6084);
+mprintf("x=%.0f",x);
diff --git a/1553/CH5/EX5.10/5Ex10.sce b/1553/CH5/EX5.10/5Ex10.sce new file mode 100644 index 000000000..d44f4374c --- /dev/null +++ b/1553/CH5/EX5.10/5Ex10.sce @@ -0,0 +1,8 @@ +//chapter 5 Ex 10
+clc;
+clear;
+close;
+
+//let the value to be found out be x
+x=((13/12)^2-1)*144;
+mprintf("x=%.0f",x);
diff --git a/1553/CH5/EX5.11/5Ex11.sce b/1553/CH5/EX5.11/5Ex11.sce new file mode 100644 index 000000000..e7d0dd042 --- /dev/null +++ b/1553/CH5/EX5.11/5Ex11.sce @@ -0,0 +1,8 @@ +//chapter 5 Ex 11
+clc;
+clear;
+close;
+
+//let the value to be found out be x
+x=sqrt(3);
+mprintf("x=%.3f",x);
diff --git a/1553/CH5/EX5.12/5Ex12.sce b/1553/CH5/EX5.12/5Ex12.sce new file mode 100644 index 000000000..1707ce8bb --- /dev/null +++ b/1553/CH5/EX5.12/5Ex12.sce @@ -0,0 +1,8 @@ +//chapter 5 Ex 12
+clc;
+clear;
+close;
+
+//let the value to be found out be x
+x=sqrt(192)-(1/2)*sqrt(48)-sqrt(75);
+mprintf("x=%.3f",x);
diff --git a/1553/CH5/EX5.13/5Ex13.sce b/1553/CH5/EX5.13/5Ex13.sce new file mode 100644 index 000000000..87729a7c4 --- /dev/null +++ b/1553/CH5/EX5.13/5Ex13.sce @@ -0,0 +1,8 @@ +//chapter 5 Ex 13
+clc;
+clear;
+close;
+
+//let the value to be found out be x
+x=sqrt(9.5*.0085*18.9)/sqrt(.0017*1.9*.021);
+mprintf("x=%.0f",x);
diff --git a/1553/CH5/EX5.14/5Ex14.sce b/1553/CH5/EX5.14/5Ex14.sce new file mode 100644 index 000000000..de3058cb6 --- /dev/null +++ b/1553/CH5/EX5.14/5Ex14.sce @@ -0,0 +1,8 @@ +//chapter 5 Ex 14
+clc;
+clear;
+close;
+
+//let the value to be found out be x
+x=sqrt((12.1^2-8.1^2)/(.25^2+.25*19.95));
+mprintf("x=%.0f",x);
diff --git a/1553/CH5/EX5.15/5Ex15.sce b/1553/CH5/EX5.15/5Ex15.sce new file mode 100644 index 000000000..b7227d0da --- /dev/null +++ b/1553/CH5/EX5.15/5Ex15.sce @@ -0,0 +1,9 @@ +//chapter 5 Ex 15
+clc;
+clear;
+close;
+
+//let the value to be found out be z
+z=(1+sqrt(2))^2+(1-sqrt(2))^2;
+
+mprintf("The value of expression (x^2+y^2) is %.0f",z);
diff --git a/1553/CH5/EX5.16/5EX16.sce b/1553/CH5/EX5.16/5EX16.sce new file mode 100644 index 000000000..b59ad5edb --- /dev/null +++ b/1553/CH5/EX5.16/5EX16.sce @@ -0,0 +1,8 @@ +//chapter 5 Ex 16
+clc;
+clear;
+close;
+
+//let the value to be found out be x
+x=sqrt(.9);
+mprintf("x=%.3f",x);
diff --git a/1553/CH5/EX5.17/5Ex17.sce b/1553/CH5/EX5.17/5Ex17.sce new file mode 100644 index 000000000..cd9d7ad5b --- /dev/null +++ b/1553/CH5/EX5.17/5Ex17.sce @@ -0,0 +1,8 @@ +//chapter 5 Ex 17
+clc;
+clear;
+close;
+
+//let the value to be found out be x
+x=sqrt(5/3);
+mprintf("x=%.2f",x);
diff --git a/1553/CH5/EX5.2/5Ex2.sce b/1553/CH5/EX5.2/5Ex2.sce new file mode 100644 index 000000000..7e919b0cb --- /dev/null +++ b/1553/CH5/EX5.2/5Ex2.sce @@ -0,0 +1,8 @@ +//chapter 5 Ex 2
+clc;
+clear;
+close;
+
+//let the value to be found out be x
+x=sqrt(1471369);
+mprintf("x=%.0f",x);
diff --git a/1553/CH5/EX5.21/5Ex21.sce b/1553/CH5/EX5.21/5Ex21.sce new file mode 100644 index 000000000..74bfd4830 --- /dev/null +++ b/1553/CH5/EX5.21/5Ex21.sce @@ -0,0 +1,8 @@ +//chapter 5 Ex 21
+clc;
+clear;
+close;
+
+//let the value to be found out be x
+x=sqrt(2)/(2+sqrt(2));
+mprintf("x=%.3f",x);
diff --git a/1553/CH5/EX5.22/5Ex22.sce b/1553/CH5/EX5.22/5Ex22.sce new file mode 100644 index 000000000..67d644218 --- /dev/null +++ b/1553/CH5/EX5.22/5Ex22.sce @@ -0,0 +1,10 @@ +//chapter 5 Ex 22
+clc;
+clear;
+close;
+
+//let the value to be found out be z
+x=(sqrt(5)+sqrt(3))/(sqrt(5)-sqrt(3));
+y=(sqrt(5)-sqrt(3))/(sqrt(5)+sqrt(3))
+z=x^2+y^2;
+mprintf("The value of expression (x^2+y^2)is %.0f",z);
diff --git a/1553/CH5/EX5.23/5Ex23.sce b/1553/CH5/EX5.23/5Ex23.sce new file mode 100644 index 000000000..9f8f92f6e --- /dev/null +++ b/1553/CH5/EX5.23/5Ex23.sce @@ -0,0 +1,8 @@ +//chapter 5 Ex 23
+clc;
+clear;
+close;
+
+//let the value to be found out be x
+x=nthroot(2744,3);
+mprintf("x=%.0f",x);
diff --git a/1553/CH5/EX5.3/5Ex3.sce b/1553/CH5/EX5.3/5Ex3.sce new file mode 100644 index 000000000..1de03cf9b --- /dev/null +++ b/1553/CH5/EX5.3/5Ex3.sce @@ -0,0 +1,9 @@ +
+//chapter 5 Ex 3
+clc;
+clear;
+close;
+
+//let the value to be found out be x
+x=sqrt(248+sqrt(51+sqrt(169)));
+mprintf("x=%.0f",x);
diff --git a/1553/CH5/EX5.4/5Ex4.sce b/1553/CH5/EX5.4/5Ex4.sce new file mode 100644 index 000000000..b0c8dee21 --- /dev/null +++ b/1553/CH5/EX5.4/5Ex4.sce @@ -0,0 +1,9 @@ +//chapter 5 Ex 4
+clc;
+clear;
+close;
+
+//let the value to be found out be x
+a=6; b=15; c=3;
+x=sqrt((a+2)*(b+3))/(c+1);
+mprintf("x=%.0f",x);
diff --git a/1553/CH5/EX5.5/5Ex5.sce b/1553/CH5/EX5.5/5Ex5.sce new file mode 100644 index 000000000..1a3b0689c --- /dev/null +++ b/1553/CH5/EX5.5/5Ex5.sce @@ -0,0 +1,8 @@ +//chapter 5 Ex 5
+clc;
+clear;
+close;
+
+//let the value to be found out be x
+x=sqrt(25/16);
+mprintf("x=%.2f",x);
diff --git a/1553/CH5/EX5.6/5Ex6.sce b/1553/CH5/EX5.6/5Ex6.sce new file mode 100644 index 000000000..7361e4b26 --- /dev/null +++ b/1553/CH5/EX5.6/5Ex6.sce @@ -0,0 +1,8 @@ +//chapter 5 Ex 6
+clc;
+clear;
+close;
+
+//let the value to be found out be x
+x=sqrt(.0009);
+mprintf("x=%.2f",x);
diff --git a/1553/CH5/EX5.7/5Ex7.sce b/1553/CH5/EX5.7/5Ex7.sce new file mode 100644 index 000000000..d8ae026f8 --- /dev/null +++ b/1553/CH5/EX5.7/5Ex7.sce @@ -0,0 +1,8 @@ +//chapter 5 Ex 1
+clc;
+clear;
+close;
+
+//let the value to be found out be x
+x=sqrt(175.2976);
+mprintf("x=%.2f",x);
diff --git a/1553/CH5/EX5.8/5Ex8.sce b/1553/CH5/EX5.8/5Ex8.sce new file mode 100644 index 000000000..5c03d5dad --- /dev/null +++ b/1553/CH5/EX5.8/5Ex8.sce @@ -0,0 +1,9 @@ +//chapter 5 Ex 8
+clc;
+clear;
+close;
+//let the value to be found out be x and y
+y=32.4/2^2; //after squaring both sides
+x=sqrt((12.3-sqrt(86.49))^2-5); //from the given equation
+mprintf("(i)y=%.1f",y);
+mprintf("\n(ii)x=%.0f",x);
diff --git a/1553/CH5/EX5.9/5Ex9.sce b/1553/CH5/EX5.9/5Ex9.sce new file mode 100644 index 000000000..0fa537452 --- /dev/null +++ b/1553/CH5/EX5.9/5Ex9.sce @@ -0,0 +1,8 @@ +//chapter 5 Ex 9
+clc;
+clear;
+close;
+
+//let the value to be found out be x
+x=sqrt(.289/.00121);
+mprintf("x=%.2f",x);
diff --git a/1553/CH6/EX6.1/6Ex1.sce b/1553/CH6/EX6.1/6Ex1.sce new file mode 100644 index 000000000..fb6ec4e9a --- /dev/null +++ b/1553/CH6/EX6.1/6Ex1.sce @@ -0,0 +1,8 @@ +//Chapter 6 Ex 1
+
+clc;
+clear;
+close;
+n1=31; n2=37; n3=41; n4=43; n5=47; //prime number between 30 and 50
+avg=(n1+n2+n3+n4+n5)/5;
+mprintf("The average of all prime numbers between 30 and 50 is %.2f",avg);
diff --git a/1553/CH6/EX6.10/6Ex10.sce b/1553/CH6/EX6.10/6Ex10.sce new file mode 100644 index 000000000..3d339f2a1 --- /dev/null +++ b/1553/CH6/EX6.10/6Ex10.sce @@ -0,0 +1,10 @@ +//chapter 6 Ex 10
+
+clc;
+clear;
+close;
+n=3; avg=45; AB=40; BC=43;
+Sum=(avg*n);
+SumAB=AB*2; SumBC=BC*2;
+B=SumAB+SumBC-Sum;
+mprintf("The weight of B is %d kg.",B);
diff --git a/1553/CH6/EX6.11/6Ex11.sce b/1553/CH6/EX6.11/6Ex11.sce new file mode 100644 index 000000000..ac0dfaa36 --- /dev/null +++ b/1553/CH6/EX6.11/6Ex11.sce @@ -0,0 +1,13 @@ +//chapter 6 Ex 11
+
+clc;
+clear;
+close;
+n=39; avg39=15;//average of 39 students
+inc=3/12; //months converted to years
+avg40=avg39+inc;
+Sum39=avg39*n;
+Sum40=avg40*(n+1);
+teacherAge=Sum40-Sum39;
+mprintf("The age of teacher is %d years",teacherAge);
+
diff --git a/1553/CH6/EX6.12/6Ex12.sce b/1553/CH6/EX6.12/6Ex12.sce new file mode 100644 index 000000000..7b24fbe55 --- /dev/null +++ b/1553/CH6/EX6.12/6Ex12.sce @@ -0,0 +1,10 @@ +//chapter 6 Ex 12
+
+clc;
+clear;
+close;
+n=10; inc=1.8;
+weightreplaced=53;
+totalinc=n*inc;
+weightNew=weightreplaced+totalinc;
+mprintf("The weight of new man is %d kg.",weightNew);
diff --git a/1553/CH6/EX6.13/6Ex13.sce b/1553/CH6/EX6.13/6Ex13.sce new file mode 100644 index 000000000..69f563f7b --- /dev/null +++ b/1553/CH6/EX6.13/6Ex13.sce @@ -0,0 +1,9 @@ +//chapter 6 Ex 13
+
+clc;
+clear;
+close;
+n=35; newN=7; incExp=42; perheadExp=1;
+originalAvg=(incExp+incExp*perheadExp)/(incExp-n);
+originalExp=originalAvg*n;
+mprintf("The original expenditure is Rs.%d",originalExp);
diff --git a/1553/CH6/EX6.14/6Ex14.sce b/1553/CH6/EX6.14/6Ex14.sce new file mode 100644 index 000000000..6eec28e6a --- /dev/null +++ b/1553/CH6/EX6.14/6Ex14.sce @@ -0,0 +1,8 @@ +//chapter 6 Ex 14
+
+clc;
+clear;
+close;
+score=87; inc=3; n=17;
+avg17= score-(n-1)*inc;
+mprintf("The average after 17th inning is %d",avg17);
diff --git a/1553/CH6/EX6.15/6Ex15.sce b/1553/CH6/EX6.15/6Ex15.sce new file mode 100644 index 000000000..630e703bd --- /dev/null +++ b/1553/CH6/EX6.15/6Ex15.sce @@ -0,0 +1,8 @@ +//chapter 6 Ex 15
+
+clc;
+clear;
+close;
+s1=84; s2=56;
+avgSpeed=(2*s1*s2)/(s1+s2);
+printf("The average speed of train is %1.1f km/hr",avgSpeed);
diff --git a/1553/CH6/EX6.2/6Ex2.sce b/1553/CH6/EX6.2/6Ex2.sce new file mode 100644 index 000000000..b07cb08c2 --- /dev/null +++ b/1553/CH6/EX6.2/6Ex2.sce @@ -0,0 +1,9 @@ +//chapter 6 Ex 2
+
+clc;
+clear;
+close;
+n=40;
+Sum=n*(n+1)/2; //formula for sum of first n natural numbers
+avg=Sum/n;
+mprintf("The required average is %.1f",avg);
diff --git a/1553/CH6/EX6.3/6Ex3.sce b/1553/CH6/EX6.3/6Ex3.sce new file mode 100644 index 000000000..9a1c43b76 --- /dev/null +++ b/1553/CH6/EX6.3/6Ex3.sce @@ -0,0 +1,12 @@ +//chapter 6 Ex 3
+
+clc;
+clear;
+close;
+a=[];
+for i=1:20
+ a(i)=7*i;
+end
+Sum=sum(a);
+Average=Sum/size(a,"r");
+printf("The average of first 20 multiples of 7 is %3.2f",Average);
diff --git a/1553/CH6/EX6.4/6Ex4.sce b/1553/CH6/EX6.4/6Ex4.sce new file mode 100644 index 000000000..3ed9716c7 --- /dev/null +++ b/1553/CH6/EX6.4/6Ex4.sce @@ -0,0 +1,9 @@ +//chapter 6 Ex 4
+
+clc;
+clear;
+close;
+avg=27;
+nums=4;
+n=((avg*nums)-(1+2+3+4))/4; //addition of 4 consecutive numbers
+mprintf("The largest number is %d",n+6);
diff --git a/1553/CH6/EX6.5/6Ex5.sce b/1553/CH6/EX6.5/6Ex5.sce new file mode 100644 index 000000000..67b7ee918 --- /dev/null +++ b/1553/CH6/EX6.5/6Ex5.sce @@ -0,0 +1,9 @@ +//chapter 6 Ex 5
+
+clc;
+clear;
+close;
+Atotal=36; Btotal=44;
+avgA=40; avgB=35;
+avg=(Atotal*avgA+Btotal*avgB)/(Atotal+Btotal);
+mprintf("The average weight of whole class is %.2f kilograms",avg);
diff --git a/1553/CH6/EX6.6/6Ex6.sce b/1553/CH6/EX6.6/6Ex6.sce new file mode 100644 index 000000000..396672a7d --- /dev/null +++ b/1553/CH6/EX6.6/6Ex6.sce @@ -0,0 +1,9 @@ +//chapter 6 Ex 6
+
+clc;
+clear;
+close;
+persons=9; extra=8;
+avgexp=(12*(persons-1)+extra)/(persons-1);
+total=9*avgexp;
+mprintf("The total money spent was Rs.%d",total);
diff --git a/1553/CH6/EX6.7/6Ex7.sce b/1553/CH6/EX6.7/6Ex7.sce new file mode 100644 index 000000000..c5806e526 --- /dev/null +++ b/1553/CH6/EX6.7/6Ex7.sce @@ -0,0 +1,10 @@ +//chapter 6 Ex 7
+
+clc;
+clear;
+close;
+num=3; avg=44;
+//let third number be x
+num3=(avg*num)/(1+3+3/2);
+num2=3*num3;
+mprintf("The largest number is %d",num2);
diff --git a/1553/CH6/EX6.8/6Ex8.sce b/1553/CH6/EX6.8/6Ex8.sce new file mode 100644 index 000000000..6d89c9590 --- /dev/null +++ b/1553/CH6/EX6.8/6Ex8.sce @@ -0,0 +1,8 @@ +//chapter 6 Ex 8
+
+clc;
+clear;
+close;
+total=25; avg25=18; avg12first=14; avg12last=17;
+num13=(avg25*total)-((avg12first*12)+(avg12last*12));
+mprintf("The 13th number is %d",num13);
diff --git a/1553/CH6/EX6.9/6Ex9.sce b/1553/CH6/EX6.9/6Ex9.sce new file mode 100644 index 000000000..c915ca68b --- /dev/null +++ b/1553/CH6/EX6.9/6Ex9.sce @@ -0,0 +1,8 @@ +//chapter 6 Ex 9
+
+clc;
+clear;
+close;
+total=11; avg11=60; avg6first=58; avg6last=63;
+num6=(((avg6first*6)+(avg6last*6))-avg11*total);
+mprintf("The 6th number is %d",num6);
diff --git a/1553/CH7/EX7.1/7Ex1.sce b/1553/CH7/EX7.1/7Ex1.sce new file mode 100644 index 000000000..321f1365d --- /dev/null +++ b/1553/CH7/EX7.1/7Ex1.sce @@ -0,0 +1,22 @@ +//Chapter 7 Ex1
+
+clc;
+clear;
+close;
+//let number be x
+//given x-36=86-x
+//thus polynomial is: 2x-122=0
+
+mycoeff=[-122 2];
+p=poly(mycoeff,"x","coeff");
+ans=roots(p);
+printf("The number is %d",ans);
+
+
+//Alternative logic for same problem
+for x=1:99
+ if((2*x-122)==0)
+ printf("\nAlternate Logic: \nThe number is: %d",x);
+ break;
+end
+end
diff --git a/1553/CH7/EX7.10/7Ex10.sce b/1553/CH7/EX7.10/7Ex10.sce new file mode 100644 index 000000000..9ea4b3d54 --- /dev/null +++ b/1553/CH7/EX7.10/7Ex10.sce @@ -0,0 +1,19 @@ +//Chapter 7 Ex10
+clc;
+clear;
+close;
+//let numbers be x and y
+
+x=poly(0,'x');
+y=(3*x-5)/4; //equation 1
+y=(5*x+6)/7; //equation 2
+for x=1:99
+ if((3*x-5)/4 ==(5*x+6)/7)
+ mprintf("x=%i \n ",x)
+ break
+ end
+end
+disp("substitute the x value in any one of the above equations to find y.");
+y=(5*x+6)/7;
+printf("\n The numbers are : %d and %d",x,y);
+
diff --git a/1553/CH7/EX7.11/7Ex11.sce b/1553/CH7/EX7.11/7Ex11.sce new file mode 100644 index 000000000..b61655940 --- /dev/null +++ b/1553/CH7/EX7.11/7Ex11.sce @@ -0,0 +1,14 @@ +//Chapter 7 Ex11
+
+clc;
+close;
+
+//let tens's digit be x and unit's be x+3
+//given number=10x+(x+3)=11x+3
+//ratio is (11x+3)/(2x+3)=4/1
+//polynomial is: 3x-9=0
+
+ mycoeff=[-9 3];
+p=poly(mycoeff,"x","coeff");
+ans=11*roots(p)+3; //since given number as calculated in line 7
+printf("The number is: %d",ans);
diff --git a/1553/CH7/EX7.12/7Ex12.sce b/1553/CH7/EX7.12/7Ex12.sce new file mode 100644 index 000000000..1e8eeddad --- /dev/null +++ b/1553/CH7/EX7.12/7Ex12.sce @@ -0,0 +1,22 @@ +//Chapter 7 Ex12
+clc;
+close;
+//let ten's digit be x, thus unit's digit is 9-x
+//number=10x+9-x=9x+9
+//number obtained by reversing digits=10(9-x)+x=90-9x
+//polynomial is: 18x-144=0
+
+mycoeff=[-144 18];
+p=poly(mycoeff,"x","coeff");
+ans=9*roots(p)+9; //since given number as calculated in line 6
+printf("The number is: %d",ans);
+
+//Alternative logic for same problem
+for x=1:99
+ if((18*x-144)==0)
+
+ num=(9*x+9);
+ printf("\n Alternate logic: \n The number is: %d",num);
+ break;
+end
+end
diff --git a/1553/CH7/EX7.13/7Ex13.sce b/1553/CH7/EX7.13/7Ex13.sce new file mode 100644 index 000000000..90a48293f --- /dev/null +++ b/1553/CH7/EX7.13/7Ex13.sce @@ -0,0 +1,19 @@ +//Chapter 7 Ex13
+clc;
+clear;
+close;
+//let fraction be x/y
+
+x=poly(0,'x');
+y=(3*x+1)/2; //equation 1
+y=2*x-1; //equation 2
+for x=1:99
+ if (3*x+1)/2 ==2*x-1
+ mprintf("x=%i \n",x)
+ break
+ end
+end
+disp("substitute the x value in any one of the above equations to find y.");
+y=2*x-1;
+
+printf("\nThe fraction is %d/%d",x,y);
diff --git a/1553/CH7/EX7.14/7Ex14.sce b/1553/CH7/EX7.14/7Ex14.sce new file mode 100644 index 000000000..cfe316738 --- /dev/null +++ b/1553/CH7/EX7.14/7Ex14.sce @@ -0,0 +1,10 @@ +//chapter 7 Ex14
+
+clc;
+close;
+
+//Let one number be x, tbhus other is 50-x; according to given conditions forming the polynomial p=x^2-50*x+600; solving it we get
+mycoeff=[600 -50 1];
+p=poly(mycoeff,"x","coeff");
+r=roots(p);
+printf("The two parts are: %d and %d",r(1),r(2));
diff --git a/1553/CH7/EX7.2/7Ex2.sce b/1553/CH7/EX7.2/7Ex2.sce new file mode 100644 index 000000000..1ec9c6af3 --- /dev/null +++ b/1553/CH7/EX7.2/7Ex2.sce @@ -0,0 +1,20 @@ +//Chapter 7 Ex2
+clc;
+clear;
+close;
+//let number be x
+//given 7x-15=2x+10
+//thus polynomial is 5x-25=0
+
+mycoeff=[-25 5];
+p=poly(mycoeff,"x","coeff");
+ans=roots(p);
+printf("The number is: %d",ans);
+
+//Alternative logic for same problem
+for x=1:99
+ if((5*x-25)==0)
+ printf("\nAlternate logic: \nThe number is: %d",x);
+ break;
+end
+end
diff --git a/1553/CH7/EX7.3/7Ex3.sce b/1553/CH7/EX7.3/7Ex3.sce new file mode 100644 index 000000000..d1384af51 --- /dev/null +++ b/1553/CH7/EX7.3/7Ex3.sce @@ -0,0 +1,11 @@ +//Chapter 7 Ex 3
+clc;
+close;
+
+//let the number be x; thus the reciprocal is 1/x and equation (e1)can be formed as:
+//x+(1/x)=13/6; converting it into a polynomial
+
+mycoeff=[6 -13 6];
+p=poly(mycoeff,"x","coeff");
+ans=roots(p);
+printf("The number is: x=%1.1f or x=%1.1f",ans(1),ans(2));
diff --git a/1553/CH7/EX7.4/7Ex4.sce b/1553/CH7/EX7.4/7Ex4.sce new file mode 100644 index 000000000..f0d823d93 --- /dev/null +++ b/1553/CH7/EX7.4/7Ex4.sce @@ -0,0 +1,21 @@ +//Chapter 7 Ex4
+clc;
+clear;
+close;
+//let number be x
+//given (x/3)-(184-x)/7=8
+//thus polynomial is: 10x=720
+
+mycoeff=[-720 10];
+p=poly(mycoeff,"x","coeff");
+ans=roots(p);
+printf("The smaller number is: %d",ans);
+
+
+//Alternative logic for same problem
+for x=1:99
+ if((10*x-720)==0)
+ printf("\n Alternate logic: \n The smaller number is: %d",x);
+ break;
+end
+end
diff --git a/1553/CH7/EX7.5/7Ex5.sce b/1553/CH7/EX7.5/7Ex5.sce new file mode 100644 index 000000000..5d1703a72 --- /dev/null +++ b/1553/CH7/EX7.5/7Ex5.sce @@ -0,0 +1,20 @@ +//Chapter 7 Ex5
+clc;
+clear;
+close;
+//let numbers be x and y
+
+x=poly(0,'x');
+y=x-11; //equation 1
+y=45-x; //equation 2
+for x=1:99
+ if x-11 ==45-x
+ mprintf("x=%i \n ",x)
+ break
+ end
+end
+disp("substitute the x value in any one of the above equationsto find y.");
+y=x-11;
+printf("\nThus the numbers are %d and %d: \n",x,y);
+
+
diff --git a/1553/CH7/EX7.6/7Ex6.sce b/1553/CH7/EX7.6/7Ex6.sce new file mode 100644 index 000000000..962317f79 --- /dev/null +++ b/1553/CH7/EX7.6/7Ex6.sce @@ -0,0 +1,17 @@ +//Chapter 7 Ex 6
+clc;
+close;
+//let number be x nad y, then x+y=42 and x*y=437
+//absolute differenec is given by:
+
+//sum=x+y;
+Sum=42;
+
+//product=x*y;
+product=437;
+
+eq=Sum^2-4*product;
+
+//diff=x-y;
+Diff=sqrt(eq);
+printf("Required difference is: %d",Diff);
diff --git a/1553/CH7/EX7.7/7Ex7.sce b/1553/CH7/EX7.7/7Ex7.sce new file mode 100644 index 000000000..bc4e37756 --- /dev/null +++ b/1553/CH7/EX7.7/7Ex7.sce @@ -0,0 +1,10 @@ +//chapter 7 Ex7
+
+clc;
+close;
+
+//Let one number be x, tbhus other is 15-x; according to given conditions forming the polynomial p=x^2+(15-x)^2; solving it we get
+mycoeff=[56 -15 1];
+p=poly(mycoeff,"x","coeff");
+r=roots(p);
+printf("The two numbers are: %d and %d",r(1),r(2));
diff --git a/1553/CH7/EX7.8/7Ex8.sce b/1553/CH7/EX7.8/7Ex8.sce new file mode 100644 index 000000000..fed94530a --- /dev/null +++ b/1553/CH7/EX7.8/7Ex8.sce @@ -0,0 +1,15 @@ +////Chapter 7 Ex 8
+clc;
+close;
+
+//Let first number be x, thus other numbers will be x+2,x+4,x+6 (since consecutive even); and the equation will be (sum/4)=27
+
+//sum=x+(x+2)+(x+4)+(x+6);
+//avg=27; //given
+//avg=sum/4;
+// given polynomial is x+(x+2)+(x+4)+(x+6)=108
+
+mycoeff=[-96 4];
+p=poly(mycoeff,"x","coeff");
+r=roots(p)+6;
+printf("The largest number is: %d",r)
diff --git a/1553/CH7/EX7.9/7Ex9.sce b/1553/CH7/EX7.9/7Ex9.sce new file mode 100644 index 000000000..6ef55c787 --- /dev/null +++ b/1553/CH7/EX7.9/7Ex9.sce @@ -0,0 +1,16 @@ +//Chapter 7 Ex 9
+
+clc;
+close;
+
+//let first number be x,thus other numbers are x+2 and x+4;
+//given is x^2+(x+2)^2+(x+4)^2=2531; after solving equation is x^2+4*x-837
+ mycoeff=[-837 4 1];
+p=poly(mycoeff,"x","coeff");
+r=roots(p);
+r1=r(1)+2;
+r2=r(1)+4;
+printf("The numbers are either %d, %d, %d OR",r(1),r1,r2);
+r3=r(2)+2;
+r4=r(2)+4;
+printf(" %d, %d, %d",r(2),r3,r4);
diff --git a/1553/CH8/EX8.1/8Ex1.sce b/1553/CH8/EX8.1/8Ex1.sce new file mode 100644 index 000000000..98fc8ad4c --- /dev/null +++ b/1553/CH8/EX8.1/8Ex1.sce @@ -0,0 +1,13 @@ +//chapter 8 Ex 1
+
+clc;
+clear;
+close;
+//let rajeev's age be x
+//by the given condition: equation is x+15=5(x-5);
+mycoeff=[-40 4];
+p=poly(mycoeff,"x","coeff");
+ageRajeev=roots(p);
+mprintf("Present age of rajeev is %d years",ageRajeev);
+
+
diff --git a/1553/CH8/EX8.2/8Ex2.sce b/1553/CH8/EX8.2/8Ex2.sce new file mode 100644 index 000000000..846121861 --- /dev/null +++ b/1553/CH8/EX8.2/8Ex2.sce @@ -0,0 +1,13 @@ +//chapter 8 Ex 1
+
+clc;
+clear;
+close;
+//let age of younger person be x
+//by the given condition: equation is 3(x-6)=x+16-6;
+mycoeff=[-28 2];
+p=poly(mycoeff,"x","coeff");
+x=roots(p);
+mprintf("Their present ages are %d years and %d years",x,x+16);
+
+
diff --git a/1553/CH8/EX8.3/8Ex3.sce b/1553/CH8/EX8.3/8Ex3.sce new file mode 100644 index 000000000..c133469ab --- /dev/null +++ b/1553/CH8/EX8.3/8Ex3.sce @@ -0,0 +1,14 @@ +//chapter 8 Ex 3
+
+clc;
+clear;
+close;
+//let ankita's age be x, thus nikita'a age=240/x
+//by the given condition: 2*240/x-x=4; equation is: x^2+4*x-480;
+mycoeff=[-480 4 1];
+p=poly(mycoeff,"x","coeff");
+ageAnkita=roots(p);
+ageNikita=240/ageAnkita(2);//since age cannot be negative
+printf("Age of Nikita is %d years",ageNikita);
+
+
diff --git a/1553/CH8/EX8.4/8Ex4.sce b/1553/CH8/EX8.4/8Ex4.sce new file mode 100644 index 000000000..c4e6e968d --- /dev/null +++ b/1553/CH8/EX8.4/8Ex4.sce @@ -0,0 +1,13 @@ +//chapter 8 Ex 4
+
+clc;
+clear;
+close;
+//let son's age be x
+//by the given condition: equation is 3x+3+3=2(x+3)+10;
+mycoeff=[-10 1];
+p=poly(mycoeff,"x","coeff");
+x=roots(p);
+mprintf("Present age of father is %d years",3*x+3);
+
+
diff --git a/1553/CH8/EX8.5/8Ex5.sce b/1553/CH8/EX8.5/8Ex5.sce new file mode 100644 index 000000000..2832a8a5d --- /dev/null +++ b/1553/CH8/EX8.5/8Ex5.sce @@ -0,0 +1,13 @@ +//chapter 8 Ex 5
+
+clc;
+clear;
+close;
+//let son's age 8 years ago be x
+//by the given condition: equation is 2(x+16)=4x+16;
+mycoeff=[-16 2];
+p=poly(mycoeff,"x","coeff");
+x=roots(p);
+mprintf("Present age of rohit is %d years",4*x+8);
+
+
diff --git a/1553/CH8/EX8.6/8Ex6.sce b/1553/CH8/EX8.6/8Ex6.sce new file mode 100644 index 000000000..e206d90ee --- /dev/null +++ b/1553/CH8/EX8.6/8Ex6.sce @@ -0,0 +1,13 @@ +//chapter 8 Ex 6
+
+clc;
+clear;
+close;
+//let sachin's age 1 years ago be 6x
+//by the given condition: equation is (6x+5)/(7x+5)=7/8;
+mycoeff=[-5 1];
+p=poly(mycoeff,"x","coeff");
+x=roots(p);
+mprintf("Present age of sachin is %d years",7*x+1);
+
+
diff --git a/1553/CH8/EX8.7/8Ex7.sce b/1553/CH8/EX8.7/8Ex7.sce new file mode 100644 index 000000000..a92344ccf --- /dev/null +++ b/1553/CH8/EX8.7/8Ex7.sce @@ -0,0 +1,13 @@ +//chapter 8 Ex 7
+
+clc;
+clear;
+close;
+//let abhay's age 10 years ago be x
+//by the given condition: equation is x+16=3/7*(5x+16);
+mycoeff=[-64 8];
+p=poly(mycoeff,"x","coeff");
+x=roots(p);
+mprintf("Present age of abhay father is %d years",5*x+10);
+
+
diff --git a/1553/CH9/EX9.1/9Ex1.sce b/1553/CH9/EX9.1/9Ex1.sce new file mode 100644 index 000000000..1fe7e7039 --- /dev/null +++ b/1553/CH9/EX9.1/9Ex1.sce @@ -0,0 +1,11 @@ +//chapter 9 Ex 1
+
+clc;
+clear;
+close;
+b1=27; p1=2/3; //base and power
+b2=1024; p2=(-4/5);
+b3=8/125; p3=(-4/3);
+//let the values to be found out be x, y and z
+x=b1^p1; y=b2^p2; z=b3^p3;
+mprintf("(i)x=%.0f\n(ii) y=%.4f\n(iii) z=%.2f",x,y,z);
diff --git a/1553/CH9/EX9.10/9Ex10.sce b/1553/CH9/EX9.10/9Ex10.sce new file mode 100644 index 000000000..517eaab8c --- /dev/null +++ b/1553/CH9/EX9.10/9Ex10.sce @@ -0,0 +1,7 @@ +//Chapter 9 Ex 10
+
+clc;
+clear;
+close;
+x=((6^(2/3))*(6^(7/3)))/(6^(6/3));
+mprintf("The value of expression is %d",x);
diff --git a/1553/CH9/EX9.13/9Ex13.sce b/1553/CH9/EX9.13/9Ex13.sce new file mode 100644 index 000000000..02d818ac7 --- /dev/null +++ b/1553/CH9/EX9.13/9Ex13.sce @@ -0,0 +1,10 @@ +//chapter 9 Ex 13
+
+clc;
+clear;
+close;
+
+a=sqrt(2); b=nthroot(3,3);
+v=[a b];
+v=gsort(v,'lc','i');
+mprintf("%.3f > %.3f i.e b>a",v(2),v(1));
diff --git a/1553/CH9/EX9.14/9Ex14.sce b/1553/CH9/EX9.14/9Ex14.sce new file mode 100644 index 000000000..850f9c2f1 --- /dev/null +++ b/1553/CH9/EX9.14/9Ex14.sce @@ -0,0 +1,10 @@ +//chapter 9 Ex 14
+
+clc;
+clear;
+close;
+
+a=nthroot(6,4); b=sqrt(2); c=nthroot(4,3);
+v=[a b c];
+v=gsort(v,'lc','i');
+mprintf("Largest number is %.3f",v(3));
diff --git a/1553/CH9/EX9.2/9Ex2.sce b/1553/CH9/EX9.2/9Ex2.sce new file mode 100644 index 000000000..1993dcbe9 --- /dev/null +++ b/1553/CH9/EX9.2/9Ex2.sce @@ -0,0 +1,13 @@ +//Chapter 9 Ex 2
+
+clc;
+clear;
+close;
+
+//(i)
+x1=(0.00032)^(3/5);
+
+//(ii)
+x2=((256)^(0.16))*((16)^(0.18));
+
+mprintf("The value of expression 1 and expression 2 are %.3f and %d",x1,x2);
diff --git a/1553/CH9/EX9.3/9Ex3.sce b/1553/CH9/EX9.3/9Ex3.sce new file mode 100644 index 000000000..97d3cc56e --- /dev/null +++ b/1553/CH9/EX9.3/9Ex3.sce @@ -0,0 +1,11 @@ +//chapter 9 Ex 3
+
+clc;
+clear;
+close;
+x=poly(0,'x');
+//let the answer to be found out be ans
+mprintf("The quotient is:\n");
+ans=(x^(-1)-1)/(x-1)
+disp(ans)
+
diff --git a/1553/CH9/EX9.4/9Ex4.sce b/1553/CH9/EX9.4/9Ex4.sce new file mode 100644 index 000000000..a0787e61b --- /dev/null +++ b/1553/CH9/EX9.4/9Ex4.sce @@ -0,0 +1,12 @@ +//Chapter 9 Ex 4
+
+clc;
+close;
+clear;
+x=poly(0,'x');
+for x=1:20
+ if ((2^(x-1))+(2^(x+1)))==1280
+ break;
+ end
+end
+mprintf("The value of x is %d",x);
diff --git a/1553/CH9/EX9.5/9EX5.sce b/1553/CH9/EX9.5/9EX5.sce new file mode 100644 index 000000000..32f000d25 --- /dev/null +++ b/1553/CH9/EX9.5/9EX5.sce @@ -0,0 +1,7 @@ +//Chapter 9 Ex 5
+
+clc;
+clear;
+close;
+x=(5*((8^(1/3))+(27^(1/3)))^3)^(1/4);
+mprintf("The value of expression is %d",x);
diff --git a/1553/CH9/EX9.6/9Ex6.sce b/1553/CH9/EX9.6/9Ex6.sce new file mode 100644 index 000000000..ea7f4565a --- /dev/null +++ b/1553/CH9/EX9.6/9Ex6.sce @@ -0,0 +1,7 @@ +//Chapter 9 Ex 6
+
+clc;
+clear;
+close;
+x=(16^(3/2))+(16^(-3/2));
+mprintf("The value of x is %.3f",x);
diff --git a/1553/CH9/EX9.7/9Ex7.sce b/1553/CH9/EX9.7/9Ex7.sce new file mode 100644 index 000000000..9832f6256 --- /dev/null +++ b/1553/CH9/EX9.7/9Ex7.sce @@ -0,0 +1,15 @@ +//chapter 9 Ex 7
+
+clc;
+clear;
+close;
+//let the value be x
+y=poly(0,'y');
+for y=1:10
+ if ((1/5)^(y))==nthroot(.008,3)
+ mprintf("y=%d",y);
+ break;
+ end
+end
+ans=.25^y;
+mprintf("\n ans=%.2f",ans);
diff --git a/1553/CH9/EX9.8/9Ex8.sce b/1553/CH9/EX9.8/9Ex8.sce new file mode 100644 index 000000000..cdd181afb --- /dev/null +++ b/1553/CH9/EX9.8/9Ex8.sce @@ -0,0 +1,9 @@ +//Chapter 9 Ex 8
+
+clc;
+clear;
+close;
+n=1; //assuming
+expr=((243^(n/5))*(3^(2*n+1)))/((9^n)*(3^(n-1)));
+mprintf("The value of expression is %d",expr);
+
diff --git a/1553/CH9/EX9.9/9Ex9.sce b/1553/CH9/EX9.9/9Ex9.sce new file mode 100644 index 000000000..402492a7d --- /dev/null +++ b/1553/CH9/EX9.9/9Ex9.sce @@ -0,0 +1,7 @@ +//Chapter 9 Ex 9
+
+clc;
+clear;
+close;
+x=(2^(1/4)-1)*((2^(3/4))+(2^(1/2))+(2^(1/4))+1);
+mprintf("The value of the expression is %.0f",x);
|