Fig. 1

Clear[r];
r[{x1_,y1_},{x2_,y2_},t_]:=Module[{dx},dx=((x2-x1)/5);{{GrayLevel[1],Rectangle[{x1,y1-dx},{x2,y2+dx}]},
		{Line[{{x1,y1-dx},{x2,y2-dx},{x2,y2+dx},{x1,y1+dx},{x1,y1-dx}}],Text[t,{((x1+x2)/2),((y1+y2)/2)}]}}/;Abs[x2-x1]>Abs[y2-y1]]

r[{x1_,y1_},{x2_,y2_},t_]:=Module[{dy},dy=((y2-y1)/5);{{GrayLevel[1],Rectangle[{x1-dy,y1},{x2+dy,y2}]},
		{Line[{{x1-dy,y1},{x2-dy,y2},{x2+dy,y2},{x1+dy,y1},{x1-dy,y1}}],Text[t,{((x1+x2)/2),((y1+y2)/2)},{0,0},{0,1}]}}]

Show[Graphics[{r[{2,3},{4,3},"\!\(\*SubscriptBox[\(R\), \(1\)]\)"]}],ImageSize->{100,70}]

Clear[u];
u[{x1_,y1_},{x2_,y2_},t_]:=Module[{dx},dx=((x2-x1)/5);
	{{Thickness[0.004],Line[{{x1,y1},{x1+2 dx,y1}}]},
				{Thickness[0.01],Line[{{x1+2 dx,y1-dx},{x1+2 dx,y1+ dx}}]},
				{Thickness[0.004],Text["-",{x1+ dx,y1+ dx}],
					Text["+",{x2- dx,y2+ dx}],Line[{{x2-2 dx,y2-2dx},{x2-2 dx,y2+2dx}}],
					Line[{{x2-2 dx,y2},{x2,y2}}],
				Text[t,{x1+2 dx,y1-3 dx},{0,0},{1,0}]}}/;Abs[x2-x1]>Abs[y2-y1]]

u[{x1_,y1_},{x2_,y2_},t_]:=Module[{dy},dy=((y2-y1)/5);
	{{Thickness[0.004],Line[{{x1,y1},{x1,y1+2 dy}}]},
				{Thickness[0.01],Line[{{x1- dy,y1+2dy},{x1+dy,y1+ 2 dy}}]},
				{Thickness[0.004],Text["-",{x1-dy,y1+ dy},{0,0},{0,1}],
					Text["+",{x2- dy,y2-dy},{0,0},{0,1}],Line[{{x2-2 dy,y2-2dy},{x2+2 dy,y2-2dy}}],
					Line[{{x2,y2-2 dy},{x2,y2}}],
				Text[t,{x1+3 dy,y1+2 dy},{0,0},{0,1}]}}]

Clear[c];
c[p__]:=Line[{p}]

Show[Graphics[{u[{7,3},{9,3},"\!\(\*SubscriptBox[\(U\), \(1\)]\)"],c[{9,3},{12,6}],u[{12,6},{12,8},"\!\(\*SubscriptBox[\(U\), \(2\)]\)"]}],ImageSize->{200,140},PlotRange->All]

Show[Graphics[{c[{0,0},{3,0}],r[{3,0},{7,0},"Radiateur"],c[{7,0},{10,0},{10,5},{6,5}],u[{6,5},{4,5},"Pompe"],c[{4,5},{0,5},{0,0}]}],Graphics[Text["Débit ⟶",{10,2.5`},{1,0},{0,1}]],ImageSize->{200,140},PlotRange->All,AspectRatio->Automatic]

Show[Graphics[{c[{0,0},{4,0}],r[{4,0},{6,0},"R"],c[{6,0},{10,0},{10,5},{6,5}],u[{6,5},{4,5},"U"],c[{4,5},{0,5},{0,0}]}],Graphics[Text["I ⟶",{10,2.5`},{1,0},{0,1}]],ImageSize->{200,140},PlotRange->All,AspectRatio->Automatic]

Fig. 2

Show[Graphics[{c[{0,0},{2,0}],u[{2,0},{3,0},"\!\(\*SubscriptBox[\(U\), \(1\)]\)"],c[{3,0},{5,0},{5,2}],r[{5,2},{5,3},"\!\(\*SubscriptBox[\(R\), \(3\)]\)"],c[{5,3},{5,5},{3,5}],r[{3,5},{2,5},"\!\(\*SubscriptBox[\(R\), \(1\)]\)"],c[{2,5},{0,5},{0,0}],c[{5,0},{7,0}],u[{7,0},{8,0},"\!\(\*SubscriptBox[\(U\), \(2\)]\)"],c[{8,0},{10,0},{10,5},{8,5}],r[{8,5},{7,5},"\!\(\*SubscriptBox[\(R\), \(2\)]\)"],c[{7,5},{5,5}]}],ImageSize->{300,210},PlotRange->All,AspectRatio->Automatic]

Fig. 3

Show[Graphics[{c[{0,0},{2,0}],u[{2,0},{3,0},"\!\(\*SubscriptBox[\(U\), \(1\)]\)"],c[{3,0},{5,0},{5,2}],r[{5,2},{5,3},"\!\(\*SubscriptBox[\(R\), \(3\)]\)"],c[{5,3},{5,5},{3,5}],r[{3,5},{2,5},"\!\(\*SubscriptBox[\(R\), \(1\)]\)"],c[{2,5},{0,5},{0,0}],c[{5,0},{7,0}],u[{7,0},{8,0},"\!\(\*SubscriptBox[\(U\), \(2\)]\)"],c[{8,0},{10,0},{10,5},{8,5}],r[{8,5},{7,5},"\!\(\*SubscriptBox[\(R\), \(2\)]\)"],c[{7,5},{5,5}],Text["\!\(\*SubscriptBox[\(I\), \(1\)]\) ⟶",{0,2.5`},{1,0},{0,-1}],Text["\!\(\*SubscriptBox[\(I\), \(2\)]\) ⟶",{10,2.5`},{1,0},{0,1}],Text["\!\(\*SubscriptBox[\(I\), \(3\)]\) ⟶",{5,1.25`},{1,0},{0,1}],Text["F",{0,5},{1,-1}],Text["E",{5,5},{0,-1}],Text["D",{10,5},{-1,-1}],Text["A",{0,0},{1,1}],Text["B",{5,0},{0,1}],Text["C",{10,0},{-1,1}]}],ImageSize->{300,210},PlotRange->All,AspectRatio->Automatic]

Fig ex. 1-1-7

Show[Graphics[{c[{0,0},{2,0}],r[{2,0},{3,0},"2 Ω"],c[{3,0},{5,0},{5,2}],r[{5,2},{5,3},"4 Ω"],c[{5,3},{5,5},{3,5},{0,5},{0,3}],u[{0,2},{0,3},"20 V"],c[{0,2},{0,0}],c[{5,0},{10,0},{10,2}],u[{10,2},{10,3},"7 V"],c[{10,3},{10,5},{8,5}],r[{8,5},{7,5},"5 Ω"],c[{7,5},{5,5}]}],ImageSize->{400,300},PlotRange->All,AspectRatio->Automatic]

Fig. ex. 1-1-8

Show[Graphics[{c[{0,0},{1,0}],u[{2,0},{1,0},"4 V"],c[{2,0},{3,0}],r[{3,0},{4,0},"1 Ω"],c[{4,0},{5,0},{5,1}],r[{5,1},{5,2},"3 Ω"],c[{5,2},{5,4}],u[{5,4},{5,5},"6 V"],c[{5,5},{5,6}],r[{5,6},{5,7},"1 Ω"],c[{5,7},{5,8},{3,8}],r[{3,8},{2,8},"2 Ω"],c[{2,8},{0,8},{0,7}],r[{0,7},{0,6},"1 Ω"],c[{0,6},{0,5}],u[{0,4},{0,5},"10 V"],c[{0,4},{0,0}],c[{0,3},{2,3}],r[{2,3},{3,3},"4 Ω"],c[{3,3},{5,3}]}],ImageSize->{300,400},PlotRange->All,AspectRatio->Automatic]

Fig. ex. 1-1-9

Show[Graphics[{c[{0,0},{1,0}],u[{2,0},{1,0},"4 V"],c[{2,0},{3,0}],r[{3,0},{4,0},"1 Ω"],c[{4,0},{5,0},{5,1}],r[{5,1},{5,1.5`},"R"],c[{5,1.5`},{5,3.5`}],u[{5,3.5`},{5,4.5`},"20 V"],c[{5,4},{5,5},{3,5}],r[{3,5},{2,5},"4 Ω"],c[{2,5},{0,5},{0,0}],c[{5,0},{7,0}],r[{7,0},{8,0},"5 Ω"],c[{8,0},{10,0},{10,5},{9,5}],u[{9,5},{8,5},"6 V"],c[{8,5},{7,5}],r[{7,5},{6,5},"3 Ω"],c[{6,5},{5,5}],Text["3 A ⟶",{5,2.5`},{1,0},{0,1}]}],ImageSize->{400,300},PlotRange->All,AspectRatio->Automatic]

Fig. ex. 1-1-10

Show[Graphics[{c[{0,0},{3,0},{3,1}],r[{3,1},{3,2},"2 Ω"],c[{3,2},{3,3}],u[{3,3},{3,4},"20 V"],c[{3,4},{3,5},{0,5},{0,4}],r[{0,4},{0,3},"6 Ω"],c[{0,3},{0,0}],c[{3,0},{6,0},{6,5},{5,5}],r[{5,5},{4,5},"6 Ω"],c[{4,5},{3,5}],c[{6,0},{9,0}],r[{9,0},{10,0},"18 Ω"],c[{10,0},{11,0},{11,5},{10,5}],u[{10,5},{9,5},"20 V"],c[{9,5},{8,5}],r[{8,5},{7,5},"2 Ω"],c[{7,5},{6,5}]}],ImageSize->{400,300},PlotRange->All,AspectRatio->Automatic]

Fig. ex. 1-1-11

Show[Graphics[{c[{0,0},{1,0}],u[{1,0},{2,0},"10 V"],c[{2,0},{3,0},{3,2}],r[{3,2},{3,3},"6 Ω"],c[{3,3},{3,5},{0,5},{0,3}],r[{0,3},{0,2},"2 Ω"],c[{0,2},{0,0}],c[{3,0},{8,0},{8,1}],r[{8,1},{8,2},"2 Ω"],c[{8,2},{8,3}],u[{8,3},{8,4},"10 V"],c[{8,4},{8,5},{7,5}],r[{7,5},{6,5},"12 Ω"],c[{6,5},{5,5}],u[{4,5},{5,5},"10 V"],c[{4,5},{3,5}],c[{8,0},{9,0}],u[{9,0},{10,0},"40 V"],c[{10,0},{11,0},{11,2}],r[{11,2},{11,3},"4 Ω"],c[{11,3},{11,5},{10,5}],r[{10,5},{9,5},"2 Ω"],c[{9,5},{8,5}]}],ImageSize->{400,300},PlotRange->All,AspectRatio->Automatic]

Fig. ex. 1-1-12

Show[Graphics[{c[{0,0},{9,0},{9,8},{5,8}],u[{5,8},{4,8},"5 V"],c[{4,8},{3,8}],r[{3,8},{2,8},"20 Ω"],c[{2,8},{0,8},{0,6}],u[{0,6},{0,5},"5 V"],c[{0,5},{0,4}],r[{0,4},{0,3},"20 Ω"],c[{0,3},{0,0}],c[{0,2},{2,2}],u[{2,2},{3,2},"5 V"],c[{3,2},{4,2}],r[{4,2},{5,2},"20 Ω"],c[{5,2},{6,2},{0,8}],c[{6,2},{6,4}],u[{6,4},{6,5},"5 V"],c[{6,5},{6,6}],r[{6,6},{6,7},"20 Ω"],c[{6,7},{6,8}]}],ImageSize->{400,300},PlotRange->All,AspectRatio->Automatic]

Fig. ex. 1-1-13

Show[Graphics[{c[{0,0},{2,0}],r[{2,0},{3,0},"15 Ω"],c[{3,0},{7,0}],r[{7,0},{8,0},"8 Ω"],c[{8,0},{10,0},{10,1}],u[{10,2},{10,1},"140 V"],c[{10,2},{10,3}],r[{10,3},{10,4},"3 Ω"],c[{10,4},{10,7},{0,7},{0,4}],u[{0,4},{0,3},"60 V"],c[{0,3},{0,2}],r[{0,2},{0,1},"3 Ω"],c[{0,1},{0,0}],c[{0,5},{1,5}],r[{1,5},{2,5},"8 Ω"],c[{2,5},{3,5}],u[{3,5},{4,5},"100 V"],c[{4,5},{7,5}],u[{8,5},{7,5},"76 V"],c[{8,5},{10,5}],c[{5,0},{5,2}],r[{5,2},{5,3},"10 Ω"],c[{5,3},{5,5}]}],ImageSize->{400,300},PlotRange->All,AspectRatio->Automatic]

Corrigé de l'exercice 1-1-7

Show[Graphics[{c[{0,0},{2,0}],r[{2,0},{3,0},"2 Ω"],c[{3,0},{5,0},{5,2}],r[{5,2},{5,3},"4 Ω"],c[{5,3},{5,5},{3,5},{0,5},{0,3}],u[{0,2},{0,3},"20 V"],c[{0,2},{0,0}],c[{5,0},{10,0},{10,2}],u[{10,2},{10,3},"7 V"],c[{10,3},{10,5},{8,5}],r[{8,5},{7,5},"5 Ω"],c[{7,5},{5,5}],Text["\!\(\*SubscriptBox[\(I\), \(1\)]\) ⟶",{2.5`,5},{0,1}],Text["\!\(\*SubscriptBox[\(I\), \(2\)]\) ⟶",{7.5`,0},{0,-1}],Text["\!\(\*SubscriptBox[\(I\), \(3\)]\) ⟶",{5,1.25`},{1,0},{0,-1}]}],ImageSize->{400,300},PlotRange->All,AspectRatio->Automatic]

Corrigé ex. 1-1-8

Show[Graphics[{c[{0,0},{1,0}],u[{2,0},{1,0},"4 V"],c[{2,0},{3,0}],r[{3,0},{4,0},"1 Ω"],c[{4,0},{5,0},{5,1}],r[{5,1},{5,2},"3 Ω"],c[{5,2},{5,4}],u[{5,4},{5,5},"6 V"],c[{5,5},{5,6}],r[{5,6},{5,7},"1 Ω"],c[{5,7},{5,8},{3,8}],r[{3,8},{2,8},"2 Ω"],c[{2,8},{0,8},{0,7}],r[{0,7},{0,6},"1 Ω"],c[{0,6},{0,5}],u[{0,4},{0,5},"10 V"],c[{0,4},{0,0}],c[{0,3},{2,3}],r[{2,3},{3,3},"4 Ω"],c[{3,3},{5,3}],Text["\!\(\*SubscriptBox[\(I\), \(1\)]\) ⟶",{1,8},{0,1}],Text["\!\(\*SubscriptBox[\(I\), \(2\)]\) ⟶",{1,3},{0,1}],Text["⟵ \!\(\*SubscriptBox[\(I\), \(3\)]\)",{0,1.5`},{1,0},{0,-1}]}],ImageSize->{300,400},PlotRange->All,AspectRatio->Automatic]

Corrigé ex. 1-1-9

Show[Graphics[{c[{0,0},{1,0}],u[{2,0},{1,0},"4 V"],c[{2,0},{3,0}],r[{3,0},{4,0},"1 Ω"],c[{4,0},{5,0},{5,1}],r[{5,1},{5,1.5`},"R"],c[{5,1.5`},{5,3.5`}],u[{5,3.5`},{5,4.5`},"20 V"],c[{5,4},{5,5},{3,5}],r[{3,5},{2,5},"4 Ω"],c[{2,5},{0,5},{0,0}],c[{5,0},{7,0}],r[{7,0},{8,0},"5 Ω"],c[{8,0},{10,0},{10,5},{9,5}],u[{9,5},{8,5},"6 V"],c[{8,5},{7,5}],r[{7,5},{6,5},"3 Ω"],c[{6,5},{5,5}],Text["3 A ⟶",{5,2.5`},{1,0},{0,1}],Text["\!\(\*SubscriptBox[\(I\), \(1\)]\) ⟶",{0,2.5`},{1,0},{0,1}],Text["\!\(\*SubscriptBox[\(I\), \(\(2\)\( \)\)]\)⟶",{10,2.5`},{-1,0},{0,-1}]}],ImageSize->{400,300},PlotRange->All,AspectRatio->Automatic]

Corrigé ex. 1-1-10

Show[Graphics[{c[{0,0},{3,0},{3,1}],r[{3,1},{3,2},"2 Ω"],c[{3,2},{3,3}],u[{3,3},{3,4},"20 V"],c[{3,4},{3,5},{0,5},{0,4}],r[{0,4},{0,3},"6 Ω"],c[{0,3},{0,0}],c[{3,0},{6,0},{6,5},{5,5}],r[{5,5},{4,5},"6 Ω"],c[{4,5},{3,5}],c[{6,0},{9,0}],r[{9,0},{10,0},"18 Ω"],c[{10,0},{11,0},{11,5},{10,5}],u[{10,5},{9,5},"20 V"],c[{9,5},{8,5}],r[{8,5},{7,5},"2 Ω"],c[{7,5},{6,5}],Text["\!\(\*SubscriptBox[\(I\), \(1\)]\) ⟶",{0,1.5`},{1,0},{0,-1}],Text["\!\(\*SubscriptBox[\(I\), \(\(2\)\( \)\)]\)⟶",{3,2.5`},{1,0},{0,1}],Text["⟵ \!\(\*SubscriptBox[\(I\), \(5\)]\)",{6,2.5`},{1,0},{0,1}],Text["\!\(\*SubscriptBox[\(I\), \(6\)]\) ⟶",{11,2.5`},{-1,0},{0,1}],Text["\!\(\*SubscriptBox[\(I\), \(3\)]\) ⟶",{4.5`,5.5`},{-1,0}],Text["⟵ \!\(\*SubscriptBox[\(I\), \(4\)]\)",{4.5`,0},{0,1}],Text["A",{3,5},{0,-1}],Text["B",{6,5},{0,-1}],Text["C",{3,0},{0,1}],Text["D",{6,0},{0,1}]}],ImageSize->{400,300},PlotRange->All,AspectRatio->Automatic]

Corrigé ex. 1-1-11

Show[Graphics[{c[{0,0},{1,0}],u[{1,0},{2,0},"10 V"],c[{2,0},{3,0},{3,2}],r[{3,2},{3,3},"6 Ω"],c[{3,3},{3,5},{0,5},{0,3}],r[{0,3},{0,2},"2 Ω"],c[{0,2},{0,0}],c[{3,0},{8,0},{8,1}],r[{8,1},{8,2},"2 Ω"],c[{8,2},{8,3}],u[{8,3},{8,4},"10 V"],c[{8,4},{8,5},{7,5}],r[{7,5},{6,5},"12 Ω"],c[{6,5},{5,5}],u[{4,5},{5,5},"10 V"],c[{4,5},{3,5}],c[{8,0},{9,0}],u[{9,0},{10,0},"40 V"],c[{10,0},{11,0},{11,2}],r[{11,2},{11,3},"4 Ω"],c[{11,3},{11,5},{10,5}],r[{10,5},{9,5},"2 Ω"],c[{9,5},{8,5}],Text["\!\(\*SubscriptBox[\(I\), \(1\)]\) ⟶",{0,1},{1,0},{0,-1}],Text["\!\(\*SubscriptBox[\(I\), \(\(2\)\(  \)\)]\)⟶",{3,1},{1,0},{0,1}],Text["\!\(\*SubscriptBox[\(I\), \(5\)]\) ⟶",{8,2.5`},{-1,0},{0,1}],Text["\!\(\*SubscriptBox[\(I\), \(6\)]\) ⟶",{11,1},{-1,0},{0,1}],Text["\!\(\*SubscriptBox[\(I\), \(3\)]\) ⟶",{5,5.5`},{-1,0}],Text["\!\(\*SubscriptBox[\(I\), \(\(4\)\( \)\)]\) ⟶",{5,0},{0,-1}],Text["A",{3,5},{0,-1}],Text["B",{8,5},{0,-1}],Text["C",{3,0},{0,1}],Text["D",{8,0},{0,1}]}],ImageSize->{400,300},PlotRange->All,AspectRatio->Automatic]

Corrigé ex. 1-1-12

Show[Graphics[{c[{0,0},{9,0},{9,8},{5,8}],u[{5,8},{4,8},"5 V"],c[{4,8},{3,8}],r[{3,8},{2,8},"20 Ω"],c[{2,8},{0,8},{0,6}],u[{0,6},{0,5},"5 V"],c[{0,5},{0,4}],r[{0,4},{0,3},"20 Ω"],c[{0,3},{0,0}],c[{0,2},{2,2}],u[{2,2},{3,2},"5 V"],c[{3,2},{4,2}],r[{4,2},{5,2},"20 Ω"],c[{5,2},{6,2},{0,8}],c[{6,2},{6,4}],u[{6,4},{6,5},"5 V"],c[{6,5},{6,6}],r[{6,6},{6,7},"20 Ω"],c[{6,7},{6,8}],Text["⟵ \!\(\*SubscriptBox[\(I\), \(1\)]\)",{1,8},{0,-1}],Text["⟵ \!\(\*SubscriptBox[\(I\), \(2\)]\)",{0,7},{1,0},{0,1}],Text["\!\(\*SubscriptBox[\(I\), \(6\)]\) ⟶",{4,0},{0,1}],Text["\!\(\*SubscriptBox[\(I\), \(3\)]\) ⟶",{2.5`,5},{0,-1},{1,-1}],Text["\!\(\*SubscriptBox[\(I\), \(4 \(\(\\\)\( \)\)\)]\) ⟶",{1,2},{0,-1}],Text["\!\(\*SubscriptBox[\(I\), \(5\)]\) ⟶",{6,3},{-1,0},{0,1}],Text["A",{0,8},{1,-1}],Text["B",{6,8},{0,-1}],Text["C",{6,2},{-1,1}],Text["D",{0,2},{1,0}]}],ImageSize->{400,300},PlotRange->All,AspectRatio->Automatic]

Corrigé ex. 1-1-13

Show[Graphics[{c[{0,0},{2,0}],r[{2,0},{3,0},"15 Ω"],c[{3,0},{7,0}],r[{7,0},{8,0},"8 Ω"],c[{8,0},{10,0},{10,1}],u[{10,2},{10,1},"140 V"],c[{10,2},{10,3}],r[{10,3},{10,4},"3 Ω"],c[{10,4},{10,7},{0,7},{0,4}],u[{0,4},{0,3},"60 V"],c[{0,3},{0,2}],r[{0,2},{0,1},"3 Ω"],c[{0,1},{0,0}],c[{0,5},{1,5}],r[{1,5},{2,5},"8 Ω"],c[{2,5},{3,5}],u[{3,5},{4,5},"100 V"],c[{4,5},{7,5}],u[{8,5},{7,5},"76 V"],c[{8,5},{10,5}],c[{5,0},{5,2}],r[{5,2},{5,3},"10 Ω"],c[{5,3},{5,5}],Text["⟵ \!\(\*SubscriptBox[\(I\), \(1\)]\)",{5,7},{0,-1}],Text["\!\(\*SubscriptBox[\(I\), \(2\)]\) ⟶",{2.5`,5},{0,-1}],Text["⟵ \!\(\*SubscriptBox[\(I\), \(6\)]\)",{9,0},{0,1}],Text["⟵ \!\(\*SubscriptBox[\(I\), \(3\)]\)",{6,5},{0,-1}],Text["\!\(\*SubscriptBox[\(I\), \(\(4\)\( \)\)]\) ⟶",{1,0},{0,1}],Text["\!\(\*SubscriptBox[\(I\), \(5\)]\) ⟶",{5,1},{-1,0},{0,1}],Text["A",{0,5},{1,0}],Text["B",{5,5},{0,-1}],Text["C",{10,5},{-1,0}],Text["D",{5,0},{0,1}]}],ImageSize->{400,300},PlotRange->All,AspectRatio->Automatic]