t[x_]=x/Sin[x] E^(-x/Tan[x]);
m[x_]=E^(x/Tan[x]) Cos[x];
omega[x_]=x/t[x];
a=0;e=20;h=5;
abb1=ParametricPlot[{x,omega[x]},{x,a,e},
AxesLabel->{"x","omega"},PlotRange->{{a,e},{-h,h}},DisplayFunction->Identity];
abb2=ParametricPlot[{x,m[x]},{x,a,e},
AxesLabel->{"x","m"},PlotRange->{{a,e},{-h,h}},DisplayFunction->Identity];
abb3=ParametricPlot[{x,t[x]},{x,a,e},
AxesLabel->{"x","T"},PlotRange->{{a,e},{-h,h}},DisplayFunction->Identity];
gra=GraphicsArray[{{abb1,abb2},{abb3}},ImageSize->{400,300},DisplayFunction->$DisplayFunction];
bild=Show[gra];