Policzyć natężenia prądów płynących przez oporniki R1, R2, R3 i R4, moc wydzielaną na każdym z oporników oraz całkowitą moc wydzielaną w układzie.

R12=R1*R2/(R1+R2)

R123=R12+R3

Rz=(R123*R4)/(R123+R4)

FullSimplify[Rz]

s4=FullSimplify[Solve[{I0==I4+I123,R4*I4==R123*I123},{I4,I123}]]

I4=I4/.s4[[1]]

I123=I123/.s4[[1]]

s1=FullSimplify[Solve[{R1*I1==R2*I2,I1+I2==I123},{I1,I2}]]

I1=I1/.s1[[1]]

I2=I2/.s1[[1]]

P1=FullSimplify[R1*I1^2]

P2=FullSimplify[R2*I2^2]

I3=I123;

P3=FullSimplify[R3*I3^2]

P4=FullSimplify[R4*I4^2]

Ptot1=FullSimplify[P1+P2+P3+P4];

Ptot2=FullSimplify[Rz*I0^2]

Simplify[Ptot1==Ptot2]