OBR_3

clear all
close all
% Пункт 4

Uk = [1.4 1.4 1.3 1.3 1.3 1.3 1.3 1.3 1.3 1.3];
Ik0 = [1.4 1.4 1.4 1.4 1.4 1.4 1.5 1.5 1.4 1.5];
Eypr = [4.13 3.61 3.08 2.49 2.09 1.62 1.32 0.88 0.46 0];
fg = [2394 2280 2163 2033 1960 1897 1864 1818 1795 1789];

figure;
subplot (1,3,1);
p = plot(Eypr,Uk);
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "red";
xlabel('Eypr, V'); ylabel('Uk, V'); grid on;

subplot (1,3,2);
p = plot(Eypr,Ik0);
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "red";
xlabel('Eypr, V'); ylabel('Ik0, A'); grid on;

subplot (1,3,3);
p = plot(Eypr,fg);
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "red";
xlabel('Eypr, V'); ylabel('fg, kHz'); grid on;

% Пункт 5

devf = [0 4.35 12.38 21.3 28.59 36.8 45.6 55.55];
Umod = [0 0.04 0.08 0.12 0.16 0.2 0.24 0.29];
fg = [2000.15 2000.21 2000.35 2000.55 2000.86 2001.27 2001.74 2002.48];

figure;
subplot (1,2,1);
p = plot(Umod,devf);
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "red";
xlabel('Umod, V'); ylabel('devf, kHz'); grid on;

subplot (1,2,2);
p = plot(Umod,fg);
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "red";
xlabel('Umod, V'); ylabel('fg, kHz'); grid on;

% Пункт 6

devf = [14.29 22.9 27.55 29.1 29.38 29.64 29.73 29.73 29.82 29.82 29.73 29.55 29.38 29.2 29.03 28.68];
Fmod = [0.01 0.02 0.04 0.08 0.1 0.2 0.4 0.8 1 2 4 8 10 12 14 18];

figure;
p = plot(Fmod,devf);
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "red";
xlabel('Fmod, kHz'); ylabel('devf, kHz'); grid on;