(* Large Power Transformers - s.307 
lepenka - http://www.obzor.cz/files/files/obzortesneni.pdf
 6 mm - 9.3 kV/mm zacina - chceme 70 % - 6.5 kV/mm *)
dp = (200000/(0.7*25000))
do = (200000/6500)-dp*(2.5/5)

poc = 84;
(Subscript[r, 1]) = 0;
(Subscript[r, 2]) = (Subscript[r, 1])+6;
(Subscript[r, 3]) = (Subscript[r, 2])+4;
(Subscript[r, 4]) = (Subscript[r, 3])+8;
(Subscript[r, 5]) = (Subscript[r, 4])+4;
(Subscript[r, 6]) = (Subscript[r, 5])+8;
(Subscript[r, 7]) = (Subscript[r, 6]) +4;
(Subscript[r, 8]) = (Subscript[r, 7])+8;
(Subscript[r, 9]) = (Subscript[r, 8])+4;
(Subscript[r, 10]) = (Subscript[r, 9])+6;
(Subscript[ϵ, 1]) = 2.5;
(Subscript[ϵ, 2]) = 5;
(Subscript[ϵ, 3]) = 2.5;
(Subscript[ϵ, 4]) = 5;
(Subscript[ϵ, 5]) = 2.5;
(Subscript[ϵ, 6]) = 5;
(Subscript[ϵ, 7]) = 2.5;
(Subscript[ϵ, 8])=5;
(Subscript[ϵ, 9])=2.5;
e[x_]:= (200000/((x+poc)(∑_(i=1)^9)(((Log[(((Subscript[r, i+1])+poc)/((Subscript[r, i])+poc))])/(Subscript[ϵ, i]))))) 

graf1 = Plot[((e[x])/(Subscript[ϵ, 1])), {x,(Subscript[r, 1]),(Subscript[r, 2])}, PlotStyle -> {Red, Dashed}];
graf2 = Plot[((e[x])/(Subscript[ϵ, 2])), {x,(Subscript[r, 2]),(Subscript[r, 3])}, PlotStyle -> {Blue, Dashed}];
graf3 = Plot[((e[x])/(Subscript[ϵ, 3])), {x,(Subscript[r, 3]),(Subscript[r, 4])}, PlotStyle -> {Red, Dashed}];
graf4 = Plot[((e[x])/(Subscript[ϵ, 4])), {x,(Subscript[r, 4]),(Subscript[r, 5])}, PlotStyle -> {Blue, Dashed}];
graf5 = Plot[((e[x])/(Subscript[ϵ, 5])), {x,(Subscript[r, 5]),(Subscript[r, 6])}, PlotStyle -> {Red, Dashed}];
graf6 = Plot[((e[x])/(Subscript[ϵ, 6])), {x,(Subscript[r, 6]),(Subscript[r, 7])}, PlotStyle -> {Blue, Dashed}];
graf7 = Plot[((e[x])/(Subscript[ϵ, 7])), {x,(Subscript[r, 7]),(Subscript[r, 8])}, PlotStyle -> {Red, Dashed}];
graf8 = Plot[((e[x])/(Subscript[ϵ, 8])), {x,(Subscript[r, 8]),(Subscript[r, 9])}, PlotStyle -> {Blue, Dashed}];
graf9 = Plot[((e[x])/(Subscript[ϵ, 9])), {x,(Subscript[r, 9]),(Subscript[r, 10])}, PlotStyle -> {Red, Dashed}];
Show[graf1,graf2,graf3,graf4,graf5,graf6,graf7,graf8, graf9, PlotRange-> {{(Subscript[r, 1]),(Subscript[r, 10])},{0,(10^4)}}, AxesOrigin -> {0,0}, GridLines -> Automatic, AxesLabel-> {"Vzdálenost od konce primárního vinutí (mm)","Intenzita elektrického pole (kV/mm)"}]