Не строятся графики, подскажите, где ошибки

restart;
E1 := 2.1*10^11; E3 := 9*10^9; S := 20*10^(-4); rho1 := 7874; rho3 := 1.15; n := 4; n2 := 2; l1 := 2*10^(-2); l2 := n*l1; V0 := 1; mu := 0; mu3 := 0; V1 := evalf(V0/(1+n), 1);
                             n := 4
                            n2 := 2
                            V0 := 1
                           V1 := 0.2
c1 := evalf(E1*S/l1, 1); m1 := evalf((1/3)*S*l1*rho1, 3);
                                    10
                          c1 := 2 10  
                          m1 := 0.105
c2 := evalf(E1*S/l2, 1); m2 := evalf((1/3)*S*l2*rho1, 3);
                                    9
                          c2 := 5 10 
                          m2 := 0.420
c3 := c1*E3/(n2*E1); m3 := n2*m1*rho3/rho1;
                                         8
                     c3 := 4.285714286 10 
                     m3 := 0.00003067056134
sys1 := m1*(diff(x[1](t), t, t)) = -c1*(x[1](t)-x[2](t))-mu*(diff(x[1](t), t)-(diff(x[2](t), t))), (m1*n+m1)*(diff(x[2](t), t, t)) = -c1*(x[2](t)-x[3](t))/n+c1*(x[1](t)-x[2](t))-mu*(diff(x[2](t), t)-(diff(x[3](t), t)))+mu*(diff(x[1](t), t)-(diff(x[2](t), t))), (n2*m1*rho3/rho1+n*m1)*(diff(x[3](t), t, t)) = -c1*E3*x3/(n2*E1)+c1*(x[2](t)-x[3](t))*mu3*(diff(x[3](t), t))/n+mu*(diff(x[2](t), t)-(diff(x[3](t), t)));
              /  2         \                                     
              | d          |        10               10          
sys1 := 0.105 |---- x[1](t)| = -2 10   x[1](t) + 2 10   x[2](t), 
              |   2        |                                     
              \ dt         /                                     
 
        /  2         \                            
        | d          |                  10        
  0.525 |---- x[2](t)| = -2.500000000 10   x[2](t)
        |   2        |                            
        \ dt         /                            
 
                   9               10          
   + 5.000000000 10  x[3](t) + 2 10   x[1](t), 
 
               /  2         \                      
               | d          |                  8   
  0.4200306706 |---- x[3](t)| = -4.285714286 10  x3
               |   2        |                      
               \ dt         /                      
fcns := {x[1](t), x[2](t), x[3](t)};
s := dsolve({sys1, x[1](0) = 0, x[2](0) = 0, x[3](0) = 0, (D(x[1]))(0) = 1, (D(x[2]))(0) = .2, (D(x[3]))(0) = 0}, fcns, numeric, output = listprocedure, maxfun = 100000);
[B]Warning, The use of global variables in numerical ODE problems is deprecated, and will be removed in a future release. Use the 'parameters' argument instead (see ?dsolve,numeric,parameters)[/B]
     [                                                      
s := [t = proc(t)  ...  end;, x[1](t) = proc(t)  ...  end;, 
     [                                                      
 
   d                                                              
  --- x[1](t) = proc(t)  ...  end;, x[2](t) = proc(t)  ...  end;, 
   dt                                                             
 
   d                                                              
  --- x[2](t) = proc(t)  ...  end;, x[3](t) = proc(t)  ...  end;, 
   dt                                                             
 
   d                              ]
  --- x[3](t) = proc(t)  ...  end;]
   dt                             ]
plots[odeplot](s, [t, x[3](t)*c3], t = 0 .. 0.1e-2, color = black, thickness = 2, numpoints = 200, thickness = 1, gridlines = true, labels = ['t', 'Fmax']);
[B]Warning, cannot evaluate the solution past the initial point, problem may be complex, initially singular or improperly set up[/B]