Added new codeHEADmaster

13 files changed, 265 insertions, 0 deletions

diff --git a/3871/CH16/EX16.1/Ex16_1.sce b/3871/CH16/EX16.1/Ex16_1.sce
new file mode 100644
index 000000000..871bfb780
--- /dev/null
+++ b/3871/CH16/EX16.1/Ex16_1.sce
@@ -0,0 +1,23 @@
+//=====================================================================================

+//Chapter 16 example 1

+

+

+clc;clear all;

+

+//variable declaration

+l    = 0.025;    //length of plates in m

+d    = 0.005;    //distance between plates in m

+S    = 0.2;      //the distance between the screen and centre of plates in m

+Va   =3000;     //accelerating voltage in V

+x    =0.1;     //trace length(2*y) in m

+

+

+//cacualtions

+//y   = lSVd/(2*d*Va)

+Vd   = (d*Va*x)/(l*S);   //deflection voltgae in V

+Vrms   = Vd/(sqrt(2));    //rms value of sinusoidal voltage applied to the X-deflecting plates in V

+Sd     = (l*S)/(2*d*Va);       //deflection voltage in mm/V

+

+//result

+mprintf("rms value of sinusoidal voltage applied to the X-deflecting plates = %3.2d V",Vrms);

+mprintf("\ndefelection sensitivity = %3.3f mm/V",(Sd*10**3));

diff --git a/3871/CH16/EX16.10/Ex16_10.sce b/3871/CH16/EX16.10/Ex16_10.sce
new file mode 100644
index 000000000..a90c0ffdb
--- /dev/null
+++ b/3871/CH16/EX16.10/Ex16_10.sce
@@ -0,0 +1,15 @@
+//=====================================================================================

+//Chapter 16 example 10

+

+clc;clear all;

+

+//variable declartion

+wy     = 3;    //positive Y-axis in pattern

+wx     = 2;    //positive X-axis in pattern

+

+//calculations

+f   =wy/(wx);    //frequency of vertical and horizontal signal 

+

+//result

+mprintf("frequency of vertical and horizontal signal  = %3.1f",f);

+

diff --git a/3871/CH16/EX16.11/Ex16_11.sce b/3871/CH16/EX16.11/Ex16_11.sce
new file mode 100644
index 000000000..ba92250d3
--- /dev/null
+++ b/3871/CH16/EX16.11/Ex16_11.sce
@@ -0,0 +1,21 @@
+//=====================================================================================

+//Chapter 16 example 11

+

+clc;clear all;

+

+//variable declaration

+y1   = 2;      //positive y- peaks in pattern

+y2   = 0.5;    //positive y-peaks in pattern

+x1   = 0.5;    //positive x-peaks in pattern

+x2   = 0.5;    //positive x-peaks in pattern

+F    = 3;       //frequency of horizontal voltage signal in kHz

+

+//calculations

+fx   = x1+x2;     //frequency of X

+fy    = y1+y2;    //frequency of Y

+f     = fy/(fx);

+fv    = f*F;       //frequency of vertical voltage signal in kHz

+

+//Result

+mprintf("frequency of vertical voltage signal in = %3.1f kHz",fv);

+

diff --git a/3871/CH16/EX16.12/Ex16_12.sce b/3871/CH16/EX16.12/Ex16_12.sce
new file mode 100644
index 000000000..00cff751f
--- /dev/null
+++ b/3871/CH16/EX16.12/Ex16_12.sce
@@ -0,0 +1,14 @@
+//=====================================================================================

+//Chapter 16 example 12

+clc;clear all;

+

+//variable declaration

+fx    = 1000;    //frequency of horizontal input in Hz

+Pv   = 2;       //pointsof tangency to vertical line 

+Ph   = 5;       //pointsof tangency to horizontal line 

+

+//calculations

+fy   = fx*(Ph/(Pv));     //frequency ofvertical input in Hz

+

+//result

+mprintf("frequency ofvertical input = %3.2f Hz",fy);

diff --git a/3871/CH16/EX16.13/Ex16_13.sce b/3871/CH16/EX16.13/Ex16_13.sce
new file mode 100644
index 000000000..c97bd8e65
--- /dev/null
+++ b/3871/CH16/EX16.13/Ex16_13.sce
@@ -0,0 +1,25 @@
+//=====================================================================================

+//Chapter 16 example 13

+

+clc;clear all;

+

+//variable declaration

+d   = 1;     //1 division is equal to 1 cm

+M    = 0.4;   //mark in cm

+S    = 1.6;   //mark in cm

+A    = 2.15;   //amplitude in cm

+t     = 10;    //time-base control setting in us

+p     = 0.2;       //amplitude control setting 

+

+//calcculations

+R   = M/S;    //mark to space ratio 

+T   = (M+S)*t;       //time for mark and space in divisions

+f    = 1/T;    //pulse in frequency kHz

+P    = A*p;            //magnitude of pule voltage in V

+

+//Result

+mprintf("mark-to-space ratio  = %3.2f",R);

+mprintf("\npulse frequency = %3.2f kHz",f);

+mprintf("\nmagnitude of pulse voltage = %3.2f V",P);

+

+

diff --git a/3871/CH16/EX16.2/Ex16_2.sce b/3871/CH16/EX16.2/Ex16_2.sce
new file mode 100644
index 000000000..0bedf5701
--- /dev/null
+++ b/3871/CH16/EX16.2/Ex16_2.sce
@@ -0,0 +1,21 @@
+//=====================================================================================

+//Chapter 16 example 2

+

+clc;clear all;

+

+//variable declaration

+l    = 0.02;    //length of plates in m

+d    = 0.005;    //distance between plates in m

+S    = 0.3;      //the distance between the screen and centre of plates in m

+Va   =2000;     //accelerating voltage in V

+Y    =0.03;     //trace length in m

+

+

+//cacualtions

+//y   = lSVd/(2*d*Va)

+Vd   = (d*Va*x)/(l*S);   //deflection voltgae in V

+Vrms   = Vd/(sqrt(2));    //rms value of sinusoidal voltage applied to the X-deflecting plates in V

+Vin  = Vrms/(Vd);      //input voltage required in V

+

+//result

+mprintf(" nput voltage required = %3.3f V",Vin);

diff --git a/3871/CH16/EX16.3/Ex16_3.sce b/3871/CH16/EX16.3/Ex16_3.sce
new file mode 100644
index 000000000..a7e5a575c
--- /dev/null
+++ b/3871/CH16/EX16.3/Ex16_3.sce
@@ -0,0 +1,17 @@
+//=====================================================================================

+//Chapter 16 example 3

+

+clc;clear all;

+

+//variable declaration

+Va  = 1000;   //accelerating voltage in V

+e    = 1.6*10^-19;      //charge of electron in C

+m    = 9.1*10^-31;      //mass of electron in kg

+

+

+//calcuations

+V     = sqrt(2*Va*(e/m));    //maximum velocity of electrons in m/s

+

+//result

+mprintf("maximum velocity of electrons = %3.3e m/s",V);

+

diff --git a/3871/CH16/EX16.4/Ex16_4.sce b/3871/CH16/EX16.4/Ex16_4.sce
new file mode 100644
index 000000000..8d4988f81
--- /dev/null
+++ b/3871/CH16/EX16.4/Ex16_4.sce
@@ -0,0 +1,23 @@
+//=====================================================================================

+//Chapter 16 example 4

+

+clc;clear all;

+

+//variable declaration

+Va  = 2000;   //accelerating voltage in V

+e    = 1.6*10^-19;      //charge of electron in C

+m    = 9.1*10^-31;      //mass of electron in kg

+l    = 0.015;    //length of plates in m

+d    = 0.005;    //distance between plates in m

+S    = 0.5;      //the distance between the screen and centre of plates in m

+

+//calcuations

+V    = sqrt(2*Va*(e/m));    //beam speed in m/s

+Sd    = (l*S)/(2*d*Va);            //deflection sensitivity of the tube in mm/V

+D     = 1/(Sd);            //defelection factor in V/mm

+

+//result

+mprintf("Beam speed  = %3.3e m/s",V);

+mprintf("\ndeflection sensitivity of the tube %3.3f mm/V",(Sd*10^3));

+mprintf("\ndefelcction factor = %3.4f V/mm",(D*10^-3));

+

diff --git a/3871/CH16/EX16.5/Ex16_5.sce b/3871/CH16/EX16.5/Ex16_5.sce
new file mode 100644
index 000000000..b3e3bef30
--- /dev/null
+++ b/3871/CH16/EX16.5/Ex16_5.sce
@@ -0,0 +1,17 @@
+//=====================================================================================

+//Chapter 16 example 5

+

+clc;clear all;

+

+//variable declaration

+l    = 0.02;    //length of plates in m

+d    = 0.005;    //distance between plates in m

+S    = 0.2;      //the distance between the screen and centre of plates in m

+Va    = 2500;    //accelerating voltage in V

+

+//calculations

+Sd    = (l*S)/(2*d*Va);            //deflection sensitivity of the tube in mm/V

+

+//result

+mprintf("deflection sensitivity of the tube %3.2f mm/V",(Sd*10^3));

+

diff --git a/3871/CH16/EX16.6/Ex16_6.sce b/3871/CH16/EX16.6/Ex16_6.sce
new file mode 100644
index 000000000..e3eb0ae54
--- /dev/null
+++ b/3871/CH16/EX16.6/Ex16_6.sce
@@ -0,0 +1,19 @@
+//=====================================================================================

+//Chapter 16 example 6

+

+clc;clear all;

+

+//varable declaration

+l    = 2.5;    //length of plates in cm

+d    = 1;    //distance between plates in cm

+theta   = 1;     //angular defelecction of electron beam  in degrees

+Va    = 1000;    //accelerating voltage in V

+

+//calculations

+//tan(theta)   = l*Vd/(2*d*Va)

+x     = tan(((theta*%pi)/180));

+Vd   =(( 2*d*Va)/(l))*x;      //required voltage in V

+

+//result

+mprintf("Voltage required across the deflection plates = %3.2f V",Vd);

+

diff --git a/3871/CH16/EX16.7/Ex16_7.sce b/3871/CH16/EX16.7/Ex16_7.sce
new file mode 100644
index 000000000..a58186e8a
--- /dev/null
+++ b/3871/CH16/EX16.7/Ex16_7.sce
@@ -0,0 +1,17 @@
+//=====================================================================================

+//Chapter 16 example 7

+

+clc;clear all;

+

+//variable declaartion

+l    = 0.025;    //length of plates in m

+d    = 0.005;    //distance between plates in m

+S    = 0.2;      //the distance between the screen and centre of plates in m

+Va    = 2500;    //accelerating voltage in V

+

+//calculations 

+//y   = (s*(d/2))/(l/2)

+y    = (S*d)/(l);    //defelction in m

+

+//result

+mprintf("deflection= %3.2f m",y);

diff --git a/3871/CH16/EX16.8/Ex16_8.sce b/3871/CH16/EX16.8/Ex16_8.sce
new file mode 100644
index 000000000..82d4b3558
--- /dev/null
+++ b/3871/CH16/EX16.8/Ex16_8.sce
@@ -0,0 +1,38 @@
+//=====================================================================================

+//Chapter 16 example 8

+

+clc;clear all;

+

+//variable declaration

+//as shown in patern is straight line

+dvo   = 0;

+Dv    = 6;

+//pattern is ellipse

+dvo1   = 3;

+Dv1  =6;

+//pattern is circle 

+dvo2  = 1;

+Dv2 = 1;

+//pattern is ellipse

+dvo3   = 3;

+Dv3  =5;

+

+//calculations

+y4   =dvo1/(Dv1);

+phi1  = asin(dvo/(Dv));     //phase angle in degrees

+phi2  = asin(dvo1/(Dv1));     //phase angle in degrees

+phi3  = asin(dvo2/(Dv2));     //phase angle in degrees 

+phi4  = asin(dvo3/(Dv3));     //phase angle in degrees

+phi22 = 180-((phi2*180)/(%pi));

+phi44 = 180-((phi4*180)/(%pi)); 

+

+//result

+

+mprintf("phase angle = %3.2f °",((phi1*180)/%pi));

+mprintf("\nphase angle = %3.2f ° or %3.2f °",((phi2*180)/%pi),(phi22));

+mprintf("\nbut from figure ellipse is inn 2nd and fourt quarterso the valid value of phase angle is %3.2f °",phi2);

+mprintf("\nphase angle = %3.2f °",((phi3*180)/(%pi)));

+mprintf("\nphase angle = %3.2f°   or %3.2f °",(((phi4*180)/%pi)),(phi44));

+mprintf("\nbut from figure ellipse is inn 2nd and fourt quarterso the valid value of phase angle is %3.2f °",phi44);

+

+

diff --git a/3871/CH16/EX16.9/Ex16_9.sce b/3871/CH16/EX16.9/Ex16_9.sce
new file mode 100644
index 000000000..7f56e39d2
--- /dev/null
+++ b/3871/CH16/EX16.9/Ex16_9.sce
@@ -0,0 +1,15 @@
+//=====================================================================================

+//Chapter 16 example 9

+clc;clear all;

+

+//variable declaration 

+f    = 2000;    //frequency in Hz

+D    = 0.2;     //duty cycle

+

+//calculations

+T    = 1/(f);    //time period in ms

+d   = D*T;           //pulse duration in ms

+

+//result

+mprintf("pulse duration = %3.2f ms",(d*10^3));

+