File: C:/xampp/htdocs/FograCT94/6pmmTVI-parsingCTOKX-1.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>Control-93 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">
<?php
$target='Fogra39';
include 'spXYZ.php';
include 'sp38XYZ.php';
include 'lab2xyz.php';
include 'SCCA06.php';
include 'xyz2lab01.php';
include 'xyz2lab.php';
//include 'DensityV38.php';
error_reporting(0);
$f123= $_GET['f123'];
$f321= $_GET['f321'];
$spl= $_GET['spl'];
$spa= $_GET['spa'];
$spb= $_GET['spb'];
$plC= $_GET['plC'];
$plM= $_GET['plM'];
$plY= $_GET['plY'];
$plK= $_GET['plK'];
$plS1= $_GET['plS1'];
$plS2= $_GET['plS2'];
$plS3= $_GET['plS3'];
$plS4= $_GET['plS4'];
$plS5= $_GET['plS5'];
$plS6= $_GET['plS6'];
$okName= $_GET['okName'];
$target='Fogra39';
$sum=110;
$check=1;
$dtime=time();
$dStr=substr($dtime,7,9)."-";
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;
}
$contentT = file($f321);
//echo substr('abcdef', 1, 3); // bcd
$filedb=substr($f321,7,60);
$dbstr=explode("_", $filedb);
echo $dbstr[0]."XX".$dbstr[1]."XX".$dbstr[2]."XX".$dbstr[3].$dbstr[4].$dbstr[5];
$filename=$filedb;
$po=$dbstr[1];
$stringC = implode($contentT);
$fMark = strrpos($stringC,'i1Profiler');
//echo "fMark:".$fMark."<br>";
$fMarkC = strrpos($stringC,'ColorPort');
//echo "fMarkC:".$fMarkC."<br>";
$nm380 = strrpos($stringC,'nm380');
//echo "fMarkC:".$nm380."<br>";
$stringT = implode($contentT);
//echo $contents[20];
//echo $string;
$pt = ereg_replace("\r\n?", " ", $stringT);
$datastring=get_between($pt,"BEGIN_DATA","END_DATA");
$dotT = explode(" ", $datastring);////Measure upload
//print_r ($dotT);
$contents = file($f123);
//echo substr('abcdef', 1, 3); // bcd
// $filedb=substr($f123,7,45);
// $dbstr=explode("_", $filedb);
// echo $dbstr[0]."XX".$dbstr[1]."XX".$dbstr[2]."XX".$dbstr[3];
$string = implode($contents);
//echo $contents[20];
$string = implode($contents);
$p = ereg_replace("\r\n?", " ", $string);
$datastring0=get_between($p,"BEGIN_DATA","END_DATA");
$dot = explode(" ", $datastring0);////Tartget.txt
//print_r ($dot);
//echo "dot86:".$dot[166]."xx";
if ($dot[26]=='0.120236') { //1023
//echo "content=0:";
//echo "dotT86:".$dot[26];
?>
<form action="TVI-parsingCTOKXT.php?f123=<?php echo "target.txt".'&f321='.$_FILES["file"]["name"];?>" method="post">
<table width="200" border="0" align="center">
<tr><td>
<input size="15" maxlength="50" type="hidden" name="rtarget" value=<?php echo $f321;?> /></td>
</tr>
</table>
<?php
//////////////////////////////////////////////////Fogra Media Check
$psum=20;
$pl=95; $pa=-0.01;$pb=-2;
$cl=55.10; $ca=-37.0;$cb=-50;
$ml=48; $ma=74;$mb=-3;
$yl=89; $ya=-5;$yb=93;
$kl=16; $ka=0.01;$kb=0.01;
include 'densityV38.php';
include 'densityV.php';
if ($fMark>0) { /////////////////////////////////////////////////////////////////////////////////////////// i1 profiler go 572
$idx=6;
$cols=42;
}
elseif ($nm380>0) { ///color port
$idx=9;
$cols=45;}
else{
$idx=9;
$cols=40;
}
//$cols=40;
$k1dd=0;
$Pdot=0;
//echo "Paper X".$dotT[$idx+$cols*$Pdot+1]."<br>";
if($cols==45) {
$PXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$PYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$PZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$PLm=xyz2lab01("l",$PXm,$PYm,$PZm);
$Pam=xyz2lab01("a",$PXm,$PYm,$PZm);
$Pbm=xyz2lab01("b",$PXm,$PYm,$PZm);
$Pdm=DensitySp38("K",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
}
else {
$PXm=spXYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$PYm=spXYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$PZm=spXYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$PLm=xyz2lab01("l",$PXm,$PYm,$PZm);
$Pam=xyz2lab01("a",$PXm,$PYm,$PZm);
$Pbm=xyz2lab01("b",$PXm,$PYm,$PZm);
$Pdm=DensitySp("K",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
}
// echo "xyz x:".$PXm."_y:".$PYm."_z:".$PZm;
// echo "dot-10:".$dotT[$idx+$cols*$Pdot+1]."_dot-40:".$dotT[$idx+$cols*$Pdot+31];
echo "<BR>Paper: PL:".$PLm."_Pa:".$Pam."_Pb:".$Pbm."__Pdm:".$Pdm;
/////////////////////////////////c
$Pdot=1;$Pdot1=11;$Pdot2=21;$Pdot3=31;
if($cols==45) {
// echo "C X".$dotT[$idx+$cols*$Pdot+1]."<br>";
$cXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$cYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$cZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$cLm=xyz2lab01("l",$cXm,$cYm,$cZm);
$cam=xyz2lab01("a",$cXm,$cYm,$cZm);
$cbm=xyz2lab01("b",$cXm,$cYm,$cZm);
$cdm=DensitySp38("C",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
}
else {
// echo "C X".$dotT[$idx+$cols*$Pdot+1]."<br>";///////C
$cXm=spXYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$c1Xm=spXYZ("X",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$c2Xm=spXYZ("X",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$c3Xm=spXYZ("X",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$cYm=spXYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$c1Ym=spXYZ("Y",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$c2Ym=spXYZ("Y",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$c3Ym=spXYZ("Y",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$cZm=spXYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$c1Zm=spXYZ("Z",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$c2Zm=spXYZ("Z",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$c3Zm=spXYZ("Z",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$cLm=xyz2lab01("l",$cXm,$cYm,$cZm);
$cam=xyz2lab01("a",$cXm,$cYm,$cZm);
$cbm=xyz2lab01("b",$cXm,$cYm,$cZm);
$c1Lm=xyz2lab01("l",$c1Xm,$c1Ym,$c1Zm);
$c1am=xyz2lab01("a",$c1Xm,$c1Ym,$c1Zm);
$c1bm=xyz2lab01("b",$c1Xm,$c1Ym,$c1Zm);
$c2Lm=xyz2lab01("l",$c2Xm,$c2Ym,$c2Zm);
$c2am=xyz2lab01("a",$c2Xm,$c2Ym,$c2Zm);
$c2bm=xyz2lab01("b",$c2Xm,$c2Ym,$c2Zm);
$c3Lm=xyz2lab01("l",$c3Xm,$c3Ym,$c3Zm);
$c3am=xyz2lab01("a",$c3Xm,$c3Ym,$c3Zm);
$c3bm=xyz2lab01("b",$c3Xm,$c3Ym,$c3Zm);
$cdm=DensitySp("C",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$c1dm=DensitySp("C",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$c2dm=DensitySp("C",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$c3dm=DensitySp("C",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
}
// echo "note 2k: CL:".$cLm."_Ca:".$cam."_Cb:".$cbm."__Pdm:".$cdm."__<br>";
///////////////////////////////////////////m
$Pdot=2;$Pdot1=12;$Pdot2=22; $Pdot3=32;
if($cols==45) {
$mXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$mYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$mZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$mLm=xyz2lab01("l",$mXm,$mYm,$mZm);
$mam=xyz2lab01("a",$mXm,$mYm,$mZm);
$mbm=xyz2lab01("b",$mXm,$mYm,$mZm);
$mdm=DensitySp38("M",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
}
else {
$mXm=spXYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$mYm=spXYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$mZm=spXYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$mLm=xyz2lab01("l",$mXm,$mYm,$mZm);
$mam=xyz2lab01("a",$mXm,$mYm,$mZm);
$mbm=xyz2lab01("b",$mXm,$mYm,$mZm);
$mdm=DensitySp("M",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
//////////////M1
$m1Xm=spXYZ("X",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$m1Ym=spXYZ("Y",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$m1Zm=spXYZ("Z",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$m1Lm=xyz2lab01("l",$m1Xm,$m1Ym,$m1Zm);
$m1am=xyz2lab01("a",$m1Xm,$m1Ym,$m1Zm);
$m1bm=xyz2lab01("b",$m1Xm,$m1Ym,$m1Zm);
$m1dm=DensitySp("M",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
///////////////////M2
$m2Xm=spXYZ("X",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$m2Ym=spXYZ("Y",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$m2Zm=spXYZ("Z",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$m2Lm=xyz2lab01("l",$m2Xm,$m2Ym,$m2Zm);
$m2am=xyz2lab01("a",$m2Xm,$m2Ym,$m2Zm);
$m2bm=xyz2lab01("b",$m2Xm,$m2Ym,$m2Zm);
$m2dm=DensitySp("M",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
///////////////////M3
$m3Xm=spXYZ("X",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$m3Ym=spXYZ("Y",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$m3Zm=spXYZ("Z",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$m3Lm=xyz2lab01("l",$m3Xm,$m3Ym,$m3Zm);
$m3am=xyz2lab01("a",$m3Xm,$m3Ym,$m3Zm);
$m3bm=xyz2lab01("b",$m3Xm,$m3Ym,$m3Zm);
$m3dm=DensitySp("M",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
}
// echo "note 2k: ML:".$mLm."_Ma:".$mam."_Mb:".$mbm."__Mdm:".$mdm."__<br>";
///////////////////////////////////////////y
$Pdot=3;$Pdot1=13;$Pdot2=23; $Pdot3=33;
if($cols==45) {
$yXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$yYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$yZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$yLm=xyz2lab01("l",$yXm,$yYm,$yZm);
$yam=xyz2lab01("a",$yXm,$yYm,$yZm);
$ybm=xyz2lab01("b",$yXm,$yYm,$yZm);
$ydm=DensitySp38("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
}
else {
$yXm=spXYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$yYm=spXYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$yZm=spXYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$yLm=xyz2lab01("l",$yXm,$yYm,$yZm);
$yam=xyz2lab01("a",$yXm,$yYm,$yZm);
$ybm=xyz2lab01("b",$yXm,$yYm,$yZm);
$ydm=DensitySp("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
//////////////////Y1
$y1Xm=spXYZ("X",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$y1Ym=spXYZ("Y",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$y1Zm=spXYZ("Z",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$y1Lm=xyz2lab01("l",$y1Xm,$y1Ym,$y1Zm);
$y1am=xyz2lab01("a",$y1Xm,$y1Ym,$y1Zm);
$y1bm=xyz2lab01("b",$y1Xm,$y1Ym,$y1Zm);
$y1dm=DensitySp("Y",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
/////////////////////Y2
$y2Xm=spXYZ("X",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$y2Ym=spXYZ("Y",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$y2Zm=spXYZ("Z",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$y2Lm=xyz2lab01("l",$y2Xm,$y2Ym,$y2Zm);
$y2am=xyz2lab01("a",$y2Xm,$y2Ym,$y2Zm);
$y2bm=xyz2lab01("b",$y2Xm,$y2Ym,$y2Zm);
$y2dm=DensitySp("Y",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
/////////////////////Y3
$y3Xm=spXYZ("X",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$y3Ym=spXYZ("Y",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$y3Zm=spXYZ("Z",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$y3Lm=xyz2lab01("l",$y3Xm,$y3Ym,$y3Zm);
$y3am=xyz2lab01("a",$y3Xm,$y3Ym,$y3Zm);
$y3bm=xyz2lab01("b",$y3Xm,$y3Ym,$y3Zm);
$y3dm=DensitySp("Y",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
}
// echo "note 2k: YL:".$yLm."_Ya:".$yam."_Yb:".$ybm."__Ydm:".$ydm."__<br>";
///////////////////////////////////////////k
$Pdot=4; $Pdot1=14; $Pdot2=24;$Pdot3=34;
if($cols==45) {
$kXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$kYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$kZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$kLm=xyz2lab01("l",$kXm,$kYm,$kZm);
$kam=xyz2lab01("a",$kXm,$kYm,$kZm);
$kbm=xyz2lab01("b",$kXm,$kYm,$kZm);
$kdm=DensitySp38("K",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
}
else {
$kXm=spXYZ("X",0.000001,$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$kYm=spXYZ("Y",0.000001,$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$kZm=spXYZ("Z",0.000001,$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$kLm=xyz2lab01("l",$kXm,$kYm,$kZm);
$kam=xyz2lab01("a",$kXm,$kYm,$kZm);
$kbm=xyz2lab01("b",$kXm,$kYm,$kZm);
$kdm=DensitySp("K",0.000001,$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
///////////////////////////////K1
$k1Xm=spXYZ("X",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$k1Ym=spXYZ("Y",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$k1Zm=spXYZ("Z",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$k1Lm=xyz2lab01("l",$k1Xm,$k1Ym,$k1Zm);
$k1am=xyz2lab01("a",$k1Xm,$k1Ym,$k1Zm);
$k1bm=xyz2lab01("b",$k1Xm,$k1Ym,$k1Zm);
$k1dm=DensitySp("K",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
/////////////////////K2
$k2Xm=spXYZ("X",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$k2Ym=spXYZ("Y",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$k2Zm=spXYZ("Z",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$k2Lm=xyz2lab01("l",$k2Xm,$k2Ym,$k2Zm);
$k2am=xyz2lab01("a",$k2Xm,$k2Ym,$k2Zm);
$k2bm=xyz2lab01("b",$k2Xm,$k2Ym,$k2Zm);
$k2dm=DensitySp("K",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
/////////////////////K3
$k3Xm=spXYZ("X",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$k3Ym=spXYZ("Y",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$k3Zm=spXYZ("Z",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$k3Lm=xyz2lab01("l",$k3Xm,$k3Ym,$k3Zm);
$k3am=xyz2lab01("a",$k3Xm,$k3Ym,$k3Zm);
$k3bm=xyz2lab01("b",$k3Xm,$k3Ym,$k3Zm);
$k3dm=DensitySp("K",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
}
// echo "note 2k: KL:".$kLm."_Ka:".$kam."_Kb:".$kbm."__Kdm:".$kdm."__<br>";
// echo "kdm:".$kdm;echo "k1dm:".$k1dm; echo "k2dm:".$k2dm;
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// //////////////////////////////////Beer's Law section///////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////sec K
$ki=0.820;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=4;$Pdot1=14;$Pdot2=24;////K line
//$dotT[$idx+$cols*$Pdot+1]
$si=0;
if ($cols==45) {
for ($s=380; $s<=730; $s+=10) {
${'p'.$s}=$dotT[$idx+$cols*($Pdot+2)+$si+1];
${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
$si=$si+1;
}}
else {
for ($s=400; $s<=700; $s+=10) {
${'p'.$s}=$dotT[$idx+$cols*($Pdot+2)+$si+1];
${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
//////k1
${'pa'.$s}=$dotT[$idx+$cols*($Pdot1+2)+$si+1];
${'ma'.$s}=$dotT[$idx+$cols*$Pdot1+$si+1];
${'ra'.$s}=pow(10,-((((-log10(${'ma'.$s}))-(-log10(${'pa'.$s})))*$ki)+(-log10(${'pa'.$s}))))*1;
//////k2
${'pb'.$s}=$dotT[$idx+$cols*($Pdot2+2)+$si+1];
${'mb'.$s}=$dotT[$idx+$cols*$Pdot2+$si+1];
${'rb'.$s}=pow(10,-((((-log10(${'mb'.$s}))-(-log10(${'pb'.$s})))*$ki)+(-log10(${'pb'.$s}))))*1;
//////k3
${'pc'.$s}=$dotT[$idx+$cols*($Pdot2+2)+$si+1];
${'mc'.$s}=$dotT[$idx+$cols*$Pdot2+$si+1];
${'rc'.$s}=pow(10,-((((-log10(${'mc'.$s}))-(-log10(${'pc'.$s})))*$ki)+(-log10(${'pc'.$s}))))*1;
$si=$si+1;
}}
$ki=$ki+0.015;
if ($cols==45) {
${'k'.$i.'X'}=sp38XYZ("X",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'k'.$i.'Y'}=sp38XYZ("Y",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'k'.$i.'Z'}=sp38XYZ("Z",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
${'k'.$i.'l'}=xyz2lab01("l",${'k'.$i.'X'},${'k'.$i.'Y'},${'k'.$i.'Z'});
${'k'.$i.'a'}=xyz2lab01("a",${'k'.$i.'X'},${'k'.$i.'Y'},${'k'.$i.'Z'});
${'k'.$i.'b'}=xyz2lab01("b",${'k'.$i.'X'},${'k'.$i.'Y'},${'k'.$i.'Z'});
//echo "K1L=".round($k1l,3).",".round($k1a,3).",".round($k1b,3);
${'k'.$i.'dd'}=DensitySp38("K",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
//echo "K1D=".round(${'k'.$i.'dd'},3);
}
else {
${'k'.$i.'X'}=spXYZ("X",0.000001, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700);
${'k'.$i.'Y'}=spXYZ("Y",0.000001, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700);
${'k'.$i.'Z'}=spXYZ("Z",0.000001, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
${'k'.$i.'l'}=xyz2lab01("l",${'k'.$i.'X'},${'k'.$i.'Y'},${'k'.$i.'Z'});
${'k'.$i.'a'}=xyz2lab01("a",${'k'.$i.'X'},${'k'.$i.'Y'},${'k'.$i.'Z'});
${'k'.$i.'b'}=xyz2lab01("b",${'k'.$i.'X'},${'k'.$i.'Y'},${'k'.$i.'Z'});
//echo "K1L=".round($k1l,3).",".round($k1a,3).",".round($k1b,3);
${'k'.$i.'dd'}=DensitySp("K",0.000001, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700);
///////////ka
${'ka'.$i.'X'}=spXYZ("X",0.00001, $ra410, $ra420, $ra430, $ra440, $ra450, $ra460, $ra470, $ra480, $ra490, $ra500, $ra510, $ra520, $ra530, $ra540, $ra550, $ra560, $ra570, $ra580, $ra590, $ra600, $ra610, $ra620, $ra630, $ra640, $ra650, $ra660, $ra670, $ra680, $ra690, $ra700);
${'ka'.$i.'Y'}=spXYZ("Y",0.00001, $ra410, $ra420, $ra430, $ra440, $ra450, $ra460, $ra470, $ra480, $ra490, $ra500, $ra510, $ra520, $ra530, $ra540, $ra550, $ra560, $ra570, $ra580, $ra590, $ra600, $ra610, $ra620, $ra630, $ra640, $ra650, $ra660, $ra670, $ra680, $ra690, $ra700);
${'ka'.$i.'Z'}=spXYZ("Z",0.00001, $ra410, $ra420, $ra430, $ra440, $ra450, $ra460, $ra470, $ra480, $ra490, $ra500, $ra510, $ra520, $ra530, $ra540, $ra550, $ra560, $ra570, $ra580, $ra590, $ra600, $ra610, $ra620, $ra630, $ra640, $ra650, $ra660, $ra670, $ra680, $ra690, $ra700);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
${'ka'.$i.'l'}=xyz2lab01("l",${'ka'.$i.'X'},${'ka'.$i.'Y'},${'ka'.$i.'Z'});
${'ka'.$i.'a'}=xyz2lab01("a",${'ka'.$i.'X'},${'ka'.$i.'Y'},${'ka'.$i.'Z'});
${'ka'.$i.'b'}=xyz2lab01("b",${'ka'.$i.'X'},${'ka'.$i.'Y'},${'ka'.$i.'Z'});
//echo "K1L=".round($k1l,3).",".round($k1a,3).",".round($k1b,3);
${'ka'.$i.'dd'}=DensitySp("K",0.00001, $ra410, $ra420, $ra430, $ra440, $ra450, $ra460, $ra470, $ra480, $ra490, $ra500, $ra510, $ra520, $ra530, $ra540, $ra550, $ra560, $ra570, $ra580, $ra590, $ra600, $ra610, $ra620, $ra630, $ra640, $ra650, $ra660, $ra670, $ra680, $ra690, $ra700);
///////////////////kb
${'kb'.$i.'X'}=spXYZ("X",0.00001, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
${'kb'.$i.'Y'}=spXYZ("Y",0.00001, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
${'kb'.$i.'Z'}=spXYZ("Z",0.00001, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
${'kb'.$i.'l'}=xyz2lab01("l",${'kb'.$i.'X'},${'kb'.$i.'Y'},${'kb'.$i.'Z'});
${'kb'.$i.'a'}=xyz2lab01("a",${'kb'.$i.'X'},${'kb'.$i.'Y'},${'kb'.$i.'Z'});
${'kb'.$i.'b'}=xyz2lab01("b",${'kb'.$i.'X'},${'kb'.$i.'Y'},${'kb'.$i.'Z'});
//echo "K1L=".round($k1l,3).",".round($k1a,3).",".round($k1b,3);
${'kb'.$i.'dd'}=DensitySp("K",0.00001, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
///////////////////kc
${'kc'.$i.'X'}=spXYZ("X",0.00001, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
${'kc'.$i.'Y'}=spXYZ("Y",0.00001, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
${'kc'.$i.'Z'}=spXYZ("Z",0.00001, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
${'kc'.$i.'l'}=xyz2lab01("l",${'kc'.$i.'X'},${'kc'.$i.'Y'},${'kc'.$i.'Z'});
${'kc'.$i.'a'}=xyz2lab01("a",${'kc'.$i.'X'},${'kc'.$i.'Y'},${'kc'.$i.'Z'});
${'kc'.$i.'b'}=xyz2lab01("b",${'kc'.$i.'X'},${'kc'.$i.'Y'},${'kc'.$i.'Z'});
//echo "K1L=".round($k1l,3).",".round($k1a,3).",".round($k1b,3);
${'kc'.$i.'dd'}=DensitySp("K",0.00001, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
}
//echo "K1D=".round(${'k'.$i.'dd'},3);
}
//echo "<br>";
//////////////////////sec C
$ki=0.820;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=1;$Pdot1=11;$Pdot2=21;////C line
$si=0;
if ($cols==45) {
for ($s=380; $s<=730; $s+=10) {
${'p'.$s}=$dotT[$idx+$cols*($Pdot+8)+$si+1];
${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
$si=$si+1;
}}
else {
for ($s=400; $s<=700; $s+=10) {
${'p'.$s}=$dotT[$idx+$cols*($Pdot+8)+$si+1];
${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
${'pa'.$s}=$dotT[$idx+$cols*($Pdot1+8)+$si+1];
${'ma'.$s}=$dotT[$idx+$cols*$Pdot1+$si+1];
${'ra'.$s}=pow(10,-((((-log10(${'ma'.$s}))-(-log10(${'pa'.$s})))*$ki)+(-log10(${'pa'.$s}))))*1;
${'pb'.$s}=$dotT[$idx+$cols*($Pdot2+8)+$si+1];
${'mb'.$s}=$dotT[$idx+$cols*$Pdot2+$si+1];
${'rb'.$s}=pow(10,-((((-log10(${'mb'.$s}))-(-log10(${'pb'.$s})))*$ki)+(-log10(${'pb'.$s}))))*1;
${'pc'.$s}=$dotT[$idx+$cols*($Pdot2+8)+$si+1];
${'mc'.$s}=$dotT[$idx+$cols*$Pdot2+$si+1];
${'rc'.$s}=pow(10,-((((-log10(${'mc'.$s}))-(-log10(${'pc'.$s})))*$ki)+(-log10(${'pc'.$s}))))*1;
$si=$si+1;
}}
$ki=$ki+0.015;
if ($cols==45) {
${'c'.$i.'X'}=sp38XYZ("X",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'c'.$i.'Y'}=sp38XYZ("Y",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'c'.$i.'Z'}=sp38XYZ("Z",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($c1Z,3)."<br>";
${'c'.$i.'l'}=xyz2lab01("l",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
${'c'.$i.'a'}=xyz2lab01("a",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
${'c'.$i.'b'}=xyz2lab01("b",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
//echo "K1L=".round($c1l,3).",".round($c1a,3).",".round($c1b,3);
${'c'.$i.'dd'}=DensitySp38("C",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
//echo "K1D=".round($k1dd,3);
}
else {
${'c'.$i.'X'}=spXYZ("X",$r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700);
${'c'.$i.'Y'}=spXYZ("Y",$r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700);
${'c'.$i.'Z'}=spXYZ("Z",$r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($c1Z,3)."<br>";
${'c'.$i.'l'}=xyz2lab01("l",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
${'c'.$i.'a'}=xyz2lab01("a",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
${'c'.$i.'b'}=xyz2lab01("b",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
//echo "K1L=".round($c1l,3).",".round($c1a,3).",".round($c1b,3);
${'c'.$i.'dd'}=DensitySp("C",$r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700);
//////ca
${'ca'.$i.'X'}=spXYZ("X",$ra400, $ra410, $ra420, $ra430, $ra440, $ra450, $ra460, $ra470, $ra480, $ra490, $ra500, $ra510, $ra520, $ra530, $ra540, $ra550, $ra560, $ra570, $ra580, $ra590, $ra600, $ra610, $ra620, $ra630, $ra640, $ra650, $ra660, $ra670, $ra680, $ra690, $ra700);
${'ca'.$i.'Y'}=spXYZ("Y",$ra400, $ra410, $ra420, $ra430, $ra440, $ra450, $ra460, $ra470, $ra480, $ra490, $ra500, $ra510, $ra520, $ra530, $ra540, $ra550, $ra560, $ra570, $ra580, $ra590, $ra600, $ra610, $ra620, $ra630, $ra640, $ra650, $ra660, $ra670, $ra680, $ra690, $ra700);
${'ca'.$i.'Z'}=spXYZ("Z",$ra400, $ra410, $ra420, $ra430, $ra440, $ra450, $ra460, $ra470, $ra480, $ra490, $ra500, $ra510, $ra520, $ra530, $ra540, $ra550, $ra560, $ra570, $ra580, $ra590, $ra600, $ra610, $ra620, $ra630, $ra640, $ra650, $ra660, $ra670, $ra680, $ra690, $ra700);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($c1Z,3)."<br>";
${'ca'.$i.'l'}=xyz2lab01("l",${'ca'.$i.'X'},${'ca'.$i.'Y'},${'ca'.$i.'Z'});
${'ca'.$i.'a'}=xyz2lab01("a",${'ca'.$i.'X'},${'ca'.$i.'Y'},${'ca'.$i.'Z'});
${'ca'.$i.'b'}=xyz2lab01("b",${'ca'.$i.'X'},${'ca'.$i.'Y'},${'ca'.$i.'Z'});
//echo "K1L=".round($c1l,3).",".round($c1a,3).",".round($c1b,3);
${'ca'.$i.'dd'}=DensitySp("C",$ra400, $ra410, $ra420, $ra430, $ra440, $ra450, $ra460, $ra470, $ra480, $ra490, $ra500, $ra510, $ra520, $ra530, $ra540, $ra550, $ra560, $ra570, $ra580, $ra590, $ra600, $ra610, $ra620, $ra630, $ra640, $ra650, $ra660, $ra670, $ra680, $ra690, $ra700);
//////cb
${'cb'.$i.'X'}=spXYZ("X",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
${'cb'.$i.'Y'}=spXYZ("Y",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
${'cb'.$i.'Z'}=spXYZ("Z",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($c1Z,3)."<br>";
${'cb'.$i.'l'}=xyz2lab01("l",${'cb'.$i.'X'},${'cb'.$i.'Y'},${'cb'.$i.'Z'});
${'cb'.$i.'a'}=xyz2lab01("a",${'cb'.$i.'X'},${'cb'.$i.'Y'},${'cb'.$i.'Z'});
${'cb'.$i.'b'}=xyz2lab01("b",${'cb'.$i.'X'},${'cb'.$i.'Y'},${'cb'.$i.'Z'});
//echo "K1L=".round($c1l,3).",".round($c1a,3).",".round($c1b,3);
${'cb'.$i.'dd'}=DensitySp("C",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb2700);
//////cc
${'cc'.$i.'X'}=spXYZ("X",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
${'cc'.$i.'Y'}=spXYZ("Y",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
${'cc'.$i.'Z'}=spXYZ("Z",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($c1Z,3)."<br>";
${'cc'.$i.'l'}=xyz2lab01("l",${'cc'.$i.'X'},${'cc'.$i.'Y'},${'cc'.$i.'Z'});
${'cc'.$i.'a'}=xyz2lab01("a",${'cc'.$i.'X'},${'cc'.$i.'Y'},${'cc'.$i.'Z'});
${'cc'.$i.'b'}=xyz2lab01("b",${'cc'.$i.'X'},${'cc'.$i.'Y'},${'cc'.$i.'Z'});
//echo "K1L=".round($c1l,3).",".round($c1a,3).",".round($c1b,3);
${'cc'.$i.'dd'}=DensitySp("C",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb2700);
}
//echo "c1D=".round($c1dd,3);
}
//echo "<br>";
//////////////////////////sec M
$ki=0.820;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=2;$Pdot1=12;$Pdot2=22;////M line
$si=0;
if ($cols==45) {
for ($s=380; $s<=730; $s+=10) {
${'p'.$s}=$dotT[$idx+$cols*($Pdot+6)+$si+1];
${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
${'pa'.$s}=$dotT[$idx+$cols*($Pdot1+6)+$si+1];
${'ma'.$s}=$dotT[$idx+$cols*$Pdot1+$si+1];
${'ra'.$s}=pow(10,-((((-log10(${'ma'.$s}))-(-log10(${'pa'.$s})))*$ki)+(-log10(${'pa'.$s}))))*1;
${'pb'.$s}=$dotT[$idx+$cols*($Pdot2+6)+$si+1];
${'mb'.$s}=$dotT[$idx+$cols*$Pdot2+$si+1];
${'rb'.$s}=pow(10,-((((-log10(${'mb'.$s}))-(-log10(${'pb'.$s})))*$ki)+(-log10(${'pb'.$s}))))*1;
$si=$si+1;
${'pc'.$s}=$dotT[$idx+$cols*($Pdot2+6)+$si+1];
${'mc'.$s}=$dotT[$idx+$cols*$Pdot2+$si+1];
${'rc'.$s}=pow(10,-((((-log10(${'mc'.$s}))-(-log10(${'pc'.$s})))*$ki)+(-log10(${'pc'.$s}))))*1;
$si=$si+1;
}}
else {
for ($s=400; $s<=700; $s+=10) {
${'p'.$s}=$dotT[$idx+$cols*($Pdot+6)+$si+1];
${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
${'pa'.$s}=$dotT[$idx+$cols*($Pdot1+6)+$si+1];
${'ma'.$s}=$dotT[$idx+$cols*$Pdot1+$si+1];
${'ra'.$s}=pow(10,-((((-log10(${'ma'.$s}))-(-log10(${'pa'.$s})))*$ki)+(-log10(${'pa'.$s}))))*1;
${'pb'.$s}=$dotT[$idx+$cols*($Pdot2+6)+$si+1];
${'mb'.$s}=$dotT[$idx+$cols*$Pdot2+$si+1];
${'rb'.$s}=pow(10,-((((-log10(${'mb'.$s}))-(-log10(${'pb'.$s})))*$ki)+(-log10(${'pb'.$s}))))*1;
${'pc'.$s}=$dotT[$idx+$cols*($Pdot2+6)+$si+1];
${'mc'.$s}=$dotT[$idx+$cols*$Pdot2+$si+1];
${'rc'.$s}=pow(10,-((((-log10(${'mc'.$s}))-(-log10(${'pc'.$s})))*$ki)+(-log10(${'pc'.$s}))))*1;
$si=$si+1;
}}
$ki=$ki+0.015;
if ($cols==45) {
${'m'.$i.'X'}=sp38XYZ("X",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'m'.$i.'Y'}=sp38XYZ("Y",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'m'.$i.'Z'}=sp38XYZ("Z",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
//echo "KX1=".round($m1X,3).",".round($m1Y,3).",".round($m1Z,3)."<br>";
${'m'.$i.'l'}=xyz2lab01("l",${'m'.$i.'X'},${'m'.$i.'Y'},${'m'.$i.'Z'});
${'m'.$i.'a'}=xyz2lab01("a",${'m'.$i.'X'},${'m'.$i.'Y'},${'m'.$i.'Z'});
${'m'.$i.'b'}=xyz2lab01("b",${'m'.$i.'X'},${'m'.$i.'Y'},${'m'.$i.'Z'});
//echo "K1L=".round($m1l,3).",".round($m1a,3).",".round($m1b,3);
${'m'.$i.'dd'}=DensitySp38("M",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
}
else {
${'m'.$i.'X'}=spXYZ("X",$r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700);
${'m'.$i.'Y'}=spXYZ("Y",$r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700);
${'m'.$i.'Z'}=spXYZ("Z",$r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700);
//echo "KX1=".round($m1X,3).",".round($m1Y,3).",".round($m1Z,3)."<br>";
${'m'.$i.'l'}=xyz2lab01("l",${'m'.$i.'X'},${'m'.$i.'Y'},${'m'.$i.'Z'});
${'m'.$i.'a'}=xyz2lab01("a",${'m'.$i.'X'},${'m'.$i.'Y'},${'m'.$i.'Z'});
${'m'.$i.'b'}=xyz2lab01("b",${'m'.$i.'X'},${'m'.$i.'Y'},${'m'.$i.'Z'});
//echo "K1L=".round($m1l,3).",".round($m1a,3).",".round($m1b,3);
${'m'.$i.'dd'}=DensitySp("M",$r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700);
/////////////////ma
${'ma'.$i.'X'}=spXYZ("X",$ra400, $ra410, $ra420, $ra430, $ra440, $ra450, $ra460, $ra470, $ra480, $ra490, $ra500, $ra510, $ra520, $ra530, $ra540, $ra550, $ra560, $ra570, $ra580, $ra590, $ra600, $ra610, $ra620, $ra630, $ra640, $ra650, $ra660, $ra670, $ra680, $ra690, $ra700);
${'ma'.$i.'Y'}=spXYZ("Y",$ra400, $ra410, $ra420, $ra430, $ra440, $ra450, $ra460, $ra470, $ra480, $ra490, $ra500, $ra510, $ra520, $ra530, $ra540, $ra550, $ra560, $ra570, $ra580, $ra590, $ra600, $ra610, $ra620, $ra630, $ra640, $ra650, $ra660, $ra670, $ra680, $ra690, $ra700);
${'ma'.$i.'Z'}=spXYZ("Z",$ra400, $ra410, $ra420, $ra430, $ra440, $ra450, $ra460, $ra470, $ra480, $ra490, $ra500, $ra510, $ra520, $ra530, $ra540, $ra550, $ra560, $ra570, $ra580, $ra590, $ra600, $ra610, $ra620, $ra630, $ra640, $ra650, $ra660, $ra670, $ra680, $ra690, $ra700);
//echo "KX1=".round($m1X,3).",".round($m1Y,3).",".round($m1Z,3)."<br>";
${'ma'.$i.'l'}=xyz2lab01("l",${'ma'.$i.'X'},${'ma'.$i.'Y'},${'ma'.$i.'Z'});
${'ma'.$i.'a'}=xyz2lab01("a",${'ma'.$i.'X'},${'ma'.$i.'Y'},${'ma'.$i.'Z'});
${'ma'.$i.'b'}=xyz2lab01("b",${'ma'.$i.'X'},${'ma'.$i.'Y'},${'ma'.$i.'Z'});
//echo "K1L=".round($m1l,3).",".round($m1a,3).",".round($m1b,3);
${'ma'.$i.'dd'}=DensitySp("M",$ra400, $ra410, $ra420, $ra430, $ra440, $ra450, $ra460, $ra470, $ra480, $ra490, $ra500, $ra510, $ra520, $ra530, $ra540, $ra550, $ra560, $ra570, $ra580, $ra590, $ra600, $ra610, $ra620, $ra630, $ra640, $ra650, $ra660, $ra670, $ra680, $ra690, $ra700);
///////////mb
${'mb'.$i.'X'}=spXYZ("X",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
${'mb'.$i.'Y'}=spXYZ("Y",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
${'mb'.$i.'Z'}=spXYZ("Z",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
//echo "KX1=".round($m1X,3).",".round($m1Y,3).",".round($m1Z,3)."<br>";
${'mb'.$i.'l'}=xyz2lab01("l",${'mb'.$i.'X'},${'mb'.$i.'Y'},${'mb'.$i.'Z'});
${'mb'.$i.'a'}=xyz2lab01("a",${'mb'.$i.'X'},${'mb'.$i.'Y'},${'mb'.$i.'Z'});
${'mb'.$i.'b'}=xyz2lab01("b",${'mb'.$i.'X'},${'mb'.$i.'Y'},${'mb'.$i.'Z'});
//echo "K1L=".round($m1l,3).",".round($m1a,3).",".round($m1b,3);
${'mb'.$i.'dd'}=DensitySp("M",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
///////////mc
${'mc'.$i.'X'}=spXYZ("X",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
${'mc'.$i.'Y'}=spXYZ("Y",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
${'mc'.$i.'Z'}=spXYZ("Z",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
//echo "KX1=".round($m1X,3).",".round($m1Y,3).",".round($m1Z,3)."<br>";
${'mc'.$i.'l'}=xyz2lab01("l",${'mc'.$i.'X'},${'mc'.$i.'Y'},${'mc'.$i.'Z'});
${'mc'.$i.'a'}=xyz2lab01("a",${'mc'.$i.'X'},${'mc'.$i.'Y'},${'mc'.$i.'Z'});
${'mc'.$i.'b'}=xyz2lab01("b",${'mc'.$i.'X'},${'mc'.$i.'Y'},${'mc'.$i.'Z'});
//echo "K1L=".round($m1l,3).",".round($m1a,3).",".round($m1b,3);
${'mc'.$i.'dd'}=DensitySp("M",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
}
//echo "m1D=".round(${'m'.$i.'dd'},3);
}
//echo "<br>";
///////////////////sec Y
$ki=0.880;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=3;$Pdot1=13;$Pdot2=23;////Y line
$si=0;
if ($cols==45) {
for ($s=380; $s<=730; $s+=10) {
${'p'.$s}=$dotT[$idx+$cols*($Pdot+4)+$si+1];
${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
$si=$si+1;
}}
else {
for ($s=400; $s<=700; $s+=10) {
${'p'.$s}=$dotT[$idx+$cols*($Pdot+4)+$si+1];
${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
${'pa'.$s}=$dotT[$idx+$cols*($Pdot1+4)+$si+1];
${'ma'.$s}=$dotT[$idx+$cols*$Pdot1+$si+1];
${'ra'.$s}=pow(10,-((((-log10(${'ma'.$s}))-(-log10(${'pa'.$s})))*$ki)+(-log10(${'pa'.$s}))))*1;
${'pb'.$s}=$dotT[$idx+$cols*($Pdot2+4)+$si+1];
${'mb'.$s}=$dotT[$idx+$cols*$Pdot2+$si+1];
${'rb'.$s}=pow(10,-((((-log10(${'mb'.$s}))-(-log10(${'pb'.$s})))*$ki)+(-log10(${'pb'.$s}))))*1;
${'pc'.$s}=$dotT[$idx+$cols*($Pdot2+4)+$si+1];
${'mc'.$s}=$dotT[$idx+$cols*$Pdot2+$si+1];
${'rc'.$s}=pow(10,-((((-log10(${'mc'.$s}))-(-log10(${'pc'.$s})))*$ki)+(-log10(${'pc'.$s}))))*1;
$si=$si+1;
}
}
$ki=$ki+0.015;
if ($cols==45) {
${'y'.$i.'X'}=sp38XYZ("X",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'y'.$i.'Y'}=sp38XYZ("Y",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'y'.$i.'Z'}=sp38XYZ("Z",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
//echo "KX1=".round($y1X,3).",".round($y1Y,3).",".round($y1Z,3)."<br>";
${'y'.$i.'l'}=xyz2lab01("l",${'y'.$i.'X'},${'y'.$i.'Y'},${'y'.$i.'Z'});
${'y'.$i.'a'}=xyz2lab01("a",${'y'.$i.'X'},${'y'.$i.'Y'},${'y'.$i.'Z'});
${'y'.$i.'b'}=xyz2lab01("b",${'y'.$i.'X'},${'y'.$i.'Y'},${'y'.$i.'Z'});
//echo "K1L=".round($y1l,3).",".round($y1a,3).",".round($y1b,3);
${'y'.$i.'dd'}=DensitySp38("Y",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
//echo "K1D=".round($k1dd,3);
}
else{
${'y'.$i.'X'}=spXYZ("X",$r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700);
${'y'.$i.'Y'}=spXYZ("Y",$r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700);
${'y'.$i.'Z'}=spXYZ("Z",$r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700);
//echo "KX1=".round($y1X,3).",".round($y1Y,3).",".round($y1Z,3)."<br>";
${'y'.$i.'l'}=xyz2lab01("l",${'y'.$i.'X'},${'y'.$i.'Y'},${'y'.$i.'Z'});
${'y'.$i.'a'}=xyz2lab01("a",${'y'.$i.'X'},${'y'.$i.'Y'},${'y'.$i.'Z'});
${'y'.$i.'b'}=xyz2lab01("b",${'y'.$i.'X'},${'y'.$i.'Y'},${'y'.$i.'Z'});
//echo "K1L=".round($y1l,3).",".round($y1a,3).",".round($y1b,3);
${'y'.$i.'dd'}=DensitySp("Y",$r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700);
//////////ya
${'ya'.$i.'X'}=spXYZ("X",$ra400, $ra410, $ra420, $ra430, $ra440, $ra450, $ra460, $ra470, $ra480, $ra490, $ra500, $ra510, $ra520, $ra530, $ra540, $ra550, $ra560, $ra570, $ra580, $ra590, $ra600, $ra610, $ra620, $ra630, $ra640, $ra650, $ra660, $ra670, $ra680, $ra690, $ra700);
${'ya'.$i.'Y'}=spXYZ("Y",$ra400, $ra410, $ra420, $ra430, $ra440, $ra450, $ra460, $ra470, $ra480, $ra490, $ra500, $ra510, $ra520, $ra530, $ra540, $ra550, $ra560, $ra570, $ra580, $ra590, $ra600, $ra610, $ra620, $ra630, $ra640, $ra650, $ra660, $ra670, $ra680, $ra690, $ra700);
${'ya'.$i.'Z'}=spXYZ("Z",$ra400, $ra410, $ra420, $ra430, $ra440, $ra450, $ra460, $ra470, $ra480, $ra490, $ra500, $ra510, $ra520, $ra530, $ra540, $ra550, $ra560, $ra570, $ra580, $ra590, $ra600, $ra610, $ra620, $ra630, $ra640, $ra650, $ra660, $ra670, $ra680, $ra690, $ra700);
//echo "KX1=".round($y1X,3).",".round($y1Y,3).",".round($y1Z,3)."<br>";
${'ya'.$i.'l'}=xyz2lab01("l",${'ya'.$i.'X'},${'ya'.$i.'Y'},${'ya'.$i.'Z'});
${'ya'.$i.'a'}=xyz2lab01("a",${'ya'.$i.'X'},${'ya'.$i.'Y'},${'ya'.$i.'Z'});
${'ya'.$i.'b'}=xyz2lab01("b",${'ya'.$i.'X'},${'ya'.$i.'Y'},${'ya'.$i.'Z'});
//echo "K1L=".round($y1l,3).",".round($y1a,3).",".round($y1b,3);
${'ya'.$i.'dd'}=DensitySp("Y",$ra400, $ra410, $ra420, $ra430, $ra440, $ra450, $ra460, $ra470, $ra480, $ra490, $ra500, $ra510, $ra520, $ra530, $ra540, $ra550, $ra560, $ra570, $ra580, $ra590, $ra600, $ra610, $ra620, $ra630, $ra640, $ra650, $ra660, $ra670, $ra680, $ra690, $ra700);
///////////yb
${'yb'.$i.'X'}=spXYZ("X",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
${'yb'.$i.'Y'}=spXYZ("Y",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
${'yb'.$i.'Z'}=spXYZ("Z",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
//echo "KX1=".round($y1X,3).",".round($y1Y,3).",".round($y1Z,3)."<br>";
${'yb'.$i.'l'}=xyz2lab01("l",${'yb'.$i.'X'},${'yb'.$i.'Y'},${'yb'.$i.'Z'});
${'yb'.$i.'a'}=xyz2lab01("a",${'yb'.$i.'X'},${'yb'.$i.'Y'},${'yb'.$i.'Z'});
${'yb'.$i.'b'}=xyz2lab01("b",${'yb'.$i.'X'},${'yb'.$i.'Y'},${'yb'.$i.'Z'});
//echo "K1L=".round($y1l,3).",".round($y1a,3).",".round($y1b,3);
${'yb'.$i.'dd'}=DensitySp("Y",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
///////////yc
${'yc'.$i.'X'}=spXYZ("X",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
${'yc'.$i.'Y'}=spXYZ("Y",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
${'yc'.$i.'Z'}=spXYZ("Z",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
//echo "KX1=".round($y1X,3).",".round($y1Y,3).",".round($y1Z,3)."<br>";
${'yc'.$i.'l'}=xyz2lab01("l",${'yc'.$i.'X'},${'yc'.$i.'Y'},${'yc'.$i.'Z'});
${'yc'.$i.'a'}=xyz2lab01("a",${'yc'.$i.'X'},${'yc'.$i.'Y'},${'yc'.$i.'Z'});
${'yc'.$i.'b'}=xyz2lab01("b",${'yc'.$i.'X'},${'yc'.$i.'Y'},${'yc'.$i.'Z'});
//echo "K1L=".round($y1l,3).",".round($y1a,3).",".round($y1b,3);
${'yc'.$i.'dd'}=DensitySp("Y",$rb400, $rb410, $rb420, $rb430, $rb440, $rb450, $rb460, $rb470, $rb480, $rb490, $rb500, $rb510, $rb520, $rb530, $rb540, $rb550, $rb560, $rb570, $rb580, $rb590, $rb600, $rb610, $rb620, $rb630, $rb640, $rb650, $rb660, $rb670, $rb680, $rb690, $rb700);
//echo "K1D=".round($k1dd,3);
}
// echo "y1D=".round(${'y'.$i.'dd'},3);
}
//////////////////////////////////Beer's Law section
//////////////////////////////////////////////////////
include 'dE00.php';
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);
}
$tt00=de76(55,-37,-50,54.3,-34.47,-52.63);
$dek00=de76($kl,$ka,$kb,$kLm,$kam,$kbm);
$dec00=de76($cl,$ca,$cb,$cLm,$cam,$cbm);
$dem00=de76($ml,$ma,$mb,$mLm,$mam,$mbm);
$dey00=de76($yl,$ya,$yb,$yLm,$yam,$ybm);
$dek100=de76($kl,$ka,$kb,$k1Lm,$k1am,$k1bm);
$dec100=de76($cl,$ca,$cb,$c1Lm,$c1am,$c1bm);
$dem100=de76($ml,$ma,$mb,$m1Lm,$m1am,$m1bm);
$dey100=de76($yl,$ya,$yb,$y1Lm,$y1am,$y1bm);
$dek200=de76($kl,$ka,$kb,$k2Lm,$k2am,$k2bm);
$dec200=de76($cl,$ca,$cb,$c2Lm,$c2am,$c2bm);
$dem200=de76($ml,$ma,$mb,$m2Lm,$m2am,$m2bm);
$dey200=de76($yl,$ya,$yb,$y2Lm,$y2am,$y2bm);
$dek300=de76($kl,$ka,$kb,$k3Lm,$k3am,$k3bm);
$dec300=de76($cl,$ca,$cb,$c3Lm,$c3am,$c3bm);
$dem300=de76($ml,$ma,$mb,$m3Lm,$m3am,$m3bm);
$dey300=de76($yl,$ya,$yb,$y3Lm,$y3am,$y3bm);
//echo "dek100:".$dek100;
//echo "dek200:".$dek200;
$dk176=de76($kl,$ka,$kb,$k1l,$k1a,$k1b);
$dk276=de76($kl,$ka,$kb,$k2l,$k2a,$k2b);
$dk376=de76($kl,$ka,$kb,$k3l,$k3a,$k3b);
$dk476=de76($kl,$ka,$kb,$k4l,$k4a,$k4b);
$dk576=de76($kl,$ka,$kb,$k5l,$k5a,$k5b);
$dk676=de76($kl,$ka,$kb,$k6l,$k6a,$k6b);
$dk776=de76($kl,$ka,$kb,$k7l,$k7a,$k7b);
$dk876=de76($kl,$ka,$kb,$k8l,$k8a,$k8b);
$dk976=de76($kl,$ka,$kb,$k9l,$k9a,$k9b);
$dk1076=de76($kl,$ka,$kb,$k10l,$k10a,$k10b);
$dk1176=de76($kl,$ka,$kb,$k11l,$k11a,$k11b);
$dk1276=de76($kl,$ka,$kb,$k12l,$k12a,$k12b);
$dk1376=de76($kl,$ka,$kb,$k13l,$k13a,$k13b);
$dk1476=de76($kl,$ka,$kb,$k14l,$k14a,$k14b);
$dk1576=de76($kl,$ka,$kb,$k15l,$k15a,$k15b);
$dk1676=de76($kl,$ka,$kb,$k16l,$k16a,$k16b);
$dk1776=de76($kl,$ka,$kb,$k17l,$k17a,$k17b);
$dk1876=de76($kl,$ka,$kb,$k18l,$k18a,$k18b);
$dk1976=de76($kl,$ka,$kb,$k19l,$k19a,$k19b);
$dk2076=de76($kl,$ka,$kb,$k20l,$k20a,$k20b);
$dk2176=de76($kl,$ka,$kb,$k21l,$k21a,$k21b);
$dk2276=de76($kl,$ka,$kb,$k22l,$k22a,$k22b);
$dk2376=de76($kl,$ka,$kb,$k23l,$k23a,$k23b);
$dk2476=de76($kl,$ka,$kb,$k24l,$k24a,$k24b);
$dk2576=de76($kl,$ka,$kb,$k25l,$k25a,$k25b);
$dk2676=de76($kl,$ka,$kb,$k26l,$k26a,$k26b);
$dk2776=de76($kl,$ka,$kb,$k27l,$k27a,$k27b);
$dk2876=de76($kl,$ka,$kb,$k28l,$k28a,$k28b);
$dk2976=de76($kl,$ka,$kb,$k29l,$k29a,$k29b);
$dk3076=de76($kl,$ka,$kb,$k30l,$k30a,$k30b);
$kmin=min($dk176,$dk276,$dk376,$dk476,$dk576,$dk676,$dk776,$dk876,$dk976,$dk1076,$dk1176,$dk1276,$dk1376,$dk1476,$dk1576,$dk1676,$dk1776,$dk1876,$dk1976,$dk2076,$dk2176,$dk2276,$dk2376,$dk2476,$dk2576,$dk2676,$dk2776,$dk2876,$dk2976,$dk3076);
//////ka
$dka176=de76($kl,$ka,$kb,$ka1l,$ka1a,$ka1b);
// echo "<br>dka176:".$dk176;
$dka276=de76($kl,$ka,$kb,$ka2l,$ka2a,$ka2b);
$dka376=de76($kl,$ka,$kb,$ka3l,$ka3a,$ka3b);
$dka476=de76($kl,$ka,$kb,$ka4l,$ka4a,$ka4b);
$dka576=de76($kl,$ka,$kb,$ka5l,$ka5a,$ka5b);
$dka676=de76($kl,$ka,$kb,$ka6l,$ka6a,$ka6b);
$dka776=de76($kl,$ka,$kb,$ka7l,$ka7a,$ka7b);
$dka876=de76($kl,$ka,$kb,$ka8l,$ka8a,$ka8b);
$dka976=de76($kl,$ka,$kb,$ka9l,$ka9a,$ka9b);
$dka1076=de76($kl,$ka,$kb,$ka10l,$ka10a,$ka10b);
$dka1176=de76($kl,$ka,$kb,$ka11l,$ka11a,$ka11b);
$dka1276=de76($kl,$ka,$kb,$ka12l,$ka12a,$ka12b);
$dka1376=de76($kl,$ka,$kb,$ka13l,$ka13a,$ka13b);
$dka1476=de76($kl,$ka,$kb,$ka14l,$ka14a,$ka14b);
$dka1576=de76($kl,$ka,$kb,$ka15l,$ka15a,$ka15b);
$dka1676=de76($kl,$ka,$kb,$ka16l,$ka16a,$ka16b);
$dka1776=de76($kl,$ka,$kb,$ka17l,$ka17a,$ka17b);
$dka1876=de76($kl,$ka,$kb,$ka18l,$ka18a,$ka18b);
$dka1976=de76($kl,$ka,$kb,$ka19l,$ka19a,$ka19b);
$dka2076=de76($kl,$ka,$kb,$ka20l,$ka20a,$ka20b);
$dka2176=de76($kl,$ka,$kb,$ka21l,$ka21a,$ka21b);
$dka2276=de76($kl,$ka,$kb,$ka22l,$ka22a,$ka22b);
$dka2376=de76($kl,$ka,$kb,$ka23l,$ka23a,$ka23b);
$dka2476=de76($kl,$ka,$kb,$ka24l,$ka24a,$ka24b);
$dka2576=de76($kl,$ka,$kb,$ka25l,$ka25a,$ka25b);
$dka2676=de76($kl,$ka,$kb,$ka26l,$ka26a,$ka26b);
$dka2776=de76($kl,$ka,$kb,$ka27l,$ka27a,$ka27b);
$dka2876=de76($kl,$ka,$kb,$ka28l,$ka28a,$ka28b);
$dka2976=de76($kl,$ka,$kb,$ka29l,$ka29a,$ka29b);
$dka3076=de76($kl,$ka,$kb,$ka30l,$ka30a,$ka30b);
$kamin=min($dka176,$dka276,$dka376,$dka476,$dka576,$dka676,$dka776,$dka876,$dka976,$dka1076,$dka1176,$dka1276,$dka1376,$dka1476,$dka1576,$dka1676,$dka1776,$dka1876,$dka1976,$dka2076,$dka2176,$dka2276,$dka2376,$dka2476,$dka2576,$dka2676,$dka2776,$dka2876,$dka2976,$dka3076);
//////kb
$dkb176=de76($kl,$ka,$kb,$kb1l,$kb1a,$kb1b);
$dkb276=de76($kl,$ka,$kb,$kb2l,$kb2a,$kb2b);
$dkb376=de76($kl,$ka,$kb,$kb3l,$kb3a,$kb3b);
$dkb476=de76($kl,$ka,$kb,$kb4l,$kb4a,$kb4b);
$dkb576=de76($kl,$ka,$kb,$kb5l,$kb5a,$kb5b);
$dkb676=de76($kl,$ka,$kb,$kb6l,$kb6a,$kb6b);
$dkb776=de76($kl,$ka,$kb,$kb7l,$kb7a,$kb7b);
$dkb876=de76($kl,$ka,$kb,$kb8l,$kb8a,$kb8b);
$dkb976=de76($kl,$ka,$kb,$kb9l,$kb9a,$kb9b);
$dkb1076=de76($kl,$ka,$kb,$kb10l,$kb10a,$kb10b);
$dkb1176=de76($kl,$ka,$kb,$kb11l,$kb11a,$kb11b);
$dkb1276=de76($kl,$ka,$kb,$kb12l,$kb12a,$kb12b);
$dkb1376=de76($kl,$ka,$kb,$kb13l,$kb13a,$kb13b);
$dkb1476=de76($kl,$ka,$kb,$kb14l,$kb14a,$kb14b);
$dkb1576=de76($kl,$ka,$kb,$kb15l,$kb15a,$kb15b);
$dkb1676=de76($kl,$ka,$kb,$kb16l,$kb16a,$kb16b);
$dkb1776=de76($kl,$ka,$kb,$kb17l,$kb17a,$kb17b);
$dkb1876=de76($kl,$ka,$kb,$kb18l,$kb18a,$kb18b);
$dkb1976=de76($kl,$ka,$kb,$kb19l,$kb19a,$kb19b);
$dkb2076=de76($kl,$ka,$kb,$kb20l,$kb20a,$kb20b);
$dkb2176=de76($kl,$ka,$kb,$kb21l,$kb21a,$kb21b);
$dkb2276=de76($kl,$ka,$kb,$kb22l,$kb22a,$kb22b);
$dkb2376=de76($kl,$ka,$kb,$kb23l,$kb23a,$kb23b);
$dkb2476=de76($kl,$ka,$kb,$kb24l,$kb24a,$kb24b);
$dkb2576=de76($kl,$ka,$kb,$kb25l,$kb25a,$kb25b);
$dkb2676=de76($kl,$ka,$kb,$kb26l,$kb26a,$kb26b);
$dkb2776=de76($kl,$ka,$kb,$kb27l,$kb27a,$kb27b);
$dkb2876=de76($kl,$ka,$kb,$kb28l,$kb28a,$kb28b);
$dkb2976=de76($kl,$ka,$kb,$kb29l,$kb29a,$kb29b);
$dkb3076=de76($kl,$ka,$kb,$kb30l,$kb30a,$kb30b);
$kbmin=min($dkb176,$dkb276,$dkb376,$dkb476,$dkb576,$dkb676,$dkb776,$dkb876,$dkb976,$dkb1076,$dkb1176,$dkb1276,$dkb1376,$dkb1476,$dkb1576,$dkb1676,$dkb1776,$dkb1876,$dkb1976,$dkb2076,$dkb2176,$dkb2276,$dkb2376,$dkb2476,$dkb2576,$dkb2676,$dkb2776,$dkb2876,$dkb2976,$dkb3076);
//////kc
$dkc176=de76($kl,$ka,$kb,$kc1l,$kc1a,$kc1b);
$dkc276=de76($kl,$ka,$kb,$kc2l,$kc2a,$kc2b);
$dkc376=de76($kl,$ka,$kb,$kc3l,$kc3a,$kc3b);
$dkc476=de76($kl,$ka,$kb,$kc4l,$kc4a,$kc4b);
$dkc576=de76($kl,$ka,$kb,$kc5l,$kc5a,$kc5b);
$dkc676=de76($kl,$ka,$kb,$kc6l,$kc6a,$kc6b);
$dkc776=de76($kl,$ka,$kb,$kc7l,$kc7a,$kc7b);
$dkc876=de76($kl,$ka,$kb,$kc8l,$kc8a,$kc8b);
$dkc976=de76($kl,$ka,$kb,$kc9l,$kc9a,$kc9b);
$dkc1076=de76($kl,$ka,$kb,$kc10l,$kc10a,$kc10b);
$dkc1176=de76($kl,$ka,$kb,$kc11l,$kc11a,$kc11b);
$dkc1276=de76($kl,$ka,$kb,$kc12l,$kc12a,$kc12b);
$dkc1376=de76($kl,$ka,$kb,$kc13l,$kc13a,$kc13b);
$dkc1476=de76($kl,$ka,$kb,$kc14l,$kc14a,$kc14b);
$dkc1576=de76($kl,$ka,$kb,$kc15l,$kc15a,$kc15b);
$dkc1676=de76($kl,$ka,$kb,$kc16l,$kc16a,$kc16b);
$dkc1776=de76($kl,$ka,$kb,$kc17l,$kc17a,$kc17b);
$dkc1876=de76($kl,$ka,$kb,$kc18l,$kc18a,$kc18b);
$dkc1976=de76($kl,$ka,$kb,$kc19l,$kc19a,$kc19b);
$dkc2076=de76($kl,$ka,$kb,$kc20l,$kc20a,$kc20b);
$dkc2176=de76($kl,$ka,$kb,$kc21l,$kc21a,$kc21b);
$dkc2276=de76($kl,$ka,$kb,$kc22l,$kc22a,$kc22b);
$dkc2376=de76($kl,$ka,$kb,$kc23l,$kc23a,$kc23b);
$dkc2476=de76($kl,$ka,$kb,$kc24l,$kc24a,$kc24b);
$dkc2576=de76($kl,$ka,$kb,$kc25l,$kc25a,$kc25b);
$dkc2676=de76($kl,$ka,$kb,$kc26l,$kc26a,$kc26b);
$dkc2776=de76($kl,$ka,$kb,$kc27l,$kc27a,$kc27b);
$dkc2876=de76($kl,$ka,$kb,$kc28l,$kc28a,$kc28b);
$dkc2976=de76($kl,$ka,$kb,$kc29l,$kc29a,$kc29b);
$dkc3076=de76($kl,$ka,$kb,$kc30l,$kc30a,$kc30b);
$kcmin=min($dkc176,$dkc276,$dkc376,$dkc476,$dkc576,$dkc676,$dkc776,$dkc876,$dkc976,$dkc1076,$dkc1176,$dkc1276,$dkc1376,$dkc1476,$dkc1576,$dkc1676,$dkc1776,$dkc1876,$dkc1976,$dkc2076,$dkc2176,$dkc2276,$dkc2376,$dkc2476,$dkc2576,$dkc2676,$dkc2776,$dkc2876,$dkc2976,$dkc3076);
//echo "dekamin:".$kamin;
// $dk194=de94($kl,$ka,$kb,$k1l,$k1a,$k1b);
?>
<?php if ($dk176==$kmin){ $kopt='1';$koptD=$k1dd;if ($k1l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk276==$kmin){ $kopt='2';$koptD=$k2dd;if ($k2l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk376==$kmin){ $kopt='3';$koptD=$k3dd;if ($k3l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk476==$kmin){ $kopt='4';$koptD=$k4dd;if ($k4l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk576==$kmin){ $kopt='5';$koptD=$k5dd;if ($k5l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk676==$kmin){ $kopt='6';$koptD=$k6dd;if ($k6l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk776==$kmin){ $kopt='7';$koptD=$k7dd;if ($k7l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk876==$kmin){ $kopt='8';$koptD=$k8dd; if ($k8l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk976==$kmin){ $kopt='9';$koptD=$k9dd;if ($k9l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1076==$kmin){ $kopt='10';$koptD=$k10dd;if ($k10l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1176==$kmin){ $kopt='11';$koptD=$k11dd;if ($k11l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1276==$kmin){ $kopt='12';$koptD=$k12dd;if ($k12l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1376==$kmin){ $kopt='13';$koptD=$k13dd;if ($k13l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1476==$kmin){ $kopt='14';$koptD=$k14dd;if ($k14l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1576==$kmin){ $kopt='15';$koptD=$k15dd;if ($k15l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1676==$kmin){ $kopt='16';$koptD=$k16dd;if ($k16l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1776==$kmin){ $kopt='17';$koptD=$k17dd;if ($k17l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1876==$kmin){ $kopt='18';$koptD=$k18dd;if ($k18l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1976==$kmin){ $kopt='19';$koptD=$k19dd;if ($k19l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2076==$kmin){ $kopt='20';$koptD=$k20dd;if ($k20l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2176==$kmin){ $kopt='21';$koptD=$k21dd;if ($k21l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2276==$kmin){ $kopt='22';$koptD=$k22dd;if ($k22l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2376==$kmin){ $kopt='23';$koptD=$k23dd;if ($k23l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2476==$kmin){ $kopt='24';$koptD=$k24dd;if ($k24l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2576==$kmin){ $kopt='25';$koptD=$k25dd;if ($k25l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2676==$kmin){ $kopt='26';$koptD=$k26dd;if ($k26l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2776==$kmin){ $kopt='27';$koptD=$k27dd;if ($k27l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2876==$kmin){ $kopt='28';$koptD=$k28dd;if ($k28l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2976==$kmin){ $kopt='29';$koptD=$k29dd;if ($k29l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk3076==$kmin){ $kopt='30';$koptD=$k30dd;if ($k30l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php
///ka
if ($dka176==$kamin){ $kaopt='1';$kaoptD=$ka1dd;}
if ($dka276==$kamin){ $kaopt='2';$kaoptD=$ka2dd;}
if ($dka376==$kamin){ $kaopt='3';$kaoptD=$ka3dd;}
if ($dka476==$kamin){ $kaopt='4';$kaoptD=$ka4dd;}
if ($dka576==$kamin){ $kaopt='5';$kaoptD=$ka5dd;}
if ($dka676==$kamin){ $kaopt='6';$kaoptD=$ka6dd;}
if ($dka776==$kamin){ $kaopt='7';$kaoptD=$ka7dd;}
if ($dka876==$kamin){ $kaopt='8';$kaoptD=$ka8dd;}
if ($dka976==$kamin){ $kaopt='9';$kaoptD=$ka9dd;}
if ($dka1076==$kamin){ $kaopt='10';$kaoptD=$ka10dd;}
if ($dka1176==$kamin){ $kaopt='11';$kaoptD=$ka11dd;}
if ($dka1276==$kamin){ $kaopt='12';$kaoptD=$ka12dd;}
if ($dka1376==$kamin){ $kaopt='13';$kaoptD=$ka13dd;}
if ($dka1476==$kamin){ $kaopt='14';$kaoptD=$ka14dd;}
if ($dka1576==$kamin){ $kaopt='15';$kaoptD=$ka15dd;}
if ($dka1676==$kamin){ $kaopt='16';$kaoptD=$ka16dd;}
if ($dka1776==$kamin){ $kaopt='17';$kaoptD=$ka17dd;}
if ($dka1876==$kamin){ $kaopt='18';$kaoptD=$ka18dd;}
if ($dka1976==$kamin){ $kaopt='19';$kaoptD=$ka19dd;}
if ($dka2076==$kamin){ $kaopt='20';$kaoptD=$ka20dd;}
if ($dka2176==$kamin){ $kaopt='21';$kaoptD=$ka21dd;}
if ($dka2276==$kamin){ $kaopt='22';$kaoptD=$ka22dd;}
if ($dka2376==$kamin){ $kaopt='23';$kaoptD=$ka23dd;}
if ($dka2476==$kamin){ $kaopt='24';$kaoptD=$ka24dd;}
if ($dka2576==$kamin){ $kaopt='25';$kaoptD=$ka25dd;}
if ($dka2676==$kamin){ $kaopt='26';$kaoptD=$ka26dd;}
if ($dka2776==$kamin){ $kaopt='27';$kaoptD=$ka27dd;}
if ($dka2876==$kamin){ $kaopt='28';$kaoptD=$ka28dd;}
if ($dka2976==$kamin){ $kaopt='29';$kaoptD=$ka29dd;}
if ($dka3076==$kamin){ $kaopt='30';$kaoptD=$ka30dd;}
////kb
if ($dkb176==$kbmin){ $kbopt='1';$kboptD=$kb1dd;}
if ($dkb276==$kbmin){ $kbopt='2';$kboptD=$kb2dd;}
if ($dkb376==$kbmin){ $kbopt='3';$kboptD=$kb3dd;}
if ($dkb476==$kbmin){ $kbopt='4';$kboptD=$kb4dd;}
if ($dkb576==$kbmin){ $kbopt='5';$kboptD=$kb5dd;}
if ($dkb676==$kbmin){ $kbopt='6';$kboptD=$kb6dd;}
if ($dkb776==$kbmin){ $kbopt='7';$kboptD=$kb7dd;}
if ($dkb876==$kbmin){ $kbopt='8';$kboptD=$kb8dd;}
if ($dkb976==$kbmin){ $kbopt='9';$kboptD=$kb9dd;}
if ($dkb1076==$kbmin){ $kbopt='10';$kboptD=$kb10dd;}
if ($dkb1176==$kbmin){ $kbopt='11';$kboptD=$kb11dd;}
if ($dkb1276==$kbmin){ $kbopt='12';$kboptD=$kb12dd;}
if ($dkb1376==$kbmin){ $kbopt='13';$kboptD=$kb13dd;}
if ($dkb1476==$kbmin){ $kbopt='14';$kboptD=$kb14dd;}
if ($dkb1576==$kbmin){ $kbopt='15';$kboptD=$kb15dd;}
if ($dkb1676==$kbmin){ $kbopt='16';$kboptD=$kb16dd;}
if ($dkb1776==$kbmin){ $kbopt='17';$kboptD=$kb17dd;}
if ($dkb1876==$kbmin){ $kbopt='18';$kboptD=$kb18dd;}
if ($dkb1976==$kbmin){ $kbopt='19';$kboptD=$kb19dd;}
if ($dkb2076==$kbmin){ $kbopt='20';$kboptD=$kb20dd;}
if ($dkb2176==$kbmin){ $kbopt='21';$kboptD=$kb21dd;}
if ($dkb2276==$kbmin){ $kbopt='22';$kboptD=$kb22dd;}
if ($dkb2376==$kbmin){ $kbopt='23';$kboptD=$kb23dd;}
if ($dkb2476==$kbmin){ $kbopt='24';$kboptD=$kb24dd;}
if ($dkb2576==$kbmin){ $kbopt='25';$kboptD=$kb25dd;}
if ($dkb2676==$kbmin){ $kbopt='26';$kboptD=$kb26dd;}
if ($dkb2776==$kbmin){ $kbopt='27';$kboptD=$kb27dd;}
if ($dkb2876==$kbmin){ $kbopt='28';$kboptD=$kb28dd;}
if ($dkb2976==$kbmin){ $kbopt='29';$kboptD=$kb29dd;}
if ($dkb3076==$kbmin){ $kbopt='30';$kboptD=$kb30dd;}
////kc
if ($dkc176==$kcmin){ $kcopt='1';$kcoptD=$kc1dd;}
if ($dkc276==$kcmin){ $kcopt='2';$kcoptD=$kc2dd;}
if ($dkc376==$kcmin){ $kcopt='3';$kcoptD=$kc3dd;}
if ($dkc476==$kcmin){ $kcopt='4';$kcoptD=$kc4dd;}
if ($dkc576==$kcmin){ $kcopt='5';$kcoptD=$kc5dd;}
if ($dkc676==$kcmin){ $kcopt='6';$kcoptD=$kc6dd;}
if ($dkc776==$kcmin){ $kcopt='7';$kcoptD=$kc7dd;}
if ($dkc876==$kcmin){ $kcopt='8';$kcoptD=$kc8dd;}
if ($dkc976==$kcmin){ $kcopt='9';$kcoptD=$kc9dd;}
if ($dkc1076==$kcmin){ $kcopt='10';$kcoptD=$kc10dd;}
if ($dkc1176==$kcmin){ $kcopt='11';$kcoptD=$kc11dd;}
if ($dkc1276==$kcmin){ $kcopt='12';$kcoptD=$kc12dd;}
if ($dkc1376==$kcmin){ $kcopt='13';$kcoptD=$kc13dd;}
if ($dkc1476==$kcmin){ $kcopt='14';$kcoptD=$kc14dd;}
if ($dkc1576==$kcmin){ $kcopt='15';$kcoptD=$kc15dd;}
if ($dkc1676==$kcmin){ $kcopt='16';$kcoptD=$kc16dd;}
if ($dkc1776==$kcmin){ $kcopt='17';$kcoptD=$kc17dd;}
if ($dkc1876==$kcmin){ $kcopt='18';$kcoptD=$kc18dd;}
if ($dkc1976==$kcmin){ $kcopt='19';$kcoptD=$kc19dd;}
if ($dkc2076==$kcmin){ $kcopt='20';$kcoptD=$kc20dd;}
if ($dkc2176==$kcmin){ $kcopt='21';$kcoptD=$kc21dd;}
if ($dkc2276==$kcmin){ $kcopt='22';$kcoptD=$kc22dd;}
if ($dkc2376==$kcmin){ $kcopt='23';$kcoptD=$kc23dd;}
if ($dkc2476==$kcmin){ $kcopt='24';$kcoptD=$kc24dd;}
if ($dkc2576==$kcmin){ $kcopt='25';$kcoptD=$kc25dd;}
if ($dkc2676==$kcmin){ $kcopt='26';$kcoptD=$kc26dd;}
if ($dkc2776==$kcmin){ $kcopt='27';$kcoptD=$kc27dd;}
if ($dkc2876==$kcmin){ $kcopt='28';$kcoptD=$kc28dd;}
if ($dkc2976==$kcmin){ $kcopt='29';$kcoptD=$kc29dd;}
if ($dkc3076==$kcmin){ $kcopt='30';$kcoptD=$kc30dd;}
//echo "<br>dek100:".$dek100."xx".$kaopt."xx".$kaoptD;
//echo "<br>Kamin:".$kamin."xx".$kaopt."xx".$kaoptD;
//echo "<br>Kbmin:".$kbmin."xx".$kbopt."xx".$kboptD;
$dc176=de76($cl,$ca,$cb,$c1l,$c1a,$c1b);
$dc276=de76($cl,$ca,$cb,$c2l,$c2a,$c2b);
$dc376=de76($cl,$ca,$cb,$c3l,$c3a,$c3b);
$dc476=de76($cl,$ca,$cb,$c4l,$c4a,$c4b);
$dc576=de76($cl,$ca,$cb,$c5l,$c5a,$c5b);
$dc676=de76($cl,$ca,$cb,$c6l,$c6a,$c6b);
$dc776=de76($cl,$ca,$cb,$c7l,$c7a,$c7b);
$dc876=de76($cl,$ca,$cb,$c8l,$c8a,$c8b);
$dc976=de76($cl,$ca,$cb,$c9l,$c9a,$c9b);
$dc1076=de76($cl,$ca,$cb,$c10l,$c10a,$c10b);
$dc1176=de76($cl,$ca,$cb,$c11l,$c11a,$c11b);
$dc1276=de76($cl,$ca,$cb,$c12l,$c12a,$c12b);
$dc1376=de76($cl,$ca,$cb,$c13l,$c13a,$c13b);
$dc1476=de76($cl,$ca,$cb,$c14l,$c14a,$c14b);
$dc1576=de76($cl,$ca,$cb,$c15l,$c15a,$c15b);
$dc1676=de76($cl,$ca,$cb,$c16l,$c16a,$c16b);
$dc1776=de76($cl,$ca,$cb,$c17l,$c17a,$c17b);
$dc1876=de76($cl,$ca,$cb,$c18l,$c18a,$c18b);
$dc1976=de76($cl,$ca,$cb,$c19l,$c19a,$c19b);
$dc2076=de76($cl,$ca,$cb,$c20l,$c20a,$c20b);
$dc2176=de76($cl,$ca,$cb,$c21l,$c21a,$c21b);
$dc2276=de76($cl,$ca,$cb,$c22l,$c22a,$c22b);
$dc2376=de76($cl,$ca,$cb,$c23l,$c23a,$c23b);
$dc2476=de76($cl,$ca,$cb,$c24l,$c24a,$c24b);
$dc2576=de76($cl,$ca,$cb,$c25l,$c25a,$c25b);
$dc2676=de76($cl,$ca,$cb,$c26l,$c26a,$c26b);
$dc2776=de76($cl,$ca,$cb,$c27l,$c27a,$c27b);
$dc2876=de76($cl,$ca,$cb,$c28l,$c28a,$c28b);
$dc2976=de76($cl,$ca,$cb,$c29l,$c29a,$c29b);
$dc3076=de76($cl,$ca,$cb,$c30l,$c30a,$c30b);
$cmin=min($dc176,$dc276,$dc376,$dc476,$dc576,$dc676,$dc776,$dc876,$dc976,$dc1076,$dc1176,$dc1276,$dc1376,$dc1476,$dc1576,$dc1676,$dc1776,$dc1876,$dc1976,$dc2076,$dc2176,$dc2276,$dc2376,$dc2476,$dc2576,$dc2676,$dc2776,$dc2876,$dc2976,$dc3076);
////ca
$dca176=de76($cl,$ca,$cb,$ca1l,$ca1a,$ca1b);
$dca276=de76($cl,$ca,$cb,$ca2l,$ca2a,$ca2b);
$dca376=de76($cl,$ca,$cb,$ca3l,$ca3a,$ca3b);
$dca476=de76($cl,$ca,$cb,$ca4l,$ca4a,$ca4b);
$dca576=de76($cl,$ca,$cb,$ca5l,$ca5a,$ca5b);
$dca676=de76($cl,$ca,$cb,$ca6l,$ca6a,$ca6b);
$dca776=de76($cl,$ca,$cb,$ca7l,$ca7a,$ca7b);
$dca876=de76($cl,$ca,$cb,$ca8l,$ca8a,$ca8b);
$dca976=de76($cl,$ca,$cb,$ca9l,$ca9a,$ca9b);
$dca1076=de76($cl,$ca,$cb,$ca10l,$ca10a,$ca10b);
$dca1176=de76($cl,$ca,$cb,$ca11l,$ca11a,$ca11b);
$dca1276=de76($cl,$ca,$cb,$ca12l,$ca12a,$ca12b);
$dca1376=de76($cl,$ca,$cb,$ca13l,$ca13a,$ca13b);
$dca1476=de76($cl,$ca,$cb,$ca14l,$ca14a,$ca14b);
$dca1576=de76($cl,$ca,$cb,$ca15l,$ca15a,$ca15b);
$dca1676=de76($cl,$ca,$cb,$ca16l,$ca16a,$ca16b);
$dca1776=de76($cl,$ca,$cb,$ca17l,$ca17a,$ca17b);
$dca1876=de76($cl,$ca,$cb,$ca18l,$ca18a,$ca18b);
$dca1976=de76($cl,$ca,$cb,$ca19l,$ca19a,$ca19b);
$dca2076=de76($cl,$ca,$cb,$ca20l,$ca20a,$ca20b);
$dca2176=de76($cl,$ca,$cb,$ca21l,$ca21a,$ca21b);
$dca2276=de76($cl,$ca,$cb,$ca22l,$ca22a,$ca22b);
$dca2376=de76($cl,$ca,$cb,$ca23l,$ca23a,$ca23b);
$dca2476=de76($cl,$ca,$cb,$ca24l,$ca24a,$ca24b);
$dca2576=de76($cl,$ca,$cb,$ca25l,$ca25a,$ca25b);
$dca2676=de76($cl,$ca,$cb,$ca26l,$ca26a,$ca26b);
$dca2776=de76($cl,$ca,$cb,$ca27l,$ca27a,$ca27b);
$dca2876=de76($cl,$ca,$cb,$ca28l,$ca28a,$ca28b);
$dca2976=de76($cl,$ca,$cb,$ca29l,$ca29a,$ca29b);
$dca3076=de76($cl,$ca,$cb,$ca30l,$ca30a,$ca30b);
$camin=min($dca176,$dca276,$dca376,$dca476,$dca576,$dca676,$dca776,$dca876,$dca976,$dca1076,$dca1176,$dca1276,$dca1376,$dca1476,$dca1576,$dca1676,$dca1776,$dca1876,$dca1976,$dca2076,$dca2176,$dca2276,$dca2376,$dca2476,$dca2576,$dca2676,$dca2776,$dca2876,$dca2976,$dca3076);
////cb
$dcb176=de76($cl,$ca,$cb,$cb1l,$cb1a,$cb1b);
$dcb276=de76($cl,$ca,$cb,$cb2l,$cb2a,$cb2b);
$dcb376=de76($cl,$ca,$cb,$cb3l,$cb3a,$cb3b);
$dcb476=de76($cl,$ca,$cb,$cb4l,$cb4a,$cb4b);
$dcb576=de76($cl,$ca,$cb,$cb5l,$cb5a,$cb5b);
$dcb676=de76($cl,$ca,$cb,$cb6l,$cb6a,$cb6b);
$dcb776=de76($cl,$ca,$cb,$cb7l,$cb7a,$cb7b);
$dcb876=de76($cl,$ca,$cb,$cb8l,$cb8a,$cb8b);
$dcb976=de76($cl,$ca,$cb,$cb9l,$cb9a,$cb9b);
$dcb1076=de76($cl,$ca,$cb,$cb10l,$cb10a,$cb10b);
$dcb1176=de76($cl,$ca,$cb,$cb11l,$cb11a,$cb11b);
$dcb1276=de76($cl,$ca,$cb,$cb12l,$cb12a,$cb12b);
$dcb1376=de76($cl,$ca,$cb,$cb13l,$cb13a,$cb13b);
$dcb1476=de76($cl,$ca,$cb,$cb14l,$cb14a,$cb14b);
$dcb1576=de76($cl,$ca,$cb,$cb15l,$cb15a,$cb15b);
$dcb1676=de76($cl,$ca,$cb,$cb16l,$cb16a,$cb16b);
$dcb1776=de76($cl,$ca,$cb,$cb17l,$cb17a,$cb17b);
$dcb1876=de76($cl,$ca,$cb,$cb18l,$cb18a,$cb18b);
$dcb1976=de76($cl,$ca,$cb,$cb19l,$cb19a,$cb19b);
$dcb2076=de76($cl,$ca,$cb,$cb20l,$cb20a,$cb20b);
$dcb2176=de76($cl,$ca,$cb,$cb21l,$cb21a,$cb21b);
$dcb2276=de76($cl,$ca,$cb,$cb22l,$cb22a,$cb22b);
$dcb2376=de76($cl,$ca,$cb,$cb23l,$cb23a,$cb23b);
$dcb2476=de76($cl,$ca,$cb,$cb24l,$cb24a,$cb24b);
$dcb2576=de76($cl,$ca,$cb,$cb25l,$cb25a,$cb25b);
$dcb2676=de76($cl,$ca,$cb,$cb26l,$cb26a,$cb26b);
$dcb2776=de76($cl,$ca,$cb,$cb27l,$cb27a,$cb27b);
$dcb2876=de76($cl,$ca,$cb,$cb28l,$cb28a,$cb28b);
$dcb2976=de76($cl,$ca,$cb,$cb29l,$cb29a,$cb29b);
$dcb3076=de76($cl,$ca,$cb,$cb30l,$cb30a,$cb30b);
$cbmin=min($dcb176,$dcb276,$dcb376,$dcb476,$dcb576,$dcb676,$dcb776,$dcb876,$dcb976,$dcb1076,$dcb1176,$dcb1276,$dcb1376,$dcb1476,$dcb1576,$dcb1676,$dcb1776,$dcb1876,$dcb1976,$dcb2076,$dcb2176,$dcb2276,$dcb2376,$dcb2476,$dcb2576,$dcb2676,$dcb2776,$dcb2876,$dcb2976,$dcb3076);
////cc
$dcc176=de76($cl,$ca,$cb,$cc1l,$cc1a,$cc1b);
$dcc276=de76($cl,$ca,$cb,$cc2l,$cc2a,$cc2b);
$dcc376=de76($cl,$ca,$cb,$cc3l,$cc3a,$cc3b);
$dcc476=de76($cl,$ca,$cb,$cc4l,$cc4a,$cc4b);
$dcc576=de76($cl,$ca,$cb,$cc5l,$cc5a,$cc5b);
$dcc676=de76($cl,$ca,$cb,$cc6l,$cc6a,$cc6b);
$dcc776=de76($cl,$ca,$cb,$cc7l,$cc7a,$cc7b);
$dcc876=de76($cl,$ca,$cb,$cc8l,$cc8a,$cc8b);
$dcc976=de76($cl,$ca,$cb,$cc9l,$cc9a,$cc9b);
$dcc1076=de76($cl,$ca,$cb,$cc10l,$cc10a,$cc10b);
$dcc1176=de76($cl,$ca,$cb,$cc11l,$cc11a,$cc11b);
$dcc1276=de76($cl,$ca,$cb,$cc12l,$cc12a,$cc12b);
$dcc1376=de76($cl,$ca,$cb,$cc13l,$cc13a,$cc13b);
$dcc1476=de76($cl,$ca,$cb,$cc14l,$cc14a,$cc14b);
$dcc1576=de76($cl,$ca,$cb,$cc15l,$cc15a,$cc15b);
$dcc1676=de76($cl,$ca,$cb,$cc16l,$cc16a,$cc16b);
$dcc1776=de76($cl,$ca,$cb,$cc17l,$cc17a,$cc17b);
$dcc1876=de76($cl,$ca,$cb,$cc18l,$cc18a,$cc18b);
$dcc1976=de76($cl,$ca,$cb,$cc19l,$cc19a,$cc19b);
$dcc2076=de76($cl,$ca,$cb,$cc20l,$cc20a,$cc20b);
$dcc2176=de76($cl,$ca,$cb,$cc21l,$cc21a,$cc21b);
$dcc2276=de76($cl,$ca,$cb,$cc22l,$cc22a,$cc22b);
$dcc2376=de76($cl,$ca,$cb,$cc23l,$cc23a,$cc23b);
$dcc2476=de76($cl,$ca,$cb,$cc24l,$cc24a,$cc24b);
$dcc2576=de76($cl,$ca,$cb,$cc25l,$cc25a,$cc25b);
$dcc2676=de76($cl,$ca,$cb,$cc26l,$cc26a,$cc26b);
$dcc2776=de76($cl,$ca,$cb,$cc27l,$cc27a,$cc27b);
$dcc2876=de76($cl,$ca,$cb,$cc28l,$cc28a,$cc28b);
$dcc2976=de76($cl,$ca,$cb,$cc29l,$cc29a,$cc29b);
$dcc3076=de76($cl,$ca,$cb,$cc30l,$cc30a,$cc30b);
$ccmin=min($dcc176,$dcc276,$dcc376,$dcc476,$dcc576,$dcc676,$dcc776,$dcc876,$dcc976,$dcc1076,$dcc1176,$dcc1276,$dcc1376,$dcc1476,$dcc1576,$dcc1676,$dcc1776,$dcc1876,$dcc1976,$dcc2076,$dcc2176,$dcc2276,$dcc2376,$dcc2476,$dcc2576,$dcc2676,$dcc2776,$dcc2876,$dcc2976,$dcc3076);
?>
<?php if ($dc176==$cmin){ $copt='1';$coptD=$c1dd;if ($c1b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc276==$cmin){ $copt='2';$coptD=$c2dd;if ($c2b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc376==$cmin){ $copt='3';$coptD=$c3dd;if ($c3b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc476==$cmin){ $copt='4';$coptD=$c4dd;if ($c4b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc576==$cmin){ $copt='5';$coptD=$c5dd;if ($c5b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc676==$cmin){ $copt='6';$coptD=$c6dd;if ($c6b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc776==$cmin){ $copt='7';$coptD=$c7dd;if ($c7b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc876==$cmin){ $copt='8';$coptD=$c8dd; if ($c8b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc976==$cmin){ $copt='9';$coptD=$c9dd;if ($c9b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1076==$cmin){ $copt='10';$coptD=$c10dd;if ($c10b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1176==$cmin){ $copt='11';$coptD=$c11dd;if ($c11b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1276==$cmin){ $copt='12';$coptD=$c12dd;if ($c12b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1376==$cmin){ $copt='13';$coptD=$c13dd;if ($c13b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1476==$cmin){ $copt='14';$coptD=$c14dd;if ($c14b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1576==$cmin){ $copt='15';$coptD=$c15dd;if ($c15b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1676==$cmin){ $copt='16';$coptD=$c16dd;if ($c16b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1776==$cmin){ $copt='17';$coptD=$c17dd;if ($c17b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1876==$cmin){ $copt='18';$coptD=$c18dd;if ($c18b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1976==$cmin){ $copt='19';$coptD=$c19dd;if ($c19b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2076==$cmin){ $copt='20';$coptD=$c20dd;if ($c20b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2176==$cmin){ $copt='21';$coptD=$c21dd;if ($c21b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2276==$cmin){ $copt='22';$coptD=$c22dd;if ($c22b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2376==$cmin){ $copt='23';$coptD=$c23dd;if ($c23b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2476==$cmin){ $copt='24';$coptD=$c24dd;if ($c24b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2576==$cmin){ $copt='25';$coptD=$c25dd;if ($c25b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2676==$cmin){ $copt='26';$coptD=$c26dd;if ($c26b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2776==$cmin){ $copt='27';$coptD=$c27dd;if ($c27b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2876==$cmin){ $copt='28';$coptD=$c28dd;if ($c28b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2976==$cmin){ $copt='29';$coptD=$c29dd;if ($c29b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc3076==$cmin){ $copt='30';$coptD=$c30dd;if ($c30b<-50) {$cdi="-";} else {$cdi='+';}}
///ca
if ($dca176==$camin){ $caopt='1';$caoptD=$ca1dd;}
if ($dca276==$camin){ $caopt='2';$caoptD=$ca2dd;}
if ($dca376==$camin){ $caopt='3';$caoptD=$ca3dd;}
if ($dca476==$camin){ $caopt='4';$caoptD=$ca4dd;}
if ($dca576==$camin){ $caopt='5';$caoptD=$ca5dd;}
if ($dca676==$camin){ $caopt='6';$caoptD=$ca6dd;}
if ($dca776==$camin){ $caopt='7';$caoptD=$ca7dd;}
if ($dca876==$camin){ $caopt='8';$caoptD=$ca8dd;}
if ($dca976==$camin){ $caopt='9';$caoptD=$ca9dd;}
if ($dca1076==$camin){ $caopt='10';$caoptD=$ca10dd;}
if ($dca1176==$camin){ $caopt='11';$caoptD=$ca11dd;}
if ($dca1276==$camin){ $caopt='12';$caoptD=$ca12dd;}
if ($dca1376==$camin){ $caopt='13';$caoptD=$ca13dd;}
if ($dca1476==$camin){ $caopt='14';$caoptD=$ca14dd;}
if ($dca1576==$camin){ $caopt='15';$caoptD=$ca15dd;}
if ($dca1676==$camin){ $caopt='16';$caoptD=$ca16dd;}
if ($dca1776==$camin){ $caopt='17';$caoptD=$ca17dd;}
if ($dca1876==$camin){ $caopt='18';$caoptD=$ca18dd;}
if ($dca1976==$camin){ $caopt='19';$caoptD=$ca19dd;}
if ($dca2076==$camin){ $caopt='20';$caoptD=$ca20dd;}
if ($dca2176==$camin){ $caopt='21';$caoptD=$ca21dd;}
if ($dca2276==$camin){ $caopt='22';$caoptD=$ca22dd;}
if ($dca2376==$camin){ $caopt='23';$caoptD=$ca23dd;}
if ($dca2476==$camin){ $caopt='24';$caoptD=$ca24dd;}
if ($dca2576==$camin){ $caopt='25';$caoptD=$ca25dd;}
if ($dca2676==$camin){ $caopt='26';$caoptD=$ca26dd;}
if ($dca2776==$camin){ $caopt='27';$caoptD=$ca27dd;}
if ($dca2876==$camin){ $caopt='28';$caoptD=$ca28dd;}
if ($dca2976==$camin){ $caopt='29';$caoptD=$ca29dd;}
if ($dca3076==$camin){ $caopt='30';$caoptD=$ka30dd;}
////cb
if ($dcb176==$cbmin){ $cbopt='1';$cboptD=$cb1dd;}
if ($dcb276==$cbmin){ $cbopt='2';$cboptD=$cb2dd;}
if ($dcb376==$cbmin){ $cbopt='3';$cboptD=$cb3dd;}
if ($dcb476==$cbmin){ $cbopt='4';$cboptD=$cb4dd;}
if ($dcb576==$cbmin){ $cbopt='5';$cboptD=$cb5dd;}
if ($dcb676==$cbmin){ $cbopt='6';$cboptD=$cb6dd;}
if ($dcb776==$cbmin){ $cbopt='7';$cboptD=$cb7dd;}
if ($dcb876==$cbmin){ $cbopt='8';$cboptD=$cb8dd;}
if ($dcb976==$cbmin){ $cbopt='9';$cboptD=$cb9dd;}
if ($dcb1076==$cbmin){ $cbopt='10';$cboptD=$cb10dd;}
if ($dcb1176==$cbmin){ $cbopt='11';$cboptD=$cb11dd;}
if ($dcb1276==$cbmin){ $cbopt='12';$cboptD=$cb12dd;}
if ($dcb1376==$cbmin){ $cbopt='13';$cboptD=$cb13dd;}
if ($dcb1476==$cbmin){ $cbopt='14';$cboptD=$cb14dd;}
if ($dcb1576==$cbmin){ $cbopt='15';$cboptD=$cb15dd;}
if ($dcb1676==$cbmin){ $cbopt='16';$cboptD=$cb16dd;}
if ($dcb1776==$cbmin){ $cbopt='17';$cboptD=$cb17dd;}
if ($dcb1876==$cbmin){ $cbopt='18';$cboptD=$cb18dd;}
if ($dcb1976==$cbmin){ $cbopt='19';$cboptD=$cb19dd;}
if ($dcb2076==$cbmin){ $cbopt='20';$cboptD=$cb20dd;}
if ($dcb2176==$cbmin){ $cbopt='21';$cboptD=$cb21dd;}
if ($dcb2276==$cbmin){ $cbopt='22';$cboptD=$cb22dd;}
if ($dcb2376==$cbmin){ $cbopt='23';$cboptD=$cb23dd;}
if ($dcb2476==$cbmin){ $cbopt='24';$cboptD=$cb24dd;}
if ($dcb2576==$cbmin){ $cbopt='25';$cboptD=$cb25dd;}
if ($dcb2676==$cbmin){ $cbopt='26';$cboptD=$cb26dd;}
if ($dcb2776==$cbmin){ $cbopt='27';$cboptD=$cb27dd;}
if ($dcb2876==$cbmin){ $cbopt='28';$cboptD=$cb28dd;}
if ($dcb2976==$cbmin){ $cbopt='29';$cboptD=$cb29dd;}
if ($dcb3076==$cbmin){ $cbopt='30';$cboptD=$cb30dd;}
////cc
if ($dcc176==$ccmin){ $ccopt='1';$ccoptD=$cc1dd;}
if ($dcc276==$ccmin){ $ccopt='2';$ccoptD=$cc2dd;}
if ($dcc376==$ccmin){ $ccopt='3';$ccoptD=$cc3dd;}
if ($dcc476==$ccmin){ $ccopt='4';$ccoptD=$cc4dd;}
if ($dcc576==$ccmin){ $ccopt='5';$ccoptD=$cc5dd;}
if ($dcc676==$ccmin){ $ccopt='6';$ccoptD=$cc6dd;}
if ($dcc776==$ccmin){ $ccopt='7';$ccoptD=$cc7dd;}
if ($dcc876==$ccmin){ $ccopt='8';$ccoptD=$cc8dd;}
if ($dcc976==$ccmin){ $ccopt='9';$ccoptD=$cc9dd;}
if ($dcc1076==$ccmin){ $ccopt='10';$ccoptD=$cc10dd;}
if ($dcc1176==$ccmin){ $ccopt='11';$ccoptD=$cc11dd;}
if ($dcc1276==$ccmin){ $ccopt='12';$ccoptD=$cc12dd;}
if ($dcc1376==$ccmin){ $ccopt='13';$ccoptD=$cc13dd;}
if ($dcc1476==$ccmin){ $ccopt='14';$ccoptD=$cc14dd;}
if ($dcc1576==$ccmin){ $ccopt='15';$ccoptD=$cc15dd;}
if ($dcc1676==$ccmin){ $ccopt='16';$ccoptD=$cc16dd;}
if ($dcc1776==$ccmin){ $ccopt='17';$ccoptD=$cc17dd;}
if ($dcc1876==$ccmin){ $ccopt='18';$ccoptD=$cc18dd;}
if ($dcc1976==$ccmin){ $ccopt='19';$ccoptD=$cc19dd;}
if ($dcc2076==$ccmin){ $ccopt='20';$ccoptD=$cc20dd;}
if ($dcc2176==$ccmin){ $ccopt='21';$ccoptD=$cc21dd;}
if ($dcc2276==$ccmin){ $ccopt='22';$ccoptD=$cc22dd;}
if ($dcc2376==$ccmin){ $ccopt='23';$ccoptD=$cc23dd;}
if ($dcc2476==$ccmin){ $ccopt='24';$ccoptD=$cc24dd;}
if ($dcc2576==$ccmin){ $ccopt='25';$ccoptD=$cc25dd;}
if ($dcc2676==$ccmin){ $ccopt='26';$ccoptD=$cc26dd;}
if ($dcc2776==$ccmin){ $ccopt='27';$ccoptD=$cc27dd;}
if ($dcc2876==$ccmin){ $ccopt='28';$ccoptD=$cc28dd;}
if ($dcc2976==$ccmin){ $ccopt='29';$ccoptD=$cc29dd;}
if ($dcc3076==$ccmin){ $ccopt='30';$ccoptD=$cc30dd;}
$dm176=de76($ml,$ma,$mb,$m1l,$m1a,$m1b);
$dm276=de76($ml,$ma,$mb,$m2l,$m2a,$m2b);
$dm376=de76($ml,$ma,$mb,$m3l,$m3a,$m3b);
$dm476=de76($ml,$ma,$mb,$m4l,$m4a,$m4b);
$dm576=de76($ml,$ma,$mb,$m5l,$m5a,$m5b);
$dm676=de76($ml,$ma,$mb,$m6l,$m6a,$m6b);
$dm776=de76($ml,$ma,$mb,$m7l,$m7a,$m7b);
$dm876=de76($ml,$ma,$mb,$m8l,$m8a,$m8b);
$dm976=de76($ml,$ma,$mb,$m9l,$m9a,$m9b);
$dm1076=de76($ml,$ma,$mb,$m10l,$m10a,$m10b);
$dm1176=de76($ml,$ma,$mb,$m11l,$m11a,$m11b);
$dm1276=de76($ml,$ma,$mb,$m12l,$m12a,$m12b);
$dm1376=de76($ml,$ma,$mb,$m13l,$m13a,$m13b);
$dm1476=de76($ml,$ma,$mb,$m14l,$m14a,$m14b);
$dm1576=de76($ml,$ma,$mb,$m15l,$m15a,$m15b);
$dm1676=de76($ml,$ma,$mb,$m16l,$m16a,$m16b);
$dm1776=de76($ml,$ma,$mb,$m17l,$m17a,$m17b);
$dm1876=de76($ml,$ma,$mb,$m18l,$m18a,$m18b);
$dm1976=de76($ml,$ma,$mb,$m19l,$m19a,$m19b);
$dm2076=de76($ml,$ma,$mb,$m20l,$m20a,$m20b);
$dm2176=de76($ml,$ma,$mb,$m21l,$m21a,$m21b);
$dm2276=de76($ml,$ma,$mb,$m22l,$m22a,$m22b);
$dm2376=de76($ml,$ma,$mb,$m23l,$m23a,$m23b);
$dm2476=de76($ml,$ma,$mb,$m24l,$m24a,$m24b);
$dm2576=de76($ml,$ma,$mb,$m25l,$m25a,$m25b);
$dm2676=de76($ml,$ma,$mb,$m26l,$m26a,$m26b);
$dm2776=de76($ml,$ma,$mb,$m27l,$m27a,$m27b);
$dm2876=de76($ml,$ma,$mb,$m28l,$m28a,$m28b);
$dm2976=de76($ml,$ma,$mb,$m29l,$m29a,$m29b);
$dm3076=de76($ml,$ma,$mb,$m30l,$m30a,$m30b);
$mmin=min($dm176,$dm276,$dm376,$dm476,$dm576,$dm676,$dm776,$dm876,$dm976,$dm1076,$dm1176,$dm1276,$dm1376,$dm1476,$dm1576,$dm1676,$dm1776,$dm1876,$dm1976,$dm2076,$dm2176,$dm2276,$dm2376,$dm2476,$dm2576,$dm2676,$dm2776,$dm2876,$dm2976,$dm3076);
////m1
$dma176=de76($ml,$ma,$mb,$ma1l,$ma1a,$ma1b);
$dma276=de76($ml,$ma,$mb,$ma2l,$ma2a,$ma2b);
$dma376=de76($ml,$ma,$mb,$ma3l,$ma3a,$ma3b);
$dma476=de76($ml,$ma,$mb,$ma4l,$ma4a,$ma4b);
$dma576=de76($ml,$ma,$mb,$ma5l,$ma5a,$ma5b);
$dma676=de76($ml,$ma,$mb,$ma6l,$ma6a,$ma6b);
$dma776=de76($ml,$ma,$mb,$ma7l,$ma7a,$ma7b);
$dma876=de76($ml,$ma,$mb,$ma8l,$ma8a,$ma8b);
$dma976=de76($ml,$ma,$mb,$ma9l,$ma9a,$ma9b);
$dma1076=de76($ml,$ma,$mb,$ma10l,$ma10a,$ma10b);
$dma1176=de76($ml,$ma,$mb,$ma11l,$ma11a,$ma11b);
$dma1276=de76($ml,$ma,$mb,$ma12l,$ma12a,$ma12b);
$dma1376=de76($ml,$ma,$mb,$ma13l,$ma13a,$ma13b);
$dma1476=de76($ml,$ma,$mb,$ma14l,$ma14a,$ma14b);
$dma1576=de76($ml,$ma,$mb,$ma15l,$ma15a,$ma15b);
$dma1676=de76($ml,$ma,$mb,$ma16l,$ma16a,$ma16b);
$dma1776=de76($ml,$ma,$mb,$ma17l,$ma17a,$ma17b);
$dma1876=de76($ml,$ma,$mb,$ma18l,$ma18a,$ma18b);
$dma1976=de76($ml,$ma,$mb,$ma19l,$ma19a,$ma19b);
$dma2076=de76($ml,$ma,$mb,$ma20l,$ma20a,$ma20b);
$dma2176=de76($ml,$ma,$mb,$ma21l,$ma21a,$ma21b);
$dma2276=de76($ml,$ma,$mb,$ma22l,$ma22a,$ma22b);
$dma2376=de76($ml,$ma,$mb,$ma23l,$ma23a,$ma23b);
$dma2476=de76($ml,$ma,$mb,$ma24l,$ma24a,$ma24b);
$dma2576=de76($ml,$ma,$mb,$ma25l,$ma25a,$ma25b);
$dma2676=de76($ml,$ma,$mb,$ma26l,$ma26a,$ma26b);
$dma2776=de76($ml,$ma,$mb,$ma27l,$ma27a,$ma27b);
$dma2876=de76($ml,$ma,$mb,$ma28l,$ma28a,$ma28b);
$dma2976=de76($ml,$ma,$mb,$ma29l,$ma29a,$ma29b);
$dma3076=de76($ml,$ma,$mb,$ma30l,$ma30a,$ma30b);
$mamin=min($dma176,$dma276,$dma376,$dma476,$dma576,$dma676,$dma776,$dma876,$dma976,$dma1076,$dma1176,$dma1276,$dma1376,$dma1476,$dma1576,$dma1676,$dma1776,$dma1876,$dma1976,$dma2076,$dma2176,$dma2276,$dma2376,$dma2476,$dma2576,$dma2676,$dma2776,$dma2876,$dma2976,$dma3076);
///mb
$dmb176=de76($ml,$ma,$mb,$mb1l,$mb1a,$mb1b);
$dmb276=de76($ml,$ma,$mb,$mb2l,$mb2a,$mb2b);
$dmb376=de76($ml,$ma,$mb,$mb3l,$mb3a,$mb3b);
$dmb476=de76($ml,$ma,$mb,$mb4l,$mb4a,$mb4b);
$dmb576=de76($ml,$ma,$mb,$mb5l,$mb5a,$mb5b);
$dmb676=de76($ml,$ma,$mb,$mb6l,$mb6a,$mb6b);
$dmb776=de76($ml,$ma,$mb,$mb7l,$mb7a,$mb7b);
$dmb876=de76($ml,$ma,$mb,$mb8l,$mb8a,$mb8b);
$dmb976=de76($ml,$ma,$mb,$mb9l,$mb9a,$mb9b);
$dmb1076=de76($ml,$ma,$mb,$mb10l,$mb10a,$mb10b);
$dmb1176=de76($ml,$ma,$mb,$mb11l,$mb11a,$mb11b);
$dmb1276=de76($ml,$ma,$mb,$mb12l,$mb12a,$mb12b);
$dmb1376=de76($ml,$ma,$mb,$mb13l,$mb13a,$mb13b);
$dmb1476=de76($ml,$ma,$mb,$mb14l,$mb14a,$mb14b);
$dmb1576=de76($ml,$ma,$mb,$mb15l,$mb15a,$mb15b);
$dmb1676=de76($ml,$ma,$mb,$mb16l,$mb16a,$mb16b);
$dmb1776=de76($ml,$ma,$mb,$mb17l,$mb17a,$mb17b);
$dmb1876=de76($ml,$ma,$mb,$mb18l,$mb18a,$mb18b);
$dmb1976=de76($ml,$ma,$mb,$mb19l,$mb19a,$mb19b);
$dmb2076=de76($ml,$ma,$mb,$mb20l,$mb20a,$mb20b);
$dmb2176=de76($ml,$ma,$mb,$mb21l,$mb21a,$mb21b);
$dmb2276=de76($ml,$ma,$mb,$mb22l,$mb22a,$mb22b);
$dmb2376=de76($ml,$ma,$mb,$mb23l,$mb23a,$mb23b);
$dmb2476=de76($ml,$ma,$mb,$mb24l,$mb24a,$mb24b);
$dmb2576=de76($ml,$ma,$mb,$mb25l,$mb25a,$mb25b);
$dmb2676=de76($ml,$ma,$mb,$mb26l,$mb26a,$mb26b);
$dmb2776=de76($ml,$ma,$mb,$mb27l,$mb27a,$mb27b);
$dmb2876=de76($ml,$ma,$mb,$mb28l,$mb28a,$mb28b);
$dmb2976=de76($ml,$ma,$mb,$mb29l,$mb29a,$mb29b);
$dmb3076=de76($ml,$ma,$mb,$mb30l,$mb30a,$mb30b);
$mbmin=min($dmb176,$dmb276,$dmb376,$dmb476,$dmb576,$dmb676,$dmb776,$dmb876,$dmb976,$dmb1076,$dmb1176,$dmb1276,$dmb1376,$dmb1476,$dmb1576,$dmb1676,$dmb1776,$dmb1876,$dmb1976,$dmb2076,$dmb2176,$dmb2276,$dmb2376,$dmb2476,$dmb2576,$dmb2676,$dmb2776,$dmb2876,$dmb2976,$dmb3076);
///mc
$dmc176=de76($ml,$ma,$mb,$mc1l,$mc1a,$mc1b);
$dmc276=de76($ml,$ma,$mb,$mc2l,$mc2a,$mc2b);
$dmc376=de76($ml,$ma,$mb,$mc3l,$mc3a,$mc3b);
$dmc476=de76($ml,$ma,$mb,$mc4l,$mc4a,$mc4b);
$dmc576=de76($ml,$ma,$mb,$mc5l,$mc5a,$mc5b);
$dmc676=de76($ml,$ma,$mb,$mc6l,$mc6a,$mc6b);
$dmc776=de76($ml,$ma,$mb,$mc7l,$mc7a,$mc7b);
$dmc876=de76($ml,$ma,$mb,$mc8l,$mc8a,$mc8b);
$dmc976=de76($ml,$ma,$mb,$mc9l,$mc9a,$mc9b);
$dmc1076=de76($ml,$ma,$mb,$mc10l,$mc10a,$mc10b);
$dmc1176=de76($ml,$ma,$mb,$mc11l,$mc11a,$mc11b);
$dmc1276=de76($ml,$ma,$mb,$mc12l,$mc12a,$mc12b);
$dmc1376=de76($ml,$ma,$mb,$mc13l,$mc13a,$mc13b);
$dmc1476=de76($ml,$ma,$mb,$mc14l,$mc14a,$mc14b);
$dmc1576=de76($ml,$ma,$mb,$mc15l,$mc15a,$mc15b);
$dmc1676=de76($ml,$ma,$mb,$mc16l,$mc16a,$mc16b);
$dmc1776=de76($ml,$ma,$mb,$mc17l,$mc17a,$mc17b);
$dmc1876=de76($ml,$ma,$mb,$mc18l,$mc18a,$mc18b);
$dmc1976=de76($ml,$ma,$mb,$mc19l,$mc19a,$mc19b);
$dmc2076=de76($ml,$ma,$mb,$mc20l,$mc20a,$mc20b);
$dmc2176=de76($ml,$ma,$mb,$mc21l,$mc21a,$mc21b);
$dmc2276=de76($ml,$ma,$mb,$mc22l,$mc22a,$mc22b);
$dmc2376=de76($ml,$ma,$mb,$mc23l,$mc23a,$mc23b);
$dmc2476=de76($ml,$ma,$mb,$mc24l,$mc24a,$mc24b);
$dmc2576=de76($ml,$ma,$mb,$mc25l,$mc25a,$mc25b);
$dmc2676=de76($ml,$ma,$mb,$mc26l,$mc26a,$mc26b);
$dmc2776=de76($ml,$ma,$mb,$mc27l,$mc27a,$mc27b);
$dmc2876=de76($ml,$ma,$mb,$mc28l,$mc28a,$mc28b);
$dmc2976=de76($ml,$ma,$mb,$mc29l,$mc29a,$mc29b);
$dmc3076=de76($ml,$ma,$mb,$mc30l,$mc30a,$mc30b);
$mcmin=min($dmc176,$dmc276,$dmc376,$dmc476,$dmc576,$dmc676,$dmc776,$dmc876,$dmc976,$dmc1076,$dmc1176,$dmc1276,$dmc1376,$dmc1476,$dmc1576,$dmc1676,$dmc1776,$dmc1876,$dmc1976,$dmc2076,$dmc2176,$dmc2276,$dmc2376,$dmc2476,$dmc2576,$dmc2676,$dmc2776,$dmc2876,$dmc2976,$dmc3076);
//$dm194=de94($ml,$ma,$mb,$m1l,$m1a,$m1b);
?>
<?php if ($dm176==$mmin){ $mopt='1';$moptD=$m1dd;if ($m1a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm276==$mmin){ $mopt='2';$moptD=$m2dd;if ($m2a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm376==$mmin){ $mopt='3';$moptD=$m3dd;if ($m3a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm476==$mmin){ $mopt='4';$moptD=$m4dd;if ($m4a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm576==$mmin){ $mopt='5';$moptD=$m5dd;if ($m5a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm676==$mmin){ $mopt='6';$moptD=$m6dd;if ($m6a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm776==$mmin){ $mopt='7';$moptD=$m7dd;if ($m7a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm876==$mmin){ $mopt='8';$moptD=$m8dd; if ($m8a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm976==$mmin){ $mopt='9';$moptD=$m9dd;if ($m9a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1076==$mmin){ $mopt='10';$moptD=$m10dd;if ($m10a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1176==$mmin){ $mopt='11';$moptD=$m11dd;if ($m11a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1276==$mmin){ $mopt='12';$moptD=$m12dd;if ($m12a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1376==$mmin){ $mopt='13';$moptD=$m13dd;if ($m13a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1476==$mmin){ $mopt='14';$moptD=$m14dd;if ($m14a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1576==$mmin){ $mopt='15';$moptD=$m15dd;if ($m15a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1676==$mmin){ $mopt='16';$moptD=$m16dd;if ($m16a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1776==$mmin){ $mopt='17';$moptD=$m17dd;if ($m17a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1876==$mmin){ $mopt='18';$moptD=$m18dd;if ($m18a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1976==$mmin){ $mopt='19';$moptD=$m19dd;if ($m19a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2076==$mmin){ $mopt='20';$moptD=$m20dd;if ($m20a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2176==$mmin){ $mopt='21';$moptD=$m21dd;if ($m21a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2276==$mmin){ $mopt='22';$moptD=$m22dd;if ($m22a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2376==$mmin){ $mopt='23';$moptD=$m23dd;if ($m23a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2476==$mmin){ $mopt='24';$moptD=$m24dd;if ($m24a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2576==$mmin){ $mopt='25';$moptD=$m25dd;if ($m25a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2676==$mmin){ $mopt='26';$moptD=$m26dd;if ($m26a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2776==$mmin){ $mopt='27';$moptD=$m27dd;if ($m27a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2876==$mmin){ $mopt='28';$moptD=$m28dd;if ($m28a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2976==$mmin){ $mopt='29';$moptD=$m29dd;if ($m29a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm3076==$mmin){ $mopt='30';$moptD=$m30dd;if ($m30a>74) {$mdi="-";} else {$mdi='+';}}
///ma
if ($dma176==$mamin){ $maopt='1';$maoptD=$ma1dd;}
if ($dma276==$mamin){ $maopt='2';$maoptD=$ma2dd;}
if ($dma376==$mamin){ $maopt='3';$maoptD=$ma3dd;}
if ($dma476==$mamin){ $maopt='4';$maoptD=$ma4dd;}
if ($dma576==$mamin){ $maopt='5';$maoptD=$ma5dd;}
if ($dma676==$mamin){ $maopt='6';$maoptD=$ma6dd;}
if ($dma776==$mamin){ $maopt='7';$maoptD=$ma7dd;}
if ($dma876==$mamin){ $maopt='8';$maoptD=$ma8dd;}
if ($dma976==$mamin){ $maopt='9';$maoptD=$ma9dd;}
if ($dma1076==$mamin){ $maopt='10';$maoptD=$ma10dd;}
if ($dma1176==$mamin){ $maopt='11';$maoptD=$ma11dd;}
if ($dma1276==$mamin){ $maopt='12';$maoptD=$ma12dd;}
if ($dma1376==$mamin){ $maopt='13';$maoptD=$ma13dd;}
if ($dma1476==$mamin){ $maopt='14';$maoptD=$ma14dd;}
if ($dma1576==$mamin){ $maopt='15';$maoptD=$ma15dd;}
if ($dma1676==$mamin){ $maopt='16';$maoptD=$ma16dd;}
if ($dma1776==$mamin){ $maopt='17';$maoptD=$ma17dd;}
if ($dma1876==$mamin){ $maopt='18';$maoptD=$ma18dd;}
if ($dma1976==$mamin){ $maopt='19';$maoptD=$ma19dd;}
if ($dma2076==$mamin){ $maopt='20';$maoptD=$ma20dd;}
if ($dma2176==$mamin){ $maopt='21';$maoptD=$ma21dd;}
if ($dma2276==$mamin){ $maopt='22';$maoptD=$ma22dd;}
if ($dma2376==$mamin){ $maopt='23';$maoptD=$ma23dd;}
if ($dma2476==$mamin){ $maopt='24';$maoptD=$ma24dd;}
if ($dma2576==$mamin){ $maopt='25';$maoptD=$ma25dd;}
if ($dma2676==$mamin){ $maopt='26';$maoptD=$ma26dd;}
if ($dma2776==$mamin){ $maopt='27';$maoptD=$ma27dd;}
if ($dma2876==$mamin){ $maopt='28';$maoptD=$ma28dd;}
if ($dma2976==$mamin){ $maopt='29';$maoptD=$ma29dd;}
if ($dma3076==$mamin){ $maopt='30';$maoptD=$ma30dd;}
////mb
if ($dmb176==$mbmin){ $mbopt='1';$mboptD=$mb1dd;}
if ($dmb276==$mbmin){ $mbopt='2';$mboptD=$mb2dd;}
if ($dmb376==$mbmin){ $mbopt='3';$mboptD=$mb3dd;}
if ($dmb476==$mbmin){ $mbopt='4';$mboptD=$mb4dd;}
if ($dmb576==$mbmin){ $mbopt='5';$mboptD=$mb5dd;}
if ($dmb676==$mbmin){ $mbopt='6';$mboptD=$mb6dd;}
if ($dmb776==$mbmin){ $mbopt='7';$mboptD=$mb7dd;}
if ($dmb876==$mbmin){ $mbopt='8';$mboptD=$mb8dd;}
if ($dmb976==$mbmin){ $mbopt='9';$mboptD=$mb9dd;}
if ($dmb1076==$mbmin){ $mbopt='10';$mboptD=$mb10dd;}
if ($dmb1176==$mbmin){ $mbopt='11';$mboptD=$mb11dd;}
if ($dmb1276==$mbmin){ $mbopt='12';$mboptD=$mb12dd;}
if ($dmb1376==$mbmin){ $mbopt='13';$mboptD=$mb13dd;}
if ($dmb1476==$mbmin){ $mbopt='14';$mboptD=$mb14dd;}
if ($dmb1576==$mbmin){ $mbopt='15';$mboptD=$mb15dd;}
if ($dmb1676==$mbmin){ $mbopt='16';$mboptD=$mb16dd;}
if ($dmb1776==$mbmin){ $mbopt='17';$mboptD=$mb17dd;}
if ($dmb1876==$mbmin){ $mbopt='18';$mboptD=$mb18dd;}
if ($dmb1976==$mbmin){ $mbopt='19';$mboptD=$mb19dd;}
if ($dmb2076==$mbmin){ $mbopt='20';$mboptD=$mb20dd;}
if ($dmb2176==$mbmin){ $mbopt='21';$mboptD=$mb21dd;}
if ($dmb2276==$mbmin){ $mbopt='22';$mboptD=$mb22dd;}
if ($dmb2376==$mbmin){ $mbopt='23';$mboptD=$mb23dd;}
if ($dmb2476==$mbmin){ $mbopt='24';$mboptD=$mb24dd;}
if ($dmb2576==$mbmin){ $mbopt='25';$mboptD=$mb25dd;}
if ($dmb2676==$mbmin){ $mbopt='26';$mboptD=$mb26dd;}
if ($dmb2776==$mbmin){ $mbopt='27';$mboptD=$mb27dd;}
if ($dmb2876==$mbmin){ $mbopt='28';$mboptD=$mb28dd;}
if ($dmb2976==$mbmin){ $mbopt='29';$mboptD=$mb29dd;}
if ($dmb3076==$mbmin){ $mbopt='30';$mboptD=$mb30dd;}
////mc
if ($dmc176==$mcmin){ $mcopt='1';$mcoptD=$mc1dd;}
if ($dmc276==$mcmin){ $mcopt='2';$mcoptD=$mc2dd;}
if ($dmc376==$mcmin){ $mcopt='3';$mcoptD=$mc3dd;}
if ($dmc476==$mcmin){ $mcopt='4';$mcoptD=$mc4dd;}
if ($dmc576==$mcmin){ $mcopt='5';$mcoptD=$mc5dd;}
if ($dmc676==$mcmin){ $mcopt='6';$mcoptD=$mc6dd;}
if ($dmc776==$mcmin){ $mcopt='7';$mcoptD=$mc7dd;}
if ($dmc876==$mcmin){ $mcopt='8';$mcoptD=$mc8dd;}
if ($dmc976==$mcmin){ $mcopt='9';$mcoptD=$mc9dd;}
if ($dmc1076==$mcmin){ $mcopt='10';$mcoptD=$mc10dd;}
if ($dmc1176==$mcmin){ $mcopt='11';$mcoptD=$mc11dd;}
if ($dmc1276==$mcmin){ $mcopt='12';$mcoptD=$mc12dd;}
if ($dmc1376==$mcmin){ $mcopt='13';$mcoptD=$mc13dd;}
if ($dmc1476==$mcmin){ $mcopt='14';$mcoptD=$mc14dd;}
if ($dmc1576==$mcmin){ $mcopt='15';$mcoptD=$mc15dd;}
if ($dmc1676==$mcmin){ $mcopt='16';$mcoptD=$mc16dd;}
if ($dmc1776==$mcmin){ $mcopt='17';$mcoptD=$mc17dd;}
if ($dmc1876==$mcmin){ $mcopt='18';$mcoptD=$mc18dd;}
if ($dmc1976==$mcmin){ $mcopt='19';$mcoptD=$mc19dd;}
if ($dmc2076==$mcmin){ $mcopt='20';$mcoptD=$mc20dd;}
if ($dmc2176==$mcmin){ $mcopt='21';$mcoptD=$mc21dd;}
if ($dmc2276==$mcmin){ $mcopt='22';$mcoptD=$mc22dd;}
if ($dmc2376==$mcmin){ $mcopt='23';$mcoptD=$mc23dd;}
if ($dmc2476==$mcmin){ $mcopt='24';$mcoptD=$mc24dd;}
if ($dmc2576==$mcmin){ $mcopt='25';$mcoptD=$mc25dd;}
if ($dmc2676==$mcmin){ $mcopt='26';$mcoptD=$mc26dd;}
if ($dmc2776==$mcmin){ $mcopt='27';$mcoptD=$mc27dd;}
if ($dmc2876==$mcmin){ $mcopt='28';$mcoptD=$mc28dd;}
if ($dmc2976==$mcmin){ $mcopt='29';$mcoptD=$mc29dd;}
if ($dmc3076==$mcmin){ $mcopt='30';$mcoptD=$mc30dd;}
$dy176=de76($yl,$ya,$yb,$y1l,$y1a,$y1b);
$dy276=de76($yl,$ya,$yb,$y2l,$y2a,$y2b);
$dy376=de76($yl,$ya,$yb,$y3l,$y3a,$y3b);
$dy476=de76($yl,$ya,$yb,$y4l,$y4a,$y4b);
$dy576=de76($yl,$ya,$yb,$y5l,$y5a,$y5b);
$dy676=de76($yl,$ya,$yb,$y6l,$y6a,$y6b);
$dy776=de76($yl,$ya,$yb,$y7l,$y7a,$y7b);
$dy876=de76($yl,$ya,$yb,$y8l,$y8a,$y8b);
$dy976=de76($yl,$ya,$yb,$y9l,$y9a,$y9b);
$dy1076=de76($yl,$ya,$yb,$y10l,$y10a,$y10b);
$dy1176=de76($yl,$ya,$yb,$y11l,$y11a,$y11b);
$dy1276=de76($yl,$ya,$yb,$y12l,$y12a,$y12b);
$dy1376=de76($yl,$ya,$yb,$y13l,$y13a,$y13b);
$dy1476=de76($yl,$ya,$yb,$y14l,$y14a,$y14b);
$dy1576=de76($yl,$ya,$yb,$y15l,$y15a,$y15b);
$dy1676=de76($yl,$ya,$yb,$y16l,$y16a,$y16b);
$dy1776=de76($yl,$ya,$yb,$y17l,$y17a,$y17b);
$dy1876=de76($yl,$ya,$yb,$y18l,$y18a,$y18b);
$dy1976=de76($yl,$ya,$yb,$y19l,$y19a,$y19b);
$dy2076=de76($yl,$ya,$yb,$y20l,$y20a,$y20b);
$dy2176=de76($yl,$ya,$yb,$y21l,$y21a,$y21b);
$dy2276=de76($yl,$ya,$yb,$y22l,$y22a,$y22b);
$dy2376=de76($yl,$ya,$yb,$y23l,$y23a,$y23b);
$dy2476=de76($yl,$ya,$yb,$y24l,$y24a,$y24b);
$dy2576=de76($yl,$ya,$yb,$y25l,$y25a,$y25b);
$dy2676=de76($yl,$ya,$yb,$y26l,$y26a,$y26b);
$dy2776=de76($yl,$ya,$yb,$y27l,$y27a,$y27b);
$dy2876=de76($yl,$ya,$yb,$y28l,$y28a,$y28b);
$dy2976=de76($yl,$ya,$yb,$y29l,$y29a,$y29b);
$dy3076=de76($yl,$ya,$yb,$y30l,$y30a,$y30b);
$ymin=min($dy176,$dy276,$dy376,$dy476,$dy576,$dy676,$dy776,$dy876,$dy976,$dy1076,$dy1176,$dy1276,$dy1376,$dy1476,$dy1576,$dy1676,$dy1776,$dy1876,$dy1976,$dy2076,$dy2176,$dy2276,$dy2376,$dy2476,$dy2576,$dy2676,$dy2776,$dy2876,$dy2976,$dy3076);
///y1
$dya176=de76($yl,$ya,$yb,$ya1l,$ya1a,$ya1b);
$dya276=de76($yl,$ya,$yb,$ya2l,$ya2a,$ya2b);
$dya376=de76($yl,$ya,$yb,$ya3l,$ya3a,$ya3b);
$dya476=de76($yl,$ya,$yb,$ya4l,$ya4a,$ya4b);
$dya576=de76($yl,$ya,$yb,$ya5l,$ya5a,$ya5b);
$dya676=de76($yl,$ya,$yb,$ya6l,$ya6a,$ya6b);
$dya776=de76($yl,$ya,$yb,$ya7l,$ya7a,$ya7b);
$dya876=de76($yl,$ya,$yb,$ya8l,$ya8a,$ya8b);
$dya976=de76($yl,$ya,$yb,$ya9l,$ya9a,$ya9b);
$dya1076=de76($yl,$ya,$yb,$ya10l,$ya10a,$ya10b);
$dya1176=de76($yl,$ya,$yb,$ya11l,$ya11a,$ya11b);
$dya1276=de76($yl,$ya,$yb,$ya12l,$ya12a,$ya12b);
$dya1376=de76($yl,$ya,$yb,$ya13l,$ya13a,$ya13b);
$dya1476=de76($yl,$ya,$yb,$ya14l,$ya14a,$ya14b);
$dya1576=de76($yl,$ya,$yb,$ya15l,$ya15a,$ya15b);
$dya1676=de76($yl,$ya,$yb,$ya16l,$ya16a,$ya16b);
$dya1776=de76($yl,$ya,$yb,$ya17l,$ya17a,$ya17b);
$dya1876=de76($yl,$ya,$yb,$ya18l,$ya18a,$ya18b);
$dya1976=de76($yl,$ya,$yb,$ya19l,$ya19a,$ya19b);
$dya2076=de76($yl,$ya,$yb,$ya20l,$ya20a,$ya20b);
$dya2176=de76($yl,$ya,$yb,$ya21l,$ya21a,$ya21b);
$dya2276=de76($yl,$ya,$yb,$ya22l,$ya22a,$ya22b);
$dya2376=de76($yl,$ya,$yb,$ya23l,$ya23a,$ya23b);
$dya2476=de76($yl,$ya,$yb,$ya24l,$ya24a,$ya24b);
$dya2576=de76($yl,$ya,$yb,$ya25l,$ya25a,$ya25b);
$dya2676=de76($yl,$ya,$yb,$ya26l,$ya26a,$ya26b);
$dya2776=de76($yl,$ya,$yb,$ya27l,$ya27a,$ya27b);
$dya2876=de76($yl,$ya,$yb,$ya28l,$ya28a,$ya28b);
$dya2976=de76($yl,$ya,$yb,$ya29l,$ya29a,$ya29b);
$dya3076=de76($yl,$ya,$yb,$ya30l,$ya30a,$ya30b);
$yamin=min($dya176,$dya276,$dya376,$dya476,$dya576,$dya676,$dya776,$dya876,$dya976,$dya1076,$dya1176,$dya1276,$dya1376,$dya1476,$dya1576,$dya1676,$dya1776,$dya1876,$dya1976,$dya2076,$dya2176,$dya2276,$dya2376,$dya2476,$dya2576,$dya2676,$dya2776,$dya2876,$dya2976,$dya3076);
///ya2
$dyb176=de76($yl,$ya,$yb,$yb1l,$yb1a,$yb1b);
$dyb276=de76($yl,$ya,$yb,$yb2l,$yb2a,$yb2b);
$dyb376=de76($yl,$ya,$yb,$yb3l,$yb3a,$yb3b);
$dyb476=de76($yl,$ya,$yb,$yb4l,$yb4a,$yb4b);
$dyb576=de76($yl,$ya,$yb,$yb5l,$yb5a,$yb5b);
$dyb676=de76($yl,$ya,$yb,$yb6l,$yb6a,$yb6b);
$dyb776=de76($yl,$ya,$yb,$yb7l,$yb7a,$yb7b);
$dyb876=de76($yl,$ya,$yb,$yb8l,$yb8a,$yb8b);
$dyb976=de76($yl,$ya,$yb,$yb9l,$yb9a,$yb9b);
$dyb1076=de76($yl,$ya,$yb,$yb10l,$yb10a,$yb10b);
$dyb1176=de76($yl,$ya,$yb,$yb11l,$yb11a,$yb11b);
$dyb1276=de76($yl,$ya,$yb,$yb12l,$yb12a,$yb12b);
$dyb1376=de76($yl,$ya,$yb,$yb13l,$yb13a,$yb13b);
$dyb1476=de76($yl,$ya,$yb,$yb14l,$yb14a,$yb14b);
$dyb1576=de76($yl,$ya,$yb,$yb15l,$yb15a,$yb15b);
$dyb1676=de76($yl,$ya,$yb,$yb16l,$yb16a,$yb16b);
$dyb1776=de76($yl,$ya,$yb,$yb17l,$yb17a,$yb17b);
$dyb1876=de76($yl,$ya,$yb,$yb18l,$yb18a,$yb18b);
$dyb1976=de76($yl,$ya,$yb,$yb19l,$yb19a,$yb19b);
$dyb2076=de76($yl,$ya,$yb,$yb20l,$yb20a,$yb20b);
$dyb2176=de76($yl,$ya,$yb,$yb21l,$yb21a,$yb21b);
$dyb2276=de76($yl,$ya,$yb,$yb22l,$yb22a,$yb22b);
$dyb2376=de76($yl,$ya,$yb,$yb23l,$yb23a,$yb23b);
$dyb2476=de76($yl,$ya,$yb,$yb24l,$yb24a,$yb24b);
$dyb2576=de76($yl,$ya,$yb,$yb25l,$yb25a,$yb25b);
$dyb2676=de76($yl,$ya,$yb,$yb26l,$yb26a,$yb26b);
$dyb2776=de76($yl,$ya,$yb,$yb27l,$yb27a,$yb27b);
$dyb2876=de76($yl,$ya,$yb,$yb28l,$yb28a,$yb28b);
$dyb2976=de76($yl,$ya,$yb,$yb29l,$yb29a,$yb29b);
$dyb3076=de76($yl,$ya,$yb,$yb30l,$yb30a,$yb30b);
$ybmin=min($dyb176,$dyb276,$dyb376,$dyb476,$dyb576,$dyb676,$dyb776,$dyb876,$dyb976,$dyb1076,$dyb1176,$dyb1276,$dyb1376,$dyb1476,$dyb1576,$dyb1676,$dyb1776,$dyb1876,$dyb1976,$dyb2076,$dyb2176,$dyb2276,$dyb2376,$dyb2476,$dyb2576,$dyb2676,$dyb2776,$dyb2876,$dyb2976,$dyb3076);
///yc
$dyc176=de76($yl,$ya,$yb,$yc1l,$yc1a,$yc1b);
$dyc276=de76($yl,$ya,$yb,$yc2l,$yc2a,$yc2b);
$dyc376=de76($yl,$ya,$yb,$yc3l,$yc3a,$yc3b);
$dyc476=de76($yl,$ya,$yb,$yc4l,$yc4a,$yc4b);
$dyc576=de76($yl,$ya,$yb,$yc5l,$yc5a,$yc5b);
$dyc676=de76($yl,$ya,$yb,$yc6l,$yc6a,$yc6b);
$dyc776=de76($yl,$ya,$yb,$yc7l,$yc7a,$yc7b);
$dyc876=de76($yl,$ya,$yb,$yc8l,$yc8a,$yc8b);
$dyc976=de76($yl,$ya,$yb,$yc9l,$yc9a,$yc9b);
$dyc1076=de76($yl,$ya,$yb,$yc10l,$yc10a,$yc10b);
$dyc1176=de76($yl,$ya,$yb,$yc11l,$yc11a,$yc11b);
$dyc1276=de76($yl,$ya,$yb,$yc12l,$yc12a,$yc12b);
$dyc1376=de76($yl,$ya,$yb,$yc13l,$yc13a,$yc13b);
$dyc1476=de76($yl,$ya,$yb,$yc14l,$yc14a,$yc14b);
$dyc1576=de76($yl,$ya,$yb,$yc15l,$yc15a,$yc15b);
$dyc1676=de76($yl,$ya,$yb,$yc16l,$yc16a,$yc16b);
$dyc1776=de76($yl,$ya,$yb,$yc17l,$yc17a,$yc17b);
$dyc1876=de76($yl,$ya,$yb,$yc18l,$yc18a,$yc18b);
$dyc1976=de76($yl,$ya,$yb,$yc19l,$yc19a,$yc19b);
$dyc2076=de76($yl,$ya,$yb,$yc20l,$yc20a,$yc20b);
$dyc2176=de76($yl,$ya,$yb,$yc21l,$yc21a,$yc21b);
$dyc2276=de76($yl,$ya,$yb,$yc22l,$yc22a,$yc22b);
$dyc2376=de76($yl,$ya,$yb,$yc23l,$yc23a,$yc23b);
$dyc2476=de76($yl,$ya,$yb,$yc24l,$yc24a,$yc24b);
$dyc2576=de76($yl,$ya,$yb,$yc25l,$yc25a,$yc25b);
$dyc2676=de76($yl,$ya,$yb,$yc26l,$yc26a,$yc26b);
$dyc2776=de76($yl,$ya,$yb,$yc27l,$yc27a,$yc27b);
$dyc2876=de76($yl,$ya,$yb,$yc28l,$yc28a,$yc28b);
$dyc2976=de76($yl,$ya,$yb,$yc29l,$yc29a,$yc29b);
$dyc3076=de76($yl,$ya,$yb,$yc30l,$yc30a,$yc30b);
$ycmin=min($dyc176,$dyc276,$dyc376,$dyc476,$dyc576,$dyc676,$dyc776,$dyc876,$dyc976,$dyc1076,$dyc1176,$dyc1276,$dyc1376,$dyc1476,$dyc1576,$dyc1676,$dyc1776,$dyc1876,$dyc1976,$dyc2076,$dyc2176,$dyc2276,$dyc2376,$dyc2476,$dyc2576,$dyc2676,$dyc2776,$dyc2876,$dyc2976,$dyc3076);
//$dy194=de94($yl,$ya,$yb,$y1l,$y1a,$y1b);
?>
<?php if ($dy176==$ymin){ $yopt='1';$yoptD=$y1dd;if ($y1b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy276==$ymin){ $yopt='2';$yoptD=$y2dd;if ($y2b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy376==$ymin){ $yopt='3';$yoptD=$y3dd;if ($y3b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy476==$ymin){ $yopt='4';$yoptD=$y4dd;if ($y4b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy576==$ymin){ $yopt='5';$yoptD=$y5dd;if ($y5b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy676==$ymin){ $yopt='6';$yoptD=$y6dd;if ($y6b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy776==$ymin){ $yopt='7';$yoptD=$y7dd;if ($y7b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy876==$ymin){ $yopt='8';$yoptD=$y8dd; if ($y8b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy976==$ymin){ $yopt='9';$yoptD=$y9dd;if ($y9b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1076==$ymin){ $yopt='10';$yoptD=$y10dd;if ($y10b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1176==$ymin){ $yopt='11';$yoptD=$y11dd;if ($y11b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1276==$ymin){ $yopt='12';$yoptD=$y12dd;if ($y12b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1376==$ymin){ $yopt='13';$yoptD=$y13dd;if ($y13b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1476==$ymin){ $yopt='14';$yoptD=$y14dd;if ($y14b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1576==$ymin){ $yopt='15';$yoptD=$y15dd;if ($y15b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1676==$ymin){ $yopt='16';$yoptD=$y16dd;if ($y16b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1776==$ymin){ $yopt='17';$yoptD=$y17dd;if ($y17b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1876==$ymin){ $yopt='18';$yoptD=$y18dd;if ($y18b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1976==$ymin){ $yopt='19';$yoptD=$y19dd;if ($y19b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2076==$ymin){ $yopt='20';$yoptD=$y20dd;if ($y20b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2176==$ymin){ $yopt='21';$yoptD=$y21dd;if ($y21b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2276==$ymin){ $yopt='22';$yoptD=$y22dd;if ($y22b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2376==$ymin){ $yopt='23';$yoptD=$y23dd;if ($y23b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2476==$ymin){ $yopt='24';$yoptD=$y24dd;if ($y24b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2576==$ymin){ $yopt='25';$yoptD=$y25dd;if ($y25b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2676==$ymin){ $yopt='26';$yoptD=$y26dd;if ($y26b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2776==$ymin){ $yopt='27';$yoptD=$y27dd;if ($y27b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2876==$ymin){ $yopt='28';$yoptD=$y28dd;if ($y28b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2976==$ymin){ $yopt='29';$yoptD=$y29dd;if ($y29b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy3076==$ymin){ $yopt='30';$yoptD=$y30dd;if ($y30b>93) {$ydi="-";} else {$ydi='+';}}
///ya
if ($dya176==$yamin){ $yaopt='1';$yaoptD=$ya1dd;}
if ($dya276==$yamin){ $yaopt='2';$yaoptD=$ya2dd;}
if ($dya376==$yamin){ $yaopt='3';$yaoptD=$ya3dd;}
if ($dya476==$yamin){ $yaopt='4';$yaoptD=$ya4dd;}
if ($dya576==$yamin){ $yaopt='5';$yaoptD=$ya5dd;}
if ($dya676==$yamin){ $yaopt='6';$yaoptD=$ya6dd;}
if ($dya776==$yamin){ $yaopt='7';$yaoptD=$ya7dd;}
if ($dya876==$yamin){ $yaopt='8';$yaoptD=$ya8dd;}
if ($dya976==$yamin){ $yaopt='9';$yaoptD=$ya9dd;}
if ($dya1076==$yamin){ $yaopt='10';$yaoptD=$ya10dd;}
if ($dya1176==$yamin){ $yaopt='11';$yaoptD=$ya11dd;}
if ($dya1276==$yamin){ $yaopt='12';$yaoptD=$ya12dd;}
if ($dya1376==$yamin){ $yaopt='13';$yaoptD=$ya13dd;}
if ($dya1476==$yamin){ $yaopt='14';$yaoptD=$ya14dd;}
if ($dya1576==$yamin){ $yaopt='15';$yaoptD=$ya15dd;}
if ($dya1676==$yamin){ $yaopt='16';$yaoptD=$ya16dd;}
if ($dya1776==$yamin){ $yaopt='17';$yaoptD=$ya17dd;}
if ($dya1876==$yamin){ $yaopt='18';$yaoptD=$ya18dd;}
if ($dya1976==$yamin){ $yaopt='19';$yaoptD=$ya19dd;}
if ($dya2076==$yamin){ $yaopt='20';$yaoptD=$ya20dd;}
if ($dya2176==$yamin){ $yaopt='21';$yaoptD=$ya21dd;}
if ($dya2276==$yamin){ $yaopt='22';$yaoptD=$ya22dd;}
if ($dya2376==$yamin){ $yaopt='23';$yaoptD=$ya23dd;}
if ($dya2476==$yamin){ $yaopt='24';$yaoptD=$ya24dd;}
if ($dya2576==$yamin){ $yaopt='25';$yaoptD=$ya25dd;}
if ($dya2676==$yamin){ $yaopt='26';$yaoptD=$ya26dd;}
if ($dya2776==$yamin){ $yaopt='27';$yaoptD=$ya27dd;}
if ($dya2876==$yamin){ $yaopt='28';$yaoptD=$ya28dd;}
if ($dya2976==$yamin){ $yaopt='29';$yaoptD=$ya29dd;}
if ($dya3076==$yamin){ $yaopt='30';$yaoptD=$ya30dd;}
////yb
if ($dyb176==$ybmin){ $ybopt='1';$yboptD=$yb1dd;}
if ($dyb276==$ybmin){ $ybopt='2';$yboptD=$yb2dd;}
if ($dyb376==$ybmin){ $ybopt='3';$yboptD=$yb3dd;}
if ($dyb476==$ybmin){ $ybopt='4';$yboptD=$yb4dd;}
if ($dyb576==$ybmin){ $ybopt='5';$yboptD=$yb5dd;}
if ($dyb676==$ybmin){ $ybopt='6';$yboptD=$yb6dd;}
if ($dyb776==$ybmin){ $ybopt='7';$yboptD=$yb7dd;}
if ($dyb876==$ybmin){ $ybopt='8';$yboptD=$yb8dd;}
if ($dyb976==$ybmin){ $ybopt='9';$yboptD=$yb9dd;}
if ($dyb1076==$ybmin){ $ybopt='10';$yboptD=$yb10dd;}
if ($dyb1176==$ybmin){ $ybopt='11';$yboptD=$yb11dd;}
if ($dyb1276==$ybmin){ $ybopt='12';$yboptD=$yb12dd;}
if ($dyb1376==$ybmin){ $ybopt='13';$yboptD=$yb13dd;}
if ($dyb1476==$ybmin){ $ybopt='14';$yboptD=$yb14dd;}
if ($dyb1576==$ybmin){ $ybopt='15';$yboptD=$yb15dd;}
if ($dyb1676==$ybmin){ $ybopt='16';$yboptD=$yb16dd;}
if ($dyb1776==$ybmin){ $ybopt='17';$yboptD=$yb17dd;}
if ($dyb1876==$ybmin){ $ybopt='18';$yboptD=$yb18dd;}
if ($dyb1976==$ybmin){ $ybopt='19';$yboptD=$yb19dd;}
if ($dyb2076==$ybmin){ $ybopt='20';$yboptD=$yb20dd;}
if ($dyb2176==$ybmin){ $ybopt='21';$yboptD=$yb21dd;}
if ($dyb2276==$ybmin){ $ybopt='22';$yboptD=$yb22dd;}
if ($dyb2376==$ybmin){ $ybopt='23';$yboptD=$yb23dd;}
if ($dyb2476==$ybmin){ $ybopt='24';$yboptD=$yb24dd;}
if ($dyb2576==$ybmin){ $ybopt='25';$yboptD=$yb25dd;}
if ($dyb2676==$ybmin){ $ybopt='26';$yboptD=$yb26dd;}
if ($dyb2776==$ybmin){ $ybopt='27';$yboptD=$yb27dd;}
if ($dyb2876==$ybmin){ $ybopt='28';$yboptD=$yb28dd;}
if ($dyb2976==$ybmin){ $ybopt='29';$yboptD=$yb29dd;}
if ($dyb3076==$ybmin){ $ybopt='30';$yboptD=$yb30dd;}
////yc
if ($dyc176==$ycmin){ $ycopt='1';$ycoptD=$yc1dd;}
if ($dyc276==$ycmin){ $ycopt='2';$ycoptD=$yc2dd;}
if ($dyc376==$ycmin){ $ycopt='3';$ycoptD=$yc3dd;}
if ($dyc476==$ycmin){ $ycopt='4';$ycoptD=$yc4dd;}
if ($dyc576==$ycmin){ $ycopt='5';$ycoptD=$yc5dd;}
if ($dyc676==$ycmin){ $ycopt='6';$ycoptD=$yc6dd;}
if ($dyc776==$ycmin){ $ycopt='7';$ycoptD=$yc7dd;}
if ($dyc876==$ycmin){ $ycopt='8';$ycoptD=$yc8dd;}
if ($dyc976==$ycmin){ $ycopt='9';$ycoptD=$yc9dd;}
if ($dyc1076==$ycmin){ $ycopt='10';$ycoptD=$yc10dd;}
if ($dyc1176==$ycmin){ $ycopt='11';$ycoptD=$yc11dd;}
if ($dyc1276==$ycmin){ $ycopt='12';$ycoptD=$yc12dd;}
if ($dyc1376==$ycmin){ $ycopt='13';$ycoptD=$yc13dd;}
if ($dyc1476==$ycmin){ $ycopt='14';$ycoptD=$yc14dd;}
if ($dyc1576==$ycmin){ $ycopt='15';$ycoptD=$yc15dd;}
if ($dyc1676==$ycmin){ $ycopt='16';$ycoptD=$yc16dd;}
if ($dyc1776==$ycmin){ $ycopt='17';$ycoptD=$yc17dd;}
if ($dyc1876==$ycmin){ $ycopt='18';$ycoptD=$yc18dd;}
if ($dyc1976==$ycmin){ $ycopt='19';$ycoptD=$yc19dd;}
if ($dyc2076==$ycmin){ $ycopt='20';$ycoptD=$yc20dd;}
if ($dyc2176==$ycmin){ $ycopt='21';$ycoptD=$yc21dd;}
if ($dyc2276==$ycmin){ $ycopt='22';$ycoptD=$yc22dd;}
if ($dyc2376==$ycmin){ $ycopt='23';$ycoptD=$yc23dd;}
if ($dyc2476==$ycmin){ $ycopt='24';$ycoptD=$yc24dd;}
if ($dyc2576==$ycmin){ $ycopt='25';$ycoptD=$yc25dd;}
if ($dyc2676==$ycmin){ $ycopt='26';$ycoptD=$yc26dd;}
if ($dyc2776==$ycmin){ $ycopt='27';$ycoptD=$yc27dd;}
if ($dyc2876==$ycmin){ $ycopt='28';$ycoptD=$yc28dd;}
if ($dyc2976==$ycmin){ $ycopt='29';$ycoptD=$yc29dd;}
if ($dyc3076==$ycmin){ $ycopt='30';$ycoptD=$yc30dd;}
$link = mysql_connect("127.0.0.1", "root", "fredsql") or die ("Unable to connect!");
mysql_query("SET NAMES 'utf8'");
$db = "tvicheck-st";
// select database
mysql_select_db($db) or die ("Unable to select database!");
// generate and execute query
$querys = "select po, sNo from Production where po='$po' ORDER BY id DESC LIMIT 1 ";
$results = mysql_query($querys) or die ("Error in query: $querys. " . mysql_error());
if (mysql_num_rows($results) > 0)
{
$row = mysql_fetch_object($results);
$sNo=$row->sNo+1;}
else { $sNo=1;}
mysql_close($link);
?>
<?php
////////////////////////c50
$Pdot=5;$Pdot1=15;$Pdot2=25;$pdot3=35;
if ($cols==45) {
$c50dm=DensitySp38("C",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);}
else {
$c50dm=DensitySp("C",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$c50dm1=DensitySp("C",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$c50dm2=DensitySp("C",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$c50dm3=DensitySp("C",$dotT[$idx+$cols*$pdot3+1],$dotT[$idx+$cols*$pdot3+2],$dotT[$idx+$cols*$pdot3+3],$dotT[$idx+$cols*$pdot3+4],$dotT[$idx+$cols*$pdot3+5],$dotT[$idx+$cols*$pdot3+6],$dotT[$idx+$cols*$pdot3+7],$dotT[$idx+$cols*$pdot3+8],$dotT[$idx+$cols*$pdot3+9],$dotT[$idx+$cols*$pdot3+10],$dotT[$idx+$cols*$pdot3+11],$dotT[$idx+$cols*$pdot3+12],$dotT[$idx+$cols*$pdot3+13],$dotT[$idx+$cols*$pdot3+14],$dotT[$idx+$cols*$pdot3+15],$dotT[$idx+$cols*$pdot3+16],$dotT[$idx+$cols*$pdot3+17],$dotT[$idx+$cols*$pdot3+18],$dotT[$idx+$cols*$pdot3+19],$dotT[$idx+$cols*$pdot3+20],$dotT[$idx+$cols*$pdot3+21],$dotT[$idx+$cols*$pdot3+22],$dotT[$idx+$cols*$pdot3+23],$dotT[$idx+$cols*$pdot3+24],$dotT[$idx+$cols*$pdot3+25],$dotT[$idx+$cols*$pdot3+26],$dotT[$idx+$cols*$pdot3+27],$dotT[$idx+$cols*$pdot3+28],$dotT[$idx+$cols*$pdot3+29],$dotT[$idx+$cols*$pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
echo "cd50m3:".$dotT[$idx+$cols*$pdot3+1];
}
$c50TV=(((1-(pow(10,(-($c50dm-$Pdm)))))/(1-(pow(10,(-($cdm-$Pdm)))))))*100;
$c50TVI=round(($c50TV-64),2);
$c50TV1=(((1-(pow(10,(-($c50dm1-$Pdm)))))/(1-(pow(10,(-($c1dm-$Pdm)))))))*100;
$c50TVI1=round(($c50TV1-64),2);
$c50TV2=(((1-(pow(10,(-($c50dm2-$Pdm)))))/(1-(pow(10,(-($c2dm-$Pdm)))))))*100;
$c50TVI2=round(($c50TV2-64),2);
$c50TV3=(((1-(pow(10,(-($c50dm3-$Pdm)))))/(1-(pow(10,(-($c3dm-$Pdm)))))))*100;
$c50TVI3=round(($c50TV3-64),2);
//echo "c50dm:".$c50dm."TV=".$c50TVI."__<br>";
////////////////////////m50
$Pdot=6;$Pdot1=16;$Pdot2=26;$pdot3=36;
if ($cols==45) {
$m50dm=DensitySp38("M",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);}
else {
$m50dm=DensitySp("M",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$m50dm1=DensitySp("M",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$m50dm2=DensitySp("M",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$m50dm3=DensitySp("M",$dotT[$idx+$cols*$pdot3+1],$dotT[$idx+$cols*$pdot3+2],$dotT[$idx+$cols*$pdot3+3],$dotT[$idx+$cols*$pdot3+4],$dotT[$idx+$cols*$pdot3+5],$dotT[$idx+$cols*$pdot3+6],$dotT[$idx+$cols*$pdot3+7],$dotT[$idx+$cols*$pdot3+8],$dotT[$idx+$cols*$pdot3+9],$dotT[$idx+$cols*$pdot3+10],$dotT[$idx+$cols*$pdot3+11],$dotT[$idx+$cols*$pdot3+12],$dotT[$idx+$cols*$pdot3+13],$dotT[$idx+$cols*$pdot3+14],$dotT[$idx+$cols*$pdot3+15],$dotT[$idx+$cols*$pdot3+16],$dotT[$idx+$cols*$pdot3+17],$dotT[$idx+$cols*$pdot3+18],$dotT[$idx+$cols*$pdot3+19],$dotT[$idx+$cols*$pdot3+20],$dotT[$idx+$cols*$pdot3+21],$dotT[$idx+$cols*$pdot3+22],$dotT[$idx+$cols*$pdot3+23],$dotT[$idx+$cols*$pdot3+24],$dotT[$idx+$cols*$pdot3+25],$dotT[$idx+$cols*$pdot3+26],$dotT[$idx+$cols*$pdot3+27],$dotT[$idx+$cols*$pdot3+28],$dotT[$idx+$cols*$pdot3+29],$dotT[$idx+$cols*$pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
}
$m50TV=(((1-(pow(10,(-($m50dm-$Pdm)))))/(1-(pow(10,(-($mdm-$Pdm)))))))*100;
$m50TVI=round(($m50TV-64),2);
$m50TV1=(((1-(pow(10,(-($m50dm1-$Pdm)))))/(1-(pow(10,(-($m1dm-$Pdm)))))))*100;
$m50TVI1=round(($m50TV1-64),2);
$m50TV2=(((1-(pow(10,(-($m50dm2-$Pdm)))))/(1-(pow(10,(-($m2dm-$Pdm)))))))*100;
$m50TVI2=round(($m50TV2-64),2);
$m50TV3=(((1-(pow(10,(-($m50dm3-$Pdm)))))/(1-(pow(10,(-($m3dm-$Pdm)))))))*100;
$m50TVI3=round(($m50TV3-64),2);
//echo "m50dm:".$m50dm."TV=".$m50TVI."__<br>";
////////////////////////y50
$Pdot=7;$Pdot1=17;$Pdot2=27;$pdot3=37;
if ($cols==45) {
$y50dm=DensitySp38("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);}
else {
$y50dm=DensitySp("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$y50dm1=DensitySp("Y",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$y50dm2=DensitySp("Y",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$y50dm3=DensitySp("Y",$dotT[$idx+$cols*$pdot3+1],$dotT[$idx+$cols*$pdot3+2],$dotT[$idx+$cols*$pdot3+3],$dotT[$idx+$cols*$pdot3+4],$dotT[$idx+$cols*$pdot3+5],$dotT[$idx+$cols*$pdot3+6],$dotT[$idx+$cols*$pdot3+7],$dotT[$idx+$cols*$pdot3+8],$dotT[$idx+$cols*$pdot3+9],$dotT[$idx+$cols*$pdot3+10],$dotT[$idx+$cols*$pdot3+11],$dotT[$idx+$cols*$pdot3+12],$dotT[$idx+$cols*$pdot3+13],$dotT[$idx+$cols*$pdot3+14],$dotT[$idx+$cols*$pdot3+15],$dotT[$idx+$cols*$pdot3+16],$dotT[$idx+$cols*$pdot3+17],$dotT[$idx+$cols*$pdot3+18],$dotT[$idx+$cols*$pdot3+19],$dotT[$idx+$cols*$pdot3+20],$dotT[$idx+$cols*$pdot3+21],$dotT[$idx+$cols*$pdot3+22],$dotT[$idx+$cols*$pdot3+23],$dotT[$idx+$cols*$pdot3+24],$dotT[$idx+$cols*$pdot3+25],$dotT[$idx+$cols*$pdot3+26],$dotT[$idx+$cols*$pdot3+27],$dotT[$idx+$cols*$pdot3+28],$dotT[$idx+$cols*$pdot3+29],$dotT[$idx+$cols*$pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
}
$y50TV=(((1-(pow(10,(-($y50dm-$Pdm)))))/(1-(pow(10,(-($ydm-$Pdm)))))))*100;
$y50TVI=round(($y50TV-64),2);
$y50TV1=(((1-(pow(10,(-($y50dm1-$Pdm)))))/(1-(pow(10,(-($y1dm-$Pdm)))))))*100;
$y50TVI1=round(($y50TV1-64),2);
$y50TV2=(((1-(pow(10,(-($y50dm2-$Pdm)))))/(1-(pow(10,(-($y2dm-$Pdm)))))))*100;
$y50TVI2=round(($y50TV2-64),2);
$y50TV3=(((1-(pow(10,(-($y50dm3-$Pdm)))))/(1-(pow(10,(-($y3dm-$Pdm)))))))*100;
$y50TVI3=round(($y50TV3-64),2);
//echo "y50dm:".$y50dm."TV=".$y50TVI."__<br>";
////////////////////////k50
$Pdot=8;$Pdot1=18;$Pdot2=28;$pdot3=38;
if ($cols==45) {
$k50Xm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$k50Ym=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$k50Zm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$k50Lm=xyz2lab01("l",$k50Xm,$k50Ym,$k50Zm);
$k50am=xyz2lab01("a",$k50Xm,$k50Ym,$k50Zm);
$k50bm=xyz2lab01("b",$k50Xm,$k50Ym,$k50Zm);
$k50dm=DensitySp38("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);}
else {
$k50Xm=spXYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$k50Ym=spXYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$k50Zm=spXYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$k50Lm=xyz2lab01("l",$k50Xm,$k50Ym,$k50Zm);
$k50am=xyz2lab01("a",$k50Xm,$k50Ym,$k50Zm);
$k50bm=xyz2lab01("b",$k50Xm,$k50Ym,$k50Zm);
$k50dm=DensitySp("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
///pot1
$k50dm1=DensitySp("Y",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
////pot2
$k50dm2=DensitySp("Y",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
////pot3
$k50dm3=DensitySp("Y",$dotT[$idx+$cols*$pdot3+1],$dotT[$idx+$cols*$pdot3+2],$dotT[$idx+$cols*$pdot3+3],$dotT[$idx+$cols*$pdot3+4],$dotT[$idx+$cols*$pdot3+5],$dotT[$idx+$cols*$pdot3+6],$dotT[$idx+$cols*$pdot3+7],$dotT[$idx+$cols*$pdot3+8],$dotT[$idx+$cols*$pdot3+9],$dotT[$idx+$cols*$pdot3+10],$dotT[$idx+$cols*$pdot3+11],$dotT[$idx+$cols*$pdot3+12],$dotT[$idx+$cols*$pdot3+13],$dotT[$idx+$cols*$pdot3+14],$dotT[$idx+$cols*$pdot3+15],$dotT[$idx+$cols*$pdot3+16],$dotT[$idx+$cols*$pdot3+17],$dotT[$idx+$cols*$pdot3+18],$dotT[$idx+$cols*$pdot3+19],$dotT[$idx+$cols*$pdot3+20],$dotT[$idx+$cols*$pdot3+21],$dotT[$idx+$cols*$pdot3+22],$dotT[$idx+$cols*$pdot3+23],$dotT[$idx+$cols*$pdot3+24],$dotT[$idx+$cols*$pdot3+25],$dotT[$idx+$cols*$pdot3+26],$dotT[$idx+$cols*$pdot3+27],$dotT[$idx+$cols*$pdot3+28],$dotT[$idx+$cols*$pdot3+29],$dotT[$idx+$cols*$pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
}
$k50TV=(((1-(pow(10,(-($k50dm-$Pdm)))))/(1-(pow(10,(-($kdm-$Pdm)))))))*100;
$k50TVI=round(($k50TV-67),2);
$k50TV1=(((1-(pow(10,(-($k50dm1-$Pdm)))))/(1-(pow(10,(-($k1dm-$Pdm)))))))*100;
$k50TVI1=round(($k50TV1-67),2);
$k50TV2=(((1-(pow(10,(-($k50dm2-$Pdm)))))/(1-(pow(10,(-($k2dm-$Pdm)))))))*100;
$k50TVI2=round(($k50TV2-67),2);
$k50TV3=(((1-(pow(10,(-($k50dm3-$Pdm)))))/(1-(pow(10,(-($k3dm-$Pdm)))))))*100;
$k50TVI3=round(($k50TV3-67),2);
//echo "k50dm:".$k50dm."TV=".$k50TVI."__<br>";
// echo "note 2k: k50L:".$k50Lm."_k50a:".$k50am."_k50b:".$k50bm."__<br>";
////////////////////////////gray
$Pdot=9;$Pdot1=19;$Pdot2=29;$pdot3=39;
if ($cols==45) {
$gXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$gYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$gZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$gLm=xyz2lab01("l",$gXm,$gYm,$gZm);
$gam=xyz2lab01("a",$gXm,$gYm,$gZm);
$gbm=xyz2lab01("b",$gXm,$gYm,$gZm);
$gdm=DensitySp38("K",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);}
else {
$gXm=spXYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$gYm=spXYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$gZm=spXYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$gLm=xyz2lab01("l",$gXm,$gYm,$gZm);
$gam=xyz2lab01("a",$gXm,$gYm,$gZm);
$gbm=xyz2lab01("b",$gXm,$gYm,$gZm);
$gdm=DensitySp("K",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
/////pot1
$gXm1=spXYZ("X",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$gYm1=spXYZ("Y",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$gZm1=spXYZ("Z",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$gLm1=xyz2lab01("l",$gXm1,$gYm1,$gZm1);
$gam1=xyz2lab01("a",$gXm1,$gYm1,$gZm1);
$gbm1=xyz2lab01("b",$gXm1,$gYm1,$gZm1);
$gdm1=DensitySp("K",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
///pot2
$gXm2=spXYZ("X",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$gYm2=spXYZ("Y",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$gZm2=spXYZ("Z",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$gLm2=xyz2lab01("l",$gXm2,$gYm2,$gZm2);
$gam2=xyz2lab01("a",$gXm2,$gYm2,$gZm2);
$gbm2=xyz2lab01("b",$gXm2,$gYm2,$gZm2);
$gdm2=DensitySp("K",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
///pot3
$gXm3=spXYZ("X",$dotT[$idx+$cols*$pdot3+1],$dotT[$idx+$cols*$pdot3+2],$dotT[$idx+$cols*$pdot3+3],$dotT[$idx+$cols*$pdot3+4],$dotT[$idx+$cols*$pdot3+5],$dotT[$idx+$cols*$pdot3+6],$dotT[$idx+$cols*$pdot3+7],$dotT[$idx+$cols*$pdot3+8],$dotT[$idx+$cols*$pdot3+9],$dotT[$idx+$cols*$pdot3+10],$dotT[$idx+$cols*$pdot3+11],$dotT[$idx+$cols*$pdot3+12],$dotT[$idx+$cols*$pdot3+13],$dotT[$idx+$cols*$pdot3+14],$dotT[$idx+$cols*$pdot3+15],$dotT[$idx+$cols*$pdot3+16],$dotT[$idx+$cols*$pdot3+17],$dotT[$idx+$cols*$pdot3+18],$dotT[$idx+$cols*$pdot3+19],$dotT[$idx+$cols*$pdot3+20],$dotT[$idx+$cols*$pdot3+21],$dotT[$idx+$cols*$pdot3+22],$dotT[$idx+$cols*$pdot3+23],$dotT[$idx+$cols*$pdot3+24],$dotT[$idx+$cols*$pdot3+25],$dotT[$idx+$cols*$pdot3+26],$dotT[$idx+$cols*$pdot3+27],$dotT[$idx+$cols*$pdot3+28],$dotT[$idx+$cols*$pdot3+29],$dotT[$idx+$cols*$pdot3+30],$dotT[$idx+$cols*$pdot3+31]);
$gYm3=spXYZ("Y",$dotT[$idx+$cols*$pdot3+1],$dotT[$idx+$cols*$pdot3+2],$dotT[$idx+$cols*$pdot3+3],$dotT[$idx+$cols*$pdot3+4],$dotT[$idx+$cols*$pdot3+5],$dotT[$idx+$cols*$pdot3+6],$dotT[$idx+$cols*$pdot3+7],$dotT[$idx+$cols*$pdot3+8],$dotT[$idx+$cols*$pdot3+9],$dotT[$idx+$cols*$pdot3+10],$dotT[$idx+$cols*$pdot3+11],$dotT[$idx+$cols*$pdot3+12],$dotT[$idx+$cols*$pdot3+13],$dotT[$idx+$cols*$pdot3+14],$dotT[$idx+$cols*$pdot3+15],$dotT[$idx+$cols*$pdot3+16],$dotT[$idx+$cols*$pdot3+17],$dotT[$idx+$cols*$pdot3+18],$dotT[$idx+$cols*$pdot3+19],$dotT[$idx+$cols*$pdot3+20],$dotT[$idx+$cols*$pdot3+21],$dotT[$idx+$cols*$pdot3+22],$dotT[$idx+$cols*$pdot3+23],$dotT[$idx+$cols*$pdot3+24],$dotT[$idx+$cols*$pdot3+25],$dotT[$idx+$cols*$pdot3+26],$dotT[$idx+$cols*$pdot3+27],$dotT[$idx+$cols*$pdot3+28],$dotT[$idx+$cols*$pdot3+29],$dotT[$idx+$cols*$pdot3+30],$dotT[$idx+$cols*$pdot3+31]);
$gZm3=spXYZ("Z",$dotT[$idx+$cols*$pdot3+1],$dotT[$idx+$cols*$pdot3+2],$dotT[$idx+$cols*$pdot3+3],$dotT[$idx+$cols*$pdot3+4],$dotT[$idx+$cols*$pdot3+5],$dotT[$idx+$cols*$pdot3+6],$dotT[$idx+$cols*$pdot3+7],$dotT[$idx+$cols*$pdot3+8],$dotT[$idx+$cols*$pdot3+9],$dotT[$idx+$cols*$pdot3+10],$dotT[$idx+$cols*$pdot3+11],$dotT[$idx+$cols*$pdot3+12],$dotT[$idx+$cols*$pdot3+13],$dotT[$idx+$cols*$pdot3+14],$dotT[$idx+$cols*$pdot3+15],$dotT[$idx+$cols*$pdot3+16],$dotT[$idx+$cols*$pdot3+17],$dotT[$idx+$cols*$pdot3+18],$dotT[$idx+$cols*$pdot3+19],$dotT[$idx+$cols*$pdot3+20],$dotT[$idx+$cols*$pdot3+21],$dotT[$idx+$cols*$pdot3+22],$dotT[$idx+$cols*$pdot3+23],$dotT[$idx+$cols*$pdot3+24],$dotT[$idx+$cols*$pdot3+25],$dotT[$idx+$cols*$pdot3+26],$dotT[$idx+$cols*$pdot3+27],$dotT[$idx+$cols*$pdot3+28],$dotT[$idx+$cols*$pdot3+29],$dotT[$idx+$cols*$pdot3+30],$dotT[$idx+$cols*$pdot3+31]);
$gLm3=xyz2lab01("l",$gXm3,$gYm3,$gZm3);
$gam3=xyz2lab01("a",$gXm3,$gYm3,$gZm3);
$gbm3=xyz2lab01("b",$gXm3,$gYm3,$gZm3);
$gdm3=DensitySp("K",$dotT[$idx+$cols*$pdot3+1],$dotT[$idx+$cols*$pdot3+2],$dotT[$idx+$cols*$pdot3+3],$dotT[$idx+$cols*$pdot3+4],$dotT[$idx+$cols*$pdot3+5],$dotT[$idx+$cols*$pdot3+6],$dotT[$idx+$cols*$pdot3+7],$dotT[$idx+$cols*$pdot3+8],$dotT[$idx+$cols*$pdot3+9],$dotT[$idx+$cols*$pdot3+10],$dotT[$idx+$cols*$pdot3+11],$dotT[$idx+$cols*$pdot3+12],$dotT[$idx+$cols*$pdot3+13],$dotT[$idx+$cols*$pdot3+14],$dotT[$idx+$cols*$pdot3+15],$dotT[$idx+$cols*$pdot3+16],$dotT[$idx+$cols*$pdot3+17],$dotT[$idx+$cols*$pdot3+18],$dotT[$idx+$cols*$pdot3+19],$dotT[$idx+$cols*$pdot3+20],$dotT[$idx+$cols*$pdot3+21],$dotT[$idx+$cols*$pdot3+22],$dotT[$idx+$cols*$pdot3+23],$dotT[$idx+$cols*$pdot3+24],$dotT[$idx+$cols*$pdot3+25],$dotT[$idx+$cols*$pdot3+26],$dotT[$idx+$cols*$pdot3+27],$dotT[$idx+$cols*$pdot3+28],$dotT[$idx+$cols*$pdot3+29],$dotT[$idx+$cols*$pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
}
// echo "note 2k: gL:".$gLm."_ga:".$gam."_gb:".$gbm."__gdm:".$gdm."__<br>";
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);
}
$dc76=de76($cl,$ca,$cb,$cLm,$cam,$cbm);
$dm76=de76($ml,$ma,$mb,$mLm,$mam,$mbm);
$dy76=de76($yl,$ya,$yb,$yLm,$yam,$ybm);
$dk76=de76($kl,$ka,$kb,$kLm,$kam,$kbm);
$dc761=de76($cl,$ca,$cb,$c1Lm,$c1am,$c1bm);
$dm761=de76($ml,$ma,$mb,$m1Lm,$m1am,$m1bm);
$dy761=de76($yl,$ya,$yb,$y1Lm,$y1am,$y1bm);
$dk761=de76($kl,$ka,$kb,$k1Lm,$k1am,$k1bm);
$dc762=de76($cl,$ca,$cb,$c2Lm,$c2am,$c2bm);
$dm762=de76($ml,$ma,$mb,$m2Lm,$m2am,$m2bm);
$dy762=de76($yl,$ya,$yb,$y2Lm,$y2am,$y2bm);
$dk762=de76($kl,$ka,$kb,$k2Lm,$k2am,$k2bm);
$dc763=de76($cl,$ca,$cb,$c3Lm,$c3am,$c3bm);
$dm763=de76($ml,$ma,$mb,$m3Lm,$m3am,$m3bm);
$dy763=de76($yl,$ya,$yb,$y3Lm,$y3am,$y3bm);
$dk763=de76($kl,$ka,$kb,$k3Lm,$k3am,$k3bm);
$dc76a=($dc76+$dc761+$dc762+$dc763)/4;
$dm76a=($dm76+$dm761+$dm762+$dm763)/4;
$dy76a=($dy76+$dy761+$dy762+$dy763)/4;
$dck6a=($dk76+$dk761+$dk762+$dk763)/4;
$dgl=58-$gLm;
$dga=($Pam/2)-$gam;
$dgb=($Pbm/2)-$gbm;
$df=sqrt(pow($dga,2)+pow($dgb,2));
$dt=50;
$wa=$Pam*(100-$dt)/100;
$wb=$Pbm*(100-$dt)/100;
//$df= pow((pow(($gam-$wa),2))+(pow(($gbm-$wb),2)),0.5)*(1-max(0,($dt-50)/50*0.75));
//$df50=$df;
// echo "df".$df."<br>";
?>
<?php
include 'graphFix.php';
include 'graphFix2.php';
include 'graphFix3.php';
include 'graphFix4.php';
GenGraph($cdm-$coptD,$mdm-$moptD,$ydm-$yoptD,$kdm-$koptD,$dc76,$dm76,$dy76,$dk76);
GenGraph2($c1dm-$coptD,$m1dm-$moptD,$y1dm-$yoptD,$k1dm-$koptD,$dc761,$dm761,$dy761,$dk761);
GenGraph3($c2dm-$coptD,$m2dm-$moptD,$y2dm-$yoptD,$k2dm-$koptD,$dc762,$dm762,$dy762,$dk762);
GenGraph4($c3dm-$coptD,$m3dm-$moptD,$y3dm-$yoptD,$k3dm-$koptD,$dc763,$dm763,$dy763,$dk763);
?>
<table>
<div>
<img src="graph.gif">
<img src="graph2.gif">
<img src="graph3.gif">
<img src="graph4.gif">
</div>
</table>
<table>
<div>
<?php
GenGraphT($c50TVI,$m50TVI,$y50TVI,$k50TVI);
GenGraphT2($c50TVI1,$m50TVI1,$y50TVI1,$k50TVI1);
GenGraphT3($c50TVI2,$m50TVI2,$y50TVI2,$k50TVI2);
GenGraphT4($c50TVI3,$m50TVI3,$y50TVI3,$k50TVI3);
?>
<img src="graphT.gif">
<img src="graphT2.gif">
<img src="graphT3.gif">
<img src="graphT4.gif">
</div>
</table>
<table width="200" border="1" align="center">
<tr>
<?php // content="text/plain; charset=utf-8"
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');
require_once ('../jpgraph/jpgraph_line.php');
require_once ('../jpgraph/jpgraph_plotline.php');
?>
<td>
<div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterC.png'); //graph 0
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');
$datax = array($c1dd,$c2dd,$c3dd,$c4dd,$c5dd,$c6dd,$c7dd,$c8dd,$c9dd,$c10dd,$c11dd,$c12dd,$c13dd,$c14dd,$c15dd,$c16dd,$c17dd,$c18dd,$c19dd,$c20dd,$c21dd,$c22dd,$c23dd,$c24dd,$c25dd,$c26dd,$c27dd,$c28dd,$c29dd,$c30dd);
$datay = array($dc176,$dc276,$dc376,$dc476,$dc576,$dc676,$dc776,$dc876,$dc976,$dc1076,$dc1176,$dc1276,$dc1376,$dc1476,$dc1576,$dc1676,$dc1776,$dc1876,$dc1976,$dc2076,$dc2176,$dc2276,$dc2376,$dc2476,$dc2576,$dc2676,$dc2776,$dc2876,$dc2976,$dc3076);
$dataxT = array($coptD,$cdm);
$datayT = array($cmin,$dec00);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("C scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
//$graph->xgrid->Show();
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"#00ffff",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#00ffff");
$sp2->mark->SetWidth(3);
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
$graph->Stroke('scatterC.png');
?>
<img src="scatterC.png">
</div>
</td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterM.png');
$datax = array($m1dd,$m2dd,$m3dd,$m4dd,$m5dd,$m6dd,$m7dd,$m8dd,$m9dd,$m10dd,$m11dd,$m12dd,$m13dd,$m14dd,$m15dd,$m16dd,$m17dd,$m18dd,$m19dd,$m20dd,$m21dd,$m22dd,$m23dd,$m24dd,$m25dd,$m26dd,$m27dd,$m28dd,$m29dd,$m30dd);
$datay = array($dm176,$dm276,$dm376,$dm476,$dm576,$dm676,$dm776,$dm876,$dm976,$dm1076,$dm1176,$dm1276,$dm1376,$dm1476,$dm1576,$dm1676,$dm1776,$dm1876,$dm1976,$dm2076,$dm2176,$dm2276,$dm2376,$dm2476,$dm2576,$dm2676,$dm2776,$dm2876,$dm2976,$dm3076);
$dataxT = array($moptD,$mdm);
$datayT = array($mmin,$dem00);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$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($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"#ff99ff",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#ff99ff");
$sp2->mark->SetWidth(3);
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
$graph->Stroke('scatterM.png');
?>
<img src="scatterM.png">
</div></td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterY.png');
$datax = array($y1dd,$y2dd,$y3dd,$y4dd,$y5dd,$y6dd,$y7dd,$y8dd,$y9dd,$y10dd,$y11dd,$y12dd,$y13dd,$y14dd,$y15dd,$y16dd,$y17dd,$y18dd,$y19dd,$y20dd,$y21dd,$y22dd,$y23dd,$y24dd,$y25dd,$y26dd,$y27dd,$y28dd,$y29dd,$y30dd);
$datay = array($dy176,$dy276,$dy376,$dy476,$dy576,$dy676,$dy776,$dy876,$dy976,$dy1076,$dy1176,$dy1276,$dy1376,$dy1476,$dy1576,$dy1676,$dy1776,$dy1876,$dy1976,$dy2076,$dy2176,$dy2276,$dy2376,$dy2476,$dy2576,$dy2676,$dy2776,$dy2876,$dy2976,$dy3076);
$dataxT = array($yoptD,$ydm);
$datayT = array($ymin,$dey00);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("Y scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
//$graph->xgrid->Show();
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"#ffff99",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#ffff99");
$sp2->mark->SetWidth(3);
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
$graph->Stroke('scatterY.png');
?>
<img src="scatterY.png">
</div></td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterK.png');
$datax = array($k1dd,$k2dd,$k3dd,$k4dd,$k5dd,$k6dd,$k7dd,$k8dd,$k9dd,$k10dd,$k11dd,$k12dd,$k13dd,$k14dd,$k15dd,$k16dd,$k17dd,$k18dd,$k19dd,$k20dd,$k21dd,$k22dd,$k23dd,$k24dd,$k25dd,$k26dd,$k27dd,$k28dd,$k29dd,$k30dd);
$datay = array($dk176,$dk276,$dk376,$dk476,$dk576,$dk676,$dk776,$dk876,$dk976,$dk1076,$dk1176,$dk1276,$dk1376,$dk1476,$dk1576,$dk1676,$dk1776,$dk1876,$dk1976,$dk2076,$dk2176,$dk2276,$dk2376,$dk2476,$dk2576,$dk2676,$dk2776,$dk2876,$dk2976,$dk3076);
//print_r($datax);
$dataxT = array($koptD,$kdm);
$datayT = array($kmin,$dek00);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$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($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"gray",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("gray");
$sp2->mark->SetWidth(3);
//$sp2->xgrid->Show();
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
//$graph->AddLine($line);
$graph->Stroke('scatterK.png');
?>
<img src="scatterK.png">
</div></td>
</tr>
</table>
<!--
<table width="200" border="1" align="center">
<tr>
<?php // content="text/plain; charset=utf-8"
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');
require_once ('../jpgraph/jpgraph_line.php');
require_once ('../jpgraph/jpgraph_plotline.php');
?>
<td>
<div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterC1.png'); ///graph 1
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');
$datax = array($ca1dd,$ca2dd,$ca3dd,$ca4dd,$ca5dd,$ca6dd,$ca7dd,$ca8dd,$ca9dd,$ca10dd,$ca11dd,$ca12dd,$ca13dd,$ca14dd,$ca15dd,$ca16dd,$ca17dd,$ca18dd,$ca19dd,$ca20dd,$ca21dd,$ca22dd,$ca23dd,$ca24dd,$ca25dd,$ca26dd,$ca27dd,$ca28dd,$ca29dd,$ca30dd);
$datay = array($dca176,$dca276,$dca376,$dca476,$dca576,$dca676,$dca776,$dca876,$dca976,$dca1076,$dca1176,$dca1276,$dca1376,$dca1476,$dca1576,$dca1676,$dca1776,$dca1876,$dca1976,$dca2076,$dca2176,$dca2276,$dca2376,$dca2476,$dca2576,$dca2676,$dca2776,$dca2876,$dca2976,$dca3076);
$dataxT = array($caoptD,$c1dm);
$datayT = array($camin,$dec100);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("C scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
//$graph->xgrid->Show();
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"#00ffff",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#00ffff");
$sp2->mark->SetWidth(3);
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
$graph->Stroke('scatterC1.png');
?>
<img src="scatterC1.png">
</div>
</td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterM1.png');
$datax = array($ma1dd,$ma2dd,$ma3dd,$ma4dd,$ma5dd,$ma6dd,$ma7dd,$ma8dd,$ma9dd,$ma10dd,$ma11dd,$ma12dd,$ma13dd,$ma14dd,$ma15dd,$ma16dd,$ma17dd,$ma18dd,$ma19dd,$ma20dd,$ma21dd,$ma22dd,$ma23dd,$ma24dd,$ma25dd,$ma26dd,$ma27dd,$ma28dd,$ma29dd,$ma30dd);
$datay = array($dma176,$dma276,$dma376,$dma476,$dma576,$dma676,$dma776,$dma876,$dma976,$dma1076,$dma1176,$dma1276,$dma1376,$dma1476,$dma1576,$dma1676,$dma1776,$dma1876,$dma1976,$dma2076,$dma2176,$dma2276,$dma2376,$dma2476,$dma2576,$dma2676,$dma2776,$dma2876,$dma2976,$dma3076);
$dataxT = array($maoptD,$m1dm);
$datayT = array($mamin,$dem100);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$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($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"#ff99ff",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#ff99ff");
$sp2->mark->SetWidth(3);
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
$graph->Stroke('scatterM1.png');
?>
<img src="scatterM1.png">
</div></td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterY1.png');
$datax = array($ya1dd,$ya2dd,$ya3dd,$ya4dd,$ya5dd,$ya6dd,$ya7dd,$ya8dd,$ya9dd,$ya10dd,$ya11dd,$ya12dd,$ya13dd,$ya14dd,$ya15dd,$ya16dd,$ya17dd,$ya18dd,$ya19dd,$ya20dd,$ya21dd,$ya22dd,$ya23dd,$ya24dd,$ya25dd,$ya26dd,$ya27dd,$ya28dd,$ya29dd,$ya30dd);
$datay = array($dya176,$dya276,$dya376,$dya476,$dya576,$dya676,$dya776,$dya876,$dya976,$dya1076,$dya1176,$dya1276,$dya1376,$dya1476,$dya1576,$dya1676,$dya1776,$dya1876,$dya1976,$dya2076,$dya2176,$dya2276,$dya2376,$dya2476,$dya2576,$dya2676,$dya2776,$dya2876,$dya2976,$dya3076);
$dataxT = array($yaoptD,$y1dm);
$datayT = array($yamin,$dey100);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("Y scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
//$graph->xgrid->Show();
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"#ffff99",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#ffff99");
$sp2->mark->SetWidth(3);
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
$graph->Stroke('scatterY1.png');
?>
<img src="scatterY1.png">
</div></td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterK1.png');
echo "ka1dd:".$ka1dd;
$datax = array($ka1dd,$ka2dd,$ka3dd,$ka4dd,$ka5dd,$ka6dd,$ka7dd,$ka8dd,$ka9dd,$ka10dd,$ka11dd,$ka12dd,$ka13dd,$ka14dd,$ka15dd,$ka16dd,$ka17dd,$ka18dd,$ka19dd,$ka20dd,$ka21dd,$ka22dd,$ka23dd,$ka24dd,$ka25dd,$ka26dd,$ka27dd,$ka28dd,$ka29dd,$ka30dd);
$datay = array($dka176,$dka276,$dka376,$dka476,$dka576,$dka676,$dka776,$dka876,$dka976,$dka1076,$dka1176,$dka1276,$dka1376,$dka1476,$dka1576,$dka1676,$dka1776,$dka1876,$dka1976,$dka2076,$dka2176,$dka2276,$dka2376,$dka2476,$dka2576,$dka2676,$dka2776,$dka2876,$dka2976,$dka3076);
$dataxT = array($kaoptD,$k1dm);
$datayT = array($kamin,$dek100);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$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($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"gray",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("gray");
$sp2->mark->SetWidth(3);
//$sp2->xgrid->Show();
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
//$graph->AddLine($line);
$graph->Stroke('scatterK1.png');
?>
<img src="scatterK1.png">
</div></td>
</tr>
</table>
<table width="200" border="1" align="center">
<tr>
<?php // content="text/plain; charset=utf-8"
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');
require_once ('../jpgraph/jpgraph_line.php');
require_once ('../jpgraph/jpgraph_plotline.php');
?>
<td>
<div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterC2.png'); ////graph 2
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');
$datax = array($cb1dd,$cb2dd,$cb3dd,$cb4dd,$cb5dd,$cb6dd,$cb7dd,$cb8dd,$cb9dd,$cb10dd,$cb11dd,$cb12dd,$cb13dd,$cb14dd,$cb15dd,$cb16dd,$cb17dd,$cb18dd,$cb19dd,$cb20dd,$cb21dd,$cb22dd,$cb23dd,$cb24dd,$cb25dd,$cb26dd,$cb27dd,$cb28dd,$cb29dd,$cb30dd);
$datay = array($dcb176,$dcb276,$dcb376,$dcb476,$dcb576,$dcb676,$dcb776,$dcb876,$dcb976,$dcb1076,$dcb1176,$dcb1276,$dcb1376,$dcb1476,$dcb1576,$dcb1676,$dcb1776,$dcb1876,$dcb1976,$dcb2076,$dcb2176,$dcb2276,$dcb2376,$dcb2476,$dcb2576,$dcb2676,$dcb2776,$dcb2876,$dcb2976,$dcb3076);
$dataxT = array($cboptD,$c2dm);
$datayT = array($cbmin,$dec200);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("C scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
//$graph->xgrid->Show();
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"#00ffff",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#00ffff");
$sp2->mark->SetWidth(3);
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
$graph->Stroke('scatterC2.png');
?>
<img src="scatterC2.png">
</div>
</td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterM2.png');
$datax = array($mb1dd,$mb2dd,$mb3dd,$mb4dd,$mb5dd,$mb6dd,$mb7dd,$mb8dd,$mb9dd,$mb10dd,$mb11dd,$mb12dd,$mb13dd,$mb14dd,$mb15dd,$mb16dd,$mb17dd,$mb18dd,$mb19dd,$mb20dd,$mb21dd,$mb22dd,$mb23dd,$mb24dd,$mb25dd,$mb26dd,$mb27dd,$mb28dd,$mb29dd,$mb30dd);
$datay = array($dmb176,$dmb276,$dmb376,$dmb476,$dmb576,$dmb676,$dmb776,$dmb876,$dmb976,$dmb1076,$dmb1176,$dmb1276,$dmb1376,$dmb1476,$dmb1576,$dmb1676,$dmb1776,$dmb1876,$dmb1976,$dmb2076,$dmb2176,$dmb2276,$dmb2376,$dmb2476,$dmb2576,$dmb2676,$dmb2776,$dmb2876,$dmb2976,$dmb3076);
$dataxT = array($mboptD,$m2dm);
$datayT = array($mbmin,$dem200);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$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($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"#ff99ff",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#ff99ff");
$sp2->mark->SetWidth(3);
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
$graph->Stroke('scatterM2.png');
?>
<img src="scatterM2.png">
</div></td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterY2.png');
$datax = array($yb1dd,$yb2dd,$yb3dd,$yb4dd,$yb5dd,$yb6dd,$yb7dd,$yb8dd,$yb9dd,$yb10dd,$yb11dd,$yb12dd,$yb13dd,$yb14dd,$yb15dd,$yb16dd,$yb17dd,$yb18dd,$yb19dd,$yb20dd,$yb21dd,$yb22dd,$yb23dd,$yb24dd,$yb25dd,$yb26dd,$yb27dd,$yb28dd,$yb29dd,$yb30dd);
$datay = array($dyb176,$dyb276,$dyb376,$dyb476,$dyb576,$dyb676,$dyb776,$dyb876,$dyb976,$dyb1076,$dyb1176,$dyb1276,$dyb1376,$dyb1476,$dyb1576,$dyb1676,$dyb1776,$dyb1876,$dyb1976,$dyb2076,$dyb2176,$dyb2276,$dyb2376,$dyb2476,$dyb2576,$dyb2676,$dyb2776,$dyb2876,$dyb2976,$dyb3076);
$dataxT = array($yboptD,$y2dm);
$datayT = array($ybmin,$dey200);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("Y scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
//$graph->xgrid->Show();
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"#ffff99",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#ffff99");
$sp2->mark->SetWidth(3);
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
$graph->Stroke('scatterY2.png');
?>
<img src="scatterY2.png">
</div></td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterK2.png');
$datax = array($kb1dd,$kb2dd,$kb3dd,$kb4dd,$kb5dd,$kb6dd,$kb7dd,$kb8dd,$kb9dd,$kb10dd,$kb11dd,$kb12dd,$kb13dd,$kb14dd,$kb15dd,$kb16dd,$kb17dd,$kb18dd,$kb19dd,$kb20dd,$kb21dd,$kb22dd,$kb23dd,$kb24dd,$kb25dd,$kb26dd,$kb27dd,$kb28dd,$kb29dd,$kb30dd);
$datay = array($dkb176,$dkb276,$dkb376,$dkb476,$dkb576,$dkb676,$dkb776,$dkb876,$dkb976,$dkb1076,$dkb1176,$dkb1276,$dkb1376,$dkb1476,$dkb1576,$dkb1676,$dkb1776,$dkb1876,$dkb1976,$dkb2076,$dkb2176,$dkb2276,$dkb2376,$dkb2476,$dkb2576,$dkb2676,$dkb2776,$dkb2876,$dkb2976,$dkb3076);
//$dataxT = array(1.708,1.745);
$dataxT = array($kboptD,$k2dm);
$datayT = array($kbmin,$dek200);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$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($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"gray",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("gray");
$sp2->mark->SetWidth(3);
//$sp2->xgrid->Show();
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
//$graph->AddLine($line);
$graph->Stroke('scatterK2.png');
?>
<img src="scatterK2.png">
</div></td>
</tr>
</table>
-->
<table width="200" border="1" align="center">
<tr>
<td><div align="center"> id<?php echo $sNo;?></div></td>
<td><font color="#666666">P</td>
<td><font color="#666666">C</td>
<td><font color="#666666">M</td>
<td><font color="#666666">Y</td>
<td><font color="#666666">K</td>
<td>TVI</td>
<td><font color="#666666">C50</td>
<td>M50</td>
<td>Y50</td>
<td>K50</td>
<td>G7</td>
<td>GL</td>
<td>Ga</td>
<td>Gb</td>
</tr>
<tr bgcolor="#aaaaaa">
<td><div align="center">色差</div></td>
<td><div align="right"></div></td>
<td bgcolor="#00FFFF"><font color='<?php if ($dc76>5){echo "red";}else {echo "black";}?>'><div align="right"><?php $sum=$sum-$dc76a; echo round($dc76,2);?></div></td>
<td bgcolor="#FF99FF"><font color='<?php if ($dm76>5){echo "red";}else {echo "black";}?>'><div align="right"><?php $sum=$sum-$dm76a;echo round($dm76,2);?></div></td>
<td bgcolor="#FFFF99"><font color='<?php if ($dy76>5){echo "red";}else {echo "black";}?>'><div align="right"><?php $sum=$sum-$dy76a; echo round($dy76,2);?></div></td>
<td bgcolor="#aaaaaa"><font color='<?php if ($dk76>5){echo "red";}else {echo "black";}?>'><div align="right"><?php $sum=$sum-$dk76a; echo round($dk76,2);?></div></td>
<td bgcolor="#ffffff">TVI</td>
<td bgcolor="#00FFFF"><font color='<?php if ($c50TVI>4 or $c50TVI<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php $sum=$sum-((abs($c50TVI)+abs($c50TVI1)+abs($c50TVI2)+abs($c50TVI3))/4);echo round($c50TVI,2);?></div></td>
<td bgcolor="#FF99FF"><font color='<?php if ($m50TVI>4 or $m50TVI<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php $sum=$sum-((abs($m50TVI)+abs($m50TVI1)+abs($m50TVI2)+abs($m50TVI3))/4);echo round($m50TVI,2);?></div></td>
<td bgcolor="#FFFF99"><font color='<?php if ($y50TVI>4 or $y50TVI<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php $sum=$sum-((abs($y50TVI)+abs($y50TVI1)+abs($y50TVI2)+abs($y50TVI3))/4);echo round($y50TVI,2);?></div></td>
<td bgcolor="#aaaaaa"><font color='<?php if ($k50TVI>4 or $k50TVI<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php $sum=$sum-((abs($k50TVI)+abs($k50TVI1)+abs($k50TVI2)+abs($k50TVI3))/4); echo round($k50TVI,2);?></div></td>
<td bgcolor="#ffffff">G7</td>
<td><div align="right"><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'><?php echo round($dgl,2);?></div></td>
<td><div align="right"><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'><?php echo round($dga,2);?></div></td>
<td><div align="right"><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'><?php echo round($dgb,2);?></div></td>
</tr>
<tr>
<td><div align="center">Action</div></td>
<td bgcolor="#CCCCCC"><div align="right"></div></td>
<td bgcolor="#00FFFF"><div align="right"><?php if ($cLm-$cl>1) {echo "+";} elseif ($cLm-$cl<-1) {echo "-";} else {echo "*";}?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php if ($mLm-$ml>1) {echo "+";} elseif ($mLm-$ml<-1) {echo "-";} else {echo "*";}?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php if ($yLm-$yl>1) {echo "+";} elseif ($yLm-$yl<-1) {echo "-";} else {echo "*";}?></div></td>
<td bgcolor="#aaaaaa"><div align="right"><?php if ($kLm-$kl>1) {echo "+";} elseif ($kLm-$kl<-1) {echo "-";} else {echo "*";}?></div></td>
<td>TVI</td>
<td bgcolor="#00FFFF"><div align="right"><?php if ($c50TVI<0) {echo "+";} else {echo "-";}?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php if ($m50TVI<0) {echo "+";} else {echo "-";}?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php if ($y50TVI<0) {echo "+";} else {echo "-";}?></div></td>
<td bgcolor="#aaaaaa"><div align="right"><?php if ($k50TVI<0) {echo "+";} else {echo "-";}?></div></td>
<td>G7</td>
<td bgcolor="#00FFFF"><div align="right"><?php
if ($dgl<-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga<0.3 and $dga>-0.3 and $dgb>0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga>0.3 and $dgb>0.3) {
echo "+";}
elseif ($dgl<-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";}
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "+";}
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3 and $dgb<-0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";}
////////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<0.3 and $dga>-0.3 and $dgb>0.3) {
echo "";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>0.3 and $dgb>0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>0.3 and $dgb<-0.3) {
echo "";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and $dgb<-0.3) {
echo "";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "+";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";}
///////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dga<0.3 and $dga>-0.3 and $dgb>0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga>0.3 and $dgb>0.3) {
echo "---";}
elseif ($dgl>-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";}
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "--";}
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3 and $dgb<-0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";}
?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php
if ($dgl<-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+";}
elseif ($dgl<-0.3 and $dga<0.3 and $dga>-0.3 and $dgb>0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga>0.3 and $dgb>0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";}
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "++";}
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3 and $dgb<-0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "+";}
elseif ($dgl<-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";}
////////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb>0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<0.3 and $dga>-0.3 and $dgb>0.3) {
echo "";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>0.3 and $dgb>0.3) {
echo "+";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>0.3 and $dgb<-0.3) {
echo "+";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and $dgb<-0.3) {
echo "";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";}
///////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga<0.3 and $dga>-0.3 and $dgb>0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga>0.3 and $dgb>0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";}
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "-";}
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3 and $dgb<-0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";}
?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php
if ($dgl<-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+++";}
elseif ($dgl<-0.3 and $dga<0.3 and $dga>-0.3 and $dgb>0.3) {
echo "+++";}
elseif ($dgl<-0.3 and $dga>0.3 and $dgb>0.3) {
echo "+++";}
elseif ($dgl<-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";}
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "";}
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3 and $dgb<-0.3) {
echo "+";}
elseif ($dgl<-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "+";}
elseif ($dgl<-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";}
////////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<0.3 and $dga>-0.3 and $dgb>0.3) {
echo "+";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>0.3 and $dgb>0.3) {
echo "+";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>0.3 and $dgb<-0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and $dgb<-0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";}
///////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dga<0.3 and $dga>-0.3 and $dgb>0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dga>0.3 and $dgb>0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";}
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "---";}
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3 and $dgb<-0.3) {
echo "---";}
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";}
?></div></td>
</tr>
<tr>
<td><div align="center">量測濃度</div></td>
<td bgcolor="#CCCCCC"></td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($cdm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($mdm,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($ydm,2);?></div></td>
<td bgcolor="#daffc2"><div align="right"><?php echo round($kdm,2);?></div></td>
<td>分數</td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($c50dm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($m50dm,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($y50dm,2);?></div></td>
<td bgcolor="#daffc2"><div align="right"><?php echo round($k50dm,2);?></div></td>
</tr>
<tr>
<td><div align="center">預測濃度</div></td>
<td bgcolor="#CCCCCC"></td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($coptD,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($moptD,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($yoptD,2);?></div></td>
<td bgcolor="#daffc2"><div align="right"><?php echo round($koptD,2);?></div></td>
<td><?php echo round($sum,2);?></td>
</tr>
<tr>
<td><div align="center">最佳色差</div></td>
<td bgcolor="#CCCCCC"></td>
<td bgcolor="#00FFFF"><div align="right"><?php if ($cmin>5) {?><font color="red"><?php } echo round($cmin,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php if ($mmin>5) {?><font color="red"><?php } echo round($mmin,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php if ($ymin>5) {?><font color="red"><?php } echo round($ymin,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php if ($kmin>5) {?><font color="red"><?php } echo round($kmin,2);?></div></td>
<td>
<input type="submit" name="submit" value="Set OK">
</td>
</tr>
</table>
<tr></tr>
<?php
$connection = mysql_connect("127.0.0.1", "root", "fredsql") or die ("Unable to connect!");
mysql_query("SET NAMES 'utf8'");
$db = "tvicheck-st";
// select database
mysql_select_db($db) or die ("Unable to select database!");
$querys = "select po, sNo from Production where po='$po' ORDER BY id DESC LIMIT 1 ";
$results = mysql_query($querys) or die ("Error in query: $querys. " . mysql_error());
if (mysql_num_rows($results) > 0)
{
$row = mysql_fetch_object($results);
$sNo=$row->sNo+1;}
else { $sNo=1;}
// generate and execute query
$query = "INSERT INTO Production (po, Fscore, sNo, filename, target, ddate, pdate, press, paper, ink , cmmt, denC,denM,denY, denK, TVIc,TVIm, TVIy,TVIk,deg ) VALUES( '$po','$sum', '$sNo', '$filename','$target', NOW(), '$date_s', '$press', '$paper', '$ink', '$cmmt', '$cdm','$mdm', '$ydm', '$kdm', '$c50dm', '$m50dm', '$y50dm', '$k50dm', '$deg')";
//echo $query;
$result = mysql_query($query) or die ("Error in query: $query. " . mysql_error());
mysql_close($connection);
?>
</form>
<?php
}///////target process
else { ////2228
echo "content=1"."xx";
echo "2bd sec [26]:".$dot[26];
$Csum=100;
if ($okName=='') {
$connection = mysql_connect("127.0.0.1", "root", "fredsql") or die ("Unable to connect!");
mysql_query("SET NAMES 'utf8'");
$db = "tvicheck-st";
// select database
mysql_select_db($db) or die ("Unable to select database!");
$querys = "select okName from Production where po='$po' and setOK='1' ORDER BY id DESC LIMIT 1 ";
$results = mysql_query($querys) or die ("Error in query: $querys. " . mysql_error());
if (mysql_num_rows($results) > 0)
{
$row = mysql_fetch_object($results);
$okName=$row->okName;}
mysql_close($connection);
}
echo "<br>印件目標:".$okName."<br>";
?>
<table width="200" border="0" align="center">
<tr><td>
<input size="15" maxlength="50" type="hidden" name="rtarget" value=<?php echo $f321;?> /></td>
</tr>
</table>
<p><p>
<?php
//////////////////////////////////////////////////Fogra Media Check
include 'densityV38.php';
include 'densityV.php';
if ($fMark>0) { /////////////////////////////////////////////////////////////////////////////////////////// i1 profiler go 572
$idx=6;
$cols=42;
}
elseif ($nm380>0) { ///color port
$idx=9;
$cols=45;}
else{
$idx=9;
$cols=40;
}
///////////////////////////////////////////////////////////////////////////////measure Part
//$cols=40;
$k1dd=0;
$Pdot=0;
//echo "Paper X".$dotT[$idx+$cols*$Pdot+1]."<br>";
if ($cols==45) {
$PXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$PYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$PZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$PLm=xyz2lab01("l",$PXm,$PYm,$PZm);
$Pam=xyz2lab01("a",$PXm,$PYm,$PZm);
$Pbm=xyz2lab01("b",$PXm,$PYm,$PZm);
$Pdm=DensitySp38("K",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);}
else {
$PXm=spXYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$PYm=spXYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$PZm=spXYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$PLm=xyz2lab01("l",$PXm,$PYm,$PZm);
$Pam=xyz2lab01("a",$PXm,$PYm,$PZm);
$Pbm=xyz2lab01("b",$PXm,$PYm,$PZm);
$Pdm=DensitySp("K",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);}
// echo "xyz x:".$PXm."_y:".$PYm."_z:".$PZm;
// echo "dot-10:".$dotT[$idx+$cols*$Pdot+1]."_dot-40:".$dotT[$idx+$cols*$Pdot+31];
// echo "<BR>note 2k: PL:".$PLm."_Pa:".$Pam."_Pb:".$Pbm."__Pdm:".$Pdm."__<br>";
/////////////////////////////////c
$Pdot=1;$Pdot1=11;$Pdot2=21;$Pdot3=31;
if ($cols==45) {
// echo "C X".$dotT[$idx+$cols*$Pdot+1]."<br>";
$cXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$cYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$cZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$cLm=xyz2lab01("l",$cXm,$cYm,$cZm);
$cam=xyz2lab01("a",$cXm,$cYm,$cZm);
$cbm=xyz2lab01("b",$cXm,$cYm,$cZm);
$cdm=DensitySp38("C",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);}
else {
$cXm=spXYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$cYm=spXYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$cZm=spXYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$cLm=xyz2lab01("l",$cXm,$cYm,$cZm);
$cam=xyz2lab01("a",$cXm,$cYm,$cZm);
$cbm=xyz2lab01("b",$cXm,$cYm,$cZm);
$cdm=DensitySp("C",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
////////////////////////////pot1
$cXm1=spXYZ("X",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$cYm1=spXYZ("Y",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$cZm1=spXYZ("Z",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$cLm1=xyz2lab01("l",$cXm1,$cYm1,$cZm1);
$cam1=xyz2lab01("a",$cXm1,$cYm1,$cZm1);
$cbm1=xyz2lab01("b",$cXm1,$cYm1,$cZm1);
$cdm1=DensitySp("C",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
////////////////////////////////////////////pot2
$cXm2=spXYZ("X",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$cYm2=spXYZ("Y",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$cZm2=spXYZ("Z",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$cLm2=xyz2lab01("l",$cXm2,$cYm2,$cZm2);
$cam2=xyz2lab01("a",$cXm2,$cYm2,$cZm2);
$cbm2=xyz2lab01("b",$cXm2,$cYm2,$cZm2);
$cdm2=DensitySp("C",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
////////////////////////////////////////////pot3
$cXm3=spXYZ("X",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$cYm3=spXYZ("Y",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$cZm3=spXYZ("Z",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$cLm3=xyz2lab01("l",$cXm3,$cYm3,$cZm3);
$cam3=xyz2lab01("a",$cXm3,$cYm3,$cZm3);
$cbm3=xyz2lab01("b",$cXm3,$cYm3,$cZm3);
$cdm3=DensitySp("C",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
}
// echo "note 2k: CL:".$cLm."_Ca:".$cam."_Cb:".$cbm."__cdm:".$cdm."__<br>";
///////////////////////////////////////////m
$Pdot=2;$Pdot1=12;$Pdot2=22;$Pdot3=32;
if ($cols==45) {
$mXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$mYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$mZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$mLm=xyz2lab01("l",$mXm,$mYm,$mZm);
$mam=xyz2lab01("a",$mXm,$mYm,$mZm);
$mbm=xyz2lab01("b",$mXm,$mYm,$mZm);
$mdm=DensitySp38("M",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);}
else {
$mXm=spXYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$mYm=spXYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$mZm=spXYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$mLm=xyz2lab01("l",$mXm,$mYm,$mZm);
$mam=xyz2lab01("a",$mXm,$mYm,$mZm);
$mbm=xyz2lab01("b",$mXm,$mYm,$mZm);
$mdm=DensitySp("M",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
//////////////////////pot1
$mXm1=spXYZ("X",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$mYm1=spXYZ("Y",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$mZm1=spXYZ("Z",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$mLm1=xyz2lab01("l",$mXm1,$mYm1,$mZm1);
$mam1=xyz2lab01("a",$mXm1,$mYm1,$mZm1);
$mbm1=xyz2lab01("b",$mXm1,$mYm1,$mZm1);
$mdm1=DensitySp("M",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
///////////////////////pot2
$mXm2=spXYZ("X",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$mYm2=spXYZ("Y",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$mZm2=spXYZ("Z",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$mLm2=xyz2lab01("l",$mXm2,$mYm2,$mZm2);
$mam2=xyz2lab01("a",$mXm2,$mYm2,$mZm2);
$mbm2=xyz2lab01("b",$mXm2,$mYm2,$mZm2);
$mdm2=DensitySp("M",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
///////////////////////pot3
$mXm3=spXYZ("X",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$mYm3=spXYZ("Y",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$mZm3=spXYZ("Z",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$mLm3=xyz2lab01("l",$mXm3,$mYm3,$mZm3);
$mam3=xyz2lab01("a",$mXm3,$mYm3,$mZm3);
$mbm3=xyz2lab01("b",$mXm3,$mYm3,$mZm3);
$mdm3=DensitySp("M",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
}
// echo "note 2k: ML:".$mLm."_Ma:".$mam."_Mb:".$mbm."__Mdm:".$mdm."__<br>";
///////////////////////////////////////////y
$Pdot=3; $Pdot1=13;$Pdot2=23;$Pdot3=33;
if ($cols==45) {
$yXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$yYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$yZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$yLm=xyz2lab01("l",$yXm,$yYm,$yZm);
$yam=xyz2lab01("a",$yXm,$yYm,$yZm);
$ybm=xyz2lab01("b",$yXm,$yYm,$yZm);
$ydm=DensitySp38("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);}
else {
$yXm=spXYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$yYm=spXYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$yZm=spXYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$yLm=xyz2lab01("l",$yXm,$yYm,$yZm);
$yam=xyz2lab01("a",$yXm,$yYm,$yZm);
$ybm=xyz2lab01("b",$yXm,$yYm,$yZm);
$ydm=DensitySp("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
//////////////////////pot1
$yXm1=spXYZ("X",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$yYm1=spXYZ("Y",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$yZm1=spXYZ("Z",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$yLm1=xyz2lab01("l",$yXm1,$yYm1,$yZm1);
$yam1=xyz2lab01("a",$yXm1,$yYm1,$yZm1);
$ybm1=xyz2lab01("b",$yXm1,$yYm1,$yZm1);
$ydm1=DensitySp("Y",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
//////////////pot2
$yXm2=spXYZ("X",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$yYm2=spXYZ("Y",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$yZm2=spXYZ("Z",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$yLm2=xyz2lab01("l",$yXm2,$yYm2,$yZm2);
$yam2=xyz2lab01("a",$yXm2,$yYm2,$yZm2);
$ybm2=xyz2lab01("b",$yXm2,$yYm2,$yZm2);
$ydm2=DensitySp("Y",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
//////////////pot3
$yXm3=spXYZ("X",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$yYm3=spXYZ("Y",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$yZm3=spXYZ("Z",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$yLm3=xyz2lab01("l",$yXm3,$yYm3,$yZm3);
$yam3=xyz2lab01("a",$yXm3,$yYm3,$yZm3);
$ybm3=xyz2lab01("b",$yXm3,$yYm3,$yZm3);
$ydm3=DensitySp("Y",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
}
// echo "note 2k: YL:".$yLm."_Ya:".$yam."_Yb:".$ybm."__Ydm:".$ydm."__<br>";
///////////////////////////////////////////k
$Pdot=4;$Pdot1=14;$Pdot2=24;$Pdot3=34;
if ($cols==45) {
$kXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$kYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$kZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$kLm=xyz2lab01("l",$kXm,$kYm,$kZm);
$kam=xyz2lab01("a",$kXm,$kYm,$kZm);
$kbm=xyz2lab01("b",$kXm,$kYm,$kZm);
$kdm=DensitySp38("K",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);}
else {
$kXm=spXYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$kYm=spXYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$kZm=spXYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$kLm=xyz2lab01("l",$kXm,$kYm,$kZm);
$kam=xyz2lab01("a",$kXm,$kYm,$kZm);
$kbm=xyz2lab01("b",$kXm,$kYm,$kZm);
$kdm=DensitySp("K",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
///pot1
$kXm1=spXYZ("X",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$kYm1=spXYZ("Y",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$kZm1=spXYZ("Z",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$kLm1=xyz2lab01("l",$kXm1,$kYm1,$kZm1);
$kam1=xyz2lab01("a",$kXm1,$kYm1,$kZm1);
$kbm1=xyz2lab01("b",$kXm1,$kYm1,$kZm1);
$kdm1=DensitySp("K",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
//////////////////////////////pot2
$kXm2=spXYZ("X",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$kYm2=spXYZ("Y",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$kZm2=spXYZ("Z",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$kLm2=xyz2lab01("l",$kXm2,$kYm2,$kZm2);
$kam2=xyz2lab01("a",$kXm2,$kYm2,$kZm2);
$kbm2=xyz2lab01("b",$kXm2,$kYm2,$kZm2);
$kdm2=DensitySp("K",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
//////////////////////////////pot3
$kXm3=spXYZ("X",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$kYm3=spXYZ("Y",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$kZm3=spXYZ("Z",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$kLm3=xyz2lab01("l",$kXm3,$kYm3,$kZm3);
$kam3=xyz2lab01("a",$kXm3,$kYm3,$kZm3);
$kbm3=xyz2lab01("b",$kXm3,$kYm3,$kZm3);
$kdm3=DensitySp("K",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
}
// echo "note 2k: KL:".$kLm."_Ka:".$kam."_Kb:".$kbm."__Kdm:".$kdm."__<br>";
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// //////////////////////////////////Target Part///////////////////////////////////////////////////////////
//$cols=40;
$k1dd=0;
$Pdot=0;
//echo "Paper X".$dot[$idx+$cols*$Pdot+1]."<br>";
if ($colos==45) {
$PXt=sp38XYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$PYt=sp38XYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$PZt=sp38XYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$PLt=xyz2lab01("l",$PXt,$PYt,$PZt);
$Pat=xyz2lab01("a",$PXt,$PYt,$PZt);
$Pbt=xyz2lab01("b",$PXt,$PYt,$PZt);
$Pdt=DensitySp38("K",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);}
else {
$PXt=spXYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$PYt=spXYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$PZt=spXYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$PLt=xyz2lab01("l",$PXt,$PYt,$PZt);
$Pat=xyz2lab01("a",$PXt,$PYt,$PZt);
$Pbt=xyz2lab01("b",$PXt,$PYt,$PZt);
$Pdt=DensitySp("K",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);}
// echo "xyz x:".$PXm."_y:".$PYm."_z:".$PZm;
// echo "dot-10:".$dot[$idx+$cols*$Pdot+1]."_dot-40:".$dot[$idx+$cols*$Pdot+31];
// echo "<BR>note 2k: PL:".$PLm."_Pa:".$Pam."_Pb:".$Pbm."__Pdm:".$Pdm."__<br>";
/////////////////////////////////c
$Pdot=1;$Pdot1=11;$Pdot2=21;$Pdot3=31;
if ($cols==45) {
// echo "C X".$dot[$idx+$cols*$Pdot+1]."<br>";
$cXt=sp38XYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$cYt=sp38XYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$cZt=sp38XYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$cLt=xyz2lab01("l",$cXt,$cYt,$cZt);
$cat=xyz2lab01("a",$cXt,$cYt,$cZt);
$cbt=xyz2lab01("b",$cXt,$cYt,$cZt);
$cdt=DensitySp38("C",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);}
else {
$cXt=spXYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$cYt=spXYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$cZt=spXYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$cLt=xyz2lab01("l",$cXt,$cYt,$cZt);
$cat=xyz2lab01("a",$cXt,$cYt,$cZt);
$cbt=xyz2lab01("b",$cXt,$cYt,$cZt);
$cdt=DensitySp("C",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
/////pot1
$cXt1=spXYZ("X",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$cYt1=spXYZ("Y",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$cZt1=spXYZ("Z",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$cLt1=xyz2lab01("l",$cXt1,$cYt1,$cZt1);
$cat1=xyz2lab01("a",$cXt1,$cYt1,$cZt1);
$cbt1=xyz2lab01("b",$cXt1,$cYt1,$cZt1);
$cdt1=DensitySp("C",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
///////////////////////////pot2
$cXt2=spXYZ("X",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$cYt2=spXYZ("Y",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$cZt2=spXYZ("Z",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$cLt2=xyz2lab01("l",$cXt2,$cYt2,$cZt2);
$cat2=xyz2lab01("a",$cXt2,$cYt2,$cZt2);
$cbt2=xyz2lab01("b",$cXt2,$cYt2,$cZt2);
$cdt2=DensitySp("C",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
///////////////////////////pot3
$cXt3=spXYZ("X",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$cYt3=spXYZ("Y",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$cZt3=spXYZ("Z",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$cLt3=xyz2lab01("l",$cXt3,$cYt3,$cZt3);
$cat3=xyz2lab01("a",$cXt3,$cYt3,$cZt3);
$cbt3=xyz2lab01("b",$cXt3,$cYt3,$cZt3);
$cdt3=DensitySp("C",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
}
//echo "note Target: CL:".$cLt."_Ca:".$cat."_Cb:".$cbt."__cdm:".$cdt."__<br>";
///////////////////////////////////////////m
$Pdot=2;$Pdot1=12;$Pdot2=22;$Pdot3=32;
if ($cols==45) {
$mXt=sp38XYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$mYt=sp38XYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$mZt=sp38XYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$mLt=xyz2lab01("l",$mXt,$mYt,$mZt);
$mat=xyz2lab01("a",$mXt,$mYt,$mZt);
$mbt=xyz2lab01("b",$mXt,$mYt,$mZt);
$mdt=DensitySp38("M",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);}
else {
$mXt=spXYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$mYt=spXYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$mZt=spXYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$mLt=xyz2lab01("l",$mXt,$mYt,$mZt);
$mat=xyz2lab01("a",$mXt,$mYt,$mZt);
$mbt=xyz2lab01("b",$mXt,$mYt,$mZt);
$mdt=DensitySp("M",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
/////pot1
$mXt1=spXYZ("X",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$mYt1=spXYZ("Y",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$mZt1=spXYZ("Z",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$mLt1=xyz2lab01("l",$mXt1,$mYt1,$mZt1);
$mat1=xyz2lab01("a",$mXt1,$mYt1,$mZt1);
$mbt1=xyz2lab01("b",$mXt1,$mYt1,$mZt1);
$mdt1=DensitySp("M",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
///////////////////////pot2
$mXt2=spXYZ("X",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$mYt2=spXYZ("Y",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$mZt2=spXYZ("Z",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$mLt2=xyz2lab01("l",$mXt2,$mYt2,$mZt2);
$mat2=xyz2lab01("a",$mXt2,$mYt2,$mZt2);
$mbt2=xyz2lab01("b",$mXt2,$mYt2,$mZt2);
$mdt2=DensitySp("M",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
///////////////////////pot3
$mXt3=spXYZ("X",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$mYt3=spXYZ("Y",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$mZt3=spXYZ("Z",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$mLt3=xyz2lab01("l",$mXt3,$mYt3,$mZt3);
$mat3=xyz2lab01("a",$mXt3,$mYt3,$mZt3);
$mbt3=xyz2lab01("b",$mXt3,$mYt3,$mZt3);
$mdt3=DensitySp("M",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
}
// echo "note 2k: ML:".$mLm."_Ma:".$mam."_Mb:".$mbm."__Mdm:".$mdm."__<br>";
///////////////////////////////////////////y
$Pdot=3; $Pdot1=13;$Pdot2=23;$Pdot3=33;
if ($cols==45) {
$yXt=sp38XYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$yYt=sp38XYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$yZt=sp38XYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$yLt=xyz2lab01("l",$yXt,$yYt,$yZt);
$yat=xyz2lab01("a",$yXt,$yYt,$yZt);
$ybt=xyz2lab01("b",$yXt,$yYt,$yZt);
$ydt=DensitySp38("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);}
else {
$yXt=spXYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$yYt=spXYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$yZt=spXYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$yLt=xyz2lab01("l",$yXt,$yYt,$yZt);
$yat=xyz2lab01("a",$yXt,$yYt,$yZt);
$ybt=xyz2lab01("b",$yXt,$yYt,$yZt);
$ydt=DensitySp("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
///pot1
$yXt1=spXYZ("X",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$yYt1=spXYZ("Y",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$yZt1=spXYZ("Z",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$yLt1=xyz2lab01("l",$yXt1,$yYt1,$yZt1);
$yat1=xyz2lab01("a",$yXt1,$yYt1,$yZt1);
$ybt1=xyz2lab01("b",$yXt1,$yYt1,$yZt1);
$ydt1=DensitySp("Y",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
/////pot2
$yXt2=spXYZ("X",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$yYt2=spXYZ("Y",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$yZt2=spXYZ("Z",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$yLt2=xyz2lab01("l",$yXt2,$yYt2,$yZt2);
$yat2=xyz2lab01("a",$yXt2,$yYt2,$yZt2);
$ybt2=xyz2lab01("b",$yXt2,$yYt2,$yZt2);
$ydt2=DensitySp("Y",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
/////pot3
$yXt3=spXYZ("X",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$yYt3=spXYZ("Y",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$yZt3=spXYZ("Z",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$yLt3=xyz2lab01("l",$yXt3,$yYt3,$yZt3);
$yat3=xyz2lab01("a",$yXt3,$yYt3,$yZt3);
$ybt3=xyz2lab01("b",$yXt3,$yYt3,$yZt3);
$ydt3=DensitySp("Y",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
}
// echo "note 2k: YL:".$yLm."_Ya:".$yam."_Yb:".$ybm."__Ydm:".$ydm."__<br>";
///////////////////////////////////////////k
$Pdot=4;$Pdot1=14;$Pdot2=24;$Pdot3=34;
if ($cols==45) {
$kXt=sp38XYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$kYt=sp38XYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$kZt=sp38XYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$kLt=xyz2lab01("l",$kXt,$kYt,$kZt);
$kat=xyz2lab01("a",$kXt,$kYt,$kZt);
$kbt=xyz2lab01("b",$kXt,$kYt,$kZt);
$kdt=DensitySp38("K",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);}
else {
$kXt=spXYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$kYt=spXYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$kZt=spXYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$kLt=xyz2lab01("l",$kXt,$kYt,$kZt);
$kat=xyz2lab01("a",$kXt,$kYt,$kZt);
$kbt=xyz2lab01("b",$kXt,$kYt,$kZt);
$kdt=DensitySp("K",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
/////pot1
$kXt1=spXYZ("X",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$kYt1=spXYZ("Y",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$kZt1=spXYZ("Z",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$kLt1=xyz2lab01("l",$kXt1,$kYt1,$kZt1);
$kat1=xyz2lab01("a",$kXt1,$kYt1,$kZt1);
$kbt1=xyz2lab01("b",$kXt1,$kYt1,$kZt1);
$kdt1=DensitySp("K",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
////pot2
$kXt2=spXYZ("X",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$kYt2=spXYZ("Y",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$kZt2=spXYZ("Z",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$kLt2=xyz2lab01("l",$kXt2,$kYt2,$kZt2);
$kat2=xyz2lab01("a",$kXt2,$kYt2,$kZt2);
$kbt2=xyz2lab01("b",$kXt2,$kYt2,$kZt2);
$kdt2=DensitySp("K",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
////pot3
$kXt3=spXYZ("X",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$kYt3=spXYZ("Y",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$kZt3=spXYZ("Z",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$kLt3=xyz2lab01("l",$kXt3,$kYt3,$kZt3);
$kat3=xyz2lab01("a",$kXt3,$kYt3,$kZt3);
$kbt3=xyz2lab01("b",$kXt3,$kYt3,$kZt3);
$kdt3=DensitySp("K",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
}
// echo "note 2k: KL:".$kLm."_Ka:".$kam."_Kb:".$kbm."__Kdm:".$kdm."__<br>";
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////sec K
include 'dE00.php';
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);
}
///////////////////////////////////////////////////////////////////////////////////////////////
$psum=20;
$pl=95; $pa=-0.01;$pb=-2;
$cl=$cLt; $ca=$cat;$cb=$cbt;
$ml=$mLt; $ma=$mat;$mb=$mbt;
$yl=$yLt; $ya=$yat;$yb=$ybt;
$kl=$kLt; $ka=$kat;$kb=$kbt;
//echo "de:".$cLt."cx".$cat."cx".$cbt."cx".$cLm."cx".$cam."cx".$cbm;
$tt00=de76(55,-37,-50,54.3,-34.47,-52.63);
$dek00=de76($kLt,$kat,$kbt,$kLm,$kam,$kbm);
$dec00=de76($cLt,$cat,$cbt,$cLm,$cam,$cbm);
$dem00=de76($mLt,$mat,$mbt,$mLm,$mam,$mbm);
$dey00=de76($yLt,$yat,$ybt,$yLm,$yam,$ybm);
$dek001=de76($kLt1,$kat1,$kbt1,$kLm1,$kam1,$kbm1);
$dec001=de76($cLt1,$cat1,$cbt1,$cLm1,$cam1,$cbm1);
$dem001=de76($mLt1,$mat1,$mbt1,$mLm1,$mam1,$mbm1);
$dey001=de76($yLt1,$yat1,$ybt1,$yLm1,$yam1,$ybm1);
$dek002=de76($kLt2,$kat2,$kbt2,$kLm2,$kam2,$kbm2);
$dec002=de76($cLt2,$cat2,$cbt2,$cLm2,$cam2,$cbm2);
$dem002=de76($mLt2,$mat2,$mbt2,$mLm2,$mam2,$mbm2);
$dey002=de76($yLt2,$yat2,$ybt2,$yLm2,$yam2,$ybm2);
$dek003=de76($kLt3,$kat3,$kbt3,$kLm3,$kam3,$kbm3);
$dec003=de76($cLt3,$cat3,$cbt3,$cLm3,$cam3,$cbm3);
$dem003=de76($mLt3,$mat3,$mbt3,$mLm3,$mam3,$mbm3);
$dey003=de76($yLt3,$yat3,$ybt3,$yLm3,$yam3,$ybm3);
// $dk194=de94($kl,$ka,$kb,$k1l,$k1a,$k1b);
?>
<?php
$link = mysql_connect("127.0.0.1", "root", "fredsql") or die ("Unable to connect!");
mysql_query("SET NAMES 'utf8'");
$db = "tvicheck-st";
// select database
mysql_select_db($db) or die ("Unable to select database!");
// generate and execute query
$querys = "select po, sNo from Production where po='$po' ORDER BY id DESC LIMIT 1 ";
$results = mysql_query($querys) or die ("Error in query: $querys. " . mysql_error());
if (mysql_num_rows($results) > 0)
{
$row = mysql_fetch_object($results);
$sNo=$row->sNo+1;}
else { $sNo=1;}
mysql_close($link);
?>
<?php
////////////////////////////////////Measure part
////////////////////////c50
$Pdot=5;$Pdot1=15;$Pdot2=25;$Pdot3=35;
if ($cols==45) {
$c50Xm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$c50Ym=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$c50Zm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$c50Lm=xyz2lab01("l",$c50Xm,$c50Ym,$c50Zm);
$c50am=xyz2lab01("a",$c50Xm,$c50Ym,$c50Zm);
$c50bm=xyz2lab01("b",$c50Xm,$c50Ym,$c50Zm);
$c50dm=DensitySp38("C",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);}
else {
$c50Xm=spXYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$c50Ym=spXYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$c50Zm=spXYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$c50Lm=xyz2lab01("l",$c50Xm,$c50Ym,$c50Zm);
$c50am=xyz2lab01("a",$c50Xm,$c50Ym,$c50Zm);
$c50bm=xyz2lab01("b",$c50Xm,$c50Ym,$c50Zm);
$c50dm=DensitySp("C",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
////////////////////////////pot1
$c50Xm1=spXYZ("X",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$c50Ym1=spXYZ("Y",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$c50Zm1=spXYZ("Z",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$c50Lm1=xyz2lab01("l",$c50Xm1,$c50Ym1,$c50Zm1);
$c50am1=xyz2lab01("a",$c50Xm1,$c50Ym1,$c50Zm1);
$c50bm1=xyz2lab01("b",$c50Xm1,$c50Ym1,$c50Zm1);
$c50dm1=DensitySp("C",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
/////////pot2
$c50Xm2=spXYZ("X",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$c50Ym2=spXYZ("Y",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$c50Zm2=spXYZ("Z",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$c50Lm2=xyz2lab01("l",$c50Xm2,$c50Ym2,$c50Zm2);
$c50am2=xyz2lab01("a",$c50Xm2,$c50Ym2,$c50Zm2);
$c50bm2=xyz2lab01("b",$c50Xm2,$c50Ym2,$c50Zm2);
$c50dm2=DensitySp("C",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
/////////pot3
$c50Xm3=spXYZ("X",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$c50Ym3=spXYZ("Y",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$c50Zm3=spXYZ("Z",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$c50Lm3=xyz2lab01("l",$c50Xm3,$c50Ym3,$c50Zm3);
$c50am3=xyz2lab01("a",$c50Xm3,$c50Ym3,$c50Zm3);
$c50bm3=xyz2lab01("b",$c50Xm3,$c50Ym3,$c50Zm3);
$c50dm3=DensitySp("C",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
}
$c50TV=(((1-(pow(10,(-($c50dm-$Pdm)))))/(1-(pow(10,(-($cdm-$Pdm)))))))*100;
$c50TVI=round(($c50TV-64),2);
$c50TV1=(((1-(pow(10,(-($c50dm1-$Pdm)))))/(1-(pow(10,(-($cdm1-$Pdm)))))))*100;
$c50TVI1=round(($c50TV1-64),2);
$c50TV2=(((1-(pow(10,(-($c50dm2-$Pdm)))))/(1-(pow(10,(-($cdm2-$Pdm)))))))*100;
$c50TVI2=round(($c50TV2-64),2);
$c50TV3=(((1-(pow(10,(-($c50dm3-$Pdm)))))/(1-(pow(10,(-($cdm3-$Pdm)))))))*100;
$c50TVI3=round(($c50TV3-64),2);
// echo "c50Lt:".$c50Lm."TV=".$c50am."TV=".$c50bm."__<br>";
////////////////////////m50
$Pdot=6;$Pdot1=16;$Pdot2=26;$Pdot3=36;
if ($cols==45) {
$m50Xm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$m50Ym=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$m50Zm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$m50Lm=xyz2lab01("l",$m50Xm,$m50Ym,$m50Zm);
$m50am=xyz2lab01("a",$m50Xm,$m50Ym,$m50Zm);
$m50bm=xyz2lab01("b",$m50Xm,$m50Ym,$m50Zm);
$m50dm=DensitySp38("M",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);}
else {
$m50Xm=spXYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$m50Ym=spXYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$m50Zm=spXYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$m50Lm=xyz2lab01("l",$m50Xm,$m50Ym,$m50Zm);
$m50am=xyz2lab01("a",$m50Xm,$m50Ym,$m50Zm);
$m50bm=xyz2lab01("b",$m50Xm,$m50Ym,$m50Zm);
$m50dm=DensitySp("M",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
////pot1
$m50Xm1=spXYZ("X",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$m50Ym1=spXYZ("Y",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$m50Zm1=spXYZ("Z",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$m50Lm1=xyz2lab01("l",$m50Xm1,$m50Ym1,$m50Zm1);
$m50am1=xyz2lab01("a",$m50Xm1,$m50Ym1,$m50Zm1);
$m50bm1=xyz2lab01("b",$m50Xm1,$m50Ym1,$m50Zm1);
$m50dm1=DensitySp("M",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
////pot2
$m50Xm2=spXYZ("X",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$m50Ym2=spXYZ("Y",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$m50Zm2=spXYZ("Z",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$m50Lm2=xyz2lab01("l",$m50Xm2,$m50Ym2,$m50Zm2);
$m50am2=xyz2lab01("a",$m50Xm2,$m50Ym2,$m50Zm2);
$m50bm2=xyz2lab01("b",$m50Xm2,$m50Ym2,$m50Zm2);
$m50dm2=DensitySp("M",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
////pot3
$m50Xm3=spXYZ("X",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$m50Ym3=spXYZ("Y",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$m50Zm3=spXYZ("Z",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$m50Lm3=xyz2lab01("l",$m50Xm3,$m50Ym3,$m50Zm3);
$m50am3=xyz2lab01("a",$m50Xm3,$m50Ym3,$m50Zm3);
$m50bm3=xyz2lab01("b",$m50Xm3,$m50Ym3,$m50Zm3);
$m50dm3=DensitySp("M",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
}
$m50TV=(((1-(pow(10,(-($m50dm-$Pdm)))))/(1-(pow(10,(-($mdm-$Pdm)))))))*100;
$m50TVI=round(($m50TV-64),2);
$m50TV1=(((1-(pow(10,(-($m50dm1-$Pdm)))))/(1-(pow(10,(-($mdm1-$Pdm)))))))*100;
$m50TVI1=round(($m50TV1-64),2);
$m50TV2=(((1-(pow(10,(-($m50dm2-$Pdm)))))/(1-(pow(10,(-($mdm2-$Pdm)))))))*100;
$m50TVI2=round(($m50TV2-64),2);
$m50TV3=(((1-(pow(10,(-($m50dm3-$Pdm)))))/(1-(pow(10,(-($mdm3-$Pdm)))))))*100;
$m50TVI3=round(($m50TV3-64),2);
//echo "m50dm:".$m50dm."TV=".$m50TVI."__<br>";
////////////////////////y50
$Pdot=7;$Pdot1=17;$Pdot2=27;$Pdot3=37;
if ($cols==45) {
$y50Xm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$y50Ym=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$y50Zm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$y50Lm=xyz2lab01("l",$y50Xm,$y50Ym,$y50Zm);
$y50am=xyz2lab01("a",$y50Xm,$y50Ym,$y50Zm);
$y50bm=xyz2lab01("b",$y50Xm,$y50Ym,$y50Zm);
$y50dm=DensitySp38("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);}
else {
$y50Xm=spXYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$y50Ym=spXYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$y50Zm=spXYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$y50Lm=xyz2lab01("l",$y50Xm,$y50Ym,$y50Zm);
$y50am=xyz2lab01("a",$y50Xm,$y50Ym,$y50Zm);
$y50bm=xyz2lab01("b",$y50Xm,$y50Ym,$y50Zm);
$y50dm=DensitySp("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
////pot1
$y50Xm1=spXYZ("X",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$y50Ym1=spXYZ("Y",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$y50Zm1=spXYZ("Z",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$y50Lm1=xyz2lab01("l",$y50Xm1,$y50Ym1,$y50Zm1);
$y50am1=xyz2lab01("a",$y50Xm1,$y50Ym1,$y50Zm1);
$y50bm1=xyz2lab01("b",$y50Xm1,$y50Ym1,$y50Zm1);
$y50dm1=DensitySp("Y",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
////pot2
$y50Xm2=spXYZ("X",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$y50Ym2=spXYZ("Y",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$y50Zm2=spXYZ("Z",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$y50Lm2=xyz2lab01("l",$y50Xm2,$y50Ym2,$y50Zm2);
$y50am2=xyz2lab01("a",$y50Xm2,$y50Ym2,$y50Zm2);
$y50bm2=xyz2lab01("b",$y50Xm2,$y50Ym2,$y50Zm2);
$y50dm2=DensitySp("Y",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
////pot3
$y50Xm3=spXYZ("X",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$y50Ym3=spXYZ("Y",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$y50Zm3=spXYZ("Z",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$y50Lm3=xyz2lab01("l",$y50Xm3,$y50Ym3,$y50Zm3);
$y50am3=xyz2lab01("a",$y50Xm3,$y50Ym3,$y50Zm3);
$y50bm3=xyz2lab01("b",$y50Xm3,$y50Ym3,$y50Zm3);
$y50dm3=DensitySp("Y",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
}
$y50TV=(((1-(pow(10,(-($y50dm-$Pdm)))))/(1-(pow(10,(-($ydm-$Pdm)))))))*100;
$y50TVI=round(($y50TV-64),2);
$y50TV1=(((1-(pow(10,(-($y50dm1-$Pdm)))))/(1-(pow(10,(-($ydm1-$Pdm)))))))*100;
$y50TVI1=round(($y50TV1-64),2);
$y50TV2=(((1-(pow(10,(-($y50dm2-$Pdm)))))/(1-(pow(10,(-($ydm2-$Pdm)))))))*100;
$y50TVI2=round(($y50TV2-64),2);
$y50TV3=(((1-(pow(10,(-($y50dm3-$Pdm)))))/(1-(pow(10,(-($ydm3-$Pdm)))))))*100;
$y50TVI3=round(($y50TV3-64),2);
//echo "y50dm:".$y50dm."TV=".$y50TVI."__<br>";
////////////////////////k50
$Pdot=8;$Pdot1=18;$Pdot2=28;$Pdot3=38;
if ($cols==45) {
$k50Xm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$k50Ym=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$k50Zm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$k50Lm=xyz2lab01("l",$k50Xm,$k50Ym,$k50Zm);
$k50am=xyz2lab01("a",$k50Xm,$k50Ym,$k50Zm);
$k50bm=xyz2lab01("b",$k50Xm,$k50Ym,$k50Zm);
$k50dm=DensitySp38("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);}
else {
$k50Xm=spXYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$k50Ym=spXYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$k50Zm=spXYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$k50Lm=xyz2lab01("l",$k50Xm,$k50Ym,$k50Zm);
$k50am=xyz2lab01("a",$k50Xm,$k50Ym,$k50Zm);
$k50bm=xyz2lab01("b",$k50Xm,$k50Ym,$k50Zm);
$k50dm=DensitySp("K",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
////pot1
$k50Xm1=spXYZ("X",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$k50Ym1=spXYZ("Y",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$k50Zm1=spXYZ("Z",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
$k50Lm1=xyz2lab01("l",$k50Xm1,$k50Ym1,$k50Zm1);
$k50am1=xyz2lab01("a",$k50Xm1,$k50Ym1,$k50Zm1);
$k50bm1=xyz2lab01("b",$k50Xm1,$k50Ym1,$k50Zm1);
$k50dm1=DensitySp("K",$dotT[$idx+$cols*$Pdot1+1],$dotT[$idx+$cols*$Pdot1+2],$dotT[$idx+$cols*$Pdot1+3],$dotT[$idx+$cols*$Pdot1+4],$dotT[$idx+$cols*$Pdot1+5],$dotT[$idx+$cols*$Pdot1+6],$dotT[$idx+$cols*$Pdot1+7],$dotT[$idx+$cols*$Pdot1+8],$dotT[$idx+$cols*$Pdot1+9],$dotT[$idx+$cols*$Pdot1+10],$dotT[$idx+$cols*$Pdot1+11],$dotT[$idx+$cols*$Pdot1+12],$dotT[$idx+$cols*$Pdot1+13],$dotT[$idx+$cols*$Pdot1+14],$dotT[$idx+$cols*$Pdot1+15],$dotT[$idx+$cols*$Pdot1+16],$dotT[$idx+$cols*$Pdot1+17],$dotT[$idx+$cols*$Pdot1+18],$dotT[$idx+$cols*$Pdot1+19],$dotT[$idx+$cols*$Pdot1+20],$dotT[$idx+$cols*$Pdot1+21],$dotT[$idx+$cols*$Pdot1+22],$dotT[$idx+$cols*$Pdot1+23],$dotT[$idx+$cols*$Pdot1+24],$dotT[$idx+$cols*$Pdot1+25],$dotT[$idx+$cols*$Pdot1+26],$dotT[$idx+$cols*$Pdot1+27],$dotT[$idx+$cols*$Pdot1+28],$dotT[$idx+$cols*$Pdot1+29],$dotT[$idx+$cols*$Pdot1+30],$dotT[$idx+$cols*$Pdot1+31]);
/////pot2
$k50Xm2=spXYZ("X",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$k50Ym2=spXYZ("Y",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$k50Zm2=spXYZ("Z",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
$k50Lm2=xyz2lab01("l",$k50Xm2,$k50Ym2,$k50Zm2);
$k50am2=xyz2lab01("a",$k50Xm2,$k50Ym2,$k50Zm2);
$k50bm2=xyz2lab01("b",$k50Xm2,$k50Ym2,$k50Zm2);
$k50dm2=DensitySp("K",$dotT[$idx+$cols*$Pdot2+1],$dotT[$idx+$cols*$Pdot2+2],$dotT[$idx+$cols*$Pdot2+3],$dotT[$idx+$cols*$Pdot2+4],$dotT[$idx+$cols*$Pdot2+5],$dotT[$idx+$cols*$Pdot2+6],$dotT[$idx+$cols*$Pdot2+7],$dotT[$idx+$cols*$Pdot2+8],$dotT[$idx+$cols*$Pdot2+9],$dotT[$idx+$cols*$Pdot2+10],$dotT[$idx+$cols*$Pdot2+11],$dotT[$idx+$cols*$Pdot2+12],$dotT[$idx+$cols*$Pdot2+13],$dotT[$idx+$cols*$Pdot2+14],$dotT[$idx+$cols*$Pdot2+15],$dotT[$idx+$cols*$Pdot2+16],$dotT[$idx+$cols*$Pdot2+17],$dotT[$idx+$cols*$Pdot2+18],$dotT[$idx+$cols*$Pdot2+19],$dotT[$idx+$cols*$Pdot2+20],$dotT[$idx+$cols*$Pdot2+21],$dotT[$idx+$cols*$Pdot2+22],$dotT[$idx+$cols*$Pdot2+23],$dotT[$idx+$cols*$Pdot2+24],$dotT[$idx+$cols*$Pdot2+25],$dotT[$idx+$cols*$Pdot2+26],$dotT[$idx+$cols*$Pdot2+27],$dotT[$idx+$cols*$Pdot2+28],$dotT[$idx+$cols*$Pdot2+29],$dotT[$idx+$cols*$Pdot2+30],$dotT[$idx+$cols*$Pdot2+31]);
/////pot3
$k50Xm3=spXYZ("X",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$k50Ym3=spXYZ("Y",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$k50Zm3=spXYZ("Z",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
$k50Lm3=xyz2lab01("l",$k50Xm3,$k50Ym3,$k50Zm3);
$k50am3=xyz2lab01("a",$k50Xm3,$k50Ym3,$k50Zm3);
$k50bm3=xyz2lab01("b",$k50Xm3,$k50Ym3,$k50Zm3);
$k50dm3=DensitySp("K",$dotT[$idx+$cols*$Pdot3+1],$dotT[$idx+$cols*$Pdot3+2],$dotT[$idx+$cols*$Pdot3+3],$dotT[$idx+$cols*$Pdot3+4],$dotT[$idx+$cols*$Pdot3+5],$dotT[$idx+$cols*$Pdot3+6],$dotT[$idx+$cols*$Pdot3+7],$dotT[$idx+$cols*$Pdot3+8],$dotT[$idx+$cols*$Pdot3+9],$dotT[$idx+$cols*$Pdot3+10],$dotT[$idx+$cols*$Pdot3+11],$dotT[$idx+$cols*$Pdot3+12],$dotT[$idx+$cols*$Pdot3+13],$dotT[$idx+$cols*$Pdot3+14],$dotT[$idx+$cols*$Pdot3+15],$dotT[$idx+$cols*$Pdot3+16],$dotT[$idx+$cols*$Pdot3+17],$dotT[$idx+$cols*$Pdot3+18],$dotT[$idx+$cols*$Pdot3+19],$dotT[$idx+$cols*$Pdot3+20],$dotT[$idx+$cols*$Pdot3+21],$dotT[$idx+$cols*$Pdot3+22],$dotT[$idx+$cols*$Pdot3+23],$dotT[$idx+$cols*$Pdot3+24],$dotT[$idx+$cols*$Pdot3+25],$dotT[$idx+$cols*$Pdot3+26],$dotT[$idx+$cols*$Pdot3+27],$dotT[$idx+$cols*$Pdot3+28],$dotT[$idx+$cols*$Pdot3+29],$dotT[$idx+$cols*$Pdot3+30],$dotT[$idx+$cols*$Pdot3+31]);
}
$k50TV=(((1-(pow(10,(-($k50dm-$Pdm)))))/(1-(pow(10,(-($kdm-$Pdm)))))))*100;
$k50TVI=round(($k50TV-67),2);
$k50TV1=(((1-(pow(10,(-($k50dm1-$Pdm)))))/(1-(pow(10,(-($kdm1-$Pdm)))))))*100;
$k50TVI1=round(($k50TV1-64),2);
$k50TV2=(((1-(pow(10,(-($k50dm2-$Pdm)))))/(1-(pow(10,(-($kdm2-$Pdm)))))))*100;
$k50TVI2=round(($k50TV2-64),2);
$k50TV3=(((1-(pow(10,(-($k50dm3-$Pdm)))))/(1-(pow(10,(-($kdm3-$Pdm)))))))*100;
$k50TVI3=round(($k50TV3-64),2);
//echo "k50dm:".$k50dm."TV=".$k50TVI."__<br>";
// echo "note 2k: k50L:".$k50Lm."_k50a:".$k50am."_k50b:".$k50bm."__<br>";
////////////////////////////gray
$Pdot=9;
if ($cols==45) {
$gXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$gYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$gZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
$gLm=xyz2lab01("l",$gXm,$gYm,$gZm);
$gam=xyz2lab01("a",$gXm,$gYm,$gZm);
$gbm=xyz2lab01("b",$gXm,$gYm,$gZm);
$gdm=DensitySp38("K",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);}
else {
$gXm=spXYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$gYm=spXYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$gZm=spXYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);
$gLm=xyz2lab01("l",$gXm,$gYm,$gZm);
$gam=xyz2lab01("a",$gXm,$gYm,$gZm);
$gbm=xyz2lab01("b",$gXm,$gYm,$gZm);
$gdm=DensitySp("K",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31]);}
// echo "note 2k: gL:".$gLm."_ga:".$gam."_gb:".$gbm."__gdm:".$gdm."__<br>";
/////////////////////////////////////////////////////////////////////////
////////////////////////////////////Target part
////////////////////////c50
$Pdot=5;$Pdot1=15;$Pdot2=25;$Pdot3=35;
if ($cols==45) {
// echo "c50dot:".$dot[$idx+$cols*$Pdot+1]."<br>";
$c50Xt=sp38XYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$c50Yt=sp38XYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$c50Zt=sp38XYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$c50Lt=xyz2lab01("l",$c50Xt,$c50Yt,$c50Zt);
$c50at=xyz2lab01("a",$c50Xt,$c50Yt,$c50Zt);
$c50bt=xyz2lab01("b",$c50Xt,$c50Yt,$c50Zt);
$c50dt=DensitySp38("C",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);}
else {
$c50Xt=spXYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$c50Yt=spXYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$c50Zt=spXYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$c50Lt=xyz2lab01("l",$c50Xt,$c50Yt,$c50Zt);
$c50at=xyz2lab01("a",$c50Xt,$c50Yt,$c50Zt);
$c50bt=xyz2lab01("b",$c50Xt,$c50Yt,$c50Zt);
$c50dt=DensitySp("C",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
///pot1
$c50Xt1=spXYZ("X",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$c50Yt1=spXYZ("Y",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$c50Zt1=spXYZ("Z",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$c50Lt1=xyz2lab01("l",$c50Xt1,$c50Yt1,$c50Zt1);
$c50at1=xyz2lab01("a",$c50Xt1,$c50Yt1,$c50Zt1);
$c50bt1=xyz2lab01("b",$c50Xt1,$c50Yt1,$c50Zt1);
$c50dt1=DensitySp("C",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
////pot2
$c50Xt2=spXYZ("X",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$c50Yt2=spXYZ("Y",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$c50Zt2=spXYZ("Z",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$c50Lt2=xyz2lab01("l",$c50Xt2,$c50Yt2,$c50Zt2);
$c50at2=xyz2lab01("a",$c50Xt2,$c50Yt2,$c50Zt2);
$c50bt2=xyz2lab01("b",$c50Xt2,$c50Yt2,$c50Zt2);
$c50dt2=DensitySp("C",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
////pot3
$c50Xt3=spXYZ("X",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$c50Yt3=spXYZ("Y",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$c50Zt3=spXYZ("Z",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$c50Lt3=xyz2lab01("l",$c50Xt3,$c50Yt3,$c50Zt3);
$c50at3=xyz2lab01("a",$c50Xt3,$c50Yt3,$c50Zt3);
$c50bt3=xyz2lab01("b",$c50Xt3,$c50Yt3,$c50Zt3);
$c50dt3=DensitySp("C",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
}
//echo "c50Lt:".$c50Lt."TV=".$c50at."TV=".$c50bt."__<br>";
////////////////////////m50
$Pdot=6;$Pdot1=16;$Pdot2=26;$Pdot3=36;
if ($cols==45) {
$m50Xt=sp38XYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$m50Yt=sp38XYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$m50Zt=sp38XYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$m50Lt=xyz2lab01("l",$m50Xt,$m50Yt,$m50Zt);
$m50at=xyz2lab01("a",$m50Xt,$m50Yt,$m50Zt);
$m50bt=xyz2lab01("b",$m50Xt,$m50Yt,$m50Zt);
$m50dt=DensitySp38("M",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);}
else {
$m50Xt=spXYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$m50Yt=spXYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$m50Zt=spXYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$m50Lt=xyz2lab01("l",$m50Xt,$m50Yt,$m50Zt);
$m50at=xyz2lab01("a",$m50Xt,$m50Yt,$m50Zt);
$m50bt=xyz2lab01("b",$m50Xt,$m50Yt,$m50Zt);
$m50dt=DensitySp("M",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
////pot1
$m50Xt1=spXYZ("X",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$m50Yt1=spXYZ("Y",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$m50Zt1=spXYZ("Z",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$m50Lt1=xyz2lab01("l",$m50Xt1,$m50Yt1,$m50Zt1);
$m50at1=xyz2lab01("a",$m50Xt1,$m50Yt1,$m50Zt1);
$m50bt1=xyz2lab01("b",$m50Xt1,$m50Yt1,$m50Zt1);
$m50dt1=DensitySp("M",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
///pot2
$m50Xt2=spXYZ("X",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$m50Yt2=spXYZ("Y",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$m50Zt2=spXYZ("Z",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$m50Lt2=xyz2lab01("l",$m50Xt2,$m50Yt2,$m50Zt2);
$m50at2=xyz2lab01("a",$m50Xt2,$m50Yt2,$m50Zt2);
$m50bt2=xyz2lab01("b",$m50Xt2,$m50Yt2,$m50Zt2);
$m50dt2=DensitySp("M",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
///pot3
$m50Xt3=spXYZ("X",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$m50Yt3=spXYZ("Y",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$m50Zt3=spXYZ("Z",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$m50Lt3=xyz2lab01("l",$m50Xt3,$m50Yt3,$m50Zt3);
$m50at3=xyz2lab01("a",$m50Xt3,$m50Yt3,$m50Zt3);
$m50bt3=xyz2lab01("b",$m50Xt3,$m50Yt3,$m50Zt3);
$m50dt3=DensitySp("M",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
}
//echo "m50dm:".$m50dm."TV=".$m50TVI."__<br>";
////////////////////////y50
$Pdot=7;$Pdot1=17;$Pdot2=27;$Pdot3=37;
if ($cols==45) {
$y50Xt=sp38XYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$y50Yt=sp38XYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$y50Zt=sp38XYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$y50Lt=xyz2lab01("l",$y50Xt,$y50Yt,$y50Zt);
$y50at=xyz2lab01("a",$y50Xt,$y50Yt,$y50Zt);
$y50bt=xyz2lab01("b",$y50Xt,$y50Yt,$y50Zt);
$y50dt=DensitySp38("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]); }
else {
$y50Xt=spXYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$y50Yt=spXYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$y50Zt=spXYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$y50Lt=xyz2lab01("l",$y50Xt,$y50Yt,$y50Zt);
$y50at=xyz2lab01("a",$y50Xt,$y50Yt,$y50Zt);
$y50bt=xyz2lab01("b",$y50Xt,$y50Yt,$y50Zt);
$y50dt=DensitySp("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
///pot1
$y50Xt1=spXYZ("X",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$y50Yt1=spXYZ("Y",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$y50Zt1=spXYZ("Z",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$y50Lt1=xyz2lab01("l",$y50Xt1,$y50Yt1,$y50Zt1);
$y50at1=xyz2lab01("a",$y50Xt1,$y50Yt1,$y50Zt1);
$y50bt1=xyz2lab01("b",$y50Xt1,$y50Yt1,$y50Zt1);
$y50dt1=DensitySp("Y",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
///pot2
$y50Xt2=spXYZ("X",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$y50Yt2=spXYZ("Y",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$y50Zt2=spXYZ("Z",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$y50Lt2=xyz2lab01("l",$y50Xt2,$y50Yt2,$y50Zt2);
$y50at2=xyz2lab01("a",$y50Xt2,$y50Yt2,$y50Zt2);
$y50bt2=xyz2lab01("b",$y50Xt2,$y50Yt2,$y50Zt2);
$y50dt2=DensitySp("Y",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
///pot3
$y50Xt3=spXYZ("X",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$y50Yt3=spXYZ("Y",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$y50Zt3=spXYZ("Z",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$y50Lt3=xyz2lab01("l",$y50Xt3,$y50Yt3,$y50Zt3);
$y50at3=xyz2lab01("a",$y50Xt3,$y50Yt3,$y50Zt3);
$y50bt3=xyz2lab01("b",$y50Xt3,$y50Yt3,$y50Zt3);
$y50dt3=DensitySp("Y",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
}
//echo "y50dm:".$y50dm."TV=".$y50TVI."__<br>";
////////////////////////k50
$Pdot=8;$Pdot1=18;$Pdot2=28;$Pdot3=38;
if ($cols==45) {
$k50Xt=sp38XYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$k50Yt=sp38XYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$k50Zt=sp38XYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$k50Lt=xyz2lab01("l",$k50Xt,$k50Yt,$k50Zt);
$k50at=xyz2lab01("a",$k50Xt,$k50Yt,$k50Zt);
$k50bt=xyz2lab01("b",$k50Xt,$k50Yt,$k50Zt);
$k50dt=DensitySp38("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]); }
else {
$k50Xt=spXYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$k50Yt=spXYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$k50Zt=spXYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$k50Lt=xyz2lab01("l",$k50Xt,$k50Yt,$k50Zt);
$k50at=xyz2lab01("a",$k50Xt,$k50Yt,$k50Zt);
$k50bt=xyz2lab01("b",$k50Xt,$k50Yt,$k50Zt);
$k50dt=DensitySp("K",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
////pot1
$k50Xt1=spXYZ("X",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$k50Yt1=spXYZ("Y",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$k50Zt1=spXYZ("Z",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
$k50Lt1=xyz2lab01("l",$k50Xt1,$k50Yt1,$k50Zt1);
$k50at1=xyz2lab01("a",$k50Xt1,$k50Yt1,$k50Zt1);
$k50bt1=xyz2lab01("b",$k50Xt1,$k50Yt1,$k50Zt1);
$k50dt1=DensitySp("K",$dot[$idx+$cols*$Pdot1+1],$dot[$idx+$cols*$Pdot1+2],$dot[$idx+$cols*$Pdot1+3],$dot[$idx+$cols*$Pdot1+4],$dot[$idx+$cols*$Pdot1+5],$dot[$idx+$cols*$Pdot1+6],$dot[$idx+$cols*$Pdot1+7],$dot[$idx+$cols*$Pdot1+8],$dot[$idx+$cols*$Pdot1+9],$dot[$idx+$cols*$Pdot1+10],$dot[$idx+$cols*$Pdot1+11],$dot[$idx+$cols*$Pdot1+12],$dot[$idx+$cols*$Pdot1+13],$dot[$idx+$cols*$Pdot1+14],$dot[$idx+$cols*$Pdot1+15],$dot[$idx+$cols*$Pdot1+16],$dot[$idx+$cols*$Pdot1+17],$dot[$idx+$cols*$Pdot1+18],$dot[$idx+$cols*$Pdot1+19],$dot[$idx+$cols*$Pdot1+20],$dot[$idx+$cols*$Pdot1+21],$dot[$idx+$cols*$Pdot1+22],$dot[$idx+$cols*$Pdot1+23],$dot[$idx+$cols*$Pdot1+24],$dot[$idx+$cols*$Pdot1+25],$dot[$idx+$cols*$Pdot1+26],$dot[$idx+$cols*$Pdot1+27],$dot[$idx+$cols*$Pdot1+28],$dot[$idx+$cols*$Pdot1+29],$dot[$idx+$cols*$Pdot1+30],$dot[$idx+$cols*$Pdot1+31]);
///pot2
$k50Xt2=spXYZ("X",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$k50Yt2=spXYZ("Y",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$k50Zt2=spXYZ("Z",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
$k50Lt2=xyz2lab01("l",$k50Xt2,$k50Yt2,$k50Zt2);
$k50at2=xyz2lab01("a",$k50Xt2,$k50Yt2,$k50Zt2);
$k50bt2=xyz2lab01("b",$k50Xt2,$k50Yt2,$k50Zt2);
$k50dt2=DensitySp("K",$dot[$idx+$cols*$Pdot2+1],$dot[$idx+$cols*$Pdot2+2],$dot[$idx+$cols*$Pdot2+3],$dot[$idx+$cols*$Pdot2+4],$dot[$idx+$cols*$Pdot2+5],$dot[$idx+$cols*$Pdot2+6],$dot[$idx+$cols*$Pdot2+7],$dot[$idx+$cols*$Pdot2+8],$dot[$idx+$cols*$Pdot2+9],$dot[$idx+$cols*$Pdot2+10],$dot[$idx+$cols*$Pdot2+11],$dot[$idx+$cols*$Pdot2+12],$dot[$idx+$cols*$Pdot2+13],$dot[$idx+$cols*$Pdot2+14],$dot[$idx+$cols*$Pdot2+15],$dot[$idx+$cols*$Pdot2+16],$dot[$idx+$cols*$Pdot2+17],$dot[$idx+$cols*$Pdot2+18],$dot[$idx+$cols*$Pdot2+19],$dot[$idx+$cols*$Pdot2+20],$dot[$idx+$cols*$Pdot2+21],$dot[$idx+$cols*$Pdot2+22],$dot[$idx+$cols*$Pdot2+23],$dot[$idx+$cols*$Pdot2+24],$dot[$idx+$cols*$Pdot2+25],$dot[$idx+$cols*$Pdot2+26],$dot[$idx+$cols*$Pdot2+27],$dot[$idx+$cols*$Pdot2+28],$dot[$idx+$cols*$Pdot2+29],$dot[$idx+$cols*$Pdot2+30],$dot[$idx+$cols*$Pdot2+31]);
///pot3
$k50Xt3=spXYZ("X",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$k50Yt3=spXYZ("Y",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$k50Zt3=spXYZ("Z",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
$k50Lt3=xyz2lab01("l",$k50Xt3,$k50Yt3,$k50Zt3);
$k50at3=xyz2lab01("a",$k50Xt3,$k50Yt3,$k50Zt3);
$k50bt3=xyz2lab01("b",$k50Xt3,$k50Yt3,$k50Zt3);
$k50dt3=DensitySp("K",$dot[$idx+$cols*$Pdot3+1],$dot[$idx+$cols*$Pdot3+2],$dot[$idx+$cols*$Pdot3+3],$dot[$idx+$cols*$Pdot3+4],$dot[$idx+$cols*$Pdot3+5],$dot[$idx+$cols*$Pdot3+6],$dot[$idx+$cols*$Pdot3+7],$dot[$idx+$cols*$Pdot3+8],$dot[$idx+$cols*$Pdot3+9],$dot[$idx+$cols*$Pdot3+10],$dot[$idx+$cols*$Pdot3+11],$dot[$idx+$cols*$Pdot3+12],$dot[$idx+$cols*$Pdot3+13],$dot[$idx+$cols*$Pdot3+14],$dot[$idx+$cols*$Pdot3+15],$dot[$idx+$cols*$Pdot3+16],$dot[$idx+$cols*$Pdot3+17],$dot[$idx+$cols*$Pdot3+18],$dot[$idx+$cols*$Pdot3+19],$dot[$idx+$cols*$Pdot3+20],$dot[$idx+$cols*$Pdot3+21],$dot[$idx+$cols*$Pdot3+22],$dot[$idx+$cols*$Pdot3+23],$dot[$idx+$cols*$Pdot3+24],$dot[$idx+$cols*$Pdot3+25],$dot[$idx+$cols*$Pdot3+26],$dot[$idx+$cols*$Pdot3+27],$dot[$idx+$cols*$Pdot3+28],$dot[$idx+$cols*$Pdot3+29],$dot[$idx+$cols*$Pdot3+30],$dot[$idx+$cols*$Pdot3+31]);
}
//echo "k50dm:".$k50dm."TV=".$k50TVI."__<br>";
// echo "note 2k: k50L:".$k50Lm."_k50a:".$k50am."_k50b:".$k50bm."__<br>";
////////////////////////////gray
$Pdot=9;$Pdot1=19;$Pdot2=29;$Pdot3=39;
if ($cols==45) {
$gXt=sp38XYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$gYt=sp38XYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$gZt=sp38XYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);
$gLt=xyz2lab01("l",$gXt,$gYt,$gZt);
$gat=xyz2lab01("a",$gXt,$gYt,$gZt);
$gbt=xyz2lab01("b",$gXt,$gYt,$gZt);
$gdt=DensitySp38("K",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);}
else {
$gXt=spXYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$gYt=spXYZ("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$gZt=spXYZ("Z",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);
$gLt=xyz2lab01("l",$gXt,$gYt,$gZt);
$gat=xyz2lab01("a",$gXt,$gYt,$gZt);
$gbt=xyz2lab01("b",$gXt,$gYt,$gZt);
$gdt=DensitySp("K",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);}
// echo "note 2k: gL:".$gLm."_ga:".$gam."_gb:".$gbm."__gdm:".$gdm."__<br>";
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);
}
$dgl=58-$gLt;
$dga=($Pat/2)-$gat;
$dgb=($Pbt/2)-$gbt;
$df=sqrt(pow($dga,2)+pow($dgb,2));
$dt=50;
$wa=$Pat*(100-$dt)/100;
$wb=$Pbt*(100-$dt)/100;
//$df= pow((pow(($gam-$wa),2))+(pow(($gbm-$wb),2)),0.5)*(1-max(0,($dt-50)/50*0.75));
//$df50=$df;
// echo "df".$df."<br>";
$c50dd=$c50dm-$c50dt;
$m50dd=$m50dm-$m50dt;
$y50dd=$y50dm-$y50dt;
$k50dd=$k50dm-$k50dt;
$c50dd1=$c50dm1-$c50dt1;
$m50dd1=$m50dm1-$m50dt1;
$y50dd1=$y50dm1-$y50dt1;
$k50dd1=$k50dm1-$k50dt1;
$c50dd2=$c50dm2-$c50dt2;
$m50dd2=$m50dm2-$m50dt2;
$y50dd2=$y50dm2-$y50dt2;
$k50dd2=$k50dm2-$k50dt2;
$c50dd3=$c50dm3-$c50dt3;
$m50dd3=$m50dm3-$m50dt3;
$y50dd3=$y50dm3-$y50dt3;
$k50dd3=$k50dm3-$k50dt3;
echo "kd50:".$k50dm2."xx".$k50dt2;
////////////////////////////////////
$c00dd=$cdm-$cdt;
$m00dd=$mdm-$mdt;
$y00dd=$ydm-$ydt;
$k00dd=$kdm-$kdt;
$c00dd1=$cdm1-$cdt1;
$m00dd1=$mdm1-$mdt1;
$y00dd1=$ydm1-$ydt1;
$k00dd1=$kdm1-$kdt1;
$c00dd2=$cdm2-$cdt2;
$m00dd2=$mdm2-$mdt2;
$y00dd2=$ydm2-$ydt2;
$k00dd2=$kdm2-$kdt2;
$c00dd3=$cdm3-$cdt3;
$m00dd3=$mdm3-$mdt3;
$y00dd3=$ydm3-$ydt3;
$k00dd3=$kdm3-$kdt3;
$dek50=de76($k50Lt,$k50at,$k50bt,$k50Lm,$k50am,$k50bm);
$dec50=de76($c50Lt,$c50at,$c50bt,$c50Lm,$c50am,$c50bm);
$dem50=de76($m50Lt,$m50at,$m50bt,$m50Lm,$m50am,$m50bm);
$dey50=de76($y50Lt,$y50at,$y50bt,$y50Lm,$y50am,$y50bm);
$dek501=de76($k50Lt1,$k50at1,$k50bt1,$k50Lm1,$k50am1,$k50bm1);
$dec501=de76($c50Lt1,$c50at1,$c50bt1,$c50Lm1,$c50am1,$c50bm1);
$dem501=de76($m50Lt1,$m50at1,$m50bt1,$m50Lm1,$m50am1,$m50bm1);
$dey501=de76($y50Lt1,$y50at1,$y50bt1,$y50Lm1,$y50am1,$y50bm1);
$dek502=de76($k50Lt2,$k50at2,$k50bt2,$k50Lm2,$k50am2,$k50bm2);
$dec502=de76($c50Lt2,$c50at2,$c50bt2,$c50Lm2,$c50am2,$c50bm2);
$dem502=de76($m50Lt2,$m50at2,$m50bt2,$m50Lm2,$m50am2,$m50bm2);
$dey502=de76($y50Lt2,$y50at2,$y50bt2,$y50Lm2,$y50am2,$y50bm2);
$dek503=de76($k50Lt3,$k50at3,$k50bt3,$k50Lm3,$k50am3,$k50bm3);
$dec503=de76($c50Lt3,$c50at3,$c50bt3,$c50Lm3,$c50am3,$c50bm3);
$dem503=de76($m50Lt3,$m50at3,$m50bt3,$m50Lm3,$m50am3,$m50bm3);
$dey503=de76($y50Lt3,$y50at3,$y50bt3,$y50Lm3,$y50am3,$y50bm3);
echo "<br>dd:".$m50Lt2."dd".$m50at2."dd".$m50bt2."dd".$dek50;
echo "<br>dd:".$m50Lm2."dd".$m50am2."dd".$m50bm2."dd".$dek502;
?>
<table>
<div>
<?php
include 'graphFixG1.php';
include 'graphFixG2.php';
include 'graphFixG3.php';
include 'graphFixG4.php';
GenGraphTG($c00dd,$m00dd,$y00dd,$k00dd);
GenGraphTG2($c00dd1,$m00dd1,$y00dd1,$k00dd1);
GenGraphTG3($c00dd2,$m00dd2,$y00dd2,$k00dd2);
GenGraphTG4($c00dd3,$m00dd3,$y00dd3,$k00dd3);
?>
<img src="graphTG.gif">
<img src="graphTG2.gif">
<img src="graphTG3.gif">
<img src="graphTG4.gif">
</div></table>
<table>
<div>
<?php
include 'graphFix.php';
include 'graphFix2.php';
include 'graphFix3.php';
include 'graphFix4.php';
GenGraphT($c50dd,$m50dd,$y50dd,$k50dd);
GenGraphT2($c50dd1,$m50dd1,$y50dd1,$k50dd1);
GenGraphT3($c50dd2,$m50dd2,$y50dd2,$k50dd2);
GenGraphT4($c50dd3,$m50dd3,$y50dd3,$k50dd3);
?>
<img src="graphT.gif">
<img src="graphT2.gif">
<img src="graphT3.gif">
<img src="graphT4.gif">
</div>
</table>
<table width="200" border="1" align="center">
<tr>
<td><div align="center"> id<?php echo $sNo;?></div></td>
<td><font color="#666666">P</td>
<td><font color="#666666">C</td>
<td><font color="#666666">M</td>
<td><font color="#666666">Y</td>
<td><font color="#666666">K</td>
<td>TVI</td>
<td><font color="#666666">C50</td>
<td>M50</td>
<td>Y50</td>
<td>K50</td>
<td>G7</td>
<td>GL</td>
<td>Ga</td>
<td>Gb</td>
</tr>
<tr bgcolor="#aaaaaa">
<td><div align="center">色差</div></td>
<td><div align="right"></div></td>
<td bgcolor="#00FFFF"><font color='<?php if ($dec00>2){echo "red";}else {echo "black";}?>'><div align="right"><?php $Csum=$Csum-(($dec00+$dec001+$dec002)/3); echo round($dec00,2);?></div></td>
<td bgcolor="#FF99FF"><font color='<?php if ($dem00>2){echo "red";}else {echo "black";}?>'><div align="right"><?php $Csum=$Csum-(($dem00+$dem001+$dem002)/3); echo round($dem00,2);?></div></td>
<td bgcolor="#FFFF99"><font color='<?php if ($dey00>2){echo "red";}else {echo "black";}?>'><div align="right"><?php $Csum=$Csum-(($dey00+$dey001+$dey002)/3); echo round($dey00,2);?></div></td>
<td bgcolor="#aaaaaa"><font color='<?php if ($dek00>2){echo "red";}else {echo "black";}?>'><div align="right"><?php $Csum=$Csum-(($dek00+$dek001+$dek002)/3); echo round($dek00,2);?></div></td>
<td bgcolor="#ffffff">TVI</td>
<td bgcolor="#00FFFF"><font color='<?php if ($dec50>3 or $dec50<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php $Csum=$Csum-(($dec50+$dec501+$dec502)/3); echo round($dec50,2);?></div></td>
<td bgcolor="#FF99FF"><font color='<?php if ($dem50>3 or $dem50<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php $Csum=$Csum-(($dem50+$dem501+$dem502)/3); echo round($dem50,2);?></div></td>
<td bgcolor="#FFFF99"><font color='<?php if ($dey50>3 or $dey50<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php $Csum=$Csum-(($dey50+$dey501+$dey502)/3);echo round($dey50,2);?></div></td>
<td bgcolor="#aaaaaa"><font color='<?php if ($dek50>3 or $dek50<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php $Csum=$Csum-(($dek50+$dek501+$dek502)/3); echo round($dek50,2);?></div></td>
<td bgcolor="#ffffff">G7</td>
<td><div align="right"><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'><?php echo round($dgl,2);?></div></td>
<td><div align="right"><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'><?php echo round($dga,2);?></div></td>
<td><div align="right"><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'><?php echo round($dgb,2);?></div></td>
</tr>
<tr>
<td><div align="center">目標濃度</div></td>
<td bgcolor="#CCCCCC"><div align="right"></div></td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($cdt,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($mdt,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($ydt,2);?></div></td>
<td bgcolor="#aaaaaa"><div align="right"><?php echo round($kdt,2);?></div></td>
<td>50%</td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($c50dt,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($m50dt,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($y50dt,2);?></div></td>
<td bgcolor="#aaaaaa"><div align="right"><?php echo round($k50dt,2);?></div></td>
<td>G7</td>
<td bgcolor="#00FFFF"><div align="right"><?php
if ($dgl<-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga<0.3 and $dga>-0.3 and $dgb>0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga>0.3 and $dgb>0.3) {
echo "+";}
elseif ($dgl<-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";}
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "+";}
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3 and $dgb<-0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";}
////////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<0.3 and $dga>-0.3 and $dgb>0.3) {
echo "";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>0.3 and $dgb>0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>0.3 and $dgb<-0.3) {
echo "";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and $dgb<-0.3) {
echo "";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "+";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";}
///////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dga<0.3 and $dga>-0.3 and $dgb>0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga>0.3 and $dgb>0.3) {
echo "---";}
elseif ($dgl>-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";}
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "--";}
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3 and $dgb<-0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";}
?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php
if ($dgl<-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+";}
elseif ($dgl<-0.3 and $dga<0.3 and $dga>-0.3 and $dgb>0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga>0.3 and $dgb>0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";}
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "++";}
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3 and $dgb<-0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "+";}
elseif ($dgl<-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";}
////////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb>0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<0.3 and $dga>-0.3 and $dgb>0.3) {
echo "";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>0.3 and $dgb>0.3) {
echo "+";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>0.3 and $dgb<-0.3) {
echo "+";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and $dgb<-0.3) {
echo "";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";}
///////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga<0.3 and $dga>-0.3 and $dgb>0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga>0.3 and $dgb>0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";}
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "-";}
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3 and $dgb<-0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";}
?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php
if ($dgl<-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+++";}
elseif ($dgl<-0.3 and $dga<0.3 and $dga>-0.3 and $dgb>0.3) {
echo "+++";}
elseif ($dgl<-0.3 and $dga>0.3 and $dgb>0.3) {
echo "+++";}
elseif ($dgl<-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";}
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";}
elseif ($dgl<-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "";}
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3 and $dgb<-0.3) {
echo "+";}
elseif ($dgl<-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "+";}
elseif ($dgl<-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";}
////////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<0.3 and $dga>-0.3 and $dgb>0.3) {
echo "+";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>0.3 and $dgb>0.3) {
echo "+";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>0.3 and $dgb<-0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and $dgb<-0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";}
///////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dga<0.3 and $dga>-0.3 and $dgb>0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dga>0.3 and $dgb>0.3) {
echo "-";}
elseif ($dgl>-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";}
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "---";}
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3 and $dgb<-0.3) {
echo "---";}
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "--";}
elseif ($dgl>-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";}
?></div></td>
</tr>
<tr>
<td><div align="center">量測濃度</div></td>
<td bgcolor="#CCCCCC"></td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($cdm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($mdm,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($ydm,2);?></div></td>
<td bgcolor="#aaaaaa"><div align="right"><?php echo round($kdm,2);?></div></td>
<td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($c50dm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($m50dm,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($y50dm,2);?></div></td>
<td bgcolor="#aaaaaa"><div align="right"><?php echo round($k50dm,2);?></div></td>
<td>分數</td>
<td><?php echo $Csum;?> </td>
</tr>
</table>
<tr></tr>
<?php
$connection = mysql_connect("127.0.0.1", "root", "fredsql") or die ("Unable to connect!");
mysql_query("SET NAMES 'utf8'");
$db = "tvicheck-st";
// select database
mysql_select_db($db) or die ("Unable to select database!");
$querys = "select po, sNo from Production where po='$po' ORDER BY id DESC LIMIT 1 ";
$results = mysql_query($querys) or die ("Error in query: $querys. " . mysql_error());
if (mysql_num_rows($results) > 0)
{
$row = mysql_fetch_object($results);
$sNo=$row->sNo+1;}
else { $sNo=1;}
// generate and execute query
$query = "INSERT INTO Production (po, Cscore, sNo, filename, target, ddate, pdate, press, paper, ink , cmmt, denC,denM,denY, denK, TVIc,TVIm, TVIy,TVIk,deg ) VALUES( '$po', '$Csum','$sNo', '$filename','$target', NOW(), '$date_s', '$press', '$paper', '$ink', '$cmmt', '$cdm','$mdm', '$ydm', '$kdm', '$c50dm', '$m50dm', '$y50dm', '$k50dm', '$deg')";
//echo $query;
$result = mysql_query($query) or die ("Error in query: $query. " . mysql_error());
mysql_close($connection);
} ?>
<tr>
<tr>
<td align="center"><font size="-2"> © <a href="mailto:[email protected]">Fred Kuo</a>, 2015. All rights reserved.<br><a href="http://www.fredkuo.idv.tw/wordpress/?p=1025">Read more.</a><br>
</td>
</tr>
</body>
</html>