https://github.com/nikiforovavas/the_perturbations
Tip revision: 25262796111ac9f629734af8176d948bfe03521f authored by Vasilisa Nikiforova on 08 November 2017, 21:35:36 UTC
Rename folder
Rename folder
Tip revision: 2526279
Zeroth part_html1.html
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<title>Zeroth part_html1.html</title>
<!-- Created by Maple 16.02, Mac OS X -->
</head>
<a name="MapleAutoBookmark1" />
<body bgcolor="FFFFFF">
<p align="left"><font color="#ff0000" size="3" face="monospace"><strong><img src="images/Zeroth part_html_1.gif" width="161" height="14" alt="" align="center" border="0"></strong></font> </p>
<p align="left"><font color="#ff0000" size="3" face="monospace"><strong></strong></font> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_2.gif" width="46" height="14" alt="restart; 1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_3.gif" width="76" height="14" alt="with(linalg); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_4.gif" width="119" height="14" alt="with(LinearAlgebra); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_5.gif" width="79" height="14" alt="with(tensor); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_6.gif" width="506" height="14" alt="delta := create([-1, -1], array(1 .. 3, 1 .. 3, symmetric, sparse, [(1, 1) = 1, (2, 2) = 1, (3, 3) = 1])); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_7.gif" width="569" height="14" alt="Delta := create([-1, -1], array(1 .. 4, 1 .. 4, symmetric, sparse, [(1, 1) = -1, (2, 2) = 1, (3, 3) = 1, (4, 4) = 1])); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_8.gif" width="308" height="14" alt="Stupiddelta := create([-1, -1], array(1 .. 4, 1 .. 4, symmetric, sparse, [(1, 1) = 1, (2, 2) = 1, (3, 3) = 1, (4, 4) = 1])); -1" align="center" border="0"><br><img src="images/Zeroth part_html_9.gif" width="292" height="14" alt="Stupiddelta := create([-1, -1], array(1 .. 4, 1 .. 4, symmetric, sparse, [(1, 1) = 1, (2, 2) = 1, (3, 3) = 1, (4, 4) = 1])); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_10.gif" width="268" height="14" alt="E1 := create([-1, -1], array(1 .. 4, 1 .. 4, symmetric, sparse, [(1, 1) = `+`(`-`(Phi(x))), (2, 2) = psi(x), (3, 3) = psi(x), (4, 4) = psi(x)])); -1" align="center" border="0"><br><img src="images/Zeroth part_html_11.gif" width="399" height="14" alt="E1 := create([-1, -1], array(1 .. 4, 1 .. 4, symmetric, sparse, [(1, 1) = `+`(`-`(Phi(x))), (2, 2) = psi(x), (3, 3) = psi(x), (4, 4) = psi(x)])); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_12.gif" width="333" height="18" alt="ekv[dd] := create([-1, -1], array(1 .. 4, 1 .. 4, symmetric, sparse)); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_13.gif" width="350" height="14" alt="" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_14.gif" width="576" height="18" alt="for a to 4 do for b to 4 do get_compts(ekv[dd])[a, b] := `+`(get_compts(E1)[a, b], get_compts(Delta)[a, b]) end do end do; 1" align="center" border="0"><br><img src="images/Zeroth part_html_15.gif" width="576" height="14" alt="for a to 4 do for b to 4 do get_compts(ekv[dd])[a, b] := `+`(get_compts(E1)[a, b], get_compts(Delta)[a, b]) end do end do; 1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_16.gif" width="110" height="18" alt="get_compts(ekv[dd]); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_17.gif" width="333" height="18" alt="ekv[uu] := create([-1, -1], array(1 .. 4, 1 .. 4, symmetric, sparse)); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_18.gif" width="576" height="18" alt="for a to 4 do for b to 4 do get_compts(ekv[uu])[a, b] := `+`(`-`(get_compts(E1)[a, b]), get_compts(Delta)[a, b]) end do end do; 1" align="center" border="0"><br><img src="images/Zeroth part_html_19.gif" width="576" height="14" alt="for a to 4 do for b to 4 do get_compts(ekv[uu])[a, b] := `+`(`-`(get_compts(E1)[a, b]), get_compts(Delta)[a, b]) end do end do; 1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_20.gif" width="110" height="18" alt="get_compts(ekv[uu]); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_21.gif" width="333" height="18" alt="ekv[du] := create([-1, -1], array(1 .. 4, 1 .. 4, symmetric, sparse)); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_22.gif" width="208" height="20" alt="get_compts(ekv[du])[1, 1] := `+`(1, `-`(Phi(x))); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_23.gif" width="576" height="18" alt="for a to 3 do for b to 3 do get_compts(ekv[du])[`+`(a, 1), `+`(b, 1)] := `+`(`-`(get_compts(E1)[`+`(a, 1), `+`(b, 1)]), get_compts(delta)[a, b]) end do end do; 1" align="center" border="0"><br><img src="images/Zeroth part_html_24.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(ekv[du])[`+`(a, 1), `+`(b, 1)] := `+`(`-`(get_compts(E1)[`+`(a, 1), `+`(b, 1)]), get_compts(delta)[a, b]) end do end do; 1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_25.gif" width="110" height="18" alt="get_compts(ekv[du]); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_26.gif" width="333" height="18" alt="ekv[ud] := create([-1, -1], array(1 .. 4, 1 .. 4, symmetric, sparse)); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_27.gif" width="209" height="20" alt="get_compts(ekv[ud])[1, 1] := `+`(1, Phi(x)); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_28.gif" width="576" height="18" alt="for a to 3 do for b to 3 do get_compts(ekv[ud])[`+`(a, 1), `+`(b, 1)] := `+`(get_compts(E1)[`+`(a, 1), `+`(b, 1)], get_compts(delta)[a, b]) end do end do; 1" align="center" border="0"><br><img src="images/Zeroth part_html_29.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(ekv[ud])[`+`(a, 1), `+`(b, 1)] := `+`(get_compts(E1)[`+`(a, 1), `+`(b, 1)], get_compts(delta)[a, b]) end do end do; 1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_30.gif" width="110" height="18" alt="get_compts(ekv[ud]); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_31.gif" width="374" height="14" alt="" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_32.gif" width="557" height="14" alt="eta := create([-1, -1], array(1 .. 4, 1 .. 4, symmetric, sparse, [(1, 1) = -1, (2, 2) = 1, (3, 3) = 1, (4, 4) = 1])); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_33.gif" width="185" height="14" alt="Levi_Civita(1, 3, cov_LC, con_LC); 1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_34.gif" width="401" height="14" alt="epsilon := eval(cov_LC); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_35.gif" width="196" height="14" alt="Levi_Civita(-1, 4, cov_LC, con_LC); 1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_36.gif" width="316" height="14" alt="eps := eval(cov_LC); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_37.gif" width="214" height="18" alt="K := create([-1], array([k[1], k[2], k[3]])); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_38.gif" width="392" height="14" alt="" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_39.gif" width="576" height="14" alt="gogo := create([-1, -1, -1], array(1 .. 4, 1 .. 4, 1 .. 4, sparse, [])); -1" align="center" border="0"><br><img src="images/Zeroth part_html_40.gif" width="576" height="14" alt="gogo := create([-1, -1, -1], array(1 .. 4, 1 .. 4, 1 .. 4, sparse, [])); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_41.gif" width="242" height="14" alt="get_compts(gogo)[1, 1, 1] := diff(Phi(x), x); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_42.gif" width="576" height="14" alt="for mm to 3 do for nn to 3 do for pp to 3 do get_compts(gogo)[`+`(mm, 1), `+`(nn, 1), `+`(pp, 1)] := `*`(I, `*`(psi(x), `*`(`+`(`*`(get_compts(K)[nn], `*`(get_compts(delta)[mm, pp])), `*`(get_compts(K..." align="center" border="0"><br><img src="images/Zeroth part_html_43.gif" width="576" height="14" alt="for mm to 3 do for nn to 3 do for pp to 3 do get_compts(gogo)[`+`(mm, 1), `+`(nn, 1), `+`(pp, 1)] := `*`(I, `*`(psi(x), `*`(`+`(`*`(get_compts(K)[nn], `*`(get_compts(delta)[mm, pp])), `*`(get_compts(K..." align="center" border="0"><br><img src="images/Zeroth part_html_44.gif" width="576" height="14" alt="for mm to 3 do for nn to 3 do for pp to 3 do get_compts(gogo)[`+`(mm, 1), `+`(nn, 1), `+`(pp, 1)] := `*`(I, `*`(psi(x), `*`(`+`(`*`(get_compts(K)[nn], `*`(get_compts(delta)[mm, pp])), `*`(get_compts(K..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_45.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for A to 3 do get_compts(gogo)[1, `+`(a, 1), `+`(b, 1)] := `*`(diff(psi(x), x), `*`(get_compts(delta)[a, b])); get_compts(gogo)[`+`(a, 1), 1, `+`(b, 1)] := `*`(diff(psi(x),..." align="center" border="0"><br><img src="images/Zeroth part_html_46.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for A to 3 do get_compts(gogo)[1, `+`(a, 1), `+`(b, 1)] := `*`(diff(psi(x), x), `*`(get_compts(delta)[a, b])); get_compts(gogo)[`+`(a, 1), 1, `+`(b, 1)] := `*`(diff(psi(x),..." align="center" border="0"><br><img src="images/Zeroth part_html_47.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for A to 3 do get_compts(gogo)[1, `+`(a, 1), `+`(b, 1)] := `*`(diff(psi(x), x), `*`(get_compts(delta)[a, b])); get_compts(gogo)[`+`(a, 1), 1, `+`(b, 1)] := `*`(diff(psi(x),..." align="center" border="0"><br><img src="images/Zeroth part_html_48.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for A to 3 do get_compts(gogo)[1, `+`(a, 1), `+`(b, 1)] := `*`(diff(psi(x), x), `*`(get_compts(delta)[a, b])); get_compts(gogo)[`+`(a, 1), 1, `+`(b, 1)] := `*`(diff(psi(x),..." align="center" border="0"><br><img src="images/Zeroth part_html_49.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for A to 3 do get_compts(gogo)[1, `+`(a, 1), `+`(b, 1)] := `*`(diff(psi(x), x), `*`(get_compts(delta)[a, b])); get_compts(gogo)[`+`(a, 1), 1, `+`(b, 1)] := `*`(diff(psi(x),..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_50.gif" width="392" height="14" alt="" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_51.gif" width="340" height="14" alt="Aup := create([-1, -1, -1], array(1 .. 4, 1 .. 4, 1 .. 4, sparse, [])); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_52.gif" width="576" height="14" alt="for a to 3 do get_compts(Aup)[1, `+`(a, 1), 1] := `+`(`-`(`*`(`+`(I), `*`(get_compts(K)[a], `*`(Phi(x))))), `*`(get_compts(K)[a], `*`(xi(x)))); get_compts(Aup)[`+`(a, 1), 1, 1] := `+`(`-`(get_compts(A..." align="center" border="0"><br><img src="images/Zeroth part_html_53.gif" width="576" height="14" alt="for a to 3 do get_compts(Aup)[1, `+`(a, 1), 1] := `+`(`-`(`*`(`+`(I), `*`(get_compts(K)[a], `*`(Phi(x))))), `*`(get_compts(K)[a], `*`(xi(x)))); get_compts(Aup)[`+`(a, 1), 1, 1] := `+`(`-`(get_compts(A..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_54.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(Aup)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)[a,..." align="center" border="0"><br><img src="images/Zeroth part_html_55.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(Aup)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)[a,..." align="center" border="0"><br><img src="images/Zeroth part_html_56.gif" width="576" height="19" alt="for a to 3 do for b to 3 do get_compts(Aup)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)[a,..." align="center" border="0"><br><img src="images/Zeroth part_html_57.gif" width="576" height="19" alt="for a to 3 do for b to 3 do get_compts(Aup)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)[a,..." align="center" border="0"><br><img src="images/Zeroth part_html_58.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(Aup)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)[a,..." align="center" border="0"><br><img src="images/Zeroth part_html_59.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(Aup)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)[a,..." align="center" border="0"><br><img src="images/Zeroth part_html_60.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(Aup)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)[a,..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_61.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Aup)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, dad]))), `*`(`+`(`*`(get_compts(K)[a], `*`(ge..." align="center" border="0"><br><img src="images/Zeroth part_html_62.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Aup)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, dad]))), `*`(`+`(`*`(get_compts(K)[a], `*`(ge..." align="center" border="0"><br><img src="images/Zeroth part_html_63.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Aup)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, dad]))), `*`(`+`(`*`(get_compts(K)[a], `*`(ge..." align="center" border="0"><br><img src="images/Zeroth part_html_64.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Aup)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, dad]))), `*`(`+`(`*`(get_compts(K)[a], `*`(ge..." align="center" border="0"><br><img src="images/Zeroth part_html_65.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Aup)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, dad]))), `*`(`+`(`*`(get_compts(K)[a], `*`(ge..." align="center" border="0"><br><img src="images/Zeroth part_html_66.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Aup)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, dad]))), `*`(`+`(`*`(get_compts(K)[a], `*`(ge..." align="center" border="0"><br><img src="images/Zeroth part_html_67.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Aup)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, dad]))), `*`(`+`(`*`(get_compts(K)[a], `*`(ge..." align="center" border="0"><br><img src="images/Zeroth part_html_68.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Aup)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, dad]))), `*`(`+`(`*`(get_compts(K)[a], `*`(ge..." align="center" border="0"><br><img src="images/Zeroth part_html_69.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Aup)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, dad]))), `*`(`+`(`*`(get_compts(K)[a], `*`(ge..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_70.gif" width="392" height="14" alt="" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_71.gif" width="350" height="14" alt="Ashka := create([-1, -1, -1], array(1 .. 4, 1 .. 4, 1 .. 4, sparse, [])); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_72.gif" width="576" height="14" alt="for a to 3 do get_compts(Ashka)[1, `+`(a, 1), 1] := `+`(`*`(I, `*`(get_compts(K)[a], `*`(Phi(x)))), `-`(`*`(get_compts(K)[a], `*`(xi(x))))); get_compts(Ashka)[`+`(a, 1), 1, 1] := `+`(`-`(get_compts(As..." align="center" border="0"><br><img src="images/Zeroth part_html_73.gif" width="576" height="14" alt="for a to 3 do get_compts(Ashka)[1, `+`(a, 1), 1] := `+`(`*`(I, `*`(get_compts(K)[a], `*`(Phi(x)))), `-`(`*`(get_compts(K)[a], `*`(xi(x))))); get_compts(Ashka)[`+`(a, 1), 1, 1] := `+`(`-`(get_compts(As..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_74.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(Ashka)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)[..." align="center" border="0"><br><img src="images/Zeroth part_html_75.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(Ashka)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)[..." align="center" border="0"><br><img src="images/Zeroth part_html_76.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(Ashka)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)[..." align="center" border="0"><br><img src="images/Zeroth part_html_77.gif" width="576" height="19" alt="for a to 3 do for b to 3 do get_compts(Ashka)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)[..." align="center" border="0"><br><img src="images/Zeroth part_html_78.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(Ashka)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)[..." align="center" border="0"><br><img src="images/Zeroth part_html_79.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(Ashka)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)[..." align="center" border="0"><br><img src="images/Zeroth part_html_80.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(Ashka)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)[..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_81.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Ashka)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, dad]))), `*`(`+`(`*`(get_compts(K)[a], `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_82.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Ashka)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, dad]))), `*`(`+`(`*`(get_compts(K)[a], `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_83.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Ashka)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, dad]))), `*`(`+`(`*`(get_compts(K)[a], `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_84.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Ashka)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, dad]))), `*`(`+`(`*`(get_compts(K)[a], `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_85.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Ashka)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, dad]))), `*`(`+`(`*`(get_compts(K)[a], `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_86.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Ashka)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, dad]))), `*`(`+`(`*`(get_compts(K)[a], `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_87.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Ashka)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, dad]))), `*`(`+`(`*`(get_compts(K)[a], `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_88.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Ashka)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, dad]))), `*`(`+`(`*`(get_compts(K)[a], `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_89.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Ashka)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, dad]))), `*`(`+`(`*`(get_compts(K)[a], `*`(..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_90.gif" width="410" height="14" alt="" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_91.gif" width="356" height="14" alt="Ashka1 := create([-1, -1, -1], array(1 .. 4, 1 .. 4, 1 .. 4, sparse, [])); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_92.gif" width="576" height="14" alt="for a to 3 do get_compts(Ashka1)[1, `+`(a, 1), 1] := `+`(`*`(I, `*`(get_compts(K)[a], `*`(Phi(x)))), `-`(`*`(get_compts(K)[a], `*`(xi(x))))); get_compts(Ashka1)[`+`(a, 1), 1, 1] := `+`(`-`(get_compts(..." align="center" border="0"><br><img src="images/Zeroth part_html_93.gif" width="576" height="14" alt="for a to 3 do get_compts(Ashka1)[1, `+`(a, 1), 1] := `+`(`*`(I, `*`(get_compts(K)[a], `*`(Phi(x)))), `-`(`*`(get_compts(K)[a], `*`(xi(x))))); get_compts(Ashka1)[`+`(a, 1), 1, 1] := `+`(`-`(get_compts(..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_94.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(Ashka1)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)..." align="center" border="0"><br><img src="images/Zeroth part_html_95.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(Ashka1)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)..." align="center" border="0"><br><img src="images/Zeroth part_html_96.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(Ashka1)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)..." align="center" border="0"><br><img src="images/Zeroth part_html_97.gif" width="576" height="19" alt="for a to 3 do for b to 3 do get_compts(Ashka1)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)..." align="center" border="0"><br><img src="images/Zeroth part_html_98.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(Ashka1)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)..." align="center" border="0"><br><img src="images/Zeroth part_html_99.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(Ashka1)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)..." align="center" border="0"><br><img src="images/Zeroth part_html_100.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(Ashka1)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(`+`(`*`(get_compts(K)[1], `*`(get_compts(epsilon)[a, b, 1])), `*`(get_compts(K)[2], `*`(get_compts(epsilon)..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_101.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Ashka1)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(`+`(`*`(get_compts(K)[a], `*`(get_compts(delta)[b, dad])), `-`(`*`(get_compts(K)[b], `*`(ge..." align="center" border="0"><br><img src="images/Zeroth part_html_102.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Ashka1)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(`+`(`*`(get_compts(K)[a], `*`(get_compts(delta)[b, dad])), `-`(`*`(get_compts(K)[b], `*`(ge..." align="center" border="0"><br><img src="images/Zeroth part_html_103.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Ashka1)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(`+`(`*`(get_compts(K)[a], `*`(get_compts(delta)[b, dad])), `-`(`*`(get_compts(K)[b], `*`(ge..." align="center" border="0"><br><img src="images/Zeroth part_html_104.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Ashka1)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(`+`(`*`(get_compts(K)[a], `*`(get_compts(delta)[b, dad])), `-`(`*`(get_compts(K)[b], `*`(ge..." align="center" border="0"><br><img src="images/Zeroth part_html_105.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Ashka1)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(`+`(`*`(get_compts(K)[a], `*`(get_compts(delta)[b, dad])), `-`(`*`(get_compts(K)[b], `*`(ge..." align="center" border="0"><br><img src="images/Zeroth part_html_106.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Ashka1)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(`+`(`*`(get_compts(K)[a], `*`(get_compts(delta)[b, dad])), `-`(`*`(get_compts(K)[b], `*`(ge..." align="center" border="0"><br><img src="images/Zeroth part_html_107.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Ashka1)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(`+`(`*`(get_compts(K)[a], `*`(get_compts(delta)[b, dad])), `-`(`*`(get_compts(K)[b], `*`(ge..." align="center" border="0"><br><img src="images/Zeroth part_html_108.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for dad to 3 do get_compts(Ashka1)[`+`(a, 1), `+`(b, 1), `+`(dad, 1)] := `+`(`*`(`+`(`*`(get_compts(K)[a], `*`(get_compts(delta)[b, dad])), `-`(`*`(get_compts(K)[b], `*`(ge..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_109.gif" width="443" height="14" alt="" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_110.gif" width="576" height="14" alt="dd := proc (f, x, n) local s; if n = 1 then return diff(f, x) elif n = 2 then s := simplify(`+`(f, `-`(subs({M(x) = 0, Phi(x) = 0, Q(x) = 0, chi(x) = 0, psi(x) = 0, rho(x) = 0, sigma(x) = 0, theta(x) ..." align="center" border="0"><br><img src="images/Zeroth part_html_111.gif" width="576" height="14" alt="dd := proc (f, x, n) local s; if n = 1 then return diff(f, x) elif n = 2 then s := simplify(`+`(f, `-`(subs({M(x) = 0, Phi(x) = 0, Q(x) = 0, chi(x) = 0, psi(x) = 0, rho(x) = 0, sigma(x) = 0, theta(x) ..." align="center" border="0"><br><img src="images/Zeroth part_html_112.gif" width="576" height="18" alt="dd := proc (f, x, n) local s; if n = 1 then return diff(f, x) elif n = 2 then s := simplify(`+`(f, `-`(subs({M(x) = 0, Phi(x) = 0, Q(x) = 0, chi(x) = 0, psi(x) = 0, rho(x) = 0, sigma(x) = 0, theta(x) ..." align="center" border="0"><br><img src="images/Zeroth part_html_113.gif" width="576" height="18" alt="dd := proc (f, x, n) local s; if n = 1 then return diff(f, x) elif n = 2 then s := simplify(`+`(f, `-`(subs({M(x) = 0, Phi(x) = 0, Q(x) = 0, chi(x) = 0, psi(x) = 0, rho(x) = 0, sigma(x) = 0, theta(x) ..." align="center" border="0"><br><img src="images/Zeroth part_html_114.gif" width="576" height="14" alt="dd := proc (f, x, n) local s; if n = 1 then return diff(f, x) elif n = 2 then s := simplify(`+`(f, `-`(subs({M(x) = 0, Phi(x) = 0, Q(x) = 0, chi(x) = 0, psi(x) = 0, rho(x) = 0, sigma(x) = 0, theta(x) ..." align="center" border="0"><br><img src="images/Zeroth part_html_115.gif" width="576" height="18" alt="dd := proc (f, x, n) local s; if n = 1 then return diff(f, x) elif n = 2 then s := simplify(`+`(f, `-`(subs({M(x) = 0, Phi(x) = 0, Q(x) = 0, chi(x) = 0, psi(x) = 0, rho(x) = 0, sigma(x) = 0, theta(x) ..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_116.gif" width="308" height="14" alt="" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_117.gif" width="381" height="18" alt="F[abcd] := create([-1, -1, -1, -1], array(1 .. 4, 1 .. 4, 1 .. 4, 1 .. 4, sparse, [])); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_118.gif" width="576" height="23" alt="for a to 3 do for b to 3 do get_compts(F[abcd])[1, `+`(a, 1), 1, `+`(b, 1)] := `+`(`*`(get_compts(delta)[a, b], `*`(`+`(`*`(exp(`+`(`*`(2, `*`(Pi(x))))), `*`(lambda, `*`(f, `*`(`+`(1, `-`(psi(x)), `-`..." align="center" border="0"><br><img src="images/Zeroth part_html_119.gif" width="576" height="19" alt="for a to 3 do for b to 3 do get_compts(F[abcd])[1, `+`(a, 1), 1, `+`(b, 1)] := `+`(`*`(get_compts(delta)[a, b], `*`(`+`(`*`(exp(`+`(`*`(2, `*`(Pi(x))))), `*`(lambda, `*`(f, `*`(`+`(1, `-`(psi(x)), `-`..." align="center" border="0"><br><img src="images/Zeroth part_html_120.gif" width="576" height="23" alt="for a to 3 do for b to 3 do get_compts(F[abcd])[1, `+`(a, 1), 1, `+`(b, 1)] := `+`(`*`(get_compts(delta)[a, b], `*`(`+`(`*`(exp(`+`(`*`(2, `*`(Pi(x))))), `*`(lambda, `*`(f, `*`(`+`(1, `-`(psi(x)), `-`..." align="center" border="0"><br><img src="images/Zeroth part_html_121.gif" width="576" height="23" alt="for a to 3 do for b to 3 do get_compts(F[abcd])[1, `+`(a, 1), 1, `+`(b, 1)] := `+`(`*`(get_compts(delta)[a, b], `*`(`+`(`*`(exp(`+`(`*`(2, `*`(Pi(x))))), `*`(lambda, `*`(f, `*`(`+`(1, `-`(psi(x)), `-`..." align="center" border="0"><br><img src="images/Zeroth part_html_122.gif" width="576" height="18" alt="for a to 3 do for b to 3 do get_compts(F[abcd])[1, `+`(a, 1), 1, `+`(b, 1)] := `+`(`*`(get_compts(delta)[a, b], `*`(`+`(`*`(exp(`+`(`*`(2, `*`(Pi(x))))), `*`(lambda, `*`(f, `*`(`+`(1, `-`(psi(x)), `-`..." align="center" border="0"><br><img src="images/Zeroth part_html_123.gif" width="576" height="18" alt="for a to 3 do for b to 3 do get_compts(F[abcd])[1, `+`(a, 1), 1, `+`(b, 1)] := `+`(`*`(get_compts(delta)[a, b], `*`(`+`(`*`(exp(`+`(`*`(2, `*`(Pi(x))))), `*`(lambda, `*`(f, `*`(`+`(1, `-`(psi(x)), `-`..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><font color="#000000" size="3" face="Times New Roman"></font> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_124.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[1, `+`(a, 1), `+`(b, 1), `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(exp(Pi(x)), `*`(`+`(`*`(2, `*`(g, `*`(diff(psi(x), x)))),..." align="center" border="0"><br><img src="images/Zeroth part_html_125.gif" width="576" height="19" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[1, `+`(a, 1), `+`(b, 1), `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(exp(Pi(x)), `*`(`+`(`*`(2, `*`(g, `*`(diff(psi(x), x)))),..." align="center" border="0"><br><img src="images/Zeroth part_html_126.gif" width="576" height="22" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[1, `+`(a, 1), `+`(b, 1), `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(exp(Pi(x)), `*`(`+`(`*`(2, `*`(g, `*`(diff(psi(x), x)))),..." align="center" border="0"><br><img src="images/Zeroth part_html_127.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[1, `+`(a, 1), `+`(b, 1), `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(exp(Pi(x)), `*`(`+`(`*`(2, `*`(g, `*`(diff(psi(x), x)))),..." align="center" border="0"><br><img src="images/Zeroth part_html_128.gif" width="576" height="19" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[1, `+`(a, 1), `+`(b, 1), `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(exp(Pi(x)), `*`(`+`(`*`(2, `*`(g, `*`(diff(psi(x), x)))),..." align="center" border="0"><br><img src="images/Zeroth part_html_129.gif" width="576" height="22" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[1, `+`(a, 1), `+`(b, 1), `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(exp(Pi(x)), `*`(`+`(`*`(2, `*`(g, `*`(diff(psi(x), x)))),..." align="center" border="0"><br><img src="images/Zeroth part_html_130.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[1, `+`(a, 1), `+`(b, 1), `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(exp(Pi(x)), `*`(`+`(`*`(2, `*`(g, `*`(diff(psi(x), x)))),..." align="center" border="0"><br><img src="images/Zeroth part_html_131.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[1, `+`(a, 1), `+`(b, 1), `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(exp(Pi(x)), `*`(`+`(`*`(2, `*`(g, `*`(diff(psi(x), x)))),..." align="center" border="0"><br><img src="images/Zeroth part_html_132.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[1, `+`(a, 1), `+`(b, 1), `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(exp(Pi(x)), `*`(`+`(`*`(2, `*`(g, `*`(diff(psi(x), x)))),..." align="center" border="0"><br><img src="images/Zeroth part_html_133.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[1, `+`(a, 1), `+`(b, 1), `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(exp(Pi(x)), `*`(`+`(`*`(2, `*`(g, `*`(diff(psi(x), x)))),..." align="center" border="0"><br><img src="images/Zeroth part_html_134.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[1, `+`(a, 1), `+`(b, 1), `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(exp(Pi(x)), `*`(`+`(`*`(2, `*`(g, `*`(diff(psi(x), x)))),..." align="center" border="0"><br><img src="images/Zeroth part_html_135.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[1, `+`(a, 1), `+`(b, 1), `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(exp(Pi(x)), `*`(`+`(`*`(2, `*`(g, `*`(diff(psi(x), x)))),..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_136.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), 1, `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(lambda, `*`(g, `*`(exp(`+`(`*`(2, `*`(Pi(x))))), `*`(`+`(..." align="center" border="0"><br><img src="images/Zeroth part_html_137.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), 1, `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(lambda, `*`(g, `*`(exp(`+`(`*`(2, `*`(Pi(x))))), `*`(`+`(..." align="center" border="0"><br><img src="images/Zeroth part_html_138.gif" width="576" height="19" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), 1, `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(lambda, `*`(g, `*`(exp(`+`(`*`(2, `*`(Pi(x))))), `*`(`+`(..." align="center" border="0"><br><img src="images/Zeroth part_html_139.gif" width="576" height="19" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), 1, `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(lambda, `*`(g, `*`(exp(`+`(`*`(2, `*`(Pi(x))))), `*`(`+`(..." align="center" border="0"><br><img src="images/Zeroth part_html_140.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), 1, `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(lambda, `*`(g, `*`(exp(`+`(`*`(2, `*`(Pi(x))))), `*`(`+`(..." align="center" border="0"><br><img src="images/Zeroth part_html_141.gif" width="576" height="17" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), 1, `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(lambda, `*`(g, `*`(exp(`+`(`*`(2, `*`(Pi(x))))), `*`(`+`(..." align="center" border="0"><br><img src="images/Zeroth part_html_142.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), 1, `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(lambda, `*`(g, `*`(exp(`+`(`*`(2, `*`(Pi(x))))), `*`(`+`(..." align="center" border="0"><br><img src="images/Zeroth part_html_143.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), 1, `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(lambda, `*`(g, `*`(exp(`+`(`*`(2, `*`(Pi(x))))), `*`(`+`(..." align="center" border="0"><br><img src="images/Zeroth part_html_144.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), 1, `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(lambda, `*`(g, `*`(exp(`+`(`*`(2, `*`(Pi(x))))), `*`(`+`(..." align="center" border="0"><br><img src="images/Zeroth part_html_145.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), 1, `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(lambda, `*`(g, `*`(exp(`+`(`*`(2, `*`(Pi(x))))), `*`(`+`(..." align="center" border="0"><br><img src="images/Zeroth part_html_146.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), 1, `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(lambda, `*`(g, `*`(exp(`+`(`*`(2, `*`(Pi(x))))), `*`(`+`(..." align="center" border="0"><br><img src="images/Zeroth part_html_147.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), 1, `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(lambda, `*`(g, `*`(exp(`+`(`*`(2, `*`(Pi(x))))), `*`(`+`(..." align="center" border="0"><br><img src="images/Zeroth part_html_148.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), 1, `+`(c, 1)] := `+`(`*`(get_compts(epsilon)[a, b, c], `*`(lambda, `*`(g, `*`(exp(`+`(`*`(2, `*`(Pi(x))))), `*`(`+`(..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><font color="#000000" size="3" face="Times New Roman"></font> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_149.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do for d to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), `+`(c, 1), `+`(d, 1)] := `+`(`*`(`+`(`*`(get_compts(delta)[a, c], `*`(get_compts(delta)[b, d])), `-`(`..." align="center" border="0"><br><img src="images/Zeroth part_html_150.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for c to 3 do for d to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), `+`(c, 1), `+`(d, 1)] := `+`(`*`(`+`(`*`(get_compts(delta)[a, c], `*`(get_compts(delta)[b, d])), `-`(`..." align="center" border="0"><br><img src="images/Zeroth part_html_151.gif" width="576" height="19" alt="for a to 3 do for b to 3 do for c to 3 do for d to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), `+`(c, 1), `+`(d, 1)] := `+`(`*`(`+`(`*`(get_compts(delta)[a, c], `*`(get_compts(delta)[b, d])), `-`(`..." align="center" border="0"><br><img src="images/Zeroth part_html_152.gif" width="576" height="19" alt="for a to 3 do for b to 3 do for c to 3 do for d to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), `+`(c, 1), `+`(d, 1)] := `+`(`*`(`+`(`*`(get_compts(delta)[a, c], `*`(get_compts(delta)[b, d])), `-`(`..." align="center" border="0"><br><img src="images/Zeroth part_html_153.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for c to 3 do for d to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), `+`(c, 1), `+`(d, 1)] := `+`(`*`(`+`(`*`(get_compts(delta)[a, c], `*`(get_compts(delta)[b, d])), `-`(`..." align="center" border="0"><br><img src="images/Zeroth part_html_154.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do for d to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), `+`(c, 1), `+`(d, 1)] := `+`(`*`(`+`(`*`(get_compts(delta)[a, c], `*`(get_compts(delta)[b, d])), `-`(`..." align="center" border="0"><br><img src="images/Zeroth part_html_155.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do for d to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), `+`(c, 1), `+`(d, 1)] := `+`(`*`(`+`(`*`(get_compts(delta)[a, c], `*`(get_compts(delta)[b, d])), `-`(`..." align="center" border="0"><br><img src="images/Zeroth part_html_156.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do for d to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), `+`(c, 1), `+`(d, 1)] := `+`(`*`(`+`(`*`(get_compts(delta)[a, c], `*`(get_compts(delta)[b, d])), `-`(`..." align="center" border="0"><br><img src="images/Zeroth part_html_157.gif" width="576" height="17" alt="for a to 3 do for b to 3 do for c to 3 do for d to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), `+`(c, 1), `+`(d, 1)] := `+`(`*`(`+`(`*`(get_compts(delta)[a, c], `*`(get_compts(delta)[b, d])), `-`(`..." align="center" border="0"><br><img src="images/Zeroth part_html_158.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do for d to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), `+`(c, 1), `+`(d, 1)] := `+`(`*`(`+`(`*`(get_compts(delta)[a, c], `*`(get_compts(delta)[b, d])), `-`(`..." align="center" border="0"><br><img src="images/Zeroth part_html_159.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do for d to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), `+`(c, 1), `+`(d, 1)] := `+`(`*`(`+`(`*`(get_compts(delta)[a, c], `*`(get_compts(delta)[b, d])), `-`(`..." align="center" border="0"><br><img src="images/Zeroth part_html_160.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for c to 3 do for d to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), `+`(c, 1), `+`(d, 1)] := `+`(`*`(`+`(`*`(get_compts(delta)[a, c], `*`(get_compts(delta)[b, d])), `-`(`..." align="center" border="0"><br><img src="images/Zeroth part_html_161.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for c to 3 do for d to 3 do get_compts(F[abcd])[`+`(a, 1), `+`(b, 1), `+`(c, 1), `+`(d, 1)] := `+`(`*`(`+`(`*`(get_compts(delta)[a, c], `*`(get_compts(delta)[b, d])), `-`(`..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_162.gif" width="286" height="18" alt="F[ab] := create([-1, -1], array(1 .. 4, 1 .. 4, sparse, [])); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_163.gif" width="576" height="21" alt="get_compts(F[ab])[1, 1] := simplify(`+`(`-`(get_compts(F[abcd])[1, 1, 1, 1]), get_compts(F[abcd])[2, 1, 2, 1], get_compts(F[abcd])[3, 1, 3, 1], get_compts(F[abcd])[4, 1, 4, 1]), {`+`(`*`(`^`(k[1], 2))..." align="center" border="0"><br><img src="images/Zeroth part_html_164.gif" width="576" height="21" alt="get_compts(F[ab])[1, 1] := simplify(`+`(`-`(get_compts(F[abcd])[1, 1, 1, 1]), get_compts(F[abcd])[2, 1, 2, 1], get_compts(F[abcd])[3, 1, 3, 1], get_compts(F[abcd])[4, 1, 4, 1]), {`+`(`*`(`^`(k[1], 2))..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_165.gif" width="576" height="21" alt="for a to 3 do get_compts(F[ab])[`+`(a, 1), 1] := simplify(`+`(`-`(get_compts(F[abcd])[1, `+`(a, 1), 1, 1]), get_compts(F[abcd])[2, `+`(a, 1), 2, 1], get_compts(F[abcd])[3, `+`(a, 1), 3, 1], get_compts..." align="center" border="0"><br><img src="images/Zeroth part_html_166.gif" width="576" height="21" alt="for a to 3 do get_compts(F[ab])[`+`(a, 1), 1] := simplify(`+`(`-`(get_compts(F[abcd])[1, `+`(a, 1), 1, 1]), get_compts(F[abcd])[2, `+`(a, 1), 2, 1], get_compts(F[abcd])[3, `+`(a, 1), 3, 1], get_compts..." align="center" border="0"><br><img src="images/Zeroth part_html_167.gif" width="576" height="21" alt="for a to 3 do get_compts(F[ab])[`+`(a, 1), 1] := simplify(`+`(`-`(get_compts(F[abcd])[1, `+`(a, 1), 1, 1]), get_compts(F[abcd])[2, `+`(a, 1), 2, 1], get_compts(F[abcd])[3, `+`(a, 1), 3, 1], get_compts..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_168.gif" width="576" height="21" alt="for a to 3 do get_compts(F[ab])[1, `+`(a, 1)] := simplify(`+`(`-`(get_compts(F[abcd])[1, 1, 1, `+`(a, 1)]), get_compts(F[abcd])[2, 1, 2, `+`(a, 1)], get_compts(F[abcd])[3, 1, 3, `+`(a, 1)], get_compts..." align="center" border="0"><br><img src="images/Zeroth part_html_169.gif" width="576" height="21" alt="for a to 3 do get_compts(F[ab])[1, `+`(a, 1)] := simplify(`+`(`-`(get_compts(F[abcd])[1, 1, 1, `+`(a, 1)]), get_compts(F[abcd])[2, 1, 2, `+`(a, 1)], get_compts(F[abcd])[3, 1, 3, `+`(a, 1)], get_compts..." align="center" border="0"><br><img src="images/Zeroth part_html_170.gif" width="576" height="21" alt="for a to 3 do get_compts(F[ab])[1, `+`(a, 1)] := simplify(`+`(`-`(get_compts(F[abcd])[1, 1, 1, `+`(a, 1)]), get_compts(F[abcd])[2, 1, 2, `+`(a, 1)], get_compts(F[abcd])[3, 1, 3, `+`(a, 1)], get_compts..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_171.gif" width="576" height="21" alt="for a to 3 do for b to 3 do get_compts(F[ab])[`+`(a, 1), `+`(b, 1)] := simplify(`+`(`-`(get_compts(F[abcd])[1, `+`(a, 1), 1, `+`(b, 1)]), get_compts(F[abcd])[2, `+`(a, 1), 2, `+`(b, 1)], get_compts(F[..." align="center" border="0"><br><img src="images/Zeroth part_html_172.gif" width="576" height="21" alt="for a to 3 do for b to 3 do get_compts(F[ab])[`+`(a, 1), `+`(b, 1)] := simplify(`+`(`-`(get_compts(F[abcd])[1, `+`(a, 1), 1, `+`(b, 1)]), get_compts(F[abcd])[2, `+`(a, 1), 2, `+`(b, 1)], get_compts(F[..." align="center" border="0"><br><img src="images/Zeroth part_html_173.gif" width="576" height="21" alt="for a to 3 do for b to 3 do get_compts(F[ab])[`+`(a, 1), `+`(b, 1)] := simplify(`+`(`-`(get_compts(F[abcd])[1, `+`(a, 1), 1, `+`(b, 1)]), get_compts(F[abcd])[2, `+`(a, 1), 2, `+`(b, 1)], get_compts(F[..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_174.gif" width="576" height="21" alt="F[sk] := simplify(`+`(`-`(get_compts(F[ab])[1, 1]), get_compts(F[ab])[2, 2], get_compts(F[ab])[3, 3], get_compts(F[ab])[4, 4]), {`+`(`*`(`^`(k[1], 2)), `*`(`^`(k[2], 2)), `*`(`^`(k[3], 2))) = `*`(`^`(..." align="center" border="0"><br><img src="images/Zeroth part_html_175.gif" width="576" height="21" alt="F[sk] := simplify(`+`(`-`(get_compts(F[ab])[1, 1]), get_compts(F[ab])[2, 2], get_compts(F[ab])[3, 3], get_compts(F[ab])[4, 4]), {`+`(`*`(`^`(k[1], 2)), `*`(`^`(k[2], 2)), `*`(`^`(k[3], 2))) = `*`(`^`(..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_176.gif" width="14" height="14" alt="" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_177.gif" width="576" height="14" alt="eF := 0; -1; for n to 4 do for m to 4 do for p to 4 do for q to 4 do eF := `+`(eF, `*`(get_compts(eps)[n, m, p, q], `*`(get_compts(F[abcd])[n, m, p, q]))) end do end do end do end do; -1" align="center" border="0"><br><img src="images/Zeroth part_html_178.gif" width="576" height="18" alt="eF := 0; -1; for n to 4 do for m to 4 do for p to 4 do for q to 4 do eF := `+`(eF, `*`(get_compts(eps)[n, m, p, q], `*`(get_compts(F[abcd])[n, m, p, q]))) end do end do end do end do; -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_179.gif" width="576" height="18" alt="simplify(`+`(eF, `-`(add(add(add(add(`*`(get_compts(eps)[n, m, p, q], `*`(get_compts(F[abcd])[n, m, p, q])), n = 1 .. 4), m = 1 .. 4), p = 1 .. 4), q = 1 .. 4)))); 1" align="center" border="0"><br><img src="images/Zeroth part_html_180.gif" width="576" height="18" alt="simplify(`+`(eF, `-`(add(add(add(add(`*`(get_compts(eps)[n, m, p, q], `*`(get_compts(F[abcd])[n, m, p, q])), n = 1 .. 4), m = 1 .. 4), p = 1 .. 4), q = 1 .. 4)))); 1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="center"><table width='100%'>
<tr>
<td valign="top" align="center"><font color="#0000ff" size="3" face="Times New Roman"><img src="images/Zeroth part_html_181.gif" width="14" height="14" alt="0" align="center" border="0"></td>
<td width='5%' align='center'>(1)</td>
</tr>
</table></font> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_182.gif" width="576" height="14" alt="" align="center" border="0"><br><img src="images/Zeroth part_html_183.gif" width="576" height="14" alt="" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_184.gif" width="576" height="18" alt="L := `+`(`+`(`+`(`*`(`*`(C[3], `*`(get_compts(F[ab])[1, 1])), get_compts(F[ab])[1, 1]), `-`(`*`(C[3], `*`(sum(`*`(get_compts(F[ab])[1, i], get_compts(F[ab])[1, i]), i = 2 .. 4)))), `-`(`*`(C[3], `*`(s..." align="center" border="0"><br><img src="images/Zeroth part_html_185.gif" width="576" height="18" alt="L := `+`(`+`(`+`(`*`(`*`(C[3], `*`(get_compts(F[ab])[1, 1])), get_compts(F[ab])[1, 1]), `-`(`*`(C[3], `*`(sum(`*`(get_compts(F[ab])[1, i], get_compts(F[ab])[1, i]), i = 2 .. 4)))), `-`(`*`(C[3], `*`(s..." align="center" border="0"><br><img src="images/Zeroth part_html_186.gif" width="576" height="18" alt="L := `+`(`+`(`+`(`*`(`*`(C[3], `*`(get_compts(F[ab])[1, 1])), get_compts(F[ab])[1, 1]), `-`(`*`(C[3], `*`(sum(`*`(get_compts(F[ab])[1, i], get_compts(F[ab])[1, i]), i = 2 .. 4)))), `-`(`*`(C[3], `*`(s..." align="center" border="0"><br><img src="images/Zeroth part_html_187.gif" width="576" height="18" alt="L := `+`(`+`(`+`(`*`(`*`(C[3], `*`(get_compts(F[ab])[1, 1])), get_compts(F[ab])[1, 1]), `-`(`*`(C[3], `*`(sum(`*`(get_compts(F[ab])[1, i], get_compts(F[ab])[1, i]), i = 2 .. 4)))), `-`(`*`(C[3], `*`(s..." align="center" border="0"><br><img src="images/Zeroth part_html_188.gif" width="576" height="18" alt="L := `+`(`+`(`+`(`*`(`*`(C[3], `*`(get_compts(F[ab])[1, 1])), get_compts(F[ab])[1, 1]), `-`(`*`(C[3], `*`(sum(`*`(get_compts(F[ab])[1, i], get_compts(F[ab])[1, i]), i = 2 .. 4)))), `-`(`*`(C[3], `*`(s..." align="center" border="0"><br><img src="images/Zeroth part_html_189.gif" width="576" height="21" alt="L := `+`(`+`(`+`(`*`(`*`(C[3], `*`(get_compts(F[ab])[1, 1])), get_compts(F[ab])[1, 1]), `-`(`*`(C[3], `*`(sum(`*`(get_compts(F[ab])[1, i], get_compts(F[ab])[1, i]), i = 2 .. 4)))), `-`(`*`(C[3], `*`(s..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_190.gif" width="576" height="14" alt="" align="center" border="0"><br><img src="images/Zeroth part_html_191.gif" width="576" height="14" alt="" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_192.gif" width="576" height="30" alt="Equation[_00] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[1, 1], `*`(`/`(1, 2), `*`(F[sk]))))))), `-`(..." align="center" border="0"><br><img src="images/Zeroth part_html_193.gif" width="576" height="23" alt="Equation[_00] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[1, 1], `*`(`/`(1, 2), `*`(F[sk]))))))), `-`(..." align="center" border="0"><br><img src="images/Zeroth part_html_194.gif" width="576" height="18" alt="Equation[_00] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[1, 1], `*`(`/`(1, 2), `*`(F[sk]))))))), `-`(..." align="center" border="0"><br><img src="images/Zeroth part_html_195.gif" width="576" height="18" alt="Equation[_00] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[1, 1], `*`(`/`(1, 2), `*`(F[sk]))))))), `-`(..." align="center" border="0"><br><img src="images/Zeroth part_html_196.gif" width="576" height="30" alt="Equation[_00] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[1, 1], `*`(`/`(1, 2), `*`(F[sk]))))))), `-`(..." align="center" border="0"><br><img src="images/Zeroth part_html_197.gif" width="576" height="18" alt="Equation[_00] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[1, 1], `*`(`/`(1, 2), `*`(F[sk]))))))), `-`(..." align="center" border="0"><br><img src="images/Zeroth part_html_198.gif" width="576" height="18" alt="Equation[_00] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[1, 1], `*`(`/`(1, 2), `*`(F[sk]))))))), `-`(..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_199.gif" width="576" height="30" alt="Equation[10] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 1])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_200.gif" width="576" height="18" alt="Equation[10] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 1])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_201.gif" width="576" height="18" alt="Equation[10] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 1])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_202.gif" width="576" height="18" alt="Equation[10] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 1])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_203.gif" width="576" height="18" alt="Equation[10] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 1])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_204.gif" width="576" height="18" alt="Equation[10] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 1])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_205.gif" width="576" height="18" alt="Equation[10] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 1])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_206.gif" width="576" height="18" alt="Equation[10] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 1])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_207.gif" width="576" height="18" alt="Equation[10] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 1])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_208.gif" width="576" height="18" alt="Equation[10] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 1])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_209.gif" width="576" height="18" alt="Equation[10] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 1])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_210.gif" width="576" height="18" alt="Equation[10] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 1])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_211.gif" width="576" height="14" alt="Equation[10] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 1])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_212.gif" width="576" height="30" alt="Equation[1] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[1, 2])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(a..." align="center" border="0"><br><img src="images/Zeroth part_html_213.gif" width="576" height="18" alt="Equation[1] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[1, 2])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(a..." align="center" border="0"><br><img src="images/Zeroth part_html_214.gif" width="576" height="18" alt="Equation[1] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[1, 2])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(a..." align="center" border="0"><br><img src="images/Zeroth part_html_215.gif" width="576" height="18" alt="Equation[1] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[1, 2])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(a..." align="center" border="0"><br><img src="images/Zeroth part_html_216.gif" width="576" height="18" alt="Equation[1] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[1, 2])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(a..." align="center" border="0"><br><img src="images/Zeroth part_html_217.gif" width="576" height="18" alt="Equation[1] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[1, 2])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(a..." align="center" border="0"><br><img src="images/Zeroth part_html_218.gif" width="576" height="18" alt="Equation[1] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[1, 2])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(a..." align="center" border="0"><br><img src="images/Zeroth part_html_219.gif" width="576" height="18" alt="Equation[1] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[1, 2])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(a..." align="center" border="0"><br><img src="images/Zeroth part_html_220.gif" width="576" height="18" alt="Equation[1] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[1, 2])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(a..." align="center" border="0"><br><img src="images/Zeroth part_html_221.gif" width="576" height="18" alt="Equation[1] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[1, 2])))), `*`(I, `*`(`*`(`+`(`*`(`/`(3, 2), `*`(a..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><font color="#000000" size="3" face="Times New Roman"></font> </p>
<p align="left"><font color="#000000" size="3" face="Times New Roman"></font> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_222.gif" width="576" height="30" alt="Equation[ab22] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[2, 2], `-`(`*`(`/`(1, 2), `*`(F[sk]))))))))..." align="center" border="0"><br><img src="images/Zeroth part_html_223.gif" width="576" height="30" alt="Equation[ab22] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[2, 2], `-`(`*`(`/`(1, 2), `*`(F[sk]))))))))..." align="center" border="0"><br><img src="images/Zeroth part_html_224.gif" width="576" height="23" alt="Equation[ab22] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[2, 2], `-`(`*`(`/`(1, 2), `*`(F[sk]))))))))..." align="center" border="0"><br><img src="images/Zeroth part_html_225.gif" width="576" height="18" alt="Equation[ab22] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[2, 2], `-`(`*`(`/`(1, 2), `*`(F[sk]))))))))..." align="center" border="0"><br><img src="images/Zeroth part_html_226.gif" width="576" height="18" alt="Equation[ab22] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[2, 2], `-`(`*`(`/`(1, 2), `*`(F[sk]))))))))..." align="center" border="0"><br><img src="images/Zeroth part_html_227.gif" width="576" height="18" alt="Equation[ab22] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[2, 2], `-`(`*`(`/`(1, 2), `*`(F[sk]))))))))..." align="center" border="0"><br><img src="images/Zeroth part_html_228.gif" width="576" height="18" alt="Equation[ab22] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[2, 2], `-`(`*`(`/`(1, 2), `*`(F[sk]))))))))..." align="center" border="0"><br><img src="images/Zeroth part_html_229.gif" width="576" height="18" alt="Equation[ab22] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[2, 2], `-`(`*`(`/`(1, 2), `*`(F[sk]))))))))..." align="center" border="0"><br><img src="images/Zeroth part_html_230.gif" width="576" height="18" alt="Equation[ab22] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[2, 2], `-`(`*`(`/`(1, 2), `*`(F[sk]))))))))..." align="center" border="0"><br><img src="images/Zeroth part_html_231.gif" width="576" height="18" alt="Equation[ab22] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[2, 2], `-`(`*`(`/`(1, 2), `*`(F[sk]))))))))..." align="center" border="0"><br><img src="images/Zeroth part_html_232.gif" width="576" height="18" alt="Equation[ab22] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[2, 2], `-`(`*`(`/`(1, 2), `*`(F[sk]))))))))..." align="center" border="0"><br><img src="images/Zeroth part_html_233.gif" width="576" height="18" alt="Equation[ab22] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[2, 2], `-`(`*`(`/`(1, 2), `*`(F[sk]))))))))..." align="center" border="0"><br><img src="images/Zeroth part_html_234.gif" width="576" height="18" alt="Equation[ab22] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[2, 2], `-`(`*`(`/`(1, 2), `*`(F[sk]))))))))..." align="center" border="0"><br><img src="images/Zeroth part_html_235.gif" width="576" height="30" alt="Equation[ab22] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(`+`(get_compts(F[ab])[2, 2], `-`(`*`(`/`(1, 2), `*`(F[sk]))))))))..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_236.gif" width="576" height="30" alt="Equation[ab23] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 3])))), `-`(`*`(`/`(3, 2), `*`(alpha, `*`(ex..." align="center" border="0"><br><img src="images/Zeroth part_html_237.gif" width="576" height="18" alt="Equation[ab23] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 3])))), `-`(`*`(`/`(3, 2), `*`(alpha, `*`(ex..." align="center" border="0"><br><img src="images/Zeroth part_html_238.gif" width="576" height="18" alt="Equation[ab23] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 3])))), `-`(`*`(`/`(3, 2), `*`(alpha, `*`(ex..." align="center" border="0"><br><img src="images/Zeroth part_html_239.gif" width="576" height="18" alt="Equation[ab23] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 3])))), `-`(`*`(`/`(3, 2), `*`(alpha, `*`(ex..." align="center" border="0"><br><img src="images/Zeroth part_html_240.gif" width="576" height="18" alt="Equation[ab23] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 3])))), `-`(`*`(`/`(3, 2), `*`(alpha, `*`(ex..." align="center" border="0"><br><img src="images/Zeroth part_html_241.gif" width="576" height="18" alt="Equation[ab23] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 3])))), `-`(`*`(`/`(3, 2), `*`(alpha, `*`(ex..." align="center" border="0"><br><img src="images/Zeroth part_html_242.gif" width="576" height="18" alt="Equation[ab23] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 3])))), `-`(`*`(`/`(3, 2), `*`(alpha, `*`(ex..." align="center" border="0"><br><img src="images/Zeroth part_html_243.gif" width="576" height="18" alt="Equation[ab23] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 3])))), `-`(`*`(`/`(3, 2), `*`(alpha, `*`(ex..." align="center" border="0"><br><img src="images/Zeroth part_html_244.gif" width="576" height="18" alt="Equation[ab23] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 3])))), `-`(`*`(`/`(3, 2), `*`(alpha, `*`(ex..." align="center" border="0"><br><img src="images/Zeroth part_html_245.gif" width="576" height="18" alt="Equation[ab23] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 3])))), `-`(`*`(`/`(3, 2), `*`(alpha, `*`(ex..." align="center" border="0"><br><img src="images/Zeroth part_html_246.gif" width="576" height="18" alt="Equation[ab23] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 3])))), `-`(`*`(`/`(3, 2), `*`(alpha, `*`(ex..." align="center" border="0"><br><img src="images/Zeroth part_html_247.gif" width="576" height="18" alt="Equation[ab23] := `+`(`*`(`/`(3, 2), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(exp(`+`(`*`(2, `*`(phi)))), `*`(get_compts(F[ab])[2, 3])))), `-`(`*`(`/`(3, 2), `*`(alpha, `*`(ex..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><font color="#000000" size="3" face="Times New Roman"></font> </p>
<p align="left"><font color="#000000" size="3" face="Times New Roman"></font> </p>
<p align="left"><font color="#000000" size="3" face="Times New Roman"></font> </p>
<p align="left"><font color="#000000" size="3" face="Times New Roman">########################## Torsion equations: #############################</font> </p>
<p align="left"><font color="#000000" size="3" face="Times New Roman"></font> </p>
<p align="left"><font color="#000000" size="3" face="Times New Roman"></font> </p>
<p align="left"><font color="#000000" size="3" face="Times New Roman"></font> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_248.gif" width="286" height="18" alt="P[ab] := create([-1, -1], array(1 .. 4, 1 .. 4, sparse, [])); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_249.gif" width="576" height="18" alt="for a to 4 do for b to 4 do get_compts(P[ab])[a, b] := `+`(`*`(C[3], `*`(get_compts(F[ab])[a, b])), `*`(C[4], `*`(get_compts(F[ab])[b, a]))) end do end do; 1" align="center" border="0"><br><img src="images/Zeroth part_html_250.gif" width="576" height="18" alt="for a to 4 do for b to 4 do get_compts(P[ab])[a, b] := `+`(`*`(C[3], `*`(get_compts(F[ab])[a, b])), `*`(C[4], `*`(get_compts(F[ab])[b, a]))) end do end do; 1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_251.gif" width="102" height="18" alt="P[sk] := `+`(`-`(`*`(3, `*`(C[5], `*`(F[sk]))))); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_252.gif" width="466" height="18" alt="H[abc] := create([-1, -1, -1], array(1 .. 4, 1 .. 4, 1 .. 4, sparse, [])); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_253.gif" width="576" height="37" alt="for a to 3 do get_compts(H[abc])[1, `+`(a, 1), 1] := `+`(`-`(`*`(2, `*`(get_compts(K)[a], `*`(M(x), `*`(`*`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`))), `/`(1, 2))))))))..." align="center" border="0"><br><img src="images/Zeroth part_html_254.gif" width="576" height="18" alt="for a to 3 do get_compts(H[abc])[1, `+`(a, 1), 1] := `+`(`-`(`*`(2, `*`(get_compts(K)[a], `*`(M(x), `*`(`*`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`))), `/`(1, 2))))))))..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_255.gif" width="576" height="22" alt="for a to 3 do for b to 3 do get_compts(H[abc])[1, `+`(a, 1), `+`(b, 1)] := `+`(`*`(`*`(exp(Pi(x)), `+`(`-`(`*`(2, `*`(f))))), `*`(get_compts(delta)[a, b], `*`(`*`(`+`(`*`(3, `*`(`#mover(mi("α",f..." align="center" border="0"><br><img src="images/Zeroth part_html_256.gif" width="576" height="37" alt="for a to 3 do for b to 3 do get_compts(H[abc])[1, `+`(a, 1), `+`(b, 1)] := `+`(`*`(`*`(exp(Pi(x)), `+`(`-`(`*`(2, `*`(f))))), `*`(get_compts(delta)[a, b], `*`(`*`(`+`(`*`(3, `*`(`#mover(mi("α",f..." align="center" border="0"><br><img src="images/Zeroth part_html_257.gif" width="576" height="37" alt="for a to 3 do for b to 3 do get_compts(H[abc])[1, `+`(a, 1), `+`(b, 1)] := `+`(`*`(`*`(exp(Pi(x)), `+`(`-`(`*`(2, `*`(f))))), `*`(get_compts(delta)[a, b], `*`(`*`(`+`(`*`(3, `*`(`#mover(mi("α",f..." align="center" border="0"><br><img src="images/Zeroth part_html_258.gif" width="576" height="37" alt="for a to 3 do for b to 3 do get_compts(H[abc])[1, `+`(a, 1), `+`(b, 1)] := `+`(`*`(`*`(exp(Pi(x)), `+`(`-`(`*`(2, `*`(f))))), `*`(get_compts(delta)[a, b], `*`(`*`(`+`(`*`(3, `*`(`#mover(mi("α",f..." align="center" border="0"><br><img src="images/Zeroth part_html_259.gif" width="576" height="37" alt="for a to 3 do for b to 3 do get_compts(H[abc])[1, `+`(a, 1), `+`(b, 1)] := `+`(`*`(`*`(exp(Pi(x)), `+`(`-`(`*`(2, `*`(f))))), `*`(get_compts(delta)[a, b], `*`(`*`(`+`(`*`(3, `*`(`#mover(mi("α",f..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_260.gif" width="576" height="18" alt="for a to 3 do for b to 3 do get_compts(H[abc])[`+`(a, 1), `+`(b, 1), 1] := `+`(`-`(`*`(2, `*`(rho(x), `*`(sum(`*`(get_compts(epsilon)[a, b, i], `*`(get_compts(K)[i])), i = 1 .. 3), `*`(`*`(`+`(`*`(3, ..." align="center" border="0"><br><img src="images/Zeroth part_html_261.gif" width="576" height="37" alt="for a to 3 do for b to 3 do get_compts(H[abc])[`+`(a, 1), `+`(b, 1), 1] := `+`(`-`(`*`(2, `*`(rho(x), `*`(sum(`*`(get_compts(epsilon)[a, b, i], `*`(get_compts(K)[i])), i = 1 .. 3), `*`(`*`(`+`(`*`(3, ..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_262.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(H[abc])[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`-`(`*`(2, `*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, j], `*`(`*`(`+`(`*`(3, `*`(`#mover(..." align="center" border="0"><br><img src="images/Zeroth part_html_263.gif" width="576" height="37" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(H[abc])[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`-`(`*`(2, `*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, j], `*`(`*`(`+`(`*`(3, `*`(`#mover(..." align="center" border="0"><br><img src="images/Zeroth part_html_264.gif" width="576" height="37" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(H[abc])[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`-`(`*`(2, `*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, j], `*`(`*`(`+`(`*`(3, `*`(`#mover(..." align="center" border="0"><br><img src="images/Zeroth part_html_265.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(H[abc])[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`-`(`*`(2, `*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, j], `*`(`*`(`+`(`*`(3, `*`(`#mover(..." align="center" border="0"><br><img src="images/Zeroth part_html_266.gif" width="576" height="37" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(H[abc])[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`-`(`*`(2, `*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, j], `*`(`*`(`+`(`*`(3, `*`(`#mover(..." align="center" border="0"><br><img src="images/Zeroth part_html_267.gif" width="576" height="37" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(H[abc])[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`-`(`*`(2, `*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, j], `*`(`*`(`+`(`*`(3, `*`(`#mover(..." align="center" border="0"><br><img src="images/Zeroth part_html_268.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(H[abc])[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`-`(`*`(2, `*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, j], `*`(`*`(`+`(`*`(3, `*`(`#mover(..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_269.gif" width="500" height="18" alt="Hup[abc] := create([-1, -1, -1], array(1 .. 4, 1 .. 4, 1 .. 4, sparse, [])); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_270.gif" width="576" height="37" alt="for a to 3 do get_compts(Hup[abc])[1, `+`(a, 1), 1] := `+`(`*`(2, `*`(get_compts(K)[a], `*`(M(x), `*`(`*`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`))), `/`(1, 2))))))); g..." align="center" border="0"><br><img src="images/Zeroth part_html_271.gif" width="576" height="18" alt="for a to 3 do get_compts(Hup[abc])[1, `+`(a, 1), 1] := `+`(`*`(2, `*`(get_compts(K)[a], `*`(M(x), `*`(`*`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`))), `/`(1, 2))))))); g..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_272.gif" width="576" height="22" alt="for a to 3 do for b to 3 do get_compts(Hup[abc])[1, `+`(a, 1), `+`(b, 1)] := `+`(`-`(`*`(`*`(exp(Pi(x)), `+`(`-`(`*`(2, `*`(f))))), `*`(get_compts(delta)[a, b], `*`(`*`(`+`(`*`(3, `*`(`#mover(mi("&alp..." align="center" border="0"><br><img src="images/Zeroth part_html_273.gif" width="576" height="37" alt="for a to 3 do for b to 3 do get_compts(Hup[abc])[1, `+`(a, 1), `+`(b, 1)] := `+`(`-`(`*`(`*`(exp(Pi(x)), `+`(`-`(`*`(2, `*`(f))))), `*`(get_compts(delta)[a, b], `*`(`*`(`+`(`*`(3, `*`(`#mover(mi("&alp..." align="center" border="0"><br><img src="images/Zeroth part_html_274.gif" width="576" height="37" alt="for a to 3 do for b to 3 do get_compts(Hup[abc])[1, `+`(a, 1), `+`(b, 1)] := `+`(`-`(`*`(`*`(exp(Pi(x)), `+`(`-`(`*`(2, `*`(f))))), `*`(get_compts(delta)[a, b], `*`(`*`(`+`(`*`(3, `*`(`#mover(mi("&alp..." align="center" border="0"><br><img src="images/Zeroth part_html_275.gif" width="576" height="37" alt="for a to 3 do for b to 3 do get_compts(Hup[abc])[1, `+`(a, 1), `+`(b, 1)] := `+`(`-`(`*`(`*`(exp(Pi(x)), `+`(`-`(`*`(2, `*`(f))))), `*`(get_compts(delta)[a, b], `*`(`*`(`+`(`*`(3, `*`(`#mover(mi("&alp..." align="center" border="0"><br><img src="images/Zeroth part_html_276.gif" width="576" height="37" alt="for a to 3 do for b to 3 do get_compts(Hup[abc])[1, `+`(a, 1), `+`(b, 1)] := `+`(`-`(`*`(`*`(exp(Pi(x)), `+`(`-`(`*`(2, `*`(f))))), `*`(get_compts(delta)[a, b], `*`(`*`(`+`(`*`(3, `*`(`#mover(mi("&alp..." align="center" border="0"><br><img src="images/Zeroth part_html_277.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(Hup[abc])[1, `+`(a, 1), `+`(b, 1)] := `+`(`-`(`*`(`*`(exp(Pi(x)), `+`(`-`(`*`(2, `*`(f))))), `*`(get_compts(delta)[a, b], `*`(`*`(`+`(`*`(3, `*`(`#mover(mi("&alp..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_278.gif" width="576" height="18" alt="for a to 3 do for b to 3 do get_compts(Hup[abc])[`+`(a, 1), `+`(b, 1), 1] := `+`(`-`(`*`(2, `*`(rho(x), `*`(sum(`*`(get_compts(epsilon)[a, b, i], `*`(get_compts(K)[i])), i = 1 .. 3), `*`(`*`(`+`(`*`(3..." align="center" border="0"><br><img src="images/Zeroth part_html_279.gif" width="576" height="37" alt="for a to 3 do for b to 3 do get_compts(Hup[abc])[`+`(a, 1), `+`(b, 1), 1] := `+`(`-`(`*`(2, `*`(rho(x), `*`(sum(`*`(get_compts(epsilon)[a, b, i], `*`(get_compts(K)[i])), i = 1 .. 3), `*`(`*`(`+`(`*`(3..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_280.gif" width="576" height="18" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(Hup[abc])[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`-`(`*`(2, `*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, j], `*`(`*`(`+`(`*`(3, `*`(`#move..." align="center" border="0"><br><img src="images/Zeroth part_html_281.gif" width="576" height="37" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(Hup[abc])[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`-`(`*`(2, `*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, j], `*`(`*`(`+`(`*`(3, `*`(`#move..." align="center" border="0"><br><img src="images/Zeroth part_html_282.gif" width="576" height="37" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(Hup[abc])[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`-`(`*`(2, `*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, j], `*`(`*`(`+`(`*`(3, `*`(`#move..." align="center" border="0"><br><img src="images/Zeroth part_html_283.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(Hup[abc])[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`-`(`*`(2, `*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, j], `*`(`*`(`+`(`*`(3, `*`(`#move..." align="center" border="0"><br><img src="images/Zeroth part_html_284.gif" width="576" height="37" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(Hup[abc])[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`-`(`*`(2, `*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, j], `*`(`*`(`+`(`*`(3, `*`(`#move..." align="center" border="0"><br><img src="images/Zeroth part_html_285.gif" width="576" height="37" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(Hup[abc])[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`-`(`*`(2, `*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, j], `*`(`*`(`+`(`*`(3, `*`(`#move..." align="center" border="0"><br><img src="images/Zeroth part_html_286.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(Hup[abc])[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`-`(`*`(2, `*`(g, `*`(exp(Pi(x)), `*`(get_compts(epsilon)[a, b, j], `*`(`*`(`+`(`*`(3, `*`(`#move..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_287.gif" width="318" height="14" alt="S := create([-1, -1, -1], array(1 .. 4, 1 .. 4, 1 .. 4, sparse, [])); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_288.gif" width="576" height="37" alt="for a to 3 do get_compts(S)[`+`(a, 1), 1, 1] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)))), `*`(sum(sum(`*`(get_compts(H[abc])[l, t..." align="center" border="0"><br><img src="images/Zeroth part_html_289.gif" width="576" height="37" alt="for a to 3 do get_compts(S)[`+`(a, 1), 1, 1] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)))), `*`(sum(sum(`*`(get_compts(H[abc])[l, t..." align="center" border="0"><br><img src="images/Zeroth part_html_290.gif" width="576" height="30" alt="for a to 3 do get_compts(S)[`+`(a, 1), 1, 1] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)))), `*`(sum(sum(`*`(get_compts(H[abc])[l, t..." align="center" border="0"><br><img src="images/Zeroth part_html_291.gif" width="576" height="30" alt="for a to 3 do get_compts(S)[`+`(a, 1), 1, 1] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)))), `*`(sum(sum(`*`(get_compts(H[abc])[l, t..." align="center" border="0"><br><img src="images/Zeroth part_html_292.gif" width="576" height="30" alt="for a to 3 do get_compts(S)[`+`(a, 1), 1, 1] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)))), `*`(sum(sum(`*`(get_compts(H[abc])[l, t..." align="center" border="0"><br><img src="images/Zeroth part_html_293.gif" width="576" height="14" alt="for a to 3 do get_compts(S)[`+`(a, 1), 1, 1] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)))), `*`(sum(sum(`*`(get_compts(H[abc])[l, t..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_294.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(S)[`+`(a, 1), `+`(b, 1), 1] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)))), `*`(sum(sum(`*`(g..." align="center" border="0"><br><img src="images/Zeroth part_html_295.gif" width="576" height="37" alt="for a to 3 do for b to 3 do get_compts(S)[`+`(a, 1), `+`(b, 1), 1] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)))), `*`(sum(sum(`*`(g..." align="center" border="0"><br><img src="images/Zeroth part_html_296.gif" width="576" height="30" alt="for a to 3 do for b to 3 do get_compts(S)[`+`(a, 1), `+`(b, 1), 1] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)))), `*`(sum(sum(`*`(g..." align="center" border="0"><br><img src="images/Zeroth part_html_297.gif" width="576" height="30" alt="for a to 3 do for b to 3 do get_compts(S)[`+`(a, 1), `+`(b, 1), 1] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)))), `*`(sum(sum(`*`(g..." align="center" border="0"><br><img src="images/Zeroth part_html_298.gif" width="576" height="30" alt="for a to 3 do for b to 3 do get_compts(S)[`+`(a, 1), `+`(b, 1), 1] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)))), `*`(sum(sum(`*`(g..." align="center" border="0"><br><img src="images/Zeroth part_html_299.gif" width="576" height="30" alt="for a to 3 do for b to 3 do get_compts(S)[`+`(a, 1), `+`(b, 1), 1] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)))), `*`(sum(sum(`*`(g..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_300.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(S)[1, `+`(a, 1), `+`(b, 1)] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)))), `*`(sum(sum(`*`(g..." align="center" border="0"><br><img src="images/Zeroth part_html_301.gif" width="576" height="37" alt="for a to 3 do for b to 3 do get_compts(S)[1, `+`(a, 1), `+`(b, 1)] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)))), `*`(sum(sum(`*`(g..." align="center" border="0"><br><img src="images/Zeroth part_html_302.gif" width="576" height="30" alt="for a to 3 do for b to 3 do get_compts(S)[1, `+`(a, 1), `+`(b, 1)] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)))), `*`(sum(sum(`*`(g..." align="center" border="0"><br><img src="images/Zeroth part_html_303.gif" width="576" height="30" alt="for a to 3 do for b to 3 do get_compts(S)[1, `+`(a, 1), `+`(b, 1)] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)))), `*`(sum(sum(`*`(g..." align="center" border="0"><br><img src="images/Zeroth part_html_304.gif" width="576" height="30" alt="for a to 3 do for b to 3 do get_compts(S)[1, `+`(a, 1), `+`(b, 1)] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)))), `*`(sum(sum(`*`(g..." align="center" border="0"><br><img src="images/Zeroth part_html_305.gif" width="576" height="30" alt="for a to 3 do for b to 3 do get_compts(S)[1, `+`(a, 1), `+`(b, 1)] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)))), `*`(sum(sum(`*`(g..." align="center" border="0"><br><img src="images/Zeroth part_html_306.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(S)[1, `+`(a, 1), `+`(b, 1)] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)))), `*`(sum(sum(`*`(g..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_307.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(S)[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)..." align="center" border="0"><br><img src="images/Zeroth part_html_308.gif" width="576" height="37" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(S)[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)..." align="center" border="0"><br><img src="images/Zeroth part_html_309.gif" width="576" height="30" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(S)[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)..." align="center" border="0"><br><img src="images/Zeroth part_html_310.gif" width="576" height="30" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(S)[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)..." align="center" border="0"><br><img src="images/Zeroth part_html_311.gif" width="576" height="30" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(S)[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)..." align="center" border="0"><br><img src="images/Zeroth part_html_312.gif" width="576" height="30" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(S)[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := simplify(sum(sum(`+`(`*`(2, `*`(`/`(`+`(`*`(3, `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`)..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_313.gif" width="77" height="16" alt="phi := Pi(x); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_314.gif" width="226" height="14" alt="DP := create([-1], array(1 .. 4, sparse)); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_315.gif" width="576" height="36" alt="diff(`+`(`-`(`*`(3, `*`(C[5], `*`(`+`(`*`(12, `*`(exp(Pi(x)), `*`(f, `*`(sigma(x))))), `*`(6, `*`(`^`(exp(Pi(x)), 2), `*`(`^`(f, 2)))), `-`(`*`(6, `*`(`^`(exp(Pi(x)), 2), `*`(`^`(g, 2))))), `-`(`*`(12..." align="center" border="0"><br><img src="images/Zeroth part_html_316.gif" width="576" height="36" alt="diff(`+`(`-`(`*`(3, `*`(C[5], `*`(`+`(`*`(12, `*`(exp(Pi(x)), `*`(f, `*`(sigma(x))))), `*`(6, `*`(`^`(exp(Pi(x)), 2), `*`(`^`(f, 2)))), `-`(`*`(6, `*`(`^`(exp(Pi(x)), 2), `*`(`^`(g, 2))))), `-`(`*`(12..." align="center" border="0"><br><img src="images/Zeroth part_html_317.gif" width="576" height="30" alt="diff(`+`(`-`(`*`(3, `*`(C[5], `*`(`+`(`*`(12, `*`(exp(Pi(x)), `*`(f, `*`(sigma(x))))), `*`(6, `*`(`^`(exp(Pi(x)), 2), `*`(`^`(f, 2)))), `-`(`*`(6, `*`(`^`(exp(Pi(x)), 2), `*`(`^`(g, 2))))), `-`(`*`(12..." align="center" border="0"><br><img src="images/Zeroth part_html_318.gif" width="576" height="30" alt="diff(`+`(`-`(`*`(3, `*`(C[5], `*`(`+`(`*`(12, `*`(exp(Pi(x)), `*`(f, `*`(sigma(x))))), `*`(6, `*`(`^`(exp(Pi(x)), 2), `*`(`^`(f, 2)))), `-`(`*`(6, `*`(`^`(exp(Pi(x)), 2), `*`(`^`(g, 2))))), `-`(`*`(12..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_319.gif" width="372" height="30" alt="get_compts(DP)[1] := simplify(%, {diff(Pi(x), x) = `*`(lambda, `*`(exp(Pi(x))))}); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_320.gif" width="11" height="14" alt="" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_321.gif" width="576" height="25" alt="for a to 3 do get_compts(DP)[`+`(a, 1)] := `*`(I, `*`(get_compts(K)[a], `*`(`+`(P[sk], `*`(3, `*`(C[5], `*`(`+`(`*`(6, `*`(`^`(exp(Pi(x)), 2), `*`(`^`(f, 2)))), `-`(`*`(6, `*`(`^`(exp(Pi(x)), 2), `*`(..." align="center" border="0"><br><img src="images/Zeroth part_html_322.gif" width="576" height="25" alt="for a to 3 do get_compts(DP)[`+`(a, 1)] := `*`(I, `*`(get_compts(K)[a], `*`(`+`(P[sk], `*`(3, `*`(C[5], `*`(`+`(`*`(6, `*`(`^`(exp(Pi(x)), 2), `*`(`^`(f, 2)))), `-`(`*`(6, `*`(`^`(exp(Pi(x)), 2), `*`(..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_323.gif" width="231" height="14" alt="DeF := create([-1], array(1 .. 4, sparse)); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_324.gif" width="274" height="21" alt="simplify(eF, {`+`(C[3], C[4]) = `+`(`-`(`*`(3, `*`(C[5])))), `+`(`*`(`^`(k[1], 2)), `*`(`^`(k[2], 2)), `*`(`^`(k[3], 2))) = `*`(`^`(k, 2))}); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_325.gif" width="576" height="30" alt="diff(`+`(`-`(`*`(12, `*`(lambda, `*`(g, `*`(`^`(exp(Pi(x)), 2), `*`(psi(x))))))), `-`(`*`(24, `*`(exp(Pi(x)), `*`(g, `*`(sigma(x)))))), `*`(48, `*`(f, `*`(g, `*`(psi(x), `*`(`^`(exp(Pi(x)), 2)))))), `..." align="center" border="0"><br><img src="images/Zeroth part_html_326.gif" width="576" height="30" alt="diff(`+`(`-`(`*`(12, `*`(lambda, `*`(g, `*`(`^`(exp(Pi(x)), 2), `*`(psi(x))))))), `-`(`*`(24, `*`(exp(Pi(x)), `*`(g, `*`(sigma(x)))))), `*`(48, `*`(f, `*`(g, `*`(psi(x), `*`(`^`(exp(Pi(x)), 2)))))), `..." align="center" border="0"><br><img src="images/Zeroth part_html_327.gif" width="576" height="30" alt="diff(`+`(`-`(`*`(12, `*`(lambda, `*`(g, `*`(`^`(exp(Pi(x)), 2), `*`(psi(x))))))), `-`(`*`(24, `*`(exp(Pi(x)), `*`(g, `*`(sigma(x)))))), `*`(48, `*`(f, `*`(g, `*`(psi(x), `*`(`^`(exp(Pi(x)), 2)))))), `..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_328.gif" width="379" height="30" alt="get_compts(DeF)[1] := simplify(%, {diff(Pi(x), x) = `*`(lambda, `*`(exp(Pi(x))))}); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_329.gif" width="576" height="22" alt="for a to 3 do get_compts(DeF)[`+`(a, 1)] := `*`(I, `*`(get_compts(K)[a], `*`(`+`(simplify(eF, {`+`(C[3], C[4]) = `+`(`-`(`*`(3, `*`(C[5])))), `+`(`*`(`^`(k[1], 2)), `*`(`^`(k[2], 2)), `*`(`^`(k[3], 2)..." align="center" border="0"><br><img src="images/Zeroth part_html_330.gif" width="576" height="22" alt="for a to 3 do get_compts(DeF)[`+`(a, 1)] := `*`(I, `*`(get_compts(K)[a], `*`(`+`(simplify(eF, {`+`(C[3], C[4]) = `+`(`-`(`*`(3, `*`(C[5])))), `+`(`*`(`^`(k[1], 2)), `*`(`^`(k[2], 2)), `*`(`^`(k[3], 2)..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_331.gif" width="319" height="14" alt="A := create([-1, -1, -1], array(1 .. 4, 1 .. 4, 1 .. 4, sparse, [])); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_332.gif" width="499" height="14" alt="for a to 3 do get_compts(A)[`+`(a, 1), 1, 1] := `*`(get_compts(K)[a], `*`(`+`(`*`(I, `*`(Phi(x))), `-`(xi(x))))) end do; -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_333.gif" width="576" height="19" alt="for a to 3 do for b to 3 do get_compts(A)[1, `+`(a, 1), `+`(b, 1)] := `+`(`*`(get_compts(delta)[a, b], `*`(`+`(`-`(diff(psi(x), x)), sigma(x), `-`(`*`(f, `*`(exp(phi), `*`(psi(x)))))))), `*`(get_compt..." align="center" border="0"><br><img src="images/Zeroth part_html_334.gif" width="576" height="19" alt="for a to 3 do for b to 3 do get_compts(A)[1, `+`(a, 1), `+`(b, 1)] := `+`(`*`(get_compts(delta)[a, b], `*`(`+`(`-`(diff(psi(x), x)), sigma(x), `-`(`*`(f, `*`(exp(phi), `*`(psi(x)))))))), `*`(get_compt..." align="center" border="0"><br><img src="images/Zeroth part_html_335.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(A)[1, `+`(a, 1), `+`(b, 1)] := `+`(`*`(get_compts(delta)[a, b], `*`(`+`(`-`(diff(psi(x), x)), sigma(x), `-`(`*`(f, `*`(exp(phi), `*`(psi(x)))))))), `*`(get_compt..." align="center" border="0"><br><img src="images/Zeroth part_html_336.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(A)[1, `+`(a, 1), `+`(b, 1)] := `+`(`*`(get_compts(delta)[a, b], `*`(`+`(`-`(diff(psi(x), x)), sigma(x), `-`(`*`(f, `*`(exp(phi), `*`(psi(x)))))))), `*`(get_compt..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_337.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(A)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(sum(`*`(get_compts(epsilon)[a, b, i], `*`(get_compts(K)[i])), i = 1 .. 3))) end do end do; -1" align="center" border="0"><br><img src="images/Zeroth part_html_338.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(A)[`+`(a, 1), `+`(b, 1), 1] := `*`(theta(x), `*`(sum(`*`(get_compts(epsilon)[a, b, i], `*`(get_compts(K)[i])), i = 1 .. 3))) end do end do; -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_339.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(A)[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`*`(`+`(`*`(get_compts(K)[a], `*`(get_compts(delta)[b, j])), `-`(`*`(get_compts(K)[b], `*`(get_compts(de..." align="center" border="0"><br><img src="images/Zeroth part_html_340.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(A)[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`*`(`+`(`*`(get_compts(K)[a], `*`(get_compts(delta)[b, j])), `-`(`*`(get_compts(K)[b], `*`(get_compts(de..." align="center" border="0"><br><img src="images/Zeroth part_html_341.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(A)[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`*`(`+`(`*`(get_compts(K)[a], `*`(get_compts(delta)[b, j])), `-`(`*`(get_compts(K)[b], `*`(get_compts(de..." align="center" border="0"><br><img src="images/Zeroth part_html_342.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(A)[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`*`(`+`(`*`(get_compts(K)[a], `*`(get_compts(delta)[b, j])), `-`(`*`(get_compts(K)[b], `*`(get_compts(de..." align="center" border="0"><br><img src="images/Zeroth part_html_343.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(A)[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`*`(`+`(`*`(get_compts(K)[a], `*`(get_compts(delta)[b, j])), `-`(`*`(get_compts(K)[b], `*`(get_compts(de..." align="center" border="0"><br><img src="images/Zeroth part_html_344.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for j to 3 do get_compts(A)[`+`(a, 1), `+`(b, 1), `+`(j, 1)] := `+`(`*`(`+`(`*`(get_compts(K)[a], `*`(get_compts(delta)[b, j])), `-`(`*`(get_compts(K)[b], `*`(get_compts(de..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_345.gif" width="406" height="19" alt="DPt := create([-1, -1, -1], array(1 .. 4, 1 .. 4, 1 .. 4, sparse, [])); -1" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_346.gif" width="576" height="30" alt="get_compts(DPt)[1, 1, 1] := simplify(`+`(diff(get_compts(P[ab])[1, 1], x), add(`*`(get_compts(Ashka)[`+`(a, 1), 1, 1], `*`(`+`(get_compts(P[ab])[`+`(a, 1), 1], get_compts(P[ab])[1, `+`(a, 1)]))), a = ..." align="center" border="0"><br><img src="images/Zeroth part_html_347.gif" width="576" height="30" alt="get_compts(DPt)[1, 1, 1] := simplify(`+`(diff(get_compts(P[ab])[1, 1], x), add(`*`(get_compts(Ashka)[`+`(a, 1), 1, 1], `*`(`+`(get_compts(P[ab])[`+`(a, 1), 1], get_compts(P[ab])[1, `+`(a, 1)]))), a = ..." align="center" border="0"><br><img src="images/Zeroth part_html_348.gif" width="576" height="30" alt="get_compts(DPt)[1, 1, 1] := simplify(`+`(diff(get_compts(P[ab])[1, 1], x), add(`*`(get_compts(Ashka)[`+`(a, 1), 1, 1], `*`(`+`(get_compts(P[ab])[`+`(a, 1), 1], get_compts(P[ab])[1, `+`(a, 1)]))), a = ..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_349.gif" width="576" height="30" alt="for a to 3 do get_compts(DPt)[`+`(a, 1), 1, 1] := simplify(`+`(`*`(I, `*`(get_compts(K)[a], `*`(`+`(get_compts(P[ab])[1, 1], `-`(`*`(`+`(`*`(3, `*`(`^`(exp(Pi(x)), 2), `*`(lambda, `*`(f))))), `+`(`-`(..." align="center" border="0"><br><img src="images/Zeroth part_html_350.gif" width="576" height="30" alt="for a to 3 do get_compts(DPt)[`+`(a, 1), 1, 1] := simplify(`+`(`*`(I, `*`(get_compts(K)[a], `*`(`+`(get_compts(P[ab])[1, 1], `-`(`*`(`+`(`*`(3, `*`(`^`(exp(Pi(x)), 2), `*`(lambda, `*`(f))))), `+`(`-`(..." align="center" border="0"><br><img src="images/Zeroth part_html_351.gif" width="576" height="30" alt="for a to 3 do get_compts(DPt)[`+`(a, 1), 1, 1] := simplify(`+`(`*`(I, `*`(get_compts(K)[a], `*`(`+`(get_compts(P[ab])[1, 1], `-`(`*`(`+`(`*`(3, `*`(`^`(exp(Pi(x)), 2), `*`(lambda, `*`(f))))), `+`(`-`(..." align="center" border="0"><br><img src="images/Zeroth part_html_352.gif" width="576" height="30" alt="for a to 3 do get_compts(DPt)[`+`(a, 1), 1, 1] := simplify(`+`(`*`(I, `*`(get_compts(K)[a], `*`(`+`(get_compts(P[ab])[1, 1], `-`(`*`(`+`(`*`(3, `*`(`^`(exp(Pi(x)), 2), `*`(lambda, `*`(f))))), `+`(`-`(..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_353.gif" width="576" height="30" alt="for a to 3 do get_compts(DPt)[1, 1, `+`(a, 1)] := simplify(`+`(diff(get_compts(P[ab])[1, `+`(a, 1)], x), add(`+`(`*`(get_compts(Ashka)[la, 1, 1], `*`(get_compts(P[ab])[la, `+`(a, 1)])), `-`(`*`(get_co..." align="center" border="0"><br><img src="images/Zeroth part_html_354.gif" width="576" height="30" alt="for a to 3 do get_compts(DPt)[1, 1, `+`(a, 1)] := simplify(`+`(diff(get_compts(P[ab])[1, `+`(a, 1)], x), add(`+`(`*`(get_compts(Ashka)[la, 1, 1], `*`(get_compts(P[ab])[la, `+`(a, 1)])), `-`(`*`(get_co..." align="center" border="0"><br><img src="images/Zeroth part_html_355.gif" width="576" height="30" alt="for a to 3 do get_compts(DPt)[1, 1, `+`(a, 1)] := simplify(`+`(diff(get_compts(P[ab])[1, `+`(a, 1)], x), add(`+`(`*`(get_compts(Ashka)[la, 1, 1], `*`(get_compts(P[ab])[la, `+`(a, 1)])), `-`(`*`(get_co..." align="center" border="0"><br><img src="images/Zeroth part_html_356.gif" width="576" height="14" alt="for a to 3 do get_compts(DPt)[1, 1, `+`(a, 1)] := simplify(`+`(diff(get_compts(P[ab])[1, `+`(a, 1)], x), add(`+`(`*`(get_compts(Ashka)[la, 1, 1], `*`(get_compts(P[ab])[la, `+`(a, 1)])), `-`(`*`(get_co..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_357.gif" width="576" height="30" alt="for a to 3 do get_compts(DPt)[1, `+`(a, 1), 1] := simplify(`+`(diff(get_compts(P[ab])[`+`(a, 1), 1], x), `-`(add(`*`(get_compts(Ashka)[la, `+`(a, 1), 1], `*`(get_compts(P[ab])[la, 1])), la = 1 .. 4)),..." align="center" border="0"><br><img src="images/Zeroth part_html_358.gif" width="576" height="30" alt="for a to 3 do get_compts(DPt)[1, `+`(a, 1), 1] := simplify(`+`(diff(get_compts(P[ab])[`+`(a, 1), 1], x), `-`(add(`*`(get_compts(Ashka)[la, `+`(a, 1), 1], `*`(get_compts(P[ab])[la, 1])), la = 1 .. 4)),..." align="center" border="0"><br><img src="images/Zeroth part_html_359.gif" width="576" height="30" alt="for a to 3 do get_compts(DPt)[1, `+`(a, 1), 1] := simplify(`+`(diff(get_compts(P[ab])[`+`(a, 1), 1], x), `-`(add(`*`(get_compts(Ashka)[la, `+`(a, 1), 1], `*`(get_compts(P[ab])[la, 1])), la = 1 .. 4)),..." align="center" border="0"><br><img src="images/Zeroth part_html_360.gif" width="576" height="30" alt="for a to 3 do get_compts(DPt)[1, `+`(a, 1), 1] := simplify(`+`(diff(get_compts(P[ab])[`+`(a, 1), 1], x), `-`(add(`*`(get_compts(Ashka)[la, `+`(a, 1), 1], `*`(get_compts(P[ab])[la, 1])), la = 1 .. 4)),..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_361.gif" width="11" height="14" alt="" align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_362.gif" width="576" height="14" alt="for a to 3 do for b to 3 do get_compts(DPt)[1, `+`(a, 1), `+`(b, 1)] := simplify(`+`(diff(get_compts(P[ab])[`+`(a, 1), `+`(b, 1)], x), `-`(add(`*`(get_compts(Ashka)[la, `+`(a, 1), 1], `*`(get_compts(P..." align="center" border="0"><br><img src="images/Zeroth part_html_363.gif" width="576" height="30" alt="for a to 3 do for b to 3 do get_compts(DPt)[1, `+`(a, 1), `+`(b, 1)] := simplify(`+`(diff(get_compts(P[ab])[`+`(a, 1), `+`(b, 1)], x), `-`(add(`*`(get_compts(Ashka)[la, `+`(a, 1), 1], `*`(get_compts(P..." align="center" border="0"><br><img src="images/Zeroth part_html_364.gif" width="576" height="30" alt="for a to 3 do for b to 3 do get_compts(DPt)[1, `+`(a, 1), `+`(b, 1)] := simplify(`+`(diff(get_compts(P[ab])[`+`(a, 1), `+`(b, 1)], x), `-`(add(`*`(get_compts(Ashka)[la, `+`(a, 1), 1], `*`(get_compts(P..." align="center" border="0"><br><img src="images/Zeroth part_html_365.gif" width="576" height="30" alt="for a to 3 do for b to 3 do get_compts(DPt)[1, `+`(a, 1), `+`(b, 1)] := simplify(`+`(diff(get_compts(P[ab])[`+`(a, 1), `+`(b, 1)], x), `-`(add(`*`(get_compts(Ashka)[la, `+`(a, 1), 1], `*`(get_compts(P..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_366.gif" width="576" height="30" alt="for a to 3 do for b to 3 do get_compts(DPt)[`+`(b, 1), `+`(a, 1), 1] := simplify(`+`(`*`(I, `*`(get_compts(K)[b], `*`(get_compts(P[ab])[`+`(a, 1), 1]))), `-`(add(`*`(get_compts(Ashka)[la, `+`(a, 1), `..." align="center" border="0"><br><img src="images/Zeroth part_html_367.gif" width="576" height="30" alt="for a to 3 do for b to 3 do get_compts(DPt)[`+`(b, 1), `+`(a, 1), 1] := simplify(`+`(`*`(I, `*`(get_compts(K)[b], `*`(get_compts(P[ab])[`+`(a, 1), 1]))), `-`(add(`*`(get_compts(Ashka)[la, `+`(a, 1), `..." align="center" border="0"><br><img src="images/Zeroth part_html_368.gif" width="576" height="30" alt="for a to 3 do for b to 3 do get_compts(DPt)[`+`(b, 1), `+`(a, 1), 1] := simplify(`+`(`*`(I, `*`(get_compts(K)[b], `*`(get_compts(P[ab])[`+`(a, 1), 1]))), `-`(add(`*`(get_compts(Ashka)[la, `+`(a, 1), `..." align="center" border="0"><br><img src="images/Zeroth part_html_369.gif" width="576" height="30" alt="for a to 3 do for b to 3 do get_compts(DPt)[`+`(b, 1), `+`(a, 1), 1] := simplify(`+`(`*`(I, `*`(get_compts(K)[b], `*`(get_compts(P[ab])[`+`(a, 1), 1]))), `-`(add(`*`(get_compts(Ashka)[la, `+`(a, 1), `..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_370.gif" width="576" height="30" alt="for a to 3 do for b to 3 do get_compts(DPt)[`+`(a, 1), 1, `+`(b, 1)] := simplify(`+`(`*`(I, `*`(get_compts(K)[a], `*`(get_compts(P[ab])[1, `+`(b, 1)]))), add(`*`(get_compts(Ashka)[la, 1, `+`(a, 1)], `..." align="center" border="0"><br><img src="images/Zeroth part_html_371.gif" width="576" height="30" alt="for a to 3 do for b to 3 do get_compts(DPt)[`+`(a, 1), 1, `+`(b, 1)] := simplify(`+`(`*`(I, `*`(get_compts(K)[a], `*`(get_compts(P[ab])[1, `+`(b, 1)]))), add(`*`(get_compts(Ashka)[la, 1, `+`(a, 1)], `..." align="center" border="0"><br><img src="images/Zeroth part_html_372.gif" width="576" height="30" alt="for a to 3 do for b to 3 do get_compts(DPt)[`+`(a, 1), 1, `+`(b, 1)] := simplify(`+`(`*`(I, `*`(get_compts(K)[a], `*`(get_compts(P[ab])[1, `+`(b, 1)]))), add(`*`(get_compts(Ashka)[la, 1, `+`(a, 1)], `..." align="center" border="0"><br><img src="images/Zeroth part_html_373.gif" width="576" height="30" alt="for a to 3 do for b to 3 do get_compts(DPt)[`+`(a, 1), 1, `+`(b, 1)] := simplify(`+`(`*`(I, `*`(get_compts(K)[a], `*`(get_compts(P[ab])[1, `+`(b, 1)]))), add(`*`(get_compts(Ashka)[la, 1, `+`(a, 1)], `..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_374.gif" width="576" height="14" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(DPt)[`+`(a, 1), `+`(b, 1), `+`(c, 1)] := simplify(`+`(`*`(I, `*`(get_compts(K)[a], `*`(`+`(get_compts(P[ab])[`+`(b, 1), `+`(c, 1)], `-`(`*`(`*`(get..." align="center" border="0"><br><img src="images/Zeroth part_html_375.gif" width="576" height="30" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(DPt)[`+`(a, 1), `+`(b, 1), `+`(c, 1)] := simplify(`+`(`*`(I, `*`(get_compts(K)[a], `*`(`+`(get_compts(P[ab])[`+`(b, 1), `+`(c, 1)], `-`(`*`(`*`(get..." align="center" border="0"><br><img src="images/Zeroth part_html_376.gif" width="576" height="30" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(DPt)[`+`(a, 1), `+`(b, 1), `+`(c, 1)] := simplify(`+`(`*`(I, `*`(get_compts(K)[a], `*`(`+`(get_compts(P[ab])[`+`(b, 1), `+`(c, 1)], `-`(`*`(`*`(get..." align="center" border="0"><br><img src="images/Zeroth part_html_377.gif" width="576" height="30" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(DPt)[`+`(a, 1), `+`(b, 1), `+`(c, 1)] := simplify(`+`(`*`(I, `*`(get_compts(K)[a], `*`(`+`(get_compts(P[ab])[`+`(b, 1), `+`(c, 1)], `-`(`*`(`*`(get..." align="center" border="0"><br><img src="images/Zeroth part_html_378.gif" width="576" height="30" alt="for a to 3 do for b to 3 do for c to 3 do get_compts(DPt)[`+`(a, 1), `+`(b, 1), `+`(c, 1)] := simplify(`+`(`*`(I, `*`(get_compts(K)[a], `*`(`+`(get_compts(P[ab])[`+`(b, 1), `+`(c, 1)], `-`(`*`(`*`(get..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_379.gif" width="576" height="25" alt="Equation[ab0] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 1])), `-`(add(`*`(get_compts(DPt)[mu, 3, 1], `*`(get_compts(ekv[du])[2, mu])), mu = 1 .. 4)), add(`*`(get_compts(DPt)[mu, 2, 1..." align="center" border="0"><br><img src="images/Zeroth part_html_380.gif" width="576" height="18" alt="Equation[ab0] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 1])), `-`(add(`*`(get_compts(DPt)[mu, 3, 1], `*`(get_compts(ekv[du])[2, mu])), mu = 1 .. 4)), add(`*`(get_compts(DPt)[mu, 2, 1..." align="center" border="0"><br><img src="images/Zeroth part_html_381.gif" width="576" height="18" alt="Equation[ab0] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 1])), `-`(add(`*`(get_compts(DPt)[mu, 3, 1], `*`(get_compts(ekv[du])[2, mu])), mu = 1 .. 4)), add(`*`(get_compts(DPt)[mu, 2, 1..." align="center" border="0"><br><img src="images/Zeroth part_html_382.gif" width="576" height="18" alt="Equation[ab0] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 1])), `-`(add(`*`(get_compts(DPt)[mu, 3, 1], `*`(get_compts(ekv[du])[2, mu])), mu = 1 .. 4)), add(`*`(get_compts(DPt)[mu, 2, 1..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="center"><table width='100%'>
<tr>
<td valign="top" align="center"><font color="#0000ff" size="3" face="Times New Roman"><img src="images/Zeroth part_html_383.gif" width="14" height="14" alt="0" align="center" border="0"></td>
<td width='5%' align='center'>(2)</td>
</tr>
</table></font> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_384.gif" width="576" height="30" alt="Equation[`*`(0, a0)] := `+`(`+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[1, 2, 1])), `+`(`*`(`/`(2, 3), `*`(add(`*`(get_compts(DP)[mu], `*`(get_compts(ekv[du])[2, mu])), mu = 1 .. 4))), `-`(add(..." align="center" border="0"><br><img src="images/Zeroth part_html_385.gif" width="576" height="18" alt="Equation[`*`(0, a0)] := `+`(`+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[1, 2, 1])), `+`(`*`(`/`(2, 3), `*`(add(`*`(get_compts(DP)[mu], `*`(get_compts(ekv[du])[2, mu])), mu = 1 .. 4))), `-`(add(..." align="center" border="0"><br><img src="images/Zeroth part_html_386.gif" width="576" height="18" alt="Equation[`*`(0, a0)] := `+`(`+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[1, 2, 1])), `+`(`*`(`/`(2, 3), `*`(add(`*`(get_compts(DP)[mu], `*`(get_compts(ekv[du])[2, mu])), mu = 1 .. 4))), `-`(add(..." align="center" border="0"><br><img src="images/Zeroth part_html_387.gif" width="576" height="18" alt="Equation[`*`(0, a0)] := `+`(`+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[1, 2, 1])), `+`(`*`(`/`(2, 3), `*`(add(`*`(get_compts(DP)[mu], `*`(get_compts(ekv[du])[2, mu])), mu = 1 .. 4))), `-`(add(..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_388.gif" width="576" height="25" alt="Equation[`*`(0, ab(123))] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[1, 2, 3])), `*`(3, `*`(`^`(exp(Pi(x)), 3), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(lambda, `*`..." align="center" border="0"><br><img src="images/Zeroth part_html_389.gif" width="576" height="18" alt="Equation[`*`(0, ab(123))] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[1, 2, 3])), `*`(3, `*`(`^`(exp(Pi(x)), 3), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(lambda, `*`..." align="center" border="0"><br><img src="images/Zeroth part_html_390.gif" width="576" height="30" alt="Equation[`*`(0, ab(123))] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[1, 2, 3])), `*`(3, `*`(`^`(exp(Pi(x)), 3), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(lambda, `*`..." align="center" border="0"><br><img src="images/Zeroth part_html_391.gif" width="576" height="30" alt="Equation[`*`(0, ab(123))] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[1, 2, 3])), `*`(3, `*`(`^`(exp(Pi(x)), 3), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(lambda, `*`..." align="center" border="0"><br><img src="images/Zeroth part_html_392.gif" width="576" height="18" alt="Equation[`*`(0, ab(123))] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[1, 2, 3])), `*`(3, `*`(`^`(exp(Pi(x)), 3), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(lambda, `*`..." align="center" border="0"><br><img src="images/Zeroth part_html_393.gif" width="576" height="18" alt="Equation[`*`(0, ab(123))] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[1, 2, 3])), `*`(3, `*`(`^`(exp(Pi(x)), 3), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(lambda, `*`..." align="center" border="0"><br><img src="images/Zeroth part_html_394.gif" width="576" height="18" alt="Equation[`*`(0, ab(123))] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[1, 2, 3])), `*`(3, `*`(`^`(exp(Pi(x)), 3), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(lambda, `*`..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_395.gif" width="576" height="25" alt="Equation[`*`(0, ab(122))] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[1, 2, 2])), `*`(3, `*`(`^`(exp(Pi(x)), 3), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(lambda, `*`..." align="center" border="0"><br><img src="images/Zeroth part_html_396.gif" width="576" height="18" alt="Equation[`*`(0, ab(122))] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[1, 2, 2])), `*`(3, `*`(`^`(exp(Pi(x)), 3), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(lambda, `*`..." align="center" border="0"><br><img src="images/Zeroth part_html_397.gif" width="576" height="30" alt="Equation[`*`(0, ab(122))] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[1, 2, 2])), `*`(3, `*`(`^`(exp(Pi(x)), 3), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(lambda, `*`..." align="center" border="0"><br><img src="images/Zeroth part_html_398.gif" width="576" height="30" alt="Equation[`*`(0, ab(122))] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[1, 2, 2])), `*`(3, `*`(`^`(exp(Pi(x)), 3), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(lambda, `*`..." align="center" border="0"><br><img src="images/Zeroth part_html_399.gif" width="576" height="18" alt="Equation[`*`(0, ab(122))] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[1, 2, 2])), `*`(3, `*`(`^`(exp(Pi(x)), 3), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(lambda, `*`..." align="center" border="0"><br><img src="images/Zeroth part_html_400.gif" width="576" height="18" alt="Equation[`*`(0, ab(122))] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[1, 2, 2])), `*`(3, `*`(`^`(exp(Pi(x)), 3), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(lambda, `*`..." align="center" border="0"><br><img src="images/Zeroth part_html_401.gif" width="576" height="21" alt="Equation[`*`(0, ab(122))] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[1, 2, 2])), `*`(3, `*`(`^`(exp(Pi(x)), 3), `*`(`#mover(mi("α",fontstyle = "normal"),mi("\`~\`"))`, `*`(lambda, `*`..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="center"><table width='100%'>
<tr>
<td valign="top" align="center"><font color="#0000ff" size="3" face="Times New Roman"><img src="images/Zeroth part_html_402.gif" width="14" height="14" alt="0" align="center" border="0"></td>
<td width='5%' align='center'>(3)</td>
</tr>
</table></font> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_403.gif" width="576" height="25" alt="Equation[abc(234)] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 4])), `*`(get_compts(Delta)[2, 4], `*`(`+`(add(add(`*`(get_compts(DPt)[mu, 3, ma], `*`(get_compts(ekv[uu])[ma, mu])), ma ..." align="center" border="0"><br><img src="images/Zeroth part_html_404.gif" width="576" height="30" alt="Equation[abc(234)] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 4])), `*`(get_compts(Delta)[2, 4], `*`(`+`(add(add(`*`(get_compts(DPt)[mu, 3, ma], `*`(get_compts(ekv[uu])[ma, mu])), ma ..." align="center" border="0"><br><img src="images/Zeroth part_html_405.gif" width="576" height="30" alt="Equation[abc(234)] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 4])), `*`(get_compts(Delta)[2, 4], `*`(`+`(add(add(`*`(get_compts(DPt)[mu, 3, ma], `*`(get_compts(ekv[uu])[ma, mu])), ma ..." align="center" border="0"><br><img src="images/Zeroth part_html_406.gif" width="576" height="18" alt="Equation[abc(234)] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 4])), `*`(get_compts(Delta)[2, 4], `*`(`+`(add(add(`*`(get_compts(DPt)[mu, 3, ma], `*`(get_compts(ekv[uu])[ma, mu])), ma ..." align="center" border="0"><br><img src="images/Zeroth part_html_407.gif" width="576" height="30" alt="Equation[abc(234)] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 4])), `*`(get_compts(Delta)[2, 4], `*`(`+`(add(add(`*`(get_compts(DPt)[mu, 3, ma], `*`(get_compts(ekv[uu])[ma, mu])), ma ..." align="center" border="0"><br><img src="images/Zeroth part_html_408.gif" width="576" height="30" alt="Equation[abc(234)] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 4])), `*`(get_compts(Delta)[2, 4], `*`(`+`(add(add(`*`(get_compts(DPt)[mu, 3, ma], `*`(get_compts(ekv[uu])[ma, mu])), ma ..." align="center" border="0"><br><img src="images/Zeroth part_html_409.gif" width="576" height="18" alt="Equation[abc(234)] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 4])), `*`(get_compts(Delta)[2, 4], `*`(`+`(add(add(`*`(get_compts(DPt)[mu, 3, ma], `*`(get_compts(ekv[uu])[ma, mu])), ma ..." align="center" border="0"><br><img src="images/Zeroth part_html_410.gif" width="576" height="18" alt="Equation[abc(234)] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 4])), `*`(get_compts(Delta)[2, 4], `*`(`+`(add(add(`*`(get_compts(DPt)[mu, 3, ma], `*`(get_compts(ekv[uu])[ma, mu])), ma ..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"><img src="images/Zeroth part_html_411.gif" width="576" height="25" alt="Equation[abc(232)] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 2])), `*`(get_compts(Delta)[2, 2], `*`(`+`(add(add(`*`(get_compts(DPt)[mu, 3, ma], `*`(get_compts(ekv[uu])[ma, mu])), ma ..." align="center" border="0"><br><img src="images/Zeroth part_html_412.gif" width="576" height="30" alt="Equation[abc(232)] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 2])), `*`(get_compts(Delta)[2, 2], `*`(`+`(add(add(`*`(get_compts(DPt)[mu, 3, ma], `*`(get_compts(ekv[uu])[ma, mu])), ma ..." align="center" border="0"><br><img src="images/Zeroth part_html_413.gif" width="576" height="30" alt="Equation[abc(232)] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 2])), `*`(get_compts(Delta)[2, 2], `*`(`+`(add(add(`*`(get_compts(DPt)[mu, 3, ma], `*`(get_compts(ekv[uu])[ma, mu])), ma ..." align="center" border="0"><br><img src="images/Zeroth part_html_414.gif" width="576" height="18" alt="Equation[abc(232)] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 2])), `*`(get_compts(Delta)[2, 2], `*`(`+`(add(add(`*`(get_compts(DPt)[mu, 3, ma], `*`(get_compts(ekv[uu])[ma, mu])), ma ..." align="center" border="0"><br><img src="images/Zeroth part_html_415.gif" width="576" height="30" alt="Equation[abc(232)] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 2])), `*`(get_compts(Delta)[2, 2], `*`(`+`(add(add(`*`(get_compts(DPt)[mu, 3, ma], `*`(get_compts(ekv[uu])[ma, mu])), ma ..." align="center" border="0"><br><img src="images/Zeroth part_html_416.gif" width="576" height="30" alt="Equation[abc(232)] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 2])), `*`(get_compts(Delta)[2, 2], `*`(`+`(add(add(`*`(get_compts(DPt)[mu, 3, ma], `*`(get_compts(ekv[uu])[ma, mu])), ma ..." align="center" border="0"><br><img src="images/Zeroth part_html_417.gif" width="576" height="18" alt="Equation[abc(232)] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 2])), `*`(get_compts(Delta)[2, 2], `*`(`+`(add(add(`*`(get_compts(DPt)[mu, 3, ma], `*`(get_compts(ekv[uu])[ma, mu])), ma ..." align="center" border="0"><br><img src="images/Zeroth part_html_418.gif" width="576" height="18" alt="Equation[abc(232)] := `+`(`*`(`^`(exp(Pi(x)), 2), `*`(get_compts(H[abc])[2, 3, 2])), `*`(get_compts(Delta)[2, 2], `*`(`+`(add(add(`*`(get_compts(DPt)[mu, 3, ma], `*`(get_compts(ekv[uu])[ma, mu])), ma ..." align="center" border="0"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><table>
<tr>
<td valign="top" align="center"><font color="#ff0000" size="3" face="monospace"><strong>> </strong></font></td>
<td valign="top"></td>
</tr>
</table> </p>
<p align="left"><font color="#000000" size="3" face="Times New Roman"></font> </p>
<p align="left"><font color="#000000" size="3" face="Times New Roman"></font> </p>
<p align="left"><font color="#000000" size="3" face="Times New Roman"></font> </p>
<p align="left"><font color="#000000" size="3" face="Times New Roman"></font> </p>
<p align="left"><font color="#000000" size="3" face="Times New Roman"></font> </p>
<p align="left"><font color="#000000" size="3" face="Times New Roman"></font> </p>
<p align="left"><font color="#000000" size="3" face="Times New Roman"></font> </p>
</body>
</html>