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/CH4/EX4.22/Ex4_22.sce     | 15 +++++++++++++++
 728/CH4/EX4.22/Ex4_22.txt     | 15 +++++++++++++++
 728/CH4/EX4.22/Ex4_22_ans.txt |  5 +++++
 3 files changed, 35 insertions(+)
 create mode 100755 728/CH4/EX4.22/Ex4_22.sce
 create mode 100755 728/CH4/EX4.22/Ex4_22.txt
 create mode 100755 728/CH4/EX4.22/Ex4_22_ans.txt

(limited to '728/CH4/EX4.22')

diff --git a/728/CH4/EX4.22/Ex4_22.sce b/728/CH4/EX4.22/Ex4_22.sce
new file mode 100755
index 000000000..4f50012da
--- /dev/null
+++ b/728/CH4/EX4.22/Ex4_22.sce
@@ -0,0 +1,15 @@
+//Caption:Calculate the peak value of electric feild occuring in the waveguide 
+//Exa:4.22
+clc;
+clear;
+close;
+c=3*10^10;//in cm/s
+f=30*10^9;//inHz
+a=1;//in cm
+b=1;
+P_max=746;//in watts
+wl_o=c/f;
+wl_c=2*a;
+Z=120*%pi/sqrt(1-(wl_o/wl_c)^2);
+E_max=sqrt(P_max*4*Z/(a*b/10000));
+disp(E_max/1000,'Peak value of electric field (in kV/m) =');
diff --git a/728/CH4/EX4.22/Ex4_22.txt b/728/CH4/EX4.22/Ex4_22.txt
new file mode 100755
index 000000000..4f50012da
--- /dev/null
+++ b/728/CH4/EX4.22/Ex4_22.txt
@@ -0,0 +1,15 @@
+//Caption:Calculate the peak value of electric feild occuring in the waveguide 
+//Exa:4.22
+clc;
+clear;
+close;
+c=3*10^10;//in cm/s
+f=30*10^9;//inHz
+a=1;//in cm
+b=1;
+P_max=746;//in watts
+wl_o=c/f;
+wl_c=2*a;
+Z=120*%pi/sqrt(1-(wl_o/wl_c)^2);
+E_max=sqrt(P_max*4*Z/(a*b/10000));
+disp(E_max/1000,'Peak value of electric field (in kV/m) =');
diff --git a/728/CH4/EX4.22/Ex4_22_ans.txt b/728/CH4/EX4.22/Ex4_22_ans.txt
new file mode 100755
index 000000000..faaf679e6
--- /dev/null
+++ b/728/CH4/EX4.22/Ex4_22_ans.txt
@@ -0,0 +1,5 @@
+ 
+ Peak value of electric field (in kV/m) =   
+ 
+    113.97239  
+ 
\ No newline at end of file
-- 
cgit