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

% CR2 R2

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

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

XRC = 1 / sqrt(1 / (R2 ^ 2) + 1 / (XC ^ 2)); % Cопротивление параллельного соединения R2 и C

XRL = sqrt((R1 ^ 2) + (XL ^ 2));

XRRC = sqrt((R1 ^ 2) + (XRC ^ 2)); % Сопротивление 2х последовательно соединенных плеч
XRRL = sqrt((R2 ^ 2) + (XRL ^ 2)); % Сопротивление 2х последовательно соединенных плеч
%XRRL = sqrt(((R3 + R4) ^ 2) + (XL ^ 2)); % Такая формула не работает...

fn = R1 / XRRC - XRL / XRRL;  % Формула

fn = simplify(fn)
s_fn = solve(fn, L) % Решаем для переменной - второй аргумент (Закоментить ее инициализацию значением ниже)

R1 = 600;
R2 = 5000;
C = 100e-9;
%L = 0,36;
f = 1000; % Частота
PI = 3.1416; % Пи

res = subs(s_fn) % Вычисляем значение 
eval(res)