blob: 3155c151b0a86f30504b9d752bce00852846b3db (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
//Caption:Calculate the maximum power
//Exa:4.21
clc;
clear;
close;
c=3*10^10;//in cm/s
f=9*10^9;//inHz
E_max=300;//in V/cm
d=5;
wl_o=c/f;
//For TE11
wl_c=d*%pi/1.841;
wl_g=wl_o/sqrt(1-(wl_o/wl_c)^2);
P_max=0.498*E_max^2*d^2*(wl_o/wl_g);
disp(P_max,'Maximum power (in watts) =');
|
