summaryrefslogtreecommitdiff
path: root/2216/CH13/EX13.3/ex_13_3.sce
blob: 9e83d80c6409de061f333a26681d66c8a90b3216 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Example 13.3: phase shift
clc;
clear;
close;
//given data :
format('e',9)
L=500;// in m
D=0.1;//in m
ohm=7.3*10^-5;// in rad s^-1
lamda=0.85*10^-6;// in m
c=3*10^8;// in m/s
del_fi=(2*%pi*L*D*ohm)/(c*lamda);
disp(del_fi,"phase shift,del_fi(rad) = ")