OBR_2

clear all
close all

% Пункт 3.1

Uk = [0.5 0.6 0.9 1.4 2 1.9 1.6 1 0.7 0.5];
Ik0 = [1.3 1.3 1.5 1.8 2 1.9 1.8 1.5 1.4 1.3];
Eypr = [0.95 1.22 1.58 1.97 2.26 2.58 2.77 3.03 3.2 3.4];
fg = [1999.9 1999.987 1999.99 1999.997 2000 2000.02 2000.023 2000.025 2000.025 2000.025];
fp = [1813 1820 1830 1838 1853 1872 1882 1895 1906 1917];

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

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

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

% Пункт 3.2

Uk = [2.1 1.8 1.4 1.1 0.5 0.3];
Ik0 = [2 1.9 1.7 1.5 1.2 1.1];
Ek = [10.5 3.8 3.1 2.7 1.9 1.6];
fg = [2000.011 2000.006 2000 1999.996 1999.991 1999.99];

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

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

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

% Пункт 3.3

Uk = [2 2 2 1.9];
Ik0 = [2 2 2 2];
Rn = [1.2 1 0.9 0.8];
fg = [2000.009 2000.009 2000.01 2000.011];

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

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

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

% Пункт 3.4

Uk = [2 2 2 1.9 1.8 1.6 1.5 1.3];
Ik0 = [2 2 2 1.9 1.8 1.7 1.6 1.4];
tay = [0 1 2 3 4 5 6 7];
fg = [2000.01 2000.006 2000.002 1999.997 1999.992 1999.986 1999.979 1999.971];

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

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

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

% Пункт 4.1

Uk = [1.3 1.3 1.3 1.4 1.4 1.4 1.5 1.4 1.4 1.1];
Ik0 = [1.5 1.5 1.5 1.5 1.5 1.4 1.4 1.3 1.3 1.2];
fg = [1999.9 1999.987 1999.99 1999.997 2000 2000.02 2000.023 2000.025 2000.025 2000.025];
fp = [1785 1792 1801 1809 1814 1819 1825 1831 1836 1841];

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

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

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

% Пункт 4.2

Uk = [1.2 1.1 0.9 0.8 0.5 0.3];
Ik0 = [1.2 1.3 1.3 1.2 1.2 1.2];
Ek = [10.5 3.4 3 2.5 2 1.6];
fg = [2000.139 2000.124 2000.109 2000.079 2000.052 2000.041];

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

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

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

% Пункт 5.1

Uk = [1.7 1.3 1.1 0.8 0.7 0.7 0.7 0.7];
Ik0 = [1.9 1.7 1.6 1.5 1.4 1.4 1.4 1.4];
fg = [2000.102 2000.105 2000.105 2000.105 2000.104 2000.103 2000.101 2000.1];
fp = [1908 1919 1932 1951 1961 1962 1964 1966];

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

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

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

% Пункт 5.2

Uk = [1.7 1.9 1.6 1.1 0.9 0.6 0.3];
Ik0 = [1.8 2 1.8 1.4 1.3 1.3 1.3];
Ek = [10.5 4.8 3.6 2.8 2.5 2.2 2.1];
fg = [2000.101 2000.098 2000.072 2000.028 2000.012 2000.013 2000.013];

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

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

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