3 files changed, 44 insertions, 0 deletions
diff --git a/1784/CH34/EX34.3/example3.sce b/1784/CH34/EX34.3/example3.sce
new file mode 100755
index 000000000..ecd3ceaac
--- /dev/null
+++ b/1784/CH34/EX34.3/example3.sce
@@ -0,0 +1,11 @@
+//chapter 34
+//example3
+clc
+//given
+i1=100 //in amp
+i2=20 //in amp
+W=0.073 //weight of second wire W=F/l in nt/m
+u0=4*%pi*10^-7 //in weber/amp-m
+//calculations
+d=u0*i1*i2/(2*%pi*W)
+disp(d,"seperation between two wires in metres")
diff --git a/1784/CH34/EX34.5/example5.sce b/1784/CH34/EX34.5/example5.sce
new file mode 100755
index 000000000..cf460141b
--- /dev/null
+++ b/1784/CH34/EX34.5/example5.sce
@@ -0,0 +1,16 @@
+//chapter 34
+//example5
+clc
+//given
+l=1.0 //length of solenoid in meter
+d=3*10^-2 //diameter of solenoid in meter
+n=5*850 //number of layers and turns of wire
+u0=4*%pi*10^-7 //in weber/amp-m
+i0=5.0 //current in amp
+//(A)
+B=u0*i0*n
+disp(B,"Magnetic field at center in wb/m2 is")
+//(B)
+A=%pi*(d/2)^2
+Q=B*A
+disp(Q,"Magnetic flux at the center of the solenoid in weber is")
diff --git a/1784/CH34/EX34.9/eample9.sce b/1784/CH34/EX34.9/eample9.sce
new file mode 100755
index 000000000..47211feee
--- /dev/null
+++ b/1784/CH34/EX34.9/eample9.sce
@@ -0,0 +1,17 @@
+//chapter 34
+//example9
+clc
+//given
+e=1.6*10^-19 //in coul
+R=5.1*10^-11 //radius of th enucleus in meter
+f=6.8*10^15 //frequency with which elecron circulates in rev/sec
+u0=4*%pi*10^-7 //in weber/amp-m
+x=0 //x is any point on the orbit, since at center x=0
+//(A)
+i=e*f
+B=u0*i*R^2*0.5/((R^2+x^2)^(3/2))
+disp(B,"(A)  Magnetic field at the center of the orbit in wb/m2")
+N=1 //no.of turns
+A=%pi*R^2
+U=N*i*A
+disp(U,"(B)  Equivalent magnetic dipole moment in amp-m2 is ")