t1[x_]=x E^(-x);
m1[x_]=E^x;
omega1[x_]=0;
fak=1;
y:=fak x;
t2[x_]=x/Sin[x] E^(-x/Tan[x]);
m2[x_]=E^(x/Tan[x]) Cos[x];
omega2[x_]=x/t2[x];
abb:=ParametricPlot[{{t1[y],omega1[y]},{t2[x],omega2[x]}},{x,0,30},
AxesLabel->{"T","m"},PlotRange->{{a,e},{0,20}},PlotPoints->100,
ImageSize->{400,300}];
a=0;e=1.75;abb1=abb;