Advertisement
pin2paul

Untitled

Sep 20th, 2024
147
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scilab 0.41 KB | None | 0 0
  1. clc ;
  2. clear ;
  3. b =2.5;
  4. a =5;
  5. c =3*10^10;
  6. w0 =4.5;
  7. disp ( ' For a TE10 mode which is the dominant mode ' );
  8. wc =2* a ;
  9. wg =( w0 / sqrt (1 -( w0 / wc ) ^2) ) ;
  10. Vp =( c/ sqrt (1 -( w0 / wc ) ^2) ) /10^10;
  11. B =((2*( %pi ) * sqrt ( wc ^2 - w0 ^2) ) /( w0 * wc ) ) ;
  12. mprintf ( ' \n Guide wavelength is wg=%1.5f cm \nPhase constant is B=%1.3f radians \ nPhase Velocity is Vp=%1.2f ∗10ˆ10 cm/sec ' ,wg ,B , Vp ) ;
  13.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement