7 files changed, 99 insertions, 0 deletions
diff --git a/273/CH4/EX4.1/ex4_1.sce b/273/CH4/EX4.1/ex4_1.sce
new file mode 100755
index 000000000..d9fa870d8
--- /dev/null
+++ b/273/CH4/EX4.1/ex4_1.sce
@@ -0,0 +1,20 @@
+clc;clear;
+//Example 4.1
+//Calculation of acceleration,time taken,distance covered and kinetic energy of an accelerating proton
+
+//given values
+ m=1.67*10^-27;//mass of proton in kg
+ q=1.602*10^-19;//charge of proton in Coulomb
+ v1=0;//initial velocity in m/s
+ v2=2.5*10^6;//final velocity in m/s
+ E=500;//electric field strength in V/m
+ //calculation
+ a=E*q/m;//acceleration
+disp(a,'acceleration of proton in (m/s^2) is:');
+t=v2/a;//time
+disp(t,'time(in s) taken by proton to reach the final velocity is:');
+x=a*t^2/2;//distance
+disp(x,'distance (in m)covered by proton in this time is:');
+KE=E*q*x;//kinetic energy
+disp(KE,'kinetic energy(in J) at the time is:');
+
diff --git a/273/CH4/EX4.2/ex4_2.sce b/273/CH4/EX4.2/ex4_2.sce
new file mode 100755
index 000000000..322577ac2
--- /dev/null
+++ b/273/CH4/EX4.2/ex4_2.sce
@@ -0,0 +1,14 @@
+clc;clear;
+//Example 4.2
+//electrostatic deflection
+//given values
+V1=2000;//in volts,potential difference through which electron beam is accelerated
+l=.04;//length of rectangular plates
+d=.015;//distance between plates
+V=50;//potential difference between plates
+//calculations
+alpha=atan(l*V/(2*d*V1))*(180/%pi);//in degrees
+disp(alpha,'angle of deflection of electron beam is:');
+v=5.93*10^5*sqrt(V1);//horizontal velocity in m/s
+t=l/v;//in s
+disp(t,'transit time through electric field is:')
+\ No newline at end of file
diff --git a/273/CH4/EX4.3/ex4_3sce.sce b/273/CH4/EX4.3/ex4_3sce.sce
new file mode 100755
index 000000000..b8ab06640
--- /dev/null
+++ b/273/CH4/EX4.3/ex4_3sce.sce
@@ -0,0 +1,16 @@
+clc;clear;
+//Example 4.3
+//electron projected at an angle into a uniform electric field
+//given values
+v1=4.5*10^5;//initial speed in m/s
+alpha=37*%pi/180;//angle of projection in degrees
+E=200;//electric field intensity in N/C
+e=1.6*10^-19;//in C
+m=9.1*10^-31;//in kg
+a=e*E/m;//acceleration in m/s^2
+t=2*v1*sin(alpha)/a;//time in s
+disp(t,'time taken by electron to return to its initial level is:')
+H=(v1^2*sin(alpha)*sin(alpha))/(2*a);//height in m
+disp(H,'maximum height reached by electron is:')
+s=(v1^2)*(2*sin(alpha)*cos(alpha))/(2*a);//displacement in m
+disp(s,'horizontal displacement(in m)when it reaches maximum height is:')
+\ No newline at end of file
diff --git a/273/CH4/EX4.4/ex4_4.sce b/273/CH4/EX4.4/ex4_4.sce
new file mode 100755
index 000000000..e57696b44
--- /dev/null
+++ b/273/CH4/EX4.4/ex4_4.sce
@@ -0,0 +1,12 @@
+clc;clear;
+//Example 4.4
+//motion of an electron in a uniform magnetic field
+//given values
+V=200;//potential difference through which electron is accelerated in volts
+B=0.01;//magnetic field in wb/m^2
+e=1.6*10^-19;//in C
+m=9.1*10^-31;//in kg
+v=sqrt(2*e*V/m);//electron velocity in m/s
+disp(v,'electron velocity is:')
+r=m*v/(e*B);//in m
+disp(r,'radius of path (in m)is:')
+\ No newline at end of file
diff --git a/273/CH4/EX4.5/ex4_5.sce b/273/CH4/EX4.5/ex4_5.sce
new file mode 100755
index 000000000..610153cc7
--- /dev/null
+++ b/273/CH4/EX4.5/ex4_5.sce
@@ -0,0 +1,13 @@
+clc;clear;
+//Example 4.5
+//motion of an electron in a uniform magnetic field acting at an angle
+//given values
+v=3*10^7;//electron speed
+B=.23;//magnetic field in wb/m^2
+q=45*%pi/180;//in degrees,angle in which electron enter field
+e=1.6*10^-19;//in C
+m=9.1*10^-31;//in kg
+R=m*v*sin(q)/(e*B);//in m
+disp(R,'radius of helical path is:')
+p=2*%pi*m*v*cos(q)/(e*B);//in m
+disp(p,'pitch of helical path(in m) is:')
+\ No newline at end of file
diff --git a/273/CH4/EX4.6/ex4_6sce.sce b/273/CH4/EX4.6/ex4_6sce.sce
new file mode 100755
index 000000000..9ed0dd505
--- /dev/null
+++ b/273/CH4/EX4.6/ex4_6sce.sce
@@ -0,0 +1,12 @@
+clc;clear;
+//Example 4.6
+//Magnetostatic deflection
+//given values
+D=.03;//deflection in m
+m=9.1*10^-31;//in kg
+e=1.6*10^-19;//in C
+L=.15;//distance between CRT and anode in m
+l=L/2;
+V=2000;//in voltsin wb/
+B=D*sqrt(2*m*V)/(L*l*sqrt(e));//in wb/m^2
+disp(B,'transverse magnetic field acting (in wb/m^2)is:')
+\ No newline at end of file
diff --git a/273/CH4/EX4.7/ex4_7sce.sce b/273/CH4/EX4.7/ex4_7sce.sce
new file mode 100755
index 000000000..fb58bc6d5
--- /dev/null
+++ b/273/CH4/EX4.7/ex4_7sce.sce
@@ -0,0 +1,12 @@
+clc;clear;
+//Example 4.7
+//electric and magnetic fields in crossed configuration
+//given values
+B=2*10^-3;//magnetic field in wb/m^2
+E=3.4*10^4;//electric field in V/m
+m=9.1*10^-31;//in kg
+e=1.6*10^-19;//in C
+v=E/B;//in m/s
+disp(v,'electron speed is:')
+R=m*v/(e*B);//in m
+disp(R,'radius of circular path (in m) when electric field is switched off')
+\ No newline at end of file