% ÐŸÑ€Ð°ÐºÑ‚Ð¸Ñ‡ÐµÑÐºÐ°Ñ Ñ€Ð°Ð±Ð¾Ñ‚Ð° 1 Ð¢Ð¡Ð¸Ð£ÐŸÐ” Ð˜ÑÑ‚Ð¾Ñ‡Ð½Ð¸ÐºÐ¸ ÑÐ»ÑƒÑ‡.ÑÐ¾Ð¾Ð±Ñ‰ÐµÐ½Ð¸Ð¹ Ð¿Ð°Ñ€-Ñ€Ñ‹, ÑÐ½Ñ‚Ñ€.
% Ð”Ð»Ñ Ð¸ÑÑ‚-ÐºÐ° B - Ð½Ð¾Ñ€Ð¼Ð°Ð»ÑŒÐ½Ð¾Ðµ Ñ€Ð°ÑÐ¿Ñ€ÐµÐ´ÐµÐ»ÐµÐ½Ð¸Ðµ
clc;
close all;
clear all;
% Ð‘Ð»Ð¾Ðº Ð²Ð²Ð¾Ð´Ð° Ð´Ð°Ð½Ð½Ñ‹Ñ…
disp('Ð’Ð²ÐµÐ´Ð¸Ñ‚Ðµ Ð½Ð¾Ð¼ÐµÑ€ Ð²Ð°Ñ€Ð¸Ð°Ð½Ñ‚Ð° [1 . . . 30]');
n=input('n=');
if n<=0;
n=1;
elseif n>30;
n=30;
end
disp('Ð˜ÑÑ…Ð¾Ð´Ð½Ñ‹Ðµ Ð´Ð°Ð½Ð½Ñ‹Ðµ Ð²Ð°Ñ€Ð¸Ð°Ð½Ñ‚Ð°');disp(n);
disp('Ð’Ð²ÐµÐ´Ð¸Ñ‚Ðµ ÐšÐ¾Ð»Ð¸Ñ‡ÐµÑÑ‚Ð²Ð¾ Ð¾Ñ‚ÑÑ‡ÐµÑ‚Ð¾Ð² N [1000...6000]');
N=input('N=');
if N<=1000;
N=1000;
elseif N>6000;
N=6000;
end
disp('Ð’Ð²ÐµÐ´Ð¸Ñ‚Ðµ Ð§Ð°ÑÑ‚Ð¾Ñ‚Ñƒ Ð´Ð¸ÑÐºÑ€ÐµÑ‚Ð¸Ð·Ð°Ñ†Ð¸Ð¸ dF [400...5000]');
dF=input('dF=');
if dF<=400;
dF=400;
elseif dF>5000;
dF=5000;
end
disp('Ð’Ð²ÐµÐ´Ð¸Ñ‚Ðµ ÐœÐ˜Ð Ð·Ð½Ð°Ñ‡ÐµÐ½Ð¸Ðµ Ð¿Ð°Ñ€Ð°Ð¼ÐµÑ‚Ñ€Ð° Ð¸ÑÑ‚.ÑÐ¾Ð¾Ð±Ñ‰. AMin [-250...250]');
AMin=input('AMin=');
if AMin<=-250;
AMin=-250;
elseif AMin>250;
AMin=250;
end
disp('Ð’Ð²ÐµÐ´Ð¸Ñ‚Ðµ ÐœÐÐšÐ¡ Ð·Ð½Ð°Ñ‡ÐµÐ½Ð¸Ðµ Ð¿Ð°Ñ€Ð°Ð¼ÐµÑ‚Ñ€Ð° Ð¸ÑÑ‚.ÑÐ¾Ð¾Ð±Ñ‰. AMax [-250...250]');
AMax=input('AMax=');
if AMax<=-250;
AMax=-250;
elseif AMax>250;
AMax=250;
end
if AMax<=AMin;
AMax=AMin+20;
elseif AMax>270;
AMax=270;
end
disp('Ð’Ð²ÐµÐ´Ð¸Ñ‚Ðµ Ð°Ð¼Ð¿Ð»Ð¸Ñ‚ÑƒÐ´Ð½Ñ‹Ð¹ Ð¸Ð½Ñ‚ÐµÑ€Ð²Ð°Ð» Ð´Ð¸ÑÐºÑ€ÐµÑ‚Ð¸Ð·Ð°Ñ†Ð¸Ð¸ Ð¿Ð°Ñ€Ð°Ð¼ÐµÑ‚Ñ€Ð° Ð¸ÑÑ‚.ÑÐ¾Ð¾Ð±Ñ‰. dA [0.01...0.5]');
dA=input('dA=');
if dA<=0.01;
dA=0.01;
elseif dA>0.5;
dA=0.5;
end
disp('ÐšÐ¾Ð»Ð¸Ñ‡ÐµÑÑ‚Ð²Ð¾ Ð¾Ñ‚ÑÑ‡ÐµÑ‚Ð¾Ð² N = ');disp(N);
disp('Ð§Ð°ÑÑ‚Ð¾Ñ‚Ð° Ð´Ð¸ÑÐºÑ€ÐµÑ‚Ð¸Ð·Ð°Ñ†Ð¸Ð¸ dF = ');disp(dF);
disp('ÐœÐ˜Ð Ð·Ð½Ð°Ñ‡.Ð¿Ð°Ñ€.Ð¸ÑÑ‚.ÑÐ¾Ð¾Ð±Ñ‰. AMin = ');disp(AMin);
disp('ÐœÐÐšÐ¡ Ð·Ð½Ð°Ñ‡.Ð¿Ð°Ñ€.Ð¸ÑÑ‚.ÑÐ¾Ð¾Ð±Ñ‰. AMax = ');disp(AMax);
disp('Ð˜Ð½Ñ‚ÐµÑ€Ð²Ð°Ð» Ð´Ð¸ÑÐºÑ€.Ð¿Ð°Ñ€.Ð¸ÑÑ‚.ÑÐ¾Ð¾Ð±Ñ‰. dA = ');disp(dA);
%N=2500; % ÐšÐ¾Ð»Ð¸Ñ‡ÐµÑÑ‚Ð²Ð¾ Ð¾Ñ‚ÑÑ‡ÐµÑ‚Ð¾Ð²
%dF=1000;
%AMin=-1.7;
%AMax=19.2;
%dA=0.2;
%
t=1:N; % Ð¤Ð¾Ñ€Ð¼Ð¸Ñ€ÑƒÐµÐ¼ Ð¸ÑÑ‚Ð¾Ñ‡Ð½Ð¸Ðº ÑÐ¾Ð¾Ð±Ñ‰ÐµÐ½Ð¸Ð¹ B
ARan=randn(1,N); dT=1/dF;
MaxARan=max(ARan); MinARan=min(ARan);
ARan1=(ARan.-MinARan)./(MaxARan-MinARan);
A=(ARan1.*abs(AMax-AMin)).+AMin;
Es=ones(N);
%
Amean=mean(A);
Astd=std(A);
%
hf11=figure(); % Ð Ð¸ÑÑƒÐµÐ¼ Ð½Ð° Ð³Ñ€Ð°Ñ„Ð¸ÐºÐµ Ñ€ÐµÐ·ÑƒÐ»ÑŒÑ‚Ð°Ñ‚ (400 Ñ‚Ð¾Ñ‡ÐµÐº)
hold on; title('First 400 samples of message source B','fontsize',14);
plot(t(1:400),A(1:400),'b','linewidth',2); xlabel('samples A, n=1...400'); ylabel('Source B parameter value');
plot(t(1:400),Es(1:400).*Amean,'r','linewidth',3);
plot(t(1:400),Es(1:400).*Amean.+Astd,'g','linewidth',2);
plot(t(1:400),Es(1:400).*Amean.-Astd,'g','linewidth',2);
grid on;
hf21=figure(); % Ð Ð¸ÑÑƒÐµÐ¼ Ð½Ð° Ð³Ñ€Ð°Ñ„Ð¸ÐºÐµ Ñ„Ñ€Ð°Ð³Ð¼ÐµÐ½Ñ‚ (100 Ñ‚Ð¾Ñ‡ÐµÐº)
hold on; title('First 100 samples of message source B','fontsize',14);
plot(t(1:100),A(1:100),'b','linewidth',2); xlabel('samples A, n=1...100'); ylabel('Source B parameter value');
plot(t(1:100),Es(1:100).*Amean,'r','linewidth',3);
plot(t(1:100),Es(1:100).*Amean.+Astd,'g','linewidth',3);
plot(t(1:100),Es(1:100).*Amean.-Astd,'g','linewidth',3);
grid on;
%
% Ð¡Ñ‚Ñ€Ð¾Ð¸Ð¼ Ð³Ð¸ÑÑ‚Ð¾Ð³Ñ€Ð°Ð¼Ð¼Ñƒ Ð´Ð°Ð½Ð½Ñ‹Ñ… Ð¸ Ñ„ÑƒÐ½ÐºÑ†Ð¸ÑŽ Ñ€Ð°ÑÐ¿Ñ€ÐµÐ´ÐµÐ»ÐµÐ½Ð¸Ñ
Stat_A_1=[min(A), median(A), max(A), mean(A), std(A), skewness(A), kurtosis(A), var(A)]; % ÐœÐ¾Ð´ÑƒÐ»ÑŒ ÑÑ‚Ð°Ñ‚Ð¸ÑÑ‚Ð¸ÐºÐ¸ Ð¿Ð¾ Ð
Stat_A_2=quantile(A);
K_1_hist=ceil(1+3.32*log10(N)); % Ð§Ð¸ÑÐ»Ð¾ ÐºÐ¾Ð»Ð¾Ð½Ð¾Ðº Ð³Ð¸ÑÑ‚Ð¾Ð³Ñ€Ð°Ð¼Ð¼Ñ‹ (Ð¿Ñ€Ð°Ð²Ð¸Ð»Ð¾ Ð¨Ñ‚ÑŽÑ€Ð³ÐµÑÐ° Ð“ÐžÐ¡Ð¢)
Mhist=K_1_hist; % Ð§Ð¸ÑÐ»Ð¾ ÐºÐ¾Ð»Ð¾Ð½Ð¾Ðº Ð³Ð¸ÑÑ‚Ð¾Ð³Ñ€Ð°Ð¼Ð¼Ñ‹::=> Ð²Ñ‹Ð±Ñ€Ð°Ñ‚ÑŒ(Ð½Ð¾, Ð½Ðµ Ð±Ð¾Ð»ÐµÐµ N/5-Ñ€ÐµÐº.Ð“ÐžÐ¡Ð¢)
[NZSig, IDZSig]=hist(A,Mhist); Pv_NZSig=NZSig./N;
[NZSig3, IDZSig3]=hist(A,(3*Mhist)); Pv_NZSig3=NZSig3./N;% Ð³Ð¸ÑÑ‚Ð¾Ð³Ñ€Ð°Ð¼Ð¼Ð° Ð½Ð° 3*K-ÐºÐ¾Ð»Ð¾Ð½Ð¾Ðº
% Ð¡Ñ‡Ð¸Ñ‚Ð°ÐµÐ¼ ÑÐ¼Ð¿Ð¸Ñ€Ð¸Ñ‡ÐµÑÐºÑƒÑŽ Ñ„ÑƒÐ½ÐºÑ†Ð¸ÑŽ Ñ€Ð°ÑÐ¿Ñ€ÐµÐ´ÐµÐ»ÐµÐ½Ð¸Ñ(ÐÐ¤Ð )- ÑÐ³Ð»Ð°Ð¶ÐµÐ½Ð½ÑƒÑŽ Ð¿Ð¾ Ð³Ð¸ÑÑ‚Ð¾Ð³Ñ€Ð°Ð¼Ð¼Ðµ
FZSig(1)=0;
for l=2:length(NZSig3);
FZSig(l)=FZSig(l-1)+NZSig3(l);
endfor
FxZSig=[AMin, IDZSig3, AMax];
FyZSig=[0, (FZSig(1)+1)/N, FZSig(2:1:length(NZSig3))./N, 1];
% Ð¸Ð»Ð¸ Ð²Ñ‚Ð¾Ñ€Ð¾Ð¹ Ð²Ð°Ñ€Ð¸Ð°Ð½Ñ‚ ÐÐ¤Ð - Ð¿Ð¾Ð»Ð½ÑƒÑŽ Ð¿Ð¾ Ð’Ð¥
FxZSig_1=sort(A); FyZSig_1=1/N:1/N:1;
% Ð Ð¸ÑÑƒÐµÐ¼ Ð½Ð° Ð³Ñ€Ð°Ñ„Ð¸ÐºÐµ Ð³Ð¸ÑÑ‚Ð¾Ð³Ñ€Ð°Ð¼Ð¼Ñƒ Ð´Ð°Ð½Ð½Ñ‹Ñ…
hf31=figure(); hold on; title('Message source histogram B','fontsize',14);
bar(IDZSig,NZSig,'c'); plot(IDZSig,NZSig,'r','linewidth',2); xlabel('A'); ylabel('K');
bar(IDZSig3,NZSig3,'g'); plot(IDZSig3,NZSig3,'b','linewidth',2); grid on;
hf41=figure(); hold on; title('The probability density function of the source of messages B','fontsize',14);
bar(IDZSig,Pv_NZSig,'c'); plot(IDZSig,Pv_NZSig,'r','linewidth',2); xlabel('A'); ylabel('P');
bar(IDZSig3,Pv_NZSig3,'g'); plot(IDZSig3,Pv_NZSig3,'b','linewidth',2); grid on;
% Ð Ð¸ÑÑƒÐµÐ¼ Ð½Ð° Ð³Ñ€Ð°Ñ„Ð¸ÐºÐµ Ñ„ÑƒÐ½ÐºÑ†Ð¸ÑŽ Ñ€Ð°ÑÐ¿Ñ€ÐµÐ´ÐµÐ»ÐµÐ½Ð¸Ñ
hf51=figure(); hold on; title('Distribution function of message source B','fontsize',14); xlabel('A'); ylabel('P');
plot(FxZSig,FyZSig,'g','linewidth',3,FxZSig_1,FyZSig_1,'b','linewidth',2); grid on;

% ÐžÐŸÐ¡Ð¬....
% ÐžÐ¿Ñ€ÐµÐ´ÐµÐ»ÑÐµÐ¼ÐµÐ¼ Ñ€Ð°Ð·Ñ€ÑÐ´Ð½Ð¾ÑÑ‚ÑŒ ÐºÐ²Ð°Ð½Ñ‚Ð¾Ð²Ð°Ð½Ð¸Ñ Nk
% Ð½Ð¾Ñ€Ð¼Ð¸Ñ€ÑƒÐµÐ¼ Ð¸ ÐºÐ²Ð°Ð½Ñ‚ÑƒÐµÐ¼ Ð¿Ð¾ Nk
ZSig=A;
ZSig_max=max(ZSig);
ZSig_min=min(ZSig);
Nk=ceil(log2((ZSig_max-ZSig_min)/dA));
% Ð¾Ð¿Ñ€ÐµÐ´ÐµÐ»ÑÐµÐ¼ ÐºÐ¾ÑÑ„Ñ„. ÐºÐ²Ð°Ð½Ñ‚Ð¾Ð²Ð°Ð½Ð¸Ñ ÐºÐ¾Ð»Ð¸Ñ‡ÐµÑÑ‚Ð²Ð¾ Ð¿Ð°Ñ€Ð°Ð¼ÐµÑ‚Ñ€Ð°/Ñ€Ð°Ð·Ñ€ÑÐ´
Kpr=(abs(ZSig_max-ZSig_min))/(2^(Nk)-2);
% NorKvant
ZSig_NK=fix(((ZSig.-ZSig_min)/(ZSig_max-ZSig_min))*(2^Nk-2))+1; % 1-Ð½Ð¾ Ð¿Ð¾Ð»ÑÑ€Ð½. Ð¿Ð¾Ð»Ð¾Ð¶.
%
% Ñ€Ð¸ÑÑƒÐµÐ¼ Ð³Ñ€Ð°Ñ„Ð¸ÐºÐ¸ ÑÑ€Ð°Ð²Ð½ÐµÐ½Ð¸Ñ ÐºÐ²Ð°Ð½Ñ‚.ÑÐ¸Ð³Ð½Ð°Ð», Ð°Ð¼Ð¿Ð»Ð¸Ñ‚ÑƒÐ´. Ñ€Ð°ÑÐ¿Ñ€., Ñ„-ÑŽ Ð¾ÑˆÐ¸Ð±ÐºÐ¸.;
hf61=figure();
subplot(311);
plot(t,ZSig,"b;signal;",
t,((ZSig_NK-1).*Kpr).+ZSig_min,";signal-Diskr-Kvant;");
ylabel ("Amplitude");
xlabel ("Time (ms)");
subplot (312);
plot(t,sort((ZSig)),'b;sign-sort;',
t,sort(((ZSig_NK-1).*Kpr).+ZSig_min), ';sign-DKsort;');
xlabel ("Rang");
ylabel ("Amplitude");
subplot (313);
plot(t,sort(ZSig)-sort(((ZSig_NK-1).*Kpr).+ZSig_min),'b;sign-error;');
xlabel ("Rang");
ylabel ("Error");
% ÐžÑˆÐ¸Ð±ÐºÐ° Ð¿Ñ€Ð¸ Ð²Ð¾ÑÑÑ‚Ð°Ð½Ð¾Ð²Ð»ÐµÐ½Ð¸Ð¸
Zosh=ZSig.-(((ZSig_NK-1)*Kpr).+ZSig_min);
Zoshsr=mean(Zosh);
Zoshproc=(abs(Zosh)./abs(ZSig));
hf71=figure();
plot(t,ZSig,"b;signal;",
t,(Zosh*1),";signal oshibki;");
ylabel ("Amplitude");
xlabel ("Time (ms)");
hf81=figure();
plot(t,Zoshproc,"b;oshibka kvant %;");
% Ð¾Ð¿Ñ€ÐµÐ´ÐµÐ»ÑÐµÐ¼ ÑÐ½Ñ‚Ñ€Ð¾Ð¿Ð¸ÑŽ Ð¸ÑÑ‚Ð¾Ñ‡Ð½Ð¸ÐºÐ°, ÐºÐ°Ðº Ð´Ð»Ñ Ð½ÐµÐ¿Ñ€ÐµÑ€Ñ‹Ð²Ð½Ð¾Ð³Ð¾ Ð¿Ñ€Ð¾Ñ†ÐµÑÑÐ°
Hnrav=ceil(log2(sqrt(12*e)*Astd)); Hdpr=ceil(log2((AMax-AMin)/dA));
% Ð¾Ð¿Ñ€ÐµÐ´ÐµÐ»ÑÐµÐ¼ Ð¸Ð½Ñ„. ÑÐ½Ñ‚Ñ€Ð¾Ð¿Ð¸ÑŽ Ð¸ÑÑ‚Ð¾Ñ‡Ð½Ð¸ÐºÐ°, ÐºÐ°Ðº Ð´Ð»Ñ Ð´Ð¸ÑÐºÑ€. Ð¿Ñ€Ð¾Ñ†ÐµÑÑÐ° (1-Ð³Ð¾ Ð´Ð¸ÑÐºÑ€ÐµÑ‚Ð°)
Hdrav=log2(2^Nk);
% Ð¾Ð¿Ñ€ÐµÐ´ÐµÐ»ÑÐµÐ¼ ÐºÐ¾Ð»-Ð²Ð¾ Ð±Ð°Ð¹Ñ‚ Ð´Ð»Ñ Ð¾Ð´Ð½Ð¾Ð³Ð¾ Ð´Ð¸ÑÐºÑ€ÐµÑ‚Ð° Ð¸ Ð±Ð¸Ñ‚Ð¾Ð²ÑƒÑŽ ÑÐºÐ¾Ñ€Ð¾ÑÑ‚ÑŒ Ð¿ÐµÑ€ÐµÐ´Ð°Ñ‡Ð¸ Ð¸ÑÑ‚-ÐºÐ°
Kbt=ceil(Hdrav/8); Bbit=Kbt*8/dT;
% Ð‘Ð»Ð¾Ðº ÑÐ¾Ñ…Ñ€Ð°Ð½ÐµÐ½Ð¸Ñ Ñ€ÐµÐ·ÑƒÐ»ÑŒÑ‚Ð°Ñ‚Ð¾Ð²
Rez=0;
disp('Ð–ÐµÐ»Ð°ÐµÑ‚Ðµ ÑÐ¾Ñ…Ñ€Ð°Ð½Ð¸Ñ‚ÑŒ Ñ€ÐµÐ·-Ñ‚Ñ‹ Ð² Ñ„Ð°Ð¹Ð»Ñ‹ Praktic_1_istB.txt Ð¸ Ð³Ñ€Ð°Ñ„Ð¸ÐºÐ¸ Ð² ***.pdf?');
disp('[ 1 - Ð”Ð, Ð¶ÐµÐ»Ð°ÑŽ; 0 - ÐÐ•Ð¢, Ð½Ðµ Ð¶ÐµÐ»Ð°ÑŽ (Ð¿Ð¾ ÑƒÐ¼Ð¾Ð»Ñ‡Ð°Ð½Ð¸ÑŽ) ]');
Rez=input('Rez=');
if Rez<=0;
Rez=0;
elseif Rez>0;
Rez=1;
% Ð—Ð°Ð¿Ð¸ÑÑŒ Ñ€ÐµÐ·ÑƒÐ»ÑŒÑ‚Ð°Ñ‚Ð¾Ð² Ð² Ñ„Ð°Ð¹Ð»
f_stud_rezy=fopen('Praktic_1_istB_TSiUPD.txt','wt');
fprintf(f_stud_rezy,"Ð˜ÑÑ…Ð¾Ð´Ð½Ñ‹Ðµ Ð´Ð°Ð½Ð½Ñ‹Ðµ Ð²Ð°Ñ€Ð¸Ð°Ð½Ñ‚Ð° \t%u\n\n",n);
fprintf(f_stud_rezy,"ÐšÐ¾Ð»Ð¸Ñ‡ÐµÑÑ‚Ð²Ð¾ Ð¾Ñ‚ÑÑ‡ÐµÑ‚Ð¾Ð² N = \t%u\n\n",N);
fprintf(f_stud_rezy,"Ð§Ð°ÑÑ‚Ð¾Ñ‚Ð° Ð´Ð¸ÑÐºÑ€ÐµÑ‚Ð¸Ð·Ð°Ñ†Ð¸Ð¸ dF = \t%u\n\n",dF);
fprintf(f_stud_rezy,"ÐœÐ˜Ð Ð·Ð½Ð°Ñ‡.Ð¿Ð°Ñ€.Ð¸ÑÑ‚.ÑÐ¾Ð¾Ð±Ñ‰. AMin = \t%u\n\n",AMin);
fprintf(f_stud_rezy,"ÐœÐÐšÐ¡ Ð·Ð½Ð°Ñ‡.Ð¿Ð°Ñ€.Ð¸ÑÑ‚.ÑÐ¾Ð¾Ð±Ñ‰. AMax = \t%u\n\n",AMax);
fprintf(f_stud_rezy,"Ð˜Ð½Ñ‚ÐµÑ€Ð²Ð°Ð» Ð´Ð¸ÑÐºÑ€.Ð¿Ð°Ñ€.Ð¸ÑÑ‚.ÑÐ¾Ð¾Ð±Ñ‰. dA = \t%u\n\n",dA);
fprintf(f_stud_rezy," \t\n\n");
fprintf(f_stud_rezy,"Ð ÐµÐ·ÑƒÐ»ÑŒÑ‚Ð°Ñ‚Ñ‹ Ð²Ñ‹Ñ‡Ð¸ÑÐ»ÐµÐ½Ð¸Ð¹ Ð¿Ð°Ñ€Ð°Ð¼ÐµÑ‚Ñ€Ð¾Ð² Ð¸ÑÑ‚.ÑÐ¾Ð¾Ð±Ñ‰. B \t\n\n");
fprintf(f_stud_rezy,"ÐœÐ°Ñ‚Ð¾Ð¶Ð¸Ð´Ð°Ð½Ð¸Ðµ (ÑÑ€ÐµÐ´.Ð°Ñ€Ð¸Ñ„Ð¼.) Amean = \t%u\n\n",Amean);
fprintf(f_stud_rezy,"Ð¡ÐšÐž Astd = \t%u\n\n",Astd);
fprintf(f_stud_rezy,"Ð“Ð¸ÑÑ‚Ð¾Ð³Ñ€Ð°Ð¼Ð¼Ð° Ð¿Ð¾ÑÑ‚Ñ€Ð¾ÐµÐ½Ð° Ð¿Ð¾ Ð¿Ñ€Ð°Ð²Ð¸Ð»Ñƒ Ð¨Ñ‚ÑŽÑ€Ð³ÐµÑÐ°(Ð“ÐžÐ¡Ð¢)+3K K = \t%u\n\n",Mhist);
fprintf(f_stud_rezy,"ÐÐ½Ñ‚Ñ€Ð¾Ð¿Ð¸Ñ Ð½ÐµÐ¿Ñ€.Ð¸ÑÑ‚.ÑÐ¾Ð¾Ð±Ñ‰. B Hnrav = \t%u\n\n",Hnrav);
fprintf(f_stud_rezy,"ÐÐ½Ñ‚Ñ€Ð¾Ð¿Ð¸Ñ Ð¸Ð½Ñ„Ð¾Ñ€Ð¼.Ð¸ÑÑ‚.ÑÐ¾Ð¾Ð±Ñ‰. B Hdrav = \t%u\n\n",Hdrav);
fprintf(f_stud_rezy,"ÐšÐ¾Ð»-Ð²Ð¾ ÑƒÑ€Ð¾Ð²Ð½ÐµÐ¹ Ð´Ð¸ÑÐºÑ€ÐµÑ‚.Ð¸ÑÑ‚.ÑÐ¾Ð¾Ð±Ñ‰. B = \t%u\n\n",2^Hdrav);
fprintf(f_stud_rezy,"Ð‘Ð¸Ñ‚Ð¾Ð²Ð°Ñ ÑÐºÐ¾Ñ€Ð¾ÑÑ‚ÑŒ Ð¿ÐµÑ€ÐµÐ´Ð°Ñ‡Ð¸ Ð¸ÑÑ‚.ÑÐ¾Ð¾Ð±Ñ‰. B Bbit = \t%u\n\n",Bbit);
fclose(f_stud_rezy);
% ÑÐ¾Ñ…Ñ€Ð°Ð½ÑÐµÐ¼ Ð³Ñ€Ð°Ñ„Ð¸ÐºÐ¸
print(hf11, "Praktic_1_istB_Graf_400N_M_SKO.pdf", "-dpdf","-S600,300");
print(hf21, "Praktic_1_istB_Graf_100N_M_SKO.pdf", "-dpdf","-S600,300");
print(hf41, "Praktic_1_istB_Graf_Plotn_ver.pdf", "-dpdf","-S600,400");
print(hf51, "Praktic_1_istB_Graf_Funk_rasp.pdf", "-dpdf","-S600,400");
print(hf61, "Praktic_1_istB_Graf_Diskr_ist.pdf", "-dpdf","-S600,600");
print(hf81, "Praktic_1_istB_Graf_Err_kvant.pdf", "-dpdf","-S600,300");
end
% ÐºÐ¾Ð½ÐµÑ† Ð¿Ñ€Ð¾Ð³Ñ€Ð°Ð¼Ð¼Ñ‹