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

<body class="oneColElsCtr">
<?php
error_reporting(0);
$f123= $_GET['f123'];
$f321= $_GET['f321'];
$sccSt=$_GET['sccSt'];
$company=$_GET['company'];
$okName= $_GET['okName'];
$device=='isis';
$sum=260;
$check=1;
$stFail=0;
include 'sp38XYZ.php';
include 'lab2xyz.php';
include 'SCCA06.php';
include 'xyz2lab01.php';
include 'xyz2lab.php';
include 'de00.php';
include 'DensityV38.php';
//include 'SCCA51.php';
include 'invert.php';




     // echo "Stored in: " . "upload/" . $_FILES["file"]["name"]. "<br />";
	  
	  ///parsing start
	  	  $filedb=substr($f321,8,60);
		  $filedb2=substr($f321,7,60);
	  $dbstr=explode("_", $filedb);
echo "fuleb:".$filedb2."<br>";
	  $filename=$filedb2;
	  		 // $filedb2=substr($filedb,7);
	  $po=$dbstr[1];
	  
$type="V125";
	  
	  
	  $contents = file($f321);
		$string = implode($contents);
		//echo $contents[20]; 
		//echo $string; 
$p = ereg_replace("\r\n?", "\n", $string);
$p = str_replace("\n", '', $p);
//echo $p;
function get_between ($text, $s1, $s2) {
$mid_url = "";
$pos_s = strrpos($text,$s1);
$pos_e = strrpos($text,$s2);
for ( $i=$pos_s+strlen($s1) ; (( $i<($pos_e)) && $i < strlen($text)) ; $i++ ) {
$mid_url .= $text[$i];
}
return $mid_url;
}

		$nm380 = strrpos($string,'nm380');
		//echo "<br>nm380:".$nm380."<br>";


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

$dot = explode("\t", $datastring);

//print_r($dot);
?>
<table width="200" border="0" align="center">
	    <tr><td>

 <input size="15" maxlength="50" type="hidden" name="rtarget" value=<?php echo $f321;?> /></td>
     
    </tr>
	<tr><td>
<a href="pbnCT125.php?f123=target.txt&f321=<?php echo $f321;?>&company=ecolor&sccSt=1">SCCA on</a>
</td>
<td>
<a href="pbnCT125.php?f123=target.txt&f321=<?php echo $f321;?>&company=ecolor&sccSt=0">SCCA off</a>
</td></tr>


<tr><td>
<a href="rankM.php?company=<?php echo $company."&type=V125";?>">歷程</a>
</td></tr>
  </table>
  <?php
//echo "<br>400mm<br>";

////////////////////////////paper

$i=1;
$r=0;

	$PXm=sp38XYZ("X",$dot[($i*25)*45+3+6],$dot[($i*25)*45+3+7],$dot[($i*25)*45+3+8],$dot[($i*25)*45+3+9],$dot[($i*25)*45+3+10],$dot[($i*25)*45+3+11],$dot[($i*25)*45+3+12],$dot[($i*25)*45+3+13],$dot[($i*25)*45+3+14],$dot[($i*25)*45+3+15],$dot[($i*25)*45+3+16],$dot[($i*25)*45+3+17],$dot[($i*25)*45+3+18],$dot[($i*25)*45+3+19],$dot[($i*25)*45+3+20],$dot[($i*25)*45+3+21],$dot[($i*25)*45+3+22],$dot[($i*25)*45+3+23],$dot[($i*25)*45+3+24],$dot[($i*25)*45+3+25],$dot[($i*25)*45+3+26],$dot[($i*25)*45+3+27],$dot[($i*25)*45+3+28],$dot[($i*25)*45+3+29],$dot[($i*25)*45+3+30],$dot[($i*25)*45+3+31],$dot[($i*25)*45+3+32],$dot[($i*25)*45+3+33],$dot[($i*25)*45+3+34],$dot[($i*25)*45+3+35],$dot[($i*25)*45+3+36],$dot[($i*25)*45+3+37],$dot[($i*25)*45+3+38],$dot[($i*25)*45+3+39],$dot[($i*25)*45+3+40],$dot[($i*25)*45+3+41]);

	$PYm=sp38XYZ("Y",$dot[($i*25)*45+3+6],$dot[($i*25)*45+3+7],$dot[($i*25)*45+3+8],$dot[($i*25)*45+3+9],$dot[($i*25)*45+3+10],$dot[($i*25)*45+3+11],$dot[($i*25)*45+3+12],$dot[($i*25)*45+3+13],$dot[($i*25)*45+3+14],$dot[($i*25)*45+3+15],$dot[($i*25)*45+3+16],$dot[($i*25)*45+3+17],$dot[($i*25)*45+3+18],$dot[($i*25)*45+3+19],$dot[($i*25)*45+3+20],$dot[($i*25)*45+3+21],$dot[($i*25)*45+3+22],$dot[($i*25)*45+3+23],$dot[($i*25)*45+3+24],$dot[($i*25)*45+3+25],$dot[($i*25)*45+3+26],$dot[($i*25)*45+3+27],$dot[($i*25)*45+3+28],$dot[($i*25)*45+3+29],$dot[($i*25)*45+3+30],$dot[($i*25)*45+3+31],$dot[($i*25)*45+3+32],$dot[($i*25)*45+3+33],$dot[($i*25)*45+3+34],$dot[($i*25)*45+3+35],$dot[($i*25)*45+3+36],$dot[($i*25)*45+3+37],$dot[($i*25)*45+3+38],$dot[($i*25)*45+3+39],$dot[($i*25)*45+3+40],$dot[($i*25)*45+3+41]);

	$PZm=sp38XYZ("Z",$dot[($i*25)*45+3+6],$dot[($i*25)*45+3+7],$dot[($i*25)*45+3+8],$dot[($i*25)*45+3+9],$dot[($i*25)*45+3+10],$dot[($i*25)*45+3+11],$dot[($i*25)*45+3+12],$dot[($i*25)*45+3+13],$dot[($i*25)*45+3+14],$dot[($i*25)*45+3+15],$dot[($i*25)*45+3+16],$dot[($i*25)*45+3+17],$dot[($i*25)*45+3+18],$dot[($i*25)*45+3+19],$dot[($i*25)*45+3+20],$dot[($i*25)*45+3+21],$dot[($i*25)*45+3+22],$dot[($i*25)*45+3+23],$dot[($i*25)*45+3+24],$dot[($i*25)*45+3+25],$dot[($i*25)*45+3+26],$dot[($i*25)*45+3+27],$dot[($i*25)*45+3+28],$dot[($i*25)*45+3+29],$dot[($i*25)*45+3+30],$dot[($i*25)*45+3+31],$dot[($i*25)*45+3+32],$dot[($i*25)*45+3+33],$dot[($i*25)*45+3+34],$dot[($i*25)*45+3+35],$dot[($i*25)*45+3+36],$dot[($i*25)*45+3+37],$dot[($i*25)*45+3+38],$dot[($i*25)*45+3+39],$dot[($i*25)*45+3+40],$dot[($i*25)*45+3+41]);

	$PLm=xyz2lab01("l",$PXm,$PYm,$PZm);
	$Pam=xyz2lab01("a",$PXm,$PYm,$PZm);
	$Pbm=xyz2lab01("b",$PXm,$PYm,$PZm);
	
	$Pdm=DensitySp38("K",$dot[($i*25)*45+3+6],$dot[($i*25)*45+3+7],$dot[($i*25)*45+3+8],$dot[($i*25)*45+3+9],$dot[($i*25)*45+3+10],$dot[($i*25)*45+3+11],$dot[($i*25)*45+3+12],$dot[($i*25)*45+3+13],$dot[($i*25)*45+3+14],$dot[($i*25)*45+3+15],$dot[($i*25)*45+3+16],$dot[($i*25)*45+3+17],$dot[($i*25)*45+3+18],$dot[($i*25)*45+3+19],$dot[($i*25)*45+3+20],$dot[($i*25)*45+3+21],$dot[($i*25)*45+3+22],$dot[($i*25)*45+3+23],$dot[($i*25)*45+3+24],$dot[($i*25)*45+3+25],$dot[($i*25)*45+3+26],$dot[($i*25)*45+3+27],$dot[($i*25)*45+3+28],$dot[($i*25)*45+3+29],$dot[($i*25)*45+3+30],$dot[($i*25)*45+3+31],$dot[($i*25)*45+3+32],$dot[($i*25)*45+3+33],$dot[($i*25)*45+3+34],$dot[($i*25)*45+3+35],$dot[($i*25)*45+3+36],$dot[($i*25)*45+3+37],$dot[($i*25)*45+3+38],$dot[($i*25)*45+3+39],$dot[($i*25)*45+3+40],$dot[($i*25)*45+3+41]);


$PL=$PLm;
$Pa=$PLa;
$Pb=$PLb;
echo "<br>Paper Lab:".$PLm.",".$Pam.",".$Pbm.",".$Pdm."xyz:".$PXm.",".$PYm.",".$PZm;	

//////////////paper


///////////////////////////////////////cc


$i=0;
$r=12;
$C100sp=array($dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$c100Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$c100Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$c100Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$c100Lm=xyz2lab01("l",$c100Xm,$c100Ym,$c100Zm);
	$c100am=xyz2lab01("a",$c100Xm,$c100Ym,$c100Zm);
	$c100bm=xyz2lab01("b",$c100Xm,$c100Ym,$c100Zm);
	
	$c100dm=DensitySp38("C",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

 echo "<br>C100 Lab:".$c100Lm.",".$c100am.",".$c100bm."xyz:".$c100Xm.",".$c100Ym.",".$c100Zm;

$i=0;
$r=11;
	$c95Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$c95Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$c95Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$c95Lm=xyz2lab01("l",$c95Xm,$c95Ym,$c95Zm);
	$c95am=xyz2lab01("a",$c95Xm,$c95Ym,$c95Zm);
	$c95bm=xyz2lab01("b",$c95Xm,$c95Ym,$c95Zm);
	
	$c95dm=DensitySp38("C",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	
	//$c95TV=((($PXm-$c95Xm)/($PXm- $c100Xm))*100); 
	$c95TV=((($PXm-0.55*$PZm)-($c95Xm-0.55*$c95Zm))/(($PXm-0.55*$PZm)-($c100Xm-0.55*$c100Zm)))*100;  
	
	$i=0;
	
	$j=10;
	$c90sp1=$dot[(14*12)*42+6];
	$c90sp2=$dot[(14*12)*42+7];
	//echo "<br>c90sp:".$c90sp1."--".$c90sp2;
	for ($r=2;$r<=10;$r+=1) {
		;
	${"c".$j."Xm"}=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"c".$j."Ym"}=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"c".$j."Zm"}=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"c".$j."Lm"}=xyz2lab01("l",${"c".$j."Xm"},${"c".$j."Ym"},${"c".$j."Zm"});
	${"c".$j."am"}=xyz2lab01("a",${"c".$j."Xm"},${"c".$j."Ym"},${"c".$j."Zm"});
	${"c".$j."bm"}=xyz2lab01("b",${"c".$j."Xm"},${"c".$j."Ym"},${"c".$j."Zm"});
	
	${"c".$j."dm"}=DensitySp38("C",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	
	
	//${"c".$j."TV"}= ((($PXm-${"c".$j."Xm"})/($PXm- $c100Xm))*100);  
	${"c".$j."TV"}= ((($PXm-0.55*$PZm)-(${"c".$j."Xm"}-0.55*${"c".$j."Zm"}))/(($PXm-0.55*$PZm)-($c100Xm-0.55*$c100Zm)))*100;  
	//echo "<br>ctv".$j.":".(${"c".$j."TV"}-$j);
	$j=$j+10;
	}
	
	$c50TVd=(((1-(pow(10,(-($c50dm-$Pdm)))))/(1-(pow(10,(-($c100dm-$Pdm)))))))*100;
	
	$c50TVd2=((($PXm-$c50Xm)/($PXm- $c100Xm))*100);  
	
	$c5sctv=100*pow(((pow(($c50Xm-$PXm),2)+pow(($c50Ym-$PYm),2)+pow(($c50Zm-$PZm),2))/(pow(($c100Xm-$PXm),2)+pow(($c100Ym-$PYm),2)+pow(($c100Zm-$PZm),2))),0.5);
	
	//echo "<br>ctv50 PXm:".$PXm."Pzm:".$PZm."c50xm:".$c50Xm."c50zm:".$c50Zm."c100Xm:".$c100Xm."c100Zm:".$c100Zm;
	
	//echo "<br>c50TV :".($c50TV-50)."_c50TVd2:".($c50TVd2-50)."_c5sctv:".($c5sctv-50);
	//echo "<br>Pdm:".$Pdm."_c100dm:".$c100dm."_c50TVd:".$c50TVd;
 //echo "<br>C50 Lab:".$c50Lm.",".$c50am.",".$c50bm.",".$c50dm."100xyz:".$c50Xm.",".$c50Ym.",".$c50Zm."__c50d:".$c50dm;	
//echo "<br>C70 Lab:".$c70Lm.",".$c70am.",".$c70bm.",".$c70dm;
	$i=0;
	$r=1;
	$c5Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$c5Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$c5Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$c5Lm=xyz2lab01("l",$c5Xm,$c5Ym,$c5Zm);
	$c5am=xyz2lab01("a",$c5Xm,$c5Ym,$c5Zm);
	$c5bm=xyz2lab01("b",$c5Xm,$c5Ym,$c5Zm);
	
	$c5dm=DensitySp38("C",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	
	//$c5TV=((($PXm-$c5Xm)/($PXm- $c100Xm))*100); 
	$c5TV=((($PXm-0.55*$PZm)-($c5Xm-0.55*$c5Zm))/(($PXm-0.55*$PZm)-($c100Xm-0.55*$c100Zm)))*100;  
	
//////////////////////////cc	
	
	$i=4;
	$r=24;
	$cmyXm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$cmyYm=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$cmyZm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$cmyLm=xyz2lab01("l",$cmyXm,$cmyYm,$cmyZm);
	$cmyam=xyz2lab01("a",$cmyXm,$cmyYm,$cmyZm);
	$cmybm=xyz2lab01("b",$cmyXm,$cmyYm,$cmyZm);
	
	$cmydm=DensitySp38("C",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

// echo "<br>cmy Lab:".$cmyLm.",".$cmyam.",".$cmybm.",".$c50dm."xyz:".$c50Xm.",".$c50Ym.",".$c50Zm;	
	
$cmyL=$cmyLm;
$cmya=$cmyam;;
$cmyb=$cmybm;

//////////////////////////////////////mm
	$i=1;
	$r=12;
//$C100sp=array(($dot[(($i*25)+1)*42+6],$dot[($i*25)*42+7],$dot[($i*25)*42+8],$dot[($i*25)*42+9],$dot[($i*25)*42+10],$dot[($i*25)*42+11],$dot[($i*25)*42+12],$dot[($i*25)*42+13],$dot[($i*25)*42+14],$dot[($i*25)*42+15],$dot[($i*25)*42+16],$dot[($i*25)*42+17],$dot[($i*25)*42+18],$dot[($i*25)*42+19],$dot[($i*25)*42+20],$dot[($i*25)*42+21],$dot[($i*25)*42+22],$dot[($i*25)*42+23],$dot[($i*25)*42+24],$dot[($i*25)*42+25],$dot[($i*25)*42+26],$dot[($i*25)*42+27],$dot[($i*25)*42+28],$dot[($i*25)*42+29],$dot[($i*25)*42+30],$dot[($i*25)*42+31],$dot[($i*25)*42+32],$dot[($i*25)*42+33],$dot[($i*25)*42+34],$dot[($i*25)*42+35],$dot[($i*25)*42+36],$dot[($i*25)*42+37],$dot[($i*25)*42+38],$dot[($i*25)*42+39],$dot[($i*25)*42+40],$dot[($i*25)*42+41]);

	$m100Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$m100Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$m100Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$m100Lm=xyz2lab01("l",$m100Xm,$m100Ym,$m100Zm);
	$m100am=xyz2lab01("a",$m100Xm,$m100Ym,$m100Zm);
	$m100bm=xyz2lab01("b",$m100Xm,$m100Ym,$m100Zm);
	
	$m100dm=DensitySp38("M",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

// echo "<br>M100 Lab:".$m100Lm.",".$m100am.",".$m100bm;

	$i=1;
	$r=11;
	$m95Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$m95Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$m95Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$m95Lm=xyz2lab01("l",$m95Xm,$m95Ym,$m95Zm);
	$m95am=xyz2lab01("a",$m95Xm,$m95Ym,$m95Zm);
	$m95bm=xyz2lab01("b",$m95Xm,$m95Ym,$m95Zm);
	
	$m95dm=DensitySp38("M",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	
	$m95TV=((($PYm-$m95Ym)/($PYm- $m100Ym))*100);   
	
	$j=10;
	$i=1;
	for ($r=2;$r<=10;$r+=1) {
		;
	${"m".$j."Xm"}=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"m".$j."Ym"}=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"m".$j."Zm"}=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"m".$j."Lm"}=xyz2lab01("l",${"m".$j."Xm"},${"m".$j."Ym"},${"m".$j."Zm"});
	${"m".$j."am"}=xyz2lab01("a",${"m".$j."Xm"},${"m".$j."Ym"},${"m".$j."Zm"});
	${"m".$j."bm"}=xyz2lab01("b",${"m".$j."Xm"},${"m".$j."Ym"},${"m".$j."Zm"});
	
	${"m".$j."dm"}=DensitySp38("M",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	
	${"m".$j."TV"}=((($PYm-${"m".$j."Ym"})/($PYm- $m100Ym))*100);   
	
	//echo "<br>TVm".$j.":".(${"m".$j."TV"}-$j);
	
	$j=$j+10;
	}
	
// echo "<br>m50 Lab:".$m50Lm.",".$m50am.",".$m50bm.",".$m50dm."_m100d:".$m100dm;	
 //echo "<br>m70 Lab:".$m70Lm.",".$m70am.",".$m70bm.",".$m70dm."_m70d:".$m70dm;	
	$i=1;
	$r=1;
	$m5Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$m5Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$m5Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$m5Lm=xyz2lab01("l",$m5Xm,$m5Ym,$m5Zm);
	$m5am=xyz2lab01("a",$m5Xm,$m5Ym,$m5Zm);
	$m5bm=xyz2lab01("b",$m5Xm,$m5Ym,$m5Zm);
	
	$m5dm=DensitySp38("M",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	
	$m5TV=((($PYm-$m5Ym)/($PYm- $m100Ym))*100);   
	
//////////////////////////mm


//echo "<br>PL:".$PL;
/////////////////////////////////////yy
$i=2;
$r=12;
//$C100sp=array(($dot[(($i*25)+1)*42+6],$dot[($i*25)*42+7],$dot[($i*25)*42+8],$dot[($i*25)*42+9],$dot[($i*25)*42+10],$dot[($i*25)*42+11],$dot[($i*25)*42+12],$dot[($i*25)*42+13],$dot[($i*25)*42+14],$dot[($i*25)*42+15],$dot[($i*25)*42+16],$dot[($i*25)*42+17],$dot[($i*25)*42+18],$dot[($i*25)*42+19],$dot[($i*25)*42+20],$dot[($i*25)*42+21],$dot[($i*25)*42+22],$dot[($i*25)*42+23],$dot[($i*25)*42+24],$dot[($i*25)*42+25],$dot[($i*25)*42+26],$dot[($i*25)*42+27],$dot[($i*25)*42+28],$dot[($i*25)*42+29],$dot[($i*25)*42+30],$dot[($i*25)*42+31],$dot[($i*25)*42+32],$dot[($i*25)*42+33],$dot[($i*25)*42+34],$dot[($i*25)*42+35],$dot[($i*25)*42+36],$dot[($i*25)*42+37],$dot[($i*25)*42+38],$dot[($i*25)*42+39],$dot[($i*25)*42+40],$dot[($i*25)*42+41]);

	$y100Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$y100Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$y100Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$y100Lm=xyz2lab01("l",$y100Xm,$y100Ym,$y100Zm);
	$y100am=xyz2lab01("a",$y100Xm,$y100Ym,$y100Zm);
	$y100bm=xyz2lab01("b",$y100Xm,$y100Ym,$y100Zm);
	
	$y100dm=DensitySp38("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

// echo "<br>y100 Lab:".$y100Lm.",".$y100am.",".$y100bm;

$i=2;
$r=11;
	$y95Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$y95Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$y95Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$y95Lm=xyz2lab01("l",$y95Xm,$y95Ym,$y95Zm);
	$y95am=xyz2lab01("a",$y95Xm,$y95Ym,$y95Zm);
	$y95bm=xyz2lab01("b",$y95Xm,$y95Ym,$y95Zm);
	
	$y95dm=DensitySp38("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	
	$y95TV= ((($PZm-$y95Zm)/($PZm- $y100Zm))*100);  
	
	$i=2;
	$j=10;
	for ($r=2;$r<=10;$r+=1) {
		
	${"y".$j."Xm"}=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"y".$j."Ym"}=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"y".$j."Zm"}=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"y".$j."Lm"}=xyz2lab01("l",${"y".$j."Xm"},${"y".$j."Ym"},${"y".$j."Zm"});
	${"y".$j."am"}=xyz2lab01("a",${"y".$j."Xm"},${"y".$j."Ym"},${"y".$j."Zm"});
	${"y".$j."bm"}=xyz2lab01("b",${"y".$j."Xm"},${"y".$j."Ym"},${"y".$j."Zm"});
	
	${"y".$j."dm"}=DensitySp38("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	
	${"y".$j."TV"}= ((($PZm-${"y".$j."Zm"})/($PZm- $y100Zm))*100); 
	
	$j=$j+10;
	}
	
// echo "<br>y50 Lab:".$y50Lm.",".$y50am.",".$y50bm.",".$y50dm."_y100d:".$y100dm;	;	
 // echo "<br>y70 Lab:".$y70Lm.",".$y70am.",".$y70bm.",".$y70dm."_y100d:".$y100dm;	;
	$i=2;
	$r=1;
	$y5Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$y5Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$y5Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$y5Lm=xyz2lab01("l",$y5Xm,$y5Ym,$y5Zm);
	$y5am=xyz2lab01("a",$y5Xm,$y5Ym,$y5Zm);
	$y5bm=xyz2lab01("b",$y5Xm,$y5Ym,$y5Zm);
	
	$y5dm=DensitySp38("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	
	$y5TV= ((($PZm-$y5Zm)/($PZm- $y100Zm))*100);  
	
//////////////////////////yy

///////////////////////////////////////rr
$i=0;
$r=24;
	$r100Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$r100Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$r100Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$r100Lm=xyz2lab01("l",$r100Xm,$r100Ym,$r100Zm);
	$r100am=xyz2lab01("a",$r100Xm,$r100Ym,$r100Zm);
	$r100bm=xyz2lab01("b",$r100Xm,$r100Ym,$r100Zm);
	
	$r100dm=DensitySp38("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

// echo "<br>r100 Lab:".$r100Lm.",".$r100am.",".$r100bm;

	$i=0;
	$r=23;
	$r95Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$r95Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$r95Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$r95Lm=xyz2lab01("l",$r95Xm,$r95Ym,$r95Zm);
	$r95am=xyz2lab01("a",$r95Xm,$r95Ym,$r95Zm);
	$r95bm=xyz2lab01("b",$r95Xm,$r95Ym,$r95Zm);
	
	$r95dm=DensitySp38("C",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	
	$j=10;
	for ($r=14;$r<=22;$r+=1) {
		;
	${"r".$j."Xm"}=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"r".$j."Ym"}=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"r".$j."Zm"}=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"r".$j."Lm"}=xyz2lab01("l",${"r".$j."Xm"},${"r".$j."Ym"},${"r".$j."Zm"});
	${"r".$j."am"}=xyz2lab01("a",${"r".$j."Xm"},${"r".$j."Ym"},${"r".$j."Zm"});
	${"r".$j."bm"}=xyz2lab01("b",${"r".$j."Xm"},${"r".$j."Ym"},${"r".$j."Zm"});
	
	${"r".$j."dm"}=DensitySp38("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	$j=$j+10;
	}
	
// echo "<br>r50 Lab:".$r50Lm.",".$r50am.",".$r50bm.",".$r50dm;	
	$i=0;
	$r=13;
	$r5Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$r5Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$r5Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$r5Lm=xyz2lab01("l",$r5Xm,$r5Ym,$r5Zm);
	$r5am=xyz2lab01("a",$r5Xm,$r5Ym,$r5Zm);
	$r5bm=xyz2lab01("b",$r5Xm,$r5Ym,$r5Zm);
	
	$r5dm=DensitySp38("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	
//////////////////////////rr	

///////////////////////////////////////gn
	$i=1;
	$r=24;

	$gn100Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$gn100Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$gn100Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$gn100Lm=xyz2lab01("l",$gn100Xm,$gn100Ym,$gn100Zm);
	$gn100am=xyz2lab01("a",$gn100Xm,$gn100Ym,$gn100Zm);
	$gn100bm=xyz2lab01("b",$gn100Xm,$gn100Ym,$gn100Zm);
	
	$gn100dm=DensitySp38("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

//echo "<br>gn100 Lab:".$gn100Lm.",".$gn100am.",".$gn100bm;

	$i=1;
	$r=23;
	$gn95Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$gn95Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$gn95Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$gn95Lm=xyz2lab01("l",$gn95Xm,$gn95Ym,$gn95Zm);
	$gn95am=xyz2lab01("a",$gn95Xm,$gn95Ym,$gn95Zm);
	$gn95bm=xyz2lab01("b",$gn95Xm,$gn95Ym,$gn95Zm);
	
	$gn95dm=DensitySp38("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	
	$i=1;
	$j=10;
	for ($r=14;$r<=22;$r+=1) {
		;
	${"gn".$j."Xm"}=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"gn".$j."Ym"}=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"gn".$j."Zm"}=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"gn".$j."Lm"}=xyz2lab01("l",${"gn".$j."Xm"},${"gn".$j."Ym"},${"gn".$j."Zm"});
	${"gn".$j."am"}=xyz2lab01("a",${"gn".$j."Xm"},${"gn".$j."Ym"},${"gn".$j."Zm"});
	${"gn".$j."bm"}=xyz2lab01("b",${"gn".$j."Xm"},${"gn".$j."Ym"},${"gn".$j."Zm"});
	
	${"gn".$j."dm"}=DensitySp38("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	//$j=$j-10;
	
	//echo "<br>gn".$j." Lab:".${"gn".$j."Lm"};	
	$j=$j+10;
	}
	

	$i=1;
	$r=13;
	$gn5Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$gn5Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$gn5Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$gn5Lm=xyz2lab01("l",$gn5Xm,$gn5Ym,$gn5Zm);
	$gn5am=xyz2lab01("a",$gn5Xm,$gn5Ym,$gn5Zm);
	$gn5bm=xyz2lab01("b",$gn5Xm,$gn5Ym,$gn5Zm);
	
	$gn5dm=DensitySp38("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	
//////////////////////////gn	


///////////////////////////////////////bb
	$i=2;
	$r=24;
	$b100Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$b100Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$b100Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$b100Lm=xyz2lab01("l",$b100Xm,$b100Ym,$b100Zm);
	$b100am=xyz2lab01("a",$b100Xm,$b100Ym,$b100Zm);
	$b100bm=xyz2lab01("b",$b100Xm,$b100Ym,$b100Zm);
	
	$b100dm=DensitySp38("M",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

// echo "<br>b100 Lab:".$b100Lm.",".$b100am.",".$b100bm;
	$i=2;
	$r=23;
	$b95Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$b95Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$b95Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$b95Lm=xyz2lab01("l",$b95Xm,$b95Ym,$b95Zm);
	$b95am=xyz2lab01("a",$b95Xm,$b95Ym,$b95Zm);
	$b95bm=xyz2lab01("b",$b95Xm,$b95Ym,$b95Zm);
	
	$b95dm=DensitySp38("M",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	
	$i=2;
	$j=10;
	for ($r=14;$r<=22;$r+=1) {
		;
	${"b".$j."Xm"}=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"b".$j."Ym"}=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"b".$j."Zm"}=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"b".$j."Lm"}=xyz2lab01("l",${"b".$j."Xm"},${"b".$j."Ym"},${"b".$j."Zm"});
	${"b".$j."am"}=xyz2lab01("a",${"b".$j."Xm"},${"b".$j."Ym"},${"b".$j."Zm"});
	${"b".$j."bm"}=xyz2lab01("b",${"b".$j."Xm"},${"b".$j."Ym"},${"b".$j."Zm"});
	
	${"b".$j."dm"}=DensitySp38("M",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	$j=$j+10;
	}
	
// echo "<br>b50 Lab:".$b50Lm.",".$b50am.",".$b50bm.",".$b50dm;	
	$i=2;
	$r=13;
	$b5Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$b5Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$b5Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$b5Lm=xyz2lab01("l",$b5Xm,$b5Ym,$b5Zm);
	$b5am=xyz2lab01("a",$b5Xm,$b5Ym,$b5Zm);
	$b5bm=xyz2lab01("b",$b5Xm,$b5Ym,$b5Zm);
	
	$b5dm=DensitySp38("M",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	
//////////////////////////bb	
$c100L=$c100Lm;
$c100a=$c100am;
$c100b=$c100bm;


$r100L=$r100Lm;
$r100a=$r100am;
$r100b=$r100bm;

$m100L=$m100Lm;
$m100a=$m100am;
$m100b=$m100bm;



$g100L=$gn100Lm;
$g100a=$gn100am;
$g100b=$gn100bm;

$y100L=$y100Lm;
$y100a=$y100am;
$y100b=$y100bm;

$b100L=$b100Lm;
$b100a=$b100am;
$b100b=$b100bm;

////////////////////////////////////////////////////////////////////////////////kk
	$i=3;
	$r=24;
	$k100Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$k100Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$k100Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$k100Lm=xyz2lab01("l",$k100Xm,$k100Ym,$k100Zm);
	$k100am=xyz2lab01("a",$k100Xm,$k100Ym,$k100Zm);
	$k100bm=xyz2lab01("b",$k100Xm,$k100Ym,$k100Zm);
	
	$k100dm=DensitySp38("K",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

// echo "<br>k100 Lab:".$k100Lm.",".$k100am.",".$k100bm;

//for ($i=1;$i<=4;$i+=1) {
	
	$i=3;
	$r=23;
	$k98Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$k98Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$k98Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$k98Lm=xyz2lab01("l",$k98Xm,$k98Ym,$k98Zm);
	$k98am=xyz2lab01("a",$k98Xm,$k98Ym,$k98Zm);
	$k98bm=xyz2lab01("b",$k98Xm,$k98Ym,$k98Zm);
	
	$k98dm=DensitySp38("K",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	$KTV98= (($PYm-$k98Ym)/($PYm-$k100Ym))*100;  
	
$j=10;
$i=3;
for ($r=5;$r<=22;$r+=1) {
	
	${"k".$j."Xm"}=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"k".$j."Ym"}=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"k".$j."Zm"}=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"k".$j."Lm"}=xyz2lab01("l",${"k".$j."Xm"},${"k".$j."Ym"},${"k".$j."Zm"});
	${"k".$j."am"}=xyz2lab01("a",${"k".$j."Xm"},${"k".$j."Ym"},${"k".$j."Zm"});
	${"k".$j."bm"}=xyz2lab01("b",${"k".$j."Xm"},${"k".$j."Ym"},${"k".$j."Zm"});
	
	${"k".$j."dm"}=DensitySp38("K",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);	
	
	
	${'KTV'.$j}= (($PYm-${"k".$j."Ym"})/($PYm-$k100Ym))*100;  
	//echo "<br>ktv".$j.":".(${'KTV'.$j}-$j);
	
	$j=$j+5;
	}
	 
	// echo "<br>k10 Lab:".$k10Lm.",".$k10am.",".$k10bm;
	
$j=2;
$i=3;
for ($r=1;$r<=4;$r+=1) {
	
	${"k".$j."Xm"}=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"k".$j."Ym"}=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"k".$j."Zm"}=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"k".$j."Lm"}=xyz2lab01("l",${"k".$j."Xm"},${"k".$j."Ym"},${"k".$j."Zm"});
	${"k".$j."am"}=xyz2lab01("a",${"k".$j."Xm"},${"k".$j."Ym"},${"k".$j."Zm"});
	${"k".$j."bm"}=xyz2lab01("b",${"k".$j."Xm"},${"k".$j."Ym"},${"k".$j."Zm"});
	
	${"k".$j."dm"}=DensitySp38("K",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);	
	
	
	${'KTV'.$j}= (($PYm-${"k".$j."Ym"})/($PYm-$k100Ym))*100;   
	$j=$j+2;
	}	
// echo "<br>k2 Lab:".$k2Lm.",".$k2am.",".$k2bm;	
////////////////////////////////////////////////////kk
//////////////////////////////////////////////////////gray
	$i=4;
	$r=24;

	$gy100Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$gy100Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$gy100Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$gy100Lm=xyz2lab01("l",$gy100Xm,$gy100Ym,$gy100Zm);
	$gy100am=xyz2lab01("a",$gy100Xm,$gy100Ym,$gy100Zm);
	$gy100bm=xyz2lab01("b",$gy100Xm,$gy100Ym,$gy100Zm);
	
	$gy100dm=DensitySp38("K",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

// echo "<br>gy100 Lab:".$gy100Lm.",".$gy100am.",".$gy100bm;

//for ($i=1;$i<=4;$i+=1) {
	
	$i=4;
	$r=23;
	$gy98Xm=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$gy98Ym=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$gy98Zm=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	$gy98Lm=xyz2lab01("l",$gy98Xm,$gy98Ym,$gy98Zm);
	$gy98am=xyz2lab01("a",$gy98Xm,$gy98Ym,$gy98Zm);
	$gy98bm=xyz2lab01("b",$gy98Xm,$gy98Ym,$gy98Zm);
	
	$gy98dm=DensitySp38("K",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);
	
$j=10;
$i=4;
for ($r=5;$r<=22;$r+=1) {
	
	${"gy".$j."Xm"}=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"gy".$j."Ym"}=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"gy".$j."Zm"}=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"gy".$j."Lm"}=xyz2lab01("l",${"gy".$j."Xm"},${"gy".$j."Ym"},${"gy".$j."Zm"});
	${"gy".$j."am"}=xyz2lab01("a",${"gy".$j."Xm"},${"gy".$j."Ym"},${"gy".$j."Zm"});
	${"gy".$j."bm"}=xyz2lab01("b",${"gy".$j."Xm"},${"gy".$j."Ym"},${"gy".$j."Zm"});
	
	${"gy".$j."dm"}=DensitySp38("K",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);	
	$j=$j+5;
	}
	
	
	
	
	
	
	// echo "<br>gy70 Lab:".$gy70Lm.",".$gy70am.",".$gy70bm.",".($gy70dm-$Pdm);
	
$j=2;
$i=4;
for ($r=1;$r<=4;$r+=1) {
	
	${"gy".$j."Xm"}=sp38XYZ("X",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"gy".$j."Ym"}=sp38XYZ("Y",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"gy".$j."Zm"}=sp38XYZ("Z",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);

	${"gy".$j."Lm"}=xyz2lab01("l",${"gy".$j."Xm"},${"gy".$j."Ym"},${"gy".$j."Zm"});
	${"gy".$j."am"}=xyz2lab01("a",${"gy".$j."Xm"},${"gy".$j."Ym"},${"gy".$j."Zm"});
	${"gy".$j."bm"}=xyz2lab01("b",${"gy".$j."Xm"},${"gy".$j."Ym"},${"gy".$j."Zm"});
	
	${"gy".$j."dm"}=DensitySp38("K",$dot[(($i*25)+$r)*45+3+6],$dot[(($i*25)+$r)*45+3+7],$dot[(($i*25)+$r)*45+3+8],$dot[(($i*25)+$r)*45+3+9],$dot[(($i*25)+$r)*45+3+10],$dot[(($i*25)+$r)*45+3+11],$dot[(($i*25)+$r)*45+3+12],$dot[(($i*25)+$r)*45+3+13],$dot[(($i*25)+$r)*45+3+14],$dot[(($i*25)+$r)*45+3+15],$dot[(($i*25)+$r)*45+3+16],$dot[(($i*25)+$r)*45+3+17],$dot[(($i*25)+$r)*45+3+18],$dot[(($i*25)+$r)*45+3+19],$dot[(($i*25)+$r)*45+3+20],$dot[(($i*25)+$r)*45+3+21],$dot[(($i*25)+$r)*45+3+22],$dot[(($i*25)+$r)*45+3+23],$dot[(($i*25)+$r)*45+3+24],$dot[(($i*25)+$r)*45+3+25],$dot[(($i*25)+$r)*45+3+26],$dot[(($i*25)+$r)*45+3+27],$dot[(($i*25)+$r)*45+3+28],$dot[(($i*25)+$r)*45+3+29],$dot[(($i*25)+$r)*45+3+30],$dot[(($i*25)+$r)*45+3+31],$dot[(($i*25)+$r)*45+3+32],$dot[(($i*25)+$r)*45+3+33],$dot[(($i*25)+$r)*45+3+34],$dot[(($i*25)+$r)*45+3+35],$dot[(($i*25)+$r)*45+3+36],$dot[(($i*25)+$r)*45+3+37],$dot[(($i*25)+$r)*45+3+38],$dot[(($i*25)+$r)*45+3+39],$dot[(($i*25)+$r)*45+3+40],$dot[(($i*25)+$r)*45+3+41]);	
	$j=$j+2;
	}	
//echo "<br>k2 Lab:".$gy2Lm.",".$gy2am.",".$gy2bm;	
////////////////////////////////////////////////////gray

	$GrayLm=$gy50Lm;
	$Graya=$gy50am;
	$Grayb=$gy50bm;
	$Grayd=$gy50dm;
	
	$Gray25Lm=$gy25Lm;
	$Gray25a=$gy25am;
	$Gray25b=$gy25bm;
	$Gray25d=$gy25dm;
	
	$Gray75Lm=$gy75Lm;
	$Gray75a=$gy75am;
	$Gray75b=$gy75bm;
	$Gray75d=$gy75dm;
	
	//echo "<br>GrayLm:".$GrayLm."Graya--".$Graya;



$k100L=$k100Lm;
$k100a=$k100am;
$k100b=$k100bm;

for ($t=2; $t<=8; $t +=2){
${'tg'.$t.'a'}=$Pam*(1-($t/100));
${'tg'.$t.'b'}=$Pbm*(1-($t/100));
}

for ($t=5; $t<=95; $t +=5){
${'tg'.$t.'a'}=$Pam*(1-($t/100));
${'tg'.$t.'b'}=$Pbm*(1-($t/100));
}

$tg98a=$Pam*(1-(98/100));
$tg98b=$Pbm*(1-(98/100));


//echo "<br>tg50=".$tg50a.",",$tg50b;

$minG50=100;

//TVI_c = (paper_X – nc_X) / (paper_X – 100c_X) x 100 – n;
//$TVI_c=(82.7–$Xi)/(82.7–4)*100–50; 
//echo "tvic".$TVI_c;

//echo "XYZ:".$Xi."_".$Yi."_".$Zi;  




 ?>  
 

 
 
 
<table width="200" border="1" align="center">
<tr>
  <td><div align="center">主色</div></td>
  <td><font color="#aaaaaa">2%</font></td>
  <td><font color="#aaaaaa">4%</font></td>
  <td><font color="#aaaaaa">6%</font></td>
  <td><font color="#aaaaaa">8%</font></td>
  <td><font color="#aaaaaa">10%</font></td>
  <td><font color="#aaaaaa">15%</font></td>
  <td><font color="#aaaaaa">20%</font></td>
  <td><font color="#aaaaaa">25%</font></td>
  <td><font color="#666666">30%</font></td>
  <td><font color="#666666">35%</font></td>
  <td><font color="#666666">40%</font></td>
  <td><font color="#666666">45%</font></td>
  <td><font color="#665566">50%</font></td>
  <td><font color="#666666">55%</font></td>
  <td><font color="#666666">60%</font></td>
  <td><font color="#666666">65%</font></td>
  <td>70%</td>
  <td>75%</td>
  <td>80%</td>
  <td>85%</td>
  <td>90%</td>
  <td>95%</td>
  <td>98%</td>
  <td>100%</td>
</tr>

<tr>
  <td bgcolor="#CCCCCC"><div align="center">K</div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k2dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k4dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k6dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k8dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k10dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k15dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k20dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k25dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k30dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k35dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k40dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k45dm-$Pdm,2);?></div></td>
<td bgcolor="#CCffCC"><div align="right"><?php echo round($k50dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k55dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k60dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k65dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k70dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k75dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k80dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k85dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k90dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k95dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k98dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($k100dm-$Pdm,2);?></div></td>
</tr>

<tr>
  <td bgcolor="#CCCCCC"><div align="center">CMY</div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy2dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy4dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy6dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy8dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy10dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy15dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy20dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy25dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy30dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy35dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy40dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy45dm-$Pdm,2);?></div></td>
<td bgcolor="#CCffCC"><div align="right"><?php echo round($gy50dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy55dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy60dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy65dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy70dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy75dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy80dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy85dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy90dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy95dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy98dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($gy100dm-$Pdm,2);?></div></td>
</tr>
<tr>
  <td><div align="center">w∆L(K)</div></td>
  <?php
 
 function getLk($tv,$kDyf,$PYf,$PL) {
 //echo "<br> kDyf:".$kDyf."PYf=".$PYf."pDf=".$PL;
 
 $tvik=0.967175*$tv-(1.525445*pow(10,-2)*pow($tv,2))+(9.1347*pow(10,-5)*pow($tv,3))-(3.552*pow(10,-7)*pow($tv,4));
  
$YrTVk=1-(0.978233*(($tv+$tvik)/100));
$Yck=pow((0.7+0.3*pow(($kDyf/$PYf),(1/3))),3);
$Rak=1-($kDyf/$PYf);


if ($YrTVk>$Yck) { 
$npdk= -log10($YrTVk);}
else{
$npdk=-log10($YrTVk-($Rak-0.978223)* pow((($Yck-$YrTVk)/($Yck-1+0.978223)),(($Rak/2)+1)));
} 


$md=$npdk+log10(1/($PYf*0.01));
$t= pow(10,-$md);
$ft=pow($t,1/3);
//$Lk=116*$ft-16;



$NPSabs=$npdk+log10(1/($PYf*0.01));
$Yabs= pow(10,$NPSabs);
$ft=pow($Yabs,-1/3);
if ($Yabs>pow((6/29),3)) {
 $Lk=116*$ft-16;}
 else {
$Lk=(841/108)*$Yabs;
 }

$Lk2=pow(10,-$npdk/3)*($PL+16)-16;

return $Lk2;

}


for ( $i = 2; $i <= 8; $i += 2) {

	//echo "KL:".${"K".$i."Lm"};	
	//echo "<br>422-".$i."-K100Ym:".$K100Ym."-PYm:".$PYm."-PLm:".$PLm;
	$dl=round((${"k".$i."Lm"}-getLk($i,$k100Ym,$PYm,$PLm)),2);
	$rounddv=$dl*(1-max(0,($i-50)/50*0.75));
	${"dl".$i}=$rounddv;

	?>
  <td bgcolor="#CCCCCC"><div align="right">
    <?php
	if (abs($rounddv)>2.5){
	$check=1;?>
    <div align="right"><font color="red">
      <?php
	}
	echo round($rounddv,2);
	?>
    </font></div></div></td>
  <?php
	}


for ( $i = 10; $i <= 95; $i += 5) {

	//echo "KL:".${"k".$i."Lm"};	
	$dl=round((${"k".$i."Lm"}-getLk($i,$k100Ym,$PYm,$PLm)),2);
	$rounddv=$dl*(1-max(0,($i-50)/50*0.75));
	${"dl".$i}=$rounddv;

	?>
  <td bgcolor="#CCCCCC"><div align="right">
    <?php
	if (abs($rounddv)>2.5){
	$check=1;?>
    <div align="right"><font color="red">
      <?php
	}
	echo round($rounddv,2);
	?>
    </font></div></div></td>
  <?php
	}

//echo "KL:".$K98Lm;	
	$dl=round(($k98Lm-getLk(98,$k100Ym,$PYm,$PLm)),2);
	$rounddv=$dl*(1-max(0,(98-50)/50*0.75));
	$dl98=$rounddv;

	?>
  <td bgcolor="#CCCCCC"><div align="right">
    <?php
	if (abs($rounddv)>2.5){
	$check=1;?>
    <div align="right"><font color="red">
      <?php
	}
	echo round($rounddv,2);
	?>
    </font></div></div></td>

</tr>



  

<tr>
  <td><div align="center">w∆L(CMY)</div></td>
<?php
 
 function getLg($tv,$kDyf,$PYf,$PL) {
 
 $tvik=1.31587*$tv-(2.21633*pow(10,-2)*pow($tv,2))+(1.32926*pow(10,-4)*pow($tv,3))-(4.288*pow(10,-7)*pow($tv,4));
 $Rr= 0.956649;
$YrTVk=1-($Rr*(($tv+$tvik)/100));

$Yck=pow((0.7+0.3*pow(($kDyf/$PYf),(1/3))),3);
$Rak=1-($kDyf/$PYf);

$Yck2=pow((0.7+0.3*pow((3.8/$PYf),(1/3))),3);
$Rak2=1-(3.8/$PYf);

if ($YrTVk>$Yck) { 
$npd= -log10($YrTVk);
$npd2= -log10($YrTVk);
${'npd'.$tv}=-log10($YrTVk);
}
else{
$npd=-log10($YrTVk-($Rak-$Rr)* pow((($Yck-$YrTVk)/($Yck-1+$Rr)),(($Rak/2)+1)));
$npd2=-log10($YrTVk-($Rak2-$Rr)* pow((($Yck2-$YrTVk)/($Yck2-1+$Rr)),(($Rak2/2)+1)));
} 

$NPSabs=$npd+log10(1/($PYf));
$Yabs= pow(10,$NPSabs);
//$ft=pow($Yabs,-1/3);
if ($Yabs>pow((6/29),3)) {
 $Lg=116*pow($Yabs,-1/3)-16;}
 else {
$Lg=(841/108)*$Yabs;
 }


 $GrayL=round(pow(10,(-$npd/3))*($PL+16)-16,3) ;
 $GrayL2=round(pow(10,(-$npd2/3))*($PL+16)-16,4) ;
// echo $tv."<br> GrayL2 :".$GrayL2."+GrayL:".$GrayL;
return $GrayL;
}

//echo "<br>c2Lm:".$C2Lm."__";

for ( $i = 2; $i <= 8; $i += 2) {

	$dl=round((${"gy".$i."Lm"}-getLg($i,$gy100Ym,$PYm,$PLm)),2);
	$rounddv=$dl*(1-max(0,($i-50)/50*0.75));
	${"dlc".$i}=$rounddv;

	?>
  <td bgcolor="#CCCCCC"><div align="right">
    <?php
	if (abs($rounddv)>2.5){
	$check=1;?>
    <div align="right"><font color="red">
      <?php
	}
	echo round($rounddv,2);
	?>
    </font></div></div></td>
  <?php
	}


for ( $i = 10; $i <= 95; $i += 5) {

	//echo "CL:".${"C".$i."Lm"};	
	$dl=round((${"gy".$i."Lm"}-getLg($i,$gy100Ym,$PYm,$PLm)),2);
	//echo "<br>dl:".$dl;
	$rounddv=$dl*(1-max(0,($i-50)/50*0.75));
	${"dlc".$i}=$rounddv;

	?>
  <td bgcolor="#CCCCCC"><div align="right">
    <?php
	if (abs($rounddv)>2.5){
	$check=1;?>
    <div align="right"><font color="red">
      <?php
	}
	echo round($rounddv,2);
	?>
    </font></div></div></td>
  <?php
	}
	
	//echo "<br>gl20:".$dlc20;
	$GrayLT=getLg(50,$gy100Ym,$PYm,$PLm);
	$GrayLT70=getLg(70,$gy100Ym,$PYm,$PLm);
	
	$GrayLT80=getLg(80,$gy100Ym,$PYm,$PLm);
	
	$GrayLT20=getLg(20,$gy100Ym,$PYm,$PLm);
	
	$GrayLT13=getLg(13,$gy100Ym,$PYm,$PLm);
	$GrayLT25=getLg(25,$gy100Ym,$PYm,$PLm);	
	$GrayLT38=getLg(38,$gy100Ym,$PYm,$PLm);
	$GrayLT63=getLg(63,$gy100Ym,$PYm,$PLm);
	$GrayLT75=getLg(75,$gy100Ym,$PYm,$PLm);
	$GrayLT88=getLg(88,$gy100Ym,$PYm,$PLm);
	
	$aT13=$Pam*0.87;$bT13=$Pbm*0.87;
	$aT25=$Pam*0.75;$bT25=$Pbm*0.75;
	$aT38=$Pam*0.62;$bT38=$Pbm*0.62;
	$aT63=$Pam*0.37;$bT63=$Pbm*0.37;
	$aT75=$Pam*0.25;$bT75=$Pbm*0.25;
	$aT88=$Pam*0.12;$bT88=$Pbm*0.12;
	
	
	//echo "<br>GrayLT13:".$GrayLT13."_aT13:".$aT13."_bT13:".$bT13;
	echo "<br>GrayLT25:".$GrayLT25."_aT25:".$aT25."_bT25:".$bT25;
	//echo "<br>GrayLT38:".$GrayLT38."_aT38:".$aT38."_bT38:".$bT38;
	echo "<br>GrayLT50:".$GrayLT."_aT50:".$Pam*0.5."_bT50:".$Pbm*0.5;
	echo "<br>GrayLT75:".$GrayLT75."_aT75:".$aT75."_bT75:".$bT75;
	//echo "<br>GrayLT88:".$GrayLT88."_aT88:".$aT88."_bT88:".$bT88;
	
	
//echo "CL:".$C98Lm;	
	$dl=round(($gy98Lm-getLg(98,$gy100Ym,$PYm,$PLm)),2);
	$rounddv=$dl*(1-max(0,(98-50)/50*0.75));
	$dlc98=$rounddv;

	?>
  <td bgcolor="#CCCCCC"><div align="right">
    <?php
	if (abs($rounddv)>2.5){
	$check=1;?>
    <div align="right"><font color="red">
      <?php
	}
	echo round($rounddv,2);
	?>
    </font></div></div></td>

</tr>



   

<tr>
  <td><div align="center">w∆Ch(CMY)</div></td>
  <?php
 for ( $i = 2; $i <= 8; $i += 2) { 
	$dt=$i;
	$wa=$Pam*(100-$dt)/100;
	$wb=$Pbm*(100-$dt)/100;
	$df= pow((pow((${"gy".$i."am"}-$wa),2))+(pow((${"gy".$i."bm"}-$wb),2)),0.5)*(1-max(0,($dt-50)/50*0.75));
	${"dff".$i}=$df;
	?>
  <td bgcolor="#CCDDDD"><div align="right">
    <?php
	if (abs($df)>2.5){
	$check=1;?>
    <div align="right"><font color="red">
      <?php
	}
	echo round($df,2);
	?>
    </font></div>
  </div></td>
<?php
 }
 
for ( $i = 10; $i <= 95; $i += 5) {
	$dt=$i;
	$wa=$Pam*(100-$dt)/100;
	$wb=$Pbm*(100-$dt)/100;
	$df= pow((pow((${"gy".$i."am"}-$wa),2))+(pow((${"gy".$i."bm"}-$wb),2)),0.5)*(1-max(0,($dt-50)/50*0.75));
	${"dff".$i}=$df;
	?>
  <td bgcolor="#CCDDDD"><div align="right">
    <?php
	if (abs($df)>2.5){
	$check=1;?>
    <div align="right"><font color="red">
      <?php
	}
	echo round($df,2);$sum=$sum-abs($rounddv);
	?>
    </font></div>
  </div></td>
<?php
 }
	$dt=98;
	$wa=$Pam*(100-$dt)/100;
	$wb=$Pbm*(100-$dt)/100;
	$df= pow((pow((${"gy".$i."am"}-$wa),2))+(pow((${"gy".$i."bm"}-$wb),2)),0.5)*(1-max(0,($dt-50)/50*0.75));
	${"dff".$dt}=$df;
	?>
  <td bgcolor="#CCDDDD"><div align="right">
    <?php
	if (abs($df)>2.5){
	$check=1;?>
    <div align="right"><font color="red">
      <?php
	}
	echo round($df,2);
	?>
    </font></div>
  </div></td>

</tr>
<tr>
  <td bgcolor="#CCCCCC"><div align="center">da*</div></td>
  <?php
   for ( $i = 2; $i <= 8; $i += 2) { 
	$dt=$i;
	$wa=$Pam*(100-$dt)/100;
	$wb=$Pbm*(100-$dt)/100;
	$df= ${"gy".$i."am"}-$wa;
	$df2= ${"gy".$i."am"};
	${"da".$i}=$df2;
	?>
  <td bgcolor="#CCDDDD"><div align="right">
    <?php
	if (abs($df)>2.5){
	$check=1;?>
    <div align="right"><font color="red">
      <?php
	}
	echo round($df,2);
	?>
    </font></div>
  </div></td>
<?php
 }
 
for ( $i = 10; $i <= 95; $i += 5) {
	$dt=$i;
	$wa=$Pam*(100-$dt)/100;
	$wb=$Pbm*(100-$dt)/100;
	$df= ${"gy".$i."am"}-$wa;
	$df2= ${"gy".$i."am"};
	${"da".$i}=$df2;
	?>
  <td bgcolor="#CCDDDD"><div align="right">
    <?php
	if (abs($df)>2.5){
	$check=1;?>
    <div align="right"><font color="red">
      <?php
	}
	echo round($df,2);
	?>
    </font></div>
  </div></td>
<?php
 }
	$dt=98;
	$wa=$Pam*(100-$dt)/100;
	$wb=$Pbm*(100-$dt)/100;
	$df2= $gy98am-$wa;
	$df= $gy98am-$wa;
	$da98=$df2;
	?>
  <td bgcolor="#CCDDDD"><div align="right">
    <?php
	if (abs($df)>2.5){
	$check=1;?>
    <div align="right"><font color="red">
      <?php
	}
	echo round($df,2);
	?>
    </font></div>
  </div></td>
  

</tr>
<tr>
  <td bgcolor="#CCCCCC"><div align="center">db*</div></td>
  <?php
  for ( $i = 2; $i <= 8; $i += 2) { 
	$dt=$i;
	$wa=$Pam*(100-$dt)/100;
	$wb=$Pbm*(100-$dt)/100;
	$df= ${"gy".$i."bm"}-$wb;
	$df2x= ${"gy".$i."bm"};
	${"db".$i}=$df2x;
	?>
  <td bgcolor="#CCDDDD"><div align="right">
    <?php
	if (abs($df)>2.5){
	$check=1;?>
    <div align="right"><font color="red">
      <?php
	}
	echo round($df,2);
	?>
    </font></div>
  </div></td>
<?php
 }
 
for ( $i = 10; $i <= 95; $i += 5) {
	$dt=$i;
	$wa=$Pam*(100-$dt)/100;
	$wb=$Pbm*(100-$dt)/100;
	$df= ${"gy".$i."bm"}-$wb;
	$df2x= ${"gy".$i."bm"};
	${"db".$i}=$df2x;
	?>
  <td bgcolor="#CCDDDD"><div align="right">
    <?php
	if (abs($df)>2.5){
	$check=1;?>
    <div align="right"><font color="red">
      <?php
	}
	echo round($df,2);
	?>
    </font></div>
  </div></td>
<?php
 }
	$dt=98;
	$wa=$Pam*(100-$dt)/100;
	$wb=$Pbm*(100-$dt)/100;
	$df= $gy98bm-$wb;
	$df2x= $gy98bm;
	$db98=$df2x;
	?>
  <td bgcolor="#CCDDDD"><div align="right">
    <?php
	if (abs($df)>2.5){
	$check=1;?>
    <div align="right"><font color="red">
      <?php
	}
	echo round($df,2);
	?>
    </font></div>
  </div></td>

</tr>


<?php
////////////////////////////////////////////////////////////////////


$pl=95;
  $pa=0;
  $pb=-2;
  $cl=55;
  $ca=-37;
  $cb=-50;
  $ml=48;
  $ma=74;
  $mb=-3;
  $yl=89;
  $ya=-5;
  $yb=93;
  $kl=15;
  $ka=0.01;
  $kb=0.01;

 $target='CRPC6';
// $sccSt=1;
 
if ($target=='Fogra51') {
  $pl=95; $pa=1.5;$pb=-6;
  $cl=55.47; $ca=-34.26;$cb=-52.8;
  $ml=48.49; $ma=75.3;$mb=-3.84;
  $yl=89.11; $ya=-4.56;$yb=92.06;
  $kl=16; $ka=0.1;$kb=-0.27;
  
$Xp=$PXm*100;
$Yp=$PYm*100;
$Zp=$PZm*100;



//////////////////////////////////////////////////////////////
$RPCCX=lab2xyz("x",$cl,$ca,$cb);
$RPCCY=lab2xyz("y",$cl,$ca,$cb);
$RPCCZ=lab2xyz("z",$cl,$ca,$cb);
//echo "echo here".$RPCCX;
$scCX=SCCA51("x",$RPCCX,$Xp);
$scCY=SCCA51("y",$RPCCY,$Yp);
$scCZ=SCCA51("z",$RPCCZ,$Zp);

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

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

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

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

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

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

$scKL=xyz2lab("l",$scKX,$scKY,$scKZ);
$scKa=xyz2lab("a",$scKX,$scKY,$scKZ);
$scKb=xyz2lab("b",$scKX,$scKY,$scKZ);
}
elseif ($target=='Fogra39') {
  $pl=95; $pa=1;$pb=-4;
  $cl=55; $ca=-37;$cb=-50;
  $ml=48; $ma=74;$mb=-3;
  $yl=89; $ya=-5;$yb=93;
  $kl=16; $ka=0.1;$kb=0.1;
  
$Xp=$PXm*100;
$Yp=$PYm*100;
$Zp=$PZm*100;



//////////////////////////////////////////////////////////////
$RPCCX=lab2xyz("x",$cl,$ca,$cb);
$RPCCY=lab2xyz("y",$cl,$ca,$cb);
$RPCCZ=lab2xyz("z",$cl,$ca,$cb);
//echo "echo here".$RPCCX;
$scCX=SCCA06("x",$RPCCX,$Xp,$target);
$scCY=SCCA06("y",$RPCCY,$Yp,$target);
$scCZ=SCCA06("z",$RPCCZ,$Zp,$target);

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

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

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

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

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

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

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

elseif ($target=='CRPC6') {
  $pl=95; $pa=1;$pb=-4;
  $cl=56; $ca=-37;$cb=-50;
  $ml=48; $ma=75;$mb=-4;
  $yl=89; $ya=-4;$yb=93;
  $kl=16; $ka=0.1;$kb=0.1;
  
  $rl=47; $ra=68; $rb=48;
  $gl=50; $ga=-66; $gb=26;
  $bl=25; $ba=20; $bb=-46;
  
  
$Xp=$PXm*100;
$Yp=$PYm*100;
$Zp=$PZm*100;



//////////////////////////////////////////////////////////////
$RPCCX=lab2xyz("x",$cl,$ca,$cb);
$RPCCY=lab2xyz("y",$cl,$ca,$cb);
$RPCCZ=lab2xyz("z",$cl,$ca,$cb);
//echo "echo here".$RPCCX."_".$RPCCY."_".$RPCCZ."_";
$scCX=SCCA06("x",$RPCCX,$Xp,$target);
$scCY=SCCA06("y",$RPCCY,$Yp,$target);
$scCZ=SCCA06("z",$RPCCZ,$Zp,$target);
//echo "<br> here".$scCX."_".$scCY."_".$scCZ."_";
$scCL=xyz2lab("l",$scCX,$scCY,$scCZ);
$scCa=xyz2lab("a",$scCX,$scCY,$scCZ);
$scCb=xyz2lab("b",$scCX,$scCY,$scCZ);
//echo "<br> here".$scCL."_".$scCa."_".$scCb."_";
/////////////////////////////////////////////////////////////
$RPCMX=lab2xyz("x",$ml,$ma,$mb);
$RPCMY=lab2xyz("y",$ml,$ma,$mb);
$RPCMZ=lab2xyz("z",$ml,$ma,$mb);

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

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

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

$scYL=xyz2lab("l",$scYX,$scYY,$scYZ);
$scYa=xyz2lab("a",$scYX,$scYY,$scYZ);
$scYb=xyz2lab("b",$scYX,$scYY,$scYZ);
////////////////////////////////////////////////////////////////////K
$RPCKX=lab2xyz("x",$kl,$ka,$kb);
$RPCKY=lab2xyz("y",$kl,$ka,$kb);
$RPCKZ=lab2xyz("z",$kl,$ka,$kb);

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

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

////////////////////////////////////////////////////////////////////R
$RPCRX=lab2xyz("x",$rl,$ra,$rb);
$RPCRY=lab2xyz("y",$rl,$ra,$rb);
$RPCRZ=lab2xyz("z",$rl,$ra,$rb);

$scRX=SCCA06("x",$RPCRX,$Xp,$target);
$scRY=SCCA06("y",$RPCRY,$Yp,$target);
$scRZ=SCCA06("z",$RPCRZ,$Zp,$target);

$scRL=xyz2lab("l",$scRX,$scRY,$scRZ);
$scRa=xyz2lab("a",$scRX,$scRY,$scRZ);
$scRb=xyz2lab("b",$scRX,$scRY,$scRZ);

////////////////////////////////////////////////////////////////////G
$RPCGX=lab2xyz("x",$gl,$ga,$gb);
$RPCGY=lab2xyz("y",$gl,$ga,$gb);
$RPCGZ=lab2xyz("z",$gl,$ga,$gb);

$scGX=SCCA06("x",$RPCGX,$Xp,$target);
$scGY=SCCA06("y",$RPCGY,$Yp,$target);
$scGZ=SCCA06("z",$RPCGZ,$Zp,$target);

$scGL=xyz2lab("l",$scGX,$scGY,$scGZ);
$scGa=xyz2lab("a",$scGX,$scGY,$scGZ);
$scGb=xyz2lab("b",$scGX,$scGY,$scGZ);

////////////////////////////////////////////////////////////////////B
$RPCBX=lab2xyz("x",$bl,$ba,$bb);
$RPCBY=lab2xyz("y",$bl,$ba,$bb);
$RPCBZ=lab2xyz("z",$bl,$ba,$bb);

$scBX=SCCA06("x",$RPCBX,$Xp,$target);
$scBY=SCCA06("y",$RPCBY,$Yp,$target);
$scBZ=SCCA06("z",$RPCBZ,$Zp,$target);

$scBL=xyz2lab("l",$scBX,$scBY,$scBZ);
$scBa=xyz2lab("a",$scBX,$scBY,$scBZ);
$scBb=xyz2lab("b",$scBX,$scBY,$scBZ);


if ($sccSt==0)
{
  $pl=95; $pa=1;$pb=-4;
  $cl=56; $ca=-37;$cb=-50;
  $ml=48; $ma=75;$mb=-4;
  $yl=89; $ya=-4;$yb=93;
  $kl=16; $ka=0.1;$kb=0.1;
  
  $rl=47; $ra=68; $rb=48;
  $gl=50; $ga=-66; $gb=26;
  $bl=25; $ba=20; $bb=-46;
}
else {
  $pl=95; $pa=1;$pb=-4;
  $cl=$scCL; $ca=$scCa;$cb=$scCb;
  $ml=$scML; $ma=$scMa;$mb=$scMb;
  $yl=$scYL; $ya=$scYa;$yb=$scYb;
  $kl=$scKL; $ka=$scKa;$kb=$scKb;
  
  $rl=$scRL; $ra=$scRa;$rb=$scRb;
  $gl=$scGL; $ga=$scGa; $gb=$scGb;
  $bl=$scBL; $ba=$scBa; $bb=$scBb;
}


}
  
  
  $dp00=de00($PLm,$Pam,$Pbm,$pl,$pa,$pb);
  
  $tpl=$PLm;
  $tpa=$Pam;
  $tpb=$Pbm;
  $tcl=$c100Lm;
  $tca=$c100am;
  $tcb=$c100bm;
  $tml=$m100Lm;
  $tma=$m100am;
  $tmb=$m100bm;
  $tyl=$y100Lm;
  $tya=$y100am;
  $tyb=$y100bm;
  $tkl=$k100Lm;
  $tka=$k100am;
  $tkb=$k100bm;
   
  $trl=$r100Lm;
  $tra=$r100am;
  $trb=$r100bm;
  $tgl=$gn100Lm;
  $tga=$gn100am;
  $tgb=$gn100bm;
  $tbl=$b100Lm;
  $tba=$b100am;
  $tbb=$b100bm;

$dr76=sqrt(pow((47-$r100Lm),2)+ pow((68-$r100am),2)+pow((49-$r100bm),2));
$dg76=sqrt(pow((50-$gn100Lm),2)+ pow(((-68)-$gn100am),2)+pow((25-$gn100bm),2));
$db76=sqrt(pow((24-$b100Lm),2)+ pow((17-$b100am),2)+pow(((-46)-$b100bm),2));

$dr00=de00($rl,$ra,$rb,$trl,$tra,$trb);
$dgn00=de00($gl,$ga,$gb,$tgl,$tga,$tgb);
$db00=de00($bl,$ba,$bb,$tbl,$tba,$tbb);

//echo "<br>dr00:".$dr00;

function GetDegree($x, $y)
{
  // we don't want to cause division by zero
  if($x == 0) $x = 1 / 10000;
     
  $deg = rad2deg(atan(abs($y / $x)));
     
  if($y >= 0) $deg = $x < 0 ? 180 - $deg : $deg;
  else        $deg = $x < 0 ? 180 + $deg : 360 - $deg;
     
  return $deg;
     
}

$dchg=GetDegree($tca,$tcb)-GetDegree($ca,$cb);
$dmhg=GetDegree($tma,$tmb)-GetDegree($ma,$mb);
$dyhg=GetDegree($tya,$tyb)-GetDegree($ya,$yb);
$drhg=GetDegree($tra,$trb)-GetDegree($ra,$rb);
$dghg=GetDegree($tga,$tgb)-GetDegree($ga,$gb);
$dbhg=GetDegree($tba,$tbb)-GetDegree($ba,$bb);

  ///////////cal paper
  $cp=SQRT(pow($pa,2)+pow($pb,2));
  $ctp=SQRT(pow($tpa,2)+pow($tpb,2));
  $dcp=$ctp-$cp;
  $dp76=sqrt(pow(($pl-$tpl),2)+ pow(($pa-$tpa),2)+pow(($pb-$tpb),2));
  $dph=SQRT(ABS(pow($dp76,2)-pow(($pl-$tpl),2)-pow((SQRT(pow($pa,2)+pow($pb,2))-SQRT(pow($tpa,2)+pow($tpb,2))),2))); 
  $dp94=SQRT((pow((($pl-$tpl)/(1*1)),2))+pow(($dcp/(1*(1+(0.045*$cp)))),2)+ pow(($dph/(1*(1+(0.015*$cp)))),2));
  //echo "del76p=";
  //echo $dp76;
 // echo "||del94p=";
 // echo $dp94;
  // echo "<br>";
  ?>
<!--  
<tr>
  <td><div align="center">W</div></td>
  <td><div align="right"><?php echo $pl;?></div></td>
  <td><div align="right"><?php echo $pa;?></div></td>
  <td><div align="right"><?php echo $pb;?></div></td>
  <td><div align="center"></div></td>
  <td><div align="right"><?php echo $PLm;?></div></td>
  <td><div align="right"><?php echo $Pam;?></div></td>
  <td><div align="right"><?php echo $Pbm;?></div></td>
  <td><div align="right"><?php echo round($dp76,2);?></div></td>
    <td><div align="right"><?php echo round($Pdm,3);?></div></td>
	<td>
  <td bgcolor="#CCCCCC"><div align="center"></div></td>

</tr>
<?php
     ///////////////////cal c
  $cc=SQRT(pow($ca,2)+pow($cb,2));
  $ctc=SQRT(pow($tca,2)+pow($tcb,2));
  $dcc=$ctc-$cc;
  $dc76=sqrt(pow(($cl-$tcl),2)+ pow(($ca-$tca),2)+pow(($cb-$tcb),2));
  $dc00=de00($cl,$ca,$cb,$tcl,$tca,$tcb);
  $dch=SQRT(ABS(pow($dc76,2)-pow(($cl-$tcl),2)-pow((SQRT(pow($ca,2)+pow($cb,2))-SQRT(pow($tca,2)+pow($tcb,2))),2))); 
  $dc94=SQRT((pow((($cl-$tcl)/(1*1)),2))+pow(($dcc/(1*(1+(0.045*$cc)))),2)+ pow(($dch/(1*(1+(0.015*$cc)))),2));
  //echo "del76c=";
  //echo $dc76;
  //$dcHu=SQRT(ABS(pow($dbu76,2)-pow(($bul-$tbul),2)-pow((SQRT(pow($bua,2)+pow($bub,2))-SQRT(pow($tbua,2)+pow($tbub,2))),2))); 
  ?>
<?php 
 // echo "Delta-E Cyan=";
  if ($dc94>5) {$sid=1;?>
<?php }
  //echo round($dc94,2);
 // echo "<br>";
    ?>
<tr>
  <td bgcolor="#66CCFF"><div align="center"><font color="black">C</font></div></td>
  <td bgcolor="#66CCFF"><div align="right"><font color="black"><?php echo round($cl,2);?></font></div></td>
  <td bgcolor="#66CCFF"><div align="right"><font color="black"><?php echo round($ca,2);?></font></div></td>
  <td bgcolor="#66CCFF"><div align="right"><font color="black"><?php echo round($cb,2);?></font></div></td>
   <td>
  <td bgcolor="#66CCFF"><div align="right"><font color="black"><?php echo $tcl;?></font></div></td>
  <td bgcolor="#66CCFF"><div align="right"><font color="black"><?php echo $tca;?></font></div></td>
  <td bgcolor="#B5D0FF"><div align="right"><font color="black"><?php echo $tcb;?></font></div></td>
  <td bgcolor="#66CCFF"><div align="right"><font color="black">
    <?php if ($dc00>3.5) {$sid=1;?><font color="red">
    <?php }
  echo round($dc00,2);?>
  </font></div></td>
     <td bgcolor="#66CCFF"><?php echo round($c100dm,3);?></div></td>
	 
	  <td bgcolor="#66CCFF"><?php echo round($dcc,2);?></div></td>
	  <td bgcolor="#66CCFF"><?php echo round($dchg,2);?></div></td>

  <td bgcolor="#FF6600"><div align="center"><font color="black"><?php echo round($rl,2);?></font></div></td>
  <td bgcolor="#FF6600"><div align="center"><font color="black"><?php echo round($ra,2);?></font></div></td>
  <td bgcolor="#FF6600"><div align="center"><font color="black"><?php echo round($rb,2);?></font></div></td>
 
  <?php $dr76=sqrt(pow((47-$trl),2)+ pow((68-$tra),2)+pow((49-$trb),2));
  $dr00=de00($rl,$ra,$rb,$trl,$tra,$trb);

	$cr=SQRT(pow($ra,2)+pow($rb,2));
  $ctr=SQRT(pow($tra,2)+pow($trb,2));
  $dcr=$ctr-$cr;
    $drh=SQRT(ABS(pow($dr76,2)-pow(($rl-$trl),2)-pow((SQRT(pow($ra,2)+pow($rb,2))-SQRT(pow($tra,2)+pow($trb,2))),2))); 
  ?>
  
  <td bgcolor="#FF6600"><div align="center"><font color="black"><?php echo round($trl,2);?></font></div></td>
  <td bgcolor="#A2A2FF"><div align="center"><font color="black"><?php echo round($tra,2);?></font></div></td>
  <td bgcolor="#E0FECB"><div align="center"><font color="black"><?php echo round($trb,2);?></font></div></td>
  <td bgcolor="#FF6600"><div align="center"><font color="black">
    <?php if ($dr00>4.2) { ?><font color="red">
    <?php } echo round($dr00,2);?>
  </font></div></td>
    <td bgcolor="#FFCCFF"><div align="right"><?php echo round($r100dm,3);?></div></td>
   <td bgcolor="#FFCCFF"><div align="right"><?php echo round(($r100dm-$m100dm)/$y100dm*100,2);?></div></td>
   	<td bgcolor="#FF6600"><div align="right"><?php echo round($dcr,2);?></div></td>
	<td bgcolor="#FF6600"><div align="right"><?php echo round($drhg,2);?></div></td>
</tr>
<?php
$device=='isis';
  /////////////cal m
    if ($device=='isis') {
	$tml=$tml;$tmb=$tmb;}
	else {
	$tml=$tml;$tmb=$tmb;}
	
  $cm=SQRT(pow($ma,2)+pow($mb,2));
  $ctm=SQRT(pow($tma,2)+pow($tmb,2));
  $dcm=$ctm-$cm;

  $dm76=sqrt(pow(($ml-$tml),2)+ pow(($ma-$tma),2)+pow(($mb-$tmb),2));
  $dm00=de00($ml,$ma,$mb,$tml,$tma,$tmb);
  
  $dmh=SQRT(ABS(pow($dm76,2)-pow(($ml-$tml),2)-pow((SQRT(pow($ma,2)+pow($mb,2))-SQRT(pow($tma,2)+pow($tmb,2))),2))); 
  $dm94=SQRT((pow((($ml-$tml)/(1*1)),2))+pow(($dcm/(1*(1+(0.045*$cm)))),2)+ pow(($dmh/(1*(1+(0.015*$cm)))),2));
 // echo "del76m=";
 // echo $dm76;
 ?>
<?php 
 // echo "Delta-E Magenta=";
  if ($dm94>5) {$sid=1;?>
<?php }
  //echo round($dm94,2);
  // echo "<br>";
       ?>
<tr>
  <td bgcolor="#FFCCFF"><div align="center"><font color="black">M</font></div></td>
  <td bgcolor="#FFCCFF"><div align="right"><font color="black"><?php echo round( $ml,2);?></font></div></td>
  <td bgcolor="#FFCCFF"><div align="right"><font color="black"><?php echo round( $ma,2);?></font></div></td>
  <td bgcolor="#FFCCFF"><div align="right"><font color="black"><?php echo round( $mb,2);?></font></div></td>
  <td bgcolor="#FFCCFF"><div align="center"></div></td>
  <td bgcolor="#FFCCFF"><div align="right"><font color="black"><?php echo $tml;?></font></div></td>
  <td bgcolor="#A2A2FF"><div align="right"><font color="black"><?php echo $tma;?></font></div></td>
  <td bgcolor="#FFCCFF"><div align="right"><font color="black"><?php echo $tmb;?></font></div></td>
  
  <td bgcolor="#FFCCFF"><div align="right"><font color="black">
    <?php if ($dm00>3.5) {$sid=1;?><font color="red">
    <?php }
  echo round($dm00,2);?>
  </font></div></td>
    <td bgcolor="#FFCCFF"><div align="right"><?php echo round($m100dm,3);?></div></td>
	<td bgcolor="#FFCCFF"><div align="right"><?php echo round($dcm,2);?></div></td>
	<td bgcolor="#FFCCFF"><div align="right"><?php echo round($dmhg,2);?></div></td>

  <td bgcolor="#66CC66"><div align="center"><font color="black"><?php echo round($gl,2);?></font></div></td>
  <td bgcolor="#66CC66"><div align="center"><font color="black"><?php echo round($ga,2);?></font></div></td>
  <td bgcolor="#66CC66"><div align="center"><font color="black"><?php echo round($gb,2);?></font></div></td>

   <td bgcolor="#66CC66"><div align="center"><font color="black"><?php echo $tgl;?></font></div></td>
  <td bgcolor="#66CC66"><div align="center"><font color="black"><?php echo $tga;?></font></div></td>
  <td bgcolor="#E0FECB"><div align="center"><font color="black"><?php echo $tgb;?></font></div></td>
  <td bgcolor="#66CC66"><div align="center"><font color="black">
    <?php if ($dgn00>4.2) { ?><font color="red">   
    <?php } echo round($dgn00,2);?>
      <td bgcolor="#FFFFCC"><div align="right"><?php echo round($gn100dm,3);?></div></td>
	<td bgcolor="#FFFFCC"><div align="right"><?php echo round(($gn100dm-$c100dm)/$y100dm*100,2);?></div></td>
	<?php

	$cg=SQRT(pow($ga,2)+pow($gb,2));
  $ctg=SQRT(pow($tga,2)+pow($tgb,2));
  $dcg=$ctg-$cg;
    $dgh=SQRT(ABS(pow($dg76,2)-pow(($gl-$tgl),2)-pow((SQRT(pow($ga,2)+pow($gb,2))-SQRT(pow($tga,2)+pow($tgb,2))),2))); 
  ?>
     	<td bgcolor="#66CC66"><div align="right"><?php echo round($dcg,2);?></div></td>
	<td bgcolor="#66CC66"><div align="right"><?php echo round($dghg,2);?></div></td>
  </font></div></td>
  
  </td>
</tr>
<?php
  
  ////////////////cal y
    $cy=SQRT(pow($ya,2)+pow($yb,2));
  $cty=SQRT(pow($tya,2)+pow($tyb,2));
  $dcy=$cty-$cy;
  $dy76=sqrt(pow(($yl-$tyl),2)+ pow(($ya-$tya),2)+pow(($yb-$tyb),2));
  $dy00=de00($yl,$ya,$yb,$tyl,$tya,$tyb);
  $dyh=SQRT(ABS(pow($dy76,2)-pow(($yl-$tyl),2)-pow((SQRT(pow($ya,2)+pow($yb,2))-SQRT(pow($tya,2)+pow($tyb,2))),2))); 
  $dy94=SQRT((pow((($yl-$tyl)/(1*1)),2))+pow(($dcy/(1*(1+(0.045*$cy)))),2)+ pow(($dyh/(1*(1+(0.015*$cy)))),2));
 // echo "del76y=";
 // echo $dy76;
 ?>
<?php 
 // echo "Delta-E Yellow=";
  if ($dy00>3.5) {$sid=1;?>
<?php }
  //echo round($dy94,2);
  // echo "<br>";
       ?>
<tr>
  <td bgcolor="#FFFFCC"><div align="center"><font color="black">Y</font></div></td>
  <td bgcolor="#FFFFCC"><div align="right"><font color="black"><?php echo round($yl,2);?></font></div></td>
  <td bgcolor="#FFFFCC"><div align="right"><font color="black"><?php echo round($ya,2);?></font></div></td>
  <td bgcolor="#FFFFCC"><div align="right"><font color="black"><?php echo round($yb,2);?></font></div></td>
  <td bgcolor="#FFFFCC"><div align="center"></div></td>
  <td bgcolor="#FFFFCC"><div align="right"><font color="black"><?php echo $tyl;?></font></div></td>
  <td bgcolor="#FFFFCC"><div align="right"><font color="black"><?php echo $tya;?></font></div></td>
  <td bgcolor="#E0FECB"><div align="right"><font color="black"><?php echo $tyb;?></font></div></td>
  <td bgcolor="#FFFFCC"><div align="right"><font color="black">
    <?php if ($dy00>3.5) {$sid=1;?><font color="red">
    <?php }
  echo round($dy00,2);?>
  </font></div></td>
    <td bgcolor="#FFFFCC"><div align="right"><?php echo round($y100dm,3);?></div></td>
<td bgcolor="#FFFFCC"><div align="right"><?php echo round($dcy,2);?></div></td>
<td bgcolor="#FFFFCC"><div align="right"><?php echo round($dyhg,2);?></div></td>

  <td bgcolor="#3366FF"><div align="center"><font color="black"><?php echo round($bl,2);?></font></div></td>
  <td bgcolor="#3366FF"><div align="center"><font color="black"><?php echo round($ba,2);?></font></div></td>
  <td bgcolor="#3366FF"><div align="center"><font color="black"><?php echo round($bb,2);?></font></div></td>
  <?php $db76=sqrt(pow((24-$tbl),2)+ pow((17-$tba),2)+pow(((-46)-$tbb),2));?>
     <td bgcolor="#3366FF"><div align="center"><font color="black"><?php echo $tbl;?></font></div></td>
  <td bgcolor="#A2A2FF"><div align="center"><font color="black"><?php echo $tba;?></font></div></td>
  <td bgcolor="#B1D0FE"><div align="center"><font color="black"><?php echo $tbb;?></font></div></td>
  <td bgcolor="#3366FF"><div align="center"><font color="black">
    <?php if ($db00>4.2) { ?><font color="red">
    <?php } echo round($db00,2);?>
      <td bgcolor="#A2A2FF"><div align="right"><?php echo round($b100dm,3);?></div></td>

	<td bgcolor="#A2A2FF"><div align="right"><?php echo round(($b100dm-$c100dm)/$m100dm*100,2);?></div></td>
		<?php

	$ccb=SQRT(pow($ba,2)+pow($bb,2));
  $ctb=SQRT(pow($tba,2)+pow($tbb,2));
  $dcb=$ctb-$ccb;
    $dbh=SQRT(ABS(pow($db76,2)-pow(($bl-$tbl),2)-pow((SQRT(pow($ba,2)+pow($bb,2))-SQRT(pow($tba,2)+pow($tbb,2))),2))); 
  ?>
     	<td bgcolor="#3366FF"><div align="right"><?php echo round($dcb,2);?></div></td>
	<td bgcolor="#3366FF"><div align="right"><?php echo round($dbhg,2);?></div></td>
  </font></div></td></tr>
<?php
  ////////////////////////////cal k
  $ck=SQRT(pow($ka,2)+pow($kb,2));
  $ctk=SQRT(pow($tka,2)+pow($tkb,2));
  $dck=$ctk-$ck;
  $dk76=sqrt(pow(($kl-$tkl),2)+ pow(($ka-$tka),2)+pow(($kb-$tkb),2));
  $dk00=de00($kl,$ka,$kb,$tkl,$tka,$tkb);
  $dkh=SQRT(ABS(pow($dk76,2)-pow(($kl-$tkl),2)-pow((SQRT(pow($ka,2)+pow($kb,2))-SQRT(pow($tka,2)+pow($tkb,2))),2))); 
  $dk94=SQRT((pow((($kl-$tkl)/(1*1)),2))+pow(($dck/(1*(1+(0.045*$ck)))),2)+ pow(($dkh/(1*(1+(0.015*$ck)))),2));
 // echo "del76k=";
 // echo $dk76;
 ?>
<?php 
 // echo "Delta-E Blank=";
 if ($dk94>5) {$sid=1;?>
<?php }
 // echo round($dk94,2);
  // echo "<br>";
     ?>
<tr>
  <td bgcolor="#CCCCCC"><div align="center"><font color="black">K</font></div></td>
  <td bgcolor="#CCCCCC"><div align="right"><font color="black"><?php echo round($kl,2);?></font></div></td>
  <td bgcolor="#CCCCCC"><div align="right"><font color="black"><?php echo round($ka,2);?></font></div></td>
  <td bgcolor="#CCCCCC"><div align="right"><font color="black"><?php echo round($kb,2);?></font></div></td>
  <td bgcolor="#CCCCCC"><div align="center"></div></td>
  <td bgcolor="#CCCCCC"><div align="right"><font color="black"><?php echo $tkl;?></font></div></td>
  <td bgcolor="#CCCCCC"><div align="right"><font color="black"><?php echo $tka;?></font></div></td>
  <td bgcolor="#CCCCCC"><div align="right"><font color="black"><?php echo $tkb;?></font></div></td>
  <td bgcolor="#CCCCCC"><div align="right"><font color="black">
    <?php if ($dk00>5) {$sid=1;?><font color="red">
    <?php }
  echo round($dk00,2);?>
  </font></div></td>
    <td bgcolor="#CCCCCC"><div align="right"><?php echo round($k100dm,3);?></div></td>
  <td>
  <td>
  
</tr>
-->
<?php

  
//echo "<br>graph:".$tma.",".$tra.",".$tya.",".$tga.",".$tca.",".$tba.",".$tma;
//echo "<br>graph2:".$tmb.",".$trb.",".$tyb.",".$tgb.",".$tcb.",".$tbb.",".$tmb;
?>
</table>









<?php
	$Maxdl=max(abs($dl2),abs($dl4),abs($dl6),abs($dl8),abs($dl10),abs($dl15),abs($dl20),abs($dl25),abs($dl30),abs($dl35),abs($dl40),abs($dl45),abs($dl50),abs($dl55),abs($dl60),abs($dl65),abs($dl70),abs($dl75),abs($dl80),abs($dl85),abs($dl90),abs($dl95),abs($dl98));
	$Avgdl=(abs($dl2)+abs($dl4)+abs($dl6)+abs($dl8)+abs($dl10)+abs($dl15)+abs($dl20)+abs($dl25)+abs($dl30)+abs($dl35)+abs($dl40)+abs($dl45)+abs($dl50)+abs($dl55)+abs($dl60)+abs($dl65)+abs($dl70)+abs($dl75)+abs($dl80)+abs($dl85)+abs($dl90)+abs($dl95)+abs($dl98))/23;
	
		//echo "<br>dff:".$dff2."_".$dff4."_".$dff6."_".$dff8."_".$dff10."_".$dff15."_".$dff20."_".$dff25."_".$dff30."_".$dff35."_".$dff40."_".$dff45."_".$dff50."_".$dff55."_".$dff60."_".$dff65."_".$dff70."_".$dff75."_".$dff80."_".$dff85."_".$dff90."_".$dff95."_".$dff98;
	
	$Maxdlc=max(abs($dlc2),abs($dlc4),abs($dlc6),abs($dlc8),abs($dlc10),abs($dlc15),abs($dlc20),abs($dlc25),abs($dlc30),abs($dlc35),abs($dlc40),abs($dlc45),abs($dlc50),abs($dlc55),abs($dlc60),abs($dlc65),abs($dlc70),abs($dlc75),abs($dlc80),abs($dlc85),abs($dlc90),abs($dlc95),abs($dlc98));
	$Avgdlc=(abs($dlc2)+abs($dlc4)+abs($dlc6)+abs($dlc8)+abs($dlc10)+abs($dlc15)+abs($dlc20)+abs($dlc25)+abs($dlc30)+abs($dlc35)+abs($dlc40)+abs($dlc45)+abs($dlc50)+abs($dlc55)+abs($dlc60)+abs($dlc65)+abs($dlc70)+abs($dlc75)+abs($dlc80)+abs($dlc85)+abs($dlc90)+abs($dlc95)+abs($dlc98))/23;
	
	$Maxdf=max(abs($dff2),abs($dff4),abs($dff6),abs($dff8),abs($dff10),abs($dff15),abs($dff20),abs($dff25),abs($dff30),abs($dff35),abs($dff40),abs($dff45),abs($dff50),abs($dff55),abs($dff60),abs($dff65),abs($dff70),abs($dff75),abs($dff80),abs($dff85),abs($dff90),abs($dff95),abs($dff98));
	
	//echo "<br>dff:".$dff2."_".$dff4."_".$dff6."_".$dff8."_".$dff10."_".$dff15."_".$dff20."_".$dff25."_".$dff30."_".$dff35."_".$dff40."_".$dff45."_".$dff50."_".$dff55."_".$dff60."_".$dff65."_".$dff70."_".$dff75."_".$dff80."_".$dff85."_".$dff90."_".$dff95."_".$dff98;
	
	
	$Avgdf=abs(($dff2+$dff4+$dff6+$dff8+$dff10+$dff15+$dff20+$dff25+$dff30+$dff35+$dff40+$dff45+$dff50+$dff55+$dff60+$dff65+$dff70+$dff75+$dff80+$dff85+$dff90+$dff95+$dff98)/23);
	
	if  (($k100dm-$Pdm)>1.69) {
	$k50dT=0.5;}
	else {
	$k50dT=0.0562*($k100dm-$Pdm)+0.405; 
	}
 
	if  (($gy100dm-$Pdm)>1.37) {
	$D50dT=0.54;}
	 else {
	 $D50dT=0.1707*($gy100dm-$Pdm)+0.3061; 
	 }
	
	?>



<table  border="1" align="center">
<tr>
<td>
  <td bgcolor="#999999"><div align="right">Aw∆L*</div></td>
  <td bgcolor="#999999"><div align="right">Mw∆L*</div></td>
  <td bgcolor="#999999"><div align="right">Aw∆Ch</div></td>
  <td bgcolor="#999999"><div align="right">Mw∆Ch</div></td>
  </tr>
<tr>
<td> K </td>
 <td bgcolor="#CCCCCC"><div align="center">
    <?php if ($Avgdl>1.5) {$sid=1; $stFail=1;?>
    <font color="red">
      <?php } echo round($Avgdl,2);?>
    </font></div></td>
  <td bgcolor="#CCCCCC"><div align="center">
    <?php if ($Maxdl>3) {$sid=1;$stFail=1;?>
    <font color="red">
      <?php } echo round($Maxdl,2);?>
    </font></div></td>
  </tr>
    <tr>
<td> cmy </td>
 <td bgcolor="#CCCCCC"><div align="center">
    <?php if ($Avgdlc>1.5) {$sid=1; $stFail=1;?>
    <font color="red">
      <?php } echo round($Avgdlc,2);?>
    </font></div></td>
  <td bgcolor="#CCCCCC"><div align="center">
    <?php if ($Maxdlc>3) {$sid=1; $stFail=1;?>
    <font color="red">
      <?php } echo round($Maxdlc,2);?>
    </font></div></td>
     <td bgcolor="#CCCCCC"><div align="center">
    <?php if ($Avgdf>1.5) {$sid=1;$stFail=1;?>
    <font color="red">
      <?php } echo round($Avgdf,2);?>
    </font></div></td>
  <td bgcolor="#CCCCCC"><div align="center">
    <?php if ($Maxdf>3) {$sid=1;$stFail=1;?>
    <font color="red">
      <?php } echo round($Maxdf,2);?>
    </font></div></td>
    </tr>
</table>

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


unlink('scatterKL.png');
$datay1 = array(0,$dl2,$dl4,$dl6,$dl8,$dl10,$dl15,$dl20,$dl25,$dl30,$dl35,$dl40,$dl45,$dl50,$dl55,$dl60,$dl65,$dl70,$dl75,$dl80,$dl85,$dl90,$dl95,$dl98,0);


$datay3 = array(0,$dlc2,$dlc4,$dlc6,$dlc8,$dlc10,$dlc15,$dlc20,$dlc25,$dlc30,$dlc35,$dlc40,$dlc45,$dlc50,$dlc55,$dlc60,$dlc65,$dlc70,$dlc75,$dlc80,$dlc85,$dlc90,$dlc95,$dlc98,0);



// Setup the graph
$graph = new Graph(500,250);
//$graph->SetScale("textlin");
$graph->SetScale('textlin',-10,10);
//$graph->SetScale('intlin',0,100,-10,10);

$theme_class= new UniversalTheme;
$graph->SetTheme($theme_class);

$graph->title->Set('delta-L*');
$graph->SetBox(false);

$graph->yaxis->HideZeroLabel();
$graph->yaxis->HideLine(false);
$graph->yaxis->HideTicks(false,false);

$graph->xaxis->SetTickLabels(array('0','2','4','6','8','10','15','20','25','30','35','40','45','50','55','60','65','70','75','80','85','90','95','98','100'));
$graph->ygrid->SetFill(false);
//$graph->SetBackgroundImage("tiger_bkg.png",BGIMG_FILLFRAME);

$p1 = new LinePlot($datay1);
$graph->Add($p1);

$p3 = new LinePlot($datay3);
$graph->Add($p3);



//$p2 = new LinePlot($datay2);
//$graph->Add($p2);
//$ADR=$c21l-$a21l;
//$BDR=$ct21l-$at21l;

$p1->SetColor("#aaaaaa");
$p1->SetLegend('K ');
$p1->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p1->mark->SetColor('#aaaaaa');
$p1->mark->SetFillColor('#aaaaaa');
$p1->SetCenter();


$p3->SetColor("#c83076");
$p3->SetLegend('cmy ');
$p3->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p3->mark->SetColor('#c83076');
$p3->mark->SetFillColor('#c83076');
$p3->SetCenter();



//$p2->SetColor("#aaaaaa");
//$p2->SetLegend('Line='. $BDR);
//$p2->mark->SetType(MARK_UTRIANGLE,'',1.0);
//$p2->mark->SetColor('#aaaaaa');
//$p2->mark->SetFillColor('#aaaaaa');
//$p2->value->SetMargin(14);
//$p2->SetCenter();

$graph->legend->SetFrameWeight(1);
$graph->legend->SetColor('#4E4E4E','#00A78A');
$graph->legend->SetMarkAbsSize(8);


// Output line
$graph->Stroke('scatterKL.png');
?>
<img src="scatterKL.png?nocache=<?php echo time(); ?>">
</div></td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8" 
//require_once ('../jpgraph/jpgraph.php');
//require_once ('../jpgraph/jpgraph_line.php');


unlink('scatterFL.png');
$datay1 = array($dff2,$dff4,$dff6,$dff8,$dff10,$dff15,$dff20,$dff25,$dff30,$dff35,$dff40,$dff45,$dff50,$dff55,$dff60,$dff65,$dff70,$dff75,$dff80,$dff85,$dff90,$dff95,$dff98);
$datay2 = array($db2,$db4,$db6,$db8,$db10,$db15,$db20,$db25,$db30,$db35,$db40,$db45,$db50,$db55,$db60,$db65,$db70,$db75,$db80,$db85,$db90,$db95,$db98);

$datay3 = array($da2,$da4,$da6,$da8,$da10,$da15,$da20,$da25,$da30,$da35,$da40,$da45,$da50,$da55,$da60,$da65,$da70,$da75,$da80,$da85,$da90,$da95,$da98);



// Setup the graph
$graph = new Graph(500,250);
//$graph->SetScale("textlin");
$graph->SetScale('textlin',-10,10);
//$graph->SetScale('intlin',0,100,-10,10);

$theme_class= new UniversalTheme;
$graph->SetTheme($theme_class);

$graph->title->Set('Gray balance');
$graph->SetBox(false);

$graph->yaxis->HideZeroLabel();
$graph->yaxis->HideLine(false);
$graph->yaxis->HideTicks(false,false);

$graph->xaxis->SetTickLabels(array(0,2,4,6,8,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,98,100));
$graph->ygrid->SetFill(false);
//$graph->SetBackgroundImage("tiger_bkg.png",BGIMG_FILLFRAME);

$p1 = new LinePlot($datay1);
$graph->Add($p1);

$p2 = new LinePlot($datay2);
$graph->Add($p2);

$p3 = new LinePlot($datay3);
$graph->Add($p3);



//$p2 = new LinePlot($datay2);
//$graph->Add($p2);
//$ADR=$c21l-$a21l;
//$BDR=$ct21l-$at21l;

$p1->SetColor("#19f691");
$p1->SetLegend('dch');
$p1->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p1->mark->SetColor('#19f691');
$p1->mark->SetFillColor('#19f691');
$p1->SetCenter();


$p3->SetColor("#c83076");
$p3->SetLegend('a*');
$p3->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p3->mark->SetColor('#c83076');
$p3->mark->SetFillColor('#c83076');
$p3->SetCenter();


$p2->SetColor("#6699FF");
$p2->SetLegend('b*');
$p2->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p2->mark->SetColor('#6699FF');
$p2->mark->SetFillColor('#669FF');
$p2->SetCenter();



$graph->legend->SetFrameWeight(1);
$graph->legend->SetColor('#4E4E4E','#00A78A');
$graph->legend->SetMarkAbsSize(8);


// Output line
$graph->Stroke('scatterFL.png');
?>
<img src="scatterFL.png?nocache=<?php echo time(); ?>">
</div></td></tr>

</table>

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


unlink('scatterNK.png');
/*
$datay1 = array(0,$K6dm-$Pdm,$K10dm-$Pdm,$K15dm-$Pdm,$K20dm-$Pdm,$K25dm-$Pdm,$K30dm-$Pdm,$K35dm-$Pdm,$K40dm-$Pdm,$K45dm-$Pdm,$K50dm-$Pdm,$K55dm-$Pdm,$K60dm-$Pdm,$K65dm-$Pdm,$K70dm-$Pdm,$K75dm-$Pdm,$K80dm-$Pdm,$K85dm-$Pdm,$K90dm-$Pdm,$K95dm-$Pdm,$K100dm-$Pdm);

$datay3 = array(0,$k50dT,$K100dm-$Pdm);

$graph = new Graph(500,400);
//$graph->SetScale("textlin");
$graph->SetScale('textlin');
//$graph->SetScale('intlin',0,100,-10,10);

$theme_class= new UniversalTheme;
$graph->SetTheme($theme_class);

$graph->title->Set('Curve K*');
$graph->SetBox(false);

$graph->yaxis->HideZeroLabel();
$graph->yaxis->HideLine(false);
$graph->yaxis->HideTicks(false,false);

$graph->xaxis->SetTickLabels(array('0','6','10','15','20','25','30','35','40','45','50','55','60','65','70','75','80','85','90','95','100'));
$graph->ygrid->SetFill(false);
//$graph->SetBackgroundImage("tiger_bkg.png",BGIMG_FILLFRAME);

$p1 = new LinePlot($datay1);
$graph->Add($p1);

$p1->SetColor("#aaaaaa");
$p1->SetLegend('K ');
$p1->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p1->mark->SetColor('#aaaaaa');
$p1->mark->SetFillColor('#aaaaaa');
$p1->SetCenter();

$graph->legend->SetFrameWeight(1);
$graph->legend->SetColor('#4E4E4E','#00A78A');
$graph->legend->SetMarkAbsSize(8);

$graph->Stroke('scatterNK.png');
*/

$xdata = array(0,50,100);
$ydata = array(0,$k50dT,$k100dm-$Pdm);
 
$xdata2 = array(0,6,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,100);
$ydata2 =  array(0,$k6dm-$Pdm,$k10dm-$Pdm,$k15dm-$Pdm,$k20dm-$Pdm,$k25dm-$Pdm,$k30dm-$Pdm,$k35dm-$Pdm,$k40dm-$Pdm,$k45dm-$Pdm,$k50dm-$Pdm,$k55dm-$Pdm,$k60dm-$Pdm,$k65dm-$Pdm,$k70dm-$Pdm,$k75dm-$Pdm,$k80dm-$Pdm,$k85dm-$Pdm,$k90dm-$Pdm,$k95dm-$Pdm,$k100dm-$Pdm);
// Get the interpolated values by creating
// a new Spline object.
$spline = new Spline($xdata,$ydata);
 
// For the new data set we want 40 points to
// get a smooth curve.
list($newx,$newy) = $spline->Get(50);

$g = new Graph(500,400);
$g->SetScale('linlin');
$theme_class= new UniversalTheme;
$graph->SetTheme($theme_class);

$g->title->Set('Curve K*');
$g->SetBox(false);

$g->yaxis->HideZeroLabel();
$g->yaxis->HideLine(false);
$g->yaxis->HideTicks(false,false);
$g->ygrid->SetFill(false);
 
// We use a scatterplot to illustrate the original
// contro points.
$splot = new ScatterPlot($ydata,$xdata);
$splot->mark->SetFillColor('[email protected]');
$splot->mark->SetColor('[email protected]');


$lplot = new LinePlot($newy,$newx);
$lplot->SetLegend('Target');

$p1 = new LinePlot($ydata2,$xdata2);
$g->Add($p1);

$p1->SetColor("#aaaaaa");
$p1->SetLegend('K ');
$p1->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p1->mark->SetColor('#aaaaaa');
$p1->mark->SetFillColor('#aaaaaa');
$p1->SetCenter();

$g->Add($splot);
$g->Add($lplot);
$g->Stroke('scatterNK.png');




?>
<img src="scatterNK.png?nocache=<?php echo time(); ?>">
</div></td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8" 
//require_once ('../jpgraph/jpgraph.php');
//require_once ('../jpgraph/jpgraph_line.php');


unlink('scatterNG.png');
/*
$datay1 = array(0,$C6dm-$Pdm,$C10dm-$Pdm,$C15dm-$Pdm,$C20dm-$Pdm,$C25dm-$Pdm,$C30dm-$Pdm,$C35dm-$Pdm,$C40dm-$Pdm,$C45dm-$Pdm,$C50dm-$Pdm,$C55dm-$Pdm,$C60dm-$Pdm,$C65dm-$Pdm,$C70dm-$Pdm,$C75dm-$Pdm,$C80dm-$Pdm,$C85dm-$Pdm,$C90dm-$Pdm,$C95dm-$Pdm,$C100dm-$Pdm);
$datay2 = array($db2,$db4,$db6,$db8,$db10,$db15,$db20,$db25,$db30,$db35,$db40,$db45,$db50,$db55,$db60,$db65,$db70,$db75,$db80,$db85,$db90,$db95,$db98);

$datay3 = array($da2,$da4,$da6,$da8,$da10,$da15,$da20,$da25,$da30,$da35,$da40,$da45,$da50,$da55,$da60,$da65,$da70,$da75,$da80,$da85,$da90,$da95,$da98);



// Setup the graph
$graph = new Graph(500,400);
//$graph->SetScale("textlin");
$graph->SetScale('textlin');
//$graph->SetScale('intlin',0,100,-10,10);

$theme_class= new UniversalTheme;
$graph->SetTheme($theme_class);

$graph->title->Set('Curve CMY');
$graph->SetBox(false);

$graph->yaxis->HideZeroLabel();
$graph->yaxis->HideLine(false);
$graph->yaxis->HideTicks(false,false);

$graph->xaxis->SetTickLabels(array('0','6','10','15','20','25','30','35','40','45','50','55','60','65','70','75','80','85','90','95','100'));
$graph->ygrid->SetFill(false);
//$graph->SetBackgroundImage("tiger_bkg.png",BGIMG_FILLFRAME);

$p1 = new LinePlot($datay1);
$graph->Add($p1);

//$p2 = new LinePlot($datay2);
//$graph->Add($p2);

//$p3 = new LinePlot($datay3);
//$graph->Add($p3);



//$p2 = new LinePlot($datay2);
//$graph->Add($p2);
//$ADR=$c21l-$a21l;
//$BDR=$ct21l-$at21l;

$p1->SetColor("#19f691");
$p1->SetLegend('dch');
$p1->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p1->mark->SetColor('#19f691');
$p1->mark->SetFillColor('#19f691');
$p1->SetCenter();


$p3->SetColor("#FFCCFF");
$p3->SetLegend('a*');
$p3->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p3->mark->SetColor('#FFCCFF');
$p3->mark->SetFillColor('#FFCCFF');
$p3->SetCenter();


$p2->SetColor("#6699FF");
$p2->SetLegend('b*');
$p2->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p2->mark->SetColor('#6699FF');
$p2->mark->SetFillColor('#669FF');
$p2->SetCenter();



$graph->legend->SetFrameWeight(1);
$graph->legend->SetColor('#4E4E4E','#00A78A');
$graph->legend->SetMarkAbsSize(8);


// Output line
*/

$xdata = array(0,50,100);
$ydata = array(0,$D50dT,$gy100dm-$Pdm);
 
$xdata2 = array(0,6,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,100);
$ydata2 =  array(0,$gy6dm-$Pdm,$gy10dm-$Pdm,$gy15dm-$Pdm,$gy20dm-$Pdm,$gy25dm-$Pdm,$gy30dm-$Pdm,$gy35dm-$Pdm,$gy40dm-$Pdm,$gy45dm-$Pdm,$gy50dm-$Pdm,$gy55dm-$Pdm,$gy60dm-$Pdm,$gy65dm-$Pdm,$gy70dm-$Pdm,$gy75dm-$Pdm,$gy80dm-$Pdm,$gy85dm-$Pdm,$gy90dm-$Pdm,$gy95dm-$Pdm,$gy100dm-$Pdm);
// Get the interpolated values by creating
// a new Spline object.
$spline = new Spline($xdata,$ydata);
 
// For the new data set we want 40 points to
// get a smooth curve.
list($newx,$newy) = $spline->Get(50);

$g = new Graph(500,400);
$g->SetScale('linlin');
$theme_class= new UniversalTheme;
$graph->SetTheme($theme_class);

$g->title->Set('Curve CMY*');
$g->SetBox(false);

$g->yaxis->HideZeroLabel();
$g->yaxis->HideLine(false);
$g->yaxis->HideTicks(false,false);
$g->ygrid->SetFill(false);
 
// We use a scatterplot to illustrate the original
// contro points.
$splot = new ScatterPlot($ydata,$xdata);
$splot->mark->SetFillColor('[email protected]');
$splot->mark->SetColor('[email protected]');


$lplot = new LinePlot($newy,$newx);
$lplot->SetLegend('Target');
$lplot->SetColor("#00ff00");

$p1 = new LinePlot($ydata2,$xdata2);
$g->Add($p1);

$p1->SetColor("#aaaaaa");
$p1->SetLegend('CMY ');
$p1->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p1->mark->SetColor('#aaaaaa');
$p1->mark->SetFillColor('#aaaaaa');
$p1->SetCenter();

$g->Add($splot);
$g->Add($lplot);

$g->Stroke('scatterNG.png');
?>
<img src="scatterNG.png?nocache=<?php echo time(); ?>">
</div></td></tr>

</table>

<table width="400" border="1" align="center" 
  <tr>
	<td>
	<td colspan = "3"><?php echo $target;?> data</td>

	<td colspan = "3">measured data</td>
	<td> ΔE00</td>

	</tr>
	<tr>
	<td bgcolor="#FFFFFF">Paper</td>
	<td align='right' bgcolor="#FFFFFF"><?php echo  round($pl,1);?></td>
	<td align='right' bgcolor="#FFFFFF"><?php echo  round($pa,1);?></td>
	<td align='right' bgcolor="#FFFFFF"><?php echo  round($pb,1);?></td>
	<td align='right' bgcolor="#FFFFFF"><?php echo  round($PLm,1);?></td>
	<td align='right' bgcolor="#FFFFFF"><?php echo  round($Pam,1);?></td>
	<td align='right' bgcolor="#FFFFFF"><?php echo  round($Pbm,1);?></td>
	<td align='right' bgcolor="#FFFFFF"><?php echo  round($dp00,2);?></td>
	
	</tr>
	<tr>
	<td bgcolor="#00FFFF">100C</td>
	<td align='right' bgcolor="#00FFFF"><?php echo  round($cl,1);?></td>
	<td align='right' bgcolor="#00FFFF"><?php echo  round($ca,1);?></td>
	<td align='right' bgcolor="#00FFFF"><?php echo  round($cb,1);?></td>
	<td align='right' bgcolor="#00FFFF"><?php echo  round($tcl,1);?></td>
	<td align='right' bgcolor="#00FFFF"><?php echo  round($tca,1);?></td>
	<td align='right' bgcolor="#00FFFF"><?php echo  round($tcb,1);?></td>
	<td align='right' bgcolor="#00FFFF"><a href="../deltaE/indexE.php?mL=<?php echo $clm.'&ma='.$cam.'&mb='.$cbm;?>"><?php  if (abs($dc00)>3.5) {echo "<font color='red'>";}echo  round($dc00,2);?></a></td>
	</tr>
		<tr>
	<td bgcolor="#FFCCFF">100M</td>
	<td align='right' bgcolor="#FFCCFF"><?php echo  round($ml,1);?></td>
	<td align='right' bgcolor="#FFCCFF"><?php echo  round($ma,1);?></td>
	<td align='right' bgcolor="#FFCCFF"><?php echo  round($mb,1);?></td>
	<td align='right' bgcolor="#FFCCFF"><?php echo  round($tml,1);?></td>
	<td align='right' bgcolor="#FFCCFF"><?php echo  round($tma,1);?></td>
	<td align='right' bgcolor="#FFCCFF"><?php echo  round($tmb,1);?></td>
	<td align='right' bgcolor="#FFCCFF"><a href="../deltaE/indexE.php?mL=<?php echo $mlm.'&ma='.$mam.'&mb='.$mbm;?>"><?php  if (abs($dm00)>3.5) {echo "<font color='red'>";}echo  round($dm00,2);?></a></td>
	</tr>
	<td bgcolor="#FFFF66">100Y</td>
	<td align='right' bgcolor="#FFFF66"><?php echo  round($yl,1);?></td>
	<td align='right' bgcolor="#FFFF66"><?php echo  round($ya,1);?></td>
	<td align='right' bgcolor="#FFFF66"><?php echo  round($yb,1);?></td>
	<td align='right' bgcolor="#FFFF66"><?php echo  round($tyl,1);?></td>
	<td align='right' bgcolor="#FFFF66"><?php echo  round($tya,1);?></td>
	<td align='right' bgcolor="#FFFF66"><?php echo  round($tyb,1);?></td>
	<td align='right' bgcolor="#FFFF66"><a href="../deltaE/indexE.php?mL=<?php echo $ylm.'&ma='.$yam.'&mb='.$ybm;?>"><?php  if (abs($dy00)>3.5) {echo "<font color='red'>";}echo  round($dy00,2);?></a></td>
	</tr>
	<td bgcolor="#BBBBBB">100K</td>
	<td align='right' bgcolor="#BBBBBB"><?php echo  round($kl,1);?></td>
	<td align='right' bgcolor="#BBBBBB"><?php echo  round($ka,1);?></td>
	<td align='right' bgcolor="#BBBBBB"><?php echo  round($kb,1);?></td>
	<td align='right' bgcolor="#BBBBBB"><?php echo  round($tkl,1);?></td>
	<td align='right' bgcolor="#BBBBBB"><?php echo  round($tka,1);?></td>
	<td align='right' bgcolor="#BBBBBB"><?php echo  round($tkb,1);?></td>
	<td align='right' bgcolor="#BBBBBB"><?php  if (abs($dk00)>4.2) {echo "<font color='red'>";}echo  round($dk00,2);?></td>
	</tr>
<tr>
	<td bgcolor="#DD7777">R</td>
	<td align='right' bgcolor="#DD7777"><?php echo  round($rl,1);?></td>
	<td align='right' bgcolor="#DD7777"><?php echo  round($ra,1);?></td>
	<td align='right' bgcolor="#DD7777"><?php echo  round($rb,1);?></td>
	<td align='right' bgcolor="#DD7777"><?php echo  round($trl,1);?></td>
	<td align='right' bgcolor="#DD7777"><?php echo  round($tra,1);?></td>
	<td align='right' bgcolor="#DD7777"><?php echo  round($trb,1);?></td>
	<td align='right' bgcolor="#DD7777"><?php  if (abs($dr00)>4.2) {echo "<font color='red'>";}echo  round($dr00,2);?></td>
	</tr>
	<tr>
	<td bgcolor="#55BB55">G</td>
	<td align='right' bgcolor="#55BB55"><?php echo  round($gl,1);?></td>
	<td align='right' bgcolor="#55BB55"><?php echo  round($ga,1);?></td>
	<td align='right' bgcolor="#55BB55"><?php echo  round($gb,1);?></td>
	<td align='right' bgcolor="#55BB55"><?php echo  round($tgl,1);?></td>
	<td align='right' bgcolor="#55BB55"><?php echo  round($tga,1)?></td>
	<td align='right' bgcolor="#55BB55"><?php echo  round($tgb,1);?></td>
	<td align='right' bgcolor="#55BB55"><?php  if (abs($dgn00)>4.2) {echo "<font color='red'>";}echo  round($dgn00,2);?></td>
	</tr>
	<tr>
	<td bgcolor="#7777DD">B</td>
	<td align='right' bgcolor="#7777DD"><?php echo  round($bl,1);?></td>
	<td align='right' bgcolor="#7777DD"><?php echo  round($ba,1);?></td>
	<td align='right' bgcolor="#7777DD"><?php echo  round($bb,1);?></td>
	<td align='right' bgcolor="#7777DD"><?php echo  round($tbl,1);?></td>
	<td align='right' bgcolor="#7777DD"><?php echo  round($tba,1);?></td>
	<td align='right' bgcolor="#7777DD"><?php echo  round($tbb,1);?></td>
	<td align='right' bgcolor="#7777DD"><?php if (abs($db00)>4.2) {echo "<font color='red'>";}  echo  round($db00,2);?></td>
	</tr>
</table>
<?php
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
//   //////////////////////////////////Beer's Law section///////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//$Pdot=0;$idx=6;
//	$PXm=sp38XYZ("X",$dot[$idx+$cols*$Pdot]
	//$Pdot=48;
	//$K100Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot]
   ////////////////sec K
   
	$ki=0.820;
	$ii=3;
	$r=24;
	
//	echo "line 2465:".$dot[(($ii*25)+$r)*42+6];

	for ( $i = 1; $i <= 30; $i+= 1) {

	$si=0;
	for ($s=380; $s<=730; $s+=10) {
	//dot[($i*25)*42+6]    $dot[($i*12+3)*42+6]
	//${'p'.$s}=$dot[25*42+6+$si];
	${'p'.$s}=$dot[25*45+3+6+$si];
	${'m'.$s}=$dot[(($ii*25)+$r)*45+9+$si];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}

	
	$ki=$ki+0.015;

	${'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 "<br>K1L=".round(${'k'.$i.'l'},3).",".round(${'k'.$i.'a'},3).",".round(${'k'.$i.'b'},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 "K1L=".round(${'k'.$i.'dd'},3);
	if ($i%5==0) {
	${'hexKa'.$i}=${'k'.$i.'a'};
	${'hexKb'.$i}=${'k'.$i.'b'};
	//echo "hex Ka=".${'hexKa'.$i};
	}
	
	//echo "K1D=".round(${'k'.$i.'dd'},3);
	

//	echo "K1D=".round(${'k'.$i.'dd'},3);
	}
//	echo "<br>";
//////////////////////sec C
	$ki=0.820;
	$ii=0;
	$r=12;
	
	for ( $i = 1; $i <= 30; $i+= 1) {

	$si=0;
	for ($s=380; $s<=730; $s+=10) {
	//dot[($i*25)*42+6]    $dot[($i*12+3)*42+6]
	${'p'.$s}=$dot[1134+$si];
	${'m'.$s}=$dot[549+$si];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}
	$ki=$ki+0.015;
 
	${'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 "<br>C1L=".round(${'c'.$i.'l'},3).",".round(${'c'.$i.'a'},3).",".round(${'c'.$i.'b'},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 "C1D=".round(${'c'.$i.'dd'},3);

	
	//echo "c1D=".round($c1dd,3);
		if ($i%5==0) {
	${'hexCa'.$i}=${'c'.$i.'a'};
	${'hexCb'.$i}=${'c'.$i.'b'};
	//echo "hex Ca Cb=".${'hexCa'.$i}."_".${'hexCb'.$i};
	}
//	echo "C1D=".round(${'c'.$i.'dd'},3);
	}
	//echo "<br>";
	
//////////////////////////sec M
	$ki=0.820;
	$ii=1;
	$r=12;
	
	for ( $i = 1; $i <= 30; $i+= 1) {

	$si=0;
	for ($s=380; $s<=730; $s+=10) {
	//dot[($i*25)*42+6]    $dot[($i*12+3)*42+6]
	${'p'.$s}=$dot[1134+$si];
	${'m'.$s}=$dot[1674+$si];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}
	$ki=$ki+0.015;

	${'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);
	

			if ($i%5==0) {
	${'hexMa'.$i}=${'m'.$i.'a'};
	${'hexMb'.$i}=${'m'.$i.'b'};
	//echo "hex Ma Mb=".${'hexMa'.$i}."_".${'hexMb'.$i};
	}
//	echo "m1D=".round(${'m'.$i.'dd'},3);
	}
// echo "<br>";
///////////////////sec Y
	$ki=0.880;
	$ii=2;
	$r=12;
	
	for ( $i = 1; $i <= 30; $i+= 1) {

	$si=0;
	for ($s=380; $s<=730; $s+=10) {
	//dot[($i*25)*42+6]    $dot[($i*12+3)*42+6]
	${'p'.$s}=$dot[1134+$si];
	${'m'.$s}=$dot[2799+$si];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}
	$ki=$ki+0.015;

	${'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);
   

   		if ($i%5==0) {
	${'hexYa'.$i}=${'y'.$i.'a'};
	${'hexYb'.$i}=${'y'.$i.'b'};
	//echo "hex Ya Yb=".${'hexYa'.$i}."_".${'hexYb'.$i};
	}
 //  echo "y1D=".round(${'y'.$i.'dd'},3);
   }
   
//   echo "<br>"; 
   ////////////////sec R

	$ki=0.880;
	$ii=0;
	$r=24;
	
	for ( $i = 1; $i <= 30; $i+= 1) {

	$si=0;
	for ($s=380; $s<=730; $s+=10) {
	//dot[($i*25)*42+6]    $dot[($i*12+3)*42+6]
	${'p'.$s}=$dot[1134+$si];
	${'m'.$s}=$dot[1089+$si];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}
	$ki=$ki+0.015;

	${'r'.$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);
	${'r'.$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);

	${'r'.$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>";
	
	${'r'.$i.'l'}=xyz2lab01("l",${'r'.$i.'X'},${'r'.$i.'Y'},${'r'.$i.'Z'});
	${'r'.$i.'a'}=xyz2lab01("a",${'r'.$i.'X'},${'r'.$i.'Y'},${'r'.$i.'Z'});
	${'r'.$i.'b'}=xyz2lab01("b",${'r'.$i.'X'},${'r'.$i.'Y'},${'r'.$i.'Z'});
	
	//echo "K1L=".round($k1l,3).",".round($k1a,3).",".round($k1b,3);
	${'r'.$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(${'k'.$i.'dd'},3);
	

			if ($i%5==0) {
	${'hexRa'.$i}=${'r'.$i.'a'};
	${'hexRb'.$i}=${'r'.$i.'b'};
	//echo "hex Ra Rb=".${'hexRa'.$i}."_".${'hexRb'.$i};
	}
//	echo "r1D=".round(${'r'.$i.'dd'},3);
	//echo "r1L=".round(${'r'.$i.'l'},3);
	}
//	echo "<br>";
	
	
/////////////////////Sec G	
  ////////////////sec G

	$ki=0.880;
	$ii=1;
	$r=24;
	
	for ( $i = 1; $i <= 30; $i+= 1) {

	$si=0;
	for ($s=380; $s<=730; $s+=10) {
	//dot[($i*25)*42+6]    $dot[($i*12+3)*42+6]
	${'p'.$s}=$dot[1134+$si];
	${'m'.$s}=$dot[2214+$si];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}
	
	$ki=$ki+0.015;

	${'gn'.$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);
	${'gn'.$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);

	${'gn'.$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>";
	
	${'gn'.$i.'l'}=xyz2lab01("l",${'gn'.$i.'X'},${'gn'.$i.'Y'},${'gn'.$i.'Z'});
	${'gn'.$i.'a'}=xyz2lab01("a",${'gn'.$i.'X'},${'gn'.$i.'Y'},${'gn'.$i.'Z'});
	${'gn'.$i.'b'}=xyz2lab01("b",${'gn'.$i.'X'},${'gn'.$i.'Y'},${'gn'.$i.'Z'});
	
	//echo "K1L=".round($k1l,3).",".round($k1a,3).",".round($k1b,3);
	${'gn'.$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(${'k'.$i.'dd'},3);

			if ($i%5==0) {
	${'hexGRa'.$i}=${'gn'.$i.'a'};
	${'hexGRb'.$i}=${'gn'.$i.'b'};
	//echo "hex GRa GRb=".${'hexGRa'.$i}."_".${'hexGRb'.$i};
	}
//	echo "Gr1D=".round(${'gr'.$i.'dd'},3);
	//echo "r1L=".round(${'r'.$i.'l'},3);
	}
//	echo "<br>";
	
	  ////////////////sec B

	$ki=0.820;
	$ii=2;
	$r=24;
	
	for ( $i = 1; $i <= 30; $i+= 1) {

	$si=0;
	for ($s=380; $s<=730; $s+=10) {
	//dot[($i*25)*42+6]    $dot[($i*12+3)*42+6]
	${'p'.$s}=$dot[1134+$si];
	${'m'.$s}=$dot[3339+$si];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}
	$ki=$ki+0.015;

	${'b'.$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);
	${'b'.$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);

	${'b'.$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>";
	
	${'b'.$i.'l'}=xyz2lab01("l",${'b'.$i.'X'},${'b'.$i.'Y'},${'b'.$i.'Z'});
	${'b'.$i.'a'}=xyz2lab01("a",${'b'.$i.'X'},${'b'.$i.'Y'},${'b'.$i.'Z'});
	${'b'.$i.'b'}=xyz2lab01("b",${'b'.$i.'X'},${'b'.$i.'Y'},${'b'.$i.'Z'});
	
	//echo "K1L=".round($k1l,3).",".round($k1a,3).",".round($k1b,3);
	${'b'.$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);
	//echo "K1D=".round(${'k'.$i.'dd'},3);

			if ($i%5==0) {
	${'hexBa'.$i}=${'b'.$i.'a'};
	${'hexBb'.$i}=${'b'.$i.'b'};
	//echo "hex Ba Bb=".${'hexBa'.$i}."_".${'hexBb'.$i};
	}
//	echo "b1D=".round(${'b'.$i.'dd'},3);
	//echo "r1L=".round(${'r'.$i.'l'},3);
	}
//	echo "<br>";
	
	
	
   //////////////////////////////////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);
//}

////////////////////////////de00////////////////////

	# ------- The graph values in the form of associative array

///////////////////////////////de00////////////////////// 
 //$tt00=de76(55,-37,-50,54.3,-34.47,-52.63);
 $dek00=$dk00;
 $dec00=$dc00;
 $dem00=$dm00;
 $dey00=$dy00;
 
 $der00=$dr00;
 $degn00=$dgn00;
 $deb00=$db00;
 
 
 

  $dk176=de00($kl,$ka,$kb,$k1l,$k1a,$k1b);
  $dk276=de00($kl,$ka,$kb,$k2l,$k2a,$k2b);
  $dk376=de00($kl,$ka,$kb,$k3l,$k3a,$k3b);
  $dk476=de00($kl,$ka,$kb,$k4l,$k4a,$k4b);
  $dk576=de00($kl,$ka,$kb,$k5l,$k5a,$k5b);
  $dk676=de00($kl,$ka,$kb,$k6l,$k6a,$k6b);
  $dk776=de00($kl,$ka,$kb,$k7l,$k7a,$k7b);
  $dk876=de00($kl,$ka,$kb,$k8l,$k8a,$k8b);
  $dk976=de00($kl,$ka,$kb,$k9l,$k9a,$k9b);
  $dk1076=de00($kl,$ka,$kb,$k10l,$k10a,$k10b);
  $dk1176=de00($kl,$ka,$kb,$k11l,$k11a,$k11b);
  $dk1276=de00($kl,$ka,$kb,$k12l,$k12a,$k12b);
  $dk1376=de00($kl,$ka,$kb,$k13l,$k13a,$k13b);
  $dk1476=de00($kl,$ka,$kb,$k14l,$k14a,$k14b);
  $dk1576=de00($kl,$ka,$kb,$k15l,$k15a,$k15b);
  $dk1676=de00($kl,$ka,$kb,$k16l,$k16a,$k16b);
  $dk1776=de00($kl,$ka,$kb,$k17l,$k17a,$k17b);
  $dk1876=de00($kl,$ka,$kb,$k18l,$k18a,$k18b);
  $dk1976=de00($kl,$ka,$kb,$k19l,$k19a,$k19b);
  $dk2076=de00($kl,$ka,$kb,$k20l,$k20a,$k20b);
  $dk2176=de00($kl,$ka,$kb,$k21l,$k21a,$k21b);
  $dk2276=de00($kl,$ka,$kb,$k22l,$k22a,$k22b);
  $dk2376=de00($kl,$ka,$kb,$k23l,$k23a,$k23b);
  $dk2476=de00($kl,$ka,$kb,$k24l,$k24a,$k24b);
  $dk2576=de00($kl,$ka,$kb,$k25l,$k25a,$k25b);
  $dk2676=de00($kl,$ka,$kb,$k26l,$k26a,$k26b);
  $dk2776=de00($kl,$ka,$kb,$k27l,$k27a,$k27b);
  $dk2876=de00($kl,$ka,$kb,$k28l,$k28a,$k28b);
  $dk2976=de00($kl,$ka,$kb,$k29l,$k29a,$k29b);
  $dk3076=de00($kl,$ka,$kb,$k30l,$k30a,$k30b);
  $kmin=min($dk176,$dk276,$dk376,$dk476,$dk576,$dk676,$dk776,$dk876,$dk976,$dk1076,$dk1176,$dk1276,$dk1376,$dk1476,$dk1576,$dk1676,$dk1776,$dk1876,$dk1976,$dk2076,$dk2176,$dk2276,$dk2376,$dk2476,$dk2576,$dk2676,$dk2776,$dk2876,$dk2976,$dk3076);
  
 // echo "<br>kmn:".$kmin;
  
 // $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=de00($cl,$ca,$cb,$c1l,$c1a,$c1b);
//echo "<br>dc176:".$dc176."_".$cl."_".$ca."_".$cb."_".$c1l."_".$c1a."_".$c1b;
  $dc276=de00($cl,$ca,$cb,$c2l,$c2a,$c2b);
  $dc376=de00($cl,$ca,$cb,$c3l,$c3a,$c3b);
  $dc476=de00($cl,$ca,$cb,$c4l,$c4a,$c4b);
  $dc576=de00($cl,$ca,$cb,$c5l,$c5a,$c5b);
  $dc676=de00($cl,$ca,$cb,$c6l,$c6a,$c6b);
  $dc776=de00($cl,$ca,$cb,$c7l,$c7a,$c7b);
  $dc876=de00($cl,$ca,$cb,$c8l,$c8a,$c8b);
  $dc976=de00($cl,$ca,$cb,$c9l,$c9a,$c9b);
  $dc1076=de00($cl,$ca,$cb,$c10l,$c10a,$c10b);
  $dc1176=de00($cl,$ca,$cb,$c11l,$c11a,$c11b);
  $dc1276=de00($cl,$ca,$cb,$c12l,$c12a,$c12b);
  $dc1376=de00($cl,$ca,$cb,$c13l,$c13a,$c13b);
  $dc1476=de00($cl,$ca,$cb,$c14l,$c14a,$c14b);
  $dc1576=de00($cl,$ca,$cb,$c15l,$c15a,$c15b);
  $dc1676=de00($cl,$ca,$cb,$c16l,$c16a,$c16b);
  $dc1776=de00($cl,$ca,$cb,$c17l,$c17a,$c17b);
  $dc1876=de00($cl,$ca,$cb,$c18l,$c18a,$c18b);
  $dc1976=de00($cl,$ca,$cb,$c19l,$c19a,$c19b);
  $dc2076=de00($cl,$ca,$cb,$c20l,$c20a,$c20b);
  $dc2176=de00($cl,$ca,$cb,$c21l,$c21a,$c21b);
  $dc2276=de00($cl,$ca,$cb,$c22l,$c22a,$c22b);
  $dc2376=de00($cl,$ca,$cb,$c23l,$c23a,$c23b);
  $dc2476=de00($cl,$ca,$cb,$c24l,$c24a,$c24b);
  $dc2576=de00($cl,$ca,$cb,$c25l,$c25a,$c25b);
  $dc2676=de00($cl,$ca,$cb,$c26l,$c26a,$c26b);
  $dc2776=de00($cl,$ca,$cb,$c27l,$c27a,$c27b);
  $dc2876=de00($cl,$ca,$cb,$c28l,$c28a,$c28b);
  $dc2976=de00($cl,$ca,$cb,$c29l,$c29a,$c29b);
  $dc3076=de00($cl,$ca,$cb,$c30l,$c30a,$c30b);
  $cmin=min($dc176,$dc276,$dc376,$dc476,$dc576,$dc676,$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=de00($ml,$ma,$mb,$m1l,$m1a,$m1b);
  $dm276=de00($ml,$ma,$mb,$m2l,$m2a,$m2b);
  $dm376=de00($ml,$ma,$mb,$m3l,$m3a,$m3b);
  $dm476=de00($ml,$ma,$mb,$m4l,$m4a,$m4b);
  $dm576=de00($ml,$ma,$mb,$m5l,$m5a,$m5b);
  $dm676=de00($ml,$ma,$mb,$m6l,$m6a,$m6b);
  $dm776=de00($ml,$ma,$mb,$m7l,$m7a,$m7b);
  $dm876=de00($ml,$ma,$mb,$m8l,$m8a,$m8b);
  $dm976=de00($ml,$ma,$mb,$m9l,$m9a,$m9b);
  $dm1076=de00($ml,$ma,$mb,$m10l,$m10a,$m10b);
  $dm1176=de00($ml,$ma,$mb,$m11l,$m11a,$m11b);
  $dm1276=de00($ml,$ma,$mb,$m12l,$m12a,$m12b);
  $dm1376=de00($ml,$ma,$mb,$m13l,$m13a,$m13b);
  $dm1476=de00($ml,$ma,$mb,$m14l,$m14a,$m14b);
  $dm1576=de00($ml,$ma,$mb,$m15l,$m15a,$m15b);
  $dm1676=de00($ml,$ma,$mb,$m16l,$m16a,$m16b);
  $dm1776=de00($ml,$ma,$mb,$m17l,$m17a,$m17b);
  $dm1876=de00($ml,$ma,$mb,$m18l,$m18a,$m18b);
  $dm1976=de00($ml,$ma,$mb,$m19l,$m19a,$m19b);
  $dm2076=de00($ml,$ma,$mb,$m20l,$m20a,$m20b);
  $dm2176=de00($ml,$ma,$mb,$m21l,$m21a,$m21b);
  $dm2276=de00($ml,$ma,$mb,$m22l,$m22a,$m22b);
  $dm2376=de00($ml,$ma,$mb,$m23l,$m23a,$m23b);
  $dm2476=de00($ml,$ma,$mb,$m24l,$m24a,$m24b);
  $dm2576=de00($ml,$ma,$mb,$m25l,$m25a,$m25b);
  $dm2676=de00($ml,$ma,$mb,$m26l,$m26a,$m26b);
  $dm2776=de00($ml,$ma,$mb,$m27l,$m27a,$m27b);
  $dm2876=de00($ml,$ma,$mb,$m28l,$m28a,$m28b);
  $dm2976=de00($ml,$ma,$mb,$m29l,$m29a,$m29b);
  $dm3076=de00($ml,$ma,$mb,$m30l,$m30a,$m30b);
  $mmin=min($dm176,$dm276,$dm376,$dm476,$dm576,$dm676,$dm776,$dm876,$dm976,$dm1076,$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=de00($yl,$ya,$yb,$y1l,$y1a,$y1b);
  $dy276=de00($yl,$ya,$yb,$y2l,$y2a,$y2b);
  $dy376=de00($yl,$ya,$yb,$y3l,$y3a,$y3b);
  $dy476=de00($yl,$ya,$yb,$y4l,$y4a,$y4b);
  $dy576=de00($yl,$ya,$yb,$y5l,$y5a,$y5b);
  $dy676=de00($yl,$ya,$yb,$y6l,$y6a,$y6b);
  $dy776=de00($yl,$ya,$yb,$y7l,$y7a,$y7b);
  $dy876=de00($yl,$ya,$yb,$y8l,$y8a,$y8b);
  $dy976=de00($yl,$ya,$yb,$y9l,$y9a,$y9b);
  $dy1076=de00($yl,$ya,$yb,$y10l,$y10a,$y10b);
  $dy1176=de00($yl,$ya,$yb,$y11l,$y11a,$y11b);
  $dy1276=de00($yl,$ya,$yb,$y12l,$y12a,$y12b);
  $dy1376=de00($yl,$ya,$yb,$y13l,$y13a,$y13b);
  $dy1476=de00($yl,$ya,$yb,$y14l,$y14a,$y14b);
  $dy1576=de00($yl,$ya,$yb,$y15l,$y15a,$y15b);
  $dy1676=de00($yl,$ya,$yb,$y16l,$y16a,$y16b);
  $dy1776=de00($yl,$ya,$yb,$y17l,$y17a,$y17b);
  $dy1876=de00($yl,$ya,$yb,$y18l,$y18a,$y18b);
  $dy1976=de00($yl,$ya,$yb,$y19l,$y19a,$y19b);
  $dy2076=de00($yl,$ya,$yb,$y20l,$y20a,$y20b);
  $dy2176=de00($yl,$ya,$yb,$y21l,$y21a,$y21b);
  $dy2276=de00($yl,$ya,$yb,$y22l,$y22a,$y22b);
  $dy2376=de00($yl,$ya,$yb,$y23l,$y23a,$y23b);
  $dy2476=de00($yl,$ya,$yb,$y24l,$y24a,$y24b);
  $dy2576=de00($yl,$ya,$yb,$y25l,$y25a,$y25b);
  $dy2676=de00($yl,$ya,$yb,$y26l,$y26a,$y26b);
  $dy2776=de00($yl,$ya,$yb,$y27l,$y27a,$y27b);
  $dy2876=de00($yl,$ya,$yb,$y28l,$y28a,$y28b);
  $dy2976=de00($yl,$ya,$yb,$y29l,$y29a,$y29b);
  $dy3076=de00($yl,$ya,$yb,$y30l,$y30a,$y30b);
  $ymin=min($dy176,$dy276,$dy376,$dy476,$dy576,$dy676,$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='+';}}?>

<?php 
///////////////////////////////sec R
$dr176=de00($rl,$ra,$rb,$r1l,$r1a,$r1b);
  $dr276=de00($rl,$ra,$rb,$r2l,$r2a,$r2b);
  $dr376=de00($rl,$ra,$rb,$r3l,$r3a,$r3b);
  $dr476=de00($rl,$ra,$rb,$r4l,$r4a,$r4b);
  $dr576=de00($rl,$ra,$rb,$r5l,$r5a,$r5b);
  $dr676=de00($rl,$ra,$rb,$r6l,$r6a,$r6b);
  $dr776=de00($rl,$ra,$rb,$r7l,$r7a,$r7b);
  $dr876=de00($rl,$ra,$rb,$r8l,$r8a,$r8b);
  $dr976=de00($rl,$ra,$rb,$r9l,$r9a,$r9b);
  $dr1076=de00($rl,$ra,$rb,$r10l,$r10a,$r10b);
  $dr1176=de00($rl,$ra,$rb,$r11l,$r11a,$r11b);
  $dr1276=de00($rl,$ra,$rb,$r12l,$r12a,$r12b);
  $dr1376=de00($rl,$ra,$rb,$r13l,$r13a,$r13b);
  $dr1476=de00($rl,$ra,$rb,$r14l,$r14a,$r14b);
  $dr1576=de00($rl,$ra,$rb,$r15l,$r15a,$r15b);
  $dr1676=de00($rl,$ra,$rb,$r16l,$r16a,$r16b);
  $dr1776=de00($rl,$ra,$rb,$r17l,$r17a,$r17b);
  $dr1876=de00($rl,$ra,$rb,$r18l,$r18a,$r18b);
  $dr1976=de00($rl,$ra,$rb,$r19l,$r19a,$r19b);
  $dr2076=de00($rl,$ra,$rb,$r20l,$r20a,$r20b);
  $dr2176=de00($rl,$ra,$rb,$r21l,$r21a,$r21b);
  $dr2276=de00($rl,$ra,$rb,$r22l,$r22a,$r22b);
  $dr2376=de00($rl,$ra,$rb,$r23l,$r23a,$r23b);
  $dr2476=de00($rl,$ra,$rb,$r24l,$r24a,$r24b);
  $dr2576=de00($rl,$ra,$rb,$r25l,$r25a,$r25b);
  $dr2676=de00($rl,$ra,$rb,$r26l,$r26a,$r26b);
  $dr2776=de00($rl,$ra,$rb,$r27l,$r27a,$r27b);
  $dr2876=de00($rl,$ra,$rb,$r28l,$r28a,$r28b);
  $dr2976=de00($rl,$ra,$rb,$r29l,$r29a,$r29b);
  $dr3076=de00($rl,$ra,$rb,$r30l,$r30a,$r30b);
  $rmin=min($dr176,$dr276,$dr376,$dr476,$dr576,$dr676,$dr776,$dr876,$dr976,$dr1076,$dr1176,$dr1276,$dr1376,$dr1476,$dr1576,$dr1676,$dr1776,$dr1876,$dr1976,$dr2076,$dr2176,$dr2276,$dr2376,$dr2476,$dr2576,$dr2676,$dr2776,$dr2876,$dr2976,$dr3076);
  
  
  //$dm194=de94($ml,$ma,$mb,$m1l,$m1a,$m1b);
  

  ?>


<?php if ($dr176==$rmin){ $ropt='1';$roptD=$r1dd;if ($r1a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr276==$rmin){ $ropt='2';$roptD=$r2dd;if ($r2a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr376==$rmin){ $ropt='3';$roptD=$r3dd;if ($r3a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr476==$rmin){ $ropt='4';$roptD=$r4dd;if ($r4a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr576==$rmin){ $ropt='5';$roptD=$r5dd;if ($r5a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr676==$rmin){ $ropt='6';$roptD=$r6dd;if ($r6a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr776==$rmin){ $ropt='7';$roptD=$r7dd;if ($r7a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr876==$rmin){ $ropt='8';$roptD=$r8dd; if ($r8a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr976==$rmin){ $ropt='9';$roptD=$r9dd;if ($r9a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1076==$rmin){ $ropt='10';$roptD=$r10dd;if ($r10a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1176==$rmin){ $ropt='11';$roptD=$r11dd;if ($r11a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1276==$rmin){ $ropt='12';$roptD=$r12dd;if ($r12a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1376==$rmin){ $ropt='13';$roptD=$r13dd;if ($r13a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1476==$rmin){ $ropt='14';$roptD=$r14dd;if ($r14a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php  if ($dr1576==$rmin){ $ropt='15';$roptD=$r15dd;if ($r15a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1676==$rmin){ $ropt='16';$roptD=$r16dd;if ($r16a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1776==$rmin){ $ropt='17';$roptD=$r17dd;if ($r17a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1876==$rmin){ $ropt='18';$roptD=$r18dd;if ($r18a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1976==$rmin){ $ropt='19';$roptD=$r19dd;if ($r19a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2076==$rmin){ $ropt='20';$roptD=$r20dd;if ($r20a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2176==$rmin){ $ropt='21';$roptD=$r21dd;if ($r21a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2276==$rmin){ $ropt='22';$roptD=$r22dd;if ($r22a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php  if ($dr2376==$rmin){ $ropt='23';$roptD=$r23dd;if ($r23a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2476==$rmin){ $ropt='24';$roptD=$r24dd;if ($r24a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2576==$rmin){ $ropt='25';$roptD=$r25dd;if ($r25a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2676==$rmin){ $ropt='26';$roptD=$r26dd;if ($r26a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2776==$rmin){ $ropt='27';$roptD=$r27dd;if ($r27a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2876==$rmin){ $ropt='28';$roptD=$r28dd;if ($r28a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2976==$rmin){ $ropt='29';$roptD=$r29dd;if ($r29a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php  if ($dr3076==$rmin){ $ropt='30';$roptD=$r30dd;if ($r30a>74) {$rdi="-";} else {$rdi='+';}}?>



<?php ///////////////////////////////sec G
//echo "<br> roptD=".$roptD;

$dgn176=de00($gl,$ga,$gb,$gn1l,$gn1a,$gn1b);
  $dgn276=de00($gl,$ga,$gb,$gn2l,$gn2a,$gn2b);
  $dgn376=de00($gl,$ga,$gb,$gn3l,$gn3a,$gn3b);
  $dgn476=de00($gl,$ga,$gb,$gn4l,$gn4a,$gn4b);
  $dgn576=de00($gl,$ga,$gb,$gn5l,$gn5a,$gn5b);
  $dgn676=de00($gl,$ga,$gb,$gn6l,$gn6a,$gn6b);
  $dgn776=de00($gl,$ga,$gb,$gn7l,$gn7a,$gn7b);
  $dgn876=de00($gl,$ga,$gb,$gn8l,$gn8a,$gn8b);
  $dgn976=de00($gl,$ga,$gb,$gn9l,$gn9a,$gn9b);
  $dgn1076=de00($gl,$ga,$gb,$gn10l,$gn10a,$gn10b);
  $dgn1176=de00($gl,$ga,$gb,$gn11l,$gn11a,$gn11b);
  $dgn1276=de00($gl,$ga,$gb,$gn12l,$gn12a,$gn12b);
  $dgn1376=de00($gl,$ga,$gb,$gn13l,$gn13a,$gn13b);
  $dgn1476=de00($gl,$ga,$gb,$gn14l,$gn14a,$gn14b);
  $dgn1576=de00($gl,$ga,$gb,$gn15l,$gn15a,$gn15b);
  $dgn1676=de00($gl,$ga,$gb,$gn16l,$gn16a,$gn16b);
  $dgn1776=de00($gl,$ga,$gb,$gn17l,$gn17a,$gn17b);
  $dgn1876=de00($gl,$ga,$gb,$gn18l,$gn18a,$gn18b);
  $dgn1976=de00($gl,$ga,$gb,$gn19l,$gn19a,$gn19b);
  $dgn2076=de00($gl,$ga,$gb,$gn20l,$gn20a,$gn20b);
  $dgn2176=de00($gl,$ga,$gb,$gn21l,$gn21a,$gn21b);
  $dgn2276=de00($gl,$ga,$gb,$gn22l,$gn22a,$gn22b);
  $dgn2376=de00($gl,$ga,$gb,$gn23l,$gn23a,$gn23b);
  $dgn2476=de00($gl,$ga,$gb,$gn24l,$gn24a,$gn24b);
  $dgn2576=de00($gl,$ga,$gb,$gn25l,$gn25a,$gn25b);
  $dgn2676=de00($gl,$ga,$gb,$gn26l,$gn26a,$gn26b);
  $dgn2776=de00($gl,$ga,$gb,$gn27l,$gn27a,$gn27b);
  $dgn2876=de00($gl,$ga,$gb,$gn28l,$gn28a,$gn28b);
  $dgn2976=de00($gl,$ga,$gb,$gn29l,$gn29a,$gn29b);
  $dgn3076=de00($gl,$ga,$gb,$gn30l,$gn30a,$gn30b);
  $gnmin=min($dgn176,$dgn276,$dgn376,$dgn476,$dgn576,$dgn676,$dgn776,$dgn876,$dgn976,$dgn1076,$dgn1176,$dgn1276,$dgn1376,$dgn1476,$dgn1576,$dgn1676,$dgn1776,$dgn1876,$dgn1976,$dgn2076,$dgn2176,$dgn2276,$dgn2376,$dgn2476,$dgn2576,$dgn2676,$dgn2776,$dgn2876,$dgn2976,$dgn3076);
  
  
  //$dm194=de94($ml,$ma,$mb,$m1l,$m1a,$m1b);
  

  ?>


<?php if ($dgn176==$gnmin){ $gnopt='1';$gnoptD=$gn1dd;if ($gn1a>74) {$gndi="-";} else {$grdi='+';}}?>
<?php if ($dgn276==$gnmin){ $gnopt='2';$gnoptD=$gn2dd;if ($gn2a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn376==$gnmin){ $gnopt='3';$gnoptD=$gn3dd;if ($gn3a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn476==$gnmin){ $gnopt='4';$gnoptD=$gn4dd;if ($gn4a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn576==$gnmin){ $gnopt='5';$gnoptD=$gn5dd;if ($gn5a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn676==$gnmin){ $gnopt='6';$gnoptD=$gn6dd;if ($gn6a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn776==$gnmin){ $gnopt='7';$gnoptD=$gn7dd;if ($gn7a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn876==$gnmin){ $gnopt='8';$gnoptD=$gn8dd; if ($gn8a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn976==$gnmin){ $gnopt='9';$gnoptD=$gn9dd;if ($gn9a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn1076==$gnmin){ $gnopt='10';$gnoptD=$gn10dd;if ($gn10a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn1176==$gnmin){ $gnopt='11';$gnoptD=$gn11dd;if ($gn11a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn1276==$gnmin){ $gnopt='12';$gnoptD=$gn12dd;if ($gn12a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn1376==$gnmin){ $gnopt='13';$gnoptD=$gn13dd;if ($gn13a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn1476==$gnmin){ $gnopt='14';$gnoptD=$gn14dd;if ($gn14a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php  if ($dgn1576==$gnmin){ $gnopt='15';$gnoptD=$gn15dd;if ($gn15a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn1676==$gnmin){ $gnopt='16';$gnoptD=$gn16dd;if ($gn16a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn1776==$gnmin){ $gnopt='17';$gnoptD=$gn17dd;if ($gn17a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn1876==$gnmin){ $gnopt='18';$gnoptD=$gn18dd;if ($gn18a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn1976==$gnmin){ $gnopt='19';$gnoptD=$gn19dd;if ($gn19a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn2076==$gnmin){ $gnopt='20';$gnoptD=$gn20dd;if ($gn20a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn2176==$gnmin){ $gnopt='21';$gnoptD=$gn21dd;if ($gn21a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn2276==$gnmin){ $gnopt='22';$gnoptD=$gn22dd;if ($gn22a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php  if ($dgn2376==$gnmin){ $gnopt='23';$gnoptD=$gn23dd;if ($gn23a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn2476==$gnmin){ $gnopt='24';$gnoptD=$gn24dd;if ($gn24a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn2576==$gnmin){ $gnopt='25';$gnoptD=$gn25dd;if ($gn25a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn2676==$gnmin){ $gnopt='26';$gnoptD=$gn26dd;if ($gn26a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn2776==$gnmin){ $gnopt='27';$gnoptD=$gn27dd;if ($gn27a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn2876==$gnmin){ $gnopt='28';$gnoptD=$gn28dd;if ($gn28a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php if ($dgn2976==$gnmin){ $gnopt='29';$gnoptD=$gn29dd;if ($gn29a>74) {$gndi="-";} else {$gndi='+';}}?>
<?php  if ($dgn3076==$gnmin){ $gnopt='30';$gnoptD=$gn30dd;if ($gn30a>74) {$gndi="-";} else {$gndi='+';}}?>

<?php ///////////////////////////////sec B
$db176=de00($bl,$ba,$bb,$b1l,$b1a,$b1b);
  $db276=de00($bl,$ba,$bb,$b2l,$b2a,$b2b);
  $db376=de00($bl,$ba,$bb,$b3l,$b3a,$b3b);
  $db476=de00($bl,$ba,$bb,$b4l,$b4a,$b4b);
  $db576=de00($bl,$ba,$bb,$b5l,$b5a,$b5b);
  $db676=de00($bl,$ba,$bb,$b6l,$b6a,$b6b);
  $db776=de00($bl,$ba,$bb,$b7l,$b7a,$b7b);
  $db876=de00($bl,$ba,$bb,$b8l,$b8a,$b8b);
  $db976=de00($bl,$ba,$bb,$b9l,$b9a,$b9b);
  $db1076=de00($bl,$ba,$bb,$b10l,$b10a,$b10b);
  $db1176=de00($bl,$ba,$bb,$b11l,$b11a,$b11b);
  $db1276=de00($bl,$ba,$bb,$b12l,$b12a,$b12b);
  $db1376=de00($bl,$ba,$bb,$b13l,$b13a,$b13b);
  $db1476=de00($bl,$ba,$bb,$b14l,$b14a,$b14b);
  $db1576=de00($bl,$ba,$bb,$b15l,$b15a,$b15b);
  $db1676=de00($bl,$ba,$bb,$b16l,$b16a,$b16b);
  $db1776=de00($bl,$ba,$bb,$b17l,$b17a,$b17b);
  $db1876=de00($bl,$ba,$bb,$b18l,$b18a,$b18b);
  $db1976=de00($bl,$ba,$bb,$b19l,$b19a,$b19b);
  $db2076=de00($bl,$ba,$bb,$b20l,$b20a,$b20b);
  $db2176=de00($bl,$ba,$bb,$b21l,$b21a,$b21b);
  $db2276=de00($bl,$ba,$bb,$b22l,$b22a,$b22b);
  $db2376=de00($bl,$ba,$bb,$b23l,$b23a,$b23b);
  $db2476=de00($bl,$ba,$bb,$b24l,$b24a,$b24b);
  $db2576=de00($bl,$ba,$bb,$b25l,$b25a,$b25b);
  $db2676=de00($bl,$ba,$bb,$b26l,$b26a,$b26b);
  $db2776=de00($bl,$ba,$bb,$b27l,$b27a,$b27b);
  $db2876=de00($bl,$ba,$bb,$b28l,$b28a,$b28b);
  $db2976=de00($bl,$ba,$bb,$b29l,$b29a,$b29b);
  $db3076=de00($bl,$ba,$bb,$b30l,$b30a,$b30b);
  $bmin=min($db176,$db276,$db376,$db476,$db576,$db676,$db776,$db876,$db976,$db1076,$db1176,$db1276,$db1376,$db1476,$db1576,$db1676,$db1776,$db1876,$db1976,$db2076,$db2176,$db2276,$db2376,$db2476,$db2576,$db2676,$db2776,$db2876,$db2976,$db3076);
  
  
  //$dm194=de94($ml,$ma,$mb,$m1l,$m1a,$m1b);
  

  ?>


<?php if ($db176==$bmin){ $bopt='1';$boptD=$b1dd;if ($b1a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db276==$bmin){ $bopt='2';$boptD=$b2dd;if ($b2a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db376==$bmin){ $bopt='3';$boptD=$b3dd;if ($b3a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db476==$bmin){ $bopt='4';$boptD=$b4dd;if ($b4a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db576==$bmin){ $bopt='5';$boptD=$b5dd;if ($b5a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db676==$bmin){ $bopt='6';$boptD=$b6dd;if ($b6a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db776==$bmin){ $bopt='7';$boptD=$b7dd;if ($b7a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db876==$bmin){ $bopt='8';$boptD=$b8dd; if ($b8a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db976==$bmin){ $bopt='9';$boptD=$b9dd;if ($b9a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1076==$bmin){ $bopt='10';$boptD=$b10dd;if ($b10a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1176==$bmin){ $bopt='11';$boptD=$b11dd;if ($b11a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1276==$bmin){ $bopt='12';$boptD=$b12dd;if ($b12a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1376==$bmin){ $bopt='13';$boptD=$b13dd;if ($b13a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1476==$bmin){ $bopt='14';$boptD=$b14dd;if ($b14a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php  if ($db1576==$bmin){ $bopt='15';$boptD=$b15dd;if ($b15a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1676==$bmin){ $bopt='16';$boptD=$b16dd;if ($b16a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1776==$bmin){ $bopt='17';$boptD=$b17dd;if ($b17a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1876==$bmin){ $bopt='18';$boptD=$b18dd;if ($b18a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1976==$bmin){ $bopt='19';$boptD=$b19dd;if ($b19a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2076==$bmin){ $bopt='20';$boptD=$b20dd;if ($b20a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2176==$bmin){ $bopt='21';$boptD=$b21dd;if ($b21a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2276==$bmin){ $bopt='22';$boptD=$b22dd;if ($b22a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php  if ($db2376==$bmin){ $bopt='23';$boptD=$b23dd;if ($b23a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2476==$bmin){ $bopt='24';$boptD=$b24dd;if ($b24a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2576==$bmin){ $bopt='25';$boptD=$b25dd;if ($b25a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2676==$bmin){ $bopt='26';$boptD=$b26dd;if ($b26a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2776==$bmin){ $bopt='27';$boptD=$b27dd;if ($b27a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2876==$bmin){ $bopt='28';$boptD=$b28dd;if ($b28a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2976==$bmin){ $bopt='29';$boptD=$b29dd;if ($b29a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php  if ($db3076==$bmin){ $bopt='30';$boptD=$b30dd;if ($b30a>74) {$bdi="-";} else {$bdi='+';}}?>

  
   <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,$c100dm);
$datayT = array($cmin,$dec00);

//
//echo "<br> c scatter:".$c1dd."_".$dc176."_".$coptD."_".$CS100dm."_".$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,3.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?nocache=<?php echo time(); ?>">
</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,$m100dm);
$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,3.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?nocache=<?php echo time(); ?>">
</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,$y100dm);
$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,3.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?nocache=<?php echo time(); ?>">
</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,$k100dm);
$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,3.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?nocache=<?php echo time(); ?>">
</div></td>
</tr>

<tr>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterR.png');


$datax = array($r1dd,$r2dd,$r3dd,$r4dd,$r5dd,$r6dd,$r7dd,$r8dd,$r9dd,$r10dd,$r11dd,$r12dd,$r13dd,$r14dd,$r15dd,$r16dd,$r17dd,$r18dd,$r19dd,$r20dd,$r21dd,$r22dd,$r23dd,$r24dd,$r25dd,$r26dd,$r27dd,$r28dd,$r29dd,$r30dd);
$datay = array($dr176,$dr276,$dr376,$dr476,$dr576,$dr676,$dr776,$dr876,$dr976,$dr1076,$dr1176,$dr1276,$dr1376,$dr1476,$dr1576,$dr1676,$dr1776,$dr1876,$dr1976,$dr2076,$dr2176,$dr2276,$dr2376,$dr2476,$dr2576,$dr2676,$dr2776,$dr2876,$dr2976,$dr3076);

//print_r($datax);
$dataxT = array($roptD,$r100dm);
$datayT = array($rmin,$der00);

//echo "<br> c scatter:".$r1dd."_".$dr176."_roptD:".$roptD."_Rsid:".$RS100dm."_rmin:".$rmin."_der00:".$der00;


$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);

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

$graph->title->Set("R 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("#fa6b53");
$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('scatterR.png');

?>
<img src="scatterR.png?nocache=<?php echo time(); ?>">
</div></td>

<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterG.png');


$datax = array($gn1dd,$gn2dd,$gn3dd,$gn4dd,$gn5dd,$gn6dd,$gn7dd,$gn8dd,$gn9dd,$gn10dd,$gn11dd,$gn12dd,$gn13dd,$gn14dd,$gn15dd,$gn16dd,$gn17dd,$gn18dd,$gn19dd,$gn20dd,$gn21dd,$gn22dd,$gn23dd,$gn24dd,$gn25dd,$gn26dd,$gn27dd,$gn28dd,$gn29dd,$gn30dd);
$datay = array($dgn176,$dgn276,$dgn376,$dgn476,$dgn576,$dgn676,$dgn776,$dgn876,$dgn976,$dgn1076,$dgn1176,$dgn1276,$dgn1376,$dgn1476,$dgn1576,$dgn1676,$dgn1776,$dgn1876,$dgn1976,$dgn2076,$dgn2176,$dgn2276,$dgn2376,$dgn2476,$dgn2576,$dgn2676,$dgn2776,$dgn2876,$dgn2976,$dgn3076);

//print_r($datax);
$dataxT = array($gnoptD,$gn100dm);
$datayT = array($gnmin,$degn00);


$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);

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

$graph->title->Set("G 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("#8afa53");
$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->Stroke('scatterG.png');

?>
<img src="scatterG.png?nocache=<?php echo time(); ?>">
</div></td>

<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterB.png');


$datax = array($b1dd,$b2dd,$b3dd,$b4dd,$b5dd,$b6dd,$b7dd,$b8dd,$b9dd,$b10dd,$b11dd,$b12dd,$b13dd,$b14dd,$b15dd,$b16dd,$b17dd,$b18dd,$b19dd,$b20dd,$b21dd,$b22dd,$b23dd,$b24dd,$b25dd,$b26dd,$b27dd,$b28dd,$b29dd,$b30dd);
$datay = array($db176,$db276,$db376,$db476,$db576,$db676,$db776,$db876,$db976,$db1076,$db1176,$db1276,$db1376,$db1476,$db1576,$db1676,$db1776,$db1876,$db1976,$db2076,$db2176,$db2276,$db2376,$db2476,$db2576,$db2676,$db2776,$db2876,$db2976,$db3076);

//print_r($datax);
$dataxT = array($boptD,$b100dm);
$datayT = array($bmin,$deb00);


$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);

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

$graph->title->Set("B 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("#5357fa");
$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('scatterB.png');






////////////////////////////Square K

require_once( 'PolynomialRegression.php' );

  $data = array
    (
      array( 0.00, 0.0 ), array( 6, $KTV6-6 ), 
	   array( 10, $KTV10-10), array( 15, $KTV15-15 ), 
	   array( 20, $KTV20-20), array( 25, $KTV25-25 ), 
	   array( 30, $KTV30-30 ), array( 35, $KTV35-35 ), 
	   array( 40, $KTV40-40 ), array( 45, $KTV45-45 ),
	   array( 50, $KTV50-50 ), array( 55,$KTV55-55  ), 
	   array( 60, $KTV60-60 ), array( 65,  $KTV65-65),
	   array( 70, $KTV70-70 ), array( 75, $KTV75-75 ), 
	   array( 80, $KTV80-80 ), array( 85, $KTV85-85 ), 
	   array( 90, $KTV90-90), array( 95, $KTV95-95 ),
	   array( 100, 0  )
    );
//echo "50:;".$KTV50-50;
  // Precision digits in BC math.
  bcscale( 10 );

  // Start a regression class of order 2--linear regression.
  $leastSquareRegression = new PolynomialRegression( 3 );

  // Add all the data to the regression analysis.
  foreach ( $data as $dataPoint )
    $leastSquareRegression->addData( $dataPoint[ 0 ], $dataPoint[ 1 ] );

  // Get coefficients for the polynomial.
  $coefficients = $leastSquareRegression->getCoefficients();

  // Print slope and intercept of linear regression.
 // echo "Slope : " . round( $coefficients[ 1 ], 2 ) . "<br />\n";
 // echo "Y-intercept : " . round( $coefficients[ 0 ], 2 ) . "<br />\n";

  //
  // Get average of Y-data.
  //
  $Y_Average = 0.0;
  foreach ( $data as $dataPoint )
    $Y_Average += $dataPoint[ 1 ];

  $Y_Average /= count( $data );

  //
  // Calculate R Squared.
  //

  $Y_MeanSum  = 0.0;
  $Y_ErrorSum = 0.0;
  foreach ( $data as $dataPoint )
  {
    $x = $dataPoint[ 0 ];
    $y = $dataPoint[ 1 ];
    $error  = $y;
    $error -= $leastSquareRegression->interpolate( $coefficients, $x );
    $Y_ErrorSum += $error * $error;

    $error  = $y;
    $error -= $Y_Average;
    $Y_MeanSum += $error * $error;
  }

  $R_Squared = 1.0 - ( $Y_ErrorSum / $Y_MeanSum );
  if ($R_Squared<0.96) {$rFont='red';} else {$rFont='black';}
 // echo "<td bgcolor='#cccccc'><font color='".$rFont."' size='2'>R Squared on K: ".round($R_Squared,3)."</td>";


//echo "50:;".($KTV50-50)."-".round($R_Squared,3);

//3.872713961	7.628269262	11.27068095	14.80386579	18.23163537	26.36386437	33.91460923	40.93351	47.46504885	53.5484153	59.21745303	64.50066086	69.42122385	73.99705412	78.24082381	82.15997607	85.75670238	89.02787745	91.96494492	94.5537498	96.77431575	98.60056758	99.493805	100.0000023


//////////////////////KTV/////////////////////////////////////////

$SiCoTVk2=3.8727;
$SiCoTVk4=7.6282;
$SiCoTVk6=11.2706;
$SiCoTVk8=14.8038;
$SiCoTVk10=18.2316;
$SiCoTVk15=26.3638;
$SiCoTVk20=33.9146;
$SiCoTVk25=40.9335;
$SiCoTVk30=47.4650;
$SiCoTVk35=53.5484;
$SiCoTVk40=59.21745;
$SiCoTVk45=64.50066;
$SiCoTVk50=69.42122;
$SiCoTVk55=73.9970541;
$SiCoTVk60=78.2408;
$SiCoTVk65=82.1599;
$SiCoTVk70=85.75670;
$SiCoTVk75=89.0278;
$SiCoTVk80=91.964944;
$SiCoTVk85=94.55374;
$SiCoTVk90=96.77431;
$SiCoTVk95=98.6005;
$SiCoTVk98=99.4938;
$SiCoTVk100=100;



$SiCoTVg2=4.5484;
$SiCoTVg4=8.92466;
$SiCoTVg6=13.13474;
$SiCoTVg8=17.1848;
$SiCoTVg10=21.08086;
$SiCoTVg15=30.18467;
$SiCoTVg20=38.44768;
$SiCoTVg25=45.949344;
$SiCoTVg30=52.762038;
$SiCoTVg35=58.95097;
$SiCoTVg40=64.574186;
$SiCoTVg45=69.682628;
$SiCoTVg50=74.32038;
$SiCoTVg55=78.52485;
$SiCoTVg60=82.326999;
$SiCoTVg65=85.7515920;
$SiCoTVg70=88.817365;
$SiCoTVg75=91.53721;
$SiCoTVg80=93.9182893;
$SiCoTVg85=95.9621008;
$SiCoTVg90=97.66450192;
$SiCoTVg95=99.01566744;
$SiCoTVg98=99.65152931;
$SiCoTVg100=100;




$npFactor=-9.472351257*pow(($k100dm-$Pdm),2)+35.97462317*($k100dm-$Pdm)+64.20915685;
//echo "npFactor : " . round( $npFactor, 3 ) . "<br />\n";

$npdk100=LOG10(100/(100 - $npFactor * $SiCoTVk100/100));
//echo "npdk100 : " . round( $npdk100, 3 ) . "<br />\n";


$npFactorg = 15.90771588*pow(($gy100dm-$Pdm),3) - 79.48958793 *pow(($gy100dm-$Pdm),2) + 137.8510851*pow(($gy100dm-$Pdm),1) + 15.23762494;

//echo "npFactorg : " . round( $npFactorg, 3 ) . "<br />\n";

$npdg100=LOG10(100/(100 - $npFactorg * $SiCoTVg100/100));
//echo "npdg100 : " . round( $npdg100, 3 ) . "<br />\n";


///KTV-2


 $data = array
   (
      array( 0.00, 0.0 ), array(  $k2dm-$Pdm,2 ), array(  $k4dm-$Pdm,4 ),array(  $k6dm-$Pdm,6 ),array(  $k8dm-$Pdm,8 ),
	   array( $k10dm-$Pdm,10), array( $k15dm-$Pdm, 15), 
	   array( $k20dm-$Pdm,20), array($k25dm-$Pdm,25 ), 
	   array( $k30dm-$Pdm, 30), array( $k35dm-$Pdm, 35), 
	   array( $k40dm-$Pdm,40 ), array( $k45dm-$Pdm,45 ),
	   array( $k50dm-$Pdm,50 ), array(  $k55dm-$Pdm,55 ), 
	   array( $k60dm-$Pdm, 60), array( $k65dm-$Pdm,65),
	   array( $k70dm-$Pdm, 70), array(  $k75dm-$Pdm,75 ), 
	   array( $k80dm-$Pdm, 80), array(  $k85dm-$Pdm, 85), 
	   array( $k90dm-$Pdm,90), array(  $k95dm-$Pdm,95 ),
	   array($k100dm-$Pdm, 100  )
   );
	
//	(
//        array( 0.00, 0.0 ), array( 0.07,6 ), 
//	   array( 0.21,20), array( 0.56, 50), 
//	   array(0.87,70), array(1.37,90 ), 
//	   array( 1.62, 100)
//);
	
//echo "k100dm:;".($k100dm-$Pdm);
  // Precision digits in BC math.
  bcscale( 10 );

  // Start a regression class of order 2--linear regression.
  $leastSquareRegression = new PolynomialRegression( 4 );

  // Add all the data to the regression analysis.
  foreach ( $data as $dataPoint )
    $leastSquareRegression->addData( $dataPoint[ 0 ], $dataPoint[ 1 ] );

  // Get coefficients for the polynomial.
  $coefficients = $leastSquareRegression->getCoefficients();

  // Print slope and intercept of linear regression.
  //echo "Slope00 : " . round( $coefficients[ 3 ], 3 ) . "<br />\n";
//echo "Slope0 : " . round( $coefficients[ 2 ], 3 ) . "<br />\n";
//echo "Slope : " . round( $coefficients[ 1 ], 3 ) . "<br />\n";
 //echo "Y-intercept : " . round( $coefficients[ 0 ], 3 ) . "<br />\n";
$var0=$coefficients[ 3 ];
$var1=$coefficients[ 2 ];
$var2=$coefficients[ 1 ];
$var3=$coefficients[ 0 ];

$npdk20=LOG10(100/(100 - $npFactor * $SiCoTVk20/100));
$npdk50=LOG10(100/(100 - $npFactor * $SiCoTVk50/100));
$npdk70=LOG10(100/(100 - $npFactor * $SiCoTVk70/100));
$npdk80=LOG10(100/(100 - $npFactor * $SiCoTVk80/100));
$npdk100=LOG10(100/(100 - $npFactor * $SiCoTVk100/100));

$pd20TV=$var0*pow($npdk20,3)+$var1*pow($npdk20,2)+$var2*$npdk20+$var3;
$pd50TV=$var0*pow($npdk50,3)+$var1*pow($npdk50,2)+$var2*$npdk50+$var3;
$pd70TV=$var0*pow($npdk70,3)+$var1*pow($npdk70,2)+$var2*$npdk70+$var3;
$pd80TV=$var0*pow($npdk80,3)+$var1*pow($npdk80,2)+$var2*$npdk80+$var3;

 //echo "Y-pd20TV : " . (round( $pd20TV, 3 )-20) . "<br />\n";
// echo "Y-pd50TV : " . (round( $pd50TV, 3 )-50) . "<br />\n";
// echo "Y-pd70TV : " . (round( $pd70TV, 3 )-70) . "<br />\n";
 // echo "Y-pd80TV : " . (round( $pd80TV, 3 )-80) . "<br />\n";
  //
  // Get average of Y-data.
  //
  $Y_Average = 0.0;
  foreach ( $data as $dataPoint )
    $Y_Average += $dataPoint[ 1 ];

  $Y_Average /= count( $data );

  //
  // Calculate R Squared.
  //

  $Y_MeanSum  = 0.0;
  $Y_ErrorSum = 0.0;
  foreach ( $data as $dataPoint )
  {
    $x = $dataPoint[ 0 ];
    $y = $dataPoint[ 1 ];
    $error  = $y;
    $error -= $leastSquareRegression->interpolate( $coefficients, $x );
    $Y_ErrorSum += $error * $error;

    $error  = $y;
    $error -= $Y_Average;
    $Y_MeanSum += $error * $error;
  }




//echo "50:;".($KTV50-50)."-".round($R_Squared,3);



//////////////////////KTV-2/////////////////////////////////////////

///gTV-2


 $data = array
   (
      array( 0.00, 0.0 ), array(  $gy2dm-$Pdm,2 ), array(  $gy4dm-$Pdm,4 ),array(  $gy6dm-$Pdm,6 ),array(  $gy8dm-$Pdm,8 ),
	   array( $gy10dm-$Pdm,10), array( $gy15dm-$Pdm, 15), 
	   array( $gy20dm-$Pdm,20), array($gy25dm-$Pdm,25 ), 
	   array( $gy30dm-$Pdm, 30), array( $gy35dm-$Pdm, 35), 
	   array( $gy40dm-$Pdm,40 ), array( $gy45dm-$Pdm,45 ),
	   array( $gy50dm-$Pdm,50 ), array(  $gy55dm-$Pdm,55 ), 
	   array( $gy60dm-$Pdm, 60), array( $gy65dm-$Pdm,65),
	   array( $gy70dm-$Pdm, 70), array(  $gy75dm-$Pdm,75 ), 
	   array( $gy80dm-$Pdm, 80), array(  $gy85dm-$Pdm, 85), 
	   array( $gy90dm-$Pdm,90), array(  $gy95dm-$Pdm,95 ),
	   array($gy100dm-$Pdm, 100  )
   );
	
//	(
//        array( 0.00, 0.0 ), array( 0.07,6 ), 
//	   array( 0.21,20), array( 0.56, 50), 
//	   array(0.87,70), array(1.37,90 ), 
//	   array( 1.62, 100)
//);
	
//echo "gy100dm:;".($gy100dm-$Pdm);
  // Precision digits in BC math.
  bcscale( 10 );

  // Start a regression class of order 2--linear regression.
  $leastSquareRegression = new PolynomialRegression( 4 );

  // Add all the data to the regression analysis.
  foreach ( $data as $dataPoint )
    $leastSquareRegression->addData( $dataPoint[ 0 ], $dataPoint[ 1 ] );

  // Get coefficients for the polynomial.
  $coefficients = $leastSquareRegression->getCoefficients();

  // Print slope and intercept of linear regression.
 // echo "Slope00 : " . round( $coefficients[ 3 ], 3 ) . "<br />\n";
//echo "Slope0 : " . round( $coefficients[ 2 ], 3 ) . "<br />\n";
//echo "Slope : " . round( $coefficients[ 1 ], 3 ) . "<br />\n";
 //echo "Y-intercept : " . round( $coefficients[ 0 ], 3 ) . "<br />\n";
$var0=$coefficients[ 3 ];
$var1=$coefficients[ 2 ];
$var2=$coefficients[ 1 ];
$var3=$coefficients[ 0 ];

$npdg20=LOG10(100/(100 - $npFactorg * $SiCoTVg20/100));
$npdg50=LOG10(100/(100 - $npFactorg * $SiCoTVg50/100));
$npdg70=LOG10(100/(100 - $npFactorg * $SiCoTVg70/100));
$npdg80=LOG10(100/(100 - $npFactorg * $SiCoTVg80/100));
$npdg100=LOG10(100/(100 - $npFactorg * $SiCoTVg100/100));

$pd20TVg=$var0*pow($npdg20,3)+$var1*pow($npdg20,2)+$var2*$npdg20+$var3;
$pd50TVg=$var0*pow($npdg50,3)+$var1*pow($npdg50,2)+$var2*$npdg50+$var3;
$pd70TVg=$var0*pow($npdg70,3)+$var1*pow($npdg70,2)+$var2*$npdg70+$var3;
$pd80TVg=$var0*pow($npdg80,3)+$var1*pow($npdg80,2)+$var2*$npdg80+$var3;

 //echo "Y-pd20TVg : " . (round( $pd20TVg, 3 )-20) . "<br />\n";
 //echo "Y-pd50TVg : " . (round( $pd50TVg, 3 )-50) . "<br />\n";
 //echo "Y-pd70TVg : " . (round( $pd70TVg, 3 )-70) . "<br />\n";
//  echo "Y-pd80TVg : " . (round( $pd80TVg, 3 )-80) . "<br />\n";
  //
  // Get average of Y-data.
  //
  $Y_Average = 0.0;
  foreach ( $data as $dataPoint )
    $Y_Average += $dataPoint[ 1 ];

  $Y_Average /= count( $data );

  //
  // Calculate R Squared.
  //

  $Y_MeanSum  = 0.0;
  $Y_ErrorSum = 0.0;
  foreach ( $data as $dataPoint )
  {
    $x = $dataPoint[ 0 ];
    $y = $dataPoint[ 1 ];
    $error  = $y;
    $error -= $leastSquareRegression->interpolate( $coefficients, $x );
    $Y_ErrorSum += $error * $error;

    $error  = $y;
    $error -= $Y_Average;
    $Y_MeanSum += $error * $error;
  }




//echo "50:;".($KTV50-50)."-".round($R_Squared,3);



//////////////////////gTV-2/////////////////////////////////////////


////////////////////////////Square C

//require_once( 'PolynomialRegression.php' );

  $data = array
    (
      array( 0.00, 0.0 ), array( 5, $c5TV-5 ), 
	   array( 10, $c10TV-10), 
	   array( 20, $c20TV-20),
	   array( 30, $c30TV-30 ),
	   array( 40, $c40TV-40 ),
	   array( 50, $c50TV-50 ), 
	   array( 60, $c60TV-60 ), 
	   array( 70, $c70TV-70 ),
	   array( 80, $c80TV-80 ), 
	   array( 90, $c90TV-90), array( 95, $c95TV-95 ),
	   array( 100, 0  )
    );
//echo "50:;".$KTV50-50;
  // Precision digits in BC math.
  bcscale( 10 );

  // Start a regression class of order 2--linear regression.
  $leastSquareRegression = new PolynomialRegression( 3 );

  // Add all the data to the regression analysis.
  foreach ( $data as $dataPoint )
    $leastSquareRegression->addData( $dataPoint[ 0 ], $dataPoint[ 1 ] );

  // Get coefficients for the polynomial.
  $coefficients = $leastSquareRegression->getCoefficients();

  // Print slope and intercept of linear regression.
 // echo "Slope : " . round( $coefficients[ 1 ], 2 ) . "<br />\n";
 // echo "Y-intercept : " . round( $coefficients[ 0 ], 2 ) . "<br />\n";

  //
  // Get average of Y-data.
  //
  $Y_Average = 0.0;
  foreach ( $data as $dataPoint )
    $Y_Average += $dataPoint[ 1 ];

  $Y_Average /= count( $data );

  //
  // Calculate R Squared.
  //

  $Y_MeanSum  = 0.0;
  $Y_ErrorSum = 0.0;
  foreach ( $data as $dataPoint )
  {
    $x = $dataPoint[ 0 ];
    $y = $dataPoint[ 1 ];
    $error  = $y;
    $error -= $leastSquareRegression->interpolate( $coefficients, $x );
    $Y_ErrorSum += $error * $error;

    $error  = $y;
    $error -= $Y_Average;
    $Y_MeanSum += $error * $error;
  }

  $cR_Squared = 1.0 - ( $Y_ErrorSum / $Y_MeanSum );
  if ($cR_Squared<0.96) {$rFont='red';} else {$rFont='black';}
 //echo "<td bgcolor='#cccccc'><font color='".$rFont."' size='2'>R Squared on C: ".round($cR_Squared,3)."</td>";


//echo "50:;".($KTV50-50)."-".round($R_Squared,3);



//////////////////////KTV/////////////////////////////////////////

////////////////////////////Square M

//require_once( 'PolynomialRegression.php' );

  $data = array
    (
      array( 0.00, 0.0 ), array( 5, $m5TV-5 ), 
	   array( 10, $m10TV-10), 
	   array( 20, $m20TV-20),
	   array( 30, $m30TV-30 ),
	   array( 40, $m40TV-40 ),
	   array( 50, $m50TV-50 ), 
	   array( 60, $m60TV-60 ), 
	   array( 70, $m70TV-70 ),
	   array( 80, $m80TV-80 ), 
	   array( 90, $m90TV-90), array( 95, $m95TV-95 ),
	   array( 100, 0  )
    );
//echo "50:;".$KTV50-50;
  // Precision digits in BC math.
  bcscale( 10 );

  // Start a regression class of order 2--linear regression.
  $leastSquareRegression = new PolynomialRegression( 3 );

  // Add all the data to the regression analysis.
  foreach ( $data as $dataPoint )
    $leastSquareRegression->addData( $dataPoint[ 0 ], $dataPoint[ 1 ] );

  // Get coefficients for the polynomial.
  $coefficients = $leastSquareRegression->getCoefficients();

  // Print slope and intercept of linear regression.
 // echo "Slope : " . round( $coefficients[ 1 ], 2 ) . "<br />\n";
 // echo "Y-intercept : " . round( $coefficients[ 0 ], 2 ) . "<br />\n";

  //
  // Get average of Y-data.
  //
  $Y_Average = 0.0;
  foreach ( $data as $dataPoint )
    $Y_Average += $dataPoint[ 1 ];

  $Y_Average /= count( $data );

  //
  // Calculate R Squared.
  //

  $Y_MeanSum  = 0.0;
  $Y_ErrorSum = 0.0;
  foreach ( $data as $dataPoint )
  {
    $x = $dataPoint[ 0 ];
    $y = $dataPoint[ 1 ];
    $error  = $y;
    $error -= $leastSquareRegression->interpolate( $coefficients, $x );
    $Y_ErrorSum += $error * $error;

    $error  = $y;
    $error -= $Y_Average;
    $Y_MeanSum += $error * $error;
  }

  $mR_Squared = 1.0 - ( $Y_ErrorSum / $Y_MeanSum );
  //if ($mR_Squared<0.96) {$rFont='red';} else {$rFont='black';}

////////////////////////////Square Y

//require_once( 'PolynomialRegression.php' );

  $data = array
    (
      array( 0.00, 0.0 ), array( 5, $y5TV-5 ), 
	   array( 10, $y10TV-10), 
	   array( 20, $y20TV-20),
	   array( 30, $y30TV-30 ),
	   array( 40, $y40TV-40 ),
	   array( 50, $y50TV-50 ), 
	   array( 60, $y60TV-60 ), 
	   array( 70, $y70TV-70 ),
	   array( 80, $y80TV-80 ), 
	   array( 90, $y90TV-90), array( 95, $y95TV-95 ),
	   array( 100, 0  )
    );
//echo "50:;".$KTV50-50;
  // Precision digits in BC math.
  bcscale( 10 );

  // Start a regression class of order 2--linear regression.
  $leastSquareRegression = new PolynomialRegression( 3 );

  // Add all the data to the regression analysis.
  foreach ( $data as $dataPoint )
    $leastSquareRegression->addData( $dataPoint[ 0 ], $dataPoint[ 1 ] );

  // Get coefficients for the polynomial.
  $coefficients = $leastSquareRegression->getCoefficients();

  // Print slope and intercept of linear regression.
 // echo "Slope : " . round( $coefficients[ 1 ], 2 ) . "<br />\n";
 // echo "Y-intercept : " . round( $coefficients[ 0 ], 2 ) . "<br />\n";

  //
  // Get average of Y-data.
  //
  $Y_Average = 0.0;
  foreach ( $data as $dataPoint )
    $Y_Average += $dataPoint[ 1 ];

  $Y_Average /= count( $data );

  //
  // Calculate R Squared.
  //

  $Y_MeanSum  = 0.0;
  $Y_ErrorSum = 0.0;
  foreach ( $data as $dataPoint )
  {
    $x = $dataPoint[ 0 ];
    $y = $dataPoint[ 1 ];
    $error  = $y;
    $error -= $leastSquareRegression->interpolate( $coefficients, $x );
    $Y_ErrorSum += $error * $error;

    $error  = $y;
    $error -= $Y_Average;
    $Y_MeanSum += $error * $error;
  }

  $yR_Squared = 1.0 - ( $Y_ErrorSum / $Y_MeanSum );



unlink('scatterKTV.png');
$datay1 = array(0,$KTV6-6,$KTV10-10,$KTV15-15,$KTV20-20,$KTV25-25,$KTV30-30,$KTV35-35,$KTV40-40,$KTV45-45,$KTV50-50,$KTV55-55,$KTV60-60,$KTV65-65,$KTV70-70,$KTV75-75,$KTV80-80,$KTV85-85,$KTV90-90,$KTV95-95,0);

$datay2 = array(0,$c5TV-5,$c10TV-10,($c10TV+$c20TV)/2-15,$c20TV-20,($c30TV+$c20TV)/2-25,$c30TV-30,($c30TV+$c40TV)/2-35,$c40TV-40,($c40TV+$c50TV)/2-45,$c50TV-50,($c50TV+$c60TV)/2-55,$c60TV-60,($c60TV+$c70TV)/2-65,$c70TV-70,($c70TV+$c80TV)/2-75,$c80TV-80,($c80TV+$c90TV)/2-85,$c90TV-90,$c95TV-95,0);

$datay3 = array(0,$m5TV-5,$m10TV-10,($m10TV+$m20TV)/2-15,$m20TV-20,($m30TV+$m20TV)/2-25,$m30TV-30,($m30TV+$m40TV)/2-35,$m40TV-40,($m40TV+$m50TV)/2-45,$m50TV-50,($m50TV+$m60TV)/2-55,$m60TV-60,($m60TV+$m70TV)/2-65,$m70TV-70,($m70TV+$m80TV)/2-75,$m80TV-80,($m80TV+$m90TV)/2-85,$m90TV-90,$m95TV-95,0);

$datay4 = array(0,$y5TV-5,$y10TV-10,($y10TV+$y20TV)/2-15,$y20TV-20,($y30TV+$y20TV)/2-25,$y30TV-30,($y30TV+$y40TV)/2-35,$y40TV-40,($y40TV+$y50TV)/2-45,$y50TV-50,($y50TV+$y60TV)/2-55,$y60TV-60,($y60TV+$y70TV)/2-65,$y70TV-70,($y70TV+$y80TV)/2-75,$y80TV-80,($y80TV+$y90TV)/2-85,$y90TV-90,$y95TV-95,0);

$datay6 = array(0,3.4,6.3,8.5,10.4,12.2,13.5,(15.3+13.5)/2,15.3,(15.3+16.0)/2,16.0,16.0,15.7,(15.7+14.1)/2,14.1,12.8,11.0,9.0,6.5,3.6,0);

$datay7 = array(0,4.6,8.5,11.5,13.7,15.9,17.3,18.0,18.5,19.0,19.0,18.5,18.0,17.4,15.7,14.0,12.1,9.8,7.0,3.8,0);


// Setup the graph
$graph = new Graph(500,300);
//$graph->SetScale("textlin");
$graph->SetScale('textlin');
//$graph->SetScale('intlin',0,100,-10,10);

$theme_class= new UniversalTheme;
$graph->SetTheme($theme_class);

$graph->title->Set('K-TVI');
$graph->SetBox(false);

$graph->yaxis->HideZeroLabel();
$graph->yaxis->HideLine(false);
$graph->yaxis->HideTicks(false,false);

$graph->xaxis->SetTickLabels(array('0','5','10','15','20','25','30','35','40','45','50','55','60','65','70','75','80','85','90','95','100'));
$graph->ygrid->SetFill(false);
//$graph->SetBackgroundImage("tiger_bkg.png",BGIMG_FILLFRAME);

$p6 = new LinePlot($datay6);
$graph->Add($p6);
$p7 = new LinePlot($datay7);
$graph->Add($p7);



$p1 = new LinePlot($datay1);
$graph->Add($p1);


$p1->SetColor("#555555");
$p1->SetLegend('K R2='.round($R_Squared,3));
$p1->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p1->mark->SetColor('#555555');
$p1->mark->SetFillColor('#555555');
$p1->SetCenter();


$p2 = new LinePlot($datay2);
$graph->Add($p2);


$p2->SetColor("#00aaaa");
$p2->SetLegend('C R2='.round($cR_Squared,3));
$p2->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p2->mark->SetColor('#00aaaa');
$p2->mark->SetFillColor('#00aaaa');
$p2->SetCenter();

$p3 = new LinePlot($datay3);
$graph->Add($p3);


$p3->SetColor("#aa00aa");
$p3->SetLegend('M R2='.round($mR_Squared,3));
$p3->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p3->mark->SetColor('#aa00aa');
$p3->mark->SetFillColor('#aa00aa');
$p3->SetCenter();

$p4 = new LinePlot($datay4);
$graph->Add($p4);


$p4->SetColor("#aaaa00");
$p4->SetLegend('Y R2='.round($yR_Squared,3));
$p4->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p4->mark->SetColor('#aaaa00');
$p4->mark->SetFillColor('#aaaa00');
$p4->SetCenter();



$p6->SetColor("#d5f5cd");
$p6->SetLegend('GC='. $ADR);
$p6->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p6->mark->SetColor('#d5f5cd');
$p6->mark->SetFillColor('#d5f5cd');
$p6->SetCenter();

$p7->SetColor("#cccccc");
$p7->SetLegend('GK='. $ADR);
$p7->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p7->mark->SetColor('#cccccc');
$p7->mark->SetFillColor('#cccccc');
$p7->SetCenter();


$graph->legend->SetFrameWeight(1);
$graph->legend->SetColor('#4E4E4E','#00A78A');
$graph->legend->SetMarkAbsSize(8);

// Output line
$graph->Stroke('scatterKTV.png');
/////////////////////////////////50 sector
/////////////////////50 sector
///////////////////////c50

	$stTV=1;
	
  


/////////////////////////////////////50 beers law
//////////////////////sec C50
	$ki=1.0;
	//$ki=0.700;
	$ii=0;
	$r=6;
	for ( $i = 1; $i <= 7; $i+= 1) {
	$si=0;

	for ($s=380; $s<=730; $s+=10) {
	
	${'p'.$s}=$dot[25*42+3+6+$si];
	${'m'.$s}=$dot[(($ii*25)+$r)*45+9+$si];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}

	$ki=$ki+0.0;
	//$ki=$ki+0.00;
	${'ct'.$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);
	${'ct'.$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);

	${'ct'.$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);	

	//ectho "KX1=".round($k1X,3).",".round($k1Y,3).",".round($ct1Z,3)."<br>";
	
	${'ct'.$i.'l'}=xyz2lab01("l",${'ct'.$i.'X'},${'ct'.$i.'Y'},${'ct'.$i.'Z'});
	${'ct'.$i.'a'}=xyz2lab01("a",${'ct'.$i.'X'},${'ct'.$i.'Y'},${'ct'.$i.'Z'});
	${'ct'.$i.'b'}=xyz2lab01("b",${'ct'.$i.'X'},${'ct'.$i.'Y'},${'ct'.$i.'Z'});
	
	//echo "ct1L=".round(${'ct'.$i.'l'},3).",".round($ct1a,3).",".round($ct1b,3);
	${'ct'.$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 "ct".$i."D=".round(${'ct'.$i.'dd'},3);
	}
	//echo "<br>";
//////////////////////////sec M
//////////////////////sec m50
	//$ki=0.820;
	$ki=0.7;
	$ii=1;
	$r=6;
	for ( $i = 1; $i <= 7; $i+= 1) {
	$si=0;

	for ($s=380; $s<=730; $s+=10) {
	
	${'p'.$s}=$dot[25*42+3+6+$si];
	${'m'.$s}=$dot[(($ii*25)+$r)*45+9+$si];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}
	$ki=$ki+0.101;
	//$ki=$ki+0.23;
	${'mt'.$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);
	${'mt'.$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);

	${'mt'.$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);	

	//ectho "KX1=".round($k1X,3).",".round($k1Y,3).",".round($ct1Z,3)."<br>";
	
	${'mt'.$i.'l'}=xyz2lab01("l",${'mt'.$i.'X'},${'mt'.$i.'Y'},${'mt'.$i.'Z'});
	${'mt'.$i.'a'}=xyz2lab01("a",${'mt'.$i.'X'},${'mt'.$i.'Y'},${'mt'.$i.'Z'});
	${'mt'.$i.'b'}=xyz2lab01("b",${'mt'.$i.'X'},${'mt'.$i.'Y'},${'mt'.$i.'Z'});
	
	//echo "ct1L=".round(${'ct'.$i.'l'},3).",".round($ct1a,3).",".round($ct1b,3);
	${'mt'.$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);

	//echo "mt".$i."D=".round(${'mt'.$i.'dd'},3);
	}
	//echo "<br>";
///////////////////////////y50
//////////////////////sec y50
	//$ki=0.76;
	$ki=0.70;
	$ii=2;
	$r=6;
	for ( $i = 1; $i <= 7; $i+= 1) {
	$si=0;

	for ($s=380; $s<=730; $s+=10) {
	
	${'p'.$s}=$dot[25*42+3+6+$si];
	${'m'.$s}=$dot[(($ii*25)+$r)*45+9+$si];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}
	//$ki=$ki+0.12;
	$ki=$ki+0.101;
	${'yt'.$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);
	${'yt'.$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);

	${'yt'.$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);	

	//ectho "KX1=".round($k1X,3).",".round($k1Y,3).",".round($ct1Z,3)."<br>";
	
	${'yt'.$i.'l'}=xyz2lab01("l",${'yt'.$i.'X'},${'yt'.$i.'Y'},${'yt'.$i.'Z'});
	${'yt'.$i.'a'}=xyz2lab01("a",${'yt'.$i.'X'},${'yt'.$i.'Y'},${'yt'.$i.'Z'});
	${'yt'.$i.'b'}=xyz2lab01("b",${'yt'.$i.'X'},${'yt'.$i.'Y'},${'yt'.$i.'Z'});
	
	//echo "ct1L=".round(${'yt'.$i.'l'},3).",".round($ct1a,3).",".round($ct1b,3);
	${'yt'.$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 "yt".$i."D=".round(${'yt'.$i.'dd'},3);
	}

//echo "<br>";

///////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////invert
$A = array(
	array( $c50Lm,$m50Lm,$y50Lm ),
	array($c50am,$m50am,$y50am),
	array($c50bm,$m50bm,$y50bm),
);


$GrayL=$gy50Lm;
$Graya=$gy50am;
$Grayb=$gy50bm;


//echo "<br>Matrix:";
//print_matrix($A);
//echo "\n";

$B = invert($A);

//echo "<br>Inversion result:";
//print_matrix($B);
//echo "\n\n";

$R1C1=$B[0][0];$R1C2=$B[0][1];$R1C3=$B[0][2];
$R2C1=$B[1][0];$R2C2=$B[1][1];$R2C3=$B[1][2];
$R3C1=$B[2][0];$R3C2=$B[2][1];$R3C3=$B[2][2];

//echo "<br>R1C1:".$R1C1."R1C2:".$R1C2."R1C3:".$R1C3;

$X=$gy50Lm*$R1C1+$Graya*$R1C2+$Grayb*$R1C3;
$Y=$gy50Lm*$R2C1+$Graya*$R2C2+$Grayb*$R2C3;
$Z=$gy50Lm*$R3C1+$Graya*$R3C2+$Grayb*$R3C3;

//echo "<br>X:".$X."	Y:".$Y."	Z:".$Z;

$GL0=$X*$c50Lm+$Y*$m50Lm+$Z*$y50Lm;$Ga0=$X*$c50am+$Y*$m50am+$Z*$y50am;$Gb0=$X*$c50bm+$Y*$m50bm+$Z*$y50bm;
//echo "<br>G0:".round($GL0,2).",".round($Ga0,2).",".round($Gb0,2);
$dfmin=50;
$demin=50;

for ( $i = 1; $i <= 7; $i+= 1) {
for ( $j = 1; $j <= 7; $j+= 1) {
for ( $k = 1; $k <= 7; $k+= 1) {		
	
	${"GL".$i.$j.$k}=$X*${'ct'.$i.'l'}+$Y*${'mt'.$j.'l'}+$Z*${'yt'.$k.'l'};
	${"Ga".$i.$j.$k}=$X*${'ct'.$i.'a'}+$Y*${'mt'.$j.'a'}+$Z*${'yt'.$k.'a'};
	${"Gb".$i.$j.$k}=$X*${'ct'.$i.'b'}+$Y*${'mt'.$j.'b'}+$Z*${'yt'.$k.'b'};
	
	${"dge".$i.$j.$k}=sqrt(pow(${"GL".$i.$j.$k}-$GrayLT,2)+pow(${"Ga".$i.$j.$k}-$Pam/2,2)+pow(${"Gb".$i.$j.$k}-$Pbm/2,2));
	
	if (${"dge".$i.$j.$k}<$demin) {
		$dgc=${'ct'.$i.'dd'};
		$dgm=${'mt'.$j.'dd'};
		$dgy=${'yt'.$k.'dd'};
		$dgef=pow((pow(${"Ga".$i.$j.$k}-$Pam/2,2)+pow(${"Gb".$i.$j.$k}-$Pbm/2,2)),0.5);
		$tage5=$i.$j.$k;
		};
	$demin=min(${"dge".$i.$j.$k},$demin);
	
	${"dgf".$i.$j.$k}=pow((pow(${"Ga".$i.$j.$k}-$Pam/2,2)+pow(${"Gb".$i.$j.$k}-$Pbm/2,2)),0.5);
	if (${"dgf".$i.$j.$k}<$dfmin) {$tagf="G".$i.$j.$k;};
	$dfmin=min(${"dgf".$i.$j.$k},$dfmin);
	
	
//echo "<br>G".$i.$j.$k.":".round(${"GL".$i.$j.$k},2).",	".round(${"Ga".$i.$j.$k},2).",	".round(${"Gb".$i.$j.$k},2).",	de:".round(${"dge".$i.$j.$k},2).",	df:".round(${"dgf".$i.$j.$k},2);
}
}
}
$demin50=$demin;


//echo "<br>tagDE5:".$tage5."_tagDF5:".$tagf."_dfmin:".round($dfmin,2)."_demin:".round($demin50,2);	
//echo "<br>dgc".$dgc."_dgm:".$dgm."_dgy:".round($dgy,2);	
//echo "<br>ct444dd".$ct4dd."_dgm:".$mt4dd."_dgy:".round($yt4dd,2);	

////////////////////////////////50 sec	

/////////////////////////////////////70 beers law
//////////////////////sec C70
	$ki=0.7;
	//$ki=0.82;
	$ii=0;
	$r=8;
	
	//echo "<br>Measured c70D=".round($c70dm,3);
	for ( $i = 1; $i <= 7; $i+= 1) {
	$si=0;

	for ($s=380; $s<=730; $s+=10) {
	
	${'p'.$s}=$dot[25*42+3+6+$si];
	${'m'.$s}=$dot[(($ii*25)+$r)*45+9+$si];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}

	//$ki=$ki+0.00;
	$ki=$ki+0.101;
	${'ct7'.$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);
	${'ct7'.$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);

	${'ct7'.$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);	

	//ectho "KX1=".round($k1X,3).",".round($k1Y,3).",".round($ct1Z,3)."<br>";
	
	${'ct7'.$i.'l'}=xyz2lab01("l",${'ct7'.$i.'X'},${'ct7'.$i.'Y'},${'ct7'.$i.'Z'});
	${'ct7'.$i.'a'}=xyz2lab01("a",${'ct7'.$i.'X'},${'ct7'.$i.'Y'},${'ct7'.$i.'Z'});
	${'ct7'.$i.'b'}=xyz2lab01("b",${'ct7'.$i.'X'},${'ct7'.$i.'Y'},${'ct7'.$i.'Z'});
	
	//echo "ct1L=".round(${'ct'.$i.'l'},3).",".round($ct1a,3).",".round($ct1b,3);
	${'ct7'.$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 "<br>ct7".$i."D=".round(${'ct7'.$i.'dd'},3);
	}
	//echo "<br>";
//////////////////////////sec M
//////////////////////sec m70
	$ki=0.7;
	$ii=1;
	$r=8;
	//echo "<br>Measured m0D=".round($m70dm,3)."--m70Sp1:".$dot[(($ii*25)+$r)*42+6]."--ppSp1:".$dot[25*42+6];
	for ( $i = 1; $i <= 7; $i+= 1) {
	$si=0;

	for ($s=380; $s<=730; $s+=10) {
	
	${'p'.$s}=$dot[25*42+3+6+$si];
	${'m'.$s}=$dot[(($ii*25)+$r)*45+9+$si];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}
	$ki=$ki+0.101;
	
	${'mt7'.$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);
	${'mt7'.$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);

	${'mt7'.$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);	

	//ectho "KX1=".round($k1X,3).",".round($k1Y,3).",".round($ct1Z,3)."<br>";
	
	${'mt7'.$i.'l'}=xyz2lab01("l",${'mt7'.$i.'X'},${'mt7'.$i.'Y'},${'mt7'.$i.'Z'});
	${'mt7'.$i.'a'}=xyz2lab01("a",${'mt7'.$i.'X'},${'mt7'.$i.'Y'},${'mt7'.$i.'Z'});
	${'mt7'.$i.'b'}=xyz2lab01("b",${'mt7'.$i.'X'},${'mt7'.$i.'Y'},${'mt7'.$i.'Z'});
	
	//echo "ct1L=".round(${'ct'.$i.'l'},3).",".round($ct1a,3).",".round($ct1b,3);
	${'mt7'.$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);
//echo "<br>mt7".$i."D=".round(${'mt7'.$i.'dd'},3);
	//echo "mt".$i."D=".round(${'mt'.$i.'dd'},3);
	}
	//echo "<br>";
///////////////////////////y70
/////////////////////
	$ki=0.7;
	$ii=2;
	$r=8;
	//echo "<br>Measured y70D=".round($y70dm,3);
	for ( $i = 1; $i <= 7; $i+= 1) {
	$si=0;

	for ($s=380; $s<=730; $s+=10) {
	
	${'p'.$s}=$dot[25*42+3+6+$si];
	${'m'.$s}=$dot[(($ii*25)+$r)*45+9+$si];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}
	$ki=$ki+0.101;
	
	${'yt7'.$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);
	${'yt7'.$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);

	${'yt7'.$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);	

	//ectho "KX1=".round($k1X,3).",".round($k1Y,3).",".round($ct1Z,3)."<br>";
	
	${'yt7'.$i.'l'}=xyz2lab01("l",${'yt7'.$i.'X'},${'yt7'.$i.'Y'},${'yt7'.$i.'Z'});
	${'yt7'.$i.'a'}=xyz2lab01("a",${'yt7'.$i.'X'},${'yt7'.$i.'Y'},${'yt7'.$i.'Z'});
	${'yt7'.$i.'b'}=xyz2lab01("b",${'yt7'.$i.'X'},${'yt7'.$i.'Y'},${'yt7'.$i.'Z'});
	
	//echo "ct1L=".round(${'yt'.$i.'l'},3).",".round($ct1a,3).",".round($ct1b,3);
	${'yt7'.$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 "<br>yt7".$i."D=".round(${'yt7'.$i.'dd'},3);
	}

//echo "<br>";

///////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////invert
$A7 = array(
	array( $c70Lm,$m70Lm,$y70Lm ),
	array($c70am,$m70am,$y70am),
	array($c70bm,$m70bm,$y70bm),
);


$GrayL7=$gy70Lm;
$Graya7=$gy70am;
$Grayb7=$gy70bm;


//echo "<br>Matrix:";
//print_matrix($A);
//echo "\n";

$B7 = invert($A7);

//echo "<br>Inversion result:";
//print_matrix($B);
//echo "\n\n";

$R1C1=$B7[0][0];$R1C2=$B7[0][1];$R1C3=$B7[0][2];
$R2C1=$B7[1][0];$R2C2=$B7[1][1];$R2C3=$B7[1][2];
$R3C1=$B7[2][0];$R3C2=$B7[2][1];$R3C3=$B7[2][2];

//echo "<br>R1C1:".$R1C1."R1C2:".$R1C2."R1C3:".$R1C3;

$X=$gy70Lm*$R1C1+$gy70am*$R1C2+$gy70bm*$R1C3;
$Y=$gy70Lm*$R2C1+$gy70am*$R2C2+$gy70bm*$R2C3;
$Z=$gy70Lm*$R3C1+$gy70am*$R3C2+$gy70bm*$R3C3;

//echo "<br>X:".$X."	Y:".$Y."	Z:".$Z;

//$GL0=$X*$c50Lm+$Y*$m50Lm+$Z*$y50Lm;
//$Ga0=$X*$c50am+$Y*$m50am+$Z*$y50am;
//$Gb0=$X*$c50bm+$Y*$m50bm+$Z*$y50bm;
//echo "<br>G0:".round($GL0,2).",".round($Ga0,2).",".round($Gb0,2);
$dfmin=50;
$demin=50;

for ( $i = 1; $i <= 7; $i+= 1) {
for ( $j = 1; $j <= 7; $j+= 1) {
for ( $k = 1; $k <= 7; $k+= 1) {		
	
	${"GL7".$i.$j.$k}=$X*${'ct7'.$i.'l'}+$Y*${'mt7'.$j.'l'}+$Z*${'yt7'.$k.'l'};
	${"Ga7".$i.$j.$k}=$X*${'ct7'.$i.'a'}+$Y*${'mt7'.$j.'a'}+$Z*${'yt7'.$k.'a'};
	${"Gb7".$i.$j.$k}=$X*${'ct7'.$i.'b'}+$Y*${'mt7'.$j.'b'}+$Z*${'yt7'.$k.'b'};
	
	${"dge7".$i.$j.$k}=sqrt(pow(${"GL7".$i.$j.$k}-$GrayLT70,2)+pow(${"Ga7".$i.$j.$k}-$Pam*0.3,2)+pow(${"Gb7".$i.$j.$k}-$Pbm*0.3,2));
	
	if (${"dge7".$i.$j.$k}<=$demin) {
		$dgc7=${'ct7'.$i.'dd'};
		$dgm7=${'mt7'.$j.'dd'};
		$dgy7=${'yt7'.$k.'dd'};
		
		$dgc7x=${'ct7'.$i.'X'};
		
		$dgef7=pow((pow(${"Ga7".$i.$j.$k}-$Pam*0.3,2)+pow(${"Gb7".$i.$j.$k}-$Pbm*0.3,2)),0.5);
		$tage7="G".$i.$j.$k;
		};
	$demin=min(${"dge7".$i.$j.$k},$demin);
	
	${"dgf7".$i.$j.$k}=pow((pow(${"Ga7".$i.$j.$k}-$Pam*0.3,2)+pow(${"Gb7".$i.$j.$k}-$Pbm*0.3,2)),0.5);
	if (${"dgf7".$i.$j.$k}<$dfmin) {$tagf7="G7".$i.$j.$k;};
	$dfmin=min(${"dgf7".$i.$j.$k},$dfmin);
	
	
//echo "<br>G".$i.$j.$k.":".round(${"GL7".$i.$j.$k},2).",	".round(${"Ga7".$i.$j.$k},2).",	".round(${"Gb7".$i.$j.$k},2).",	de:".round(${"dge7".$i.$j.$k},2).",	df:".round(${"dgf7".$i.$j.$k},2);
}
}
}
$demin7=$demin;
//echo "<br>tagE7:".$tage7."_tagf7:".$tagf7."_dfmin:".round($dfmin,2)."_demin:".round($demin7,2);
$dgc7d=$ct75dd;$dgm7d=$mt71dd;$dgy7d=$yt71dd;
//echo "<br>dgc7d:".($dgc7d)."_dgm7d:".($dgm7d)."_dgy7d:".($dgy7d);	
////////////////////////////////70 sec	

/////////////////////////////////////20 beers law
//////////////////////sec C20
	$ki=0.7;
	
	$ii=0;
	$r=3;
	
	//echo "<br>Measured c20D=".round($c20dm,3);
	for ( $i = 1; $i <= 7; $i+= 1) {
	$si=0;

	for ($s=380; $s<=730; $s+=10) {
	
	${'p'.$s}=$dot[25*42+3+6+$si];
	${'m'.$s}=$dot[(($ii*25)+$r)*45+9+$si];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}

	$ki=$ki+0.101;

	${'ct2'.$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);
	${'ct2'.$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);

	${'ct2'.$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);	

	//ectho "KX1=".round($k1X,3).",".round($k1Y,3).",".round($ct1Z,3)."<br>";
	
	${'ct2'.$i.'l'}=xyz2lab01("l",${'ct2'.$i.'X'},${'ct2'.$i.'Y'},${'ct2'.$i.'Z'});
	${'ct2'.$i.'a'}=xyz2lab01("a",${'ct2'.$i.'X'},${'ct2'.$i.'Y'},${'ct2'.$i.'Z'});
	${'ct2'.$i.'b'}=xyz2lab01("b",${'ct2'.$i.'X'},${'ct2'.$i.'Y'},${'ct2'.$i.'Z'});
	
	//echo "ct1L=".round(${'ct'.$i.'l'},3).",".round($ct1a,3).",".round($ct1b,3);
	${'ct2'.$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 "<br>ct2".$i."D=".round(${'ct2'.$i.'dd'},3);
	}
	//echo "<br>";
//////////////////////////sec M
//////////////////////sec m20
	$ki=0.7;
	$ii=1;
	$r=3;
	//echo "<br>Measured m20D=".round($m20dm,3)."--m20Sp1:".$dot[(($ii*25)+$r)*42+6]."--ppSp1:".$dot[25*42+6];
	for ( $i = 1; $i <= 7; $i+= 1) {
	$si=0;

	for ($s=380; $s<=730; $s+=10) {
	
	${'p'.$s}=$dot[25*42+3+6+$si];
	${'m'.$s}=$dot[(($ii*25)+$r)*45+9+$si];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}
	$ki=$ki+0.101;
	
	${'mt2'.$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);
	${'mt2'.$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);

	${'mt2'.$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);	

	//ectho "KX1=".round($k1X,3).",".round($k1Y,3).",".round($ct1Z,3)."<br>";
	
	${'mt2'.$i.'l'}=xyz2lab01("l",${'mt2'.$i.'X'},${'mt2'.$i.'Y'},${'mt2'.$i.'Z'});
	${'mt2'.$i.'a'}=xyz2lab01("a",${'mt2'.$i.'X'},${'mt2'.$i.'Y'},${'mt2'.$i.'Z'});
	${'mt2'.$i.'b'}=xyz2lab01("b",${'mt2'.$i.'X'},${'mt2'.$i.'Y'},${'mt2'.$i.'Z'});
	
	//echo "ct1L=".round(${'ct'.$i.'l'},3).",".round($ct1a,3).",".round($ct1b,3);
	${'mt2'.$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);
//echo "<br>mt2".$i."D=".round(${'mt2'.$i.'dd'},3);
	//echo "mt".$i."D=".round(${'mt'.$i.'dd'},3);
	}
	//echo "<br>";
///////////////////////////y20
/////////////////////
	$ki=0.7;
	$ii=2;
	$r=3;
	//echo "<br>Measured y20D=".round($y20dm,3);
	for ( $i = 1; $i <= 7; $i+= 1) {
	$si=0;

	for ($s=380; $s<=730; $s+=10) {
	
	${'p'.$s}=$dot[25*42+3+6+$si];
	${'m'.$s}=$dot[(($ii*25)+$r)*45+9+$si];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}
	$ki=$ki+0.101;
	
	${'yt2'.$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);
	${'yt2'.$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);

	${'yt2'.$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);	

	//ectho "KX1=".round($k1X,3).",".round($k1Y,3).",".round($ct1Z,3)."<br>";
	
	${'yt2'.$i.'l'}=xyz2lab01("l",${'yt2'.$i.'X'},${'yt2'.$i.'Y'},${'yt2'.$i.'Z'});
	${'yt2'.$i.'a'}=xyz2lab01("a",${'yt2'.$i.'X'},${'yt2'.$i.'Y'},${'yt2'.$i.'Z'});
	${'yt2'.$i.'b'}=xyz2lab01("b",${'yt2'.$i.'X'},${'yt2'.$i.'Y'},${'yt2'.$i.'Z'});
	
	//echo "ct1L=".round(${'yt'.$i.'l'},3).",".round($ct1a,3).",".round($ct1b,3);
	${'yt2'.$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 "<br>yt2".$i."D=".round(${'yt2'.$i.'dd'},3);
	}

//echo "<br>";

///////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////invert
$A2 = array(
	array( $c20Lm,$m20Lm,$y20Lm ),
	array($c20am,$m20am,$y20am),
	array($c20bm,$m20bm,$y20bm),
);


$GrayL2=$gy20Lm;
$Graya2=$gy20am;
$Grayb2=$gy20bm;


//echo "<br>Matrix:";
//print_matrix($A);
//echo "\n";

$B2 = invert($A2);

//echo "<br>Inversion result:";
//print_matrix($B);
//echo "\n\n";

$R1C1=$B2[0][0];$R1C2=$B2[0][1];$R1C3=$B2[0][2];
$R2C1=$B2[1][0];$R2C2=$B2[1][1];$R2C3=$B2[1][2];
$R3C1=$B2[2][0];$R3C2=$B2[2][1];$R3C3=$B2[2][2];

//echo "<br>R1C1:".$R1C1."R1C2:".$R1C2."R1C3:".$R1C3;

$X=$gy20Lm*$R1C1+$gy20am*$R1C2+$gy20bm*$R1C3;
$Y=$gy20Lm*$R2C1+$gy20am*$R2C2+$gy20bm*$R2C3;
$Z=$gy20Lm*$R3C1+$gy20am*$R3C2+$gy20bm*$R3C3;

//echo "<br>X:".$X."	Y:".$Y."	Z:".$Z;

//$GL0=$X*$c50Lm+$Y*$m50Lm+$Z*$y50Lm;
//$Ga0=$X*$c50am+$Y*$m50am+$Z*$y50am;
//$Gb0=$X*$c50bm+$Y*$m50bm+$Z*$y50bm;
//echo "<br>G0:".round($GL0,2).",".round($Ga0,2).",".round($Gb0,2);
$dfmin=50;
$demin=50;

for ( $i = 1; $i <= 7; $i+= 1) {
for ( $j = 1; $j <= 7; $j+= 1) {
for ( $k = 1; $k <= 7; $k+= 1) {		
	
	${"GL2".$i.$j.$k}=$X*${'ct2'.$i.'l'}+$Y*${'mt2'.$j.'l'}+$Z*${'yt2'.$k.'l'};
	${"Ga2".$i.$j.$k}=$X*${'ct2'.$i.'a'}+$Y*${'mt2'.$j.'a'}+$Z*${'yt2'.$k.'a'};
	${"Gb2".$i.$j.$k}=$X*${'ct2'.$i.'b'}+$Y*${'mt2'.$j.'b'}+$Z*${'yt2'.$k.'b'};
	
	${"dge2".$i.$j.$k}=sqrt(pow(${"GL2".$i.$j.$k}-$GrayLT20,2)+pow(${"Ga2".$i.$j.$k}-$Pam*0.8,2)+pow(${"Gb2".$i.$j.$k}-$Pbm*0.8,2));
	
	if (${"dge2".$i.$j.$k}<=$demin) {
		$dgc2=${'ct2'.$i.'dd'};
		$dgcx2=${'ct2'.$i.'X'};
		
		$dgm2=${'mt2'.$j.'dd'};
		$dgy2=${'yt2'.$k.'dd'};
		
		$dgef2=pow((pow(${"Ga2".$i.$j.$k}-$Pam*0.8,2)+pow(${"Gb2".$i.$j.$k}-$Pbm*0.8,2)),0.5);
		$tage2="G".$i.$j.$k;
		};
	$demin=min(${"dge2".$i.$j.$k},$demin);
	
	${"dgf2".$i.$j.$k}=pow((pow(${"Ga2".$i.$j.$k}-$Pam*0.8,2)+pow(${"Gb2".$i.$j.$k}-$Pbm*0.8,2)),0.5);
	if (${"dgf2".$i.$j.$k}<$dfmin) {$tagf2="G2".$i.$j.$k;};
	$dfmin=min(${"dgf2".$i.$j.$k},$dfmin);
	
	
//echo "<br>G2-".$i.$j.$k.":".round(${"GL2".$i.$j.$k},2).",	".round(${"Ga2".$i.$j.$k},2).",	".round(${"Gb2".$i.$j.$k},2).",	de:".round(${"dge2".$i.$j.$k},2).",	df:".round(${"dgf2".$i.$j.$k},2);
}
}
}
$demin2=$demin;
//echo "<br>tagE2:".$tage2."_tagf2:".$tagf2."_dfmin:".round($dfmin,2)."_demin:".round($demin2,2);
$dgc2d=$ct21dd;$dgm2d=$mt21dd;$dgy2d=$yt21dd;
//echo "<br>dgc2d:".($dgc2d)."_dgm2d:".($dgm2d)."_dgy7d:".($dgy2d);	
////////////////////////////////20 sec	
//echo "<br>20 Target Gray20L:".$GrayLT20."a:".($Pam*0.8)." b:".($Pbm*0.8);
//echo "<br>20 meas,  Gray20L:".$gy20Lm."a:".$gy20am." b:".$gy20bm;



//echo "<br>70 Target Gray70L:".$GrayLT70."a:".($Pam*0.3)." b:".($Pbm*0.3);
//echo "<br>70 meas,  Gray70L:".$gy70Lm."a:".$gy70am." b:".$gy70bm;

//echo "<br>75 Target Gray75L:".$GrayLT75."a:".($Pam*0.25)." b:".($Pbm*0.25);
//echo "<br>75 meas,  Gray75L:".$gy75Lm."a:".$gy75am." b:".$gy75bm;

//echo "<br>80 Target Gray75L:".$GrayLT80."a:".($Pam*0.2)." b:".($Pbm*0.2);
//echo "<br>80 meas,  Gray75L:".$gy80Lm."a:".$gy80am." b:".$gy80bm;

//echo "<br>GL:".$GrayLT."--".$GrayLm;
  $dgl=$GrayLT-$gy50Lm;
  $dga=($Pam/2)-$Graya;
  $dgb=($Pbm/2)-$Grayb;
  $df=sqrt(pow($dga,2)+pow($dgb,2));
  $dgy50=de00($GrayLT,($Pam/2),($Pbm/2),$gy50Lm,$Graya,$Grayb);
  
   if  (($k100dm-$Pdm)>1.69) {
	$k50dT=0.5;}
 else {
 $k50dT=0.0562*($k100dm-$Pdm)+0.405; 
 }
 
  if  (($gy100dm-$Pdm)>1.37) {
	$D50dT=0.54;}
 else {
 $D50dT=0.1707*($gy100dm-$Pdm)+0.3061; 
 }
 
 $k70dT=0.2247*($k100dm-$Pdm)+0.42024; 
  $k20dT=0.175; 
 $D70dT=0.3663*($gy100dm-$Pdm)+0.2786; 
  

  
  
  //echo "<br>k50dT".$k50dT."_D50dT:".$D50dT."K100dm:".$K100dm."Pdm:".$Pdm."=:".($K100dm-$Pdm);  scatterKTV.png
 
 $c20TVd=(((1-(pow(10,(-($c20dm-$Pdm)))))/(1-(pow(10,(-($c100dm-$Pdm)))))))*100;
  // echo "<br> c20dm  d:".$c20dm."_". $Pdm;
 $c20TVTd=(((1-(pow(10,(-($dgc2-$Pdm)))))/(1-(pow(10,(-($c100dm-$Pdm)))))))*100;
 //echo "<br> dgc2  d:".$dgc2."_". $c100dm;
 
 $c20TVX=((($PXm-$c20Xm)/($PXm- $c100Xm))*100); 
 $c20TVXT=((($PXm-$dgcx2)/($PXm- $c100Xm))*100); 
 
 
 // echo "<br> c20TVd  d:".$c20TVd."_". $c20TVTd;
 // echo "<br> c20TVX  d:".$c20TVX."_". $c20TVXT;
  
  $m20TVd=(((1-(pow(10,(-($m20dm-$Pdm)))))/(1-(pow(10,(-($m100dm-$Pdm)))))))*100;
 
 $m20TVTd=(((1-(pow(10,(-($dgm2-$Pdm)))))/(1-(pow(10,(-($m100dm-$Pdm)))))))*100;
 
  $y20TVd=(((1-(pow(10,(-($y20dm-$Pdm)))))/(1-(pow(10,(-($y100dm-$Pdm)))))))*100;
 
 $y20TVTd=(((1-(pow(10,(-($dgy2-$Pdm)))))/(1-(pow(10,(-($y100dm-$Pdm)))))))*100;
 
  $k20TVd=(((1-(pow(10,(-($k20dm-$Pdm)))))/(1-(pow(10,(-($k100dm-$Pdm)))))))*100;
 
 $k20TVTd=(((1-(pow(10,(-($k20dT)))))/(1-(pow(10,(-($k100dm-$Pdm)))))))*100;
// echo "<br> k20TVd  d:".$k20TVd."_". $k20TVTd;
  $c50TVd=(((1-(pow(10,(-($c50dm-$Pdm)))))/(1-(pow(10,(-($c100dm-$Pdm)))))))*100;
 
 $c50TVTd=(((1-(pow(10,(-($dgc-$Pdm)))))/(1-(pow(10,(-($c100dm-$Pdm)))))))*100;
 //  echo "<br> c50TVd  d:".$c50TVd."_". $c50TVTd;
  $m50TVd=(((1-(pow(10,(-($m50dm-$Pdm)))))/(1-(pow(10,(-($m100dm-$Pdm)))))))*100;
 
 $m50TVTd=(((1-(pow(10,(-($dgm-$Pdm)))))/(1-(pow(10,(-($m100dm-$Pdm)))))))*100;
 
  $y50TVd=(((1-(pow(10,(-($y50dm-$Pdm)))))/(1-(pow(10,(-($y100dm-$Pdm)))))))*100;
 
 $y50TVTd=(((1-(pow(10,(-($dgy-$Pdm)))))/(1-(pow(10,(-($y100dm-$Pdm)))))))*100;
   //echo "<br> y50TVd  d:".$y50TVd."_". $y50TVTd;
  $k50TVd=(((1-(pow(10,(-($k50dm-$Pdm)))))/(1-(pow(10,(-($k100dm-$Pdm)))))))*100;
 
 $k50TVTd=(((1-(pow(10,(-($k50dT)))))/(1-(pow(10,(-($k100dm-$Pdm)))))))*100;
 
 
  $c70TVd=(((1-(pow(10,(-($c70dm-$Pdm)))))/(1-(pow(10,(-($c100dm-$Pdm)))))))*100;
 
 $c70TVTd=(((1-(pow(10,(-($dgc7-$Pdm)))))/(1-(pow(10,(-($c100dm-$Pdm)))))))*100;
 
//  echo "<br> c70TVd  d:".round($c70TVd,2)."c70TVTd". round($c70TVTd,2);
 
 $c70TVdx=((($PXm-$c70Xm)/($PXm- $c100Xm))*100);  
 $c70TVTdx=((($PXm-$dgc7x)/($PXm- $c100Xm))*100);  
 
 //echo "<br> c70TVdx  d:".round($c70TVdx,2)."c70TVTdx". round($c70TVTdx,2);
 
 //$c70TVdx=(((1-(pow(10,(-($c70dm-$Pdm)))))/(1-(pow(10,(-($c100dm-$Pdm)))))))*100;
 
 //$c70TVTdx=(((1-(pow(10,(-($dgc7-$Pdm)))))/(1-(pow(10,(-($c100dm-$Pdm)))))))*100;
 
 
 
  $m70TVd=(((1-(pow(10,(-($m70dm-$Pdm)))))/(1-(pow(10,(-($m100dm-$Pdm)))))))*100;
 
 $m70TVTd=(((1-(pow(10,(-($dgm7-$Pdm)))))/(1-(pow(10,(-($m100dm-$Pdm)))))))*100;
 
  $y70TVd=(((1-(pow(10,(-($y70dm-$Pdm)))))/(1-(pow(10,(-($y100dm-$Pdm)))))))*100;
 
 $y70TVTd=(((1-(pow(10,(-($dgy7-$Pdm)))))/(1-(pow(10,(-($y100dm-$Pdm)))))))*100;
 
  $k70TVd=(((1-(pow(10,(-($k70dm-$Pdm)))))/(1-(pow(10,(-($k100dm-$Pdm)))))))*100;
 
 $k70TVTd=(((1-(pow(10,(-($k70dT)))))/(1-(pow(10,(-($k100dm-$Pdm)))))))*100;
 //echo "<br> k20TVd  d:".$k20TVd."_". $k20TVTd;
 
 
//$FixC20=
//=(((1 - 1/10^ SIN(B11/100)) / 0.8559448 - B11/100) * 2.744 - ((0.1- 1/10^ COS(B11/100)) / - 0.1882025 - B11/100) * 0.594) * 25.2

$dFactor=96.2;
$TVf=20;
$SiCoTVI20=(((1 - 1/pow(10,SIN($TVf/100)))/ 0.8559448-$TVf/100)*2.744-((0.1- 1/pow(10,cos($TVf/100))) / - 0.1882025 - $TVf/100)*0.594)*25.2;
$SiCoY20=100 - $dFactor * ($TVf+$SiCoTVI20)/100;
$NPCD20=log10(100/$SiCoY20);

$TVf=50;
$SiCoTVI50=(((1 - 1/pow(10,SIN($TVf/100)))/ 0.8559448-$TVf/100)*2.744-((0.1- 1/pow(10,cos($TVf/100))) / - 0.1882025 - $TVf/100)*0.594)*25.2;
$SiCoY50=100 - $dFactor * ($TVf+$SiCoTVI50)/100;
$NPCD50=log10(100/$SiCoY50);

$TVf=70;
$SiCoTVI70=(((1 - 1/pow(10,SIN($TVf/100)))/ 0.8559448-$TVf/100)*2.744-((0.1- 1/pow(10,cos($TVf/100))) / - 0.1882025 - $TVf/100)*0.594)*25.2;
$SiCoY70=100 - $dFactor * ($TVf+$SiCoTVI70)/100;
$NPCD70=log10(100/$SiCoY70);




 
 
?>
<img src="scatterB.png?nocache=<?php echo time(); ?>">
</div></td>

</tr>
</table>



 <table width="200" border="1" align="center">
<tr>
<td><div align="center">

<!--<img src="scatterGuR.png?nocache=<?php echo time(); ?>">-->
</div></td>


<td><div align="center">


<?php // content="text/plain; charset=utf-8"
unlink('scatterGuR2.png');

//${'s'.($minGroupRid-1).'a'
$datax = array($tma,$tra,$tya,$tga,$tca,$tba,$tma);
$datay = array($tmb,$trb,$tyb,$tgb,$tcb,$tbb,$tmb);
$datax2 = array($ma,$ra,$ya,$ga,$ca,$ba,$ma);
$datay2 = array($mb,$rb,$yb,$gb,$cb,$bb,$mb);

$datax3 = array($c5am,$c10am,$c20am,$c30am,$c40am,$c50am,$c60am,$c70am,$c80am,$c90am,$c95am);
$datay3 = array($c5bm,$c10bm,$c20bm,$c30bm,$c40bm,$c50bm,$c60bm,$c70bm,$c80bm,$c90bm,$c95bm);

$dataxr = array($r5am,$r10am,$r20am,$r30am,$r40am,$r50am,$r60am,$r70am,$r80am,$r90am,$r95am);
$datayr = array($r5bm,$r10bm,$r20bm,$r30bm,$r40bm,$r50bm,$r60bm,$r70bm,$r80bm,$r90bm,$r95bm);

$dataxm = array($m5am,$m10am,$m20am,$m30am,$m40am,$m50am,$m60am,$m70am,$m80am,$m90am,$m95am);
$dataym = array($m5bm,$m10bm,$m20bm,$m30bm,$m40bm,$m50bm,$m60bm,$m70bm,$m80bm,$m90bm,$m95bm);

$dataxg = array($gn5am,$gn10am,$gn20am,$gn30am,$gn40am,$gn50am,$gn60am,$gn70am,$gn80am,$gn90am,$gn95am);
$datayg = array($gn5bm,$gn10bm,$gn20bm,$gn30bm,$gn40bm,$gn50bm,$gn60bm,$gn70bm,$gn80bm,$gn90bm,$gn95bm);

$dataxy = array($y5am,$y10am,$y20am,$y30am,$y40am,$y50am,$y60am,$y70am,$y80am,$y90am,$y95am);
$datayy = array($y5bm,$y10bm,$y20bm,$y30bm,$y40bm,$y50bm,$y60bm,$y70bm,$y80bm,$y90bm,$y95bm);
$dataxb = array($b5am,$b10am,$b20am,$b30am,$b40am,$b50am,$b60am,$b70am,$b80am,$b90am,$b95am);
$datayb = array($b5bm,$b10bm,$b20bm,$b30bm,$b40bm,$b50bm,$b60bm,$b70bm,$b80bm,$b90bm,$b95bm);
//$datax = array($k1d,$k2d,$k3d);
//$datay = array($dk176,$dk276,$dk626);

$graph = new Graph(400,400);
$graph->SetScale("linint",-60,100,-70,80);
$graph->img->SetMargin(20,20,20,20);		
$graph->SetShadow();



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

$sp1 = new ScatterPlot($datay,$datax);
$sp1->mark->SetType(MARK_FILLEDCIRCLE);
$sp1->mark->SetFillColor("red");

$sp2 = new ScatterPlot($datay2,$datax2);
$sp2->SetLinkPoints(true,"#55bbdd",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#55bbdd");
$sp2->mark->SetWidth(3);
$sp3 = new ScatterPlot($datay3,$datax3);
//$sp3->mark->SetType(MARK_FILLEDCIRCLE);
$sp3->mark->SetFillColor("#55bbdd");

$graph->Add($sp1);
$graph->Add($sp2);
$graph->Add($sp3);



$spr = new ScatterPlot($datayr,$dataxr);
//$spr->mark->SetType(MARK_FILLEDCIRCLE);
$spr->mark->SetFillColor("#f70404");
$graph->Add($spr);

$spm = new ScatterPlot($dataym,$dataxm);
//$spm->mark->SetType(MARK_FILLEDCIRCLE);
$spm->mark->SetFillColor("#e13fcc");
$graph->Add($spm);

$spg = new ScatterPlot($datayg,$dataxg);

//$spg->mark->SetType(MARK_FILLEDCIRCLE);
$spg->mark->SetFillColor("#3fe14e");
$graph->Add($spg);

$spy = new ScatterPlot($datayy,$dataxy);
//$spy->mark->SetType(MARK_FILLEDCIRCLE);
$spy->mark->SetFillColor("#f3fb12");

$spb = new ScatterPlot($datayb,$dataxb);
//$spb->mark->SetType(MARK_FILLEDCIRCLE);
$spb->mark->SetFillColor("#1f2eef");






$graph->Add($spg);
$graph->Add($spy);
$graph->Add($spb);


$graph->title->Set("Target in blue");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$spHx = new ScatterPlot($datay,$datax);
$spHx->SetLinkPoints(true,"#ffbbdd",2);
$spHx->mark->SetType(MARK_FILLEDCIRCLE);
$spHx->mark->SetFillColor("red");
$spHx->mark->SetWidth(3);
$graph->Add($spHx);


$graph->Stroke('scatterGuR2.png');

?>


<img src="scatterGuR2.png?nocache=<?php echo time(); ?>">
</div></td>



<?php

include 'graphFixC9.php';

$dk=($k50dm-$Pdm)-$k50dT;


//echo "<br> c50dm:".$c50dm."_"."_dgc:".$dgc."_m50dm:".$m50dm."_dgm:".$dgm."_y50dm:".$y50dm."_dgy:".$dgy;

//GenGraphGT($c50dm-$dgc,$m50dm-$dgm,$y50dm-$dgy,$dk);

//////score
$sum=180;
$sum=$sum-($dc00+$dm00+$dy00+$dk00+$dr00+$dgn00+$db00);
$sum=$sum-$Avgdl*4;
$sum=$sum-$Maxdl*2;
$sum=$sum-$Avgdlc*6;
$sum=$sum-$Maxdlc*3;
$sum=$sum-$Avgdf*6;
$sum=$sum-$Maxdf*3;
$sum=$sum-$dk*5;
$sum=$sum-$dgl*3;
$sum=$sum-$df*6;


//echo "<br>dl20:".$dl20."_dl50:".$dl50."_dl70:".$dl70;

if ($dc00>3.5 or $dm00>3.5 or $dy00>3.5 or $dk00>5 or $dr00>4.2 or $dgn00>4.2 or $db00>4.2) {$stFail=1;}


?>
<td><div>
<font size='+4'> <?php if ($sum<75 or $stFail==1) {echo '<font color="red">';  } else {echo '<font color="green">';} echo round($sum,2);?></font>
 <!--<img src="graphK.gif">
  <img src="graphGT.gif?nocache=<?php echo time(); ?>">-->
  </div></td>
  
<td><div align="center">
<img src="scatterKTV.png?nocache=<?php echo time(); ?>">
</div></td>
</tr>
</table> 

<?php
echo "=====================================================================================<br>";
 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);
}



////////////////////////////rule set 2


$TL=$GrayLT;
$Ta=($Pam/2);
$Tb=($Pbm/2);
//echo "<br>dlab:".$TL.",".$Ta.",".$Tb."<br>";
$ML=$gLm;
$Ma=$gam;
$Mb=$gbm;

$emin=100;
$mddexT=0;
$deT=0;
	

/////////////////////////////////////////////////////////////////////
for ($CD=45;$CD<=55;$CD=$CD+0.5) {
for ($MD=35;$MD<=45;$MD=$MD+0.5) {
for ($YD=35;$YD<=45;$YD=$YD+0.5) {
$dc=$CD-50;
$dm=$MD-40;
$dy=$YD-40;

$cc=$dc*0.3; //echo "cc:".$cc;
$cm=$dm*0.4;//echo "cm:".$cm;

if ($dy>1) {
$cy=0;
}
else {
$cy=1;	
}
//echo "cy:".$cy;

$mc=-$dc*0.6;//echo "mc:".$mc;
$mm=$dm*0.7;//echo "mm:".$mm;
if ($dy>1) {
$my=-$dy*0.1;
}
else {
$my=-$dy*0.2;	
}
//echo "my:".$my;

$yc=-$dc*0.4;
$ym=-$dm*0.2;
$yy=$dy*0.6;

${'C'.$CD.$MD.$YD."L"}=round($TL-($cc+$cm-$cy),1);
${'C'.$CD.$MD.$YD."a"}=round($Ta+($mc+$mm+$my),1);
${'C'.$CD.$MD.$YD."b"}=round($Tb+($yc+$ym+$yy),1);
${'de'.$CD.$MD.$YD}=round(de76($ML,$Ma,$Mb,$TL-($cc+$cm-$cy),$Ta+($mc+$mm+$my),$Tb+($yc+$ym+$yy)),2);

if (${'de'.$CD.$MD.$YD}<1) 
	{$fColor='red';}
else {
	$fColor='black';
}

	$emin=min($emin,${'de'.$CD.$MD.$YD});
	if ($emin==${'de'.$CD.$MD.$YD}) {
	$mddexT=$CD."-".$MD."-".$YD;
	$deT=${'de'.$CD.$MD.$YD};
	}



//echo "<tr><td>".$CD."-".$MD."-".$YD."</td><td>".${'C'.$CD.$MD.$YD."L"}."</td><td>".${'C'.$CD.$MD.$YD."a"}."</td><td>".${'C'.$CD.$MD.$YD."b"}."</td><td><font color='".$fColor."'>".${'de'.$CD.$MD.$YD}."</td></tr>";
///////////////////////////////////////////////////////////////////////////////////////////////////
}
}
}

//echo "mdexT:".$mddexT;

///////////////////////////////////////////////////////////Measured


$emin=100;
$mddexM=0;
$deM=0;

/////////////////////////////////////////////////////////////////////
for ($CD=45;$CD<=55;$CD=$CD+0.5) {
for ($MD=35;$MD<=45;$MD=$MD+0.5) {
for ($YD=35;$YD<=45;$YD=$YD+0.5) {
$dc=$CD-50;
$dm=$MD-40;
$dy=$YD-40;

$cc=$dc*0.3; //echo "cc:".$cc;
$cm=$dm*0.4;//echo "cm:".$cm;

if ($dy>1) {
$cy=0;
}
else {
$cy=1;	
}
//echo "cy:".$cy;

$mc=-$dc*0.6;//echo "mc:".$mc;
$mm=$dm*0.7;//echo "mm:".$mm;
if ($dy>1) {
$my=-$dy*0.1;
}
else {
$my=-$dy*0.2;	
}
//echo "my:".$my;

$yc=-$dc*0.4;
$ym=-$dm*0.2;
$yy=$dy*0.6;

${'C'.$CD.$MD.$YD."L"}=round($ML-($cc+$cm-$cy),1);
${'C'.$CD.$MD.$YD."a"}=round($Ma+($mc+$mm+$my),1);
${'C'.$CD.$MD.$YD."b"}=round($Mb+($yc+$ym+$yy),1);
${'de'.$CD.$MD.$YD}=round(de76($TL,$Ta,$Tb,$ML-($cc+$cm-$cy),$Ma+($mc+$mm+$my),$Mb+($yc+$ym+$yy)),2);

if (${'de'.$CD.$MD.$YD}<1) 
	{$fColor='red';}
else {
	$fColor='black';
}

	$emin=min($emin,${'de'.$CD.$MD.$YD});
	if ($emin==${'de'.$CD.$MD.$YD}) {
	$mddexM=$CD."-".$MD."-".$YD;
	$deM=${'de'.$CD.$MD.$YD};
	}



//echo "<tr><td>".$CD."-".$MD."-".$YD."</td><td>".${'C'.$CD.$MD.$YD."L"}."</td><td>".${'C'.$CD.$MD.$YD."a"}."</td><td>".${'C'.$CD.$MD.$YD."b"}."</td><td><font color='".$fColor."'>".${'de'.$CD.$MD.$YD}."</td></tr>";
///////////////////////////////////////////////////////////////////////////////////////////////////
}
}
}

//echo "mdexM:".$mddexM;
//echo "<br>deT=".$deT."_deM=".$deM;

if ($deT<$deM){
	$FinalF=$mddexT;
	$dotF=explode("-", $FinalF);////Measure upload
	//print_r($dotF);
	$FC=50-$dotF[0];
	$FM=40-$dotF[1];
	$FY=40-$dotF[2];
}
else {
	$FinalF=$mddexM;
	$dotF=explode("-", $FinalF);////Measure upload
	//print_r($dotF);
	$FC=$dotF[0]-50;
	$FM=$dotF[1]-40;
	$FY=$dotF[2]-40;
}
/*
	$FinalF=$mddexT;
	$dotF=explode("-", $FinalF);////Measure upload
	//print_r($dotF);
	$FC=50-$dotF[0];
	$FM=40-$dotF[1];
	$FY=40-$dotF[2];
	*/
	
//echo "FC:".$FC;
//echo "FM:".$FM;
//echo "FY:".$FY;

//echo "<br>Fix:".$FinalF."<br>";
///////////////////////////////////////////////////////gray 50
///////////////////////////////////// rule set 25


$TL=$GrayLT25;
$Ta=($Pam*0.75);
$Tb=($Pbm*0.75);

$ML=$gy25Lm;
$Ma=$gy25am;
$Mb=$gy25bm;

$emin=100;
$mddexT=0;
$deT=0;
	

/////////////////////////////////////////////////////////////////////
for ($CD=20;$CD<=30;$CD=$CD+0.5) {
for ($MD=14;$MD<=24;$MD=$MD+0.5) {
for ($YD=14;$YD<=24;$YD=$YD+0.5) {
$dc=$CD-25;
$dm=$MD-19;
$dy=$YD-19;

$cc=$dc*0.4; //echo "cc:".$cc;
$cm=$dm*0.4;//echo "cm:".$cm;
$cy=0;

//echo "cy:".$cy;

$mc=-$dc*0.3;//echo "mc:".$mc;
$mm=$dm*0.6;//echo "mm:".$mm;
$my=-0.1;

//echo "my:".$my;

$yc=-$dc*0.6;
$ym=-$dm*0.2;
$yy=$dy*0.8;

${'C'.$CD.$MD.$YD."L"}=round($TL-($cc+$cm-$cy),1);
${'C'.$CD.$MD.$YD."a"}=round($Ta+($mc+$mm+$my),1);
${'C'.$CD.$MD.$YD."b"}=round($Tb+($yc+$ym+$yy),1);
${'de'.$CD.$MD.$YD}=round(de76($ML,$Ma,$Mb,$TL-($cc+$cm-$cy),$Ta+($mc+$mm+$my),$Tb+($yc+$ym+$yy)),2);

if (${'de'.$CD.$MD.$YD}<1) 
	{$fColor='red';}
else {
	$fColor='black';
}

	$emin=min($emin,${'de'.$CD.$MD.$YD});
	if ($emin==${'de'.$CD.$MD.$YD}) {
	$mddexT=$CD."-".$MD."-".$YD;
	$deT=${'de'.$CD.$MD.$YD};
	}



//echo "<tr><td>".$CD."-".$MD."-".$YD."</td><td>".${'C'.$CD.$MD.$YD."L"}."</td><td>".${'C'.$CD.$MD.$YD."a"}."</td><td>".${'C'.$CD.$MD.$YD."b"}."</td><td><font color='".$fColor."'>".${'de'.$CD.$MD.$YD}."</td></tr>";
///////////////////////////////////////////////////////////////////////////////////////////////////
}
}
}

//echo "mdexT:".$mddexT;

///////////////////////////////////////////////////////////Measured


$emin=100;
$mddexM=0;
$deM=0;

/////////////////////////////////////////////////////////////////////
for ($CD=20;$CD<=30;$CD=$CD+0.5) {
for ($MD=14;$MD<=24;$MD=$MD+0.5) {
for ($YD=14;$YD<=24;$YD=$YD+0.5) {
$dc=$CD-25;
$dm=$MD-19;
$dy=$YD-19;

$cc=$dc*0.4; //echo "cc:".$cc;
$cm=$dm*0.4;//echo "cm:".$cm;
$cy=0;

//echo "cy:".$cy;

$mc=-$dc*0.3;//echo "mc:".$mc;
$mm=$dm*0.6;//echo "mm:".$mm;
$my=-0.1;

//echo "my:".$my;

$yc=-$dc*0.6;
$ym=-$dm*0.2;
$yy=$dy*0.8;

${'C'.$CD.$MD.$YD."L"}=round($ML-($cc+$cm-$cy),1);
${'C'.$CD.$MD.$YD."a"}=round($Ma+($mc+$mm+$my),1);
${'C'.$CD.$MD.$YD."b"}=round($Mb+($yc+$ym+$yy),1);
${'de'.$CD.$MD.$YD}=round(de76($TL,$Ta,$Tb,$ML-($cc+$cm-$cy),$Ma+($mc+$mm+$my),$Mb+($yc+$ym+$yy)),2);

if (${'de'.$CD.$MD.$YD}<1) 
	{$fColor='red';}
else {
	$fColor='black';
}

	$emin=min($emin,${'de'.$CD.$MD.$YD});
	if ($emin==${'de'.$CD.$MD.$YD}) {
	$mddexM=$CD."-".$MD."-".$YD;
	$deM=${'de'.$CD.$MD.$YD};
	}



//echo "<tr><td>".$CD."-".$MD."-".$YD."</td><td>".${'C'.$CD.$MD.$YD."L"}."</td><td>".${'C'.$CD.$MD.$YD."a"}."</td><td>".${'C'.$CD.$MD.$YD."b"}."</td><td><font color='".$fColor."'>".${'de'.$CD.$MD.$YD}."</td></tr>";
///////////////////////////////////////////////////////////////////////////////////////////////////
}
}
}

//echo "mdexM:".$mddexM;
//echo "<br>deT=".$deT."_deM=".$deM;
/*
if ($deT<$deM){
	$FinalF=$mddexT;
	$dotF=explode("-", $FinalF);////Measure upload
	print_r($dotF);
	$FC=25-$dotF[0];
	$FM=19-$dotF[1];
	$FY=19-$dotF[2];
}
else {
	$FinalF=$mddexM;
	$dotF=explode("-", $FinalF);////Measure upload
	print_r($dotF);
	$FC=$dotF[0]-25;
	$FM=$dotF[1]-19;
	$FY=$dotF[2]-19;
}
*/
	$FinalF=$mddexT;
	$dotF=explode("-", $FinalF);////Measure upload
	//print_r($dotF);
	$FC25=25-$dotF[0];
	$FM25=19-$dotF[1];
	$FY25=19-$dotF[2];
//echo "FC25:".$FC25;
//echo "FM25:".$FM25;
//echo "FY25:".$FY25;

//echo "<br>Fix:".$FinalF."<br>";

///////////////////////////////////// rule set 25

///////////////////////////////////// rule set 75


$TL=$GrayLT75;
$Ta=($Pam*0.25);
$Tb=($Pbm*0.25);

$ML=$gy75Lm;
$Ma=$gy75am;
$Mb=$gy75bm;

$emin=100;
$mddexT=0;
$deT=0;
	

/////////////////////////////////////////////////////////////////////
for ($CD=70;$CD<=80;$CD=$CD+0.5) {
for ($MD=61;$MD<=71;$MD=$MD+0.5) {
for ($YD=61;$YD<=71;$YD=$YD+0.5) {
$dc=$CD-75;
$dm=$MD-66;
$dy=$YD-66;

$cc=$dc*0.3; //echo "cc:".$cc;
$cm=$dm*0.3;//echo "cm:".$cm;
$cy=0;

//echo "cy:".$cy;

$mc=-$dc*0.7;//echo "mc:".$mc;
$mm=$dm*0.5;//echo "mm:".$mm;
$my=-0.1;

//echo "my:".$my;

$yc=-$dc*0.4;
$ym=-$dm*0.2;
$yy=$dy*0.6;

${'C'.$CD.$MD.$YD."L"}=round($TL-($cc+$cm-$cy),1);
${'C'.$CD.$MD.$YD."a"}=round($Ta+($mc+$mm+$my),1);
${'C'.$CD.$MD.$YD."b"}=round($Tb+($yc+$ym+$yy),1);
${'de'.$CD.$MD.$YD}=round(de76($ML,$Ma,$Mb,$TL-($cc+$cm-$cy),$Ta+($mc+$mm+$my),$Tb+($yc+$ym+$yy)),2);

if (${'de'.$CD.$MD.$YD}<1) 
	{$fColor='red';}
else {
	$fColor='black';
}

	$emin=min($emin,${'de'.$CD.$MD.$YD});
	if ($emin==${'de'.$CD.$MD.$YD}) {
	$mddexT=$CD."-".$MD."-".$YD;
	$deT=${'de'.$CD.$MD.$YD};
	}



//echo "<tr><td>".$CD."-".$MD."-".$YD."</td><td>".${'C'.$CD.$MD.$YD."L"}."</td><td>".${'C'.$CD.$MD.$YD."a"}."</td><td>".${'C'.$CD.$MD.$YD."b"}."</td><td><font color='".$fColor."'>".${'de'.$CD.$MD.$YD}."</td></tr>";
///////////////////////////////////////////////////////////////////////////////////////////////////
}
}
}

//echo "mdexT:".$mddexT;

///////////////////////////////////////////////////////////Measured


$emin=100;
$mddexM=0;
$deM=0;

/////////////////////////////////////////////////////////////////////
for ($CD=70;$CD<=80;$CD=$CD+0.5) {
for ($MD=61;$MD<=71;$MD=$MD+0.5) {
for ($YD=61;$YD<=71;$YD=$YD+0.5) {
$dc=$CD-75;
$dm=$MD-66;
$dy=$YD-66;

$cc=$dc*0.3; //echo "cc:".$cc;
$cm=$dm*0.3;//echo "cm:".$cm;
$cy=0;

//echo "cy:".$cy;

$mc=-$dc*0.7;//echo "mc:".$mc;
$mm=$dm*0.5;//echo "mm:".$mm;
$my=-0.1;

//echo "my:".$my;

$yc=-$dc*0.4;
$ym=-$dm*0.2;
$yy=$dy*0.6;

${'C'.$CD.$MD.$YD."L"}=round($ML-($cc+$cm-$cy),1);
${'C'.$CD.$MD.$YD."a"}=round($Ma+($mc+$mm+$my),1);
${'C'.$CD.$MD.$YD."b"}=round($Mb+($yc+$ym+$yy),1);
${'de'.$CD.$MD.$YD}=round(de76($TL,$Ta,$Tb,$ML-($cc+$cm-$cy),$Ma+($mc+$mm+$my),$Mb+($yc+$ym+$yy)),2);

if (${'de'.$CD.$MD.$YD}<1) 
	{$fColor='red';}
else {
	$fColor='black';
}

	$emin=min($emin,${'de'.$CD.$MD.$YD});
	if ($emin==${'de'.$CD.$MD.$YD}) {
	$mddexM=$CD."-".$MD."-".$YD;
	$deM=${'de'.$CD.$MD.$YD};
	}



//echo "<tr><td>".$CD."-".$MD."-".$YD."</td><td>".${'C'.$CD.$MD.$YD."L"}."</td><td>".${'C'.$CD.$MD.$YD."a"}."</td><td>".${'C'.$CD.$MD.$YD."b"}."</td><td><font color='".$fColor."'>".${'de'.$CD.$MD.$YD}."</td></tr>";
///////////////////////////////////////////////////////////////////////////////////////////////////
}
}
}

//echo "mdexM:".$mddexM;
//echo "<br>deT=".$deT."_deM=".$deM;
/*
if ($deT<$deM){
	$FinalF=$mddexT;
	$dotF=explode("-", $FinalF);////Measure upload
	print_r($dotF);
	$FC=75-$dotF[0];
	$FM=66-$dotF[1];
	$FY=66-$dotF[2];
}
else {
	$FinalF=$mddexM;
	$dotF=explode("-", $FinalF);////Measure upload
	print_r($dotF);
	$FC=$dotF[0]-75;
	$FM=$dotF[1]-66;
	$FY=$dotF[2]-66;
}
*/
	$FinalF=$mddexT;
	$dotF=explode("-", $FinalF);////Measure upload
	//print_r($dotF);
	$FC75=75-$dotF[0];
	$FM75=66-$dotF[1];
	$FY75=66-$dotF[2];


//echo "FC75:".$FC75;
//echo "FM75:".$FM75;
//echo "FY75:".$FY75;


//echo "<br>Fix75:".$FinalF."<br>";

//include 'graphFixC9.php';



GenGraphTK25(-$FC25,-$FM25,-$FY25,(getLk(25,$K100Ym,$PYm,$PLm)-$K25Lm));
GenGraphTK(-$FC,-$FM,-$FY,(getLk(50,$K100Ym,$PYm,$PLm)-$K50Lm));
GenGraphTK75(-$FC75,-$FM75,-$FY75,-$KLD75);

	
	  $dgl=$GrayLT-$gy50Lm;
  $dga=($Pam/2)-$gy50am;
  $dgb=($Pbm/2)-$gy50bm;
  $df=sqrt(pow($dga,2)+pow($dgb,2));
    $dgy50=de00($GrayLT,($Pam/2),($Pbm/2),$gy50Lm,$gy50am,$gy50bm);
	
	$dg25l=$GrayLT25-$gy25Lm;
	$dg25a=($Pam*0.75)-$gy25am;
	$dg25b=($Pbm*0.75)-$gy25bm;
	  $df25=sqrt(pow($dg25a,2)+pow($dg25b,2));
	  
	$dg75l=$GrayLT75-$gy75Lm;
	$dg75a=($Pam*0.25)-$gy75am;
	$dg75b=($Pbm*0.25)-$gy75bm;
	  $df75=sqrt(pow($dg75a,2)+pow($dg75b,2));  
	  
///////////////////////////////////// rule set 75

?>
<table>
<tr>
<img src="graphTK25.gif?nocache=<?php echo time(); ?>">
<img src="graphTK.gif?nocache=<?php echo time(); ?>">
<img src="graphTK75.gif?nocache=<?php echo time(); ?>">
</tr>
</table>

<table  width="200" border="1" align="center" style="font-size:16px;">
	<font size='0' color='black'>
<tr>
	<td>G7</td>
    <td><font color='<?php if ((abs($dg25l)>2)){echo "red";}else {echo "black";}?>'>G25L</td>
	<td><font color='<?php if ($df25>3){echo "red";}else {echo "black";}?>'>G25a</td>
	<td><font color='<?php if ($df25>3){echo "red";}else {echo "black";}?>'>G25b</td>
	<td><font color='<?php if ($df25>3){echo "red";}else {echo "black";}?>'>d25Ch</td>
	<td>
	<td><font color='<?php if ((abs($dgl)>2)){echo "red";}else {echo "black";}?>'>G50L</td>
	<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>G50a</td>
	<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>G50b</td>
	<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>d50Ch</td>
	<td>
	<td><font color='<?php if ((abs($dg75l)>2)){echo "red";}else {echo "black";}?>'>G75L</td>
	<td><font color='<?php if ($df75>3){echo "red";}else {echo "black";}?>'>G75a</td>
	<td><font color='<?php if ($df75>3){echo "red";}else {echo "black";}?>'>G75b</td>
	<td><font color='<?php if ($df75>3){echo "red";}else {echo "black";}?>'>d75Ch</td>
	</tr>
	<tr>
<td bgcolor="#ffffff">G7</td>
<td><div align="right"><font color='<?php if ($df25>2.5){echo "red";}else {echo "black";}?>'><a href=" " title="<?php echo round($dgy50,2);?>"><?php  echo  round($dg25l,2);?></a></div></td>
<td><div align="right"><font color='<?php if ($df25>2.5){echo "red";}else {echo "black";}?>'><?php echo  round($dg25a,2);?></div></td>
<td><div align="right"><font color='<?php if ($df25>2.5){echo "red";}else {echo "black";}?>'><?php echo  round($dg25b,2);?></div></td>
<td><div align="right"><font color='<?php if ($df25>2.5){echo "red";}else {echo "black";}?>'><?php echo  round($df25,2);?></div></td>
<td>
<td><div align="right"><font color='<?php if ($df>2.5){echo "red";}else {echo "black";}?>'><a href=" " title="<?php echo round($dgy50,2);?>"><?php  echo  round($dgl,2);?></a></div></td>
<td><div align="right"><font color='<?php if ($df>2.5){echo "red";}else {echo "black";}?>'><?php echo  round($dga,2);?></div></td>
<td><div align="right"><font color='<?php if ($df>2.5){echo "red";}else {echo "black";}?>'><?php echo  round($dgb,2);?></div></td>
<td><div align="right"><font color='<?php if ($df>2.5){echo "red";}else {echo "black";}?>'><?php echo  round($df,2);?></div></td>
<td>
<td><div align="right"><font color='<?php if ($df75>2.5){echo "red";}else {echo "black";}?>'><a href=" " title="<?php echo round($dgy50,2);?>"><?php  echo  round($dg75l,2);?></a></div></td>
<td><div align="right"><font color='<?php if ($df75>2.5){echo "red";}else {echo "black";}?>'><?php echo  round($dg75a,2);?></div></td>
<td><div align="right"><font color='<?php if ($df75>2.5){echo "red";}else {echo "black";}?>'><?php echo  round($dg75b,2);?></div></td>
<td><div align="right"><font color='<?php if ($df75>2.5){echo "red";}else {echo "black";}?>'><?php echo  round($df75,2);?></div></td>
</tr><tr>
<td>G7量測</td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($Gray25Lm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($Gray25a,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($Gray25b,2);?></div></td>
<td bgcolor="#cccccc"><div align="right"><font color='<?php if (abs($dg25l)>2.5){echo "red";}else {echo "black";}?>'><b><?php echo round($Grayd-$Pdm,2);?></div></td>
<td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($GrayLm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($Graya,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($Grayb,2);?></div></td>
<td bgcolor="#cccccc"><div align="right"><font color='<?php if (abs($dgl)>2.5){echo "red";}else {echo "black";}?>'><b><?php echo round($Grayd-$Pdm,2);?></div></td>
<td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($Gray75Lm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($Gray75a,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($Gray75b,2);?></div></td>
<td bgcolor="#cccccc"><div align="right"><font color='<?php if (abs($dg25l)>2.5){echo "red";}else {echo "black";}?>'><b><?php echo round($Grayd-$Pdm,2);?></div></td>

</tr><tr>
<td>G7目標</td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($GrayLT25,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($Pam*0.75,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($Pbm*0.75,2);?></div></td>
<td bgcolor="#cccccc"><div align="right"><?php echo round(0.54,2);?></div></td>
<td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($GrayLT,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($Pam/2,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($Pbm/2,2);?></div></td>
<td bgcolor="#cccccc"><div align="right"><?php echo round(0.54,2);?></div></td>
<td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($GrayLT75,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($Pam*0.25,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($Pbm*0.25,2);?></div></td>
<td bgcolor="#cccccc"><div align="right"><?php echo round(0.54,2);?></div></td>
</tr>
</table>

  <table width="200" border="1" align="center">
  <tr>
  	<td><div align="center"> id</div></td>
   <td><font color="#666666">P</td>
    <td><font color='<?php if ($dc00>3.5){echo "red";}else {echo "black";}?>'>C</td>
    <td><font color='<?php if ($dm00>3.5){echo "red";}else {echo "black";}?>'>M</td>
    <td><font color='<?php if ($dy00>3.5){echo "red";}else {echo "black";}?>'>Y</td>
    <td><font color='<?php if ($dk00>5){echo "red";}else {echo "black";}?>'>K</td>
	<td><font color='<?php if ($dr00>4.2){echo "red";}else {echo "black";}?>'>R</td>
    <td><font color='<?php if ($dgr00>4.2){echo "red";}else {echo "black";}?>'>G</td>
    <td><font color='<?php if ($db00>4.2){echo "red";}else {echo "black";}?>'>B</td>
	<td>TVI</td>
	<td bgcolor="#CCCCCC"><div align="right">C50</td>
    <td bgcolor="#CCCCCC"><div align="right">M50</td>
    <td bgcolor="#CCCCCC"><div align="right">Y50</td>
    <td bgcolor="#CCCCCC"><div align="right">K50</td>
	<td>G7</td>
    <td><font color='<?php if ((abs($dgl)>2)){echo "red";}else {echo "black";}?>'>GL</td>
	<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>Ga</td>
	<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>Gb</td>
	<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>∆Ch</td>
  </tr>
    
  
<tr bgcolor="#aaaaaa">
<td><div align="center">色差</div></td>
<td bgcolor="#CCCCCC"><font color='<?php if ($dp00>3){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($PLm,0).",".round($Pam,0).",".round($Pbm,0);?>"><?php  echo  round($dp00,2);?></a> </div></td>
<td bgcolor="#00FFFF"><font color='<?php if ($dc00>3.5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($c100Lm,0).",".round($c100am,0).",".round($c100bm,0);?>"><?php  echo  round($dc00,2);?></a> </div></td>
<td bgcolor="#FF99FF"><font color='<?php if ($dm00>3.5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($m100Lm,0).",".round($m100am,0).",".round($m100bm,0);?>"><?php echo  round($dm00,2);?></a></div></td>
<td bgcolor="#FFFF99"><font color='<?php if ($dy00>3.5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($y100Lm,0).",".round($y100am,0).",".round($y100bm,0);?>"><?php  echo  round($dy00,2);?></a></div></td>
<td bgcolor="#aaaaaa"><font color='<?php if ($dk00>5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($k100Lm,0).",".round($k100am,0).",".round($k100bm,0);?>"><?php echo  round($dk00,2);?></a></div></td>
<td bgcolor="#fa6b53"><font color='<?php if ($dr00>4.2){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($r100Lm,0).",".round($r100am,0).",".round($r100bm,0);?>"><?php  echo  round($dr00,2);?></a></div></td>
<td bgcolor="#8afa53"><font color='<?php if ($dg00>4.2){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($gn100Lm,0).",".round($gn100am,0).",".round($gn100bm,0);?>"><?php  echo  round($dgn00,2);?></a></div></td>
<td bgcolor="#5357fa"><font color='<?php if ($db00>4.2){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($b100Lm,0).",".round($b100am,0).",".round($b100bm,0);?>"><?php  echo  round($db00,2);?></a></div></td>

<td bgcolor="#ffffff">TVI</td>

<td bgcolor="#00FFFF"><font color='<?php if (abs($c50TV-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($c50Lm,0).",".round($c50am,0).",".round($c50bm,0);?>"><?php echo  round($c50TV-50,2);?></a></div></td>
<td bgcolor="#FF99FF"><font color='<?php if (abs($m50TV-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($m100Lm,0).",".round($m100am,0).",".round($m100bm,0);?>"><?php echo  round($m50TV-50,2);?></a></div></td>
<td bgcolor="#FFFF99"><font color='<?php if (abs($y50TV-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($y100Lm,0).",".round($y100am,0).",".round($y100bm,0);?>"><?php echo  round($y50TV-50,2);?></a></div></td>
<td bgcolor="#aaaaaa"><font color='<?php if (abs($KTV50-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($k100Lm,0).",".round($k100am,0).",".round($k100bm,0);?>"><?php  echo  round($KTV50-50,2);?></a></div></td>


<td bgcolor="#ffffff">G7</td>
<td><div align="right"><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'><a href=" " title="<?php echo round($dgy50,2);?>"><?php  echo  round($dgl,2);?></a></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>
<td><div align="right"><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'><?php echo  round($df,2);?></div></td>
</tr>

<tr>
<td><div align="center">量測濃度</div></td>
<td bgcolor="#CCCCCC"></td>
<td bgcolor="#00FFFF"><div align="right"><font color='<?php if ($dc00>3.5){echo "red";}else {echo "black";}?>'><?php echo round($c100dm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><font color='<?php if ($dm00>3.5){echo "red";}else {echo "black";}?>'><?php echo round($m100dm,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><font color='<?php if ($dy00>3.5){echo "red";}else {echo "black";}?>'><?php echo round($y100dm,2);?></div></td>
<td bgcolor="#daffc2"><div align="right"><font color='<?php if ($dk00>5){echo "red";}else {echo "black";}?>'><?php echo round($k100dm,2);?></div></td>
<td bgcolor="#fa6b53"><div align="right"><font color='<?php if ($dr00>4.2){echo "red";}else {echo "black";}?>'><?php echo round($r100dm,2);?></div></td>
<td bgcolor="#8afa53"><div align="right"><font color='<?php if ($dg00>4.2){echo "red";}else {echo "black";}?>'><?php echo round($gn100dm,2);?></div></td>
<td bgcolor="#5357fa"><div align="right"><font color='<?php if ($db00>4.2){echo "red";}else {echo "black";}?>'><div align="right"><?php echo round($b100dm,2);?></div></td>
<td><div align="center">量測濃度</div></td>

<td bgcolor="#00FFFF"><div align="right"><?php if ($stTV==1) {echo round($c50dm,2); }else { echo round($C50dm-$Pdm,2);}?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php if ($stTV==1) {echo round($m50dm,2); }else { echo round($C50dm-$Pdm,2);}?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php if ($stTV==1) {echo round($y50dm,2); }else { echo round($C50dm-$Pdm,2);}?></div></td>
<td bgcolor="#cccccc"><div align="right"><?php echo round($k50dm-$Pdm,2);?></div></td>

<td>G7量測</td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($gy50Lm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($Graya,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($Grayb,2);?></div></td>
</tr>
<tr>
<td><div align="center">預測濃度</div></td>
<td bgcolor="#CCCCCC"></td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($coptD,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($moptD,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($yoptD,2);?></div></td>
<td bgcolor="#daffc2"><div align="right"><?php echo round($koptD,2);?></div></td>

<td bgcolor="#fa6b53"><div align="right"><?php echo round($roptD,2);?></div></td>
<td bgcolor="#8afa53"><div align="right"><?php echo round($gnoptD,2);?></div></td>
<td bgcolor="#5357fa"><div align="right"><?php echo round($boptD,2);?></div></td>

<td><div align="center">目標濃度</div></td>

<td bgcolor="#00FFFF"><div align="right"><?php if ($stTV==1) {echo round($dgc,2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php if ($stTV==1) {echo round($dgm,2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php if ($stTV==1) {echo round($dgy,2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#cccccc"><div align="right"><?php echo round($k50dT,2);?></div></td>

<td>G7目標</td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($GrayLT,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($Pam/2,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($Pbm/2,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 bgcolor="#fa6b53"><div align="right"><?php if ($rmin>6) {?><font color="red"><?php } echo round($rmin,2);?></div></td>
<td bgcolor="#8afa53"><div align="right"><?php if ($gnmin>6) {?><font color="red"><?php } echo round($gnmin,2);?></div></td>
<td bgcolor="#5357fa"><div align="right"><?php if ($bmin>6) {?><font color="red"><?php } echo round($bmin,2);?></div></td>
<td>
TVfix 
</td>

<td bgcolor="#00FFFF"><div align="right"><?php if ($stTV==1) {echo round(($c50TVTd-$c50TVd)*0.5,2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php if ($stTV==1) {echo round(($m50TVTd-$m50TVd)*0.5,2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php if ($stTV==1) {echo round(($y50TVTd-$y50TVd)*0.5,2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#cccccc"><div align="right"><?php echo round(($k50TVTd-$k50TVd)*0.5,2);?></div></td>

<td><?php echo"分數:<br>". round($sum,2);?></td>
<td ><a href="RankC.php?cdc=<?php echo $cdm;?>&mdc=<?php echo $mdm;?>&ydc=<?php echo $ydm;?>&kdc=<?php echo $kdm;?>&gdc=<?php echo $gdm;?>&gLc=<?php echo $gLm;?>&gac=<?php echo $gam;?>&gbc=<?php echo $gbm;?>&cLc=<?php echo $cLm;?>&cac=<?php echo $cam;?>&cbc=<?php echo $cbm;?>&cec=<?php echo $dc00;?>&mLc=<?php echo $mLm;?>&mac=<?php echo $mam;?>&mbc=<?php echo $mbm;?>&mec=<?php echo $dm00;?>&yLc=<?php echo $yLm;?>&yac=<?php echo $yam;?>&ybc=<?php echo $ybm;?>&yec=<?php echo $dy00;?>&kLc=<?php echo $kLm;?>&kac=<?php echo $kam;?>&kbc=<?php echo $kbm;?>&kec=<?php echo $dk00;?>&rLc=<?php echo $rLm;?>&rac=<?php echo $ram;?>&rbc=<?php echo $rbm;?>&rec=<?php echo $dr00;?>&grLc=<?php echo $grLm;?>&grac=<?php echo $gram;?>&grbc=<?php echo $grbm;?>&grec=<?php echo $dg00;?>&bLc=<?php echo $bLm;?>&bac=<?php echo $bam;?>&bbc=<?php echo $bbm;?>&bec=<?php echo $db00;?>&grdc=<?php echo $grdm;?>&rdc=<?php echo $rdm;?>&bdc=<?php echo $bdm;?>&cc50=<?php echo $c50TVI;?>&cm50=<?php echo $m50TVI;?>&cy50=<?php echo $y50TVI;?>&ck50=<?php echo $k50TVI;?>&tStamp=<?php echo $tStamp;?>">compare</a></td><br>
</tr>
</table>


<table width="200" border="1" align="center">
<tr>	<td>TVI</td>
	<td bgcolor="#eeeeee"><div align="right">C20</td>
    <td bgcolor="#eeeeee"><div align="right">M20</td>
    <td bgcolor="#eeeeee"><div align="right">Y20</td>
    <td bgcolor="#eeeeee"><div align="right">K20</td>
	<td>50</td>
	<td bgcolor="#CCCCCC"><div align="right">C50</td>
    <td bgcolor="#CCCCCC"><div align="right">M50</td>
    <td bgcolor="#CCCCCC"><div align="right">Y50</td>
    <td bgcolor="#CCCCCC"><div align="right">K50</td>
	<td>70</td>
	<td bgcolor="#aaaaaa"><div align="right">C70</td>
    <td bgcolor="#aaaaaa"><div align="right">M70</td>
    <td bgcolor="#aaaaaa"><div align="right">Y70</td>
    <td bgcolor="#aaaaaa"><div align="right">K70</td></tr>
<tr>
<td bgcolor="#ffffff">TVI</td>
<td bgcolor="#ccFFFF"><font color='<?php if (abs($c50TV-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($c50Lm,0).",".round($c50am,0).",".round($c50bm,0);?>"><?php echo  round($c20TV-20,2);?></a></div></td>
<td bgcolor="#FFccFF"><font color='<?php if (abs($m50TV-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($m100Lm,0).",".round($m100am,0).",".round($m100bm,0);?>"><?php echo  round($m20TV-20,2);?></a></div></td>
<td bgcolor="#FFFFcc"><font color='<?php if (abs($y50TV-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($y100Lm,0).",".round($y100am,0).",".round($y100bm,0);?>"><?php echo  round($y20TV-20,2);?></a></div></td>
<td bgcolor="#cccccc"><font color='<?php if (abs($KTV50-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($k100Lm,0).",".round($k100am,0).",".round($k100bm,0);?>"><?php  echo  round($KTV20-20,2);?></a></div></td>
<td>
<td bgcolor="#00FFFF"><font color='<?php if (abs($c50TV-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($c50Lm,0).",".round($c50am,0).",".round($c50bm,0);?>"><?php echo  round($c50TV-50,2);?></a></div></td>
<td bgcolor="#FF99FF"><font color='<?php if (abs($m50TV-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($m100Lm,0).",".round($m100am,0).",".round($m100bm,0);?>"><?php echo  round($m50TV-50,2);?></a></div></td>
<td bgcolor="#FFFF99"><font color='<?php if (abs($y50TV-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($y100Lm,0).",".round($y100am,0).",".round($y100bm,0);?>"><?php echo  round($y50TV-50,2);?></a></div></td>
<td bgcolor="#aaaaaa"><font color='<?php if (abs($KTV50-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($k100Lm,0).",".round($k100am,0).",".round($k100bm,0);?>"><?php  echo  round($KTV50-50,2);?></a></div></td>
<td>
<td bgcolor="#55dddd"><font color='<?php if (abs($c50TV-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($c50Lm,0).",".round($c50am,0).",".round($c50bm,0);?>"><?php echo  round($c70TV-70,2);?></a></div></td>
<td bgcolor="#dd55dd"><font color='<?php if (abs($m50TV-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($m100Lm,0).",".round($m100am,0).",".round($m100bm,0);?>"><?php echo  round($m70TV-70,2);?></a></div></td>
<td bgcolor="#dddd55"><font color='<?php if (abs($y50TV-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($y100Lm,0).",".round($y100am,0).",".round($y100bm,0);?>"><?php echo  round($y70TV-70,2);?></a></div></td>
<td bgcolor="#999999"><font color='<?php if (abs($KTV50-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($k100Lm,0).",".round($k100am,0).",".round($k100bm,0);?>"><?php  echo  round($KTV70-70,2);?></a></div></td>
</tr>	
<tr>
<td><div align="center">量測濃度</div></td>
<td bgcolor="#ccFFFF"><div align="right"><?php if ($stTV==1) {echo round($c20dm,2); }else { echo round($C50dm-$Pdm,2);}?></div></td>
<td bgcolor="#FFccFF"><div align="right"><?php if ($stTV==1) {echo round($m20dm,2); }else { echo round($C50dm-$Pdm,2);}?></div></td>
<td bgcolor="#FFFFcc"><div align="right"><?php if ($stTV==1) {echo round($y20dm,2); }else { echo round($C50dm-$Pdm,2);}?></div></td>
<td bgcolor="#cccccc"><div align="right"><?php echo round($k20dm-$Pdm,2);?></div></td>
<td>
<td bgcolor="#00FFFF"><div align="right"><?php if ($stTV==1) {echo round($c50dm,2); }else { echo round($C50dm-$Pdm,2);}?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php if ($stTV==1) {echo round($m50dm,2); }else { echo round($C50dm-$Pdm,2);}?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php if ($stTV==1) {echo round($y50dm,2); }else { echo round($C50dm-$Pdm,2);}?></div></td>
<td bgcolor="#cccccc"><div align="right"><?php echo round($k50dm-$Pdm,2);?></div></td>
<td>
<td bgcolor="#55dddd"><div align="right"><?php if ($stTV==1) {echo round($c70dm,2); }else { echo round($C50dm-$Pdm,2);}?></div></td>
<td bgcolor="#dd55dd"><div align="right"><?php if ($stTV==1) {echo round($m70dm,2); }else { echo round($C50dm-$Pdm,2);}?></div></td>
<td bgcolor="#dddd55"><div align="right"><?php if ($stTV==1) {echo round($y70dm,2); }else { echo round($C50dm-$Pdm,2);}?></div></td>
<td bgcolor="#999999"><div align="right"><?php echo round($k70dm-$Pdm,2);?></div></td>
</tr>
<tr>
<td><div align="center">目標濃度</div></td>
<td bgcolor="#ffffff"><div align="right"><?php if ($stTV==1) {echo round($dgc2,2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#ffffff"><div align="right"><?php if ($stTV==1) {echo round($dgm2,2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#ffffff"><div align="right"><?php if ($stTV==1) {echo round($dgy2,2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#ffffff"><div align="right">(<?php echo round($k20dT,2);?>)</div></td>
<td>
<td bgcolor="#ffffff"><div align="right"><?php if ($stTV==1) {echo round($dgc,2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#ffffff"><div align="right"><?php if ($stTV==1) {echo round($dgm,2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#ffffff"><div align="right"><?php if ($stTV==1) {echo round($dgy,2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#ffffff"><div align="right">(<?php echo round($k50dT,2);?>)</div></td>
<td>
<td bgcolor="#ffffff"><div align="right"><?php if ($stTV==1) {echo round($dgc7,2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#ffffff"><div align="right"><?php if ($stTV==1) {echo round($dgm7,2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#ffffff"><div align="right"><?php if ($stTV==1) {echo round($dgy7,2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#ffffff"><div align="right">(<?php echo round($k70dT,2);?>)</div></td>
</tr>
<!--
<tr>
<td>TVfix1 </td>
<td bgcolor="#ccFFFF"><div align="right"><?php 
$cT20=substr($tage2,-3,1);
$mT20=substr($tage2,-2,1);
$yT20=substr($tage2,-1,1);


//c20
if ($stTV==1){
	
$FixC20=$c20TVTd-$c20TVd;
$FixM20=$m20TVTd-$m20TVd;
$FixY20=$y20TVTd-$y20TVd;

$start20=$pd20TVg-20;

if (abs($FixC20)<1){
$ff2=0;	
}
elseif (abs($FixC20-$FixM20)>3.3)  {
	//echo ":".($FixC20-$FixM20);
$ff2=($start20-($FixM20*0.3))/2;	
}
else{
$ff2=1;	
}

//$ff2=(($start20-$FixM20*0.3)/2);	
//echo "st:".$start20."ff2:".$ff2;

if (($FixC20-$FixM20)<-12) {
$nFixC20=$start20+($FixC20-$FixM20)*0.3;	
}
else {
$nFixC20=$start20+$ff2;	
}

/*		if ($mT20==4 and $yT20==4){
		$nFixC20=$start20+$ff2*0.3;	}
		elseif ($mT20==7 and $yT20==7){
		$nFixC20=$start20+$ff2*0.3;	}
		else {
		$nFixC20=$start20+$ff2;	
		}
*/
		echo round($nFixC20,2);

}	
else {
	echo round($D20dT-$Pdm,2);	
}

?></div></td>
<td bgcolor="#FFccFF"><div align="right"><?php if ($stTV==1){
//m20	
//echo round($FixM20+$ff,2);
		if ($cT20==1){
		$nFixM20=$start20-($FixC20-$FixM20)*0.4;	}
		elseif ($cT20==4 and $mT20==7){
		$nFixM20=$start20;	}
		else {
		$nFixM20=$start20-($FixC20-$FixM20)*0.2;	
		}
		echo round($nFixM20,2);
}
	
else {
	echo round($D20dT-$Pdm,2);	
}

?></div></td>
<td bgcolor="#FFFFcc"><div align="right"><?php if ($stTV==1) {	
// y20
		if ($cT20==7 and $yT20==7){
		$nFixY20=$start20-($FixC20-$FixY20)*10;	}
		elseif ( $cT20==1 and $yT20==7 ){
		$nFixY20=$start20-($FixC20-$FixY20)*0.5;	}
		else {
		$nFixY20=$start20-($FixC20-$FixY20)*0.2;	
		}
		echo round($nFixY20,2);

}	
else {
	echo round($D20dT-$Pdm,2);	
}

?></div></td>
<td bgcolor="#cccccc"><div align="right"><?php echo (round( $pd20TV, 2 )-20);?></div></td>
<td>
<td bgcolor="#00FFFF"><div align="right"><?php 
$cT50=substr($tage5,-3,1);
$mT50=substr($tage5,-2,1);
$yT50=substr($tage5,-1,1);


//c50
if ($stTV==1){
	
$FixC50=$c50TVTd-$c50TVd;	
$FixM50=$m50TVTd-$m50TVd;
$FixY50=$y50TVTd-$y50TVd;
$start50=$pd50TVg-50;
//echo "st:".$start50;


if (abs($FixC50)<1){
$ff5=0;	
}
elseif (abs($FixC50-$FixM50)>3.3)  {
$ff5=(($pd50TVg-50-$FixM50*0.3)/2);	
}
else{
$ff5=1;	
}

$nFixC50=$pd50TVg-50+$ff5;
echo round($nFixC50,2);



	}
	
else {
	echo round($D50dT-$Pdm,2);	
}

?>
</div></td>
<td bgcolor="#FF99FF"><div align="right"><?php if ($stTV==1){
//m50

		if (abs($FixC50-$FixM50)<1) {
			$nFixM50=$start50+($FixC50-$FixM50)*0.8+($FixC50-$FixY50)*0.2;
		}
		elseif ($demin50>2) {
			$nFixM50=$start50-($FixC50-$FixM50)*0.1;
		}
		else {
			$nFixM50=$start50-($FixC50-$FixM50)*0.25;
		}
		//echo "FixM50f:".$FixM50f;
		//$nFixM50=$start50-$FixM50f;


		echo round($nFixM50,2);
}
else {
	echo round($D50dT-$Pdm,2);	
}
?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php if ($stTV==1){
//y50
//f( x ) = 1.0721281503917583 + 0.2498122881302111x + 0.011097264691437535x2 + 0.002329665845457332x3
$nFixY50=1.0721281503917583 + 0.2498122881302111*$FixY50+ 0.011097264691437535*pow($FixY50,2) + 0.002329665845457332*pow($FixY50,2);
/*		if ($demin50>4.4 and $FixY50>5)	{
			echo round($ff5+$FixY50*0.7,2); }
		elseif ($demin50<1.0 and  $FixY50>5)	{
			echo round($ff5+$FixY50*0.3,2); }
		else {
			echo round($ff5+$FixY50*0.5,2);; }
			*/
echo round($nFixY50,2);			
}
else {
	echo round($D50dT-$Pdm,2);	
}
?></div></td>
<td bgcolor="#cccccc"><div align="right"><?php echo (round( $pd50TV, 2 )-50);?></div></td>
<td>
<td bgcolor="#55dddd"><div align="right"><?php if ($stTV==1) {
//c70
$cT70=substr($tage7,-3,1);
$mT70=substr($tage7,-2,1);
$yT70=substr($tage7,-1,1);

	
$FixC70=$c70TVTd-$c70TVd;
$FixM70=$m70TVTd-$m70TVd;
$FixY70=$y70TVTd-$y70TVd;

$Fix70=$pd70TVg-70;

$start70=$pd70TVg-70;

$ff7=(($pd70TVg-70-$FixM70*0.5)/2);	

//echo "st70:".round($start70,2)."m:".$ff7;
//=IF(AND(ABS(BY33)<1,CA35<-7),BY35+CA35*0.01,BY35+CA35*0.2)
	
if (abs($FixC70)<1 and ($FixC70-$FixM70)<-7 ) {
$nFixC70=$start70+($FixC70-$FixM70)*0.01;
}
else {
$nFixC70=$start70+($FixC70-$FixM70)*0.2;	
}
	
/*		if ($cT70>=6 and $yT70==1) {
		$ff7=(($Fix70-$FixM70*0.8)/2);
		$nFixC70=$start70+$ff7;}
		elseif ($cT70==4 and $mT70==7) {
		$nFixC70=$FixC70;
		}
		else {
		$ff7=(($Fix70-$FixM70*0.5)/2);	
		$nFixC70=$start70+$ff7;
		}
*/		
		echo round($nFixC70,2);

}	
else {
	echo round($D20dT-$Pdm,2);	
}

?></div></td>
<td bgcolor="#dd55dd"><div align="right"><?php if ($stTV==1) {
	//mt70

		if ($demin7>3 and $cT70>=6) {
			$FixM70f=($FixC70-$FixM70)*0.1;
			//echo "m:".$FixM70f;
		}
		elseif ($cT70>6 and $mT70>6) {
			$FixM70f=($FixC70-$FixM70)*10;
		}
		elseif ($cT70==4 and $mT70==1) {
			$FixM70f=($FixC70-$FixM70)*0.1;
		}
		elseif ($cT70==4 and $mT70==7) {
			$FixM70f=($FixC70-$FixM70)*0.3;
		}
		elseif ($cT70==1 and $mT70==1 and $demin7>6 ) {
			$FixM70f=-($FixC70-$FixM70)*2;
			//echo "st70:".round($start70,2)."m:".($FixC70-$FixM70);
		}
		elseif ($demin7>2 and $mT70>=6) {
			$FixM70f=0;
		}
		else {
			$FixM70f=($FixC70-$FixM70)*0.2;
		}


		$nFixM70=$start70-$FixM70f;

		echo round($nFixM70,2);

} 
else {echo round($D50dT-$Pdm,2);}?>

</div></td>
<td bgcolor="#dddd55"><div align="right"><?php if ($stTV==1) {
//y70	
//=IF(BN34>1,BJ35-BM35*0.4,IF(AND(BN31=1,BN33=1),BJ35-BM35*0.99,BJ35-BM35*0.2))
//=IF(BN34>1,BJ35-BM35*0.2,IF(BM35<1.5,BJ35-BM35*0.99,BJ35-BM35*0.2))	
//=IF(P34>1,L35-O35*0.4,IF(O35<1.5,L35-O35*0.99,L35-O35*0.2))
 
	
	if (abs($FixC70-$FixY70)>10 and $demin7>3) {
		//echo "demin7:".$start70.":".($FixC70-$FixY70);
		$nFixY70=$start70-($FixC70-$FixY70)*0.4;
	}
	elseif (abs($FixC70-$FixY70)>10 and $demin7>1) {
		//echo "demin7:".$start70.":".($FixC70-$FixY70);
		$nFixY70=$start70-($FixC70-$FixY70)*0.2;
	}
	elseif (($FixC70-$FixY70)<1.5) {
		//echo "st70:".$start70.":".($FixC70-$FixY70);
		$nFixY70=$start70-($FixC70-$FixY70)*0.99;
	}
	elseif ($demin7>1) {
		//echo "demin7:".$start70.":".($FixC70-$FixY70);
		$nFixY70=$start70-($FixC70-$FixY70)*0.4;
	}
	else {
		//echo "else:".$start70.":".($FixC70-$FixY70);
		$nFixY70=$start70-($FixC70-$FixY70)*0.2;
	}
	
	
/*		if ($demin7>3 and $cT70>=6 and $yT70>=1 and $mT70>=1) {
			$FixY70f=($FixC70-$FixY70)*0.5;
		}
		elseif ($cT70==1 and $yT70==1 and $demin7>6 ) {
			$FixY70f=($FixC70-$FixY70)*4;
			echo "st70:".round($start70,2)."m:".($FixC70-$FixY70);
		}
		elseif ($cT70==4 and $yT70==2) {
			$FixY70f=($FixC70-$FixY70)*0.1;
		}
		elseif ($cT70==7 and $yT70==3) {
			$FixY70f=($FixC70-$FixY70)*0.1;
		}
		elseif ($cT70==4 and $mT70==6) {
			$FixY70f=($FixC70-$FixY70)*2.5;
		}
		elseif ($cT70==6 and $yT70==3) {
			$FixY70f=($FixC70-$FixY70)*0.1;
		}
		elseif ($demin7>3 and $yT70==1) {
			$FixY70f=($FixC70-$FixY70)*4;
		}
		else {
			$FixY70f=($FixC70-$FixY70)*0.2;
		}
*/
		//$nFixY70=$start70-$FixY70f;

		echo round($nFixY70,2);} 
		
else {
	echo round($D50dT-$Pdm,2);
}
?></div></td>
<td bgcolor="#999999"><div align="right"><?php echo round(($dl70)*1.5,2);?></div></td>
</tr>

<tr>
<td>TVfix2 </td>
<td bgcolor="#ccFFFF"><div align="right"><?php if ($stTV==1) {echo round(($c20TVTd-$c20TVd),2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#FFccFF"><div align="right"><?php if ($stTV==1) {echo round(($m20TVTd-$m20TVd),2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#FFFFcc"><div align="right"><?php if ($stTV==1) {echo round(($y20TVTd-$y20TVd),2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#cccccc"><div align="right"><?php echo round(($dl20),2);?></div></td>
<td>
<td bgcolor="#00FFFF"><div align="right"><?php if ($stTV==1) {echo round(($c50TVTd-$c50TVd),2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php if ($stTV==1) {echo round(($m50TVTd-$m50TVd),2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php if ($stTV==1) {echo round(($y50TVTd-$y50TVd),2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#cccccc"><div align="right"><?php echo round(($dl50),2);?></div></td>
<td>
<td bgcolor="#55dddd"><div align="right"><?php if ($stTV==1) {echo round(($c70TVTd-$c70TVd),2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#dd55dd"><div align="right"><?php if ($stTV==1) {echo round(($m70TVTd-$m70TVd),2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#dddd55"><div align="right"><?php if ($stTV==1) {echo round(($y70TVTd-$y70TVd),2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#999999"><div align="right"><?php echo round(($dl70)*1.5,2);?></div></td>
</tr>-->
</table>
<table width="200" border="1" align="center">
<tr>
  <td><div align="center">主色</div></td>
  <td><font color="#aaaaaa">2%</font></td>
  <td><font color="#aaaaaa">4%</font></td>
  <td><font color="#aaaaaa">6%</font></td>
  <td><font color="#aaaaaa">8%</font></td>
  <td><font color="#aaaaaa">10%</font></td>
  <td><font color="#aaaaaa">15%</font></td>
  <td><font color="#aaaaaa">20%</font></td>
  <td><font color="#aaaaaa">25%</font></td>
  <td><font color="#666666">30%</font></td>
  <td><font color="#666666">35%</font></td>
  <td><font color="#666666">40%</font></td>
  <td><font color="#666666">45%</font></td>
  <td><font color="#665566">50%</font></td>
  <td><font color="#666666">55%</font></td>
  <td><font color="#666666">60%</font></td>
  <td><font color="#666666">65%</font></td>
  <td>70%</td>
  <td>75%</td>
  <td>80%</td>
  <td>85%</td>
  <td>90%</td>
  <td>95%</td>
  <td>98%</td>
</tr>		
<tr>
  <td bgcolor="#CCCCCC"><div align="center">K</div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV2-2,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV4-4,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV6-6,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV8-8,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV10-10,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV15-15,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV20-20,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV25-25,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV30-30,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV35-35,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV40-40,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV45-45,2);?></div></td>
<td bgcolor="#CCffCC"><div align="right"><?php echo round($KTV50-50,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV55-55,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV60-60,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV65-65,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV70-70,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV75-75,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV80-80,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV85-85,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV90-90,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV95-95,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV98-98);?></div></td>
</tr>

<tr>
  <td bgcolor="#65CCCC"><div align="center">C</div></td>
<td bgcolor="#66CCCC"><div align="right"></div></td>
<td bgcolor="#66CCCC"><div align="right"></div></td>
<td bgcolor="#66CCCC"><div align="right"><?php echo round($c5TV-5,2);?></div></td>
<td bgcolor="#66CCCC"><div align="right"></div></td>
<td bgcolor="#66CCCC"><div align="right"><?php echo round($c10TV-10,2);?></div></td>
<td bgcolor="#66CCCC"><div align="right"></div></td>
<td bgcolor="#66CCCC"><div align="right"><?php echo round($c20TV-20,2);?></div></td>
<td bgcolor="#66CCCC"><div align="right"></div></td>
<td bgcolor="#66CCCC"><div align="right"><?php echo round($c30TV-30,2);?></div></td>
<td bgcolor="#66CCCC"><div align="right"></div></td>
<td bgcolor="#66CCCC"><div align="right"><?php echo round($c40TV-40,2);?></div></td>
<td bgcolor="#66CCCC"><div align="right"></div></td>
<td bgcolor="#CCffCC"><div align="right"><?php echo round($c50TV-50,2);?></div></td>
<td bgcolor="#66CCCC"><div align="right"></div></td>
<td bgcolor="#66CCCC"><div align="right"><?php echo round($c60TV-60,2);?></div></td>
<td bgcolor="#66CCCC"><div align="right"></div></td>
<td bgcolor="#66CCCC"><div align="right"><?php echo round($c70TV-70,2);?></div></td>
<td bgcolor="#66CCCC"><div align="right"></div></td>
<td bgcolor="#66CCCC"><div align="right"><?php echo round($c80TV-80,2);?></div></td>
<td bgcolor="#66CCCC"><div align="right"></div></td>
<td bgcolor="#66CCCC"><div align="right"><?php echo round($c90TV-90,2);?></div></td>
<td bgcolor="#66CCCC"><div align="right"><?php echo round($c95TV-95,2);?></div></td>
<td bgcolor="#66CCCC"><div align="right"></div></td>
</tr>


<tr>
  <td bgcolor="#cc66CC"><div align="center">M</div></td>
<td bgcolor="#cc66cc"><div align="right"></div></td>
<td bgcolor="#cc66cc"><div align="right"></div></td>
<td bgcolor="#cc66cc"><div align="right"><?php echo round($m5TV-5,2);?></div></td>
<td bgcolor="#cc66cc"><div align="right"></div></td>
<td bgcolor="#cc66cc"><div align="right"><?php echo round($m10TV-10,2);?></div></td>
<td bgcolor="#cc66cc"><div align="right"></div></td>
<td bgcolor="#cc66cc"><div align="right"><?php echo round($m20TV-20,2);?></div></td>
<td bgcolor="#cc66cc"><div align="right"></div></td>
<td bgcolor="#cc66cc"><div align="right"><?php echo round($m30TV-30,2);?></div></td>
<td bgcolor="#cc66cc"><div align="right"></div></td>
<td bgcolor="#cc66cc"><div align="right"><?php echo round($m40TV-40,2);?></div></td>
<td bgcolor="#cc66cc"><div align="right"></div></td>
<td bgcolor="#CCffCC"><div align="right"><?php echo round($m50TV-50,2);?></div></td>
<td bgcolor="#cc66cc"><div align="right"></div></td>
<td bgcolor="#cc66cc"><div align="right"><?php echo round($m60TV-60,2);?></div></td>
<td bgcolor="#cc66cc"><div align="right"></div></td>
<td bgcolor="#cc66cc"><div align="right"><?php echo round($m70TV-70,2);?></div></td>
<td bgcolor="#cc66cc"><div align="right"></div></td>
<td bgcolor="#cc66cc"><div align="right"><?php echo round($m80TV-80,2);?></div></td>
<td bgcolor="#cc66cc"><div align="right"></div></td>
<td bgcolor="#cc66cc"><div align="right"><?php echo round($m90TV-90,2);?></div></td>
<td bgcolor="#cc66cc"><div align="right"><?php echo round($m95TV-95,2);?></div></td>
<td bgcolor="#cc66cc"><div align="right"></div></td>
</tr>

<tr>
  <td bgcolor="#cccc66"><div align="center">Y</div></td>
<td bgcolor="#cccc66"><div align="right"></div></td>
<td bgcolor="#cccc66"><div align="right"></div></td>
<td bgcolor="#cccc66"><div align="right"><?php echo round($y5TV-5,2);?></div></td>
<td bgcolor="#cccc66"><div align="right"></div></td>
<td bgcolor="#cccc66"><div align="right"><?php echo round($y10TV-10,2);?></div></td>
<td bgcolor="#cccc66"><div align="right"></div></td>
<td bgcolor="#cccc66"><div align="right"><?php echo round($y20TV-20,2);?></div></td>
<td bgcolor="#cccc66"><div align="right"></div></td>
<td bgcolor="#cccc66"><div align="right"><?php echo round($y30TV-30,2);?></div></td>
<td bgcolor="#cccc66"><div align="right"></div></td>
<td bgcolor="#cccc66"><div align="right"><?php echo round($y40TV-40,2);?></div></td>
<td bgcolor="#cccc66"><div align="right"></div></td>
<td bgcolor="#CCffCC"><div align="right"><?php echo round($y50TV-50,2);?></div></td>
<td bgcolor="#cccc66"><div align="right"></div></td>
<td bgcolor="#cccc66"><div align="right"><?php echo round($y60TV-60,2);?></div></td>
<td bgcolor="#cccc66"><div align="right"></div></td>
<td bgcolor="#cccc66"><div align="right"><?php echo round($y70TV-70,2);?></div></td>
<td bgcolor="#cccc66"><div align="right"></div></td>
<td bgcolor="#cccc66"><div align="right"><?php echo round($y80TV-80,2);?></div></td>
<td bgcolor="#cccc66"><div align="right"></div></td>
<td bgcolor="#cccc66"><div align="right"><?php echo round($y90TV-90,2);?></div></td>
<td bgcolor="#cccc66"><div align="right"><?php echo round($y95TV-95,2);?></div></td>
<td bgcolor="#cccc66"><div align="right"></div></td>
</tr>
</table>
<table>
<tr>
<td align="center"><font size="-2"> &copy; <a href="mailto:[email protected]">Fred Kuo</a>, 2020. All rights reserved.<br><a href="http://www.fredkuo.idv.tw/wordpress">Read more.</a><br>
</td>
</tr>
</table>
</body>
<?php
  $connection = mysql_connect("127.0.0.1", "root", "fredsql") or die ("Unable to connect!");
	mysql_query("SET NAMES 'utf8'");
	$db = "tvicheck";
		// select database
		mysql_select_db($db) or die ("Unable to select database!");

		// generate and execute query

		

		
		$query = "INSERT INTO G7BaseX(company, contact, email, type, po, filename, score, passbit, date,  dsn, printer, paper, ink, rankbit, ip) VALUES('$company', '$contact', '$email', '$type', '$po','$filename','$Rsum', '$passbit', NOW(),  '$dsn', '$press', '$paper', '$ink', '$rankbit','". $_SERVER['REMOTE_ADDR'] ."')";
		
		$result = mysql_query($query) or die ("Error in query: $query. " . mysql_error());
		//echo $query;

  
		mysql_close($connection);



/*
echo "<table><tr><td><br> gy50dm  d:".($gy50dm-$Pdm)." D50dT  d:".$D50dT;

echo "<br>SiCoTVI20=".round($SiCoTVI20,2).",".round($SiCoY20,2).",".round($NPCD50,2);
  $cStep50=50-((($gy50dm-$Pdm)-$NPCD50))*100;
  $mStep50=50+($m50TVTd-$m50TVd);
  $yStep50=50+((($y50TVTd)-($y50TVd))*0.3);
  
  
   echo "<br>D50dT".$D50dT." ,<br>cStep50:".round($cStep50,2)." ,".round($mStep50,2)." ,".round($yStep50,2);
  $ndc=($cStep50-$mStep50)/2;
  
  $cStep50=$cStep50+$ndc;
  $mStep50=$mStep50+$ndc;
  $yStep50=$yStep50+$ndc;
  echo "<br>cStep50:".round($cStep50,2)." ,".round($mStep50,2)." ,".round($yStep50,2);
 
echo "<br> gy20dm  d:".($gy20dm-$Pdm)." D20dT  d:".$D20dT;
  $cStep20=20-((($gy20dm-$Pdm)-$NPCD20))*100;
  $mStep20=20+($m20TVTd-$m20TVd);
  $yStep20=20+((($y20TVTd)-($y20TVd))*0.6);
  
  
   echo "<br>D20dT".$D20dT." ,<br>cStep20:".round($cStep20,2)." ,".round($mStep20,2)." ,".round($yStep20,2);
  $ndc=($cStep20-$mStep20)/2;
  
  $cStep20=$cStep20+$ndc;
  $mStep20=$mStep20+$ndc;
  $yStep20=$yStep20+$ndc;
  echo "<br>cStep20:".round($cStep20,2)." ,".round($mStep20,2)." ,".round($yStep20,2);

echo "<br> gy70dm  d:".($gy70dm-$Pdm)." D70dT  d:".$D70dT;
  $cStep70=70-((($gy70dm-$Pdm)-$NPCD70))*100;
  $mStep70=70+($m70TVTd-$m70TVd);
  $yStep70=70+((($y70TVTd)-($y70TVd))*0.5);
  
  
   echo "<br>D70dT".$D70dT." ,<br>cStep70:".round($cStep70,2)." ,".round($mStep70,2)." ,".round($yStep70,2);
  $ndc=($cStep70-$mStep70)/2;
  
  $cStep70=$cStep70+$ndc;
  $mStep70=$mStep70+$ndc;
  $yStep70=$yStep70+$ndc;
  echo "<br>cStep70:".round($cStep70,2)." ,".round($mStep70,2)." ,".round($yStep70,2);
 echo "</td></tr></table>";
*/
?>
</html>
@ Telegram