1 files changed, 30 insertions, 0 deletions
diff --git a/1979/CH8/EX8.1/Ex8_1.sce b/1979/CH8/EX8.1/Ex8_1.sce
new file mode 100755
index 000000000..243464784
--- /dev/null
+++ b/1979/CH8/EX8.1/Ex8_1.sce
@@ -0,0 +1,30 @@
+//chapter-8 page 336 example 8.1
+//==============================================================================
+clc;
+clear;
+
+//For a four cavity Klystron
+V0=14500;//Beam voltage in V
+I=1.4;//Beam current in A
+f=10^10;//Operation frequency in Hz
+p0=10^(-6);//dc electron charge density in C/m^3
+p=10^(-8);//RF charge density in C/m^3
+V=10^5;//Velocity perturbations in m/sec
+e0=8.854*10^(-12);//Permittivity of free space in F/m
+R=0.4;
+
+//CALCULATION
+v0=(0.593*10^6*sqrt(V0))/10^8;//The dc electron velocity in 10^8 m/sec
+w=2*(%pi)*f;//angular frequency in rad/sec
+v=v0*10^8;
+c=(w/v);//The dc Phase Constant
+wp=(sqrt(1.759*10^11*(p0/e0)))/10^8;//The Plasma Frequency in 10^8 rad/sec
+wp1=wp*10^8;
+wq=(R*wp1)/10^8;//The Reduced Plasma Frequency in 10^8 rad/sec
+J0=p0*v;//The dc beam current density in A/sqm
+J=(p*v)+(p0*V);//The instantaneous beam current density in A/sqm
+
+//OUTPUT
+mprintf('\nThe dc electron velocity is v0=%2.3f *10^8 m/sec \nThe dc Phase Constant is c=%1.2f rad/sec\nThe Plasma Frequency is wp=%1.2f *10^8 rad/sec \nThe Reduced Plasma Frequency is wq=%1.3f *10^8 rad/sec \nThe dc beam current density is J0=%2.1f A/sqm \nThe instantaneous beam current density is J=%1.3f A/sqm',v0,c,wp,wq,J0,J);
+
+//=========================END OF PROGRAM===============================