n = 15107098
k = n Mod 10000
T = n Mod 100
R = T
L = 1 / k
C = 1 / n
omega = k
pi = 4 * Atn(1)
voltage_amplitude = T
total_current_phase = -Atn((1 / (L * omega) - C * omega) * R)
Z = (Sqr(R ^ (-2) + (1 / (L * omega) - C * omega) ^ 2)) ^ (-1)
total_current_amplitude = voltage_amplitude / Z
resistor_current_amplitude = voltage_amplitude / R
resistor_current_phase = 0
inductive_current_amplitude = voltage_amplitude / (L * omega)
inductive_current_phase = -pi / 2
capacitive_current_amplitude = C * omega * voltage_amplitude
capacitive_current_phase = pi / 2
MsgBox total_current_amplitude
MsgBox total_current_phase
MsgBox resistor_current_amplitude
MsgBox resistor_current_phase
MsgBox inductive_current_amplitude
MsgBox inductive_current_phase
MsgBox capacitive_current_amplitude
MsgBox capacitive_current_phase