File: C:/xampp/htdocs/FograCT1/pbnCT50dbapi.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 GV 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;
}
.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 方塊外部的空間 */
}aph
-->
</style></head>
<body class="oneColElsCtr">
<?php
error_reporting(0);
$f123= $_GET['f123'];
$f321= $_GET['f321'];
$sum=160;
$check=1;
$sccSt=$_GET['sccSt'];
$stTV=0;
$stFail=0;
$company=$_GET['company'];
$dtime=time();
$dStr=substr($dtime,7,9)."-";
?>
<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="pbnCT50dbapi.php?f123=target.txt&f321=<?php echo $f321;?>&sccSt=1">SCCA on</a>
</td><td>
<a href="pbnCT50dbapi.php?f123=target.txt&f321=<?php echo $f321;?>&sccSt=0">SCCA off</a>
</td></tr>
<tr><td>
<a href="rankM.php?company=<?php echo $company."&type=V60";?>">歷程</a>
</td></tr>
</table>
<?php
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];
$contents = file($f321);
$string = implode($contents);
////echo $contents[20];
//echo $string;
$snstring=get_between($string,"Serial number ","_CREATED");
echo "sn:".$snstring;
$dotS = explode(",", $snstring);////Measure upload
//print_r ($dotS);
$snstring=$dotS[0];
//ctcounter($company,$myip,$area,$country,$snstring,'CT60');
//$p = str_replace("\n", '\t', $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>";
//$pt = ereg_replace("\r\n?", "\t", $string);
$pt = str_replace(" \r", "\r", $string);
$pt = str_replace("\r", " ", $pt);
$datastring=get_between($string,"BEGIN_DATA","END_DATA");
$dot = explode("_", $datastring);
//print_r($dot);
////////////////////////////////////////////////////KK
$idx=10;
$cols=46;
$Pdot=0;
$PXm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$PYm=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$PZm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$PLm=xyz2lab01("l",$PXm,$PYm,$PZm);
$Pam=xyz2lab01("a",$PXm,$PYm,$PZm);
$Pbm=xyz2lab01("b",$PXm,$PYm,$PZm);
$Pdm=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
echo "Paper Lab:".$PLm.",".$Pam.",".$Pbm."paper den=".$Pdm."XYZ:$PXm,$PYm,$PZm";
// $idx=10;
//$cols=45;
$Pdot=1;
$TXm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$TYm=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$TZm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$TLm=xyz2lab01("l",$TXm,$TYm,$TZm);
$Tam=xyz2lab01("a",$TXm,$TYm,$TZm);
$Tbm=xyz2lab01("b",$TXm,$TYm,$TZm);
$Tdm=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
////////////////////////////////
$Pdot=24;
$K100Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$K100Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$K100Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$K100Lm=xyz2lab01("l",$K100Xm,$K100Ym,$K100Zm);
$K100am=xyz2lab01("a",$K100Xm,$K100Ym,$K100Zm);
$K100bm=xyz2lab01("b",$K100Xm,$K100Ym,$K100Zm);
$K100dm=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
echo "<br>K100Lm=".$K100Xm.",py=".$K100Ym.",pz=".$K100Zm.", Lab:".$K100Lm.",".$K100am.",".$K100bm."T den=".$K100dm;
//for ($t=5; $t<=95; $t +=5){
////////////////////
$i=0;
for ($Pdot=1;$Pdot<=4;$Pdot+=1) {
$i=$i+2;
//echo "<br>num:";
//echo "dot:".$dot[$idx+$cols*$Pdot];
${"K".$i."Xm"}=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"K".$i."Ym"}=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"K".$i."Zm"}=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"K".$i."Lm"}=xyz2lab01("l",${"K".$i."Xm"},${"K".$i."Ym"},${"K".$i."Zm"});
${"K".$i."am"}=xyz2lab01("a",${"K".$i."Xm"},${"K".$i."Ym"},${"K".$i."Zm"});
${"K".$i."bm"}=xyz2lab01("b",${"K".$i."Xm"},${"K".$i."Ym"},${"K".$i."Zm"});
${"K".$i."dm"}=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${'KTV'.$i}= (($PYm-${"K".$i."Ym"})/($PYm-$K100Ym))*100;
// echo "<br>KTV".$i.":".${'KTV'.$i};
//echo "<br>Lab:".$i."_:".${"K".$i."Lm"}.",".${"K".$i."am"}.",".${"K".$i."bm"}."T den=".${"K".$i."dm"};
}
$i=5;
for ($Pdot=5;$Pdot<=22;$Pdot+=1) {
$i=$i+5;
//echo "<br>num:";
//echo "dot:".$dot[$idx+$cols*$Pdot];
${"K".$i."Xm"}=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"K".$i."Ym"}=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"K".$i."Zm"}=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"K".$i."Lm"}=xyz2lab01("l",${"K".$i."Xm"},${"K".$i."Ym"},${"K".$i."Zm"});
${"K".$i."am"}=xyz2lab01("a",${"K".$i."Xm"},${"K".$i."Ym"},${"K".$i."Zm"});
${"K".$i."bm"}=xyz2lab01("b",${"K".$i."Xm"},${"K".$i."Ym"},${"K".$i."Zm"});
${"K".$i."dm"}=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${'KTV'.$i}= (($PYm-${"K".$i."Ym"})/($PYm-$K100Ym))*100;
// echo "<br>KTV".$i.":".(${'KTV'.$i}-$i);
//echo "<br>Lab:".$i."_:".${"K".$i."Lm"}.",".${"K".$i."am"}.",".${"K".$i."bm"}."T den=".${"K".$i."dm"};
}
$Pdot=23;
$K98Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$K98Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$K98Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$K98Lm=xyz2lab01("l",$K98Xm,$K98Ym,$K98Zm);
$K98am=xyz2lab01("a",$K98Xm,$K98Ym,$K98Zm);
$K98bm=xyz2lab01("b",$K98Xm,$K98Ym,$K98Zm);
$K98dm=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$KTV98= (($PYm-$K98Ym)/($PYm-$K100Ym))*100;
//echo "<br>KTV98:".$KTV98;
//echo "<br> Lab:".$K98Lm.",".$K98am.",".$K98bm."T den=".$K98dm;
//echo "<br> Lab:".$K100Lm.",".$K100am.",".$K100bm."T den=".$K100dm;
////////////////////////////////////////////////KK
/////////////////////////////////////////////////CC
//$idx=10;
//$cols=45;
$i=0;
for ($Pdot=26;$Pdot<=29;$Pdot+=1) {
$i=$i+2;
//echo "<br>num:";
//echo "dot:".$dot[$idx+$cols*$Pdot];
${"C".$i."Xm"}=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"C".$i."Ym"}=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"C".$i."Zm"}=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"C".$i."Lm"}=xyz2lab01("l",${"C".$i."Xm"},${"C".$i."Ym"},${"C".$i."Zm"});
${"C".$i."am"}=xyz2lab01("a",${"C".$i."Xm"},${"C".$i."Ym"},${"C".$i."Zm"});
${"C".$i."bm"}=xyz2lab01("b",${"C".$i."Xm"},${"C".$i."Ym"},${"C".$i."Zm"});
${"C".$i."dm"}=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
//echo "<br>Lab:".$i."_:".${"C".$i."Lm"}.",".${"C".$i."am"}.",".${"C".$i."bm"}."T den=".${"C".$i."dm"};
}
$i=5;
for ($Pdot=30;$Pdot<=47;$Pdot+=1) {
$i=$i+5;
//echo "<br>num:";
//echo "dot:".$dot[$idx+$cols*$Pdot];
${"C".$i."Xm"}=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"C".$i."Ym"}=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"C".$i."Zm"}=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"C".$i."Lm"}=xyz2lab01("l",${"C".$i."Xm"},${"C".$i."Ym"},${"C".$i."Zm"});
${"C".$i."am"}=xyz2lab01("a",${"C".$i."Xm"},${"C".$i."Ym"},${"C".$i."Zm"});
${"C".$i."bm"}=xyz2lab01("b",${"C".$i."Xm"},${"C".$i."Ym"},${"C".$i."Zm"});
${"C".$i."dm"}=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
//echo "<br>Lab:".$i."_:".${"C".$i."Lm"}.",".${"C".$i."am"}.",".${"C".$i."bm"}."T den=".${"C".$i."dm"};
}
$GrayLm=$C50Lm;
$Graya=$C50am;
$Grayb=$C50bm;
$Grayd=$C50dm;
$Gray25Lm=$C25Lm;
$Gray25a=$C25am;
$Gray25b=$C25bm;
$Gray25d=$C25dm;
$Gray75Lm=$C75Lm;
$Gray75a=$C75am;
$Gray75b=$C75bm;
$Gray75d=$C75dm;
//echo "<br>GrayLm:".$GrayLm."Graya--".$Graya;
$Pdot=48;
$C98Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$C98Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$C98Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$C98Lm=xyz2lab01("l",$C98Xm,$C98Ym,$C98Zm);
$C98am=xyz2lab01("a",$C98Xm,$C98Ym,$C98Zm);
$C98bm=xyz2lab01("b",$C98Xm,$C98Ym,$C98Zm);
$C98dm=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
//echo "<br> Lab:".$C98Lm.",".$C98am.",".$C98bm."T den=".$C98dm;
$Pdot=49;
$C100Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$C100Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$C100Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$C100Lm=xyz2lab01("l",$C100Xm,$C100Ym,$C100Zm);
$C100am=xyz2lab01("a",$C100Xm,$C100Ym,$C100Zm);
$C100bm=xyz2lab01("b",$C100Xm,$C100Ym,$C100Zm);
$C100dm=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
//echo "<br> XYZ:".$C100Xm.",".$C100Ym.",".$C100Zm."Lab:".$C100Lm.",".$C100am.",".$C100bm."T den=".$C100dm;
////////////////////////////////////////////////KK
?>
<?php
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="#666666">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="#CCffCC"><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="#CCffCC"><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($C2dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C4dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C6dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C8dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C10dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C15dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C20dm-$Pdm,2);?></div></td>
<td bgcolor="#aaffff"><div align="right"><?php echo round($C25dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C30dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C35dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C40dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C45dm-$Pdm,2);?></div></td>
<td bgcolor="#aaffff"><div align="right"><?php echo round($C50dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C55dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C60dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C65dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C70dm-$Pdm,2);?></div></td>
<td bgcolor="#aaffff"><div align="right"><?php echo round($C75dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C80dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C85dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C90dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C95dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C98dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C100dm-$Pdm,2);?></div></td>
</tr>
<tr>
<td><div align="center">wdL(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));
${"KLD".$i}=$rounddv;
${"dl".$i}=$rounddv;
if ($i==25 || $i==50 || $i==75) {
echo '<td bgcolor="#CCffCC"><div align="right">';
}
else {
echo '<td bgcolor="#CCCCCC"><div align="right">';
}
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>K75Lm:".$K75Lm;
$K25LT=getLk(25,$K100Ym,$PYm,$PLm);
$K75LT=getLk(75,$K100Ym,$PYm,$PLm);
echo "<br>K75LT:".$K75LT;
echo "<br>KLD:".$KLD25."_".$KLD75;
//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">wdL(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((${"C".$i."Lm"}-getLg($i,$C100Ym,$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((${"C".$i."Lm"}-getLg($i,$C100Ym,$PYm,$PLm)),2);
//echo "<br>dl:".$dl;
$rounddv=$dl*(1-max(0,($i-50)/50*0.75));
${"dlc".$i}=$rounddv;
if ($i==25 || $i==50 || $i==75) {
echo '<td bgcolor="#aaffff"><div align="right">';
}
else {
echo '<td bgcolor="#CCCCCC"><div align="right">';
}
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,$C100Ym,$PYm,$PLm);
$Gray25LT=getLg(25,$C100Ym,$PYm,$PLm);
$Gray75LT=getLg(75,$C100Ym,$PYm,$PLm);
//echo "CL:".$C98Lm;
$dl=round(($C98Lm-getLg(98,$C100Ym,$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">wdF(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((${"C".$i."am"}-$wa),2))+(pow((${"C".$i."bm"}-$wb),2)),0.5)*(1-max(0,($dt-50)/50*0.75));
${"df".$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((${"C".$i."am"}-$wa),2))+(pow((${"C".$i."bm"}-$wb),2)),0.5)*(1-max(0,($dt-50)/50*0.75));
${"df".$i}=$df;
if ($i==25 || $i==50 || $i==75) {
echo '<td bgcolor="#aaffff"><div align="right">';
}
else {
echo '<td bgcolor="#CCDDDD"><div align="right">';
}
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((${"C98am"}-$wa),2))+(pow((${"C98bm"}-$wb),2)),0.5)*(1-max(0,($dt-50)/50*0.75));
${"df".$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= ${"C".$i."am"}-$wa;
$df2x= ${"C".$i."am"};
${"da".$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= ${"C".$i."am"}-$wa;
$df2x= ${"C".$i."am"};
${"da".$i}=$df2x;
if ($i==25 || $i==50 || $i==75) {
echo '<td bgcolor="#aaffff"><div align="right">';
}
else {
echo '<td bgcolor="#CCDDDD"><div align="right">';
}
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;
$df2x= $C98am-$wa;
$df= $C98am-$wa;
$da98=$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>
<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= ${"C".$i."bm"}-$wb;
$df2x= ${"C".$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= ${"C".$i."bm"}-$wb;
$df2x= ${"C".$i."bm"};
${"db".$i}=$df2x;
if ($i==25 || $i==50 || $i==75) {
echo '<td bgcolor="#aaffff"><div align="right">';
}
else {
echo '<td bgcolor="#CCDDDD"><div align="right">';
}
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= $C98bm-$wb;
$df2x= $C98bm;
$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>
<!--
<tr>
<td><div align="center">AIM</div></td>
<td><div align="right">L</div></td>
<td><div align="right">a</div></td>
<td><div align="right">b</div></td>
<td><div align="center">Test</div></td>
<td><div align="right">L</div></td>
<td><div align="right">a</div></td>
<td><div align="right">b</div></td>
<td bgcolor="#66FF00"><div align="right">E(00)</td>
<td><div align="right">Den</div></td>
<td><div align="right">dC*</div></td>
<td><div align="right">dH</div></td>
<td bgcolor="#999999"><div align="right">L</div></td>
<td bgcolor="#999999"><div align="right">a</div></td>
<td bgcolor="#999999"><div align="right">b</div></td>
<td><div align="right">L</div></td>
<td><div align="right">a</div></td>
<td><div align="right">b</div></td>
<td bgcolor="#66FF33"><div align="right">E(00)</td>
<td bgcolor="#999999"><div align="right">den</div></td>
<td><div align="right">trap</div></td>
<td><div align="right">dC*</div></td>
<td><div align="right">dH</div></td>
</tr>
<?php
//////////////////////////////////////////////////CMYK SID
$psum=20;
/////////////////test SID
// include 'densityV.php';
// include 'densityC.php';
// include 'densityM.php';
// include 'densityY.php';
$Pdot=25;
$CS100Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$CS100Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$CS100Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$CS100Lm=xyz2lab01("l",$CS100Xm,$CS100Ym,$CS100Zm);
$CS100am=xyz2lab01("a",$CS100Xm,$CS100Ym,$CS100Zm);
$CS100bm=xyz2lab01("b",$CS100Xm,$CS100Ym,$CS100Zm);
$CS100dm=DensitySp38("C",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
echo "<br> Lab C:".$CS100Lm.",".$CS100am.",".$CS100bm."T den=".$CS100dm;
$Pdot=26;
$MS100Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$MS100Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$MS100Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$MS100Lm=xyz2lab01("l",$MS100Xm,$MS100Ym,$MS100Zm);
$MS100am=xyz2lab01("a",$MS100Xm,$MS100Ym,$MS100Zm);
$MS100bm=xyz2lab01("b",$MS100Xm,$MS100Ym,$MS100Zm);
$MS100dm=DensitySp38("M",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
//echo "<br> M Lab:".$MS100Lm.",".$MS100am.",".$MS100bm."T den=".$MS100dm;
$Pdot=53;
$RS100Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$RS100Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$RS100Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$RS100Lm=xyz2lab01("l",$RS100Xm,$RS100Ym,$RS100Zm);
$RS100am=xyz2lab01("a",$RS100Xm,$RS100Ym,$RS100Zm);
$RS100bm=xyz2lab01("b",$RS100Xm,$RS100Ym,$RS100Zm);
$RS100dm=DensitySp38("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
echo "<br> Lab R:".$RS100Lm.",".$RS100am.",".$RS100bm."T den=".$RS100dm;
$Pdot=54;
$GS100Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$GS100Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$GS100Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$GS100Lm=xyz2lab01("l",$GS100Xm,$GS100Ym,$GS100Zm);
$GS100am=xyz2lab01("a",$GS100Xm,$GS100Ym,$GS100Zm);
$GS100bm=xyz2lab01("b",$GS100Xm,$GS100Ym,$GS100Zm);
$GS100dm=DensitySp38("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
echo "<br> Lab G:".$GS100Lm.",".$GS100am.",".$GS100bm."T den=".$GS100dm;
$Pdot=27;
$YS100Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$YS100Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$YS100Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$YS100Lm=xyz2lab01("l",$YS100Xm,$YS100Ym,$YS100Zm);
$YS100am=xyz2lab01("a",$YS100Xm,$YS100Ym,$YS100Zm);
$YS100bm=xyz2lab01("b",$YS100Xm,$YS100Ym,$YS100Zm);
$YS100dm=DensitySp38("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
echo "<br> Lab Y:".$YS100Lm.",".$YS100am.",".$YS100bm."T den=".$YS100dm;
$Pdot=55;
$BS100Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$BS100Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$BS100Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$BS100Lm=xyz2lab01("l",$BS100Xm,$BS100Ym,$BS100Zm);
$BS100am=xyz2lab01("a",$BS100Xm,$BS100Ym,$BS100Zm);
$BS100bm=xyz2lab01("b",$BS100Xm,$BS100Ym,$BS100Zm);
$BS100dm=DensitySp38("C",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
echo "<br> Lab B:".$BS100Lm.",".$BS100am.",".$BS100bm."T den=".$BS100dm;
$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=$PLm; $pa=$Pam;$pb=$Pbm;
$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=$CS100Lm;
$tca=$CS100am;
$tcb=$CS100bm;
$tml=$MS100Lm;
$tma=$MS100am;
$tmb=$MS100bm;
$tyl=$YS100Lm;
$tya=$YS100am;
$tyb=$YS100bm;
$tkl=$K100Lm;
$tka=$K100am;
$tkb=$K100bm;
$trl=$RS100Lm;
$tra=$RS100am;
$trb=$RS100bm;
$tgl=$GS100Lm;
$tga=$GS100am;
$tgb=$GS100bm;
$tbl=$BS100Lm;
$tba=$BS100am;
$tbb=$BS100bm;
$dr76=sqrt(pow((47-$RS100Lm),2)+ pow((68-$RS100am),2)+pow((49-$RS100bm),2));
$dg76=sqrt(pow((50-$GS100Lm),2)+ pow(((-68)-$GS100am),2)+pow((25-$GS100bm),2));
$db76=sqrt(pow((24-$BS100Lm),2)+ pow((17-$BS100am),2)+pow(((-46)-$BS100bm),2));
$dr00=de00($rl,$ra,$rb,$trl,$tra,$trb);
$dg00=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);$psum=$psum-$dc94;?>
</font></div></td>
<td bgcolor="#66CCFF"><?php echo round($CS100dm,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($RS100dm,3);?></div></td>
<td bgcolor="#FFCCFF"><div align="right"><?php echo round(($RS100dm-$MS100dm)/$YS100dm*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);$psum=$psum-$dm94;?>
</font></div></td>
<td bgcolor="#FFCCFF"><div align="right"><?php echo round($MS100dm,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 ($dg00>4.2) { ?><font color="red">
<?php } echo round($dg00,2);?>
<td bgcolor="#FFFFCC"><div align="right"><?php echo round($GS100dm,3);?></div></td>
<td bgcolor="#FFFFCC"><div align="right"><?php echo round(($GS100dm-$CS100dm)/$YS100dm*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);$psum=$psum-$dy94;?>
</font></div></td>
<td bgcolor="#FFFFCC"><div align="right"><?php echo round($YS100dm,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($BS100dm,3);?></div></td>
<td bgcolor="#A2A2FF"><div align="right"><?php echo round(($BS100dm-$CS100dm)/$MS100dm*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);$psum=$psum-$dk94;?>
</font></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K100dm,3);?></div></td>
<td>
<td>
</tr>
-->
<?php
$Tsum=(($sum/260)*60)+(($psum/20)*40);
$Rsum=round($Tsum,2);
//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;
$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+$dlc4+$dlc6+$dlc8+$dlc10+$dlc15+$dlc20+$dlc25+$dlc30+$dlc35+$dlc40+$dlc45+$dlc50+$dlc55+$dlc60+$dlc65+$dlc70+$dlc75+$dlc80+$dlc85+$dlc90+$dlc95+$dlc98)/23);
$Maxdf=max(abs($df2),abs($df4),abs($df6),abs($df8),abs($df10),abs($df15),abs($df20),abs($df25),abs($df30),abs($df35),abs($df40),abs($df45),abs($df50),abs($df55),abs($df60),abs($df65),abs($df70),abs($df75),abs($df80),abs($df85),abs($df90),abs($df95),abs($df98));
//echo "<br>df:".$df2."_".$df4."_".$df6."_".$df8."_".$df10."_".$df15."_".$df20."_".$df25."_".$df30."_".$df35."_".$dfs40."_".$df45."_".$df50."_".$df55."_".$df60."_".$df65."_".$df70."_".$df75."_".$df80."_".$df85."_".$df90."_".$df95."_".$df98;
$Avgdf=abs(($df2+$df4+$df6+$df8+$df10+$df15+$df20+$df25+$df30+$df35+$df40+$df45+$df50+$df55+$df60+$df65+$df70+$df75+$df80+$df85+$df90+$df95+$df98)/23);
if (($K100dm-$Pdm)>1.69) {
$k50dT=0.5;}
else {
$k50dT=0.0562*($K100dm-$Pdm)+0.405;
}
if (($C100dm-$Pdm)>1.37) {
$D50dT=0.54;}
else {
$D50dT=0.1707*($C100dm-$Pdm)+0.3061;
}
?>
<table border="1" align="center">
<tr>
<td>
<td bgcolor="#999999"><div align="right">AwdL*</div></td>
<td bgcolor="#999999"><div align="right">MwdL*</div></td>
<td bgcolor="#999999"><div align="right">AwdCh</div></td>
<td bgcolor="#999999"><div align="right">MwdCh</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">
</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($df2,$df4,$df6,$df8,$df10,$df15,$df20,$df25,$df30,$df35,$df40,$df45,$df50,$df55,$df60,$df65,$df70,$df75,$df80,$df85,$df90,$df95,$df98);
$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">
</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">
</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,$C100dm-$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,$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);
// 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">
</div></td></tr>
</table>
<?php // content="text/plain; charset=utf-8"
////////////////////////////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);
//////////////////////KTV/////////////////////////////////////////
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,$KTV98-98,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','6','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);
$p1->SetColor("#aaaaaa");
$p1->SetLegend('K R2:'.round($R_Squared,3));
$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);
// Output line
$graph->Stroke('scatterKTV.png');
/////////////////////////////////50 sector
/////////////////////50 sector
///////////////////////c50
//echo "<br>tage".$tage."_tagf:".$tagf."dfmin:".round($dfmin,3)."demin:".round($demin,3);
//echo "<br>GL:".$GrayLT."--".$GrayLm;
$dgl=$GrayLT-$GrayLm;
$dga=($Pam/2)-$Graya;
$dgb=($Pbm/2)-$Grayb;
$df=sqrt(pow($dga,2)+pow($dgb,2));
$dgy50=de00($GrayLT,($Pam/2),($Pbm/2),$GrayLm,$Graya,$Grayb);
$dg25l=$Gray25LT-$Gray25Lm;
$dg25a=($Pam*0.75)-$Gray25a;
$dg25b=($Pbm*0.75)-$Gray25b;
$df25=sqrt(pow($dg25a,2)+pow($dg25b,2));
//$dgy25=de00($GrayLT,($Pam/2),($Pbm/2),$GrayLm,$Graya,$Grayb);
$dg75l=$Gray75LT-$Gray75Lm;
$dg75a=($Pam*0.25)-$Gray75a;
$dg75b=($Pbm*0.25)-$Gray75b;
$df75=sqrt(pow($dg75a,2)+pow($dg75b,2));
if (($K100dm-$Pdm)>1.69) {
$k50dT=0.5;}
else {
$k50dT=0.0562*($K100dm-$Pdm)+0.405;
}
if (($C100dm-$Pdm)>1.37) {
$D50dT=0.54;}
else {
$D50dT=0.1707*($C100dm-$Pdm)+0.3061;
}
$dk=$K50dm-0.5;
$dk25=$K25dm-0.22;
$dk75=$K75dm-0.9;
/* /////////////////////////////////////////////////// gray rule 50
$dL=($GrayLm-$GrayLT);
$da=$Graya-($Pam/2);
$db=$Grayb-($Pbm/2);
if (($PLm-$C100dm)>70) {
$pdle=0.5;
}
else {
$pdle=0.7;
}
if($mam<45){
$m50f=0.7;
}
else {
$m50f=0.5;
}
if($ybm<45){
$y50f=0.6;
}
else {
$y50f=0.5;
}
$ndLf=$dL+($da*$pdle)+($db*$pdle*0.2);
$FixC=$ndLf;
$FixM=-$da*$m50f+($ndLf*$m50f);
$FixY=-$db*$y50f+($ndLf*$y50f);
//echo "<br>FixC:".($FixC)."_fixM:".($FixM)."_fixY:".($FixY);
/////////////////////////////////////////////// gray rule
////////////////////////////////////////////////// gray rule 25
//echo "<br>C25mL:C75Lm:".$C25Lm."_".$C75Lm;
$dL25=($C25Lm-$Gray25LT);
$da25=$C25am-($Pam*0.75);
$db25=$C25bm-($Pbm*0.75);
if (($PLm-$C100dm)>70) {
$pdle25=0.5;
}
else {
$pdle25=0.7;
}
if($mam<45){
$m25f=0.7;
}
else {
$m25f=0.5;
}
if($ybm<45){
$y25f=0.6;
}
else {
$y25f=0.5;
}
$ndLf25=$dL25+($da25*$pdle25)+($db25*$pdle25*0.2);
$FixC25=$ndLf25;
$FixM25=-$da25*$m25f+($ndLf25*$m25f);
$FixY25=-$db25*$y25f+($ndLf*$y25f);
//echo "<br>FixC25:".($FixC25)."_fixM25:".($FixM25)."_fixY25:".($FixY25);
/////////////////////////////////////////////// gray rule 25
/////////////////////////////////////////////////// gray rule 75
$dL75=($C75Lm-$Gray75LT);
$da75=$C75am-($Pam*0.25);
$db75=$C75bm-($Pbm*0.25);
if (($PLm-$C100dm)>70) {
$pdle75=0.5;
}
else {
$pdle75=0.7;
}
if($mam<45){
$m75f=0.7;
}
else {
$m75f=0.5;
}
if($ybm<45){
$y75f=0.6;
}
else {
$y75f=0.5;
}
$ndLf75=$dL75+($da75*$pdle75)+($db75*$pdle75*0.2);
$FixC75=$ndLf75;
$FixM75=-$da75*$m75f+($ndLf75*$m75f);
$FixY75=-$db75*$y75f+($ndLf*$y75f);
//echo "<br>FixC75:".($FixC75)."_fixM75:".($FixM75)."_fixY75:".($FixY75)."_dk:".($dk);
/////////////////////////////////////////////// gray rule 75
// echo "<br>k50dT".$k50dT."_D50dT:".$D50dT."K100dm:".$K100dm."Pdm:".$Pdm."=:".($K100dm-$Pdm); scatterKTV.png
*/
////////////////////////////rule set 2
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);
}
$TL=$GrayLT;
$Ta=($Pam/2);
$Tb=($Pbm/2);
$ML=$GrayLm;
$Ma=$Graya;
$Mb=$Graybm;
$emin=100;
$mddexT=0;
$deT=0;
echo "2485: $ML,$Ma,$Mb:".$ML.",".$Ma.",".$Mb;
/////////////////////////////////////////////////////////////////////
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>";
///////////////////////////////////// rule set 25
$TL=$Gray25LT;
$Ta=($Pam*0.75);
$Tb=($Pbm*0.75);
/* $ML=$Gray25Lm;
$Ma=$Gray25a;
$Mb=$Gray25b; */
$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=$Gray75LT;
$Ta=($Pam*0.25);
$Tb=($Pbm*0.25);
/* $ML=$Gray75Lm;
$Ma=$Gray75a;
$Mb=$Gray75b;
*/
$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>Fix:".$FinalF."<br>";
///////////////////////////////////// rule set 75
///////////////////////////////////// rule set 2
?>
</div></td>
</tr>
</table>
<table width="200" border="1" align="center">
<tr>
<?php
//include 'graphFix.php';
//$dk=($K50dm-$Pdm)-$k50dT;
//$cmyd=($C50dm-$Pdm)-$D50dT;
//echo "<br> cTdm:".$cTdm."_"."_dgc:".$dgc."_m50dm:".$m50dm."_dgm:".$dgm."_y50dm:".$y50dm."_dgy:".$dgy;
/*
if ($dot[2522]<>'') {//TTverify
GenGraphGT($cTdm-$dgc,$m50dm-$dgm,$y50dm-$dgy,$dk);}
else {
GenGraphGT($cmyd,$m50dm-$dgm,$y50dm-$dgy,$dk);}
*/
$sum=180;
$sum=$sum-($dc00+$dm00+$dy00+$dk00+$dr00+$dg00+$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;
if ($dc00>3.5 or $dm00>3.5 or $dy00>3.5 or $dk00>5 or $dr00>4.2 or $dg00>4.2 or $db00>4.2) {$stFail=1;}
$ptuK=($K100dm-$Pdm)/100;
//echo "<br>ptuK:".$ptuK."_k50dT:".$k50dT."_k50dm:".$K50dm;
$FixK=($k50dT-$K50dm)/$ptuK;
//echo "<br>FixK:".$FixK;
//include 'graphFixFF.php';
//GenGraphT2(-$FixC,-$FixM,-$FixY,(-$FixK)/2.5);
?>
<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">
<img src="graphT2.gif">-->
</div></td>
<td><div align="center">
<img src="scatterKTV.png">
</div></td>
</tr>
</table>
<?php
//echo "line 3709 FuxC:".$FixC;
include 'graphFixC9.php';
GenGraph(-$FixC,-$FixM,-$FixY,$dk*10);
GenGraph25(-$FixC25,-$FixM25,-$FixY25,$dk25*10);
GenGraph75(-$FixC75,-$FixM75,-$FixY75,$dk75*10);
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);
echo "mdexT:".$mddexT;
echo "mdexM:".$mddexM;
echo "<br>deT=".$deT."_deM=".$deM;
echo "FC:".$FC;
echo "FM:".$FM;
echo "FY:".$FY;
echo "Fix:".$FinalF."<br>";
?>
<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($Gray25LT,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($Gray75LT,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">主色</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>
</table>
<?php
$Tsum=(($sum/260)*60)+(($psum/20)*40);
$Rsum=round($Tsum,2);
if (($check==0) && ($sid==0)){
$passbit=1;}
?>
<?php
$FC25v=round((25+$FixC25),0);
$FM25v=round((25+$FixM25),0);
$FY25v=round((25+$FixY25),0);
$FK25v=round((25-$dk25*10),0);
$FC25v3=round((25+$FixC25),3);
$FM25v3=round((25+$FixM25),3);
$FY25v3=round((25+$FixY25),3);
$FK25v3=round((25-$dk25*10),3);
$FC25=round((25-$FixC75),0);
$FM25=round((25-$FixM75),0);
$FY25=round((25-$FixY75),0);
$FK25=round((25+$dk75*10),0);
$FCv=round((50+$FixC),0);
$FMv=round((50+$FixM),0);
$FYv=round((50+$FixY),0);
$FKv=round((50-$dk*10),0);
$FCv3=round((50+$FixC),3);
$FMv3=round((50+$FixM),3);
$FYv3=round((50+$FixY),3);
$FKv3=round((50-$dk*10),3);
$FC=round((50-$FixC),0);
$FM=round((50-$FixM),0);
$FY=round((50-$FixY),0);
$FK=round((50+$dk*10),0);
$FC75v=round((75+$FixC75),0);
$FM75v=round((75+$FixM75),0);
$FY75v=round((75+$FixY75),0);
$FK75v=round((75-$dk75*10),0);
$FC75v3=round((75+$FixC75),3);
$FM75v3=round((75+$FixM75),3);
$FY75v3=round((75+$FixY75),3);
$FK75v3=round((75-$dk75*10),3);
$FC75=round((75-$FixC25),0);
$FM75=round((75-$FixM25),0);
$FY75=round((75-$FixY25),0);
$FK75=round((75+$dk25*10),0);
$nFC=round((50-$FixC),0);
$nFM=round((50-$FixM),0);
$nFY=round((50-$FixY),0);
$nFK=round((50-$dk*10),0);
//echo "fr:".$FC."--".$FM."--".$FY."--".$FK."<br>";
// echo "fr:".$FixC."--".$FixM."--".$FixY."--".$FixK."<br>";
// echo "fr25:".$FC25v."--".$FM25."--".$FY25."--".$FK25."<br>";
$c25=dechex($FC25*255/100);
$m25=dechex($FM25*255/100);
$y25=dechex($FY25*255/100);
$k25=dechex($FK25*255/100);
$c50=dechex($FC*255/100);
$m50=dechex($FM*255/100);
$y50=dechex($FY*255/100);
$k50=dechex($FK*255/100);
$c75=dechex($FC75*255/100);
$m75=dechex($FM75*255/100);
$y75=dechex($FY75*255/100);
$k75=dechex($FK75*255/100);
// echo "c50:".$c50."--".$m50."--".$y50."--".$k50."--<br>";
// echo "c25:".$c25."--".$m25."--".$y25."--".$k75."--<br>";
// echo "c75:".$c75."--".$m75."--".$y75."--".$k75."--<br>";
$bindata2 = pack('hhhhhhhhhhhH*hH*hhhhhhhH*hH*hH*hH*hH*hH*hH*hH*hhhhhhhH*hH*hH*hH*hH*hH*hH*hH*hhhhhhhH*hH*hH*hH*hH*hH*hH*hH*hhhhhhhH*hH*hH*hH*hH*hH*hH*hH*hhhhhhhH*hH*', 00, 04,00,06,00,02,00,00,00,00,00,'FF',00,'FF',00,05,00,00,00,00,00,$c25,00,40,00,$c50,00,'7F',00,$c75,00,'BF',00,'FF',00,'FF',00,05,00,00,00,00,00,$m25,00,40,00,$m50,00,'7F',00,$m75,00,'BF',00,'FF',00,'FF',00,05,00,00,00,00,00,$y25,00,40,00,$y50,00,'7F',00,$y75,00,'BF',00,'FF',00,'FF',00,05,00,00,00,00,00,$k25,00,40,00,$k50,00,'7F',00,$k75,00,'BF',00,'FF',00,'FF',00,02,00,00,00,00,00,'FF',00,'FF');
file_put_contents('curve/fix-'.$company."-".$dStr.$FCv.$FMv.$FYv.'_00.acv', $bindata2);
?>
<table align='center'>
<tr>
<td><font color="#444444">取得PhotoShop 曲線檔(.acv)</font></td>
<td><font color="#444444"><a href="curve/fix-<?php echo $company."-".$dStr.$FCv.$FMv.$FYv;?>_00.acv">here</a></font></td>
</tr>
<?php
require_once( 'PolynomialRegression.php' );
$data =
array
(
array( 0.00, 0.0 ),
array( 25*255/100, $FY25v3*255/100 ),
array( 50*255/100, $FYv3*255/100 ),
array( 75*255/100, $FY75v3*255/100 ),
array( 255, 255 )
);
// Precision digits in BC math.
bcscale( 10 );
$leastSquareRegression = new PolynomialRegression( 4 );//pupumonkey
// Add all the data to the regression analysis.
foreach ( $data as $dataPoint )
{
$leastSquareRegression->addData( $dataPoint[ 0 ], $dataPoint[ 1 ] );
//echo "addData : " . $dataPoint[ 0 ]."-".$dataPoint[ 1 ] . "<br />\n";
}
// Get coefficients for the polynomial.
$coefficients = $leastSquareRegression->getCoefficients();
$FY25d=$FY25v3*0.01;
$FYd=$FYv3*0.01;
$FY75d=$FY75v3*0.01;
$FM25d=$FM25v3*0.01;
$FMd=$FMv3*0.01;
$FM75d=$FM75v3*0.01;
$FC25d=$FC25v3*0.01;
$FCd=$FCv3*0.01;
$FC75d=$FC75v3*0.01;
$FK25d=$FK25v3*0.01;
$FKd=$FKv3*0.01;
$FK75d=$FK75v3*0.01;
$myFile ="curve/vcc-".$company."-".$dStr.$FCv.$FMv.$FYv."_00.vcc";
$fvcc = fopen($myFile, 'w') or die("can't open file");
//fwrite($fh, $p);
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
$viHead='CC08
BEGIN
5
0.00000 0.00000
'.$FY25d.' 0.25000
'.$FYd.' 0.50000
'.$FY75d.' 0.75000
1.00000 1.00000
0 0';
fwrite($fvcc, $viHead."\n");
for ($i=1;$i<=255;$i++) {
$yCV="$i"." ".round(($coefficients[0]+$i*$coefficients[1]+pow($i,2)*$coefficients[2]+pow($i,3)*$coefficients[3]),0);
fwrite($fvcc, $yCV."\n");
}
fwrite($fvcc, "END\n");
///////////////////////////////////////////////////////////////
$data =
array
(
array( 0.00, 0.0 ),
array( 25*255/100, $FM25v3*255/100 ),
array( 50*255/100, $FMv3*255/100 ),
array( 75*255/100, $FM75v3*255/100 ),
array( 255, 255 )
);
// Precision digits in BC math.
bcscale( 10 );
$leastSquareRegression = new PolynomialRegression( 4 );//pupumonkey
// Add all the data to the regression analysis.
foreach ( $data as $dataPoint )
{
$leastSquareRegression->addData( $dataPoint[ 0 ], $dataPoint[ 1 ] );
//echo "addData : " . $dataPoint[ 0 ]."-".$dataPoint[ 1 ] . "<br />\n";
}
// Get coefficients for the polynomial.
$coefficients = $leastSquareRegression->getCoefficients();
$viHeadM='BEGIN
5
0.00000 0.00000
'.$FM25d.' 0.25000
'.$FMd.' 0.50000
'.$FM75d.' 0.75000
1.00000 1.00000
0 0';
fwrite($fvcc, $viHeadM."\n");
for ($i=1;$i<=255;$i++) {
$mCV="$i"." ".round(($coefficients[0]+$i*$coefficients[1]+pow($i,2)*$coefficients[2]+pow($i,3)*$coefficients[3]),0);
fwrite($fvcc, $mCV."\n");
}
fwrite($fvcc, "END\n");
/////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////
$data =
array
(
array( 0.00, 0.0 ),
array( 25*255/100, $FC25v3*255/100 ),
array( 50*255/100, $FCv3*255/100 ),
array( 75*255/100, $FC75v3*255/100 ),
array( 255, 255 )
);
// Precision digits in BC math.
bcscale( 10 );
$leastSquareRegression = new PolynomialRegression( 4 );//pupumonkey
// Add all the data to the regression analysis.
foreach ( $data as $dataPoint )
{
$leastSquareRegression->addData( $dataPoint[ 0 ], $dataPoint[ 1 ] );
//echo "addData : " . $dataPoint[ 0 ]."-".$dataPoint[ 1 ] . "<br />\n";
}
// Get coefficients for the polynomial.
$coefficients = $leastSquareRegression->getCoefficients();
$viHeadC='BEGIN
5
0.00000 0.00000
'.$FC25d.' 0.25000
'.$FCd.' 0.50000
'.$FC75d.' 0.75000
1.00000 1.00000
0 0';
fwrite($fvcc, $viHeadC."\n");
for ($i=1;$i<=255;$i++) {
$cCV="$i"." ".round(($coefficients[0]+$i*$coefficients[1]+pow($i,2)*$coefficients[2]+pow($i,3)*$coefficients[3]),0);
fwrite($fvcc, $cCV."\n");
}
fwrite($fvcc, "END\n");
/////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////
$data =
array
(
array( 0.00, 0.0 ),
array( 25*255/100, $FK25v3*255/100 ),
array( 50*255/100, $FKv3*255/100 ),
array( 75*255/100, $FK75v3*255/100 ),
array( 255, 255 )
);
// Precision digits in BC math.
bcscale( 10 );
$leastSquareRegression = new PolynomialRegression( 4 );//pupumonkey
// Add all the data to the regression analysis.
foreach ( $data as $dataPoint )
{
$leastSquareRegression->addData( $dataPoint[ 0 ], $dataPoint[ 1 ] );
//echo "addData : " . $dataPoint[ 0 ]."-".$dataPoint[ 1 ] . "<br />\n";
}
// Get coefficients for the polynomial.
$coefficients = $leastSquareRegression->getCoefficients();
$viHeadK='BEGIN
5
0.00000 0.00000
'.$FK25d.' 0.25000
'.$FKd.' 0.50000
'.$FK75d.' 0.75000
1.00000 1.00000
0 0';
fwrite($fvcc, $viHeadK."\n");
for ($i=1;$i<=255;$i++) {
$kCV="$i"." ".round(($coefficients[0]+$i*$coefficients[1]+pow($i,2)*$coefficients[2]+pow($i,3)*$coefficients[3]),0);
fwrite($fvcc, $kCV."\n");
}
fwrite($fvcc, "END\n");
/////////////////////////////////////////////////////////////////////////////
$viHeadn='BEGIN
2
0.00000 0.00000
1.00000 1.00000
0 0';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=255;$i++) {
$nCV="$i"." "."$i";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
$viHeadn='BEGIN
2
0.00000 0.00000
1.00000 1.00000
0 0';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=255;$i++) {
$nCV="$i"." "."$i";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
$viHeadn='BEGIN
2
0.00000 0.00000
1.00000 1.00000
0 0';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=255;$i++) {
$nCV="$i"." "."$i";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
$viHeadn='BEGIN
2
0.00000 0.00000
1.00000 1.00000
0 0';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=255;$i++) {
$nCV="$i"." "."$i";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
/////////////////////////////////////////////////////////////////////////////
$viHeadn='GENERIC_V3
10000
10000
10000
10000
0
0
0
1
206
600x600
0
40470
1
1
100
120
END';
fwrite($fvcc, $viHeadn."\n");
//////////////////////////////////////////////////////////////////////////
$viHeadn='BEGIN
1
0
255';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=34;$i++) {
$nCV="0";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
//////////////////////////////////////////////////////////////////////////
$viHeadn='BEGIN
1
0
255';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=34;$i++) {
$nCV="0";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
//////////////////////////////////////////////////////////////////////////
$viHeadn='BEGIN
1
0
255';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=34;$i++) {
$nCV="0";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
//////////////////////////////////////////////////////////////////////////
$viHeadn='BEGIN
1
0
255';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=34;$i++) {
$nCV="0";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
//////////////////////////////////////////////////////////////////////////
$viHeadn='BEGIN
1
0
255';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=34;$i++) {
$nCV="0";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
//////////////////////////////////////////////////////////////////////////
$viHeadn='BEGIN
1
0
255';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=34;$i++) {
$nCV="0";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
//////////////////////////////////////////////////////////////////////////
$viHeadn='BEGIN
1
0
255';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=34;$i++) {
$nCV="0";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
//////////////////////////////////////////////////////////////////////////
$viHeadn='BEGIN
1
0
255';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=34;$i++) {
$nCV="0";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
$viEnd='1
CC04';
fwrite($fvcc, $viEnd."\n");
fclose($fvcc);
?>
<tr>
<td><font color="#444444">取得Efi vcc(.vcc)</font></td>
<td><font color="#444444"><a href="curve/vcc-<?php echo $company."-".$dStr.$FCv.$FMv.$FYv;?>_00.vcc">here</a></font></td>
<td><td><td><td><td><td>
<td><font color="#444444"><a href="curve/listvcc.php?company=<?php echo $company."&fmt=vcc&FC25=".$FixC25."&FM25=".$FixM25."&FY25=".$FixY25."&FK25=".$dk25."&FC=".$FixC."&FM=".$FixM."&FY=".$FixY."&FK=".$dk."&FC75=".$FixC75."&FM75=".$FixM75."&FY75=".$FixY75."&FK75=".$dk75;?>">堆疊</a></font></td>
</tr>
<?php
$myFile ="curve/CG-".$company."-".$dStr.$FCv.$FMv.$FYv."_00.txt";
$fCG = fopen($myFile, 'w') or die("can't open file");
//fwrite($fh, $p);
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
$viHead='"File created by PBN"
LGOROWLENGTH 3
#
# PBN Run Information
#
# Run: Run 1 - Calibration
# Based On: <none>
#
# Values in this file are Wanted
#
# Gray Balance: On
# reduced after 0%
# until 85%
# media white values: Measured
# media aim points: 1.20 / -0.90
#
NUMBER_OF_FIELDS 6
BEGIN_DATA_FORMAT
SampleID SAMPLE_NAME CMYK_C CMYK_M CMYK_Y CMYK_K
END_DATA_FORMAT
NUMBER_OF_SETS 5
BEGIN_DATA
A0 "0.00" 0.00 0.00 0.00 0.00
A1 "25.00" '.$FC25v.' '.$FM25v.' '.$FY25v.' '.$FK25v.'
A2 "50.00" '.$FCv.' '.$FMv.' '.$FYv.' '.$FKv.'
A3 "75.00" '.$FC75v.' '.$FM75v.' '.$FY75v.' '.$FK75v.'
A4 "100.00" 100.00 100.00 100.00 100.00
END_DATA';
fwrite($fCG, $viHead."\n");
fclose($fCG);
?>
<tr>
<td><font color="#444444">取得CGATS(.txt)</font></td>
<td><font color="#444444"><a href="<?php echo "curve/CG-".$company."-".$dStr.$FCv.$FMv.$FYv;?>_00.txt">here</a></font></td>
</tr>
</table>
<tr>
<td align="center"><font size="-2"> © <a href="mailto:[email protected]">Fred Kuo</a>, 2021. All rights reserved.<br><a href="http://www.fredkuo.idv.tw/wordpress/?p=1025">Read more.</a><br>
</td>
</tr>
</body>
</html>