1 files changed, 16 insertions, 0 deletions
diff --git a/1997/CH6/EX6.5/example5.sce b/1997/CH6/EX6.5/example5.sce
new file mode 100755
index 000000000..587921ea8
--- /dev/null
+++ b/1997/CH6/EX6.5/example5.sce
@@ -0,0 +1,16 @@
+//Chapter-6 example 5
+//=============================================================================
+clc;
+clear;
+//input data
+I2  = 28*10^-3 ;//induced current in amperes
+V2  = 850;   //fundamental component of catcher-gap voltage
+Vb  = 900;   //beam voltage
+Ib  = 26*10^-3;//beam current
+Bc  = 0.946;//beam coupling coefficient of catcher gap
+//Calculations
+n   = ((Bc*I2*V2)/(2*Ib*Vb))*100;//efficiency of klystron
+//output
+mprintf('Efficiency of the klystron is %g \n',n);
+mprintf(' Note:In textbook Bc value is taken as 0.946 in calculation')
+//=============end of the program===============================================