5 files changed, 68 insertions, 0 deletions
diff --git a/1784/CH31/EX31.1/example1.sce b/1784/CH31/EX31.1/example1.sce
new file mode 100755
index 000000000..b0fba13fd
--- /dev/null
+++ b/1784/CH31/EX31.1/example1.sce
@@ -0,0 +1,13 @@
+//chapter 31
+//example1
+clc
+//given
+d1=0.10 //diameter of aluminium wire in inches
+d2=0.064 //diameter of copper wire in inches
+i=10 //current carried by composite wire in amperes
+A1=%pi*(d1/2)^2 //crosssectional area of aluminium wire in square inches
+A2=%pi*(d2/2)^2 //crosssectional area of copper wire in square inches
+j1=i/A1
+j2=i/A2
+disp(j1,"Current density in Aluminium wire in amp/square inches")
+disp(j2,"Current density in copper wire in amp/square inches")
diff --git a/1784/CH31/EX31.2/example2.sce b/1784/CH31/EX31.2/example2.sce
new file mode 100755
index 000000000..bfebdac66
--- /dev/null
+++ b/1784/CH31/EX31.2/example2.sce
@@ -0,0 +1,13 @@
+//chapter 31
+//example2
+clc
+//given
+j=480//current density for copper wire in amp/cm2
+N0=6*10^23 //avagadro number in atoms/mole
+M=64//molecular wt in gm/mole
+d=9.0 //density in gm/cm3
+e=1.6*10^-19//elecron charge in coul
+n=d*N0/M 
+disp(n,"No.of free electrons per unit volume in atoms/mole")
+Vd=j/(n*e)
+disp(Vd,"Drift speed of electron in cm/sec is")
diff --git a/1784/CH31/EX31.3/example3.sce b/1784/CH31/EX31.3/example3.sce
new file mode 100755
index 000000000..6bb1c7967
--- /dev/null
+++ b/1784/CH31/EX31.3/example3.sce
@@ -0,0 +1,19 @@
+//chapter 31
+//example3
+clc
+//given
+disp("Dimensions of rectangular carbon block are 1.0cm*1.0cm*50cm")
+l=1.0*10^-2 //in meter
+b=1.0*10^-2//in meter
+h=50*10^-2 //in meter
+p=3.5*10^-5 //resisivity of carbon in ohm-m
+//(a)Resistance b/w two square ends
+l1=h
+A1=b*l
+R1=p*l1/A1
+disp(R1,"(a) Resistance measured b/w the two square ends in ohm is")
+l2=l
+A2=b*h
+R2=p*l2/A2
+disp(R2,"(a) Resistance measured b/w the two opposite rectangular faces in ohm is")
+
diff --git a/1784/CH31/EX31.4/example4.sce b/1784/CH31/EX31.4/example4.sce
new file mode 100755
index 000000000..cb048e719
--- /dev/null
+++ b/1784/CH31/EX31.4/example4.sce
@@ -0,0 +1,13 @@
+//chapter 31
+//example4
+clc
+//given
+m=9.1*10^-31 //in kg
+n=8.4*10^28 //in m-1
+e=1.6*10^-19 //in coul
+p=1.7*10^-8 //in ohm-m
+v=1.6*10^8 //in cm/sec
+T=2*m/(n*p*e^2)
+disp(T,"(a) Mean time b/w collisions in sec is")
+Lambda=T*v
+disp(Lambda,"(b) Mean free path in cm is")
diff --git a/1784/CH31/EX31.5/example5.sce b/1784/CH31/EX31.5/example5.sce
new file mode 100755
index 000000000..9c4ff0387
--- /dev/null
+++ b/1784/CH31/EX31.5/example5.sce
@@ -0,0 +1,10 @@
+//chapter 31
+//example5
+clc
+//given
+V=110 //in volt
+R=24//ohms
+P1=V^2/R
+disp(P1,"(a)Power for the single coil in watts is")
+P2=V^2/(R/2)
+disp(P2,"(b)Power for a coil of half the length in watts is")