ЛАбЫ_ГРЯЗНОВ_ЛЭТИ / 2 / ФАЙЛЫ ДЛЯ ГРАФИКОВ MATLAB / polyarka

% Данные
theta_deg = [0, 30, 60, 90, 120, 150, 180, 210, 240, 270, 300];
theta = deg2rad(theta_deg); % Преобразование градусов в радианы

R1 = [0, 60, 240, 410, 600, 750, 1360, 2440, 3500, 4520, 5000]; % R(1-2)
R2 = [4980, 4980, 4780, 4620, 4440, 4260, 3700, 2710, 1590, 610, 0]; % R(2-3)

% Создаем более плотную сетку углов для сглаживания
theta_interp = linspace(0, 5.24, 330);
R1_interp = polyval(polyfit(theta,R1,4),theta_interp);
R2_interp = polyval(polyfit(theta,R2,4),theta_interp);

% Создаем полярный график
figure;
polarplot(theta(1:11), R1(1:11), 'bo', 'MarkerSize', 8, 'MarkerFaceColor', 'b'); % Кружки для R(1-2)
hold on;
polarplot(theta(1:11), R2(1:11), 'r^', 'MarkerSize', 8, 'MarkerFaceColor', 'r');
polarplot(theta_interp, R1_interp, 'b-', 'LineWidth', 1.5); % Сглаженная линия для R(1-2)


polarplot(theta_interp, R2_interp, 'r-', 'LineWidth', 1.5); % Сглаженная линия для R(2-3)
% Треугольники для R(2-3)

% Настройка легенды и заголовка
legend('R(1-2)', 'R(2-3)', 'Location', 'northeast');


% Улучшаем отображение
ax = gca;
ax.ThetaZeroLocation = 'top';
ax.ThetaDir = 'counterclockwise';
grid on;