a = 10; b = 28; c = 8/3; e = 70;
modell = {x'[t] == a (y[t] - x[t]), y'[t] == 
            x[t] (b - z[t]) - y[t], z'[t] == 
            x[t] y[t] - c z[t], 
            x[
              0] == 3, y[0] == 3, 
          z[0] == 3};
loesung = NDSolve[modell, {x, y, z}, {t, 0, e}];
xx[t_] = Evaluate[x[t] /. loesung];
yy[t_] = Evaluate[y[t] /. loesung];
zz[t_] = Evaluate[z[t] /. loesung];
abb = 
        ParametricPlot3D[{xx[t][[1]], yy[t][[1]], zz[
                t][[1]]}, {t, 0, e}, 
          PlotRange -> All, 
PlotPoints -> 50000, 
          AxesLabel -> {"x", "y", "z"}, 
          ImageSize -> {400, 300}];
abb2 = 
        ParametricPlot[{xx[t][[1]], yy[t][[1]]}, {t, 0, e}, 
          PlotRange -> All, 
PlotPoints -> 50000, 
          AxesLabel -> {"x", "y"}, 
          ImageSize -> {400, 300}];