x[s_, t_] := (E^s)*t
y[s_, t_] := 0
u[s_, t_] := (E^(2  s))*
        (t^2)

    
p0 = {RGBColor[1, 0, 0.2], 
          Thickness[0.01]};
p1 = {RGBColor[0, 1, 0.3], 
          Thickness[0.01]};
p2 = {RGBColor[0.9, 0.6, 0], 
          Thickness[0.01]};
p3 = {RGBColor[0.2, 0.1, 0.6], 
          Thickness[0.01]};
p4 = {RGBColor[0, 0.3, 1], 
          Thickness[0.01]};

     
s0 = {x[0, t], y[0, t], u[0, t], p0};
s1 = {x[0.2, t], y[0.2, t], u[0.2, t], 
          p1};
s2 = {x[0.4, t], y[0.4, t], u[0.4, t], 
          p2};
s3 = {x[0.6, t], y[0.6, t], u[0.6, t], 
          p3};
s4 = {x[0.8, t], y[0.8, t], u[0.8, t], 
          p4};

    
t0 = {x[s, 0], y[s, 0], u[s, 0], p0};
t1 = {x[s, 0.5], y[s, 0.5], u[s, 0.5], 
          p1};
t2 = {x[s, 1.5], y[s, 1.5], u[s, 1.5], 
          p2};
t3 = {x[s, -0.5], y[s, -0.5], u[s, -0.5], 
          p3};
t4 = {x[s, -1.5], y[s, -1.5], u[s, -1.5], 
          p4};

    
As0[T_] := 
        ParametricPlot3D[s0, {t, -3, T - 3}, AspectRatio -> 1, 
          DisplayFunction -> Identity];
As1[T_] := 
        ParametricPlot3D[s1, {t, -3, T - 24}, AspectRatio -> 1, 
          DisplayFunction -> Identity];
As2[T_] := 
        ParametricPlot3D[s2, {t, -3, T - 30}, AspectRatio -> 1, 
          DisplayFunction -> Identity];
As3[T_] := 
        ParametricPlot3D[s3, {t, -3, T - 36}, AspectRatio -> 1, 
          DisplayFunction -> Identity];
As4[T_] := 
        ParametricPlot3D[s4, {t, -3, T - 42}, AspectRatio -> 1, 
          DisplayFunction -> Identity];

    
At0[T_] := 
        ParametricPlot3D[t0, {s, -0.4, T - 6.4}, AspectRatio -> 1, 
          DisplayFunction -> Identity];
At1[T_] := 
        ParametricPlot3D[t1, {s, -0.4, T - 9.4}, AspectRatio -> 1, 
          DisplayFunction -> Identity];
At2[T_] := 
        ParametricPlot3D[t2, {s, -0.4, T - 12.4}, AspectRatio -> 1, 
          DisplayFunction -> Identity];
At3[T_] := 
        ParametricPlot3D[t3, {s, -0.4, T - 15.4}, AspectRatio -> 1, 
          DisplayFunction -> Identity];
At4[T_] := 
        ParametricPlot3D[t4, {s, -0.4, T - 18.4}, AspectRatio -> 1, 
          DisplayFunction -> Identity];

    
D0 := 
      Show[As0[T], AspectRatio -> 1, 
        DisplayFunction -> Identity]
D1 := 
      Show[As0[T], At0[T], AspectRatio -> 1, 
        DisplayFunction -> Identity]
D2 := 
      Show[As0[T], At0[T], At1[T], AspectRatio -> 1, 
        DisplayFunction -> Identity]
D3 := 
      Show[As0[T], At0[T], At1[T], At2[T], AspectRatio -> 1, 
        DisplayFunction -> Identity]
D4 := 
      Show[As0[T], At0[T], At1[T], At2[T], At3[T], AspectRatio -> 1, 
        DisplayFunction -> Identity]
D5 := 
      Show[As0[T], At0[T], At1[T], At2[T], At3[T], At4[T], 
        AspectRatio -> 1, 
        DisplayFunction -> Identity]
D6 := 
      Show[As0[T], At0[T], At1[T], At2[T], At3[T], At4[T], As1[T], 
        AspectRatio -> 1, 
        DisplayFunction -> Identity]
D7 := 
      Show[As0[T], At0[T], At1[T], At2[T], At3[T], At4[T], As1[T], As2[T], 
        AspectRatio -> 1, 
        DisplayFunction -> Identity]
D8 := 
      Show[As0[T], At0[T], At1[T], At2[T], At3[T], At4[T], As1[T], As2[T], 
        As3[T], DisplayFunction -> Identity]
D9 := 
      Show[As0[T], At0[T], At1[T], At2[T], At3[T], At4[T], As1[T], As2[T], 
        As3[T], As4[T], AspectRatio -> 1, 
        DisplayFunction -> Identity]

    
B0 := 
      Show[D0, AspectRatio -> 1, 
        DisplayFunction -> Identity]
B1 := 
      Show[D0, D1, AspectRatio -> 1, 
        DisplayFunction -> Identity]
B2 := 
      Show[D0, D1, D2, AspectRatio -> 1, 
        DisplayFunction -> Identity]
B3 := 
      Show[D0, D1, D2, D3, AspectRatio -> 1, 
        DisplayFunction -> Identity]
B4 := 
      Show[D0, D1, D2, D3, D4, AspectRatio -> 1, 
        DisplayFunction -> Identity]
B5 := 
      Show[D0, D1, D2, D3, D4, D5, AspectRatio -> 1, 
        DisplayFunction -> Identity]
B6 := 
      Show[D0, D1, D2, D3, D4, D5, D6, AspectRatio -> 1, 
        DisplayFunction -> Identity]
B7 := 
      Show[D0, D1, D2, D3, D4, D5, D6, D7, AspectRatio -> 1, 
        DisplayFunction -> Identity]
B8 := 
      Show[D0, D1, D2, D3, D4, D5, D6, D7, D8, AspectRatio -> 1, 
        DisplayFunction -> Identity]
B9 := 
      Show[D0, D1, D2, D3, D4, D5, D6, D7, D8, D9, AspectRatio -> 1, 
        DisplayFunction -> 
          Identity]


    
CA := 
      Which[T ≤ 6, B0, 6 < T ≤ 9, B1, 
        9 < T ≤ 12, B2, 12 < T ≤ 15, B3, 
        15 < T ≤ 18, B4, 18 < T ≤ 21, B5, 
        21 < T ≤ 27, B6, 27 < T ≤ 33, B7, 
        33 < T ≤ 39, B8, 39 < T ≤ 45, 
        B9]

    
CC = 
        Table[Show[CA, DisplayFunction -> $DisplayFunction, 
            PlotRange -> {{-3, 3}, {-3, 3}, {-5, 10}}], {T, 
            0.01, 45, 
            0.5}];

T = 45;
G1 = 
      Show[CA, DisplayFunction -> $DisplayFunction, 
        PlotRange -> {{-3, 3}, {-3, 3}, {-5, 
              10}}]
G2 = 
      Plot3D[(x^2) + (y^2), {x, -5, 5}, {y, -1, 10}, 
        PlotRange -> {{-3, 3}, {-3, 3}, {0, 
              15}}]
Show[G1, G2, 
      PlotRange -> {{-3, 3}, {-3, 3}, {-5, 10}}, 
      DisplayFunction -> $DisplayFunction]

Plot3D[(x^2) + (y^2), {x, -5, 5}, {y, -5, 5}, 
      PlotRange -> {{-5, 5}, {-5, 5}, {0, 50}}]

Export["Qusai-linear(\:4e0a\:8ab2\:4f8b\:984c).avi", CC]