9 files changed, 123 insertions, 0 deletions
diff --git a/1322/CH21/EX21.1/183ex1.sce b/1322/CH21/EX21.1/183ex1.sce
new file mode 100755
index 000000000..aa7aa4ab5
--- /dev/null
+++ b/1322/CH21/EX21.1/183ex1.sce
@@ -0,0 +1,20 @@
+
+//spiral spring example
+clc;
+clear;
+close;
+clf();
+weight=linspace(0,0.5,6);
+extension=[0 0.15 0.3 0.44 0.6 0.75];
+plot2d(weight,extension,13);
+xtitle("spiral spring example","vaues of L","values of E");
+xgrid();
+//Extension varies directly as the attached load
+//let E=Extension,L=Load
+//to find 'k',a pair of values is taken at point p
+L=0.5;E=0.75;
+plot(L,E,'r..');
+legend("E=KL",'POINT P',2);
+//substitute 'p' in E=K*L
+K=E/L;
+mprintf("the law is : \n E= %fL \n",K)
diff --git a/1322/CH21/EX21.2/185ex1.sce b/1322/CH21/EX21.2/185ex1.sce
new file mode 100755
index 000000000..c8d1b8fda
--- /dev/null
+++ b/1322/CH21/EX21.2/185ex1.sce
@@ -0,0 +1,21 @@
+
+//voltmeters example
+clc;
+clear;
+close;
+clf();
+C=[1.9 2.75 3.8 4.8 5.8];
+K=[5.75 8.3 11.2 14 16.8];
+//C and K are connected by the law of the form K=mC+b
+plot2d4(C,K,3);
+plot(3.4,10,'r.pentagram');
+plot(5.3,15.5,'r.pentagram');
+xtitle("voltmeters graph","C","K");
+xgrid();
+legend("K=mC+b","POINTS A,B",2);
+//substituting A,B points in K=mC+b,we get
+//10=3.4m+b ------->equ(1) ; 15.5=5.3m+b ------->equ(2)
+//substracting
+m=(10-15.5)/(3.4-5.3);
+b=10-(3.4*m);
+mprintf("the law is: \n K=%fC+%f",m,b)
diff --git a/1322/CH21/EX21.3/192ex1.sce b/1322/CH21/EX21.3/192ex1.sce
new file mode 100755
index 000000000..377e09650
--- /dev/null
+++ b/1322/CH21/EX21.3/192ex1.sce
@@ -0,0 +1,13 @@
+
+ //y varies as cube root of x
+clear;
+clc;
+close;
+//y=k*x^(1/3)
+y=3;x=64;//given
+k=y/(x^(1/3));
+mprintf("(1) y=0.75*x^(1/3)"); 
+//when y=15/4,x=?
+x=(15/4)^3/(0.75)^3;
+mprintf("(2) x=%i",x)
+                                                                                                                                                                                                                  
diff --git a/1322/CH21/EX21.4/192ex2.sce b/1322/CH21/EX21.4/192ex2.sce
new file mode 100755
index 000000000..14d7b44d7
--- /dev/null
+++ b/1322/CH21/EX21.4/192ex2.sce
@@ -0,0 +1,17 @@
+
+//time of vibration of pendulum varies as sqrt(length)
+clear;
+clc;
+close;
+//let l=length of pendulum in meters, t=the time of variation
+//t=k*sqrt(l) => vibration of pendulum varies as sqrt(length)
+l=1;t=1;//given
+k=t/(sqrt(l));
+l=1.06;//given
+format(5);
+time_in_sec=k*sqrt(l)
+
+
+
+
+                                                                                                                                                            
diff --git a/1322/CH21/EX21.5/193ex1.sce b/1322/CH21/EX21.5/193ex1.sce
new file mode 100755
index 000000000..b48505c8f
--- /dev/null
+++ b/1322/CH21/EX21.5/193ex1.sce
@@ -0,0 +1,12 @@
+
+//A=b*h/2
+clear;
+clc;
+close;
+//A= the area of triangle.b=the length of base.h=the corresponding altitude
+// A depends on both b &h 
+mprintf("\n A=k*b*h \n ")
+k=1/2
+
+
+                                                                                                                                                            
diff --git a/1322/CH21/EX21.6/193ex2.sce b/1322/CH21/EX21.6/193ex2.sce
new file mode 100755
index 000000000..3bd920570
--- /dev/null
+++ b/1322/CH21/EX21.6/193ex2.sce
@@ -0,0 +1,9 @@
+
+//volume of mass os gas at const. temp. varies inversly as pressure on it
+clear
+clc
+close
+//v=volume
+//T=absolute temperature
+//P=pressure
+mprintf("\n v=k*T/P \n")
diff --git a/1322/CH21/EX21.7/193ex3.sce b/1322/CH21/EX21.7/193ex3.sce
new file mode 100755
index 000000000..30ec92737
--- /dev/null
+++ b/1322/CH21/EX21.7/193ex3.sce
@@ -0,0 +1,9 @@
+
+//resistance of a current wire varies as length varies also, varies inversly as the cross section of wire
+clear
+clc
+close
+//R=the resistance
+//l=the length
+//the cross section
+mprintf("\n R=k*l/A \n ")
diff --git a/1322/CH21/EX21.8/195ex1.sce b/1322/CH21/EX21.8/195ex1.sce
new file mode 100755
index 000000000..7d937f3fd
--- /dev/null
+++ b/1322/CH21/EX21.8/195ex1.sce
@@ -0,0 +1,11 @@
+
+clear;
+clc;
+close;
+// y varies directly as x and inversly as z^3 
+mprintf("\n y=k*x/z^3 \n")
+x=15;z=12;y=1/36;//given
+//substituting given values
+format(5)
+k=y*z^3/x
+
diff --git a/1322/CH21/EX21.9/195ex2.sce b/1322/CH21/EX21.9/195ex2.sce
new file mode 100755
index 000000000..0abd1136f
--- /dev/null
+++ b/1322/CH21/EX21.9/195ex2.sce
@@ -0,0 +1,11 @@
+
+clear;
+clc;
+close;
+// force of 2 magnetic poles varies as product of their strength & inversly as square of distance between them 
+//F=the force.  m1,m2=the pole strengths.  d=the distance apart
+mprintf("\n F=k*m1*m2/d^2 \n")
+F=3;m1=8;m2=6;d=4;//given
+k=F*d^2/(m1*m2);
+m1=5;m2=9;d=2;
+Force_in_newtons=k*m1*m2/d^2