HEX
Server: Apache/2.4.46 (Win64) OpenSSL/1.1.1j PHP/8.4.25
System: Windows NT DESKTOP-4TAV2RJ 10.0 build 19045 (Windows 10) AMD64
User: fred (0)
PHP: 8.4.25
Disabled: NONE
$ pwd: C:/xampp/htdocs/PSA112Tx/
Upload Files
File: C:/xampp/htdocs/PSA112Tx/tvireport.php
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>CRPC6 112T Check</title>
<style type="text/css">
<!--
body {
	font: 100% Verdana, Arial, Helvetica, sans-serif;
	background: #ffffff;
	margin: 0; /* 比較好的做法是將 Body 元素的邊界與欄位間隔調整為零，以處理不同的瀏覽器預設值 */
	padding: 0;
	text-align: center; /* 這樣會讓容器在 IE 5* 瀏覽器內置中對齊。然後，文字會在 #container 選取器中設定為靠左對齊預設值 */
	color: #000000;
}
.oneColElsCtr #container {
	width: 46em;
	background: #FFFFFF;
	margin: 0 auto; /* 自動邊界 (搭配寬度) 會讓頁面置中對齊 */
	border: 0px solid #000000;
	text-align: left; /* 這樣做會覆寫 Body 元素上的 text-align: center。 */
}
.oneColElsCtr #mainContent {
	padding: 0 20px; /* 請記住，欄位間隔就是 Div 方塊內部的空間，而邊界就是 Div 方塊外部的空間 */
}
-->
</style></head>


<body class="oneColElsCtr">

<br>
<br>


<?php
echo "Account:".$contact." Press:".$printer." Device:".$device ." date:" .$date. " File:".$tvifile;
?><br><br><?php
$sum=100;
$check=1;
	echo "CRPC6 SID Checking form! (for Type 1 paper, white backing)" .  "<br />";
    
	
   	  echo "if you see anything in ";$check=0;$sid=0;?><font color="red">RED</font><?php echo", Fix it! " .  "<br />";
	   echo "Report start: " .  "<br />";
     // echo "Stored in: " . "upload/" . $_FILES["file"]["name"]. "<br />";
	  
	  ///parsing start
	  
	  $contents = file("upload/".$tvifile);
		$string = implode($contents);
		//echo $contents[20]; 
		//echo $string; 
$p = ereg_replace("\r\n?", "\n", $string);
$p = str_replace("\n", ',', $p);
//echo $p;

function get_between ($text, $s1, $s2) {
$mid_url = "";
$pos_s = strrpos($text,$s1);
$pos_e = strrpos($text,$s2);
for ( $i=$pos_s+strlen($s1) ; (( $i<($pos_e)) && $i < strlen($text)) ; $i++ ) {
$mid_url .= $text[$i];
}
return $mid_url;
}

$datastring=get_between($p,"BEGIN_DATA","END_DATA");

$dot = explode("\t", $datastring);
$Pdot=26;
$PL=$dot[6+40*$Pdot-$Pdot];
$Pa=$dot[6+40*$Pdot-$Pdot+1];
$Pb=$dot[6+40*$Pdot-$Pdot+2];
//$depaper=sqrt(pow((95-$PL),2)+ pow((1-$Pa),2)+pow(((4)-$Pb),2));
echo "CRPC6 paper: L:95,  a:1,  b:-4<br />";
echo "paper measured: L:".$PL.",  a:".$Pa.",  b:".$Pb.  "<br />";
//echo "CRPC 6 Paper: 95	1	-4,<br> Cyan:56	-37	-50".", Magenta:48	75	-4".", Yellow:89	-4	93".", Black:16	0	0".  "<br />";

include 'lab2xyz.php';

include 'SCCA06.php';

include 'xyz2lab.php';


$RPCCl=56;$RPCCa=-37;$RPCCb=-50;
$RPCMl=48;$RPCMa=75;$RPCMb=-4;
$RPCYl=89;$RPCYa=-4;$RPCYb=93;
$RPCKl=16;$RPCKa=0.01;$RPCKb=0.01;

$Xp=lab2xyz("x",$PL,$Pa,$Pb);
$Yp=lab2xyz("y",$PL,$Pa,$Pb);
$Zp=lab2xyz("z",$PL,$Pa,$Pb);
//////////////////////////////////////////////////////////////
$RPCCX=lab2xyz("x",$RPCCl,$RPCCa,$RPCCb);
$RPCCY=lab2xyz("y",$RPCCl,$RPCCa,$RPCCb);
$RPCCZ=lab2xyz("z",$RPCCl,$RPCCa,$RPCCb);

$scCX=SCCA06("x",$RPCCX,$Xp);
$scCY=SCCA06("y",$RPCCY,$Yp);
$scCZ=SCCA06("z",$RPCCZ,$Zp);

$scCL=xyz2lab("l",$scCX,$scCY,$scCZ);
$scCa=xyz2lab("a",$scCX,$scCY,$scCZ);
$scCb=xyz2lab("b",$scCX,$scCY,$scCZ);
/////////////////////////////////////////////////////////////
$RPCMX=lab2xyz("x",$RPCMl,$RPCMa,$RPCMb);
$RPCMY=lab2xyz("y",$RPCMl,$RPCMa,$RPCMb);
$RPCMZ=lab2xyz("z",$RPCMl,$RPCMa,$RPCMb);

$scMX=SCCA06("x",$RPCMX,$Xp);
$scMY=SCCA06("y",$RPCMY,$Yp);
$scMZ=SCCA06("z",$RPCMZ,$Zp);

$scML=xyz2lab("l",$scMX,$scMY,$scMZ);
$scMa=xyz2lab("a",$scMX,$scMY,$scMZ);
$scMb=xyz2lab("b",$scMX,$scMY,$scMZ);
////////////////////////////////////////////////////////////////
$RPCYX=lab2xyz("x",$RPCYl,$RPCYa,$RPCYb);
$RPCYY=lab2xyz("y",$RPCYl,$RPCYa,$RPCYb);
$RPCYZ=lab2xyz("z",$RPCYl,$RPCYa,$RPCYb);

$scYX=SCCA06("x",$RPCYX,$Xp);
$scYY=SCCA06("y",$RPCYY,$Yp);
$scYZ=SCCA06("z",$RPCYZ,$Zp);

$scYL=xyz2lab("l",$scYX,$scYY,$scYZ);
$scYa=xyz2lab("a",$scYX,$scYY,$scYZ);
$scYb=xyz2lab("b",$scYX,$scYY,$scYZ);
////////////////////////////////////////////////////////////////////
$RPCKX=lab2xyz("x",$RPCKl,$RPCKa,$RPCKb);
$RPCKY=lab2xyz("y",$RPCKl,$RPCKa,$RPCKb);
$RPCKZ=lab2xyz("z",$RPCKl,$RPCKa,$RPCKb);

$scKX=SCCA06("x",$RPCKX,$Xp);
$scKY=SCCA06("y",$RPCKY,$Yp);
$scKZ=SCCA06("z",$RPCKZ,$Zp);

$scKL=xyz2lab("l",$scKX,$scKY,$scKZ);
$scKa=xyz2lab("a",$scKX,$scKY,$scKZ);
$scKb=xyz2lab("b",$scKX,$scKY,$scKZ);

//echo "CRPC 6 SCCA <br> Cyan L:".round($scCL,2)."  a:".round($scCa,2)."  b:".round($scCb,2)."<br>Magenta L:".round($scML,2)."  a:".round($scMa,2)."  b:".round($scMb,2)."<br>Yellow L:".round($scYL,2)."  a:".round($scYa,2)."  b:".round($scYb,2)."<br>Black L:".round($scKL,2)."  a:".round($scKa,2)."  b:".round($scKb,2).  "<br />";
?>


	<p><p>
	
	<table width="200" border="1" align="center">
  <tr>
  	<td><div align="center">SID</div></td>
    <td><font color="#aaaaaa">1</td>
    <td><font color="#aaaaaa">2</td>
    <td><font color="#aaaaaa">3</td>
    <td><font color="#aaaaaa">4</td>
    <td><font color="#aaaaaa">5</td>
    <td><font color="#666666">6</td>
    <td><font color="#666666">7</td>
    <td><font color="#666666">8</td>
    <td><font color="#666666">9</td>
    <td><font color="#666666">10</td>
    <td><font color="#666666">11</td>
    <td><font color="#666666">12</td>
    <td><font color="#666666">13</td>
    <td>14</td>
    <td>15</td>
    <td>16</td>
    <td>17</td>
    <td>18</td>
    <td>19</td>
	<td>20</td>
	    <td><font color="#666666">21</td>
    <td><font color="#666666">22</td>
    <td><font color="#666666">23</td>
    <td>24</td>
    <td>25</td>
    <td>26</td>
    <td>27</td>
    <td>28</td>
    <td>29</td>
	<td>30</td>
  </tr>
  


  <?php
  //////////////////////////////////////////////////Fogra Media Check
  $psum=20;
 // $pl=95; $pa=-0.01;$pb=-2;
  $cl=$scCL; $ca=$scCa;$cb=$scCb;
  $ml=$scML; $ma=$scMa;$mb=$scMb;
  $yl=$scYL; $ya=$scYa;$yb=$scYb;
  $kl=$scKL; $ka=$scKa;$kb=$scKb;
  
  //$pal=$dot[312]; $paa=$dot[313];$pab=$dot[314];$pad=$dot[315];
  
$Pdot=26;
$PL=$dot[6+40*$Pdot-$Pdot];
$Pa=$dot[6+40*$Pdot-$Pdot+1];
$Pb=$dot[6+40*$Pdot-$Pdot+2];

   include 'densityV.php';
 
 $Pdot=3; $k1l=$dot[6+40*$Pdot-$Pdot]; $k1a=$dot[6+40*$Pdot-$Pdot+1];$k1b=$dot[6+40*$Pdot-$Pdot+2];
 $k1d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
 $Pdot=0; $c1l=$dot[6+40*$Pdot-$Pdot]; $c1a=$dot[6+40*$Pdot-$Pdot1+1];$c1b=$dot[6+40*$Pdot-$Pdot+2];
 $c1d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
 $Pdot=1; $m1l=$dot[6+40*$Pdot-$Pdot]; $m1a=$dot[6+40*$Pdot-$Pdot+1];$m1b=$dot[6+40*$Pdot-$Pdot+2];
 $m1d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);

 $Pdot=2; $y1l=$dot[6+40*$Pdot-$Pdot]; $y1a=$dot[6+40*$Pdot-$Pdot+1];$y1b=$dot[6+40*$Pdot-$Pdot+2];
 $y1d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
 $Pdot=4; $c2l=$dot[6+40*$Pdot-$Pdot]; $c2a=$dot[6+40*$Pdot-$Pdot+1];$c2b=$dot[6+40*$Pdot-$Pdot+2];
 $c2d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
 $Pdot=5; $m2l=$dot[6+40*$Pdot-$Pdot]; $m2a=$dot[6+40*$Pdot-$Pdot+1];$m2b=$dot[6+40*$Pdot-$Pdot+2];
 $m2d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=6; $y2l=$dot[6+40*$Pdot-$Pdot]; $y2a=$dot[6+40*$Pdot-$Pdot+1];$y2b=$dot[6+40*$Pdot-$Pdot+2];
 $y2d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
 $Pdot=7; $k2l=$dot[6+40*$Pdot-$Pdot]; $k2a=$dot[6+40*$Pdot-$Pdot+1];$k2b=$dot[6+40*$Pdot-$Pdot+2];
 $k2d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
  
 $Pdot=8; $c3l=$dot[6+40*$Pdot-$Pdot]; $c3a=$dot[6+40*$Pdot-$Pdot+1];$c3b=$dot[6+40*$Pdot-$Pdot+2];
 $c3d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=9; $m3l=$dot[6+40*$Pdot-$Pdot]; $m3a=$dot[6+40*$Pdot-$Pdot+1];$m3b=$dot[6+40*$Pdot-$Pdot+2];
 $m3d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=10; $y3l=$dot[6+40*$Pdot-$Pdot]; $y3a=$dot[6+40*$Pdot-$Pdot+1];$y3b=$dot[6+40*$Pdot-$Pdot+2];
 $y3d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=11; $k3l=$dot[6+40*$Pdot-$Pdot]; $k3a=$dot[6+40*$Pdot-$Pdot+1];$k3b=$dot[6+40*$Pdot-$Pdot+2];
 $k3d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=12; $c4l=$dot[6+40*$Pdot-$Pdot]; $c4a=$dot[6+40*$Pdot-$Pdot+1];$c4b=$dot[6+40*$Pdot-$Pdot+2];
 $c4d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=13; $m4l=$dot[6+40*$Pdot-$Pdot]; $m4a=$dot[6+40*$Pdot-$Pdot+1];$m4b=$dot[6+40*$Pdot-$Pdot+2];
 $m4d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
   $Pdot=14; $y4l=$dot[6+40*$Pdot-$Pdot]; $y4a=$dot[6+40*$Pdot-$Pdot+1];$y4b=$dot[6+40*$Pdot-$Pdot+2];
 $y4d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
   $Pdot=15; $k4l=$dot[6+40*$Pdot-$Pdot]; $k4a=$dot[6+40*$Pdot-$Pdot+1];$k4b=$dot[6+40*$Pdot-$Pdot+2];
 $k4d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
  
  $Pdot=16; $c5l=$dot[6+40*$Pdot-$Pdot]; $c5a=$dot[6+40*$Pdot-$Pdot+1];$c5b=$dot[6+40*$Pdot-$Pdot+2];
 $c5d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
   $Pdot=17; $m5l=$dot[6+40*$Pdot-$Pdot]; $m5a=$dot[6+40*$Pdot-$Pdot+1];$m5b=$dot[6+40*$Pdot-$Pdot+2];
 $m5d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
   $Pdot=18; $y5l=$dot[6+40*$Pdot-$Pdot]; $y5a=$dot[6+40*$Pdot-$Pdot+1];$y5b=$dot[6+40*$Pdot-$Pdot+2];
 $y5d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
   $Pdot=19; $k5l=$dot[6+40*$Pdot-$Pdot]; $k5a=$dot[6+40*$Pdot-$Pdot+1];$k5b=$dot[6+40*$Pdot-$Pdot+2];
 $k5d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
  
 // $cc17l=$dot[180]; $cc17a=$dot[181];$cc175b=$dot[182];$cc17d=$dot[184];
  
  $Pdot=20; $c6l=$dot[6+40*$Pdot-$Pdot]; $c6a=$dot[6+40*$Pdot-$Pdot+1];$c6b=$dot[6+40*$Pdot-$Pdot+2];
 $c6d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
   $Pdot=21; $m6l=$dot[6+40*$Pdot-$Pdot]; $m6a=$dot[6+40*$Pdot-$Pdot+1];$m6b=$dot[6+40*$Pdot-$Pdot+2];
 $m6d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
   $Pdot=22; $y6l=$dot[6+40*$Pdot-$Pdot]; $y6a=$dot[6+40*$Pdot-$Pdot+1];$y6b=$dot[6+40*$Pdot-$Pdot+2];
 $y6d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
   $Pdot=23; $k6l=$dot[6+40*$Pdot-$Pdot]; $k6a=$dot[6+40*$Pdot-$Pdot+1];$k6b=$dot[6+40*$Pdot-$Pdot+2];
 $k6d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
  
   $Pdot=24; $c7l=$dot[6+40*$Pdot-$Pdot]; $c7a=$dot[6+40*$Pdot-$Pdot+1];$c7b=$dot[6+40*$Pdot-$Pdot+2];
 $c7d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
    $Pdot=25; $m7l=$dot[6+40*$Pdot-$Pdot]; $m7a=$dot[6+40*$Pdot-$Pdot+1];$m7b=$dot[6+40*$Pdot-$Pdot+2];
 $m7d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);

    $Pdot=27; $k7l=$dot[6+40*$Pdot-$Pdot]; $k7a=$dot[6+40*$Pdot-$Pdot+1];$k7b=$dot[6+40*$Pdot-$Pdot+2];
 $k7d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
 
     $Pdot=28; $c8l=$dot[6+40*$Pdot-$Pdot]; $c8a=$dot[6+40*$Pdot-$Pdot+1];$c8b=$dot[6+40*$Pdot-$Pdot+2];
 $c8d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
      $Pdot=29; $m8l=$dot[6+40*$Pdot-$Pdot]; $m8a=$dot[6+40*$Pdot-$Pdot+1];$m8b=$dot[6+40*$Pdot-$Pdot+2];
 $m8d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 

 $Pdot=30; $y9l=$dot[6+40*$Pdot-$Pdot]; $y9a=$dot[6+40*$Pdot-$Pdot+1];$y9b=$dot[6+40*$Pdot-$Pdot+2];
 $y9d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
       $Pdot=31; $k9l=$dot[6+40*$Pdot-$Pdot]; $k9a=$dot[6+40*$Pdot-$Pdot+1];$k9b=$dot[6+40*$Pdot-$Pdot+2];
 $k9d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=32; $c9l=$dot[6+40*$Pdot-$Pdot]; $c9a=$dot[6+40*$Pdot-$Pdot+1];$c9b=$dot[6+40*$Pdot-$Pdot+2];
 $c9d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);

  $Pdot=33; $m9l=$dot[6+40*$Pdot-$Pdot]; $m9a=$dot[6+40*$Pdot-$Pdot+1];$m9b=$dot[6+40*$Pdot-$Pdot+2];
 $m9d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]); 
 
  $Pdot=34; $y10l=$dot[6+40*$Pdot-$Pdot]; $y10a=$dot[6+40*$Pdot-$Pdot+1];$y10b=$dot[6+40*$Pdot-$Pdot+2];
 $y10d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
   $Pdot=35; $k10l=$dot[6+40*$Pdot-$Pdot]; $k10a=$dot[6+40*$Pdot-$Pdot+1];$k10b=$dot[6+40*$Pdot-$Pdot+2];
 $k10d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
   $Pdot=36; $c10l=$dot[6+40*$Pdot-$Pdot]; $c10a=$dot[6+40*$Pdot-$Pdot+1];$c10b=$dot[6+40*$Pdot-$Pdot+2];
 $c10d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
   $Pdot=37; $m10l=$dot[6+40*$Pdot-$Pdot]; $m10a=$dot[6+40*$Pdot-$Pdot+1];$m10b=$dot[6+40*$Pdot-$Pdot+2];
 $m10d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=38; $y11l=$dot[6+40*$Pdot-$Pdot]; $y11a=$dot[6+40*$Pdot-$Pdot+1];$y11b=$dot[6+40*$Pdot-$Pdot+2];
 $y11d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);

    $Pdot=39; $k11l=$dot[6+40*$Pdot-$Pdot]; $k11a=$dot[6+40*$Pdot-$Pdot+1];$k11b=$dot[6+40*$Pdot-$Pdot+2];
 $k11d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
   $Pdot=40; $c11l=$dot[6+40*$Pdot-$Pdot]; $c11a=$dot[6+40*$Pdot-$Pdot+1];$c11b=$dot[6+40*$Pdot-$Pdot+2];
 $c11d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
   $Pdot=41; $m11l=$dot[6+40*$Pdot-$Pdot]; $m11a=$dot[6+40*$Pdot-$Pdot+1];$m11b=$dot[6+40*$Pdot-$Pdot+2];
 $m11d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);

  
  $Pdot=42; $y12l=$dot[6+40*$Pdot-$Pdot]; $y12a=$dot[6+40*$Pdot-$Pdot+1];$y12b=$dot[6+40*$Pdot-$Pdot+2];
 $y12d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
   $Pdot=43; $k12l=$dot[6+40*$Pdot-$Pdot]; $k12a=$dot[6+40*$Pdot-$Pdot+1];$k12b=$dot[6+40*$Pdot-$Pdot+2];
 $k12d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
   $Pdot=44; $c12l=$dot[6+40*$Pdot-$Pdot]; $c12a=$dot[6+40*$Pdot-$Pdot+1];$c12b=$dot[6+40*$Pdot-$Pdot+2];
 $c12d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
   $Pdot=45; $m12l=$dot[6+40*$Pdot-$Pdot]; $m12a=$dot[6+40*$Pdot-$Pdot+1];$m12b=$dot[6+40*$Pdot-$Pdot+2];
 $m12d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);

  $Pdot=46; $y13l=$dot[6+40*$Pdot-$Pdot]; $y13a=$dot[6+40*$Pdot-$Pdot+1];$y13b=$dot[6+40*$Pdot-$Pdot+2];
 $y13d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
  
    $Pdot=47; $k13l=$dot[6+40*$Pdot-$Pdot]; $k13a=$dot[6+40*$Pdot-$Pdot+1];$k13b=$dot[6+40*$Pdot-$Pdot+2];
 $k13d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
   $Pdot=48; $c13l=$dot[6+40*$Pdot-$Pdot]; $c13a=$dot[6+40*$Pdot-$Pdot+1];$c13b=$dot[6+40*$Pdot-$Pdot+2];
 $c13d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
   $Pdot=49; $m13l=$dot[6+40*$Pdot-$Pdot]; $m13a=$dot[6+40*$Pdot-$Pdot+1];$m13b=$dot[6+40*$Pdot-$Pdot+2];
 $m13d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
 $Pdot=50; $y14l=$dot[6+40*$Pdot-$Pdot]; $y14a=$dot[6+40*$Pdot-$Pdot+1];$y14b=$dot[6+40*$Pdot-$Pdot+2];
 $y14d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
 $Pdot=51; $k14l=$dot[6+40*$Pdot-$Pdot]; $k14a=$dot[6+40*$Pdot-$Pdot+1];$k14b=$dot[6+40*$Pdot-$Pdot+2];
 $k14d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=52; $c14l=$dot[6+40*$Pdot-$Pdot]; $c14a=$dot[6+40*$Pdot-$Pdot+1];$c14b=$dot[6+40*$Pdot-$Pdot+2];
 $c14d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=53; $m14l=$dot[6+40*$Pdot-$Pdot]; $m14a=$dot[6+40*$Pdot-$Pdot+1];$m14b=$dot[6+40*$Pdot-$Pdot+2];
 $m14d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
  

 $Pdot=56; $c16l=$dot[6+40*$Pdot-$Pdot]; $c16a=$dot[6+40*$Pdot-$Pdot+1];$c16b=$dot[6+40*$Pdot-$Pdot+2];
 $c16d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=57; $m16l=$dot[6+40*$Pdot-$Pdot]; $m16a=$dot[6+40*$Pdot-$Pdot+1];$m16b=$dot[6+40*$Pdot-$Pdot+2];
 $m16d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=58; $y16l=$dot[6+40*$Pdot-$Pdot]; $y16a=$dot[6+40*$Pdot-$Pdot+1];$y16b=$dot[6+40*$Pdot-$Pdot+2];
 $y16d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=59; $k16l=$dot[6+40*$Pdot-$Pdot]; $k16a=$dot[6+40*$Pdot-$Pdot+1];$k16b=$dot[6+40*$Pdot-$Pdot+2];
 $k16d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
  
  
 $Pdot=60; $c17l=$dot[6+40*$Pdot-$Pdot]; $c17a=$dot[6+40*$Pdot-$Pdot+1];$c17b=$dot[6+40*$Pdot-$Pdot+2];
 $c17d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=61; $m17l=$dot[6+40*$Pdot-$Pdot]; $m17a=$dot[6+40*$Pdot-$Pdot+1];$m17b=$dot[6+40*$Pdot-$Pdot+2];
 $m17d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=62; $y17l=$dot[6+40*$Pdot-$Pdot]; $y17a=$dot[6+40*$Pdot-$Pdot+1];$y17b=$dot[6+40*$Pdot-$Pdot+2];
 $y17d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=63; $k17l=$dot[6+40*$Pdot-$Pdot]; $k17a=$dot[6+40*$Pdot-$Pdot+1];$k17b=$dot[6+40*$Pdot-$Pdot+2];
 $k17d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
  
  
 $Pdot=64; $c18l=$dot[6+40*$Pdot-$Pdot]; $c18a=$dot[6+40*$Pdot-$Pdot+1];$c18b=$dot[6+40*$Pdot-$Pdot+2];
 $c18d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=65; $m18l=$dot[6+40*$Pdot-$Pdot]; $m18a=$dot[6+40*$Pdot-$Pdot+1];$m18b=$dot[6+40*$Pdot-$Pdot+2];
 $m18d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=66; $y18l=$dot[6+40*$Pdot-$Pdot]; $y18a=$dot[6+40*$Pdot-$Pdot+1];$y18b=$dot[6+40*$Pdot-$Pdot+2];
 $y18d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=67; $k18l=$dot[6+40*$Pdot-$Pdot]; $k18a=$dot[6+40*$Pdot-$Pdot+1];$k18b=$dot[6+40*$Pdot-$Pdot+2];
 $k18d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
  
  
 $Pdot=68; $c19l=$dot[6+40*$Pdot-$Pdot]; $c19a=$dot[6+40*$Pdot-$Pdot+1];$c19b=$dot[6+40*$Pdot-$Pdot+2];
 $c19d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=69; $m19l=$dot[6+40*$Pdot-$Pdot]; $m19a=$dot[6+40*$Pdot-$Pdot+1];$m19b=$dot[6+40*$Pdot-$Pdot+2];
 $m19d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=70; $y19l=$dot[6+40*$Pdot-$Pdot]; $y19a=$dot[6+40*$Pdot-$Pdot+1];$y19b=$dot[6+40*$Pdot-$Pdot+2];
 $y19d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=71; $k19l=$dot[6+40*$Pdot-$Pdot]; $k19a=$dot[6+40*$Pdot-$Pdot+1];$k19b=$dot[6+40*$Pdot-$Pdot+2];
 $k19d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
  
  
 $Pdot=72; $c20l=$dot[6+40*$Pdot-$Pdot]; $c20a=$dot[6+40*$Pdot-$Pdot+1];$c20b=$dot[6+40*$Pdot-$Pdot+2];
 $c20d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=73; $m20l=$dot[6+40*$Pdot-$Pdot]; $m20a=$dot[6+40*$Pdot-$Pdot+1];$m20b=$dot[6+40*$Pdot-$Pdot+2];
 $m20d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=74; $y20l=$dot[6+40*$Pdot-$Pdot]; $y20a=$dot[6+40*$Pdot-$Pdot+1];$y20b=$dot[6+40*$Pdot-$Pdot+2];
 $y20d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=75; $k20l=$dot[6+40*$Pdot-$Pdot]; $k20a=$dot[6+40*$Pdot-$Pdot+1];$k20b=$dot[6+40*$Pdot-$Pdot+2];
 $k20d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
  
 $Pdot=76; $c21l=$dot[6+40*$Pdot-$Pdot]; $c21a=$dot[6+40*$Pdot-$Pdot+1];$c21b=$dot[6+40*$Pdot-$Pdot+2];
 $c21d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=77; $m21l=$dot[6+40*$Pdot-$Pdot]; $m21a=$dot[6+40*$Pdot-$Pdot+1];$m21b=$dot[6+40*$Pdot-$Pdot+2];
 $m21d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=78; $y21l=$dot[6+40*$Pdot-$Pdot]; $y21a=$dot[6+40*$Pdot-$Pdot+1];$y21b=$dot[6+40*$Pdot-$Pdot+2];
 $y21d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=79; $k21l=$dot[6+40*$Pdot-$Pdot]; $k21a=$dot[6+40*$Pdot-$Pdot+1];$k21b=$dot[6+40*$Pdot-$Pdot+2];
 $k21d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
  
 $Pdot=80; $c22l=$dot[6+40*$Pdot-$Pdot]; $c22a=$dot[6+40*$Pdot-$Pdot+1];$c22b=$dot[6+40*$Pdot-$Pdot+2];
 $c22d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=81; $m22l=$dot[6+40*$Pdot-$Pdot]; $m22a=$dot[6+40*$Pdot-$Pdot+1];$m22b=$dot[6+40*$Pdot-$Pdot+2];
 $m22d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=82; $y22l=$dot[6+40*$Pdot-$Pdot]; $y22a=$dot[6+40*$Pdot-$Pdot+1];$y22b=$dot[6+40*$Pdot-$Pdot+2];
 $y22d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=83; $k22l=$dot[6+40*$Pdot-$Pdot]; $k22a=$dot[6+40*$Pdot-$Pdot+1];$k22b=$dot[6+40*$Pdot-$Pdot+2];
 $k22d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
  
 $Pdot=84; $c23l=$dot[6+40*$Pdot-$Pdot]; $c23a=$dot[6+40*$Pdot-$Pdot+1];$c23b=$dot[6+40*$Pdot-$Pdot+2];
 $c23d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);

  $Pdot=85; $m24l=$dot[6+40*$Pdot-$Pdot]; $m24a=$dot[6+40*$Pdot-$Pdot+1];$m24b=$dot[6+40*$Pdot-$Pdot+2];
 $m24d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=86; $y24l=$dot[6+40*$Pdot-$Pdot]; $y24a=$dot[6+40*$Pdot-$Pdot+1];$y24b=$dot[6+40*$Pdot-$Pdot+2];
 $y24d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=87; $k24l=$dot[6+40*$Pdot-$Pdot]; $k24a=$dot[6+40*$Pdot-$Pdot+1];$k24b=$dot[6+40*$Pdot-$Pdot+2];
 $k24d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=88; $c24l=$dot[6+40*$Pdot-$Pdot]; $c24a=$dot[6+40*$Pdot-$Pdot+1];$c24b=$dot[6+40*$Pdot-$Pdot+2];
 $c24d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
  
 $Pdot=85; $m25l=$dot[6+40*$Pdot-$Pdot]; $m25a=$dot[6+40*$Pdot-$Pdot+1];$m25b=$dot[6+40*$Pdot-$Pdot+2];
 $m25d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=86; $y25l=$dot[6+40*$Pdot-$Pdot]; $y25a=$dot[6+40*$Pdot-$Pdot+1];$y25b=$dot[6+40*$Pdot-$Pdot+2];
 $y25d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=87; $k25l=$dot[6+40*$Pdot-$Pdot]; $k25a=$dot[6+40*$Pdot-$Pdot+1];$k25b=$dot[6+40*$Pdot-$Pdot+2];
 $k25d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=88; $c25l=$dot[6+40*$Pdot-$Pdot]; $c25a=$dot[6+40*$Pdot-$Pdot+1];$c25b=$dot[6+40*$Pdot-$Pdot+2];
 $c25d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
  
 $Pdot=89; $m26l=$dot[6+40*$Pdot-$Pdot]; $m26a=$dot[6+40*$Pdot-$Pdot+1];$m26b=$dot[6+40*$Pdot-$Pdot+2];
 $m26d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=90; $y26l=$dot[6+40*$Pdot-$Pdot]; $y26a=$dot[6+40*$Pdot-$Pdot+1];$y26b=$dot[6+40*$Pdot-$Pdot+2];
 $y26d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=91; $k26l=$dot[6+40*$Pdot-$Pdot]; $k26a=$dot[6+40*$Pdot-$Pdot+1];$k26b=$dot[6+40*$Pdot-$Pdot+2];
 $k26d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=92; $c26l=$dot[6+40*$Pdot-$Pdot]; $c26a=$dot[6+40*$Pdot-$Pdot+1];$c26b=$dot[6+40*$Pdot-$Pdot+2];
 $c26d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
  
 $Pdot=93; $m27l=$dot[6+40*$Pdot-$Pdot]; $m27a=$dot[6+40*$Pdot-$Pdot+1];$m27b=$dot[6+40*$Pdot-$Pdot+2];
 $m27d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=94; $y27l=$dot[6+40*$Pdot-$Pdot]; $y27a=$dot[6+40*$Pdot-$Pdot+1];$y27b=$dot[6+40*$Pdot-$Pdot+2];
 $y27d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=95; $k27l=$dot[6+40*$Pdot-$Pdot]; $k27a=$dot[6+40*$Pdot-$Pdot+1];$k27b=$dot[6+40*$Pdot-$Pdot+2];
 $k27d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=96; $c27l=$dot[6+40*$Pdot-$Pdot]; $c27a=$dot[6+40*$Pdot-$Pdot+1];$c27b=$dot[6+40*$Pdot-$Pdot+2];
 $c27d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
  
 $Pdot=97; $m28l=$dot[6+40*$Pdot-$Pdot]; $m28a=$dot[6+40*$Pdot-$Pdot+1];$m28b=$dot[6+40*$Pdot-$Pdot+2];
 $m28d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=98; $y28l=$dot[6+40*$Pdot-$Pdot]; $y28a=$dot[6+40*$Pdot-$Pdot+1];$y28b=$dot[6+40*$Pdot-$Pdot+2];
 $y28d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=99; $k28l=$dot[6+40*$Pdot-$Pdot]; $k28a=$dot[6+40*$Pdot-$Pdot+1];$k28b=$dot[6+40*$Pdot-$Pdot+2];
 $k28d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=100; $c28l=$dot[6+40*$Pdot-$Pdot]; $c28a=$dot[6+40*$Pdot-$Pdot+1];$c28b=$dot[6+40*$Pdot-$Pdot+2];
 $c28d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
  
    
 $Pdot=101; $m29l=$dot[6+40*$Pdot-$Pdot]; $m29a=$dot[6+40*$Pdot-$Pdot+1];$m29b=$dot[6+40*$Pdot-$Pdot+2];
 $m29d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=102; $y29l=$dot[6+40*$Pdot-$Pdot]; $y29a=$dot[6+40*$Pdot-$Pdot+1];$y29b=$dot[6+40*$Pdot-$Pdot+2];
 $y29d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=103; $k29l=$dot[6+40*$Pdot-$Pdot]; $k29a=$dot[6+40*$Pdot-$Pdot+1];$k29b=$dot[6+40*$Pdot-$Pdot+2];
 $k29d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=104; $c29l=$dot[6+40*$Pdot-$Pdot]; $c29a=$dot[6+40*$Pdot-$Pdot+1];$c29b=$dot[6+40*$Pdot-$Pdot+2];
 $c29d=DensitySp("C",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
  
 $Pdot=105; $m30l=$dot[6+40*$Pdot-$Pdot]; $m30a=$dot[6+40*$Pdot-$Pdot+1];$m30b=$dot[6+40*$Pdot-$Pdot+2];
 $m30d=DensitySp("M",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=106; $y30l=$dot[6+40*$Pdot-$Pdot]; $y30a=$dot[6+40*$Pdot-$Pdot+1];$y30b=$dot[6+40*$Pdot-$Pdot+2];
 $y30d=DensitySp("Y",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 
  $Pdot=107; $k30l=$dot[6+40*$Pdot-$Pdot]; $k30a=$dot[6+40*$Pdot-$Pdot+1];$k30b=$dot[6+40*$Pdot-$Pdot+2];
 $k30d=DensitySp("K",$dot[6+40*$Pdot-$Pdot+3],$dot[6+40*$Pdot-$Pdot+4],$dot[6+40*$Pdot-$Pdot+5],$dot[6+40*$Pdot-$Pdot+6],$dot[6+40*$Pdot-$Pdot+7],$dot[6+40*$Pdot-$Pdot+8],$dot[6+40*$Pdot-$Pdot+9],$dot[6+40*$Pdot-$Pdot+10],$dot[6+40*$Pdot-$Pdot+11],$dot[6+40*$Pdot-$Pdot+12],$dot[6+40*$Pdot-$Pdot+13],$dot[6+40*$Pdot-$Pdot+14],$dot[6+40*$Pdot-$Pdot+15],$dot[6+40*$Pdot-$Pdot+16],$dot[6+40*$Pdot-$Pdot+17],$dot[6+40*$Pdot-$Pdot+18],$dot[6+40*$Pdot-$Pdot+19],$dot[6+40*$Pdot-$Pdot+20],$dot[6+40*$Pdot-$Pdot+21],$dot[6+40*$Pdot-$Pdot+22],$dot[6+40*$Pdot-$Pdot+23],$dot[6+40*$Pdot-$Pdot+24],$dot[6+40*$Pdot-$Pdot+25],$dot[6+40*$Pdot-$Pdot+26],$dot[6+40*$Pdot-$Pdot+27],$dot[6+40*$Pdot-$Pdot+28],$dot[6+40*$Pdot-$Pdot+29],$dot[6+40*$Pdot-$Pdot+30],$dot[6+40*$Pdot-$Pdot+31],$dot[6+40*$Pdot-$Pdot+32],$dot[6+40*$Pdot-$Pdot+33]);
 

  
function de76($l1,$a1,$b1,$l2,$a2,$b2) {
  $d76=sqrt(pow(($l1-$l2),2)+ pow(($a1-$a2),2)+pow(($b1-$b2),2));
  return round($d76,2);
}

function de94($l1,$a1,$b1,$l2,$a2,$b2) {
  $cp=SQRT(pow($a1,2)+pow($b1,2));
  $ctp=SQRT(pow($a2,2)+pow($b2,2));
  $d76=sqrt(pow(($l1-$l2),2)+ pow(($a1-$a2),2)+pow(($b1-$b2),2));
  $dph=SQRT(ABS(pow($d76,2)-pow(($l1-$l2),2)-pow((SQRT(pow($a1,2)+pow($b1,2))-SQRT(pow($a2,2)+pow($b2,2))),2)));
  $dcp=$ctp-$cp;
  $d94=SQRT((pow((($l1-$l2)/(1*1)),2))+pow(($dcp/(1*(1+(0.045*$cp)))),2)+ pow(($dph/(1*(1+(0.015*$cp)))),2));
  return round($d94,2);
} 

 include 'dE00.php';
 $tt00=de00(55,-37,-50,54.3,-34.47,-52.63);

  $dk176=de00($kl,$ka,$kb,$k1l,$k1a,$k1b);
  $dk276=de00($kl,$ka,$kb,$k2l,$k2a,$k2b);
  $dk376=de00($kl,$ka,$kb,$k3l,$k3a,$k3b);
  $dk476=de00($kl,$ka,$kb,$k4l,$k4a,$k4b);
  $dk576=de00($kl,$ka,$kb,$k5l,$k5a,$k5b);
  $dk676=de00($kl,$ka,$kb,$k6l,$k6a,$k6b);
  $dk776=de00($kl,$ka,$kb,$k7l,$k7a,$k7b);
 // $dk876=de00($kl,$ka,$kb,$k8l,$k8a,$k8b);
  $dk976=de00($kl,$ka,$kb,$k9l,$k9a,$k9b);
  $dk1076=de00($kl,$ka,$kb,$k10l,$k10a,$k10b);
  $dk1176=de00($kl,$ka,$kb,$k11l,$k11a,$k11b);
  $dk1276=de00($kl,$ka,$kb,$k12l,$k12a,$k12b);
  $dk1376=de00($kl,$ka,$kb,$k13l,$k13a,$k13b);
  $dk1476=de00($kl,$ka,$kb,$k14l,$k14a,$k14b);
 // $dk1576=de00($kl,$ka,$kb,$k15l,$k15a,$k15b);
  $dk1676=de00($kl,$ka,$kb,$k16l,$k16a,$k16b);
  $dk1776=de00($kl,$ka,$kb,$k17l,$k17a,$k17b);
  $dk1876=de00($kl,$ka,$kb,$k18l,$k18a,$k18b);
  $dk1976=de00($kl,$ka,$kb,$k19l,$k19a,$k19b);
  $dk2076=de00($kl,$ka,$kb,$k20l,$k20a,$k20b);
  $dk2176=de00($kl,$ka,$kb,$k21l,$k21a,$k21b);
  $dk2276=de00($kl,$ka,$kb,$k22l,$k22a,$k22b);
 // $dk2376=de00($kl,$ka,$kb,$k23l,$k23a,$k23b);
  $dk2476=de00($kl,$ka,$kb,$k24l,$k24a,$k24b);
  $dk2576=de00($kl,$ka,$kb,$k25l,$k25a,$k25b);
  $dk2676=de00($kl,$ka,$kb,$k26l,$k26a,$k26b);
  $dk2776=de00($kl,$ka,$kb,$k27l,$k27a,$k27b);
  $dk2876=de00($kl,$ka,$kb,$k28l,$k28a,$k28b);
  $dk2976=de00($kl,$ka,$kb,$k29l,$k29a,$k29b);
  $dk3076=de00($kl,$ka,$kb,$k30l,$k30a,$k30b);
  $kmin=min($dk176,$dk276,$dk376,$dk476,$dk576,$dk676,$dk776,$dk976,$dk1076,$dk1176,$dk1276,$dk1376,$dk1476,$dk1676,$dk1776,$dk1876,$dk1976,$dk2076,$dk2176,$dk2276,$dk2476,$dk2576,$dk2676,$dk2776,$dk2876,$dk2976,$dk3076);
  
  
  $dk194=de94($kl,$ka,$kb,$k1l,$k1a,$k1b);
  

  ?>
<tr bgcolor="#aaaaaa">
<td><div align="center">KD</div></td>
<td><div align="right"><?php echo  round($k1d,2);?></div></td>
<td><div align="right"><?php echo  round($k2d,2);?></div></td>
<td><div align="right"><?php echo  round($k3d,2);?></div></td>
<td><div align="right"><?php echo  round($k4d,2);?></div></td>
<td><div align="right"><?php echo  round($k5d,2);?></div></td>
<td><div align="right"><?php echo  round($k6d,2);?></div></td>
<td><div align="right"><?php echo  round($k7d,2);?></div></td>
<td><div align="right"></div></td>
<td><div align="right"><?php echo  round($k9d,2);?></div></td>
<td><div align="right"><?php echo  round($k10d,2);?></div></td>
<td><div align="right"><?php echo  round($k11d,2);?></div></td>
<td><div align="right"><?php echo  round($k12d,2);?></div></td>
<td><div align="right"><?php echo  round($k13d,2);?></div></td>
<td><div align="right"><?php echo  round($k14d,2);?></div></td>
<td><div align="right"></div></td>
<td><div align="right"><?php echo  round($k16d,2);?></div></td>
<td><div align="right"><?php echo  round($k17d,2);?></div></td>
<td><div align="right"><?php echo  round($k18d,2);?></div></td>
<td><div align="right"><?php echo  round($k19d,2);?></div></td>
<td><div align="right"><?php echo  round($k20d,2);?></div></td>
<td><div align="right"><?php echo  round($k21d,2);?></div></td>
<td><div align="right"><?php echo  round($k22d,2);?></div></td>
<td><div align="right"></div></td>
<td><div align="right"><?php echo  round($k24d,2);?></div></td>
<td><div align="right"><?php echo  round($k25d,2);?></div></td>
<td><div align="right"><?php echo  round($k26d,2);?></div></td>
<td><div align="right"><?php echo  round($k27d,2);?></div></td>
<td><div align="right"><?php echo  round($k28d,2);?></div></td>
<td><div align="right"><?php echo  round($k29d,2);?></div></td>
<td><div align="right"><?php echo  round($k30d,2);?></div></td>
</tr>
<tr bgcolor="#aaaaaa">
<td><div align="center">KE</div></td>

<?php if ($dk176==$kmin){ $kopt='1';$koptD=$k1d;if ($k1l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk276==$kmin){ $kopt='2';$koptD=$k2d;if ($k2l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk376==$kmin){ $kopt='3';$koptD=$k3d;if ($k3l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk476==$kmin){ $kopt='4';$koptD=$k4d;if ($k4l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk576==$kmin){ $kopt='5';$koptD=$k5d;if ($k5l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk676==$kmin){ $kopt='6';$koptD=$k6d;if ($k6l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk776==$kmin){ $kopt='7';$koptD=$k7d;if ($k7l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php // if ($dk876==$kmin){ $kopt='8';$koptD=$k8d; if ($k8l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk976==$kmin){ $kopt='9';$koptD=$k9d;if ($k9l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1076==$kmin){ $kopt='10';$koptD=$k10d;if ($k10l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1176==$kmin){ $kopt='11';$koptD=$k11d;if ($k11l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1276==$kmin){ $kopt='12';$koptD=$k12d;if ($k12l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1376==$kmin){ $kopt='13';$koptD=$k13d;if ($k13l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1476==$kmin){ $kopt='14';$koptD=$k14d;if ($k14l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php // if ($dk1576==$kmin){ $kopt='15';$koptD=$k15d;if ($k15l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1676==$kmin){ $kopt='16';$koptD=$k16d;if ($k16l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1776==$kmin){ $kopt='17';$koptD=$k17d;if ($k17l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1876==$kmin){ $kopt='18';$koptD=$k18d;if ($k18l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1976==$kmin){ $kopt='19';$koptD=$k19d;if ($k19l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2076==$kmin){ $kopt='20';$koptD=$k20d;if ($k20l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2176==$kmin){ $kopt='21';$koptD=$k21d;if ($k21l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2276==$kmin){ $kopt='22';$koptD=$k22d;if ($k22l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php // if ($dk2376==$kmin){ $kopt='23';$koptD=$k23d;if ($k23l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2476==$kmin){ $kopt='24';$koptD=$k24d;if ($k24l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2576==$kmin){ $kopt='25';$koptD=$k25d;if ($k25l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2676==$kmin){ $kopt='26';$koptD=$k26d;if ($k26l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2776==$kmin){ $kopt='27';$koptD=$k27d;if ($k27l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2876==$kmin){ $kopt='28';$koptD=$k28d;if ($k28l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2976==$kmin){ $kopt='29';$koptD=$k29d;if ($k29l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk3076==$kmin){ $kopt='30';$koptD=$k30d;if ($k30l<16) {$kdi="-";} else {$kdi='+';}}?>

 <td <?php if ($dk176==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk176>4) {?><font color="red"><?php }elseif ($dk176==$kmin){ $kopt='1';$koptD=$k1d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk176,2);?></div></td>
 <td <?php if ($dk276==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk276>4) {?><font color="red"><?php }elseif ($dk276==$kmin){ $kopt='2';$koptD=$k2d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk276,2);?></div></td>
 <td <?php if ($dk376==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk376>4) {?><font color="red"><?php }elseif ($dk376==$kmin){ $kopt='3';$koptD=$k3d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk376,2);?></div></td>
 <td <?php if ($dk476==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk476>4) {?><font color="red"><?php }elseif ($dk476==$kmin){ $kopt='4';$koptD=$k4d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk476,2);?></div></td>
 <td <?php if ($dk576==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk576>4) {?><font color="red"><?php }elseif ($dk576==$kmin){ $kopt='5';$koptD=$k5d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk576,2);?></div></td>
 <td <?php if ($dk676==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk676>4) {?><font color="red"><?php }elseif ($dk676==$kmin){ $kopt='6';$koptD=$k6d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk676,2);?></div></td>
 <td <?php if ($dk776==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk776>4) {?><font color="red"><?php }elseif ($dk776==$kmin){ $kopt='7';$koptD=$k7d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk776,2);?></div></td>
  <td><div align="right"></td>
 <td <?php if ($dk976==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk976>4) {?><font color="red"><?php }elseif ($dk976==$kmin){ $kopt='9';$koptD=$k9d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk976,2);?></div></td>
 <td <?php if ($dk1076==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk1076>4) {?><font color="red"><?php }elseif ($dk1076==$kmin){ $kopt='10';$koptD=$k10d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk1076,2);?></div></td>
  <td <?php if ($dk1176==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk1176>4) {?><font color="red"><?php }elseif ($dk1176==$kmin){ $kopt='11';$koptD=$k11d;
  ?> <font color="green"><?php  }else {?><font color="black"><?php }echo  round($dk1176,2);?></div></td>
 <td <?php if ($dk1276==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk1276>4) {?><font color="red"><?php }elseif ($dk1276==$kmin){ $kopt='12';$koptD=$k12d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk1276,2);?></div></td>
 <td <?php if ($dk1376==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk1376>4) {?><font color="red"><?php }elseif ($dk1376==$kmin){ $kopt='13';$koptD=$k13d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk1376,2);?></div></td>
 <td <?php if ($dk1476==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk1476>4) {?><font color="red"><?php }elseif ($dk1476==$kmin){ $kopt='14';$koptD=$k14d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk1476,2);?></div></td>
  <td><div align="right"></td>
 <td <?php if ($dk1676==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk1676>4) {?><font color="red"><?php }elseif ($dk1676==$kmin){ $kopt='16';$koptD=$k16d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk1676,2);?></div></td>
 <td <?php if ($dk1776==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk1776>4) {?><font color="red"><?php }elseif ($dk1776==$kmin){ $kopt='17';$koptD=$k17d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk1776,2);?></div></td>
 <td <?php if ($dk1876==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk1876>4) {?><font color="red"><?php }elseif ($dk1876==$kmin){ $kopt='18';$koptD=$k18d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk1876,2);?></div></td>
 <td <?php if ($dk1976==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk1976>4) {?><font color="red"><?php }elseif ($dk1976==$kmin){ $kopt='19';$koptD=$k19d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk1976,2);?></div></td>
 <td <?php if ($dk2076==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk2076>4) {?><font color="red"><?php }elseif ($dk2076==$kmin){ $kopt='20'; $koptD=$k20d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk2076,2);?></div></td>
 <td <?php if ($dk2176==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk2176>4) {?><font color="red"><?php }elseif ($dk2176==$kmin){ $kopt='21';$koptD=$k21d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk2176,2);?></div></td>
 <td <?php if ($dk2276==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk2276>4) {?><font color="red"><?php }elseif ($dk2276==$kmin){ $kopt='22';$koptD=$k22d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk2276,2);?></div></td>
    <td><div align="right"></div></td>
 <td <?php if ($dk2476==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk2476>4) {?><font color="red"><?php }elseif ($dk2476==$kmin){ $kopt='24';$koptD=$k24d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk2476,2);?></div></td>
 <td <?php if ($dk2576==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk2576>4) {?><font color="red"><?php }elseif ($dk2576==$kmin){ $kopt='25';$koptD=$k25d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk2576,2);?></div></td>
 <td <?php if ($dk2676==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk2676>4) {?><font color="red"><?php }elseif ($dk2676==$kmin){ $kopt='26';$koptD=$k26d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk2676,2);?></div></td>
 <td <?php if ($dk2776==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk2776>4) {?><font color="red"><?php }elseif ($dk2776==$kmin){ $kopt='27';$koptD=$k27d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk2776,2);?></div></td>
 <td <?php if ($dk2876==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk2876>4) {?><font color="red"><?php }elseif ($dk2876==$kmin){ $kopt='28';$koptD=$k28d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk2876,2);?></div></td>
 <td <?php if ($dk2976==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk2976>4) {?><font color="red"><?php }elseif ($dk2976==$kmin){ $kopt='29';$koptD=$k29d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk2976,2);?></div></td>
 <td <?php if ($dk3076==$kmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dk3076>4) {?><font color="red"><?php }elseif ($dk3076==$kmin){ $kopt='30';$koptD=$k30d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dk3076,2);?></div></td>
  
  
  
</tr>

<?php   ////C sect

$dc176=de00($cl,$ca,$cb,$c1l,$c1a,$c1b);
  $dc276=de00($cl,$ca,$cb,$c2l,$c2a,$c2b);
  $dc376=de00($cl,$ca,$cb,$c3l,$c3a,$c3b);
  $dc476=de00($cl,$ca,$cb,$c4l,$c4a,$c4b);
  $dc576=de00($cl,$ca,$cb,$c5l,$c5a,$c5b);
  $dc676=de00($cl,$ca,$cb,$c6l,$c6a,$c6b);
 // $dc776=de00($cl,$ca,$cb,$c7l,$c7a,$c7b);
  $dc876=de00($cl,$ca,$cb,$c8l,$c8a,$c8b);
  $dc976=de00($cl,$ca,$cb,$c9l,$c9a,$c9b);
  $dc1076=de00($cl,$ca,$cb,$c10l,$c10a,$c10b);
  $dc1176=de00($cl,$ca,$cb,$c11l,$c11a,$c11b);
  $dc1276=de00($cl,$ca,$cb,$c12l,$c12a,$c12b);
  $dc1376=de00($cl,$ca,$cb,$c13l,$c13a,$c13b);
  $dc1476=de00($cl,$ca,$cb,$c14l,$c14a,$c14b);
 // $dc1576=de00($cl,$ca,$cb,$c15l,$c15a,$c15b);
  $dc1676=de00($cl,$ca,$cb,$c16l,$c16a,$c16b);
  $dc1776=de00($cl,$ca,$cb,$c17l,$c17a,$c17b);
  $dc1876=de00($cl,$ca,$cb,$c18l,$c18a,$c18b);
  $dc1976=de00($cl,$ca,$cb,$c19l,$c19a,$c19b);
  $dc2076=de00($cl,$ca,$cb,$c20l,$c20a,$c20b);
  $dc2176=de00($cl,$ca,$cb,$c21l,$c21a,$c21b);
  $dc2276=de00($cl,$ca,$cb,$c22l,$c22a,$c22b);
  $dc2376=de00($cl,$ca,$cb,$c23l,$c23a,$c23b);
  $dc2476=de00($cl,$ca,$cb,$c24l,$c24a,$c24b);
  $dc2576=de00($cl,$ca,$cb,$c25l,$c25a,$c25b);
  $dc2676=de00($cl,$ca,$cb,$c26l,$c26a,$c26b);
  $dc2776=de00($cl,$ca,$cb,$c27l,$c27a,$c27b);
  $dc2876=de00($cl,$ca,$cb,$c28l,$c28a,$c28b);
  $dc2976=de00($cl,$ca,$cb,$c29l,$c29a,$c29b);
 // $dc3076=de00($cl,$ca,$cb,$c30l,$c30a,$c30b);
  $cmin=min($dc176,$dc276,$dc376,$dc476,$dc576,$dc676,$dc876,$dc976,$dc1076,$dc1076,$dc1276,$dc1376,$dc1476,$dc1676,$dc1776,$dc1876,$dc1976,$dc2076,$dc2176,$dc2276,$dc2376,$dc2476,$dc2576,$dc2676,$dc2776,$dc2876,$dc2976);
  
  
  $dc194=de94($cl,$ca,$cb,$c1l,$c1a,$c1b);
  

  ?>
<tr bgcolor="#b1e5ff">
<td><div align="center">cD</div></td>
<td><div align="right"><?php echo  round($c1d,2);?></div></td>
<td><div align="right"><?php echo  round($c2d,2);?></div></td>
<td><div align="right"><?php echo  round($c3d,2);?></div></td>
<td><div align="right"><?php echo  round($c4d,2);?></div></td>
<td><div align="right"><?php echo  round($c5d,2);?></div></td>
<td><div align="right"><?php echo  round($c6d,2);?></div></td>
<td><div align="right"></div></td>
<td><div align="right"><?php echo  round($c8d,2);?></div></td>
<td><div align="right"><?php echo  round($c9d,2);?></div></td>
<td><div align="right"><?php echo  round($c10d,2);?></div></td>
<td><div align="right"><?php echo  round($c11d,2);?></div></td>
<td><div align="right"><?php echo  round($c12d,2);?></div></td>
<td><div align="right"><?php echo  round($c13d,2);?></div></td>
<td><div align="right"><?php echo  round($c14d,2);?></div></td>
<td><div align="right"></div></td>
<td><div align="right"><?php echo  round($c16d,2);?></div></td>
<td><div align="right"><?php echo  round($c17d,2);?></div></td>
<td><div align="right"><?php echo  round($c18d,2);?></div></td>
<td><div align="right"><?php echo  round($c19d,2);?></div></td>
<td><div align="right"><?php echo  round($c20d,2);?></div></td>
<td><div align="right"><?php echo  round($c21d,2);?></div></td>
<td><div align="right"><?php echo  round($c22d,2);?></div></td>
<td><div align="right"><?php echo  round($c23d,2);?></div></td>
<td><div align="right"><?php echo  round($c24d,2);?></div></td>
<td><div align="right"><?php echo  round($c25d,2);?></div></td>
<td><div align="right"><?php echo  round($c26d,2);?></div></td>
<td><div align="right"><?php echo  round($c27d,2);?></div></td>
<td><div align="right"><?php echo  round($c28d,2);?></div></td>
<td><div align="right"><?php echo  round($c29d,2);?></div></td>
<td><div align="right"></div></td>
</tr>
<tr bgcolor="#b1e5ff">
<td><div align="center">cE</div></td>

<?php if ($dc176==$cmin){ $copt='1';$coptD=$c1d;if ($c1b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc276==$cmin){ $copt='2';$coptD=$c2d;if ($c2b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc376==$cmin){ $copt='3';$coptD=$c3d;if ($c3b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc476==$cmin){ $copt='4';$coptD=$c4d;if ($c4b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc576==$cmin){ $copt='5';$coptD=$c5d;if ($c5b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc676==$cmin){ $copt='6';$coptD=$c6d;if ($c6b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php // if ($dc776==$cmin){ $copt='7';$coptD=$c7d;if ($c7b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc876==$cmin){ $copt='8';$coptD=$c8d; if ($c8b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc976==$cmin){ $copt='9';$coptD=$c9d;if ($c9b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1076==$cmin){ $copt='10';$coptD=$c10d;if ($c10b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1176==$cmin){ $copt='11';$coptD=$c11d;if ($c11b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1276==$cmin){ $copt='12';$coptD=$c12d;if ($c12b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1376==$cmin){ $copt='13';$coptD=$c13d;if ($c13b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1476==$cmin){ $copt='14';$coptD=$c14d;if ($c14b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php // if ($dc1576==$cmin){ $copt='15';$coptD=$c15d;if ($c15b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1676==$cmin){ $copt='16';$coptD=$c16d;if ($c16b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1776==$cmin){ $copt='17';$coptD=$c17d;if ($c17b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1876==$cmin){ $copt='18';$coptD=$c18d;if ($c18b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1976==$cmin){ $copt='19';$coptD=$c19d;if ($c19b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2076==$cmin){ $copt='20';$coptD=$c20d;if ($c20b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2176==$cmin){ $copt='21';$coptD=$c21d;if ($c21b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2276==$cmin){ $copt='22';$coptD=$c22d;if ($c22b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2376==$cmin){ $copt='23';$coptD=$c23d;if ($c23b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2476==$cmin){ $copt='24';$coptD=$c24d;if ($c24b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2576==$cmin){ $copt='25';$coptD=$c25d;if ($c25b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2676==$cmin){ $copt='26';$coptD=$c26d;if ($c26b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2776==$cmin){ $copt='27';$coptD=$c27d;if ($c27b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2876==$cmin){ $copt='28';$coptD=$c28d;if ($c28b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2976==$cmin){ $copt='29';$coptD=$c29d;if ($c29b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php // if ($dc3076==$cmin){ $copt='30';$coptD=$c30d;if ($c30b<-50) {$cdi="-";} else {$cdi='+';}}?>


 <td <?php if ($dc176==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc176>4) {?><font color="red"><?php }elseif ($dc176==$cmin){ $copt='1';$coptD=$c1d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc176,2);?></div></td>
 <td <?php if ($dc276==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc276>4) {?><font color="red"><?php }elseif ($dc276==$cmin){ $copt='2';$coptD=$c2d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc276,2);?></div></td>
 <td <?php if ($dc376==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc376>4) {?><font color="red"><?php }elseif ($dc376==$cmin){ $copt='3';$coptD=$c3d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc376,2);?></div></td>
 <td <?php if ($dc476==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc476>4) {?><font color="red"><?php }elseif ($dc476==$cmin){ $copt='4';$coptD=$c4d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc476,2);?></div></td>
 <td <?php if ($dc576==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc576>4) {?><font color="red"><?php }elseif ($dc576==$cmin){ $copt='5';$coptD=$c5d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc576,2);?></div></td>
 <td <?php if ($dc676==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc676>4) {?><font color="red"><?php }elseif ($dc676==$cmin){ $copt='6';$coptD=$c6d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc676,2);?></div></td>
  <td><div align="right"></td>
 <td <?php if ($dc876==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc876>4) {?><font color="red"><?php }elseif ($dc876==$cmin){ $copt='8';$coptD=$c8d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc876,2);?></div></td>
 <td <?php if ($dc976==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc976>4) {?><font color="red"><?php }elseif ($dc976==$cmin){ $copt='9';$coptD=$c9d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc976,2);?></div></td>
 <td <?php if ($dc1076==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc1076>4) {?><font color="red"><?php }elseif ($dc1076==$cmin){ $copt='10';$coptD=$c10d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc1076,2);?></div></td>
 <td <?php if ($dc1176==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc1176>4) {?><font color="red"><?php }elseif ($dc1176==$cmin){ $copt='11';$coptD=$c11d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc1176,2);?></div></td>
 <td <?php if ($dc1276==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc1276>4) {?><font color="red"><?php }elseif ($dc1276==$cmin){ $copt='12';$coptD=$c12d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc1276,2);?></div></td>
 <td <?php if ($dc1376==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc1376>4) {?><font color="red"><?php }elseif ($dc1376==$cmin){ $copt='13';$coptD=$c13d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc1376,2);?></div></td>
 <td <?php if ($dc1476==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc1476>4) {?><font color="red"><?php }elseif ($dc1476==$cmin){ $copt='14';$coptD=$c14d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc1476,2);?></div></td>
  <td><div align="right"></td>
 <td <?php if ($dc1676==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc1676>4) {?><font color="red"><?php }elseif ($dc1676==$cmin){ $copt='16';$coptD=$c16d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc1676,2);?></div></td>
 <td <?php if ($dc1776==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc1776>4) {?><font color="red"><?php }elseif ($dc1776==$cmin){ $copt='17';$coptD=$c17d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc1776,2);?></div></td>
 <td <?php if ($dc1876==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc1876>4) {?><font color="red"><?php }elseif ($dc1876==$cmin){ $copt='18';$coptD=$c18d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc1876,2);?></div></td>
 <td <?php if ($dc1976==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc1976>4) {?><font color="red"><?php }elseif ($dc1976==$cmin){ $copt='19';$coptD=$c19d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc1976,2);?></div></td>
 <td <?php if ($dc2076==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc2076>4) {?><font color="red"><?php }elseif ($dc2076==$cmin){ $copt='20';$coptD=$c20d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc2076,2);?></div></td>
 <td <?php if ($dc2176==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc2176>4) {?><font color="red"><?php }elseif ($dc2176==$cmin){ $copt='21';$coptD=$c21d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc2176,2);?></div></td>
 <td <?php if ($dc2276==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc2276>4) {?><font color="red"><?php }elseif ($dc2276==$cmin){ $copt='22';$coptD=$c22d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc2276,2);?></div></td>
 <td <?php if ($dc2376==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc2376>4) {?><font color="red"><?php }elseif ($dc2376==$cmin){ $copt='23';$coptD=$c23d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc2376,2);?></div></td>
 <td <?php if ($dc2476==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc2476>4) {?><font color="red"><?php }elseif ($dc2476==$cmin){ $copt='24';$coptD=$c24d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc2476,2);?></div></td>
 <td <?php if ($dc2576==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc2576>4) {?><font color="red"><?php }elseif ($dc2576==$cmin){ $copt='25';$coptD=$c25d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc2576,2);?></div></td>
 <td <?php if ($dc2676==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc2676>4) {?><font color="red"><?php }elseif ($dc2676==$cmin){ $copt='26';$coptD=$c26d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc2676,2);?></div></td>
 <td <?php if ($dc2776==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc2776>4) {?><font color="red"><?php }elseif ($dc2776==$cmin){ $copt='27';$coptD=$c27d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc2776,2);?></div></td>
 <td <?php if ($dc2876==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc2876>4) {?><font color="red"><?php }elseif ($dc2876==$cmin){ $copt='28';$coptD=$c28d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc2876,2);?></div></td>
 <td <?php if ($dc2976==$cmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dc2976>4) {?><font color="red"><?php }elseif ($dc2976==$cmin){ $copt='29';$coptD=$c29d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dc2976,2);?></div></td>
  <td><div align="right"></div></td>
</tr>

<?php   ////m sect

     if ($device=='isis') {
	$ml=$ml;$mb=$mb;}
	else {
	$ml=$ml+0.8;$mb=$mb+1.2;}

$dm176=de00($ml,$ma,$mb,$m1l,$m1a,$m1b);
  $dm276=de00($ml,$ma,$mb,$m2l,$m2a,$m2b);
  $dm376=de00($ml,$ma,$mb,$m3l,$m3a,$m3b);
  $dm476=de00($ml,$ma,$mb,$m4l,$m4a,$m4b);
  $dm576=de00($ml,$ma,$mb,$m5l,$m5a,$m5b);
  $dm676=de00($ml,$ma,$mb,$m6l,$m6a,$m6b);
  $dm776=de00($ml,$ma,$mb,$m7l,$m7a,$m7b);
  $dm876=de00($ml,$ma,$mb,$m8l,$m8a,$m8b);
  $dm976=de00($ml,$ma,$mb,$m9l,$m9a,$m9b);
  $dm1076=de00($ml,$ma,$mb,$m10l,$m10a,$m10b);
  $dm1176=de00($ml,$ma,$mb,$m11l,$m11a,$m11b);
  $dm1276=de00($ml,$ma,$mb,$m12l,$m12a,$m12b);
  $dm1376=de00($ml,$ma,$mb,$m13l,$m13a,$m13b);
  $dm1476=de00($ml,$ma,$mb,$m14l,$m14a,$m14b);
 // $dm1576=de00($ml,$ma,$mb,$m15l,$m15a,$m15b);
  $dm1676=de00($ml,$ma,$mb,$m16l,$m16a,$m16b);
  $dm1776=de00($ml,$ma,$mb,$m17l,$m17a,$m17b);
  $dm1876=de00($ml,$ma,$mb,$m18l,$m18a,$m18b);
  $dm1976=de00($ml,$ma,$mb,$m19l,$m19a,$m19b);
  $dm2076=de00($ml,$ma,$mb,$m20l,$m20a,$m20b);
  $dm2176=de00($ml,$ma,$mb,$m21l,$m21a,$m21b);
  $dm2276=de00($ml,$ma,$mb,$m22l,$m22a,$m22b);
  //$dm2376=de00($ml,$ma,$mb,$m23l,$m23a,$m23b);
  $dm2476=de00($ml,$ma,$mb,$m24l,$m24a,$m24b);
  $dm2576=de00($ml,$ma,$mb,$m25l,$m25a,$m25b);
  $dm2676=de00($ml,$ma,$mb,$m26l,$m26a,$m26b);
  $dm2776=de00($ml,$ma,$mb,$m27l,$m27a,$m27b);
  $dm2876=de00($ml,$ma,$mb,$m28l,$m28a,$m28b);
  $dm2976=de00($ml,$ma,$mb,$m29l,$m29a,$m29b);
 // $dm3076=de00($ml,$ma,$mb,$m30l,$m30a,$m30b);
  $mmin=min($dm176,$dm276,$dm376,$dm476,$dm576,$dm676,$dm776,$dm876,$dm976,$dm1076,$dm1076,$dm1276,$dm1376,$dm1476,$dm1676,$dm1776,$dm1876,$dm1976,$dm2076,$dm2176,$dm2276,$dm2476,$dm2576,$dm2676,$dm2776,$dm2876,$dm2976);
  
  
  $dm194=de94($ml,$ma,$mb,$m1l,$m1a,$m1b);
  

  ?>
<tr bgcolor="#e9bed7">
<td><div align="menter">mD</div></td>
<td><div align="right"><?php echo  round($m1d,2);?></div></td>
<td><div align="right"><?php echo  round($m2d,2);?></div></td>
<td><div align="right"><?php echo  round($m3d,2);?></div></td>
<td><div align="right"><?php echo  round($m4d,2);?></div></td>
<td><div align="right"><?php echo  round($m5d,2);?></div></td>
<td><div align="right"><?php echo  round($m6d,2);?></div></td>
<td><div align="right"><?php echo  round($m7d,2);?></div></td>
<td><div align="right"><?php echo  round($m8d,2);?></div></td>
<td><div align="right"><?php echo  round($m9d,2);?></div></td>
<td><div align="right"><?php echo  round($m10d,2);?></div></td>
<td><div align="right"><?php echo  round($m11d,2);?></div></td>
<td><div align="right"><?php echo  round($m12d,2);?></div></td>
<td><div align="right"><?php echo  round($m13d,2);?></div></td>
<td><div align="right"><?php echo  round($m14d,2);?></div></td>
<td><div align="right"></div></td>
<td><div align="right"><?php echo  round($m16d,2);?></div></td>
<td><div align="right"><?php echo  round($m17d,2);?></div></td>
<td><div align="right"><?php echo  round($m18d,2);?></div></td>
<td><div align="right"><?php echo  round($m19d,2);?></div></td>
<td><div align="right"><?php echo  round($m20d,2);?></div></td>
<td><div align="right"><?php echo  round($m21d,2);?></div></td>
<td><div align="right"><?php echo  round($m22d,2);?></div></td>
<td><div align="right"></div></td>
<td><div align="right"><?php echo  round($m24d,2);?></div></td>
<td><div align="right"><?php echo  round($m25d,2);?></div></td>
<td><div align="right"><?php echo  round($m26d,2);?></div></td>
<td><div align="right"><?php echo  round($m27d,2);?></div></td>
<td><div align="right"><?php echo  round($m28d,2);?></div></td>
<td><div align="right"><?php echo  round($m29d,2);?></div></td>
<td><div align="right"></div></td>
</tr>
<tr bgcolor="#e9bed7">
<td><div align="center">mE</div></td>

<?php if ($dm176==$mmin){ $mopt='1';$moptD=$m1d;if ($m1a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm276==$mmin){ $mopt='2';$moptD=$m2d;if ($m2a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm376==$mmin){ $mopt='3';$moptD=$m3d;if ($m3a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm476==$mmin){ $mopt='4';$moptD=$m4d;if ($m4a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm576==$mmin){ $mopt='5';$moptD=$m5d;if ($m5a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm676==$mmin){ $mopt='6';$moptD=$m6d;if ($m6a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm776==$mmin){ $mopt='7';$moptD=$m7d;if ($m7a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm876==$mmin){ $mopt='8';$moptD=$m8d; if ($m8a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm976==$mmin){ $mopt='9';$moptD=$m9d;if ($m9a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1076==$mmin){ $mopt='10';$moptD=$m10d;if ($m10a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1176==$mmin){ $mopt='11';$moptD=$m11d;if ($m11a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1276==$mmin){ $mopt='12';$moptD=$m12d;if ($m12a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1376==$mmin){ $mopt='13';$moptD=$m13d;if ($m13a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1476==$mmin){ $mopt='14';$moptD=$m14d;if ($m14a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php // if ($dm1576==$mmin){ $mopt='15';$moptD=$m15d;if ($m15a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1676==$mmin){ $mopt='16';$moptD=$m16d;if ($m16a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1776==$mmin){ $mopt='17';$moptD=$m17d;if ($m17a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1876==$mmin){ $mopt='18';$moptD=$m18d;if ($m18a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1976==$mmin){ $mopt='19';$moptD=$m19d;if ($m19a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2076==$mmin){ $mopt='20';$moptD=$m20d;if ($m20a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2176==$mmin){ $mopt='21';$moptD=$m21d;if ($m21a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2276==$mmin){ $mopt='22';$moptD=$m22d;if ($m22a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php // if ($dm2376==$mmin){ $mopt='23';$moptD=$m23d;if ($m23a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2476==$mmin){ $mopt='24';$moptD=$m24d;if ($m24a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2576==$mmin){ $mopt='25';$moptD=$m25d;if ($m25a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2676==$mmin){ $mopt='26';$moptD=$m26d;if ($m26a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2776==$mmin){ $mopt='27';$moptD=$m27d;if ($m27a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2876==$mmin){ $mopt='28';$moptD=$m28d;if ($m28a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2976==$mmin){ $mopt='29';$moptD=$m29d;if ($m29a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php // if ($dm3076==$mmin){ $mopt='30';$moptD=$m30d;if ($m30a>74) {$mdi="-";} else {$mdi='+';}}?>

 <td <?php if ($dm176==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm176>4) {?><font color="red"><?php }elseif ($dm176==$mmin){ $mopt='1';$moptD=$m1d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm176,2);?></div></td>
 <td <?php if ($dm276==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm276>4) {?><font color="red"><?php }elseif ($dm276==$mmin){ $mopt='2';$moptD=$m2d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm276,2);?></div></td>
 <td <?php if ($dm376==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm376>4) {?><font color="red"><?php }elseif ($dm376==$mmin){ $mopt='3';$moptD=$m3d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm376,2);?></div></td>
 <td <?php if ($dm476==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm476>4) {?><font color="red"><?php }elseif ($dm476==$mmin){ $mopt='4';$moptD=$m4d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm476,2);?></div></td>
 <td <?php if ($dm576==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm576>4) {?><font color="red"><?php }elseif ($dm576==$mmin){ $mopt='5';$moptD=$m5d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm576,2);?></div></td>
 <td <?php if ($dm676==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm676>4) {?><font color="red"><?php }elseif ($dm676==$mmin){ $mopt='6';$moptD=$m6d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm676,2);?></div></td>
 <td <?php if ($dm776==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm776>4) {?><font color="red"><?php }elseif ($dm776==$mmin){ $mopt='7';$moptD=$m7d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm776,2);?></div></td>
 <td <?php if ($dm876==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm876>4) {?><font color="red"><?php }elseif ($dm876==$mmin){ $mopt='8';$moptD=$m8d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm876,2);?></div></td>
 <td <?php if ($dm976==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm976>4) {?><font color="red"><?php }elseif ($dm976==$mmin){ $mopt='9';$moptD=$m9d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm976,2);?></div></td>
 <td <?php if ($dm1076==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm1076>4) {?><font color="red"><?php }elseif ($dm1076==$mmin){ $mopt='10';$moptD=$m10d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm1076,2);?></div></td>
 <td <?php if ($dm1176==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm1176>4) {?><font color="red"><?php }elseif ($dm1176==$mmin){ $mopt='11';$moptD=$m11d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm1176,2);?></div></td>
 <td <?php if ($dm1276==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm1276>4) {?><font color="red"><?php }elseif ($dm1276==$mmin){ $mopt='12';$moptD=$m12d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm1276,2);?></div></td>
 <td <?php if ($dm1376==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm1376>4) {?><font color="red"><?php }elseif ($dm1376==$mmin){ $mopt='13';$moptD=$m13d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm1376,2);?></div></td>
 <td <?php if ($dm1476==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm1476>4) {?><font color="red"><?php }elseif ($dm1476==$mmin){ $mopt='14';$moptD=$m14d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm1476,2);?></div></td>
  <td><div align="right"></td>
 <td <?php if ($dm1676==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm1676>4) {?><font color="red"><?php }elseif ($dm1676==$mmin){ $mopt='16';$moptD=$m16d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm1676,2);?></div></td>
 <td <?php if ($dm1776==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm1776>4) {?><font color="red"><?php }elseif ($dm1776==$mmin){ $mopt='17';$moptD=$m17d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm1776,2);?></div></td>
 <td <?php if ($dm1876==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm1876>4) {?><font color="red"><?php }elseif ($dm1876==$mmin){ $mopt='18';$moptD=$m18d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm1876,2);?></div></td>
 <td <?php if ($dm1976==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm1976>4) {?><font color="red"><?php }elseif ($dm1976==$mmin){ $mopt='19';$moptD=$m19d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm1976,2);?></div></td>
 <td <?php if ($dm2076==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm2076>4) {?><font color="red"><?php }elseif ($dm2076==$mmin){ $mopt='20';$moptD=$m20d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm2076,2);?></div></td>
 <td <?php if ($dm2176==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm2176>4) {?><font color="red"><?php }elseif ($dm2176==$mmin){ $mopt='21';$moptD=$m21d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm2176,2);?></div></td>
 <td <?php if ($dm2276==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm2276>4) {?><font color="red"><?php }elseif ($dm2276==$mmin){ $mopt='22';$moptD=$m22d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm2276,2);?></div></td>
  <td><div align="right"></div></td>
 <td <?php if ($dm2476==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm2476>4) {?><font color="red"><?php }elseif ($dm2476==$mmin){ $mopt='24';$moptD=$m24d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm2476,2);?></div></td>
 <td <?php if ($dm2576==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm2576>4) {?><font color="red"><?php }elseif ($dm2576==$mmin){ $mopt='25';$moptD=$m25d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm2576,2);?></div></td>
 <td <?php if ($dm2676==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm2676>4) {?><font color="red"><?php }elseif ($dm2676==$mmin){ $mopt='26';$moptD=$m26d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm2676,2);?></div></td>
 <td <?php if ($dm2776==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm2776>4) {?><font color="red"><?php }elseif ($dm2776==$mmin){ $mopt='27';$moptD=$m27d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm2776,2);?></div></td>
 <td <?php if ($dm2876==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm2876>4) {?><font color="red"><?php }elseif ($dm2876==$mmin){ $mopt='28';$moptD=$m28d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm2876,2);?></div></td>
 <td <?php if ($dm2976==$mmin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dm2976>4) {?><font color="red"><?php }elseif ($dm2976==$mmin){ $mopt='29';$moptD=$km29d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dm2976,2);?></div></td>
  <td><div align="right"></div></td>
</tr>

<?php   ////y sect

$dy176=de00($yl,$ya,$yb,$y1l,$y1a,$y1b);
  $dy276=de00($yl,$ya,$yb,$y2l,$y2a,$y2b);
  $dy376=de00($yl,$ya,$yb,$y3l,$y3a,$y3b);
  $dy476=de00($yl,$ya,$yb,$y4l,$y4a,$y4b);
  $dy576=de00($yl,$ya,$yb,$y5l,$y5a,$y5b);
  $dy676=de00($yl,$ya,$yb,$y6l,$y6a,$y6b);
  //$dy776=de00($yl,$ya,$yb,$y7l,$y7a,$y7b);
  //$dy876=de00($yl,$ya,$yb,$y8l,$y8a,$y8b);
  $dy976=de00($yl,$ya,$yb,$y9l,$y9a,$y9b);
  $dy1076=de00($yl,$ya,$yb,$y10l,$y10a,$y10b);
  $dy1176=de00($yl,$ya,$yb,$y11l,$y11a,$y11b);
  $dy1276=de00($yl,$ya,$yb,$y12l,$y12a,$y12b);
  $dy1376=de00($yl,$ya,$yb,$y13l,$y13a,$y13b);
  $dy1476=de00($yl,$ya,$yb,$y14l,$y14a,$y14b);
 // $dy1576=de00($yl,$ya,$yb,$y15l,$y15a,$y15b);
  $dy1676=de00($yl,$ya,$yb,$y16l,$y16a,$y16b);
  $dy1776=de00($yl,$ya,$yb,$y17l,$y17a,$y17b);
  $dy1876=de00($yl,$ya,$yb,$y18l,$y18a,$y18b);
  $dy1976=de00($yl,$ya,$yb,$y19l,$y19a,$y19b);
  $dy2076=de00($yl,$ya,$yb,$y20l,$y20a,$y20b);
  $dy2176=de00($yl,$ya,$yb,$y21l,$y21a,$y21b);
  $dy2276=de00($yl,$ya,$yb,$y22l,$y22a,$y22b);
 // $dy2376=de00($yl,$ya,$yb,$y23l,$y23a,$y23b);
  $dy2476=de00($yl,$ya,$yb,$y24l,$y24a,$y24b);
  $dy2576=de00($yl,$ya,$yb,$y25l,$y25a,$y25b);
  $dy2676=de00($yl,$ya,$yb,$y26l,$y26a,$y26b);
  $dy2776=de00($yl,$ya,$yb,$y27l,$y27a,$y27b);
  $dy2876=de00($yl,$ya,$yb,$y28l,$y28a,$y28b);
  $dy2976=de00($yl,$ya,$yb,$y29l,$y29a,$y29b);
  $dy3076=de00($yl,$ya,$yb,$y30l,$y30a,$y30b);
  $ymin=min($dy176,$dy276,$dy376,$dy476,$dy576,$dy676,$dy976,$dy1076,$dy1076,$dy1276,$dy1376,$dy1476,$dy1676,$dy1776,$dy1876,$dy1976,$dy2076,$dy2176,$dy2276,$dy2476,$dy2576,$dy2676,$dy2776,$dy2876,$dy2976,$dy3076);
  
  
  $dy194=de94($yl,$ya,$yb,$y1l,$y1a,$y1b);
  

  ?>
<tr bgcolor="#f2ebc0">
<td><div align="menter">YD</div></td>
<td><div align="right"><?php echo  round($y1d,2);?></div></td>
<td><div align="right"><?php echo  round($y2d,2);?></div></td>
<td><div align="right"><?php echo  round($y3d,2);?></div></td>
<td><div align="right"><?php echo  round($y4d,2);?></div></td>
<td><div align="right"><?php echo  round($y5d,2);?></div></td>
<td><div align="right"><?php echo  round($y6d,2);?></div></td>
<td><div align="right"></div></td>
<td><div align="right"></div></td>
<td><div align="right"><?php echo  round($y9d,2);?></div></td>
<td><div align="right"><?php echo  round($y10d,2);?></div></td>
<td><div align="right"><?php echo  round($y11d,2);?></div></td>
<td><div align="right"><?php echo  round($y12d,2);?></div></td>
<td><div align="right"><?php echo  round($y13d,2);?></div></td>
<td><div align="right"><?php echo  round($y14d,2);?></div></td>
<td><div align="right"></div></td>
<td><div align="right"><?php echo  round($y16d,2);?></div></td>
<td><div align="right"><?php echo  round($y17d,2);?></div></td>
<td><div align="right"><?php echo  round($y18d,2);?></div></td>
<td><div align="right"><?php echo  round($y19d,2);?></div></td>
<td><div align="right"><?php echo  round($y20d,2);?></div></td>
<td><div align="right"><?php echo  round($y21d,2);?></div></td>
<td><div align="right"><?php echo  round($y22d,2);?></div></td>
<td><div align="right"></div></td>
<td><div align="right"><?php echo  round($y24d,2);?></div></td>
<td><div align="right"><?php echo  round($y25d,2);?></div></td>
<td><div align="right"><?php echo  round($y26d,2);?></div></td>
<td><div align="right"><?php echo  round($y27d,2);?></div></td>
<td><div align="right"><?php echo  round($y28d,2);?></div></td>
<td><div align="right"><?php echo  round($y29d,2);?></div></td>
<td><div align="right"><?php echo  round($y30d,2);?></div></td>
</tr>
<tr bgcolor="#f2ebc0">
<td><div align="center">YE</div></td>

<?php if ($dy176==$ymin){ $yopt='1';$yoptD=$y1d;if ($y1b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy276==$ymin){ $yopt='2';$yoptD=$y2d;if ($y2b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy376==$ymin){ $yopt='3';$yoptD=$y3d;if ($y3b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy476==$ymin){ $yopt='4';$yoptD=$y4d;if ($y4b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy576==$ymin){ $yopt='5';$yoptD=$y5d;if ($y5b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy676==$ymin){ $yopt='6';$yoptD=$y6d;if ($y6b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php // if ($dy776==$ymin){ $yopt='7';$yoptD=$y7d;if ($y7b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php // if ($dy876==$ymin){ $yopt='8';$yoptD=$y8d; if ($y8b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy976==$ymin){ $yopt='9';$yoptD=$y9d;if ($y9b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1076==$ymin){ $yopt='10';$yoptD=$y10d;if ($y10b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1176==$ymin){ $yopt='11';$yoptD=$y11d;if ($y11b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1276==$ymin){ $yopt='12';$yoptD=$y12d;if ($y12b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1376==$ymin){ $yopt='13';$yoptD=$y13d;if ($y13b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1476==$ymin){ $yopt='14';$yoptD=$y14d;if ($y14b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php // if ($dy1576==$ymin){ $yopt='15';$yoptD=$y15d;if ($y15b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1676==$ymin){ $yopt='16';$yoptD=$y16d;if ($y16b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1776==$ymin){ $yopt='17';$yoptD=$y17d;if ($y17b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1876==$ymin){ $yopt='18';$yoptD=$y18d;if ($y18b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1976==$ymin){ $yopt='19';$yoptD=$y19d;if ($y19b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2076==$ymin){ $yopt='20';$yoptD=$y20d;if ($y20b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2176==$ymin){ $yopt='21';$yoptD=$y21d;if ($y21b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2276==$ymin){ $yopt='22';$yoptD=$y22d;if ($y22b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php // if ($dy2376==$ymin){ $yopt='23';$yoptD=$y23d;if ($y23b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2476==$ymin){ $yopt='24';$yoptD=$y24d;if ($y24b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2576==$ymin){ $yopt='25';$yoptD=$y25d;if ($y25b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2676==$ymin){ $yopt='26';$yoptD=$y26d;if ($y26b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2776==$ymin){ $yopt='27';$yoptD=$y27d;if ($y27b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2876==$ymin){ $yopt='28';$yoptD=$y28d;if ($y28b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2976==$ymin){ $yopt='29';$yoptD=$y29d;if ($y29b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy3076==$ymin){ $yopt='30';$yoptD=$y30d;if ($y30b>93) {$ydi="-";} else {$ydi='+';}}?>

 <td <?php if ($dy176==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy176>4) {?><font color="red"><?php }elseif ($dy176==$ymin){ $yopt='1';$yoptD=$y1d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy176,2);?></div></td>
 <td <?php if ($dy276==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy276>4) {?><font color="red"><?php }elseif ($dy276==$ymin) { $yopt='2';$yoptD=$y2d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy276,2);?></div></td>
 <td <?php if ($dy376==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy376>4) {?><font color="red"><?php }elseif ($dy376==$ymin){ $yopt='3';$yoptD=$y3d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy376,2);?></div></td>
 <td <?php if ($dy476==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy476>4) {?><font color="red"><?php }elseif ($dy476==$ymin){$yopt='4';$yoptD=$y4d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy476,2);?></div></td>
 <td <?php if ($dy576==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy576>4) {?><font color="red"><?php }elseif ($dy576==$ymin){ $yopt='5';$yoptD=$y5d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy576,2);?></div></td>
 <td <?php if ($dy676==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy676>4) {?><font color="red"><?php }elseif ($dy676==$ymin){ $yopt='6';$yoptD=$y6d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy676,2);?></div></td>
  <td><div align="right"></td>
  <td><div align="right"></td>
 <td <?php if ($dy976==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy976>4) {?><font color="red"><?php }elseif ($dy976==$ymin){$yopt='9';$yoptD=$y9d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy976,2);?></div></td>
 <td <?php if ($dy1076==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy1076>4) {?><font color="red"><?php }elseif ($dy1076==$ymin){ $yopt='10';$yoptD=$y10d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy1076,2);?></div></td>
 <td <?php if ($dy1176==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy1176>4) {?><font color="red"><?php }elseif ($dy1176==$ymin){ $yopt='11';$yoptD=$y11d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy1176,2);?></div></td>
 <td <?php if ($dy1276==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy1276>4) {?><font color="red"><?php }elseif ($dy1276==$ymin){ $yopt='12';$yoptD=$y12d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy1276,2);?></div></td>
 <td <?php if ($dy1376==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy1376>4) {?><font color="red"><?php }elseif ($dy1376==$ymin){ $yopt='13';$yoptD=$y13d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy1376,2);?></div></td>
 <td <?php if ($dy1476==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy1476>4) {?><font color="red"><?php }elseif ($dy1476==$ymin){ $yopt='14';$yoptD=$y14d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy1476,2);?></div></td>
  <td><div align="right"></td>
 <td <?php if ($dy1676==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy1676>4) {?><font color="red"><?php }elseif ($dy1676==$ymin){ $yopt='14';$yoptD=$y16d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy1676,2);?></div></td>
 <td <?php if ($dy1776==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy1776>4) {?><font color="red"><?php }elseif ($dy1776==$ymin){ $yopt='17';$yoptD=$y17d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy1776,2);?></div></td>
 <td <?php if ($dy1876==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy1876>4) {?><font color="red"><?php }elseif ($dy1876==$ymin){ $yopt='18';$yoptD=$y18d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy1876,2);?></div></td>
 <td <?php if ($dy1976==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy1976>4) {?><font color="red"><?php }elseif ($dy1976==$ymin){ $yopt='19';$yoptD=$y19d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy1976,2);?></div></td>
 <td <?php if ($dy2076==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy2076>4) {?><font color="red"><?php }elseif ($dy2076==$ymin){ $yopt='20';$yoptD=$y20d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy2076,2);?></div></td>
 <td <?php if ($dy2176==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy2176>4) {?><font color="red"><?php }elseif ($dy2176==$ymin){ $yopt='21';$yoptD=$y21d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy2176,2);?></div></td>
 <td <?php if ($dy2276==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy2276>4) {?><font color="red"><?php }elseif ($dy2276==$ymin){ $yopt='22';$yoptD=$y22d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy2276,2);?></div></td>

   <td><div align="right"></div></td>
 <td <?php if ($dy2476==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy2476>4) {?><font color="red"><?php }elseif ($dy2476==$ymin){ $yopt='24';$yoptD=$y24d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy2476,2);?></div></td>
 <td <?php if ($dy2576==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy2576>4) {?><font color="red"><?php }elseif ($dy2576==$ymin){ $yopt='25';$yoptD=$y25d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy2576,2);?></div></td>
 <td <?php if ($dy2676==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy2676>4) {?><font color="red"><?php }elseif ($dy2676==$ymin){ $yopt='26';$yoptD=$y26d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy2676,2);?></div></td>
 <td <?php if ($dy2776==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy2776>4) {?><font color="red"><?php }elseif ($dy2776==$ymin){ $yopt='27';$yoptD=$y27d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy2776,2);?></div></td>
 <td <?php if ($dy2876==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy2876>4) {?><font color="red"><?php }elseif ($dy2876==$ymin){ $yopt='28';$yoptD=$y28d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy2876,2);?></div></td>
 <td <?php if ($dy2976==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy2976>4) {?><font color="red"><?php }elseif ($dy2976==$ymin){ $yopt='29';$yoptD=$y29d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy2976,2);?></div></td>
 <td <?php if ($dy3076==$ymin){ echo 'bgcolor="#91ff78">'; }?><div align="right"><?php if ($dy3076>4) {?><font color="red"><?php }elseif ($dy3076==$ymin){ $yopt='30';$yoptD=$y30d;
  ?><font color="green"><?php }else {?><font color="black"><?php }echo  round($dy3076,2);?></div></td>
</tr>
<tr>
<td><div align="center"></div></td>
<td><div align="center">Key</div></td>
<td><div align="center">Den</div></td>
<td><div align="center"></div></td>
<td><div align="center">L</div></td>
<td><div align="center">a</div></td>
<td><div align="center">b</div></td>
<td><div align="center">P</div></td>
<td><div align="center">L</div></td>
<td><div align="center">a</div></td>
<td><div align="center">b</div></td>
<td><div align="center">dE00</div></td>

<?php $cch=sqrt(pow(${ 'c'.$copt.'a'},2)+pow(${ 'c'.$copt.'b'},2));
      $sccch= sqrt(pow($scCa,2)+pow($scCb,2));
	  $mch=sqrt(pow(${ 'm'.$mopt.'a'},2)+pow(${ 'm'.$mopt.'b'},2));
      $scmch= sqrt(pow($scMa,2)+pow($scMb,2));
	  $ych=sqrt(pow(${ 'y'.$yopt.'a'},2)+pow(${ 'y'.$yopt.'b'},2));
      $scych= sqrt(pow($scYa,2)+pow($scYb,2));?>

<?php
     if ($device=='isis') {
	$mlt=${ 'm'.$mopt.'l'};}
	else {
	$mlt=${ 'm'.$mopt.'l'}-0.8;}
	if ($device=='isis') {
	$mbt=${ 'm'.$mopt.'b'};}
	else {
	$mbt=${ 'm'.$mopt.'b'}-1.2;}
	?>

</tr>
<tr>
<td><div align="center">K</div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo $kopt;?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php if ($kmin>4.5) {echo round($koptD,2).$kdi;} else { echo round($koptD,2);}?></div></td>
<td><div align="center">S</div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($scKL,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($scKa,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($scKb,2);?></div></td>
<td><div align="center">R</div></td>
<td bgcolor="#DDDDDD"><div align="right"><?php echo ${ 'k'.$kopt.'l'};?></div></td>
<td bgcolor="#DDDDDD"><div align="right"><?php echo ${ 'k'.$kopt.'a'};?></div></td>
<td bgcolor="#DDDDDD"><div align="right"><?php echo ${ 'k'.$kopt.'b'};?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php if ($kmin>5) {?><font color="red"><?php } 
if (${ 'k'.$kopt.'l'}<$scKL) { echo round($kmin,2)."*";} else  {echo round($kmin,2); }?></div></td>
</tr>

<tr>
<td><div align="center">C</div></td>
<td bgcolor="#00FFFF"><div align="right"><?php echo $copt;?></div></td>
<td bgcolor="#00FFFF"><div align="right"><?php if ($cmin>4.5) {echo round($coptD,2).$cdi;} else { echo round($coptD,2);}?></div></td>
<td><div align="center">C</div></td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($scCL,2);?></div></td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($scCa,2);?></div></td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($scCb,2);?></div></td>
<td>I</td>
<td bgcolor="#bbFFFF"><div align="right"><?php echo ${ 'c'.$copt.'l'};?></div></td>
<td bgcolor="#bbFFFF"><div align="right"><?php echo ${ 'c'.$copt.'a'};?></div></td>
<td bgcolor="#bbFFFF"><div align="right"><?php echo ${ 'c'.$copt.'b'};?></div></td>
<td bgcolor="#00FFFF"><div align="right"><?php if ($cmin>5) {?><font color="red"><?php } 
if ($cch>$sccch) { echo round($cmin,2)."*";} else  {echo round($cmin,2); }?></div></td>
</tr>

<tr>
<td><div align="center">M</div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo $mopt;?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php if ($mmin>4.5) {echo round($moptD,2).$mdi;} else { echo round($moptD,2);}?></div></td>
<td>C</td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($scML,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($scMa,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($scMb,2);?></div></td>
<td>N</td>
<td bgcolor="#FFccFF"><div align="right"><?php echo $mlt;?></div></td>
<td bgcolor="#FFccFF"><div align="right"><?php echo ${ 'm'.$mopt.'a'};?></div></td>
<td bgcolor="#FFccFF"><div align="right"><?php echo $mbt;?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php if ($mmin>5) {?><font color="red"><?php } 
if ($mch>$scmch) { echo round($mmin,2)."*";} else  {echo round($mmin,2); }?></div></td>
</tr>

<tr>
<td><div align="center">Y</div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo $yopt;?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php if ($ymin>4.5) {echo round($yoptD,2).$ydi;} else { echo round($yoptD,2);}?></div></td>
<td>A</td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($scYL,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($scYa,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($scYb,2);?></div></td>
<td>T</td>
<td bgcolor="#FFFFbb"><div align="right"><?php echo ${ 'y'.$yopt.'l'};?></div></td>
<td bgcolor="#FFFFbb"><div align="right"><?php echo ${ 'y'.$yopt.'a'};?></div></td>
<td bgcolor="#FFFFbb"><div align="right"><?php echo ${ 'y'.$yopt.'b'};?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php if ($ymin>5) {?><font color="red"><?php } 
if ($ych>$scych) { echo round($ymin,2)."*";} else  {echo round($ymin,2); }?></div></td>
</tr>


</table>
<table width="200" border="1" align="center">
<tr>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterK.png');
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');

$datax = array($k1d,$k2d,$k3d,$k4d,$k5d,$k6d,$k7d,$k9d,$k10d,$k11d,$k12d,$k13d,$k14d,$k16d,$k17d,$k18d,$k19d,$k20d,$k21d,$k22d,$k24d,$k25d,$k26d,$k27d,$k28d,$k29d,$k30d);
$datay = array($dk176,$dk276,$dk376,$dk476,$dk576,$dk676,$dk776,$dk976,$dk1076,$dk1176,$dk1276,$dk1376,$dk1476,$dk1676,$dk1776,$dk1876,$dk1976,$dk2076,$dk2176,$dk2276,$dk2476,$dk2576,$dk2676,$dk2776,$dk2876,$dk2976,$dk3076);
//$datax = array($k1d,$k2d,$k3d);
//$datay = array($dk176,$dk276,$dk376);

$graph = new Graph(300,200);
$graph->SetScale("linlin");

$graph->img->SetMargin(40,40,40,40);		
$graph->SetShadow();

$graph->title->Set("K scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);

$sp1 = new ScatterPlot($datay,$datax);

$graph->Add($sp1);
$graph->Stroke('scatterK.png');

?>
<img src="scatterK.png">
</div></td>
<td>
<div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterC.png');
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');

$datax = array($c1d,$c2d,$c3d,$c4d,$c5d,$c6d,$c8d,$c9d,$c10d,$c11d,$c12d,$c13d,$c14d,$c16d,$c17d,$c18d,$c19d,$c20d,$c21d,$c22d,$c23d,$c24d,$c25d,$c26d,$c27d,$c28d,$c29d);
$datay = array($dc176,$dc276,$dc376,$dc476,$dc576,$dc676,$dc776,$dc976,$dc1076,$dc1176,$dc1276,$dc1376,$dc1476,$dc1676,$dc1776,$dc1876,$dc1976,$dc2076,$dc2176,$dc2276,$dc2376,$dc2476,$dc2576,$dc2676,$dc2776,$dc2876,$dc2976);

$graph = new Graph(300,200);
$graph->SetScale("linlin");

$graph->img->SetMargin(40,40,40,40);		
$graph->SetShadow();

$graph->title->Set("C scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);

$sp1 = new ScatterPlot($datay,$datax);

$graph->Add($sp1);
$graph->Stroke('scatterC.png');

?>
<img src="scatterC.png">
</div>
</td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterM.png');
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');

$datax = array($m1d,$m2d,$m3d,$m4d,$m5d,$m6d,$m7d,$m8d,$m9d,$m10d,$m11d,$m12d,$m13d,$m14d,$m16d,$m17d,$m18d,$m19d,$m20d,$m21d,$m22d,$m24d,$m25d,$m26d,$m27d,$m28d,$m29d,);
$datay = array($dm176,$dm276,$dm376,$dm476,$dm576,$dm676,$dm776,$dm876,$dm976,$dm1076,$dm1176,$dm1276,$dm1376,$dm1476,$dm1676,$dm1776,$dm1876,$dm1976,$dm2076,$dm2176,$dm2276,$dm2476,$dm2576,$dm2676,$dm2776,$dm2876,$dm2976);

$graph = new Graph(300,200);
$graph->SetScale("linlin");

$graph->img->SetMargin(40,40,40,40);		
$graph->SetShadow();

$graph->title->Set("M scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);

$sp1 = new ScatterPlot($datay,$datax);

$graph->Add($sp1);
$graph->Stroke('scatterM.png');

?>
<img src="scatterM.png">
</div></td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterY.png');
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');

$datax = array($y1d,$y2d,$y3d,$y4d,$y5d,$y6d,$y9d,$y10d,$y11d,$y12d,$y13d,$y14d,$y16d,$y17d,$y18d,$y19d,$y20d,$y21d,$y22d,$y24d,$y25d,$y26d,$y27d,$y28d,$y29d,$y30d,);
$datay = array($dy176,$dy276,$dy376,$dy476,$dy576,$dy676,$dy976,$dy1076,$dy1176,$dy1276,$dy1376,$dy1476,$dy1676,$dy1776,$dy1876,$dy1976,$dy2076,$dy2176,$dy2276,$dy2476,$dy2576,$dy2676,$dy2776,$dy2876,$dy2976,$dy3076);

$graph = new Graph(300,200);
$graph->SetScale("linlin");

$graph->img->SetMargin(40,40,40,40);		
$graph->SetShadow();

$graph->title->Set("Y scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);

$sp1 = new ScatterPlot($datay,$datax);

$graph->Add($sp1);
$graph->Stroke('scatterY.png');

?>
<img src="scatterY.png">
</div></td>
</tr>
</table>

<table>
<div>

<?php
include 'graphFix.php';
GenGraph($k1d-$koptD,$k2d-$koptD,$k3d-$koptD,$k4d-$koptD,$k5d-$koptD,$k6d-$koptD,$k7d-$koptD,0.01,$k9d-$koptD,$k10d-$koptD,$k11d-$koptD,$k12d-$koptD,$k13d-$koptD,$k14d-$koptD,0.01,$k16d-$koptD,$k17d-$koptD,$k18d-$koptD,$k19d-$koptD,$k20d-$koptD,$k21d-$koptD,$k22d-$koptD,0.01,$k24d-$koptD,$k25d-$koptD,$k26d-$koptD,$k27d-$koptD,$k28d-$koptD,$k29d-$koptD,$k30d-$koptD);
?>
<img src="graph.gif">
</div>
</table>

<table>
<div>

<?php
include 'graphFix2.php';
GenGraph2($c1d-$coptD,$c2d-$coptD,$c3d-$coptD,$c4d-$coptD,$c5d-$coptD,$c6d-$coptD,0.01,$c8d-$coptD,$c9d-$coptD,$c10d-$coptD,$c11d-$coptD,$c12d-$coptD,$c13d-$coptD,$c14d-$coptD,0.01,$c16d-$coptD,$c17d-$coptD,$c18d-$coptD,$c19d-$coptD,$c20d-$coptD,$c21d-$coptD,$c22d-$coptD,$c23d-$coptD,$c24d-$coptD,$c25d-$coptD,$c26d-$coptD,$c27d-$coptD,$c28d-$coptD,$c29d-$coptD,0.01);
?>
<img src="graph2.gif">
</div>
</table>



<table>
<div>

<?php
include 'graphFix3.php';
GenGraph3($m1d-$moptD,$m2d-$moptD,$m3d-$moptD,$m4d-$moptD,$m5d-$moptD,$m6d-$moptD,$m7d-$moptD,$m8d-$moptD,$m9d-$moptD,$m10d-$moptD,$m11d-$moptD,$m12d-$moptD,$m13d-$moptD,$m14d-$moptD,0.01,$m16d-$moptD,$m17d-$moptD,$m18d-$moptD,$m19d-$moptD,$m20d-$moptD,$m21d-$moptD,$m22d-$moptD,0.01,$m24d-$moptD,$m25d-$moptD,$m26d-$moptD,$m27d-$moptD,$m28d-$moptD,$m29d-$moptD,0.01);
?>
<img src="graph3.gif">
</div>
</table>

<table>
<div>

<?php
include 'graphFix4.php';
GenGraph4($y1d-$yoptD,$y2d-$yoptD,$y3d-$yoptD,$y4d-$yoptD,$y5d-$yoptD,$y6d-$yoptD,0.01,0.01,$y9d-$yoptD,$y10d-$yoptD,$y11d-$yoptD,$y12d-$yoptD,$y13d-$yoptD,$y14d-$yoptD,0.01,$y16d-$yoptD,$y17d-$yoptD,$y18d-$yoptD,$y19d-$yoptD,$y20d-$yoptD,$y21d-$yoptD,$y22d-$yoptD,0.01,$y24d-$yoptD,$y25d-$yoptD,$y26d-$yoptD,$y27d-$yoptD,$y28d-$yoptD,$y29d-$yoptD,$y30d-$yoptD);
?>
<img src="graph4.gif">
</div>
</table>


<tr>
<td align="center"><font size="-2"> &copy; <a href="mailto:[email protected]">Fred Kuo</a>, 2014. All rights reserved.<br><a href="http://www.fredkuo.idv.tw/wordpress/?p=1025">Read more.</a><br>
</td>
</tr>
</body>


</html>
@ Telegram