OBR_1_1

clear all
close all
% Пункт 2
path(path, 'C:\Users\danya\OneDrive\Рабочий стол\Учёба\УГФРС\Лабы')
TETA = xlsread('Книга1.xlsx', 'S10:S20');
P0 = xlsread('Книга1.xlsx', 'V10:V20');
P1 = xlsread('Книга1.xlsx', 'W10:W20');
KPD = xlsread('Книга1.xlsx', 'X10:X20');
Pk = xlsread('Книга1.xlsx', 'Y10:Y20');

subplot (2,2,1);
p = plot(TETA,P0);
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "red";
xlabel('TETA, grad'); ylabel('P0, Watt'); grid on;

subplot (2,2,2);
p = plot(TETA,P1);
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "red";
xlabel('TETA, grad'); ylabel('P1, Watt'); grid on;

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

subplot (2,2,4);
p = plot(TETA,Pk);
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "red";
xlabel('TETA, grad'); ylabel('Pk, Watt'); grid on;

% Пункт 3

figure;
Req = xlsread('Книга1.xlsx','Лист2', 'O4:O8');
P0 = xlsread('Книга1.xlsx','Лист2', 'P4:P8');
P1 = xlsread('Книга1.xlsx','Лист2', 'Q4:Q8');
KPD = xlsread('Книга1.xlsx','Лист2', 'S4:S8');
Pk = xlsread('Книга1.xlsx','Лист2', 'R4:R8');

subplot (2,2,1);
p = plot(Req,P0);
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "red";
xlabel('Req, Om'); ylabel('P0, Watt'); grid on;

subplot (2,2,2);
p = plot(Req,P1);
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "red";
xlabel('Req, Om'); ylabel('P1, Watt'); grid on;

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

subplot (2,2,4);
p = plot(Req,Pk);
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "red";
xlabel('Req, Om'); ylabel('Pk, Watt'); grid on;

% Пункт 4
% ЫЫЫЫЫЫ ГРАНИЧНЫЙ ПОГРАНИЧНЫЙ s1=3

figure;
f = xlsread('Книга1.xlsx','Лист3', 'K3:K9');
P0 = xlsread('Книга1.xlsx','Лист3', 'P3:P9');
P1 = xlsread('Книга1.xlsx','Лист3', 'Q3:Q9');
KPD = xlsread('Книга1.xlsx','Лист3', 'S3:S9');
Pk = xlsread('Книга1.xlsx','Лист3', 'R3:R9');

subplot (2,2,1);
p = plot(f,P0);
ylim([0 0.06])
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "red";
xlabel('f, Hz'); ylabel('P0, Watt'); grid on;

subplot (2,2,2);
p = plot(f,P1);
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "red";
xlabel('f, Hz'); ylabel('P1, Watt'); grid on;

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

subplot (2,2,4);
p = plot(f,Pk);
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "red";
xlabel('f, Hz'); ylabel('Pk, Watt'); grid on;

% Перенапряженный(я) s1=4

figure;
f = xlsread('Книга1.xlsx','Лист3', 'K15:K21');
P0 = xlsread('Книга1.xlsx','Лист3', 'P15:P21');
P1 = xlsread('Книга1.xlsx','Лист3', 'Q15:Q21');
KPD = xlsread('Книга1.xlsx','Лист3', 'S15:S21');
Pk = xlsread('Книга1.xlsx','Лист3', 'R15:R21');

subplot (2,2,1);
p = plot(f,P0);
ylim([0 0.06])
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "red";
xlabel('f, Hz'); ylabel('P0, Watt'); grid on;

subplot (2,2,2);
p = plot(f,P1);
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "red";
xlabel('f, Hz'); ylabel('P1, Watt'); grid on;

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

subplot (2,2,4);
p = plot(f,Pk);
p(1).LineWidth = 1; p(1).Marker = '.';p(1).MarkerSize = 15;p(1).Color = "red";
xlabel('f, Hz'); ylabel('Pk, Watt'); grid on;