File: C:/xampp/htdocs/FograCT94/tvireport.php
<?php
extract($_REQUEST);
//session_start();?>
<!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>Production 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 方塊外部的空間 */
}
.oneColElsCtr tr td table tr td strong {
font-size: 24px;
}
-->
</style></head>
<body class="oneColElsCtr">
<br>
<br>
<?php
echo "Job id:".$po." press:".$press." paper:".$paper ." date:" .$date. " file:".$tvifile;
?><br><br>
<?php
function get_betweenC ($text, $s1, $s2) {
$mid_url = "";
$pos_s = strrpos($text,$s1);
$pos_e = strpos($text,$s2);
for ( $i=$pos_s+strlen($s1) ; (( $i<($pos_e)) && $i < strlen($text)) ; $i++ ) {
$mid_url .= $text[$i];
}
return $mid_url;
}
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;
}
include 'sp38XYZ.php';
include 'spXYZ.php';
include 'lab2xyz.php';
include 'SCCA06.php';
include 'xyz2lab01.php';
include 'xyz2lab.php';
//include 'dE00.php';
//include 'DensityV.php';
$sum=100;
$check=1;
echo "CRPC6 SID Checking form! (for Type 1 paper, white backing)" . "<br />";
echo "Report start: " . "<br />";
// echo "Stored in: " . "upload/" . $_FILES["file"]["name"]. "<br />";
///parsing start
$contentT = file("upload/".$tvifile);
//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');
$stringT = implode($contentT);
$pt = ereg_replace("\r\n?", " ", $stringT);
$datastring=get_between($pt,"BEGIN_DATA","END_DATA");
$dotT = explode(" ", $datastring);////Measure upload
echo "content=0:";
echo "dotT86:".$dotT[166];
?>
<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>
<p><p>
<?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."__<br>";
/////////////////////////////////c
$Pdot=1;
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>";
$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]);
}
// echo "note 2k: CL:".$cLm."_Ca:".$cam."_Cb:".$cbm."__Pdm:".$cdm."__<br>";
///////////////////////////////////////////m
$Pdot=2;
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]);
}
// echo "note 2k: ML:".$mLm."_Ma:".$mam."_Mb:".$mbm."__Mdm:".$mdm."__<br>";
///////////////////////////////////////////y
$Pdot=3;
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]);
}
// echo "note 2k: YL:".$yLm."_Ya:".$yam."_Yb:".$ybm."__Ydm:".$ydm."__<br>";
///////////////////////////////////////////k
$Pdot=4;
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]);
}
// echo "note 2k: KL:".$kLm."_Ka:".$kam."_Kb:".$kbm."__Kdm:".$kdm."__<br>";
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// //////////////////////////////////Beer's Law section///////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////sec K
$ki=0.820;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=4;////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;
$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",$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);
${'k'.$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);
${'k'.$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($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",$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 "K1D=".round(${'k'.$i.'dd'},3);
}
//echo "<br>";
//////////////////////sec C
$ki=0.820;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=1;////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;
$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);
}
//echo "c1D=".round($c1dd,3);
}
//echo "<br>";
//////////////////////////sec M
$ki=0.820;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=2;////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;
$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;
$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);
}
//echo "m1D=".round(${'m'.$i.'dd'},3);
}
//echo "<br>";
///////////////////sec Y
$ki=0.880;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=3;////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;
$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);
//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);
$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);
// $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
$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);
?>
<?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='+';}}
$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);
//$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='+';}}$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);
//$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='+';}}?>
<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');
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>
<?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
////////////////////////c50
$Pdot=5;
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]);}
$c50TV=(((1-(pow(10,(-($c50dm-$Pdm)))))/(1-(pow(10,(-($cdm-$Pdm)))))))*100;
$c50TVI=round(($c50TV-64),2);
//echo "c50dm:".$c50dm."TV=".$c50TVI."__<br>";
////////////////////////m50
$Pdot=6;
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]);}
$m50TV=(((1-(pow(10,(-($m50dm-$Pdm)))))/(1-(pow(10,(-($mdm-$Pdm)))))))*100;
$m50TVI=round(($m50TV-64),2);
//echo "m50dm:".$m50dm."TV=".$m50TVI."__<br>";
////////////////////////y50
$Pdot=7;
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]);}
$y50TV=(((1-(pow(10,(-($y50dm-$Pdm)))))/(1-(pow(10,(-($ydm-$Pdm)))))))*100;
$y50TVI=round(($y50TV-64),2);
//echo "y50dm:".$y50dm."TV=".$y50TVI."__<br>";
////////////////////////k50
$Pdot=8;
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]);}
$k50TV=(((1-(pow(10,(-($k50dm-$Pdm)))))/(1-(pow(10,(-($kdm-$Pdm)))))))*100;
$k50TVI=round(($k50TV-67),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>";
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);
$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>";
?>
<table>
<div>
<?php
include 'graphFix.php';
GenGraphT($c50TVI,$m50TVI,$y50TVI,$k50TVI);
?>
<img src="graphT.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 ($dc76>5){echo "red";}else {echo "black";}?>'><div align="right"><?php echo round($dc76,2);?></div></td>
<td bgcolor="#FF99FF"><font color='<?php if ($dm76>5){echo "red";}else {echo "black";}?>'><div align="right"><?php echo round($dm76,2);?></div></td>
<td bgcolor="#FFFF99"><font color='<?php if ($dy76>5){echo "red";}else {echo "black";}?>'><div align="right"><?php echo round($dy76,2);?></div></td>
<td bgcolor="#aaaaaa"><font color='<?php if ($dk76>5){echo "red";}else {echo "black";}?>'><div align="right"><?php 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 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 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 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 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 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>
</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>
<table>
<div>
<?php
if ($plC==1) {
include 'graphFix2.php';
GenGraph2($c1d-$coptD,$c2d-$coptD,$c3d-$coptD,$c4d-$coptD,$c5d-$coptD,$c6d-$coptD,$c7d-$coptD,$c8d-$coptD,$c9d-$coptD,$c10d-$coptD,$c11d-$coptD,$c12d-$coptD,$c13d-$coptD,$c14d-$coptD,$c15d-$coptD,$c16d-$coptD,$c17d-$coptD,$c18d-$coptD,$c19d-$coptD);
GenGraphT2($c8T,$c17T);
?>
<img src="graph2.gif"><img src="graphT2.gif">
</div>
</table>
<table>
<table>
<div>
<?php }
if ($plM==1) {
include 'graphFix3.php';
GenGraph3($m1d-$moptD,$m2d-$moptD,$m3d-$moptD,$m4d-$moptD,$m5d-$moptD,$m6d-$moptD,$m7d-$moptD,$m8d-$moptD,$m9d-$moptD,$m10d-$moptD,$m11d-$moptD,$m12d-$moptD,$m13d-$moptD,$m14d-$moptD,$m15d-$moptD,$m16d-$moptD,$m17d-$moptD,$m18d-$moptD,$m19d-$moptD);
GenGraphT3($m8T,$m17T);
?>
<img src="graph3.gif"><img src="graphT3.gif">
</div>
</table>
<table>
<div>
<?php }
if ($plY==1) {
include 'graphFix4.php';
GenGraph4(0.01,$y2d-$yoptD,$y3d-$yoptD,$y4d-$yoptD,$y5d-$yoptD,$y6d-$yoptD,$y7d-$yoptD,$y8d-$yoptD,$y9d-$yoptD,$y10d-$yoptD,$y11d-$yoptD,$y12d-$yoptD,$y13d-$yoptD,$y14d-$yoptD,$y15d-$yoptD,$y16d-$yoptD,$y17d-$yoptD,$y18d-$yoptD,0.01);
GenGraphT4($y8T,$y17T);
?>
<img src="graph4.gif"><img src="graphT4.gif">
</div>
</table>
<table>
<div>
<?php }
if ($plS1==1) {
include 'graphFix5.php';
GenGraph5(0.01,$s2d-$soptD,$s3d-$soptD,$s4d-$soptD,$s5d-$soptD,$s6d-$soptD,$s7d-$soptD,$s8d-$soptD,$s9d-$soptD,$s10d-$soptD,$s11d-$soptD,$s12d-$soptD,$s13d-$soptD,$s14d-$soptD,$s15d-$soptD,$s16d-$soptD,$s17d-$soptD,$s18d-$soptD,0.01);
GenGraphT5($s8T,$s17T);
?>
<img src="graph5.gif"><img src="graphT5.gif">
</div>
<?php } ?>
</table>
<table align="center">
<td>
</td>
</table>
<?php
?>
<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>
</form>
</body>
</html>