Items tagged with differential differential Tagged Items Feed

i want a scheme of fractional differential equation so that i solve my questions and make a code of it.

please provide me the scheme

what do i call a homogenous  differential equation that is the linear sum of "N" differential of unique classification? ie, the implicit construction of a third homogenous differential by the summation of two known, is it the span of the solution sets of the first two or union? i prefer span because well that leaves the door open for multivariate differential basis definitions, non commutative groups like sets of square matrices and all of the other extra arousing subject content.

Hi,

I am trying to do a numerical approximate method 'method of multiple scales'. And in doing so I am getting following equation.

restart

junk := -n*v_SDD*x[1](T[0], T[1], T[2])+x[1](T[0], T[1], T[2])+(D[1, 1](x[1]))(T[0], T[1], T[2])+2*kappa*(D[1](x[1]))(T[0], T[1], T[2])+n*v_SDD*x[1](T[0]-tau_1, T[1], T[2])-psi*n*x[1](T[0]-tau_1, T[1], T[2])+psi*n*x[1](T[0], T[1], T[2])

-n*v_SDD*x[1](T[0], T[1], T[2])+x[1](T[0], T[1], T[2])+(D[1, 1](x[1]))(T[0], T[1], T[2])+2*kappa*(D[1](x[1]))(T[0], T[1], T[2])+n*v_SDD*x[1](T[0]-tau_1, T[1], T[2])-psi*n*x[1](T[0]-tau_1, T[1], T[2])+psi*n*x[1](T[0], T[1], T[2])

(1)

evalf(subs(x[1](T[0], T[1], T[2]) = R(T[1], T[2])*sin(omega*T[0]+phi(T[1], T[2])), %))

-1.*n*v_SDD*R(T[1], T[2])*sin(omega*T[0]+phi(T[1], T[2]))+R(T[1], T[2])*sin(omega*T[0]+phi(T[1], T[2]))+(D[1, 1](x[1]))(T[0], T[1], T[2])+2.*kappa*(D[1](x[1]))(T[0], T[1], T[2])+n*v_SDD*x[1](T[0]-tau_1, T[1], T[2])-1.*psi*n*x[1](T[0]-tau_1, T[1], T[2])+psi*n*R(T[1], T[2])*sin(omega*T[0]+phi(T[1], T[2]))

(2)

``


Download question3.mw

Now I need to substitute x_1(T0,T1,T2)=R(T1,T2)sin(omega*T0+phi(T1,T2)) in the expression and evaluate it.  But on substituting, it is not solving for the 'D' operator. In a similar line if I will have a differential term like

D1(x1)(T0-tau_1,T1,T2) and I have to substitute x1(T0-tau_1,T1,T2) then how can i do it?

Please help me regarding it.

Thanks and regards

Sunit

hi...please help me for solve this differential equation

thanks

warning.mw

restart; newsys := {-299.982222222220*(diff(G(x), x))-1.15384615384615*(diff(w(x), x, x, x, x))-299.999999999998*(diff(w(x), x, x))+0.128205128205129e-2*(diff(G(x), x, x, x)) = -omega2*(diff(G(x), x)), (diff(w(x), x, x))*(1.00895521199133*cos(.133333333333334*x)-1)-.134527361598845*(diff(w(x), x))*sin(.133333333333334*x)+.333333333333333*(diff(w(x), x, x))+.333333333333333*(diff(G(x), x))-0.128205128205129e-2*(diff(w(x), x, x, x, x))+0.128205128205129e-2*(diff(G(x), x, x, x)) = -omega2*w(x)}

bcs := {.333333333333333*(D(w))(1)+.333333333333333*G(1)-0.128205128205129e-2*((D@@3)(w))(1)+0.128205128205129e-2*((D@@2)(G))(1) = 0, G(0) = 0, w(0) = 0, (D(G))(1) = 0, (D(w))(0) = 0, ((D@@2)(w))(1) = 0}:

Typesetting:-mrow(Typesetting:-mi("extra_bcs", italic = "true", mathvariant = "italic"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("≔", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("seq", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("seq", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("D", italic = "false", mathvariant = "normal"), Typesetting:-mo("@@", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("i", italic = "true", mathvariant = "italic")), mathvariant = "normal"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("G", italic = "true", mathvariant = "italic")), mathvariant = "normal")), mathvariant = "normal"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("a", italic = "true", mathvariant = "italic")), mathvariant = "normal"), Typesetting:-mo(",", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("i", italic = "true", mathvariant = "italic"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("=", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mn("0", mathvariant = "normal"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("..", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2222222em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mn("2", mathvariant = "normal")), mathvariant = "normal"), Typesetting:-mo(",", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("a", italic = "true", mathvariant = "italic"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("=", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mn("0", mathvariant = "normal"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("..", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2222222em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mn("1", mathvariant = "normal")), mathvariant = "normal"), Typesetting:-mo(",", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("seq", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("seq", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("D", italic = "false", mathvariant = "normal"), Typesetting:-mo("@@", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("i", italic = "true", mathvariant = "italic")), mathvariant = "normal"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("w", italic = "true", mathvariant = "italic")), mathvariant = "normal"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("a", italic = "true", mathvariant = "italic")), mathvariant = "normal"), Typesetting:-mo(",", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("i", italic = "true", mathvariant = "italic"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("=", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mn("0", mathvariant = "normal"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("..", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2222222em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mn("3", mathvariant = "normal")), mathvariant = "normal"), Typesetting:-mo(",", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("a", italic = "true", mathvariant = "italic"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("=", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mn("0", mathvariant = "normal"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("..", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2222222em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mn("1", mathvariant = "normal")), mathvariant = "normal")), mathvariant = "normal", open = "{", close = "}"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("minus", bold = "true", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("lhs", italic = "true", mathvariant = "italic"), Typesetting:-mo("~", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.1111111em", rspace = "0.1111111em"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("bcs", italic = "true", mathvariant = "italic")), mathvariant = "normal"), Typesetting:-mo(":", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("newsys2", italic = "true", mathvariant = "italic"), Typesetting:-mo("≔", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mi("subs", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("omega", italic = "false", mathvariant = "normal"), Typesetting:-mo("^", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.1111111em", rspace = "0.1111111em"), Typesetting:-mn("2", mathvariant = "normal"), Typesetting:-mo("=", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mi("omega2", italic = "true", mathvariant = "italic"), Typesetting:-mo("⋅", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-msup(Typesetting:-mn("10", mathvariant = "normal"), Typesetting:-mrow(Typesetting:-mn("0", mathvariant = "normal")), superscriptshift = "0"), Typesetting:-mi(""), Typesetting:-mo(",", foreground = "[255,0,0]", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mi("newsys", italic = "true", mathvariant = "italic")), mathvariant = "normal"), Typesetting:-mo(";", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.2777778em"), Typesetting:-mo("for", bold = "true", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("b", italic = "true", mathvariant = "italic"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("in", bold = "true", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("extra_bcs", italic = "true", mathvariant = "italic"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("do", bold = "true", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "newline"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("try", bold = "true", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(":", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("print", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("b", italic = "true", mathvariant = "italic")), mathvariant = "normal"), Typesetting:-mo(":", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "newline"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "auto"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("res", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("b", italic = "true", mathvariant = "italic")), mathvariant = "normal", open = "[", close = "]"), Typesetting:-mo("≔", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mi("dsolve", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("newsys2", italic = "true", mathvariant = "italic"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("union", bold = "true", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("b", italic = "true", mathvariant = "italic"), Typesetting:-mo("=", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mn(".1", mathvariant = "normal")), mathvariant = "normal", open = "{", close = "}"), Typesetting:-mo(",", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mi("numeric", italic = "true", mathvariant = "italic"), Typesetting:-mo(",", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mi("initmesh", italic = "true", mathvariant = "italic"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("=", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mn("2024", mathvariant = "normal"), Typesetting:-mo(",", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("output", italic = "true", mathvariant = "italic"), Typesetting:-mo("=", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mi("listprocedure", italic = "true", mathvariant = "italic"), Typesetting:-mo(",", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mi("approxsoln", italic = "true", mathvariant = "italic"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("=", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("ω2", italic = "true", mathvariant = "italic"), Typesetting:-mo("=", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mn(".0001", mathvariant = "normal"), Typesetting:-mo(",", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mrow(Typesetting:-mi("G", italic = "true", mathvariant = "italic"), Typesetting:-mo("⁡", family = "Times New Roman", size = "12", bold = "false", italic = "false", underline = "false", subscript = "false", superscript = "false", foreground = "[0,0,0]", background = "[255,255,255]", opaque = "false", executable = "false", readonly = "false", composed = "false", converted = "false", imselected = "false", placeholder = "false", `selection-placeholder` = "false", mathvariant = "normal", fence = "unset", separator = "unset", stretchy = "unset", symmetric = "unset", largeop = "unset", movablelimits = "unset", accent = "unset", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("x", italic = "true", mathvariant = "italic")), mathvariant = "normal")), Typesetting:-mo("=", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mrow(Typesetting:-mo("&uminus0;", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2222222em", rspace = "0.2222222em"), Typesetting:-mrow(Typesetting:-msup(Typesetting:-mi("x", italic = "true", mathvariant = "italic"), Typesetting:-mn("3", mathvariant = "normal"), superscriptshift = "0")), Typesetting:-mo("+", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2222222em", rspace = "0.2222222em"), Typesetting:-mrow(Typesetting:-msup(Typesetting:-mi("x", italic = "true", mathvariant = "italic"), Typesetting:-mn("2", mathvariant = "normal"), superscriptshift = "0")), Typesetting:-mo("+", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2222222em", rspace = "0.2222222em"), Typesetting:-mi("x", italic = "true", mathvariant = "italic")), Typesetting:-mo(",", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mrow(Typesetting:-mi("w", italic = "true", mathvariant = "italic"), Typesetting:-mo("⁡", family = "Times New Roman", size = "12", bold = "false", italic = "false", underline = "false", subscript = "false", superscript = "false", foreground = "[0,0,0]", background = "[255,255,255]", opaque = "false", executable = "false", readonly = "false", composed = "false", converted = "false", imselected = "false", placeholder = "false", `selection-placeholder` = "false", mathvariant = "normal", fence = "unset", separator = "unset", stretchy = "unset", symmetric = "unset", largeop = "unset", movablelimits = "unset", accent = "unset", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("x", italic = "true", mathvariant = "italic")), mathvariant = "normal")), Typesetting:-mo("=", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mrow(Typesetting:-mi(""), Typesetting:-mrow(Typesetting:-mfrac(Typesetting:-mn("11068376068376057", mathvariant = "normal"), Typesetting:-mn("170940170940172", mathvariant = "normal"), linethickness = "1", denomalign = "center", numalign = "center", bevelled = "false"), Typesetting:-mo("⁢", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mrow(Typesetting:-msup(Typesetting:-mi("x", italic = "true", mathvariant = "italic"), Typesetting:-mn("4", mathvariant = "normal"), superscriptshift = "0")), Typesetting:-mi("")), Typesetting:-mo("−", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2222222em", rspace = "0.2222222em"), Typesetting:-mrow(Typesetting:-mfrac(Typesetting:-mn("22179487179487157", mathvariant = "normal"), Typesetting:-mn("128205128205129", mathvariant = "normal"), linethickness = "1", denomalign = "center", numalign = "center", bevelled = "false"), Typesetting:-mo("⁢", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mrow(Typesetting:-msup(Typesetting:-mi("x", italic = "true", mathvariant = "italic"), Typesetting:-mn("3", mathvariant = "normal"), superscriptshift = "0")), Typesetting:-mi("")), Typesetting:-mo("+", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2222222em", rspace = "0.2222222em"), Typesetting:-mrow(Typesetting:-mfrac(Typesetting:-mn("11153846153846143", mathvariant = "normal"), Typesetting:-mn("85470085470086", mathvariant = "normal"), linethickness = "1", denomalign = "center", numalign = "center", bevelled = "false"), Typesetting:-mo("⁢", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mrow(Typesetting:-msup(Typesetting:-mi("x", italic = "true", mathvariant = "italic"), Typesetting:-mn("2", mathvariant = "normal"), superscriptshift = "0")), Typesetting:-mi("")), Typesetting:-mi("")), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em")), mathvariant = "normal", open = "[", close = "]"), Typesetting:-mo(",", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mi("abserr", italic = "true", mathvariant = "italic"), Typesetting:-mo("=", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mn("1e−5", mathvariant = "normal")), mathvariant = "normal"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("catch", bold = "true", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(":", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "newline"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "auto"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("print", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("lasterror", italic = "true", mathvariant = "italic")), mathvariant = "normal"), Typesetting:-mi(""), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "newline"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "auto"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("end", bold = "true", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("try", bold = "true", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "newline"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("end", bold = "true", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("do", bold = "true", mathvariant = "bold", fontweight = "bold", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo(";", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.2777778em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("indx", italic = "true", mathvariant = "italic"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mo("≔", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("indices", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("res", italic = "true", mathvariant = "italic"), Typesetting:-mo(",", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("nolist", italic = "true", mathvariant = "italic")), mathvariant = "normal"), Typesetting:-mo(":", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mi("nops", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("indx", italic = "true", mathvariant = "italic")), mathvariant = "normal", open = "[", close = "]")), mathvariant = "normal"), Typesetting:-mo(":", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "newline"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "auto"), Typesetting:-mi("res", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("indx", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("i", italic = "true", mathvariant = "italic")), mathvariant = "normal", open = "[", close = "]")), mathvariant = "normal", open = "[", close = "]"), Typesetting:-mo(":", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "newline"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "auto"), Typesetting:-mi("seq", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("subs", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("res", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("indx", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("i", italic = "true", mathvariant = "italic")), mathvariant = "normal", open = "[", close = "]")), mathvariant = "normal", open = "[", close = "]"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mn("1", mathvariant = "normal")), mathvariant = "normal"), Typesetting:-mo(",", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mi("omega2", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mn("1", mathvariant = "normal")), mathvariant = "normal")), mathvariant = "normal"), Typesetting:-mo(",", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.3333333em"), Typesetting:-mi("i", italic = "true", mathvariant = "italic"), Typesetting:-mo("=", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mn("1", mathvariant = "normal"), Typesetting:-mo("..", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2222222em", rspace = "0.0em"), Typesetting:-mi("nops", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("indx", italic = "true", mathvariant = "italic")), mathvariant = "normal", open = "[", close = "]")), mathvariant = "normal")), mathvariant = "normal"), Typesetting:-mo(";", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.2777778em"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("RES", italic = "true", mathvariant = "italic"), Typesetting:-mo("≔", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mi("res", italic = "true", mathvariant = "italic"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("D", italic = "false", mathvariant = "normal"), Typesetting:-mo("@@", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mn("2", mathvariant = "normal")), mathvariant = "normal"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("w", italic = "true", mathvariant = "italic")), mathvariant = "normal"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mn("0", mathvariant = "normal")), mathvariant = "normal")), mathvariant = "normal", open = "[", close = "]"), Typesetting:-mo(";", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.2777778em"))

res[((D@@2)(w))(0)]

(1)

``


Download warning.mw

In my study, I often need to verify that two operator is symmetric i.e. [P,Q]=PQ-QP=0, where A and D are operator polynomial such like  D2+4u+uxD-1 multiply with D3+uD+ux,where D is differential operator.

I tried to use the Ore_package which can easily deal with the operator polynomial without integral(i.e. D-1 term), so in my case , how to deal with operator with both differential and integral?

Trying to solve this IVP of the SHO  (second order linear costant-coefficient).

Everything works fine until I come to the solving even after using dsolve with initial conditions (even using the differential operator D in the initial conditions)  , the answer still contains _C1, an unknown constant.

The full worksheet is below.  The code for dsolve is:

sol3 := dsolve(subs(par1, {de1, D(x)*0 = 0, x(0) = 1}), x(t));

 

Hoping you can help with a solution.

 

 

 

 

Hi,
The latest update to the differential equations Maple libraries (this week, can be downloaded from the Maplesoft R&D webpage for Differential Equations and Mathematical functions) includes new functionality in pdsolve, regarding whether the solution for a PDE or PDE system is or not a general solution.

In brief, a general solution of a PDE in 1 unknown, that has differential order N, and where the unknown depends on M independent variables, involves N arbitrary functions of M-1 arguments. It is not entirely evident how to extend this definition in the case of a coupled, possibly nonlinear PDE system. However, using differential algebra techniques (automatically used by pdsolve when tackling a PDE system), that extension to define a general solution for a DE system is possible, and also when the system involves ODEs and PDEs, and/or algebraic (that is, non-differential) equations, and/or inequations of the form algebraic*expression <> 0 involving the unknowns, and all of this in the presence of mathematical functions (based on the use of Maple's PDEtools:-dpolyform). This is a very nice case were many different advanced developments come together to naturally solve a problem that otherwise would be rather difficult.

The issues at the center of this Maple development/post are then:

        a) How do you know whether a PDE or PDE system solution returned is a general solution?

        b) How could you indicate to pdsolve that you are only interested in a general PDE or PDE system solution?

The answer to a) is now always present in the last line of the userinfo. So input infolevel[pdsolve] := 3 before calling pdsolve, and check what the last line of the userinfo displayed tells.


The answer to b) is a new option, generalsolution, implemented in pdsolve so that it either returns a general solution or otherwise it returns NULL. If you do not use this new option, then pdsolve works as always: first it tries to compute a general solution and if it fails in doing that it tries to compute a particular solution by separating the variables in different ways, or computing a traveling wave solution or etc. (a number of other well known methods).

 

The examples that follow are from the help page pdsolve,system, and show both the new userinfo telling whether the solution returned is a general one and the option generalsolution at work.The examples are all of differential equation systems but the same userinfos and generalsolution option work as well in the case of a single PDE.

 

 

Example 1.

Solve the determining PDE system for the infinitesimals of the symmetry generator of example 11 from Kamke's book . Tell whether the solution computed is or not a general solution.

infolevel[pdsolve] := 3

3

(1.1)

The PDE system satisfied by the symmetries of Kamke's ODE example number 11 is

sys__1 := [diff(xi(x, y), y, y) = 0, diff(eta(x, y), y, y)-2*(diff(xi(x, y), y, x)) = 0, 3*x^r*y^n*(diff(xi(x, y), y))*a+2*(diff(eta(x, y), y, x))-(diff(xi(x, y), x, x)) = 0, 2*(diff(xi(x, y), x))*x^r*y^n*a-x^r*y^n*(diff(eta(x, y), y))*a+eta(x, y)*a*x^r*y^n*n/y+xi(x, y)*a*x^r*r*y^n/x+diff(eta(x, y), x, x) = 0]

This is a second order linear PDE system, with two unknowns {eta(x, y), xi(x, y)} and four equations. Its general solution is given by the following, where we now can tell that the solution is a general one by reading the last line of the userinfo. Note that because the system is overdetermined, a general solution in this case does not involve any arbitrary function

sol__1 := pdsolve(sys__1)

-> Solving ordering for the dependent variables of the PDE system: [xi(x,y), eta(x,y)]

-> Solving ordering for the independent variables (can be changed using the ivars option): [x, y]
tackling triangularized subsystem with respect to xi(x,y)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
tackling triangularized subsystem with respect to eta(x,y)
<- Returning a *general* solution

 

{eta(x, y) = -_C1*y*(r+2)/(n-1), xi(x, y) = _C1*x}

(1.2)

Next we indicate to pdsolve that n and r are parameters of the problem, and that we want a solution for n <> 1, making more difficult to identify by eye whether the solution returned is or not a general one. Again the last line of the userinfo tells that pdsolve's solution is indeed a general one

`sys__1.1` := [op(sys__1), n <> 1]

[diff(diff(xi(x, y), y), y) = 0, diff(diff(eta(x, y), y), y)-2*(diff(diff(xi(x, y), x), y)) = 0, 3*x^r*y^n*(diff(xi(x, y), y))*a+2*(diff(diff(eta(x, y), x), y))-(diff(diff(xi(x, y), x), x)) = 0, 2*(diff(xi(x, y), x))*x^r*y^n*a-x^r*y^n*(diff(eta(x, y), y))*a+eta(x, y)*a*x^r*y^n*n/y+xi(x, y)*a*x^r*r*y^n/x+diff(diff(eta(x, y), x), x) = 0, n <> 1]

(1.3)

`sol__1.1` := pdsolve(`sys__1.1`, parameters = {n, r})

-> Solving ordering for the dependent variables of the PDE system: [r, n, xi(x,y), eta(x,y)]

-> Solving ordering for the independent variables (can be changed using the ivars option): [x, y]
tackling triangularized subsystem with respect to r
tackling triangularized subsystem with respect to n
tackling triangularized subsystem with respect to xi(x,y)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
tackling triangularized subsystem with respect to eta(x,y)
tackling triangularized subsystem with respect to r
tackling triangularized subsystem with respect to n
tackling triangularized subsystem with respect to xi(x,y)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
tackling triangularized subsystem with respect to eta(x,y)
tackling triangularized subsystem with respect to r
tackling triangularized subsystem with respect to n
tackling triangularized subsystem with respect to xi(x,y)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
tackling triangularized subsystem with respect to eta(x,y)
tackling triangularized subsystem with respect to n
tackling triangularized subsystem with respect to xi(x,y)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
tackling triangularized subsystem with respect to eta(x,y)
tackling triangularized subsystem with respect to n
tackling triangularized subsystem with respect to xi(x,y)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
tackling triangularized subsystem with respect to eta(x,y)
tackling triangularized subsystem with respect to xi(x,y)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
tackling triangularized subsystem with respect to eta(x,y)
<- Returning a *general* solution

 

{n = 2, r = -5, eta(x, y) = y*(_C1*x+3*_C2), xi(x, y) = x*(_C1*x+_C2)}, {n = 2, r = -20/7, eta(x, y) = -(2/343)*(-6*_C1*x^2-98*x^(8/7)*_C1*a*y-147*_C2*a*x*y)/(x*a), xi(x, y) = _C1*x^(8/7)+_C2*x}, {n = 2, r = -15/7, eta(x, y) = -(1/343)*(-49*_C2*a*x*y-147*x^(6/7)*_C1*a*y+12*_C1*x)/(x*a), xi(x, y) = _C1*x^(6/7)+_C2*x}, {n = 2, r = r, eta(x, y) = -_C1*y*(r+2), xi(x, y) = _C1*x}, {n = -r-3, r = r, eta(x, y) = ((_C1*x+_C2)*r+4*_C1*x+2*_C2)*y/(r+4), xi(x, y) = x*(_C1*x+_C2)}, {n = n, r = r, eta(x, y) = -_C1*y*(r+2)/(n-1), xi(x, y) = _C1*x}

(1.4)

map(pdetest, [`sol__1.1`], `sys__1.1`)

[[0, 0, 0, 0], [0, 0, 0, 0], [0, 0, 0, 0], [0, 0, 0, 0], [0, 0, 0, 0], [0, 0, 0, 0]]

(1.5)

 

Example 2.

Compute the solution of the following (linear) overdetermined system involving two PDEs, three unknown functions, one of which depends on 2 variables and the other two depend on only 1 variable.

sys__2 := [-(diff(F(r, s), r, r))+diff(F(r, s), s, s)+diff(H(r), r)+diff(G(s), s)+s = 0, diff(F(r, s), r, r)+2*(diff(F(r, s), r, s))+diff(F(r, s), s, s)-(diff(H(r), r))+diff(G(s), s)-r = 0]

The solution for the unknowns G, H, is given by the following expression, were again determining whether this solution, that depends on 3 arbitrary functions, _F1(s), _F2(r), _F3(s-r), is or not a general solution, is non-obvious.

sol__2 := pdsolve(sys__2)

-> Solving ordering for the dependent variables of the PDE system: [F(r,s), H(r), G(s)]

-> Solving ordering for the independent variables (can be changed using the ivars option): [r, s]
tackling triangularized subsystem with respect to F(r,s)
First set of solution methods (general or quasi general solution)
Trying differential factorization for linear PDEs ...
differential factorization successful.
First set of solution methods successful
tackling triangularized subsystem with respect to H(r)
tackling triangularized subsystem with respect to G(s)
<- Returning a *general* solution

 

{F(r, s) = _F1(s)+_F2(r)+_F3(s-r)-(1/12)*r^2*(r-3*s), G(s) = -(diff(_F1(s), s))-(1/4)*s^2+_C2, H(r) = diff(_F2(r), r)-(1/4)*r^2+_C1}

(1.6)

pdetest(sol__2, sys__2)

[0, 0]

(1.7)

Example 3.

Compute the solution of the following nonlinear system, consisting of Burger's equation and a possible potential.

sys__3 := [diff(u(x, t), t)+2*u(x, t)*(diff(u(x, t), x))-(diff(u(x, t), x, x)) = 0, diff(v(x, t), t) = -v(x, t)*(diff(u(x, t), x))+v(x, t)*u(x, t)^2, diff(v(x, t), x) = -u(x, t)*v(x, t)]

We see that in this case the solution returned is not a general solution but two particular ones; again the information is in the last line of the userinfo displayed

sol__3 := pdsolve(sys__3, [u, v])

-> Solving ordering for the dependent variables of the PDE system: [v(x,t), u(x,t)]

-> Solving ordering for the independent variables (can be changed using the ivars option): [x, t]
tackling triangularized subsystem with respect to v(x,t)
tackling triangularized subsystem with respect to u(x,t)
First set of solution methods (general or quasi general solution)
Second set of solution methods (complete solutions)
Trying methods for second order PDEs
Third set of solution methods (simple HINTs for separating variables)
PDE linear in highest derivatives - trying a separation of variables by *
HINT = *
Fourth set of solution methods
Trying methods for second order linear PDEs
Preparing a solution HINT ...
Trying HINT = _F1(x)*_F2(t)
Fourth set of solution methods
Preparing a solution HINT ...
Trying HINT = _F1(x)+_F2(t)
Trying travelling wave solutions as power series in tanh ...
* Using tau = tanh(t*C[2]+x*C[1]+C[0])
* Equivalent ODE system: {C[1]^2*(tau^2-1)^2*diff(diff(u(tau),tau),tau)+(2*C[1]^2*(tau^2-1)*tau+2*u(tau)*C[1]*(tau^2-1)+C[2]*(tau^2-1))*diff(u(tau),tau)}
* Ordering for functions: [u(tau)]
* Cases for the upper bounds: [[n[1] = 1]]
* Power series solution [1]: {u(tau) = tau*A[1,1]+A[1,0]}
* Solution [1] for {A[i, j], C[k]}: [[A[1,1] = 0], [A[1,0] = -1/2*C[2]/C[1], A[1,1] = -C[1]]]
travelling wave solutions successful.
tackling triangularized subsystem with respect to v(x,t)
First set of solution methods (general or quasi general solution)
Trying differential factorization for linear PDEs ...
Trying methods for PDEs "missing the dependent variable" ...
Second set of solution methods (complete solutions)
Trying methods for second order PDEs
Third set of solution methods (simple HINTs for separating variables)
PDE linear in highest derivatives - trying a separation of variables by *
HINT = *
Fourth set of solution methods
Trying methods for second order linear PDEs
Preparing a solution HINT ...
Trying HINT = _F1(x)*_F2(t)
Third set of solution methods successful
tackling triangularized subsystem with respect to u(x,t)
<- Returning a solution that *is not the most general one*

 

{u(x, t) = -_C2*tanh(_C2*x+_C3*t+_C1)-(1/2)*_C3/_C2, v(x, t) = 0}, {u(x, t) = -_c[1]^(1/2)*((exp(_c[1]^(1/2)*x))^2*_C1-_C2)/((exp(_c[1]^(1/2)*x))^2*_C1+_C2), v(x, t) = _C3*exp(_c[1]*t)*_C1*exp(_c[1]^(1/2)*x)+_C3*exp(_c[1]*t)*_C2/exp(_c[1]^(1/2)*x)}

(1.8)

pdetest(sol__3, sys__3)

[0, 0, 0]

(1.9)

This example is also good for illustrating the other related new feature: one can now request to pdsolve to only compute a general solution (it will return NULL if it cannot achieve that). Turn OFF userinfos and try with this example

infolevel[pdsolve] := 1

This returns NULL:

pdsolve(sys__3, [u, v], generalsolution)

Example 4.

Another where the solution returned is particular, this time for a linear system, conformed by 38 PDEs, also from differential equation symmetry analysis

sys__4 := [diff(xi[1](x, y, z, t, u), u) = 0, diff(xi[1](x, y, z, t, u), x)-(diff(xi[2](x, y, z, t, u), y)) = 0, diff(xi[2](x, y, z, t, u), u) = 0, -(diff(xi[1](x, y, z, t, u), y))-(diff(xi[2](x, y, z, t, u), x)) = 0, diff(xi[3](x, y, z, t, u), u) = 0, diff(xi[1](x, y, z, t, u), x)-(diff(xi[3](x, y, z, t, u), z)) = 0, -(diff(xi[3](x, y, z, t, u), y))-(diff(xi[2](x, y, z, t, u), z)) = 0, -(diff(xi[1](x, y, z, t, u), z))-(diff(xi[3](x, y, z, t, u), x)) = 0, diff(xi[4](x, y, z, t, u), u) = 0, diff(xi[3](x, y, z, t, u), t)-(diff(xi[4](x, y, z, t, u), z)) = 0, diff(xi[2](x, y, z, t, u), t)-(diff(xi[4](x, y, z, t, u), y)) = 0, diff(xi[1](x, y, z, t, u), t)-(diff(xi[4](x, y, z, t, u), x)) = 0, -(diff(xi[1](x, y, z, t, u), x))+diff(xi[4](x, y, z, t, u), t) = 0, diff(eta[1](x, y, z, t, u), y, y)+diff(eta[1](x, y, z, t, u), z, z)-(diff(eta[1](x, y, z, t, u), t, t))+diff(eta[1](x, y, z, t, u), x, x) = 0, diff(eta[1](x, y, z, t, u), u, u) = 0, diff(eta[1](x, y, z, t, u), u, x)+diff(xi[1](x, y, z, t, u), x, x) = 0, diff(xi[1](x, y, z, t, u), x, y)+diff(eta[1](x, y, z, t, u), u, y) = 0, -(diff(xi[1](x, y, z, t, u), y, y))+diff(eta[1](x, y, z, t, u), u, x) = 0, diff(xi[1](x, y, z, t, u), x, z)+diff(eta[1](x, y, z, t, u), u, z) = 0, diff(xi[1](x, y, z, t, u), y, z) = 0, -(diff(xi[1](x, y, z, t, u), z, z))+diff(eta[1](x, y, z, t, u), u, x) = 0, -(diff(eta[1](x, y, z, t, u), t, u))-(diff(xi[1](x, y, z, t, u), t, x)) = 0, diff(xi[1](x, y, z, t, u), t, y) = 0, diff(xi[1](x, y, z, t, u), t, z) = 0, diff(xi[1](x, y, z, t, u), t, t)+diff(eta[1](x, y, z, t, u), u, x) = 0, -(diff(xi[2](x, y, z, t, u), z, z))+diff(eta[1](x, y, z, t, u), u, y) = 0, diff(xi[2](x, y, z, t, u), t, z) = 0, diff(xi[2](x, y, z, t, u), t, t)+diff(eta[1](x, y, z, t, u), u, y) = 0, diff(xi[3](x, y, z, t, u), t, t)+diff(eta[1](x, y, z, t, u), u, z) = 0, diff(eta[1](x, y, z, t, u), u, x, x) = 0, diff(eta[1](x, y, z, t, u), u, x, y) = 0, diff(eta[1](x, y, z, t, u), u, y, y) = 0, diff(eta[1](x, y, z, t, u), u, x, z) = 0, diff(eta[1](x, y, z, t, u), u, y, z) = 0, diff(eta[1](x, y, z, t, u), u, z, z) = 0, diff(eta[1](x, y, z, t, u), t, u, x) = 0, diff(eta[1](x, y, z, t, u), t, u, y) = 0, diff(eta[1](x, y, z, t, u), t, u, z) = 0]

There are 38 coupled equations

nops(sys__4)

38

(1.10)

When requesting a general solution pdsolve returns NULL:

pdsolve(sys__4, generalsolution)

A solution that is not a general one, is however computed by default if calling pdsolve without the generalsolution option. In this case again the last line of the userinfo tells that the solution returned is not a general solution

infolevel[pdsolve] := 3

3

(1.11)

sol__4 := pdsolve(sys__4)

-> Solving ordering for the dependent variables of the PDE system: [eta[1](x,y,z,t,u), xi[1](x,y,z,t,u), xi[2](x,y,z,t,u), xi[3](x,y,z,t,u), xi[4](x,y,z,t,u)]

-> Solving ordering for the independent variables (can be changed using the ivars option): [t, x, y, z, u]
tackling triangularized subsystem with respect to eta[1](x,y,z,t,u)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
-> Solving ordering for the dependent variables of the PDE system: [_F1(x,y,z,t), _F2(x,y,z,t)]
-> Solving ordering for the independent variables (can be changed using the ivars option): [t, x, y, z, u]
tackling triangularized subsystem with respect to _F1(x,y,z,t)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
-> Solving ordering for the dependent variables of the PDE system: [_F3(x,y,z), _F4(x,y,z)]
-> Solving ordering for the independent variables (can be changed using the ivars option): [x, y, z, t]
tackling triangularized subsystem with respect to _F3(x,y,z)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
tackling triangularized subsystem with respect to _F4(x,y,z)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
-> Solving ordering for the dependent variables of the PDE system: [_F5(y,z), _F6(y,z)]
-> Solving ordering for the independent variables (can be changed using the ivars option): [y, z, x]
tackling triangularized subsystem with respect to _F5(y,z)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
tackling triangularized subsystem with respect to _F6(y,z)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
-> Solving ordering for the dependent variables of the PDE system: [_F7(z), _F8(z)]
-> Solving ordering for the independent variables (can be changed using the ivars option): [z, y]
tackling triangularized subsystem with respect to _F7(z)
tackling triangularized subsystem with respect to _F8(z)
tackling triangularized subsystem with respect to _F2(x,y,z,t)
First set of solution methods (general or quasi general solution)
Trying differential factorization for linear PDEs ...
Trying methods for PDEs "missing the dependent variable" ...
Second set of solution methods (complete solutions)
Third set of solution methods (simple HINTs for separating variables)
PDE linear in highest derivatives - trying a separation of variables by *
HINT = *
Fourth set of solution methods
Preparing a solution HINT ...
Trying HINT = _F3(x)*_F4(y)*_F5(z)*_F6(t)
Third set of solution methods successful

tackling triangularized subsystem with respect to xi[1](x,y,z,t,u)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
-> Solving ordering for the dependent variables of the PDE system: [_F1(x,z,t), _F2(x,z,t)]
-> Solving ordering for the independent variables (can be changed using the ivars option): [t, x, z, y]
tackling triangularized subsystem with respect to _F1(x,z,t)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
tackling triangularized subsystem with respect to _F2(x,z,t)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful

-> Solving ordering for the dependent variables of the PDE system: [_F3(x,t), _F4(x,t)]
-> Solving ordering for the independent variables (can be changed using the ivars option): [t, x, z]
tackling triangularized subsystem with respect to _F3(x,t)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
tackling triangularized subsystem with respect to _F4(x,t)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
-> Solving ordering for the dependent variables of the PDE system: [_F5(x), _F6(x)]
-> Solving ordering for the independent variables (can be changed using the ivars option): [x, t]
tackling triangularized subsystem with respect to _F5(x)
tackling triangularized subsystem with respect to _F6(x)
tackling triangularized subsystem with respect to xi[2](x,y,z,t,u)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
-> Solving ordering for the dependent variables of the PDE system: [_F1(t), _F2(t)]
-> Solving ordering for the independent variables (can be changed using the ivars option): [t, z]
tackling triangularized subsystem with respect to _F1(t)
tackling triangularized subsystem with respect to _F2(t)
tackling triangularized subsystem with respect to xi[3](x,y,z,t,u)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
tackling triangularized subsystem with respect to xi[4](x,y,z,t,u)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
First set of solution methods successful
<- Returning a solution that *is not the most general one*

 

{eta[1](x, y, z, t, u) = (_C13*(_C10*(exp(_c[3]^(1/2)*z))^2+_C11)*(_C8*(exp(_c[2]^(1/2)*y))^2+_C9)*(_C6*(exp(_c[1]^(1/2)*x))^2+_C7)*cos((-_c[1]-_c[2]-_c[3])^(1/2)*t)+_C12*(_C10*(exp(_c[3]^(1/2)*z))^2+_C11)*(_C8*(exp(_c[2]^(1/2)*y))^2+_C9)*(_C6*(exp(_c[1]^(1/2)*x))^2+_C7)*sin((-_c[1]-_c[2]-_c[3])^(1/2)*t)+u*exp(_c[1]^(1/2)*x)*exp(_c[2]^(1/2)*y)*exp(_c[3]^(1/2)*z)*(_C1*t+_C2*x+_C3*y+_C4*z+_C5))/(exp(_c[1]^(1/2)*x)*exp(_c[2]^(1/2)*y)*exp(_c[3]^(1/2)*z)), xi[1](x, y, z, t, u) = -(1/2)*_C2*x^2+(1/2)*(-2*_C1*t-2*_C3*y-2*_C4*z+2*_C17)*x+(1/2)*(-t^2+y^2+z^2)*_C2+_C16*t+_C15*z+_C14*y+_C18, xi[2](x, y, z, t, u) = -(1/2)*_C3*y^2+(1/2)*(-2*_C1*t-2*_C2*x-2*_C4*z+2*_C17)*y+(1/2)*(-t^2+x^2+z^2)*_C3+_C20*t+_C19*z-_C14*x+_C21, xi[3](x, y, z, t, u) = -(1/2)*_C4*z^2+(1/2)*(-2*_C1*t-2*_C2*x-2*_C3*y+2*_C17)*z+(1/2)*(-t^2+x^2+y^2)*_C4+_C22*t-_C19*y-_C15*x+_C23, xi[4](x, y, z, t, u) = -(1/2)*_C1*t^2+(1/2)*(-2*_C2*x-2*_C3*y-2*_C4*z+2*_C17)*t+(1/2)*(-x^2-y^2-z^2)*_C1+_C20*y+_C22*z+_C16*x+_C24}

(1.12)

pdetest(sol__4, sys__4)

[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]

(1.13)

Example 5.

Finally, the new userinfos also tell whether a solution is or not a general solution when working with PDEs that involve anticommutative variables  set using the Physics  package

with(Physics, Setup)

[Setup]

(1.14)

Set first theta and Q as suffixes for variables of type/anticommutative  (see Setup )

Setup(anticommutativepre = {Q, theta})

`* Partial match of  'anticommutativepre' against keyword 'anticommutativeprefix'`

 

[anticommutativeprefix = {Q, _lambda, theta}]

(1.15)

A PDE system example with two unknown anticommutative functions of four variables, two commutative and two anticommutative; to avoid redundant typing in the input that follows and redundant display of information on the screen let's use PDEtools:-diff_table   PDEtools:-declare

PDEtools:-declare(Q(x, y, theta[1], theta[2]))

Q(x, y, theta[1], theta[2])*`will now be displayed as`*Q

(1.16)

q := PDEtools:-diff_table(Q(x, y, theta[1], theta[2]))

table( [(  ) = Q(x, y, theta[1], theta[2]) ] )

(1.17)

Consider the system formed by these two PDEs (because of the q diff_table just defined, we can enter derivatives directly using the function's name indexed by the differentiation variables)

pde[1] := q[x, y, theta[1]]+q[x, y, theta[2]]-q[y, theta[1], theta[2]] = 0

Physics:-diff(diff(diff(Q(x, y, theta[1], theta[2]), x), y), theta[1])+Physics:-diff(diff(diff(Q(x, y, theta[1], theta[2]), x), y), theta[2])-Physics:-diff(Physics:-diff(diff(Q(x, y, theta[1], theta[2]), y), theta[1]), theta[2]) = 0

(1.18)

pde[2] := q[theta[1]] = 0

Physics:-diff(Q(x, y, theta[1], theta[2]), theta[1]) = 0

(1.19)

The solution returned for this system is indeed a general solution

pdsolve([pde[1], pde[2]])

-> Solving ordering for the dependent variables of the PDE system: [_F4(x,y), _F2(x,y), _F3(x,y)]

-> Solving ordering for the independent variables (can be changed using the ivars option): [x, y]
tackling triangularized subsystem with respect to _F4(x,y)
tackling triangularized subsystem with respect to _F2(x,y)
tackling triangularized subsystem with respect to _F3(x,y)
First set of solution methods (general or quasi general solution)
Trying simple case of a single derivative.
HINT = _F6(x)+_F5(y)
Trying HINT = _F6(x)+_F5(y)
HINT is successful
First set of solution methods successful
<- Returning a *general* solution

 

Q(x, y, theta[1], theta[2]) = _F1(x, y)*_lambda1+(_F6(x)+_F5(y))*theta[2]

(1.20)

NULL

This solution involves an anticommutative constant `_&lambda;2`, analogous to the commutative constants _Cn where n is an integer.

 

Download PDE_general_solutions.mw

Edgardo S. Cheb-Terrab
Physics, Differential Equations and Mathematical Functions, Maplesoft

hi 

how i can apply this differential in maple?

thabks...

 

Hi!

I am simulate the code for fractional differential equation. But the out put is not wright...
sir_(2).mw

``

S[0] := .8;

.8

(1)

V[0] := .2;

.2

(2)

R[0] := 0;

0

(3)

alpha := 1;

1

 

.4

 

.8

 

gamma = 0.3e-1

(4)

q := .9;

.9

(5)

T := 1;

1

(6)

N := 5;

5

(7)

h := T/N;

1/5

(8)

``

for i from 0 to N do for j from 0 to 0 do a[j, i+1] := i^(alpha+1)-(i-alpha)*(i+1)^alpha; b[j, i+1] := h^alpha*((i+1-j)^alpha-(i-j)^alpha)/alpha end do end do;

for n from 0 to N do Sp[n+1] = S[0]+(sum(b[d, n+1]*(mu*(1-q)-beta*S[d]*V[d]-mu*S[d]), d = 0 .. n))/GAMMA(alpha); Vp[n+1] = V[0]+(sum(b[d, n+1]*(beta*S[d]*V[d]-(mu+gamma)*S[d]), d = 0 .. n))/GAMMA(alpha); Rp[n+1] = R[0]+(sum(b[d, n+1]*(mu*q-mu*R[d]+gamma*V[d]), d = 0 .. n))/GAMMA(alpha); S[n+1] = S[0]+h^alpha*(mu*(1-q)-beta*Sp[n+1]*Vp[n+1]-mu*Sp[n+1])/GAMMA(alpha+2)+h^alpha*(sum(a[e, n+1]*(mu*(1-q)-beta*S[e]*V[e]-mu*S[e]), e = 0 .. n))/GAMMA(alpha+2); V[n+1] = V[0]+h^alpha*(beta*Sp[n+1]*Vp[n+1]-(mu+gamma)*Sp[n+1])/GAMMA(alpha+2)+h^alpha*(sum(a[e, n+1]*(beta*S[e]*V[e]-(mu+gamma)*S[e]), e = 0 .. n))/GAMMA(alpha+2); R[n+1] = R[0]+h^alpha*(mu*q-mu*Rp[n+1]-gamma*Vp[n+1])/GAMMA(alpha+2)+h^alpha*(sum(a[e, n+1]*(mu*q-mu*R[e]-gamma*V[e]), e = 0 .. n))/GAMMA(alpha+2) end do;

Sp[1] = .7184000000

 

Vp[1] = 0.692454936e-1

 

Rp[1] = 0.9508862660e-1

 

S[1] = .7632000000-0.8000000000e-1*Sp[1]*Vp[1]-0.4000000000e-1*Sp[1]

 

V[1] = .1346227468+0.8000000000e-1*Sp[1]*Vp[1]-(1/10)*(.4+gamma)*Sp[1]

 

R[1] = 0.6045568670e-1-(1/10)*gamma*Vp[1]-0.4000000000e-1*Rp[1]

 

Sp[2] = .7264000000-.1600000000*S[1]*V[1]-0.8000000000e-1*S[1]

 

Vp[2] = 0.692454936e-1+.1600000000*S[1]*V[1]-.1954431330*S[1]

 

Rp[2] = .1670886266+.1154431330*V[1]-0.8000000000e-1*R[1]

 

S[2] = .7712000000-0.8000000000e-1*Sp[2]*Vp[2]-0.4000000000e-1*Sp[2]-.1600000000*S[1]*V[1]-0.8000000000e-1*S[1]

 

V[2] = .1346227468+0.8000000000e-1*Sp[2]*Vp[2]-(1/10)*(.4+gamma)*Sp[2]+.1600000000*S[1]*V[1]-.1954431330*S[1]

 

R[2] = .1324556867-(1/10)*gamma*Vp[2]-0.4000000000e-1*Rp[2]-.1154431330*V[1]-0.8000000000e-1*R[1]

 

Sp[3] = .7344000000-.1600000000*S[1]*V[1]-0.8000000000e-1*S[1]-.1600000000*S[2]*V[2]-0.8000000000e-1*S[2]

 

Vp[3] = 0.692454936e-1+.1600000000*S[1]*V[1]-.1954431330*S[1]+.1600000000*S[2]*V[2]-.1954431330*S[2]

 

Rp[3] = .2390886266+.1154431330*V[1]-0.8000000000e-1*R[1]+.1154431330*V[2]-0.8000000000e-1*R[2]

 

S[3] = .7792000000-0.8000000000e-1*Sp[3]*Vp[3]-0.4000000000e-1*Sp[3]-.1600000000*S[1]*V[1]-0.8000000000e-1*S[1]-.1600000000*S[2]*V[2]-0.8000000000e-1*S[2]

 

V[3] = .1346227468+0.8000000000e-1*Sp[3]*Vp[3]-(1/10)*(.4+gamma)*Sp[3]+.1600000000*S[1]*V[1]-.1954431330*S[1]+.1600000000*S[2]*V[2]-.1954431330*S[2]

 

R[3] = .2044556867-(1/10)*gamma*Vp[3]-0.4000000000e-1*Rp[3]-.1154431330*V[1]-0.8000000000e-1*R[1]-.1154431330*V[2]-0.8000000000e-1*R[2]

 

Sp[4] = .7424000000-.1600000000*S[1]*V[1]-0.8000000000e-1*S[1]-.1600000000*S[2]*V[2]-0.8000000000e-1*S[2]-.1600000000*S[3]*V[3]-0.8000000000e-1*S[3]

 

Vp[4] = 0.692454936e-1+.1600000000*S[1]*V[1]-.1954431330*S[1]+.1600000000*S[2]*V[2]-.1954431330*S[2]+.1600000000*S[3]*V[3]-.1954431330*S[3]

 

Rp[4] = .3110886266+.1154431330*V[1]-0.8000000000e-1*R[1]+.1154431330*V[2]-0.8000000000e-1*R[2]+.1154431330*V[3]-0.8000000000e-1*R[3]

 

S[4] = .7872000000-0.8000000000e-1*Sp[4]*Vp[4]-0.4000000000e-1*Sp[4]-.1600000000*S[1]*V[1]-0.8000000000e-1*S[1]-.1600000000*S[2]*V[2]-0.8000000000e-1*S[2]-.1600000000*S[3]*V[3]-0.8000000000e-1*S[3]

 

V[4] = .1346227468+0.8000000000e-1*Sp[4]*Vp[4]-(1/10)*(.4+gamma)*Sp[4]+.1600000000*S[1]*V[1]-.1954431330*S[1]+.1600000000*S[2]*V[2]-.1954431330*S[2]+.1600000000*S[3]*V[3]-.1954431330*S[3]

 

R[4] = .2764556867-(1/10)*gamma*Vp[4]-0.4000000000e-1*Rp[4]-.1154431330*V[1]-0.8000000000e-1*R[1]-.1154431330*V[2]-0.8000000000e-1*R[2]-.1154431330*V[3]-0.8000000000e-1*R[3]

 

Sp[5] = .7504000000-.1600000000*S[1]*V[1]-0.8000000000e-1*S[1]-.1600000000*S[2]*V[2]-0.8000000000e-1*S[2]-.1600000000*S[3]*V[3]-0.8000000000e-1*S[3]-.1600000000*S[4]*V[4]-0.8000000000e-1*S[4]

 

Vp[5] = 0.692454936e-1+.1600000000*S[1]*V[1]-.1954431330*S[1]+.1600000000*S[2]*V[2]-.1954431330*S[2]+.1600000000*S[3]*V[3]-.1954431330*S[3]+.1600000000*S[4]*V[4]-.1954431330*S[4]

 

Rp[5] = .3830886266+.1154431330*V[1]-0.8000000000e-1*R[1]+.1154431330*V[2]-0.8000000000e-1*R[2]+.1154431330*V[3]-0.8000000000e-1*R[3]+.1154431330*V[4]-0.8000000000e-1*R[4]

 

S[5] = .7952000000-0.8000000000e-1*Sp[5]*Vp[5]-0.4000000000e-1*Sp[5]-.1600000000*S[1]*V[1]-0.8000000000e-1*S[1]-.1600000000*S[2]*V[2]-0.8000000000e-1*S[2]-.1600000000*S[3]*V[3]-0.8000000000e-1*S[3]-.1600000000*S[4]*V[4]-0.8000000000e-1*S[4]

 

V[5] = .1346227468+0.8000000000e-1*Sp[5]*Vp[5]-(1/10)*(.4+gamma)*Sp[5]+.1600000000*S[1]*V[1]-.1954431330*S[1]+.1600000000*S[2]*V[2]-.1954431330*S[2]+.1600000000*S[3]*V[3]-.1954431330*S[3]+.1600000000*S[4]*V[4]-.1954431330*S[4]

 

R[5] = .3484556867-(1/10)*gamma*Vp[5]-0.4000000000e-1*Rp[5]-.1154431330*V[1]-0.8000000000e-1*R[1]-.1154431330*V[2]-0.8000000000e-1*R[2]-.1154431330*V[3]-0.8000000000e-1*R[3]-.1154431330*V[4]-0.8000000000e-1*R[4]

 

Sp[6] = .7584000000-.1600000000*S[1]*V[1]-0.8000000000e-1*S[1]-.1600000000*S[2]*V[2]-0.8000000000e-1*S[2]-.1600000000*S[3]*V[3]-0.8000000000e-1*S[3]-.1600000000*S[4]*V[4]-0.8000000000e-1*S[4]-.1600000000*S[5]*V[5]-0.8000000000e-1*S[5]

 

Vp[6] = 0.692454936e-1+.1600000000*S[1]*V[1]-.1954431330*S[1]+.1600000000*S[2]*V[2]-.1954431330*S[2]+.1600000000*S[3]*V[3]-.1954431330*S[3]+.1600000000*S[4]*V[4]-.1954431330*S[4]+.1600000000*S[5]*V[5]-.1954431330*S[5]

 

Rp[6] = .4550886266+.1154431330*V[1]-0.8000000000e-1*R[1]+.1154431330*V[2]-0.8000000000e-1*R[2]+.1154431330*V[3]-0.8000000000e-1*R[3]+.1154431330*V[4]-0.8000000000e-1*R[4]+.1154431330*V[5]-0.8000000000e-1*R[5]

 

S[6] = .8032000000-0.8000000000e-1*Sp[6]*Vp[6]-0.4000000000e-1*Sp[6]-.1600000000*S[1]*V[1]-0.8000000000e-1*S[1]-.1600000000*S[2]*V[2]-0.8000000000e-1*S[2]-.1600000000*S[3]*V[3]-0.8000000000e-1*S[3]-.1600000000*S[4]*V[4]-0.8000000000e-1*S[4]-.1600000000*S[5]*V[5]-0.8000000000e-1*S[5]

 

V[6] = .1346227468+0.8000000000e-1*Sp[6]*Vp[6]-(1/10)*(.4+gamma)*Sp[6]+.1600000000*S[1]*V[1]-.1954431330*S[1]+.1600000000*S[2]*V[2]-.1954431330*S[2]+.1600000000*S[3]*V[3]-.1954431330*S[3]+.1600000000*S[4]*V[4]-.1954431330*S[4]+.1600000000*S[5]*V[5]-.1954431330*S[5]

 

R[6] = .4204556867-(1/10)*gamma*Vp[6]-0.4000000000e-1*Rp[6]-.1154431330*V[1]-0.8000000000e-1*R[1]-.1154431330*V[2]-0.8000000000e-1*R[2]-.1154431330*V[3]-0.8000000000e-1*R[3]-.1154431330*V[4]-0.8000000000e-1*R[4]-.1154431330*V[5]-0.8000000000e-1*R[5]

(9)

``

``

 

Download sir_(2).mw

 

hi.please see attached file below and help me.one problem is apply differential operator on matrix and then caclute 3D integral?

maple2.mw

restart; x = zz/L; y = (2*r-b)/a; z = alpha/Pi-1; L := .1; a := 0.1e-1; b := .11; E; 207*10^9; upsilon := .3

NN1 := -((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1); NN2 := ((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1); NN3 := -((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1); NN4 := ((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1); NN5 := ((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1); NN6 := -((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1); NN7 := ((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1); NN8 := -((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1); NN9 := ((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1); NN10 := -((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1); NN11 := ((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1); NN12 := -((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1); NN13 := -((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1); NN14 := ((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1); NN15 := -((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1); NN16 := ((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)

((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)

(1)

``

 

N := Matrix([[NN1, 0, 0, NN2, 0, 0, NN3, 0, 0, NN4, 0, 0, NN5, 0, 0, NN6, 0, 0, NN7, 0, 0, NN8, 0, 0, NN9, 0, 0, NN10, 0, 0, NN11, 0, 0, NN12, 0, 0, NN13, 0, 0, NN14, 0, 0, NN15, 0, 0, NN16, 0, 0], [0, NN1, 0, 0, NN2, 0, 0, NN3, 0, 0, NN4, 0, 0, NN5, 0, 0, NN6, 0, 0, NN7, 0, 0, NN8, 0, 0, NN9, 0, 0, NN10, 0, 0, NN11, 0, 0, NN12, 0, 0, NN13, 0, 0, NN14, 0, 0, NN15, 0, 0, NN16, 0], [0, 0, NN1, 0, 0, NN2, 0, 0, NN3, 0, 0, NN4, 0, 0, NN5, 0, 0, NN6, 0, 0, NN7, 0, 0, NN8, 0, 0, NN9, 0, 0, NN10, 0, 0, NN11, 0, 0, NN12, 0, 0, NN13, 0, 0, NN14, 0, 0, NN15, 0, 0, NN16]])

RTABLE(18446744074182475774, anything, Matrix, rectangular, Fortran_order, [], 2, 1 .. 3, 1 .. 48)

(2)

"Q:=Matrix([[(2/(a))*(&PartialD;)/(&PartialD; y) , 0,0],[2/(a*y+b),2/(a*y+b)*1/(Pi)(&PartialD;)/(&PartialD;z ) ,0],[0,0,1/(L)*(&PartialD;)/(&PartialD; x)],[2/(a*y+b)*1/(Pi)(&PartialD;)/(&PartialD;z ),2/(a)(&PartialD;)/(&PartialD;y)-2/(a*y+b),0],[1/(L)*(&PartialD;)/(&PartialD; x),0,(2/(a))*(&PartialD;)/(&PartialD; y)],[0,1/(L)*(&PartialD;)/(&PartialD; x),2/(a*y+b)*1/(Pi)(&PartialD;)/(&PartialD;z )]])"

Error, invalid derivative

"Q:=Matrix([[(2/a)*(&PartialD;)/(&PartialD;y) , 0,0],[2/(a*y+b),2/(a*y+b)*1/Pi(&PartialD;)/(&PartialD;z ) ,0],[0,0,1/L*(&PartialD;)/(&PartialD; x)],[2/(a*y+b)*1/Pi(&PartialD;)/(&PartialD;z ),2/a(&PartialD;)/(&PartialD;y)-2/(a*y+b),0],[1/L*(&PartialD;)/(&PartialD; x),0,(2/a)*(&PartialD;)/(&PartialD; y)],[0,1/L*(&PartialD;)/(&PartialD; x),2/(a*y+b)*1/Pi(&PartialD;)/(&PartialD;z )]])"

 

NULL

Q := Matrix([[2*Y/a, 0, 0], [2/(a*y+b), 2*Z/((a*y+b)*Pi), 0], [0, 0, X/L], [2*Z/((a*y+b)*Pi), 2*Y/a-2/(a*y+b), 0], [X/L, 0, 2*Y/a], [0, X/L, 2*Z/((a*y+b)*Pi)]])

Matrix([[0.2e3*Y, 0, 0], [2/(0.1e-1*y+.11), 2*Z/((0.1e-1*y+.11)*Pi), 0], [0, 0, 0.1e2*X], [2*Z/((0.1e-1*y+.11)*Pi), 0.2e3*Y-2/(0.1e-1*y+.11), 0], [0.1e2*X, 0, 0.2e3*Y], [0, 0.1e2*X, 2*Z/((0.1e-1*y+.11)*Pi)]])

(3)

````

"Y :=(&PartialD;)/(&PartialD; y):X:=(&PartialD;)/(&PartialD; x):Z:=(&PartialD;)/(&PartialD; z):"

Error, Got internal error in Typesetting:-Parse : "invalid subscript selector"

"Y :=(&PartialD;)/(&PartialD; y):X:=(&PartialD;)/(&PartialD; x):Z:=(&PartialD;)/(&PartialD; z):"

 

0

(4)

````

B := Q.N

RTABLE(18446744074182476230, anything, Matrix, rectangular, Fortran_order, [], 2, 1 .. 6, 1 .. 48)

(5)

NULL

Vector(4, {(1) = ` 6 x 48 `*Matrix, (2) = `Data Type: `*anything, (3) = `Storage: `*rectangular, (4) = `Order: `*Fortran_order})

(6)

d := (1-upsilon)/(1-2*upsilon); e := upsilon/(1-2*upsilon); DD := E*Matrix([[d, e, e, 0, 0, 0], [e, d, e, 0, 0, 0], [e, e, d, 0, 0, 0], [0, 0, 0, 1/2, 0, 0], [0, 0, 0, 0, 1/2, 0], [0, 0, 0, 0, 0, 1/2]])/(1+upsilon)

Matrix([[1.346153846*E, .5769230769*E, .5769230769*E, 0, 0, 0], [.5769230769*E, 1.346153846*E, .5769230769*E, 0, 0, 0], [.5769230769*E, .5769230769*E, 1.346153846*E, 0, 0, 0], [0, 0, 0, .3846153846*E, 0, 0], [0, 0, 0, 0, .3846153846*E, 0], [0, 0, 0, 0, 0, .3846153846*E]])

(7)

T := Transpose(B).DD.B

Transpose(Matrix(6, 48, {(1, 1) = -0.2e3*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (1, 2) = 0., (1, 3) = 0., (1, 4) = 0.2e3*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (1, 5) = 0., (1, 6) = 0., (1, 7) = -0.2e3*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (1, 8) = 0., (1, 9) = 0., (1, 10) = 0.2e3*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (1, 11) = 0., (1, 12) = 0., (1, 13) = 0.2e3*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (1, 14) = 0., (1, 15) = 0., (1, 16) = -0.2e3*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (1, 17) = 0., (1, 18) = 0., (1, 19) = 0.2e3*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (1, 20) = 0., (1, 21) = 0., (1, 22) = -0.2e3*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (1, 23) = 0., (1, 24) = 0., (1, 25) = 0.2e3*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (1, 26) = 0., (1, 27) = 0., (1, 28) = -0.2e3*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (1, 29) = 0., (1, 30) = 0., (1, 31) = 0.2e3*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (1, 32) = 0., (1, 33) = 0., (1, 34) = -0.2e3*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (1, 35) = 0., (1, 36) = 0., (1, 37) = -0.2e3*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (1, 38) = 0., (1, 39) = 0., (1, 40) = 0.2e3*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (1, 41) = 0., (1, 42) = 0., (1, 43) = -0.2e3*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (1, 44) = 0., (1, 45) = 0., (1, 46) = 0.2e3*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (1, 47) = 0., (1, 48) = 0., (2, 1) = -2*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 2) = -2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (2, 3) = 0, (2, 4) = 2*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 5) = 2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (2, 6) = 0, (2, 7) = -2*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 8) = -2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (2, 9) = 0, (2, 10) = 2*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 11) = 2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (2, 12) = 0, (2, 13) = 2*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 14) = 2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (2, 15) = 0, (2, 16) = -2*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 17) = -2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (2, 18) = 0, (2, 19) = 2*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 20) = 2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (2, 21) = 0, (2, 22) = -2*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 23) = -2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (2, 24) = 0, (2, 25) = 2*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 26) = 2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (2, 27) = 0, (2, 28) = -2*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 29) = -2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (2, 30) = 0, (2, 31) = 2*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 32) = 2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (2, 33) = 0, (2, 34) = -2*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 35) = -2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (2, 36) = 0, (2, 37) = -2*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 38) = -2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (2, 39) = 0, (2, 40) = 2*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 41) = 2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (2, 42) = 0, (2, 43) = -2*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 44) = -2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (2, 45) = 0, (2, 46) = 2*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 47) = 2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (2, 48) = 0, (3, 1) = 0., (3, 2) = 0., (3, 3) = -0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (3, 4) = 0., (3, 5) = 0., (3, 6) = 0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (3, 7) = 0., (3, 8) = 0., (3, 9) = -0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (3, 10) = 0., (3, 11) = 0., (3, 12) = 0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (3, 13) = 0., (3, 14) = 0., (3, 15) = 0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (3, 16) = 0., (3, 17) = 0., (3, 18) = -0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (3, 19) = 0., (3, 20) = 0., (3, 21) = 0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (3, 22) = 0., (3, 23) = 0., (3, 24) = -0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (3, 25) = 0., (3, 26) = 0., (3, 27) = 0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (3, 28) = 0., (3, 29) = 0., (3, 30) = -0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (3, 31) = 0., (3, 32) = 0., (3, 33) = 0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (3, 34) = 0., (3, 35) = 0., (3, 36) = -0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (3, 37) = 0., (3, 38) = 0., (3, 39) = -0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (3, 40) = 0., (3, 41) = 0., (3, 42) = 0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (3, 43) = 0., (3, 44) = 0., (3, 45) = -0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (3, 46) = 0., (3, 47) = 0., (3, 48) = 0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (4, 1) = -2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (4, 2) = -(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (4, 3) = 0., (4, 4) = 2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (4, 5) = (0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (4, 6) = 0., (4, 7) = -2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (4, 8) = -(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (4, 9) = 0., (4, 10) = 2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (4, 11) = (0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (4, 12) = 0., (4, 13) = 2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (4, 14) = (0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (4, 15) = 0., (4, 16) = -2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (4, 17) = -(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (4, 18) = 0., (4, 19) = 2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (4, 20) = (0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (4, 21) = 0., (4, 22) = -2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (4, 23) = -(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (4, 24) = 0., (4, 25) = 2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (4, 26) = (0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (4, 27) = 0., (4, 28) = -2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (4, 29) = -(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (4, 30) = 0., (4, 31) = 2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (4, 32) = (0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (4, 33) = 0., (4, 34) = -2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (4, 35) = -(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (4, 36) = 0., (4, 37) = -2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (4, 38) = -(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (4, 39) = 0., (4, 40) = 2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (4, 41) = (0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (4, 42) = 0., (4, 43) = -2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (4, 44) = -(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (4, 45) = 0., (4, 46) = 2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (4, 47) = (0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (4, 48) = 0., (5, 1) = -0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (5, 2) = 0., (5, 3) = -0.2e3*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (5, 4) = 0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (5, 5) = 0., (5, 6) = 0.2e3*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (5, 7) = -0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (5, 8) = 0., (5, 9) = -0.2e3*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (5, 10) = 0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (5, 11) = 0., (5, 12) = 0.2e3*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (5, 13) = 0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (5, 14) = 0., (5, 15) = 0.2e3*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (5, 16) = -0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (5, 17) = 0., (5, 18) = -0.2e3*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (5, 19) = 0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (5, 20) = 0., (5, 21) = 0.2e3*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (5, 22) = -0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (5, 23) = 0., (5, 24) = -0.2e3*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (5, 25) = 0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (5, 26) = 0., (5, 27) = 0.2e3*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (5, 28) = -0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (5, 29) = 0., (5, 30) = -0.2e3*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (5, 31) = 0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (5, 32) = 0., (5, 33) = 0.2e3*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (5, 34) = -0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (5, 35) = 0., (5, 36) = -0.2e3*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (5, 37) = -0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (5, 38) = 0., (5, 39) = -0.2e3*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (5, 40) = 0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (5, 41) = 0., (5, 42) = 0.2e3*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (5, 43) = -0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (5, 44) = 0., (5, 45) = -0.2e3*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (5, 46) = 0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (5, 47) = 0., (5, 48) = 0.2e3*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (6, 1) = 0., (6, 2) = -0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (6, 3) = -2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (6, 4) = 0., (6, 5) = 0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (6, 6) = 2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (6, 7) = 0., (6, 8) = -0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (6, 9) = -2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (6, 10) = 0., (6, 11) = 0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (6, 12) = 2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (6, 13) = 0., (6, 14) = 0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (6, 15) = 2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (6, 16) = 0., (6, 17) = -0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (6, 18) = -2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (6, 19) = 0., (6, 20) = 0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (6, 21) = 2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (6, 22) = 0., (6, 23) = -0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (6, 24) = -2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (6, 25) = 0., (6, 26) = 0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (6, 27) = 2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (6, 28) = 0., (6, 29) = -0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (6, 30) = -2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (6, 31) = 0., (6, 32) = 0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (6, 33) = 2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (6, 34) = 0., (6, 35) = -0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (6, 36) = -2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (6, 37) = 0., (6, 38) = -0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (6, 39) = -2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (6, 40) = 0., (6, 41) = 0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (6, 42) = 2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (6, 43) = 0., (6, 44) = -0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (6, 45) = -2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (6, 46) = 0., (6, 47) = 0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (6, 48) = 2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi)})).(Matrix(6, 48, {(1, 1) = -269.2307692*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)-1.153846154*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (1, 2) = -.3672806379*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (1, 3) = -5.769230769*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (1, 4) = 269.2307692*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)+1.153846154*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (1, 5) = .3672806379*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (1, 6) = 5.769230769*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (1, 7) = -269.2307692*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)-1.153846154*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (1, 8) = -.3672806379*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (1, 9) = -5.769230769*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (1, 10) = 269.2307692*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)+1.153846154*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (1, 11) = .3672806379*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (1, 12) = 5.769230769*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (1, 13) = 269.2307692*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)+1.153846154*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (1, 14) = .3672806379*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (1, 15) = 5.769230769*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (1, 16) = -269.2307692*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)-1.153846154*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (1, 17) = -.3672806379*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (1, 18) = -5.769230769*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (1, 19) = 269.2307692*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)+1.153846154*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (1, 20) = .3672806379*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (1, 21) = 5.769230769*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (1, 22) = -269.2307692*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)-1.153846154*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (1, 23) = -.3672806379*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (1, 24) = -5.769230769*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (1, 25) = 269.2307692*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)+1.153846154*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (1, 26) = .3672806379*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (1, 27) = 5.769230769*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (1, 28) = -269.2307692*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)-1.153846154*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (1, 29) = -.3672806379*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (1, 30) = -5.769230769*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (1, 31) = 269.2307692*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)+1.153846154*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (1, 32) = .3672806379*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (1, 33) = 5.769230769*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (1, 34) = -269.2307692*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)-1.153846154*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (1, 35) = -.3672806379*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (1, 36) = -5.769230769*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (1, 37) = -269.2307692*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)-1.153846154*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (1, 38) = -.3672806379*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (1, 39) = -5.769230769*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (1, 40) = 269.2307692*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)+1.153846154*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (1, 41) = .3672806379*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (1, 42) = 5.769230769*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (1, 43) = -269.2307692*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)-1.153846154*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (1, 44) = -.3672806379*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (1, 45) = -5.769230769*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (1, 46) = 269.2307692*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)+1.153846154*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (1, 47) = .3672806379*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (1, 48) = 5.769230769*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (2, 1) = -115.3846154*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)-2.692307692*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 2) = -.8569881549*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 3) = -5.769230769*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (2, 4) = 115.3846154*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)+2.692307692*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 5) = .8569881549*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 6) = 5.769230769*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (2, 7) = -115.3846154*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)-2.692307692*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 8) = -.8569881549*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 9) = -5.769230769*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (2, 10) = 115.3846154*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)+2.692307692*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 11) = .8569881549*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 12) = 5.769230769*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (2, 13) = 115.3846154*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)+2.692307692*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 14) = .8569881549*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 15) = 5.769230769*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (2, 16) = -115.3846154*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)-2.692307692*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 17) = -.8569881549*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 18) = -5.769230769*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (2, 19) = 115.3846154*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)+2.692307692*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 20) = .8569881549*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 21) = 5.769230769*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (2, 22) = -115.3846154*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)-2.692307692*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 23) = -.8569881549*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 24) = -5.769230769*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (2, 25) = 115.3846154*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)+2.692307692*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 26) = .8569881549*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 27) = 5.769230769*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (2, 28) = -115.3846154*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)-2.692307692*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 29) = -.8569881549*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 30) = -5.769230769*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (2, 31) = 115.3846154*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)+2.692307692*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 32) = .8569881549*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 33) = 5.769230769*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (2, 34) = -115.3846154*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)-2.692307692*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 35) = -.8569881549*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 36) = -5.769230769*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (2, 37) = -115.3846154*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)-2.692307692*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 38) = -.8569881549*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 39) = -5.769230769*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (2, 40) = 115.3846154*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)+2.692307692*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 41) = .8569881549*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 42) = 5.769230769*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (2, 43) = -115.3846154*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)-2.692307692*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 44) = -.8569881549*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 45) = -5.769230769*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (2, 46) = 115.3846154*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)+2.692307692*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 47) = .8569881549*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 48) = 5.769230769*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (3, 1) = -115.3846154*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)-1.153846154*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (3, 2) = -.3672806379*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (3, 3) = -13.46153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (3, 4) = 115.3846154*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)+1.153846154*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (3, 5) = .3672806379*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (3, 6) = 13.46153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (3, 7) = -115.3846154*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)-1.153846154*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (3, 8) = -.3672806379*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (3, 9) = -13.46153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (3, 10) = 115.3846154*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)+1.153846154*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (3, 11) = .3672806379*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (3, 12) = 13.46153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (3, 13) = 115.3846154*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)+1.153846154*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (3, 14) = .3672806379*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (3, 15) = 13.46153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (3, 16) = -115.3846154*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)-1.153846154*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (3, 17) = -.3672806379*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (3, 18) = -13.46153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (3, 19) = 115.3846154*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)+1.153846154*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (3, 20) = .3672806379*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (3, 21) = 13.46153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (3, 22) = -115.3846154*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)-1.153846154*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (3, 23) = -.3672806379*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (3, 24) = -13.46153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (3, 25) = 115.3846154*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)+1.153846154*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (3, 26) = .3672806379*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (3, 27) = 13.46153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (3, 28) = -115.3846154*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)-1.153846154*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (3, 29) = -.3672806379*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (3, 30) = -13.46153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (3, 31) = 115.3846154*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)+1.153846154*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (3, 32) = .3672806379*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (3, 33) = 13.46153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (3, 34) = -115.3846154*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)-1.153846154*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (3, 35) = -.3672806379*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (3, 36) = -13.46153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (3, 37) = -115.3846154*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)-1.153846154*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (3, 38) = -.3672806379*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (3, 39) = -13.46153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (3, 40) = 115.3846154*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)+1.153846154*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (3, 41) = .3672806379*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (3, 42) = 13.46153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (3, 43) = -115.3846154*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)-1.153846154*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (3, 44) = -.3672806379*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (3, 45) = -13.46153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (3, 46) = 115.3846154*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)+1.153846154*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (3, 47) = .3672806379*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (3, 48) = 13.46153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (4, 1) = -.2448537586*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (4, 2) = -.3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (4, 3) = 0., (4, 4) = .2448537586*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (4, 5) = .3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (4, 6) = 0., (4, 7) = -.2448537586*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (4, 8) = -.3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (4, 9) = 0., (4, 10) = .2448537586*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (4, 11) = .3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (4, 12) = 0., (4, 13) = .2448537586*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (4, 14) = .3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (4, 15) = 0., (4, 16) = -.2448537586*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (4, 17) = -.3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (4, 18) = 0., (4, 19) = .2448537586*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (4, 20) = .3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (4, 21) = 0., (4, 22) = -.2448537586*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (4, 23) = -.3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (4, 24) = 0., (4, 25) = .2448537586*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (4, 26) = .3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (4, 27) = 0., (4, 28) = -.2448537586*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (4, 29) = -.3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (4, 30) = 0., (4, 31) = .2448537586*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (4, 32) = .3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (4, 33) = 0., (4, 34) = -.2448537586*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (4, 35) = -.3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (4, 36) = 0., (4, 37) = -.2448537586*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (4, 38) = -.3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (4, 39) = 0., (4, 40) = .2448537586*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (4, 41) = .3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (4, 42) = 0., (4, 43) = -.2448537586*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (4, 44) = -.3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (4, 45) = 0., (4, 46) = .2448537586*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (4, 47) = .3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (4, 48) = 0., (5, 1) = -3.846153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (5, 2) = 0., (5, 3) = -76.92307692*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (5, 4) = 3.846153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (5, 5) = 0., (5, 6) = 76.92307692*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (5, 7) = -3.846153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (5, 8) = 0., (5, 9) = -76.92307692*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (5, 10) = 3.846153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (5, 11) = 0., (5, 12) = 76.92307692*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (5, 13) = 3.846153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (5, 14) = 0., (5, 15) = 76.92307692*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (5, 16) = -3.846153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (5, 17) = 0., (5, 18) = -76.92307692*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (5, 19) = 3.846153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (5, 20) = 0., (5, 21) = 76.92307692*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (5, 22) = -3.846153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (5, 23) = 0., (5, 24) = -76.92307692*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (5, 25) = 3.846153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (5, 26) = 0., (5, 27) = 76.92307692*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (5, 28) = -3.846153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (5, 29) = 0., (5, 30) = -76.92307692*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (5, 31) = 3.846153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (5, 32) = 0., (5, 33) = 76.92307692*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (5, 34) = -3.846153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (5, 35) = 0., (5, 36) = -76.92307692*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (5, 37) = -3.846153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (5, 38) = 0., (5, 39) = -76.92307692*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (5, 40) = 3.846153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (5, 41) = 0., (5, 42) = 76.92307692*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (5, 43) = -3.846153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (5, 44) = 0., (5, 45) = -76.92307692*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (5, 46) = 3.846153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (5, 47) = 0., (5, 48) = 76.92307692*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (6, 1) = 0., (6, 2) = -3.846153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (6, 3) = -.2448537586*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (6, 4) = 0., (6, 5) = 3.846153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (6, 6) = .2448537586*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (6, 7) = 0., (6, 8) = -3.846153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (6, 9) = -.2448537586*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (6, 10) = 0., (6, 11) = 3.846153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (6, 12) = .2448537586*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (6, 13) = 0., (6, 14) = 3.846153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (6, 15) = .2448537586*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (6, 16) = 0., (6, 17) = -3.846153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (6, 18) = -.2448537586*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (6, 19) = 0., (6, 20) = 3.846153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (6, 21) = .2448537586*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (6, 22) = 0., (6, 23) = -3.846153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (6, 24) = -.2448537586*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (6, 25) = 0., (6, 26) = 3.846153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (6, 27) = .2448537586*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (6, 28) = 0., (6, 29) = -3.846153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (6, 30) = -.2448537586*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (6, 31) = 0., (6, 32) = 3.846153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (6, 33) = .2448537586*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (6, 34) = 0., (6, 35) = -3.846153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (6, 36) = -.2448537586*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (6, 37) = 0., (6, 38) = -3.846153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (6, 39) = -.2448537586*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (6, 40) = 0., (6, 41) = 3.846153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (6, 42) = .2448537586*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (6, 43) = 0., (6, 44) = -3.846153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (6, 45) = -.2448537586*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (6, 46) = 0., (6, 47) = 3.846153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (6, 48) = .2448537586*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11)}))

(8)

S := (1/4)*a*Pi*L*(a*y+b)*T

Typesetting[delayDotProduct](0.7853981635e-3*(0.1e-1*y+.11), Transpose(Matrix(6, 48, {(1, 1) = -0.2e3*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (1, 2) = 0., (1, 3) = 0., (1, 4) = 0.2e3*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (1, 5) = 0., (1, 6) = 0., (1, 7) = -0.2e3*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (1, 8) = 0., (1, 9) = 0., (1, 10) = 0.2e3*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (1, 11) = 0., (1, 12) = 0., (1, 13) = 0.2e3*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (1, 14) = 0., (1, 15) = 0., (1, 16) = -0.2e3*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (1, 17) = 0., (1, 18) = 0., (1, 19) = 0.2e3*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (1, 20) = 0., (1, 21) = 0., (1, 22) = -0.2e3*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (1, 23) = 0., (1, 24) = 0., (1, 25) = 0.2e3*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (1, 26) = 0., (1, 27) = 0., (1, 28) = -0.2e3*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (1, 29) = 0., (1, 30) = 0., (1, 31) = 0.2e3*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (1, 32) = 0., (1, 33) = 0., (1, 34) = -0.2e3*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (1, 35) = 0., (1, 36) = 0., (1, 37) = -0.2e3*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (1, 38) = 0., (1, 39) = 0., (1, 40) = 0.2e3*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (1, 41) = 0., (1, 42) = 0., (1, 43) = -0.2e3*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (1, 44) = 0., (1, 45) = 0., (1, 46) = 0.2e3*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (1, 47) = 0., (1, 48) = 0., (2, 1) = -2*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 2) = -2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (2, 3) = 0, (2, 4) = 2*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 5) = 2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (2, 6) = 0, (2, 7) = -2*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 8) = -2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (2, 9) = 0, (2, 10) = 2*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 11) = 2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (2, 12) = 0, (2, 13) = 2*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 14) = 2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (2, 15) = 0, (2, 16) = -2*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 17) = -2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (2, 18) = 0, (2, 19) = 2*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 20) = 2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (2, 21) = 0, (2, 22) = -2*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 23) = -2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (2, 24) = 0, (2, 25) = 2*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 26) = 2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (2, 27) = 0, (2, 28) = -2*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 29) = -2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (2, 30) = 0, (2, 31) = 2*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 32) = 2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (2, 33) = 0, (2, 34) = -2*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 35) = -2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (2, 36) = 0, (2, 37) = -2*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 38) = -2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (2, 39) = 0, (2, 40) = 2*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 41) = 2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (2, 42) = 0, (2, 43) = -2*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 44) = -2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (2, 45) = 0, (2, 46) = 2*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 47) = 2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (2, 48) = 0, (3, 1) = 0., (3, 2) = 0., (3, 3) = -0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (3, 4) = 0., (3, 5) = 0., (3, 6) = 0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (3, 7) = 0., (3, 8) = 0., (3, 9) = -0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (3, 10) = 0., (3, 11) = 0., (3, 12) = 0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (3, 13) = 0., (3, 14) = 0., (3, 15) = 0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (3, 16) = 0., (3, 17) = 0., (3, 18) = -0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (3, 19) = 0., (3, 20) = 0., (3, 21) = 0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (3, 22) = 0., (3, 23) = 0., (3, 24) = -0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (3, 25) = 0., (3, 26) = 0., (3, 27) = 0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (3, 28) = 0., (3, 29) = 0., (3, 30) = -0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (3, 31) = 0., (3, 32) = 0., (3, 33) = 0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (3, 34) = 0., (3, 35) = 0., (3, 36) = -0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (3, 37) = 0., (3, 38) = 0., (3, 39) = -0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (3, 40) = 0., (3, 41) = 0., (3, 42) = 0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (3, 43) = 0., (3, 44) = 0., (3, 45) = -0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (3, 46) = 0., (3, 47) = 0., (3, 48) = 0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (4, 1) = -2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (4, 2) = -(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (4, 3) = 0., (4, 4) = 2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (4, 5) = (0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (4, 6) = 0., (4, 7) = -2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (4, 8) = -(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (4, 9) = 0., (4, 10) = 2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (4, 11) = (0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (4, 12) = 0., (4, 13) = 2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (4, 14) = (0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (4, 15) = 0., (4, 16) = -2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (4, 17) = -(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (4, 18) = 0., (4, 19) = 2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (4, 20) = (0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (4, 21) = 0., (4, 22) = -2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (4, 23) = -(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (4, 24) = 0., (4, 25) = 2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (4, 26) = (0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (4, 27) = 0., (4, 28) = -2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (4, 29) = -(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (4, 30) = 0., (4, 31) = 2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (4, 32) = (0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (4, 33) = 0., (4, 34) = -2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (4, 35) = -(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (4, 36) = 0., (4, 37) = -2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (4, 38) = -(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (4, 39) = 0., (4, 40) = 2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (4, 41) = (0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (4, 42) = 0., (4, 43) = -2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (4, 44) = -(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (4, 45) = 0., (4, 46) = 2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (4, 47) = (0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (4, 48) = 0., (5, 1) = -0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (5, 2) = 0., (5, 3) = -0.2e3*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (5, 4) = 0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (5, 5) = 0., (5, 6) = 0.2e3*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (5, 7) = -0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (5, 8) = 0., (5, 9) = -0.2e3*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (5, 10) = 0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (5, 11) = 0., (5, 12) = 0.2e3*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (5, 13) = 0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (5, 14) = 0., (5, 15) = 0.2e3*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (5, 16) = -0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (5, 17) = 0., (5, 18) = -0.2e3*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (5, 19) = 0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (5, 20) = 0., (5, 21) = 0.2e3*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (5, 22) = -0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (5, 23) = 0., (5, 24) = -0.2e3*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (5, 25) = 0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (5, 26) = 0., (5, 27) = 0.2e3*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (5, 28) = -0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (5, 29) = 0., (5, 30) = -0.2e3*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (5, 31) = 0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (5, 32) = 0., (5, 33) = 0.2e3*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (5, 34) = -0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (5, 35) = 0., (5, 36) = -0.2e3*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (5, 37) = -0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (5, 38) = 0., (5, 39) = -0.2e3*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (5, 40) = 0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (5, 41) = 0., (5, 42) = 0.2e3*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (5, 43) = -0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (5, 44) = 0., (5, 45) = -0.2e3*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (5, 46) = 0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (5, 47) = 0., (5, 48) = 0.2e3*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (6, 1) = 0., (6, 2) = -0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (6, 3) = -2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (6, 4) = 0., (6, 5) = 0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (6, 6) = 2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (6, 7) = 0., (6, 8) = -0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (6, 9) = -2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (6, 10) = 0., (6, 11) = 0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (6, 12) = 2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (6, 13) = 0., (6, 14) = 0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (6, 15) = 2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (6, 16) = 0., (6, 17) = -0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (6, 18) = -2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (6, 19) = 0., (6, 20) = 0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (6, 21) = 2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/((0.1e-1*y+.11)*Pi), (6, 22) = 0., (6, 23) = -0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (6, 24) = -2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/((0.1e-1*y+.11)*Pi), (6, 25) = 0., (6, 26) = 0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (6, 27) = 2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (6, 28) = 0., (6, 29) = -0.1e2*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (6, 30) = -2*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (6, 31) = 0., (6, 32) = 0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (6, 33) = 2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (6, 34) = 0., (6, 35) = -0.1e2*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (6, 36) = -2*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (6, 37) = 0., (6, 38) = -0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (6, 39) = -2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (6, 40) = 0., (6, 41) = 0.1e2*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (6, 42) = 2*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi), (6, 43) = 0., (6, 44) = -0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (6, 45) = -2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/((0.1e-1*y+.11)*Pi), (6, 46) = 0., (6, 47) = 0.1e2*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (6, 48) = 2*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/((0.1e-1*y+.11)*Pi)})).(Matrix(6, 48, {(1, 1) = -269.2307692*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)-1.153846154*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (1, 2) = -.3672806379*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (1, 3) = -5.769230769*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (1, 4) = 269.2307692*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)+1.153846154*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (1, 5) = .3672806379*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (1, 6) = 5.769230769*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (1, 7) = -269.2307692*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)-1.153846154*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (1, 8) = -.3672806379*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (1, 9) = -5.769230769*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (1, 10) = 269.2307692*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)+1.153846154*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (1, 11) = .3672806379*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (1, 12) = 5.769230769*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (1, 13) = 269.2307692*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)+1.153846154*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (1, 14) = .3672806379*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (1, 15) = 5.769230769*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (1, 16) = -269.2307692*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)-1.153846154*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (1, 17) = -.3672806379*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (1, 18) = -5.769230769*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (1, 19) = 269.2307692*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)+1.153846154*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (1, 20) = .3672806379*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (1, 21) = 5.769230769*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (1, 22) = -269.2307692*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)-1.153846154*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (1, 23) = -.3672806379*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (1, 24) = -5.769230769*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (1, 25) = 269.2307692*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)+1.153846154*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (1, 26) = .3672806379*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (1, 27) = 5.769230769*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (1, 28) = -269.2307692*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)-1.153846154*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (1, 29) = -.3672806379*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (1, 30) = -5.769230769*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (1, 31) = 269.2307692*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)+1.153846154*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (1, 32) = .3672806379*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (1, 33) = 5.769230769*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (1, 34) = -269.2307692*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)-1.153846154*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (1, 35) = -.3672806379*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (1, 36) = -5.769230769*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (1, 37) = -269.2307692*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)-1.153846154*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (1, 38) = -.3672806379*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (1, 39) = -5.769230769*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (1, 40) = 269.2307692*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)+1.153846154*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (1, 41) = .3672806379*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (1, 42) = 5.769230769*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (1, 43) = -269.2307692*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)-1.153846154*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (1, 44) = -.3672806379*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (1, 45) = -5.769230769*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (1, 46) = 269.2307692*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)+1.153846154*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (1, 47) = .3672806379*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (1, 48) = 5.769230769*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (2, 1) = -115.3846154*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)-2.692307692*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 2) = -.8569881549*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 3) = -5.769230769*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (2, 4) = 115.3846154*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)+2.692307692*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 5) = .8569881549*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 6) = 5.769230769*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (2, 7) = -115.3846154*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)-2.692307692*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 8) = -.8569881549*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 9) = -5.769230769*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (2, 10) = 115.3846154*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)+2.692307692*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 11) = .8569881549*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 12) = 5.769230769*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (2, 13) = 115.3846154*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)+2.692307692*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 14) = .8569881549*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 15) = 5.769230769*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (2, 16) = -115.3846154*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)-2.692307692*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 17) = -.8569881549*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 18) = -5.769230769*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (2, 19) = 115.3846154*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)+2.692307692*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 20) = .8569881549*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (2, 21) = 5.769230769*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (2, 22) = -115.3846154*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)-2.692307692*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 23) = -.8569881549*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (2, 24) = -5.769230769*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (2, 25) = 115.3846154*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)+2.692307692*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 26) = .8569881549*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 27) = 5.769230769*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (2, 28) = -115.3846154*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)-2.692307692*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 29) = -.8569881549*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 30) = -5.769230769*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (2, 31) = 115.3846154*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)+2.692307692*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 32) = .8569881549*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 33) = 5.769230769*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (2, 34) = -115.3846154*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)-2.692307692*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 35) = -.8569881549*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 36) = -5.769230769*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (2, 37) = -115.3846154*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)-2.692307692*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 38) = -.8569881549*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 39) = -5.769230769*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (2, 40) = 115.3846154*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)+2.692307692*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 41) = .8569881549*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 42) = 5.769230769*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (2, 43) = -115.3846154*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)-2.692307692*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 44) = -.8569881549*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (2, 45) = -5.769230769*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (2, 46) = 115.3846154*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)+2.692307692*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 47) = .8569881549*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (2, 48) = 5.769230769*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (3, 1) = -115.3846154*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)-1.153846154*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (3, 2) = -.3672806379*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (3, 3) = -13.46153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (3, 4) = 115.3846154*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)+1.153846154*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (3, 5) = .3672806379*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (3, 6) = 13.46153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (3, 7) = -115.3846154*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)-1.153846154*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (3, 8) = -.3672806379*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (3, 9) = -13.46153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (3, 10) = 115.3846154*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)+1.153846154*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (3, 11) = .3672806379*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (3, 12) = 13.46153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (3, 13) = 115.3846154*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)+1.153846154*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (3, 14) = .3672806379*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (3, 15) = 13.46153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (3, 16) = -115.3846154*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)-1.153846154*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (3, 17) = -.3672806379*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (3, 18) = -13.46153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (3, 19) = 115.3846154*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)+1.153846154*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (3, 20) = .3672806379*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (3, 21) = 13.46153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (3, 22) = -115.3846154*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)-1.153846154*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (3, 23) = -.3672806379*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (3, 24) = -13.46153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (3, 25) = 115.3846154*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)+1.153846154*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (3, 26) = .3672806379*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (3, 27) = 13.46153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (3, 28) = -115.3846154*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)-1.153846154*E*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (3, 29) = -.3672806379*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (3, 30) = -13.46153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (3, 31) = 115.3846154*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)+1.153846154*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (3, 32) = .3672806379*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (3, 33) = 13.46153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (3, 34) = -115.3846154*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)-1.153846154*E*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (3, 35) = -.3672806379*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (3, 36) = -13.46153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (3, 37) = -115.3846154*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)-1.153846154*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (3, 38) = -.3672806379*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (3, 39) = -13.46153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (3, 40) = 115.3846154*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)+1.153846154*E*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (3, 41) = .3672806379*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (3, 42) = 13.46153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (3, 43) = -115.3846154*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)-1.153846154*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (3, 44) = -.3672806379*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (3, 45) = -13.46153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (3, 46) = 115.3846154*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)+1.153846154*E*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (3, 47) = .3672806379*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (3, 48) = 13.46153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (4, 1) = -.2448537586*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (4, 2) = -.3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (4, 3) = 0., (4, 4) = .2448537586*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (4, 5) = .3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (4, 6) = 0., (4, 7) = -.2448537586*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (4, 8) = -.3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (4, 9) = 0., (4, 10) = .2448537586*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (4, 11) = .3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (4, 12) = 0., (4, 13) = .2448537586*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (4, 14) = .3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (4, 15) = 0., (4, 16) = -.2448537586*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (4, 17) = -.3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (4, 18) = 0., (4, 19) = .2448537586*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (4, 20) = .3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (4, 21) = 0., (4, 22) = -.2448537586*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (4, 23) = -.3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (4, 24) = 0., (4, 25) = .2448537586*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (4, 26) = .3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (4, 27) = 0., (4, 28) = -.2448537586*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (4, 29) = -.3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (4, 30) = 0., (4, 31) = .2448537586*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (4, 32) = .3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (4, 33) = 0., (4, 34) = -.2448537586*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (4, 35) = -.3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (4, 36) = 0., (4, 37) = -.2448537586*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (4, 38) = -.3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (4, 39) = 0., (4, 40) = .2448537586*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (4, 41) = .3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (4, 42) = 0., (4, 43) = -.2448537586*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (4, 44) = -.3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (4, 45) = 0., (4, 46) = .2448537586*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (4, 47) = .3846153846*E*(0.2e3*Y-2/(0.1e-1*y+.11))*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (4, 48) = 0., (5, 1) = -3.846153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (5, 2) = 0., (5, 3) = -76.92307692*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (5, 4) = 3.846153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (5, 5) = 0., (5, 6) = 76.92307692*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (5, 7) = -3.846153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (5, 8) = 0., (5, 9) = -76.92307692*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (5, 10) = 3.846153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (5, 11) = 0., (5, 12) = 76.92307692*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (5, 13) = 3.846153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (5, 14) = 0., (5, 15) = 76.92307692*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (5, 16) = -3.846153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (5, 17) = 0., (5, 18) = -76.92307692*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (5, 19) = 3.846153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (5, 20) = 0., (5, 21) = 76.92307692*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (5, 22) = -3.846153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (5, 23) = 0., (5, 24) = -76.92307692*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (5, 25) = 3.846153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (5, 26) = 0., (5, 27) = 76.92307692*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (5, 28) = -3.846153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (5, 29) = 0., (5, 30) = -76.92307692*E*Y*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (5, 31) = 3.846153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (5, 32) = 0., (5, 33) = 76.92307692*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (5, 34) = -3.846153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (5, 35) = 0., (5, 36) = -76.92307692*E*Y*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (5, 37) = -3.846153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (5, 38) = 0., (5, 39) = -76.92307692*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (5, 40) = 3.846153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (5, 41) = 0., (5, 42) = 76.92307692*E*Y*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (5, 43) = -3.846153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (5, 44) = 0., (5, 45) = -76.92307692*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (5, 46) = 3.846153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (5, 47) = 0., (5, 48) = 76.92307692*E*Y*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (6, 1) = 0., (6, 2) = -3.846153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (6, 3) = -.2448537586*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (6, 4) = 0., (6, 5) = 3.846153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (6, 6) = .2448537586*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (6, 7) = 0., (6, 8) = -3.846153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (6, 9) = -.2448537586*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (6, 10) = 0., (6, 11) = 3.846153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (6, 12) = .2448537586*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (6, 13) = 0., (6, 14) = 3.846153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1), (6, 15) = .2448537586*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (6, 16) = 0., (6, 17) = -3.846153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1), (6, 18) = -.2448537586*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (6, 19) = 0., (6, 20) = 3.846153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1), (6, 21) = .2448537586*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y+1)/(0.1e-1*y+.11), (6, 22) = 0., (6, 23) = -3.846153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1), (6, 24) = -.2448537586*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y+1)/(0.1e-1*y+.11), (6, 25) = 0., (6, 26) = 3.846153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (6, 27) = .2448537586*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (6, 28) = 0., (6, 29) = -3.846153846*E*X*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (6, 30) = -.2448537586*E*Z*((1/8)*cos(pi*z)-(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (6, 31) = 0., (6, 32) = 3.846153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (6, 33) = .2448537586*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (6, 34) = 0., (6, 35) = -3.846153846*E*X*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (6, 36) = -.2448537586*E*Z*((1/8)*sin(pi*z)-(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (6, 37) = 0., (6, 38) = -3.846153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1), (6, 39) = -.2448537586*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (6, 40) = 0., (6, 41) = 3.846153846*E*X*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1), (6, 42) = .2448537586*E*Z*((1/8)*cos(pi*z)+(1/8)*cos(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11), (6, 43) = 0., (6, 44) = -3.846153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1), (6, 45) = -.2448537586*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x+1)*(y-1)/(0.1e-1*y+.11), (6, 46) = 0., (6, 47) = 3.846153846*E*X*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1), (6, 48) = .2448537586*E*Z*((1/8)*sin(pi*z)+(1/8)*sin(pi*z)^2)*(x-1)*(y-1)/(0.1e-1*y+.11)})), true)

(9)

int(int(int(S, z = -1 .. 1), y = -1 .. 1), x = -1 .. 1)

Warning,  computation interrupted

 

NULL

 

Download maple2.mw

Dear All

Is there anybody who is working on contruction of optimal Lie algebra using Maple packages like DifferentialGeometry and LieAlgebra, I tried to find commands for constructing algebra in these packages but could not find such commands. I am sure these are only package that might help me. Following is Lie algebra whose optimal system is required:

 

with(PDEtools, SymmetryCommutator, InfinitesimalGenerator):

S[1], S[2], S[3], S[4], S[5], S[6], S[7], S[8], S[9], S[10], S[11] := [_xi[x] = 0, _xi[y] = 0, _xi[t] = 0, _eta[u] = 0, _eta[v] = 1], [_xi[x] = 0, _xi[y] = t, _xi[t] = 0, _eta[u] = 0, _eta[v] = x], [_xi[x] = 0, _xi[y] = y, _xi[t] = 2*t, _eta[u] = -2*u, _eta[v] = -v], [_xi[x] = 0, _xi[y] = 0, _xi[t] = 0, _eta[u] = 0, _eta[v] = t], [_xi[x] = 0, _xi[y] = 0, _xi[t] = 0, _eta[u] = 1, _eta[v] = y], [_xi[x] = 0, _xi[y] = 0, _xi[t] = 1, _eta[u] = 0, _eta[v] = 0], [_xi[x] = 1, _xi[y] = 0, _xi[t] = 0, _eta[u] = 0, _eta[v] = 0], [_xi[x] = t, _xi[y] = 0, _xi[t] = 0, _eta[u] = 1, _eta[v] = 0], [_xi[x] = y, _xi[y] = 0, _xi[t] = 0, _eta[u] = 0, _eta[v] = 2*x], [_xi[x] = x, _xi[y] = 0, _xi[t] = -t, _eta[u] = 2*u, _eta[v] = 2*v], [_xi[x] = 0, _xi[y] = 1, _xi[t] = 0, _eta[u] = 0, _eta[v] = 0]

[_xi[x] = 0, _xi[y] = 0, _xi[t] = 0, _eta[u] = 0, _eta[v] = 1], [_xi[x] = 0, _xi[y] = t, _xi[t] = 0, _eta[u] = 0, _eta[v] = x], [_xi[x] = 0, _xi[y] = y, _xi[t] = 2*t, _eta[u] = -2*u, _eta[v] = -v], [_xi[x] = 0, _xi[y] = 0, _xi[t] = 0, _eta[u] = 0, _eta[v] = t], [_xi[x] = 0, _xi[y] = 0, _xi[t] = 0, _eta[u] = 1, _eta[v] = y], [_xi[x] = 0, _xi[y] = 0, _xi[t] = 1, _eta[u] = 0, _eta[v] = 0], [_xi[x] = 1, _xi[y] = 0, _xi[t] = 0, _eta[u] = 0, _eta[v] = 0], [_xi[x] = t, _xi[y] = 0, _xi[t] = 0, _eta[u] = 1, _eta[v] = 0], [_xi[x] = y, _xi[y] = 0, _xi[t] = 0, _eta[u] = 0, _eta[v] = 2*x], [_xi[x] = x, _xi[y] = 0, _xi[t] = -t, _eta[u] = 2*u, _eta[v] = 2*v], [_xi[x] = 0, _xi[y] = 1, _xi[t] = 0, _eta[u] = 0, _eta[v] = 0]

(1)

G[1] := InfinitesimalGenerator(S[1], [u(x, y, t), v(x, y, t)]); 1; G[2] := InfinitesimalGenerator(S[2], [u(x, y, t), v(x, y, t)]); 1; G[3] := InfinitesimalGenerator(S[3], [u(x, y, t), v(x, y, t)]); 1; G[4] := InfinitesimalGenerator(S[4], [u(x, y, t), v(x, y, t)]); 1; G[5] := InfinitesimalGenerator(S[5], [u(x, y, t), v(x, y, t)]); 1; G[6] := InfinitesimalGenerator(S[6], [u(x, y, t), v(x, y, t)]); 1; G[7] := InfinitesimalGenerator(S[7], [u(x, y, t), v(x, y, t)]); 1; G[8] := InfinitesimalGenerator(S[8], [u(x, y, t), v(x, y, t)]); 1; G[9] := InfinitesimalGenerator(S[9], [u(x, y, t), v(x, y, t)]); 1; G[10] := InfinitesimalGenerator(S[10], [u(x, y, t), v(x, y, t)]); 1; G[11] := InfinitesimalGenerator(S[11], [u(x, y, t), v(x, y, t)])

proc (f) options operator, arrow; diff(f, v) end proc

 

proc (f) options operator, arrow; t*(diff(f, y))+x*(diff(f, v)) end proc

 

proc (f) options operator, arrow; y*(diff(f, y))+2*t*(diff(f, t))-2*u*(diff(f, u))-v*(diff(f, v)) end proc

 

proc (f) options operator, arrow; t*(diff(f, v)) end proc

 

proc (f) options operator, arrow; diff(f, u)+y*(diff(f, v)) end proc

 

proc (f) options operator, arrow; diff(f, t) end proc

 

proc (f) options operator, arrow; diff(f, x) end proc

 

proc (f) options operator, arrow; t*(diff(f, x))+diff(f, u) end proc

 

proc (f) options operator, arrow; y*(diff(f, x))+2*x*(diff(f, v)) end proc

 

proc (f) options operator, arrow; x*(diff(f, x))-t*(diff(f, t))+2*u*(diff(f, u))+2*v*(diff(f, v)) end proc

 

proc (f) options operator, arrow; diff(f, y) end proc

(2)

``

 

Download Lie_Algebra_Classification.mwLie_Algebra_Classification.mw

   
 

 

 

   

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(2)
 

``

Regards

Dear All

How can we collect coefficient wrt certain differential ration in an expression?

See for detail:


with(PDEtools):

u := a[0]+a[1]*(diff(phi(xi), xi))/phi(xi)

a[0]+a[1]*(diff(phi(xi), xi))/phi(xi)

(1)

-k*(diff(u, `$`(xi, 2)))+alpha*(diff(u, `$`(xi, 3)))

-k*(a[1]*(diff(diff(diff(phi(xi), xi), xi), xi))/phi(xi)-3*a[1]*(diff(diff(phi(xi), xi), xi))*(diff(phi(xi), xi))/phi(xi)^2+2*a[1]*(diff(phi(xi), xi))^3/phi(xi)^3)+alpha*(a[1]*(diff(diff(diff(diff(phi(xi), xi), xi), xi), xi))/phi(xi)-4*a[1]*(diff(diff(diff(phi(xi), xi), xi), xi))*(diff(phi(xi), xi))/phi(xi)^2+12*a[1]*(diff(diff(phi(xi), xi), xi))*(diff(phi(xi), xi))^2/phi(xi)^3-3*a[1]*(diff(diff(phi(xi), xi), xi))^2/phi(xi)^2-6*a[1]*(diff(phi(xi), xi))^4/phi(xi)^4)

(2)

expand(dsubs(diff(phi(xi), `$`(xi, 2)) = -lambda*(diff(phi(xi), xi))-mu*phi(xi), -k*(a[1]*(diff(diff(diff(phi(xi), xi), xi), xi))/phi(xi)-3*a[1]*(diff(diff(phi(xi), xi), xi))*(diff(phi(xi), xi))/phi(xi)^2+2*a[1]*(diff(phi(xi), xi))^3/phi(xi)^3)+alpha*(a[1]*(diff(diff(diff(diff(phi(xi), xi), xi), xi), xi))/phi(xi)-4*a[1]*(diff(diff(diff(phi(xi), xi), xi), xi))*(diff(phi(xi), xi))/phi(xi)^2+12*a[1]*(diff(diff(phi(xi), xi), xi))*(diff(phi(xi), xi))^2/phi(xi)^3-3*a[1]*(diff(diff(phi(xi), xi), xi))^2/phi(xi)^2-6*a[1]*(diff(phi(xi), xi))^4/phi(xi)^4)))

-a[1]*(diff(phi(xi), xi))*alpha*lambda^3/phi(xi)-a[1]*alpha*lambda^2*mu-7*a[1]*(diff(phi(xi), xi))^2*alpha*lambda^2/phi(xi)^2-8*a[1]*(diff(phi(xi), xi))*alpha*lambda*mu/phi(xi)-a[1]*(diff(phi(xi), xi))*k*lambda^2/phi(xi)-2*a[1]*alpha*mu^2-a[1]*k*lambda*mu-12*a[1]*(diff(phi(xi), xi))^3*alpha*lambda/phi(xi)^3-8*a[1]*(diff(phi(xi), xi))^2*alpha*mu/phi(xi)^2-3*a[1]*(diff(phi(xi), xi))^2*k*lambda/phi(xi)^2-2*a[1]*(diff(phi(xi), xi))*k*mu/phi(xi)-6*a[1]*(diff(phi(xi), xi))^4*alpha/phi(xi)^4-2*a[1]*(diff(phi(xi), xi))^3*k/phi(xi)^3

(3)

How ca extract coefficients of fraction (diff(phi(xi), xi))/phi(xi) in (3) ????


Download Coefficients_of_Fractions.mw

Regards

solution of system of differential equations

is {a(t) = 1, b(t) = exp(t), c(t) = 0}

1 = exp(t), since t = 0, is characteristic equation = (y-0)?
0 = exp(t), how to find this characteristic equation when division is zero?
exp(t) = exp(t), is characteristic equation = (y-t)?

Dear all

I have problem related to collection of coefficient of differtials in differential expression containing multiple dependent variables and we want to collect coefficient wrt to selected dependent variables. Please see attached Maple file for details.

 


with(PDEtools):

DepVars := [u(x, t), v(x, t), a[1](t), a[2](t), a[3](t), b[1](t), b[2](t), b[3](t), r(x, t), s[1](x, t), p[1](x, t), s[2](x, t), p[2](x, t)]

[u(x, t), v(x, t), a[1](t), a[2](t), a[3](t), b[1](t), b[2](t), b[3](t), r(x, t), s[1](x, t), p[1](x, t), s[2](x, t), p[2](x, t)]

(1)

alias(u = u(x, t), v = v(x, t), a[1] = a[1](t), a[2] = a[2](t), a[3] = a[3](t), b[1] = b[1](t), b[2] = b[2](t), b[3] = b[3](t), r = r(x, t), s[1] = s[1](x, t), p[1] = p[1](x, t), s[2] = s[2](x, t), p[2] = p[2](x, t))

u, v, a[1], a[2], a[3], b[1], b[2], b[3], r, s[1], p[1], s[2], p[2]

(2)

Suppose we differential expression like:

a[1]*(diff(u, x))*s[1]*u-2*a[1]*u*(diff(r, x))*(diff(u, x))+2*a[2]*(diff(v, x))*s[2]*v-2*a[2]*v*(diff(r, x))*(diff(v, x))-(diff(a[3], t))*r*(diff(u, x))/a[3]+diff(p[1], t)+a[3]*(diff(p[1], x, x, x))+(diff(r, t))*(diff(u, x))+(diff(s[1], t))*u-(diff(a[3], t))*s[1]*u/a[3]-s[1]*a[2]*v*(diff(v, x))-(diff(a[3], t))*a[1]*u*(diff(u, x))/a[3]-(diff(a[3], t))*a[2]*v*(diff(v, x))/a[3]-3*(diff(r, x))*p[1]+(diff(a[1], t))*u*(diff(u, x))+(diff(a[2], t))*v*(diff(v, x))+a[2]*(diff(v, x))*p[2]+a[2]*v^2*(diff(s[2], x))+a[2]*v*(diff(p[2], x))+a[1]*u*(diff(p[1], x))+a[1]*(diff(u, x))*p[1]+a[1]*u^2*(diff(s[1], x))+3*a[3]*(diff(s[1], x))*(diff(u, x, x))+3*a[3]*(diff(s[1], x, x))*(diff(u, x))+a[3]*(diff(r, x, x, x))*(diff(u, x))-(diff(a[3], t))*p[1]/a[3]-3*r*(diff(r, x))*(diff(u, x))-3*(diff(r, x))*s[1]*u+a[3]*(diff(s[1], x, x, x))*u+3*a[3]*(diff(r, x, x))*(diff(u, x, x)) = 0

3*a[3]*(diff(diff(r, x), x))*(diff(diff(u, x), x))+3*a[3]*(diff(s[1], x))*(diff(diff(u, x), x))+3*a[3]*(diff(diff(s[1], x), x))*(diff(u, x))+a[3]*(diff(diff(diff(r, x), x), x))*(diff(u, x))+a[3]*(diff(diff(diff(s[1], x), x), x))*u+diff(p[1], t)+(diff(r, t))*(diff(u, x))+(diff(s[1], t))*u-3*(diff(r, x))*p[1]+a[3]*(diff(diff(diff(p[1], x), x), x))-(diff(a[3], t))*a[1]*u*(diff(u, x))/a[3]-(diff(a[3], t))*a[2]*v*(diff(v, x))/a[3]+a[1]*(diff(u, x))*s[1]*u-2*a[1]*u*(diff(r, x))*(diff(u, x))+2*a[2]*(diff(v, x))*s[2]*v-2*a[2]*v*(diff(r, x))*(diff(v, x))-(diff(a[3], t))*r*(diff(u, x))/a[3]-(diff(a[3], t))*s[1]*u/a[3]-s[1]*a[2]*v*(diff(v, x))+(diff(a[1], t))*u*(diff(u, x))+a[1]*u*(diff(p[1], x))+a[2]*v*(diff(p[2], x))+a[2]*v^2*(diff(s[2], x))+a[2]*(diff(v, x))*p[2]+a[1]*(diff(u, x))*p[1]+a[1]*u^2*(diff(s[1], x))-(diff(a[3], t))*p[1]/a[3]-3*r*(diff(r, x))*(diff(u, x))-3*(diff(r, x))*s[1]*u+(diff(a[2], t))*v*(diff(v, x)) = 0

(3)

We can collect coefficients of differential like u[x], u[x, x], v[x], u, vin following manner:

The Procedure

   

 

 

Now how can we collect coefficents with respect to u[x], u[x, x], v[x], u, vso that differential expression (3) appear as
"(......)*u+(.......)*v+(......)*u[x]+(........)*uu[x]+(.........)vv[x]+(........)u[xx]  =0....................."????????""

``


Download Collecting_Coefficients_in_Differential_Expression.mw

Regards

Dear Friends

In differential expressions(See Maple file) how to find coefficiets of dependent variable "u(x,t)" and "v(x,t)" and of their differentials ? There is command "dcoeffs(function)", but that work for single dependent variable only but in our case there are two dependent variables in consideration. There are other options like "indets", "specindex" but those do not work.

 


with(PDEtools):

DepVars; -1; [u(x, t), v(x, t), r[1](t), r[2](t), s[1](t), s[2](t), p[1](t), p[2](t), alpha[1](x, t), beta[1](x, t), beta[2](x, t), delta[1](x, t), delta[2](x, t)]

[u(x, t), v(x, t), r[1](t), r[2](t), s[1](t), s[2](t), p[1](t), p[2](t), alpha[1](x, t), beta[1](x, t), beta[2](x, t), delta[1](x, t), delta[2](x, t)]

(1)

alias(u = u(x, t), v = v(x, t), r[1] = r[1](t), r[2] = r[2](t), s[1] = s[1](t), s[2] = s[2](t), p[1] = p[1](t), p[2] = p[2](t), alpha[1] = alpha[1](x, t), beta[1] = beta[1](x, t), beta[2] = beta[2](x, t), delta[1] = delta[1](x, t), delta[2] = delta[2](x, t))

u, v, r[1], r[2], s[1], s[2], p[1], p[2], alpha[1], beta[1], beta[2], delta[1], delta[2]

(2)

(diff(r[1], t))*(-s[1]*u*(diff(u, x))-p[1]*((diff(u, x))*v+u*(diff(v, x)))-alpha[1]*(diff(u, x))-beta[1]*u-delta[1])/r[1]+r[1]*(diff(alpha[1]*(diff(u, x))+beta[1]*u+delta[1], x, x))+(diff(s[1], t))*u*(diff(u, x))+s[1]*(alpha[1]*(diff(u, x))+beta[1]*u+delta[1])*(diff(u, x))+s[1]*u*(diff(alpha[1]*(diff(u, x))+beta[1]*u+delta[1], x))+(diff(p[1], t))*((diff(u, x))*v+u*(diff(v, x)))+p[1]*((diff(alpha[1]*(diff(u, x))+beta[1]*u+delta[1], x))*v+(diff(u, x))*(alpha[1]*(diff(v, x))+beta[2]*v+delta[2])+(alpha[1]*(diff(u, x))+beta[1]*u+delta[1])*(diff(v, x))+u*(diff(alpha[1]*(diff(v, x))+beta[2]*v+delta[2], x)))+(diff(alpha[1], t))*(diff(u, x))+alpha[1]*(diff(alpha[1]*(diff(u, x))+beta[1]*u+delta[1], x))+(diff(beta[1], t))*u+beta[1]*(alpha[1]*(diff(u, x))+beta[1]*u+delta[1])+diff(delta[1], t)

(diff(r[1], t))*(-s[1]*u*(diff(u, x))-p[1]*((diff(u, x))*v+u*(diff(v, x)))-alpha[1]*(diff(u, x))-beta[1]*u-delta[1])/r[1]+r[1]*((diff(diff(alpha[1], x), x))*(diff(u, x))+2*(diff(alpha[1], x))*(diff(diff(u, x), x))+alpha[1]*(diff(diff(diff(u, x), x), x))+(diff(diff(beta[1], x), x))*u+2*(diff(beta[1], x))*(diff(u, x))+beta[1]*(diff(diff(u, x), x))+diff(diff(delta[1], x), x))+(diff(s[1], t))*u*(diff(u, x))+s[1]*(alpha[1]*(diff(u, x))+beta[1]*u+delta[1])*(diff(u, x))+s[1]*u*((diff(alpha[1], x))*(diff(u, x))+alpha[1]*(diff(diff(u, x), x))+(diff(beta[1], x))*u+beta[1]*(diff(u, x))+diff(delta[1], x))+(diff(p[1], t))*((diff(u, x))*v+u*(diff(v, x)))+p[1]*(((diff(alpha[1], x))*(diff(u, x))+alpha[1]*(diff(diff(u, x), x))+(diff(beta[1], x))*u+beta[1]*(diff(u, x))+diff(delta[1], x))*v+(diff(u, x))*(alpha[1]*(diff(v, x))+beta[2]*v+delta[2])+(alpha[1]*(diff(u, x))+beta[1]*u+delta[1])*(diff(v, x))+u*((diff(alpha[1], x))*(diff(v, x))+alpha[1]*(diff(diff(v, x), x))+(diff(beta[2], x))*v+beta[2]*(diff(v, x))+diff(delta[2], x)))+(diff(alpha[1], t))*(diff(u, x))+alpha[1]*((diff(alpha[1], x))*(diff(u, x))+alpha[1]*(diff(diff(u, x), x))+(diff(beta[1], x))*u+beta[1]*(diff(u, x))+diff(delta[1], x))+(diff(beta[1], t))*u+beta[1]*(alpha[1]*(diff(u, x))+beta[1]*u+delta[1])+diff(delta[1], t)

(3)

In above differential expressions how to find coefficiets of dependent variable "u(x,t)" and "v(x,t)" and of their differentials ? There is command "dcoeffs(expr,u(x,t))", but that work for single dependent variable only but in our case there are two dependent variables in consideration. There are other options like "indets", "specindex" but those do not work.

``


Download Coefficients_in_differential_expression.mw

1 2 3 4 5 6 7 Last Page 1 of 9