1 files changed, 46 insertions, 0 deletions
diff --git a/72/CH9/EX9.4.1/9_4_1.sce b/72/CH9/EX9.4.1/9_4_1.sce
new file mode 100755
index 000000000..f815f93bb
--- /dev/null
+++ b/72/CH9/EX9.4.1/9_4_1.sce
@@ -0,0 +1,46 @@
+// CAPTION:Reflex_Klystron
+//chapter_no.-9,  page_no.-399
+//Example_no.9-4-1
+
+clc;
+
+//(a) Calculate_the_value_of_the_repeller_voltage
+V0=600;
+n=2;//mode=2
+fr=9*(10^9);
+w=2*%pi*fr;
+L=1*(10^-3);
+em=1.759*(10^11);//em=e/m
+x=((em)*(((2*%pi*n)-(%pi/2))^2))/(8*(w^2)*(L^2));//x=V0/(V0+Vr)^2
+y=V0/x;//y=(V0+Vr)^2
+z=sqrt(y);//z=V0+Vr
+Vr=z-V0;
+disp(Vr,'the_value_of_the_repeller_voltage(volts)is =');
+
+
+
+
+
+//(b)Calculate_the_direct_current_necessary_to_give_a_microwave_gap_voltage_of_200V
+
+disp('Assume_that_Bo=1');
+disp('V2 = I2*Rsh = 2*I0*J1(X)*Rsh ');
+disp('the_direct_current_I0_is_I0 = V2/ 2*J1(X)*Rsh'); 
+V2=200;
+Rsh=15*(10^3);
+X=1.841
+J1(X)=.582;
+I0 = V2/(2*J1(X)*Rsh);
+I0=I0*1000;
+disp(I0,'the_direct_current_necessary_to_give_a_microwave_gap_voltage_of_200V(mA)is =');
+
+
+
+//(c) Calculate_the_electronic_efficiency
+
+disp('From Eq(9-4-11),Eq(9-4-12) and Eq(9-4-20), the_electronic_efficiency_is');
+
+efficiency=(2*X*J1(X))/((2*%pi*n)-(%pi/2));
+efficiency=efficiency*100;
+disp(efficiency,'the_electronic_efficiency(in %)is =');
+