From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 728/CH8/EX8.16/Ex8_16.sce | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100755 728/CH8/EX8.16/Ex8_16.sce

(limited to '728/CH8/EX8.16/Ex8_16.sce')

diff --git a/728/CH8/EX8.16/Ex8_16.sce b/728/CH8/EX8.16/Ex8_16.sce
new file mode 100755
index 000000000..37d76d780
--- /dev/null
+++ b/728/CH8/EX8.16/Ex8_16.sce
@@ -0,0 +1,20 @@
+//Caption:Calculate (i)-repeller voltage V_r ,(ii)-beam current necessary to give gap voltage of 200V
+//Exa:8.16
+clc;
+clear;
+close;
+e_m_ratio=1.759*10^11;//(e/m)
+V_o=300;//in volts
+R_sh=20*10^3;//in ohms
+f=8*10^9;//inHz
+w=2*%pi*f;
+n=2;//mode
+L=0.001;//spacing between repeller & cavity (in m)
+x=(e_m_ratio)*(2*%pi*n-%pi/2)^2/(8*w^2*L^2);
+volt_diff=sqrt(V_o/(x));
+V_r=(volt_diff)+V_o;//repeller volatge
+J=0.582;
+V_1=200;//given (in volts)
+I_o=V_1/(R_sh*2*J);
+disp(V_r,'Repeller voltage(in volts) =');
+disp(I_o*10^3,'Necessary beam current (in milliAmp.s) =');
\ No newline at end of file
-- 
cgit