clear all
f = 10*10e9; % frekvence
Em = 10; % max. hodnota intenzity E
omega = 2pi*f; % uhlova frekvence
k = 1880 - j0.21; % konstanta sireni
beta = real(k); % fazova konstanta
alfa = imag(k); % merny utlum
t = 10; % cas
z = linspace(0, 20, 20); % vektor vzdalenosti
E = Em*e^(-alfa*z)*sin(omega*t-Beta*z); % okamzita hodnota E
plot(E, z) % vykresleni zavislosti E