Needs["Graphics`ImplicitPlot`"];
c=10;
a=2;
t0=0.1;
abb=ImplicitPlot[c (t-t0) == Log[x/a] E^(x/a),{t,0,10},{x,0,10},ImageSize->{400,300}];