OBR_1

clear all
close all

% Пункт 3.1
% Жесткая генерация

Uk = [0 0 0 0.1 0.5 1.2 1.4 1.2 0.9 0.1 0];
Ik0 = [0 0 0.5 0.9 3.1 6.3 8.7 10.8 12.3 14.5 11.4];
Esm = [-2.1 0 0.8 0.9 1.4 2.2 3.4 4.9 5.7 6.1 6.5];
Ukobr = [0 0 0 0.1 0.5 1.2 1.4 1.2 0.9 0.5 0];
Ik0obr = [0 0 0.6 1.1 3.3 6.3 8.7 10.8 12.2 13.9 11.4];

subplot (1,2,1);
p = plot(Esm,Uk,Esm,Ukobr);
legend('Uk','Ukobr','Location','northwest');
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "blue";
p(2).LineWidth = 1; p(2).Marker = '.';p(2).MarkerSize = 15;p(2).Color = "red";p(2).LineStyle = "--";
xlabel('Esm, V'); ylabel('Uk, V'); grid on;

subplot (1,2,2);
p = plot(Esm,Ik0,Esm,Ik0obr);
legend('Ik0','Ik0obr','Location','northwest');
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "blue";
p(2).LineWidth = 1; p(2).Marker = '.';p(2).MarkerSize = 15;p(2).Color = "red";p(2).LineStyle = "--";
xlabel('Esm, V'); ylabel('Ik0, A'); grid on;

% Мягкая генерация

Uk = [0 0 0.2 0.6 1.1 1.3 1.3 1.4 1.4 1.3 1.2 1 0.7 0];
Ik0 = [0 0 1.4 3.6 5.9 6.9 7.9 8.8 9.6 10.4 11 11.8 13.1 12.4];
Esm = [0 0.5 1 1.5 2 2.5 3 3.5 4 4.5 5 5.5 6 6.5];
Ukobr = [0 0 0.2 0.6 1.1 1.3 1.3 1.4 1.3 1.3 1.2 1 0.6 0];
Ik0obr = [0 0 1.6 3.8 5.8 6.9 7.9 8.8 9.7 10.4 11.1 11.9 13.4 12.4];

figure;
subplot (1,2,1);
p = plot(Esm,Uk,Esm,Ukobr);
legend('Uk','Ukobr','Location','northwest');
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "blue";
p(2).LineWidth = 1; p(2).Marker = '.';p(2).MarkerSize = 15;p(2).Color = "red";p(2).LineStyle = "--";
xlabel('Esm, V'); ylabel('Uk, V'); grid on;

subplot (1,2,2);
p = plot(Esm,Ik0,Esm,Ik0obr);
legend('Ik0','Ik0obr','Location','northwest');
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "blue";
p(2).LineWidth = 1; p(2).Marker = '.';p(2).MarkerSize = 15;p(2).Color = "red";p(2).LineStyle = "--";
xlabel('Esm, V'); ylabel('Ik0, A'); grid on;

% Пункт 4.1

Uk = [3.1 2.8 2.9 2.9 2.9 3 3 3.1 3.1 3.2];
Ik0 = [2.8 2.7 2.8 2.8 2.8 2.8 2.8 2.8 2.8 2.8];
Eypr = [0.1 2.1 3 3.5 3.8 4.5 4.8 5.3 5.9 6.5];
fg = [1790 1844 1895 1923 1943 1992 2020 2058 2100 2155];

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;

% Пункт 4.2

Uk = [3.1 3.1 3.1 3.2 3.1 3.1 2.9 2.5 2.3 1.7 1.3 0.9 0.6 0];
Ik0 = [2.8 2.8 2.8 2.8 2.8 2.8 2.6 2.4 2.3 1.9 1.7 1.4 1.3 1.6];
Ek = [10.3 9.7 8 7 6.1 5 4 3.5 3.1 2.4 2 1.6 1.2 1.1];
fg = [2004 2004 2002 2001 2000 1998 1992 1975 1958 1909 1860 1777 1655 0];

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;

% Пункт 4.3

Uk = [3.1 3.1 2.9 2.9];
Ik0 = [2.8 2.8 2.7 2.7];
Rn = [1.2 1 0.9 0.8];
fg = [2002 2005 2011 2014];

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;

% Пункт 4.4

Uk = [3.1 3.2 3.2 3 2.8 2.4 2 1.7];
Ik0 = [2.8 2.8 2.8 2.8 2.7 2.6 2.5 2.3];
tay = [0 1 2 3 4 5 6 7];
fg = [2001 1983 1967 1952 1936 1919 1897 1876];

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;