It is a sum over the different roots. Perhaps there is an easier way, but here is one way to do it.

Download simplify.mw

Your code contains the line

S2 := t -> piecewise(xn(t) <= xa and 0 < zn(t), -S1(t)*exp(mu1*alpha2(t)), 0)

which suggests that the drop-off might be when xn(t) or zn(t) becomes zero. Plotting xn(t) or equivalently, Xn, shows that Xn goes through zero at that point. So then fsolve(Xn, 0.2..0.9) returns the drop-off point of 0.5006805969.

min_problem.mw

Use Pi and not pi.

Download Pi.mw

A bit less efficient, perhaps.

[Edit: my interpretation of the OPs question was that different columns were to be scaled differently, but if rows were intended, then premultiplication by the diagonal matrix works.]

Download div.mw

If I understand correctly what you want, a (Tabulated) DataFrame is one way to display this.

stiffnessmatrixcal.mw

Here's one way to do it, using custom tickmarks.

Download dualaxes.mw

Suggest you upload your worksheet next time (green up arrow in the editor).

in
for n to N do

subs([seq(x(i) = x[c][i], i = 0 .. n),

the i in x[c][i] must be x[c][i+1] since list indices start at 1. Same for further on in the line. After fixing this there is another error arising because you have used "x" as a simple variable in the differentiation and other places as well as with x[c][i] - you need different names for these. 

There are various technical issues here that I'm going to ignore. What answer were you expecting? What do you want to happen for negative x? Is this a signal that is zero for x<0. If so, then you can just use laplace with s=I*omega

eval(laplace(f(x),x,s),s=I*omega);

gives
 1/2*Pi^(1/2)/(I*omega)^(3/2)

Well, this finds any of the polynomials. But what type of answer exactly is expected here?

Download polynomial.mw

use sol:-value(r=0..10,t=0..20) to get the values out. [Edit - not correct - see correct answer below] (It is helpful if you load your actual worksheet using the big green up-arrow in the Mapleprimes editor.)

The error is because C1 is zero. My recollection is that the calculation of the t-value involves dividing by the standard error, which is zero. Then the absolute value of infinity leads to the complex infinity.

You should scale your dependent data down to values within a few orders of magnitude of 1, say by dividing it by 10^7. Then your parameters will be 10^7 times higher and more reasonable. You are likely running into numerical accuracy issues because your problem is not better scaled. Actually you could use stronger scaling for the last column.

Here is a scaled version that works:

toycode3.mw

with(GraphTheory);
G := Multigraph(2, [{1, 2}, {1, 2}]);
DrawGraph(G);

The 2 by the edge in DrawGraph shows there are two edges between vertices 1 and 2.

You can have several worksheets open with the same Maple engine - See Tools->Options->General tab, and under Mathematical Engine choose "Share one engine among all documents".

Alternatively you can save variables with the save command, and then use the read command to retrieve them.

Download tobase.mw

In general there are many roots. An implicitplot will show curves where there are solutions. The algcurves packsge has more routines to analyse such curves.

Download bivariate.mw