diff options
Diffstat (limited to '1322/CH15')
| -rwxr-xr-x | 1322/CH15/EX15.1/114ex1.sce | 10 | ||||
| -rwxr-xr-x | 1322/CH15/EX15.10/116ex5.sce | 6 | ||||
| -rwxr-xr-x | 1322/CH15/EX15.11/117ex1.sce | 15 | ||||
| -rwxr-xr-x | 1322/CH15/EX15.12/117ex2.sce | 16 | ||||
| -rwxr-xr-x | 1322/CH15/EX15.2/114ex2.sce | 8 | ||||
| -rwxr-xr-x | 1322/CH15/EX15.3/114ex3.sce | 8 | ||||
| -rwxr-xr-x | 1322/CH15/EX15.4/115ex1.sce | 12 | ||||
| -rwxr-xr-x | 1322/CH15/EX15.5/115ex2.sce | 12 | ||||
| -rwxr-xr-x | 1322/CH15/EX15.6/116ex1.sce | 8 | ||||
| -rwxr-xr-x | 1322/CH15/EX15.7/116ex2.sce | 8 | ||||
| -rwxr-xr-x | 1322/CH15/EX15.8/116ex3.sce | 16 | ||||
| -rwxr-xr-x | 1322/CH15/EX15.9/116ex4.sce | 10 |
12 files changed, 129 insertions, 0 deletions
diff --git a/1322/CH15/EX15.1/114ex1.sce b/1322/CH15/EX15.1/114ex1.sce new file mode 100755 index 000000000..d93082c01 --- /dev/null +++ b/1322/CH15/EX15.1/114ex1.sce @@ -0,0 +1,10 @@ + +//simplify (a+b)/(a^2-b^2)
+clear;
+clc;
+close;
+//as, by formula,(a^2-b^2)=(a+b)(a-b)
+mprintf("\n (a+b)/((a+b)(a-b)) => 1/(a-b) \n")
+
+
+
diff --git a/1322/CH15/EX15.10/116ex5.sce b/1322/CH15/EX15.10/116ex5.sce new file mode 100755 index 000000000..001e3b849 --- /dev/null +++ b/1322/CH15/EX15.10/116ex5.sce @@ -0,0 +1,6 @@ + +//1/R=1/R1-1/R2. get R
+clear;
+clc;
+close;
+disp("R=R1R2/(R2-R1)")
diff --git a/1322/CH15/EX15.11/117ex1.sce b/1322/CH15/EX15.11/117ex1.sce new file mode 100755 index 000000000..ad04d3704 --- /dev/null +++ b/1322/CH15/EX15.11/117ex1.sce @@ -0,0 +1,15 @@ + +clear;
+clc;
+close;
+x=poly(0,'x');
+p1=3/(x-2);
+p2=5/(x-1);
+// given, 3/(x-2)=5/(x-1)
+for x=0.0:0.1:10.0
+if(3*(x-1)==5*(x-2))
+ format(7)
+x
+ break
+end
+end
diff --git a/1322/CH15/EX15.12/117ex2.sce b/1322/CH15/EX15.12/117ex2.sce new file mode 100755 index 000000000..3d951719e --- /dev/null +++ b/1322/CH15/EX15.12/117ex2.sce @@ -0,0 +1,16 @@ + +clear;
+clc;
+close;
+n=poly(0,'n');
+p1=1/(n-2);
+p2=1/(n-3);
+p=p1+p2;
+q=2/n;
+//given p=q
+ z1=numer(p)*denom(q);
+ z2=numer(q)*denom(p);
+//As,z1=z2. cancel the terms common on both sides
+ a=z1-z2;
+ n=roots(a)
+
diff --git a/1322/CH15/EX15.2/114ex2.sce b/1322/CH15/EX15.2/114ex2.sce new file mode 100755 index 000000000..91b654a2c --- /dev/null +++ b/1322/CH15/EX15.2/114ex2.sce @@ -0,0 +1,8 @@ + +clear;
+clc;
+close;
+x=poly(0,'x');
+p1=x^2+4*x-12;
+p2=x^2+x-6;
+p=p1/p2
diff --git a/1322/CH15/EX15.3/114ex3.sce b/1322/CH15/EX15.3/114ex3.sce new file mode 100755 index 000000000..144458260 --- /dev/null +++ b/1322/CH15/EX15.3/114ex3.sce @@ -0,0 +1,8 @@ + +//simplify 3a(a^2-4ab+4b^2)/6a(a^2+3ab-10b^2)
+clear;
+clc;
+close;
+//the factors 3a(a-2b) are common to numerator & denominator.
+mprintf("\n the fraction is :\n")
+string('(a-2b)/(2a(a+5b))')
diff --git a/1322/CH15/EX15.4/115ex1.sce b/1322/CH15/EX15.4/115ex1.sce new file mode 100755 index 000000000..5cef1bb36 --- /dev/null +++ b/1322/CH15/EX15.4/115ex1.sce @@ -0,0 +1,12 @@ + +clear;
+clc;
+close;
+x=poly(0,'x');
+p1=x;
+p2=x+1;
+p=p1/p2;
+q1=x^2;
+q2=x^2-1;
+q=q1/q2;
+p/q
diff --git a/1322/CH15/EX15.5/115ex2.sce b/1322/CH15/EX15.5/115ex2.sce new file mode 100755 index 000000000..db691440e --- /dev/null +++ b/1322/CH15/EX15.5/115ex2.sce @@ -0,0 +1,12 @@ + +clear;
+clc;
+close;
+x=poly(0,'x');
+p1=x^4-27*x;
+p2=x^2-9;
+p=p1/p2;
+q1=x^2+3*x+9;
+q2=x+3;
+q=q1/q2;
+p/q
diff --git a/1322/CH15/EX15.6/116ex1.sce b/1322/CH15/EX15.6/116ex1.sce new file mode 100755 index 000000000..8adceb9ac --- /dev/null +++ b/1322/CH15/EX15.6/116ex1.sce @@ -0,0 +1,8 @@ + +//simplify a/(a-b) - a^2/(a^2-b^2)
+clear;
+clc;
+close;
+//as, (a^2-b^2)=(a+b)(a-b),substitute it.
+mprintf("\n the fraction is :\n")
+ans=string('ab/((a+b)(a-b))')
diff --git a/1322/CH15/EX15.7/116ex2.sce b/1322/CH15/EX15.7/116ex2.sce new file mode 100755 index 000000000..69fc88984 --- /dev/null +++ b/1322/CH15/EX15.7/116ex2.sce @@ -0,0 +1,8 @@ + +//3/(a-b)-(2a+b)/(a^2-b^2)
+clear;
+clc;
+close;
+mprintf("\n on factorizing, the expression becomes \n");
+//3/(a-b)-(2a+b)/(a+b)(a-b) => (3a+3b-2a-b)/(a+b)(a-b)
+string('(a+2b)/((a+b)(a-b))')
diff --git a/1322/CH15/EX15.8/116ex3.sce b/1322/CH15/EX15.8/116ex3.sce new file mode 100755 index 000000000..53cbb2a85 --- /dev/null +++ b/1322/CH15/EX15.8/116ex3.sce @@ -0,0 +1,16 @@ + +
+clear;
+clc;
+close;
+x=poly(0,'x');
+p1=x-1;
+p2=x^2-x-2;
+p=p1/p2;
+q1=x+2;
+q2=x^2+4*x+3;
+q=q1/q2;
+t=p-q;
+y=numer(t) //numerator of t
+z=factors(denom(t))//factors of denominator of t (more simplified form)
+disp("val=(1+2x)/(1+x)(-2+x)(3+x)")
diff --git a/1322/CH15/EX15.9/116ex4.sce b/1322/CH15/EX15.9/116ex4.sce new file mode 100755 index 000000000..a59fb7631 --- /dev/null +++ b/1322/CH15/EX15.9/116ex4.sce @@ -0,0 +1,10 @@ + +//x/(x-(1/x))
+clear;
+clc;
+close;
+x=poly(0,'x');
+p1=x;
+p2=1/x;
+p3=p1-p2;
+p=p1/p3
|