R=40;r=15; (*Tokamak parameters*)
Tra=15;Trb=100;Trc=17; (*Transformer core*)
Clear[Torus,Transformator];
SetDirectory[ToFileName[Extract["FileName"/.NotebookInformation[EvaluationNotebook[]],{1},FrontEnd`FileName]]];
Torus[]:=(
x[t_]:=(R+r*Cos[s])*Cos[t];
y[t_]:=(R+r*Cos[s])*Sin[t];
z[t_]:=r*Sin[s];
Show[ParametricPlot3D[{x[t],y[t],z[t]},{s,0,2*Pi},{t,0,2*Pi},PlotStyle->Specularity[White,50],Mesh->None,PlotTheme->{"Classic","ClassicLights"}]]);
Transformator[]:=(Show[
Graphics3D[Cuboid[{Tra,Trb,Trc},{Tra,Trb,Trc+2*Tra}]],Graphics3D[Cuboid[{Tra,Trb,Trc},{Tra,Trb,Trc-2*Tra}]],
Graphics3D[Cuboid[{Tra,Tra,Trc},{Tra,Tra,Trc}]],
Graphics3D[Cuboid[{Tra,R-1.2*Tra,Trc},{Tra,Trb,Trc}]],
Graphics3D[Cuboid[{Tra,R+1.2*Tra,Trc},{Tra,Trb,Trc}]]
]);
RogowskiCoil[x0_,y0_,z0_,A_,a_,h_,n_]:=(
x[t_]:=x0+(A+a*Cos[n t])Cos[t];
z[t_]:=z0+(A+a*Cos[n t])Sin[t];
y[t_]:=y0+h*t+a*Sin[n t];
Show[ParametricPlot3D[{x[t],y[t],z[t]},{t,0,2 Pi},PlotTheme->{"Classic","ClassicLights"}]]);

Coil[x0_,y0_,z0_,A_,a_,Phi_]:=(
x[t_]:=x0+(A+a*Cos[t])*Cos[s];
y[t_]:=z0+(A+a*Cos[t]) *Sin[s];
z[t_]:=y0+a*Sin[t];
Show[ParametricPlot3D[{x[t],y[t],z[t]},{t,0,2 Pi},{s,Phi,Phi*1.1},PlotPoints->{10,10},MaxRecursion->0,PlotTheme->{"Classic","ClassicLights"}]]);
Loop[A_,z_,Phi1_,Phi2_]:=(Show[ParametricPlot3D[{A Sin[t],A Cos[t],z},{t,Phi1,Phi2},PlotTheme->{"Classic","ClassicLights"}]]);
photocelll[x0_,y0_,z0_,a_]:=(Show[
ParametricPlot3D[{x0,t,z0},{t,y0-2 a,y0*0.99},PlotTheme->{"Classic","ClassicLights"}],
ParametricPlot3D[{x0,t,z0},{t,y0*1.01,y0+2 a},PlotTheme->{"Classic","ClassicLights"}],
Graphics3D[Line[{{x0,y0-1.2a,z0+1.2a},{x0,y0-a*0.8,z0+a*0.8}}]],
Graphics3D[Line[{{x0,y0-1.2a+0.3,z0+0.9a},{x0,y0-a*0.8,z0+a*0.8}}]],
Graphics3D[Line[{{x0,y0-1.2a+0.9,z0+1.1a},{x0,y0-a*0.8,z0+a*0.8}}]],
Graphics3D[Line[{{x0,y0-1.2a-1,z0+1.2a},{x0,y0-a*0.8-1,z0+a*0.8}}]],
Graphics3D[Line[{{x0,y0-1.2a-0.7,z0+0.9a},{x0,y0-a*0.8-1,z0+a*0.8}}]],
Graphics3D[Line[{{x0,y0-1.2a-0.1,z0+1.1a},{x0,y0-a*0.8-1,z0+a*0.8}}]],
ParametricPlot3D[{x0,y0+a Cos[t],z0+a Sin[t]},{t,0,2 Pi},PlotTheme->{"Classic","ClassicLights"}],ParametricPlot3D[{x0,y0*0.99+s,t},{t,z0-a/2,z0+a/2},{s,-0.1,0.1},PlotTheme->{"Classic","ClassicLights"}],
ParametricPlot3D[{x0,y0*1.01,t},{t,z0-a/1.2,z0+a/1.2}],PlotRange->All,PlotTheme->{"Classic","ClassicLights"}]);

15

FS=20;
DAS=Show[
Torus[],
RogowskiCoil[R,0,0,r*1.1,1,0,50],
Coil[0,0,0,R,r*1.2,Pi/4],(*Bt coil*)
Coil[0,0,0,R,r*1.2,Pi/4*1.5], (*Bt coil*)
Coil[0,r*1.1,0,R,r*0.1,Pi/4*1.25], (*Magnetic field measurement coil*)
Loop[R,r,0,2Pi*0.97], (*Uloop*)
photocelll[0,(R+r)*1.2,0,r/4],
Graphics3D[Text[Style["Plasma",FontSize->FS],{-R,-R,r*1.1}]], 
Graphics3D[Text[Style["Rogowski\ncoil ((Subscript[I, tot]))",FontSize->FS],{R*1.3,-R*0.5,-r*1.5}]],
Graphics3D[Text[Style["(Subscript[U, l])",FontSize->FS],{0,R*1.1,r*1.2}]],
Graphics3D[Text[Style["Photocell\nwith (Subscript[H, α]) filter",FontSize->FS],{0,(R+r)*1.3,r/1}]],
Graphics3D[Text[Style["(Subscript[B, t]) field coils\n& small \!\(\*SubscriptBox[\(B\), \(\(t\)\(\\ \)\)]\)measurement coil ",FontSize->FS],{R*0.8,R*1.4,-r*1.5}]],
PlotRange->All,ViewPoint->{Pi,Pi/2,2},Axes->False, Boxed->False]

Export["das.png",Show[DAS,Axes->False],"png",ImageSize->600,ImageResolution->300];
Export["das.jpg",Show[DAS,Axes->False],"jpg",ImageSize->600,ImageResolution->300];
Export["das.pdf",Show[DAS,Axes->False],"pdf",ImageSize->600,ImageResolution->300];