ClearAll["Global`*"]
(* First example problem on handout *)
;
L1=0.2;c1=8.333*(10^(-3));R1=8.0;R2=4.0;
ω=30.0;V0=24.0;
zL=L1 ω I;zc=((-I)/(ω c1));z1 = R1+zc;
z2 = ((z1 zL)/(z1 + zL));ztot=z2+R2;
vtot=V0 (E^(I 60 Degree));i0=(vtot/ztot);v1=vtot-R2 i0;
i1=(v1/zL);i2=i0-i1;v2=i2*zc;v2a=v1-R1*i2;
Print["(Subscript[V, 0]) = ",vtot,", with Mag = ",Abs[vtot]," and phase = ",Arg[vtot]]
Print["(Subscript[Z, tot]) = ",ztot,", with Mag = ",Abs[ztot]," and phase = ",Arg[ztot]]
Print["i0 = ",i0,", with Mag = ",Abs[i0]," and phase = ",Arg[i0]]
Print["(Subscript[V, 2]) = ",v2,", with Mag = ",Abs[v2]," and phase = ",Arg[v2]]

ClearAll["Global`*"]
(* Second example problem on handout *)
;
ω=10.0;c1= 0.01;R1=6.0;L1=0.5;v0=9.0(E^(I(0)));
zL=L1 ω I;zc=((-I)/(ω  c1));z3c = ((-I)/(ω  3 c1));z4L = 4 L1 ω I;
z1=(((z4L+zc)(R1))/((R1)+(z4L+zc)));   (* groups 4L, C, and R*)
z2=(((6 R1)(2 zL))/(6 R1+2 zL));          (* groups 2R, 4R, and 2L *)
z3 = z2+2 R1+z3c;        (* groups z2 with 3C and 2R *)
z4=((z3*zL)/(z3+zL));                      (* combines z3 with L *)
ztot=z4+z1;
i0=(v0/(Abs[ztot] (E^(I Arg[ztot]))));     (* Ohm's law for ztot *)
v2=i0 z1;                                    (* Ohm's Law for z1 *)
i2=((v0-v2)/zL) ;                              (* Ohm's Law for L *)
i1down=i0-i2 ;                     (* KCL *)
v1=v2+i1down*z2;                (* Ohm's Law for z2 *)
Print["(Subscript[Z, tot]) = ",ztot,", with Mag = ",Abs[ztot]," and phase = ",Arg[ztot]]
Print["(Subscript[i, 0]) = ",i0,", with Mag = ",Abs[i0]," and phase = ",Arg[i0]]
Print["(Subscript[v, 1]) = ",v1,", with Mag = ",Abs[v1]," and phase = ",Arg[v1]]
Print["(Subscript[V, 2]) = ",v2," which is also ",Abs[v2], " ∠",Arg[v2]  ]