Générateur de tension réparti

Les lois des n uds et des mailles s'écrivent successivement comme suit:

> eq1 := {i4 = ia + i2, i1 = i3 + ia, i = i3 + i4, i1 + i2 = i};
> eq2 := {-e + R*i4 - e + 3*R*ia = -e +2*R*i3, 
          -e + 3*R*ia - e + i1*R = -e + 2*R*i2,
          -e + R*i4 - e + 2*R*i2 + i*Rp = 0};

Maintenant, on obtient directement l'intensité du courant passant dans la résistance R':

> solve(eq1 union eq2, {i1, i2, i3, i4, ia, i});
> subs(",i);