% Вычисление условий баланса диффсистемы из резистивных плеч
% R1 L

% C R2

clear; % Очищаем workspace
clc; % Очищаем command window

syms R1 R2 XC XL PI f C L; % Символьные переменные
XC = 1 / (2 * PI * f * C); % Емкостное сопротивление
XL = 2 * PI * f * L;    % Индуктивное сопротивление
XRC = sqrt((R1 ^ 2) + (XC ^ 2)); % Сопротивление последовательно соединенных R1 и С
XRL = sqrt((R2 ^ 2) + (XL ^ 2)); % Сопротивление последовательно соединенных R2 и L

%fn = R1 / (R1 + XC) - XL / (R2 + XL)  % Формула с упрощенным сложением
fn = R1 / XRC - XL / XRL  % Формула с полным сложением
%fn = simplify(fn) % Упрощаем формулу
L = solve(fn, L) % Решаем для переменной L