Реферат Моделювання передачі інформації по кабельній лінії зв'язку

о 16 біт = 11;% довжина лінії зв'язку = [1 0 0 0 1 1 1 1 1 0 1 0 1 1 1 1];

a = randi ([0 1], 1, (N * n)); = a; = coder_all (a, g);% кодер одних 16 www = s (i); end (s (i)

end

Лістинг А.1 - Головна функція програми, лист 1

function end

Лістинг А.1, лист 2 [a] = invers (a) (a == 1) = 0; = 1; [mmm] = link (l, v2) = length (v2); (tt = 1 : m) (tt) = (0.0174673 * (tt-1) -0.00000019 * (tt-1) * (tt-1) +0.0000000000019 * (tt-1) * (tt-1) * (tt-1)) * 0.000001/100; (tt) = = 1j * 0.00028 * 2 * pi * f * 10000; (f +1) = 1j * 49.6 * 0.000000001 * 2 * pi * f * 10000; k = 1: m (k) = sqrt ((R (k) + L (k)) * (G (k) + C (k)));; = exp (-y * l); k = 1: m/2-2 (m/2 + k +2) = real ( h (m/2-k))-1j * imag (h (m/2-k));

end

% Пропускаємо через лінію зв'язку = fft (v2);

for (r = 1: m) (r) = sp (r) * h (r); = (real (ifft (sp1)));

GG = mmm; = fix (m * 0.187 * l/5);% Зсув фази в лінії

if (sdvig> m) sdvig = sdvig-m; end

Лістинг А.1, лист end [a] = srav (a, g) = length (g); (i = 1: nb) (a (i) == g (i)) (i) = 0; (i) = 1; end end

Лістинг А.1, лист 4 [s] = simulation_signal (bin, N, character_length) = 1; s = 0; (i = 1: d) s = a (i); end [a] = sumost (a, g) (i = 17:31) a (i) = 0;

[D, f] = project_11lab (21); (i) = D; w (i) = f; = 0; s = 0; (i = 1:2) s = r (i) + s; ss = ss + w (i); end = (ss/2); = (s/2); (t1); (t2); ('кінець')

Лістинг А.1, лист 5