Circuit Theory/Phasors/Examples/Example 10/mfilew

a = 2*pi/3;
im = 120*sqrt(2);
w=377;
L=0.01;
R=10;
Vs= im*sqrt((w^2*L^2*R)^2 + (w*L*R^2)^2)/(R^2+w^2*L^2)
b = a + atan(R/(w*L))
syms t;
iR = Vs*cos(377*t + b)/10;
ir = vpa(iR,3)
iz = int(Vs*cos(377*t + b)/L,t);
iL = vpa(iz,3)