File: C:/Users/fred/AppData/Roaming/Code/User/History/2c73282e/Ge3Q.php
<?php session_start();
///include("functions.php");
//$userid=$_SESSION["user_id"];
//$username=$_SESSION["username"];
//$company=$_SESSION["company"];
$company='ecolor';
echo "Welcome! ".$company;
include 'monitor.php';
if(!empty($_SERVER['HTTP_CLIENT_IP'])){
$myip = $_SERVER['HTTP_CLIENT_IP'];
}else if(!empty($_SERVER['HTTP_X_FORWARDED_FOR'])){
$myip = $_SERVER['HTTP_X_FORWARDED_FOR'];
}else{
$myip= $_SERVER['REMOTE_ADDR'];
}
?>
<?php
$company=$_GET['company'];
$po=$_GET['po'];
?>
<!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>
<script type='text/javascript' src='https://www.google.com/jsapi'></script>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>CT25 Check</title>
<style type="text/css">
#brand_div{
background: url(lab2.png) no-repeat;
}
#brand_c{
background: url(labC3.png) no-repeat;
}
#brand_m{
background: url(labM3.png) no-repeat;
}
#brand_y{
background: url(labY3.png) no-repeat;
}
#brand_g{
background: url(LabG4.png) no-repeat;
}
<!--
body {
font: 100% Verdana, Arial, Helvetica, sans-serif;
background: #ffffff;
margin: 0; /* 比較好的做法是將 Body 元素的邊界與欄位間隔調整為零，以處理不同的瀏覽器預設值 */
padding: 0;
text-align: center; /* 這樣會讓容器在 IE 5* 瀏覽器內置中對齊。然後，文字會在 #container 選取器中設定為靠左對齊預設值 */
color: #000000;
}
.oneColElsCtr #container {
width: 46em;
background: #FFFFFF;
margin: 0 auto; /* 自動邊界 (搭配寬度) 會讓頁面置中對齊 */
border: 0px solid #000000;
text-align: left; /* 這樣做會覆寫 Body 元素上的 text-align: center。 */
}
.oneColElsCtr #mainContent {
padding: 0 20px; /* 請記住，欄位間隔就是 Div 方塊內部的空間，而邊界就是 Div 方塊外部的空間 */
}
.oneColElsCtr form table tr td {
font-family: Arial, Helvetica, sans-serif;
font-size: 10pt;
}
-->
</style>
</head>
<body class="oneColElsCtr">
<table align='center'><tr><td>
<div id='brand_div' >
<div> Report Start</div>
</td></tr></table>
<table align='center'><tr><td>
<div id='brand_div' >
<div> Report Start</div>
</td></tr></table>
<table>
<tr><td>
<a href="okDel.php" target="_blank">資料重設</a>
</td></tr>
</table>
<?php
//error_reporting(0);
$f123= $_GET['f123'];
$f321= $_GET['f321'];
$rule= $_GET['rule'];
$sccSt=$_GET['sccSt'];
$aim=$_GET['target'];
$target=$aim;
//$aim='Fogra39';
//include 'de2000.php';
include 'spXYZ.php';
include 'sp38XYZ.php';
include 'lab2xyz.php';
include 'SCCA06.php';
include 'xyz2lab01.php';
include 'xyz2lab.php';
include 'dE00.php';
//include 'DensityV38.php';
$sum=110;
$check=1;
$dtime=time();
$dStr=substr($dtime,7,9)."-";
function get_between ($text, $s1, $s2) {
$mid_url = "";
$pos_s = strrpos($text,$s1);
$pos_e = strrpos($text,$s2);
for ( $i=$pos_s+strlen($s1) ; (( $i<($pos_e)) && $i < strlen($text)) ; $i++ ) {
$mid_url .= $text[$i];
}
return $mid_url;
}
echo "last changed: " . date("F d Y H:i:s.", filectime($f321));
$tStamp=strtotime(date("F d Y H:i:s.", filectime($f321)));
//echo "<br>x".$tStamp."x<br>";
$contentT = file($f321);
//echo substr('abcdef', 1, 3); // bcd
$filedb=substr($f321,7,60);
$dbstr=explode("_", $filedb);
// echo $dbstr[0]."XX".$dbstr[1]."XX".$dbstr[2]."XX".$dbstr[3].$dbstr[4].$dbstr[5];
$filename=$filedb;
//echo "file:".$filename;
$po=$_GET['po'];
$stringC = implode($contentT);
$fMark = strrpos($stringC,'i1Profiler');
//echo "fMark:".$fMark."<br>";
$fMarkC = strrpos($stringC,'ColorPort');
//echo "fMarkC:".$fMarkC."<br>";
$nm380 = strrpos($stringC,'nm380');
//echo "fMarkC:".$nm380."<br>";
//echo "Gracol 2006<br>";
$stringT = implode($contentT);
//echo $contents[20];
//echo $stringT;
$snstring=get_between($stringT,"Serial number ","_CREATED");
$dotS = explode(",", $snstring);////Measure upload
//print_r ($dotS);
$snstring=$dotS[0];
$snstring=$_GET['sn'];
echo "sn:".$snstring;
$pt=get_between($stringT,"BEGIN_DATA","END_DATA");
$pt = str_replace(" \r", "\r", $pt);
$pt = str_replace("\r", " ", $pt);
//$pt = ereg_replace("\t\n", " ", $pt);
//$pt = ereg_replace(" ", "", $pt);
$dotTx = explode("_", $stringT);////Measure upload
foreach ($dotTx as $value) {
$dotT[] = $value * 0.01;
}
//print_r ($dotT);
/*
if ($aim=='Fogra39' or $aim=='gmi'){
$base='Fogra39';}
elseif ($aim=='CRPC6' ){
$base='CRPC6';}
else {$base='Fogra51';}
if ($dotT[6] <= '25') {
?>
<SCRIPT LANGUAGE="JavaScript">
window.location="6pmmTVI-parsingCTOKXct25ipGLT.php?f123=target.txt&f321=<?php echo $f321;?>&company=<?php echo $company;?>&rule=c9&target=<?php echo $target;?>";
</script>
<?php
exit;
}
*/
echo "<br><br>評分規則: <font color='blue'>".$rule."</font> 評分資料集:<font color='red'>".$target."<font color='black'>";
?>
<form action="TVI-parsingCTOKXT.php?f123=<?php echo "target.txt".'&f321='.$_FILES["file"]["name"];?>" method="post">
<table width="400" border="0" align="center">
<tr><td>
<input size="15" maxlength="50" type="hidden" name="rtarget" value=<?php echo $f321;?> /></td>
<tr><td >規則切換:</td>
<td><a href="pbnCT23CR30api.php?f123=target.txt&f321=<?php echo $f321;?>&rule=gmi&target=<?php echo $target;?>">gmi</a></td>
<td ><a href="pbnCT23CR30api.php?f123=target.txt&f321=<?php echo $f321;?>&rule=c9&target=<?php echo $target;?>">c9</a></td>
<td ><a href="pbnCT23CR30api.php?f123=target.txt&f321=<?php echo $f321;?>&rule=pbn&target=<?php echo $target;?>">pbn</a></td>
</tr>
<tr>
<td >資料集切換:</td>
<td><a href="pbnCT23CR30api.php?f123=target.txt&f321=<?php echo $f321;?>&target=Fogra39&more=0&rule=<?php echo $rule;?>">Fogra39</a></td>
<td><a href="pbnCT23CR30api.php?f123=target.txt&f321=<?php echo $f321;?>&target=Fogra51&more=0&rule=<?php echo $rule;?>">Fogra51</a></td>
<td><a href="pbnCT23CR30api.php?f123=target.txt&f321=<?php echo $f321;?>&target=CRPC6&more=0&rule=<?php echo $rule;?>">CRPC6</a></td><br>
</tr>
<tr><td>
<a href="pbnCT23CR30api.php?f123=target.txt&f321=<?php echo $f321;?>&target=CRPC6&more=0&rule=<?php echo $rule;?>&sccSt=1">CRPC6 SCCA on</a>
</td>
<td>
<a href="pbnCT23CR30api.php?f123=target.txt&f321=<?php echo $f321;?>&target=CRPC6&more=0&rule=<?php echo $rule;?>&sccSt=0">CRPC6 SCCA off</a>
</td>
</tr>
<!-- <td ><a href="6pmmTVI-parsingCTOKXct23ip.php?f123=target.txt&f321=<?php echo $f321;?>&target=CRPC6">CRPC6</a></td><br>
-->
</tr>
</table>
<p><p>
<?php
//////////////////////////////////////////////////Fogra Media Check
$psum=20;
if ($target=='Fogra39' || $target=='') {
$pl=95; $pa=-0.01;$pb=-2;
$cl=55.10; $ca=-37.0;$cb=-50;
$ml=48; $ma=74;$mb=-3;
$yl=89; $ya=-5;$yb=93;
$kl=16; $ka=0.01;$kb=0.01;
$rl=47;$ra=68;$rb=48;
$grl=50;$gra=-65;$grb=27;
$bl=24;$ba=22;$bb=-46;
$c50TVT=64;$c25TVT=34.3;$c75TVT=87.3;
$m50TVT=64;$m25TVT=34.3;$m75TVT=87.3;
$y50TVT=64;$y25TVT=34.3;$y75TVT=87.3;
$k50TVT=67;$k25TVT=37.1;$k75TVT=88.4;
$gLT=58; $g25LT=77; $g75LT=39;
}
elseif ($target=='Fogra51') {
$pl=95; $pa=1;$pb=-4;
$cl=56; $ca=-36.0;$cb=-51;
$ml=48; $ma=75;$mb=-4;
$yl=89; $ya=-4;$yb=93;
$kl=16; $ka=0.01;$kb=0.01;
$rl=48;$ra=68;$rb=47;
$grl=50;$gra=-65;$grb=26;
$bl=25;$ba=20;$bb=-46;
$c50TVT=66;$c25TVT=37.2;$c75TVT=87.7;
$m50TVT=66;$m25TVT=37.2;$m75TVT=87.7;
$y50TVT=66;$y25TVT=37.2;$y75TVT=87.7;
$k50TVT=66;$k25TVT=37.2;$k75TVT=87.7;
$gLT=56; $g25LT=76; $g75LT=38;
}
elseif ($target=='gmi' ) {
$pl=95; $pa=-0.01;$pb=-2;
$cl=55; $ca=-37.0;$cb=-50;
$ml=48; $ma=74;$mb=-3;
$yl=89; $ya=-5;$yb=93;
$kl=16; $ka=0.01;$kb=0.01;
$rl=47;$ra=68;$rb=48;
$grl=50;$gra=-65;$grb=27;
$bl=24;$ba=22;$bb=-46;
$c50TVT=67;$c25TVT=37.1;$c75TVT=88.4;
$m50TVT=67;$m25TVT=37.1;$m75TVT=88.4;
$y50TVT=67;$y25TVT=37.1;$y75TVT=88.4;
$k50TVT=67;$k25TVT=37.1;$k75TVT=88.4;
$gLT=58; $g25LT=77; $g75LT=39;
}
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;
$grl=50; $gra=-66; $grb=26;
$bl=25; $ba=20; $bb=-46;
*/
$pl=95; $pa=1;$pb=-4;
$cl=53; $ca=-34;$cb=-51;
$ml=45; $ma=73;$mb=-7;
$yl=88; $ya=-14;$yb=87;
$kl=16; $ka=0.1;$kb=0.1;
$rl=47; $ra=59; $rb=50;
$grl=51.7; $gra=-62; $grb=29;
$bl=19; $ba=31; $bb=-42;
$c50TVT=66;$c25TVT=37.1;$c75TVT=88;
$m50TVT=66;$m25TVT=37.1;$m75TVT=88;
$y50TVT=66;$y25TVT=37.1;$y75TVT=88;
$k50TVT=69;$k25TVT=41.1;$k75TVT=89;
$gLT=58; $g25LT=77; $g75LT=39;
}
//echo "target cl:".$target.",".$cl;
//echo "aim:".$aim."cl:".$cl;
$chromeCT=pow((pow($ca,2)+pow($cb,2)),0.5);
$hueCT=atan2($cb,$ca);
$degCT = ($hueCT/M_PI*180) + ($hueCT > 0 ? 0 : 360);
//echo "<br>chrome:".$chromeCT;
//echo "<br>hue:".$degCT;
$chromeMT=pow((pow($ma,2)+pow($mb,2)),0.5);
$hueMT=atan2($mb,$ma);
$degMT = ($hueMT/M_PI*180) + ($hueMT > 0 ? 0 : 360);
//echo "<br>Mhrome:".$chromeMT;
//echo "<br>hue:".$degMT;
$chromeYT=pow((pow($ya,2)+pow($yb,2)),0.5);
$hueYT=atan2($yb,$ya);
$degYT = ($hueYT/M_PI*180) + ($hueYT > 0 ? 0 : 360);
//echo "<br>Yhrome:".$chromeYT;
//echo "<br>hue:".$degYT;
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;
}
?>
<?php
include 'DensityV38.php';
include 'DensityV.php';
$Order=$dotT[54];
//echo "<br>order:".$Order;
$paperP=0;
$k100P=22;
$c100P=19;
$g25P=1;
$m100P=20;
$g50P=2;
$y100P=21;
$g75P=3;
$c50P=10;
$m50P=11;
$y50P=12;
$k50P=13;
$r100P=4;
$k25P=8;
$b100P=14;
$c25P=5;
$m75P=16;
$y25P=7;
$c75P=15;
$m25P=6;
$g100P=9;
$y75P=17;
$k75P=18;
// $idx=9;
//$cols=46;
$idx=-1;
$cols=31;
//$cols=40;
$k1dd=0;
$Pdot=$paperP;
//echo "Paper X".$dotT[$idx+$cols*$Pdot+1]."<br>";
$PXm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$PYm=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$PZm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$PLm=xyz2lab01("l",$PXm,$PYm,$PZm);
$Pam=xyz2lab01("a",$PXm,$PYm,$PZm);
$Pbm=xyz2lab01("b",$PXm,$PYm,$PZm);
$Pdm=DensitySp38("K",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
//echo "<br>paper:".$PLm,",".$Pam.",".$Pbm;
$Xp=$PXm*100;
$Yp=$PYm*100;
$Zp=$PZm*100;
//////////////////////////////////////////////////////////////
//echo "echo 415";
$RPCCX=lab2xyz("x",$cl,$ca,$cb);
$RPCCY=lab2xyz("y",$cl,$ca,$cb);
$RPCCZ=lab2xyz("z",$cl,$ca,$cb);
//echo "echo RPCCX 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);
/////////////////////////////SCCA
if ($sccSt==0)
{
echo "SCCA off";
}
elseif ($sccSt==1){
echo "iiSCCA on";
$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;
}
// echo "xyz x:".$PXm."_y:".$PYm."_z:".$PZm;
// echo "dot-10:".$dotT[$idx+$cols*$Pdot+1]."_dot-40:".$dotT[$idx+$cols*$Pdot+31];
//echo "<br>Paper: PL:".$PLm."_Pa:".$Pam."_Pb:".$Pbm."__Pdm:".$Pdm."__<br>";
/////////////////////////////////c
$Pdot=$c100P;
//echo "C X".$dotT[$idx+$cols*$Pdot+1]."<br>";
$cXm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$cYm=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$cZm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$clm=xyz2lab01("l",$cXm,$cYm,$cZm);
$cam=xyz2lab01("a",$cXm,$cYm,$cZm);
$cbm=xyz2lab01("b",$cXm,$cYm,$cZm);
$cdm=DensitySp38("C",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
//echo "note 2k: CL:".$clm."_Ca:".$cam."_Cb:".$cbm."__Pdm:".$cdm."__<br>";
///////////////////////////////////////////m
$Pdot=$m100P;
// echo "M X".$dotT[$idx+$cols*$Pdot+1]."<br>";
$mXm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$mYm=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$mZm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$mlm=xyz2lab01("l",$mXm,$mYm,$mZm);
$mam=xyz2lab01("a",$mXm,$mYm,$mZm);
$mbm=xyz2lab01("b",$mXm,$mYm,$mZm);
$mdm=DensitySp38("M",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
// echo "note 2k: ML:".$mLm."_Ma:".$mam."_Mb:".$mbm."__Mdm:".$mdm."__<br>";
///////////////////////////////////////////y
$Pdot=$y100P;
$yXm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$yYm=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$yZm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$ylm=xyz2lab01("l",$yXm,$yYm,$yZm);
$yam=xyz2lab01("a",$yXm,$yYm,$yZm);
$ybm=xyz2lab01("b",$yXm,$yYm,$yZm);
$ydm=DensitySp38("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
// echo "note 2k: YL:".$yLm."_Ya:".$yam."_Yb:".$ybm."__Ydm:".$ydm."__<br>";
///////////////////////////////////////////k
$Pdot=$k100P;
$kXm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$kYm=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$kZm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$klm=xyz2lab01("l",$kXm,$kYm,$kZm);
$kam=xyz2lab01("a",$kXm,$kYm,$kZm);
$kbm=xyz2lab01("b",$kXm,$kYm,$kZm);
$kdm=DensitySp38("K",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
// echo "note 2k: KL:".$kLm."_Ka:".$kam."_Kb:".$kbm."__Kdm:".$kdm."__<br>";
///////////////////////////////////////////R
$Pdot=$r100P;
$rXm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$rYm=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$rZm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$rlm=xyz2lab01("l",$rXm,$rYm,$rZm);
$ram=xyz2lab01("a",$rXm,$rYm,$rZm);
$rbm=xyz2lab01("b",$rXm,$rYm,$rZm);
$rdm=DensitySp38("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
// echo "note 2k: KL:".$kLm."_Ka:".$kam."_Kb:".$kbm."__Kdm:".$kdm."__<br>";
///////////////////////////////////////////G
$Pdot=$g100P;
$grXm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$grYm=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$grZm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$grlm=xyz2lab01("l",$grXm,$grYm,$grZm);
$gram=xyz2lab01("a",$grXm,$grYm,$grZm);
$grbm=xyz2lab01("b",$grXm,$grYm,$grZm);
$grdm=DensitySp38("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
// echo "note 2k: KL:".$kLm."_Ka:".$kam."_Kb:".$kbm."__Kdm:".$kdm."__<br>";
///////////////////////////////////////////B
$Pdot=$b100P;
$bXm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$bYm=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$bZm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$blm=xyz2lab01("l",$bXm,$bYm,$bZm);
$bam=xyz2lab01("a",$bXm,$bYm,$bZm);
$bbm=xyz2lab01("b",$bXm,$bYm,$bZm);
$bdm=DensitySp38("M",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
/*
$Pdot=10; /////
$gy100Xm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$gy100Ym=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$gy100Zm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$gy100lm=xyz2lab01("l",$gy100Xm,$gy100Ym,$gy100Zm);
$gy100am=xyz2lab01("a",$gy100Xm,$gy100Ym,$gy100Zm);
$gy100bm=xyz2lab01("b",$gy100Xm,$gy100Ym,$gy100Zm);
//echo "gy100lm:".$gy100lm.":".$dotT[$idx+$cols*$Pdot+1];
$gy100dm=DensitySp38("K",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
*/
//////TR15 L
/*
$g25LT=round(getLg(25,$gy100Ym,$PYm,$PLm),2);
$gLT=round(getLg(50,$gy100Ym,$PYm,$PLm),2);
$g75LT=round(getLg(75,$gy100Ym,$PYm,$PLm),2);
*/
//$gLT=58.5; $g25LT=77; $g75LT=39;
// echo "note 2k: KL:".$kLm."_Ka:".$kam."_Kb:".$kbm."__Kdm:".$kdm."__<br>";
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// //////////////////////////////////Beer's Law section///////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////sec K
$ki=0.820;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=$k100P;////K line
$PPdot=$paperP;
//echo "<br>kp:".$k100P,",".$PPdot;
//$dotT[$idx+$cols*$Pdot+1]
$si=0;
//echo "<br> beer k1:".$dotT[$idx+$cols*$PPdot+$si+1];
for ($s=400; $s<=700; $s+=10) {
${'p'.$s}=$dotT[$idx+$cols*$PPdot+$si+1];
${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
$si=$si+1;
}
$ki=$ki+0.015;
${'k'.$i.'X'}=sp38XYZ("X",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
${'k'.$i.'Y'}=sp38XYZ("Y",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
${'k'.$i.'Z'}=sp38XYZ("Z",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
${'k'.$i.'l'}=xyz2lab01("l",${'k'.$i.'X'},${'k'.$i.'Y'},${'k'.$i.'Z'});
${'k'.$i.'a'}=xyz2lab01("a",${'k'.$i.'X'},${'k'.$i.'Y'},${'k'.$i.'Z'});
${'k'.$i.'b'}=xyz2lab01("b",${'k'.$i.'X'},${'k'.$i.'Y'},${'k'.$i.'Z'});
//echo "K1L=".round($k1l,3).",".round($k1a,3).",".round($k1b,3);
${'k'.$i.'dd'}=DensitySp38("K",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
//echo "<br>K1dd=".${'k'.$i.'dd'}.",Lab,".${'k'.$i.'l'}.",".${'k'.$i.'a'};
if ($i%5==0) {
${'hexKa'.$i}=${'k'.$i.'a'};
${'hexKb'.$i}=${'k'.$i.'b'};
//echo "hex Ka=".${'hexKa'.$i};
}
//echo "K1D=".round(${'k'.$i.'dd'},3);
if ($i%3==0) {
${'hexKL'.$i}=${'k'.$i.'l'};
${'hexKa'.$i}=${'k'.$i.'a'};
${'hexKb'.$i}=${'k'.$i.'b'};
//echo "hex Ka=".${'hexKa'.$i};
}
////echo "<br>";
//echo "K1D=".round(${'k'.$i.'dd'},3);
}
////echo "<br>";
//////////////////////sec C
$xhcmin=100;
$Huecmin=100;
$cmin=100;
$xhcmin0='';
$Huecmin0='';
$xhromeCT=$chromeCT;
$Huemmin0='';
$Huemmin0='';
$xhromeMT=$chromeMT;
$Hueymin0='';
$Hueymin0='';
$xhromeYT=$chromeYT;
$xhmmin0='';
$xhymin0='';
$ki=0.820;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=$c100P;////C line
$si=0;
for ($s=400; $s<=700; $s+=10) {
${'p'.$s}=$dotT[$idx+$cols*$PPdot+$si+1];
${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
$si=$si+1;
//echo "paper Sp:".${'p'.$s};
}
$ki=$ki+0.015;
${'c'.$i.'X'}=sp38XYZ("X",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
${'c'.$i.'Y'}=sp38XYZ("Y",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
${'c'.$i.'Z'}=sp38XYZ("Z",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($c1Z,3)."<br>";
${'c'.$i.'l'}=xyz2lab01("l",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
${'c'.$i.'a'}=xyz2lab01("a",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
${'c'.$i.'b'}=xyz2lab01("b",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
//echo "K1L=".round($c1l,3).",".round($c1a,3).",".round($c1b,3);
${'c'.$i.'dd'}=DensitySp38("C",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
//echo "K1D=".round($k1dd,3);
//echo "c1D=".round($c1dd,3);
if ($i%3==0) {
${'hexCL'.$i}=${'c'.$i.'l'};
${'hexCa'.$i}=${'c'.$i.'a'};
${'hexCb'.$i}=${'c'.$i.'b'};
${'xhromec'.$i}=pow((pow(${'c'.$i.'a'},2)+pow(${'c'.$i.'b'},2)),0.5);
${'hue'.$i}=atan2(${'c'.$i.'b'},${'c'.$i.'a'});
${'degc'.$i} = (${'hue'.$i}/M_PI*180) + (${'hue'.$i} > 0 ? 0 : 360);
//echo "<br>xhromec:".${'xhromec'.$i}."_huec:".${'degc'.$i} ;
//echo "<br>hex Ca Cb=".${'hexCa'.$i}."_".${'hexCb'.$i};
$xhcmin0=abs(${'xhromec'.$i}-$xhromeCT);
$xhcmin=min($xhcmin0,$xhcmin);
//echo "<br>xhcmin0:".$xhcmin0."xhcmin:".$xhcmin;
$Huecmin0=abs(${'degc'.$i}-$degCT);
$Huecmin=min($Huecmin0,$Huecmin);
//echo "<br>Huecmin:".$Huecmin;
}
$dc76=de00($cl,$ca,$cb,${"c".$i."l"},${"c".$i."a"},${"c".$i."b"});
${"dc".$i."76"}=$dc76;
$cmin=min($dc76,$cmin);
//echo "<br>cmin:",$cmin;
if ($dc76==$cmin){
$copt=$i;$coptD=${"c".$i."dd"};$coptL=${"c".$i."l"};$copta=${"c".$i."a"};$coptb=${"c".$i."b"};
//echo "<br>copt:",$copt;
}
if ($Huecmin0==$Huecmin){
$coptH=$i;$coptHD=${"c".$i."dd"};$coptHL=${"c".$i."l"};$coptHa=${"c".$i."a"};$coptHb=${"c".$i."b"};
//echo "<br>coptH:",$coptH."coptHL:",$coptHL;
}
if ($xhcmin0==$xhcmin){
$coptX=$i;$coptXD=${"c".$i."dd"};$coptXL=${"c".$i."l"};$coptXa=${"c".$i."a"};$coptXb=${"c".$i."b"};
//echo "<br>coptX:",$coptX;
}
}
//////////////////////////sec M
$xhmmin=100;
$Huemmin=100;
$mmin=100;
$ki=0.820;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=$m100P;////M line
$si=0;
for ($s=400; $s<=700; $s+=10) {
${'p'.$s}=$dotT[$idx+$cols*$PPdot+$si+1];
${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
$si=$si+1;
}
$ki=$ki+0.015;
${'m'.$i.'X'}=sp38XYZ("X",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
${'m'.$i.'Y'}=sp38XYZ("Y",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
${'m'.$i.'Z'}=sp38XYZ("Z",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
//echo "KX1=".round($m1X,3).",".round($m1Y,3).",".round($m1Z,3)."<br>";
${'m'.$i.'l'}=xyz2lab01("l",${'m'.$i.'X'},${'m'.$i.'Y'},${'m'.$i.'Z'});
${'m'.$i.'a'}=xyz2lab01("a",${'m'.$i.'X'},${'m'.$i.'Y'},${'m'.$i.'Z'});
${'m'.$i.'b'}=xyz2lab01("b",${'m'.$i.'X'},${'m'.$i.'Y'},${'m'.$i.'Z'});
//echo "K1L=".round($m1l,3).",".round($m1a,3).",".round($m1b,3);
${'m'.$i.'dd'}=DensitySp38("M",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
if ($i%3==0) {
${'hexML'.$i}=${'m'.$i.'l'};
${'hexMa'.$i}=${'m'.$i.'a'};
${'hexMb'.$i}=${'m'.$i.'b'};
${'xhromem'.$i}=pow((pow(${'m'.$i.'a'},2)+pow(${'m'.$i.'b'},2)),0.5);
${'hue'.$i}=atan2(${'m'.$i.'b'},${'m'.$i.'a'});
${'degm'.$i} = (${'hue'.$i}/M_PI*180) + (${'hue'.$i} > 0 ? 0 : 360);
//echo "<br>xhromem:".${'xhromem'.$i}."_huem:".${'degm'.$i} ;
//emho "<br>hex Ma Mb=".${'hexMa'.$i}."_".${'hexMb'.$i};
$xhmmin0=abs(${'xhromem'.$i}-$xhromeMT);
$xhmmin=min($xhmmin0,$xhmmin);
//echo "<br>xhmmin:".$xhmmin;
$Huemmin0=abs(${'degm'.$i}-$degMT);
$Huemmin=min($Huemmin0,$Huemmin);
//echo "<br>Huemmin:".$Huemmin;
}
$dm76=de00($ml,$ma,$mb,${"m".$i."l"},${"m".$i."a"},${"m".$i."b"});
${"dm".$i."76"}=$dm76;
$mmin=min($dm76,$mmin);
//echo "<br>mmin:",$mmin;
if ($dm76==$mmin){
$mopt=$i;$moptD=${"m".$i."dd"};$moptL=${"m".$i."l"};$mopta=${"m".$i."a"};$moptb=${"m".$i."b"};
//echo "<br>mopt:",$mopt;
}
if ($Huemmin0==$Huemmin){
$moptH=$i;$moptHD=${"m".$i."dd"};$moptHL=${"m".$i."l"};$moptHa=${"m".$i."a"};$moptHb=${"m".$i."b"};
//echo "<br>moptH:",$moptH;
}
if ($xhmmin0==$xhmmin){
$moptX=$i;$moptXD=${"m".$i."dd"};$moptXL=${"m".$i."l"};$moptXa=${"m".$i."a"};$moptXb=${"m".$i."b"};
//echo "<br>moptX:",$moptX;
}
}
////echo "<br>";
///////////////////sec Y
$xhymin=100;
$Hueymin=100;
$ymin=100;
$ki=0.880;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=$y100P;////Y line
$si=0;
for ($s=400; $s<=700; $s+=10) {
${'p'.$s}=$dotT[$idx+$cols*$PPdot+$si+1];
${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
$si=$si+1;
}
$ki=$ki+0.015;
${'y'.$i.'X'}=sp38XYZ("X",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
${'y'.$i.'Y'}=sp38XYZ("Y",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
${'y'.$i.'Z'}=sp38XYZ("Z",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
//echo "KX1=".round($y1X,3).",".round($y1Y,3).",".round($y1Z,3)."<br>";
${'y'.$i.'l'}=xyz2lab01("l",${'y'.$i.'X'},${'y'.$i.'Y'},${'y'.$i.'Z'});
${'y'.$i.'a'}=xyz2lab01("a",${'y'.$i.'X'},${'y'.$i.'Y'},${'y'.$i.'Z'});
${'y'.$i.'b'}=xyz2lab01("b",${'y'.$i.'X'},${'y'.$i.'Y'},${'y'.$i.'Z'});
//echo "K1L=".round($y1l,3).",".round($y1a,3).",".round($y1b,3);
${'y'.$i.'dd'}=DensitySp38("Y",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
//echo "K1D=".round($k1dd,3);
if ($i%3==0) {
${'hexYL'.$i}=${'y'.$i.'l'};
${'hexYa'.$i}=${'y'.$i.'a'};
${'hexYb'.$i}=${'y'.$i.'b'};
${'xhromey'.$i}=pow((pow(${'y'.$i.'a'},2)+pow(${'y'.$i.'b'},2)),0.5);
${'hue'.$i}=atan2(${'y'.$i.'b'},${'y'.$i.'a'});
${'degy'.$i} = (${'hue'.$i}/M_PI*180) + (${'hue'.$i} > 0 ? 0 : 360);
//eyho "<br>xhromey:".${'xhromey'.$i}."_huey:".${'degy'.$i} ;
//eyho "<br>hex Ya Yb=".${'hexYa'.$i}."_".${'hexYb'.$i};
$xhymin0=abs(${'xhromey'.$i}-$xhromeYT);
$xhymin=min($xhymin0,$xhymin);
//echo "<br>xhymin:".$xhymin;
$Hueymin0=abs(${'degy'.$i}-$degYT);
$Hueymin=min($Hueymin0,$Hueymin);
//echo "<br>Hueymin:".$Hueymin;
}
$dy76=de00($yl,$ya,$yb,${"y".$i."l"},${"y".$i."a"},${"y".$i."b"});
${"dy".$i."76"}=$dy76;
$ymin=min($dy76,$ymin);
//echo "<br>ymin:",$ymin;
if ($dy76==$ymin){
$yopt=$i;$yoptD=${"y".$i."dd"};$yoptL=${"y".$i."l"};$yopta=${"y".$i."a"};$yoptb=${"y".$i."b"};
//echo "<br>yopt:",$yopt;
}
if ($Hueymin0==$Hueymin){
$yoptH=$i;$yoptHD=${"y".$i."dd"};$yoptHL=${"y".$i."l"};$yoptHa=${"y".$i."a"};$yoptHb=${"y".$i."b"};
//echo "<br>yoptH:",$yoptH;
}
if ($xhymin0==$xhymin){
$yoptX=$i;$yoptXD=${"y".$i."dd"};$yoptXL=${"y".$i."l"};$yoptXa=${"y".$i."a"};$yoptXb=${"y".$i."b"};
//echo "<br>yoptX:",$yoptX;
}
// echo "y1D=".round(${'y'.$i.'dd'},3);
}
////////////////sec R
$ki=0.880;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=$r100P;////R line
//echo "r100p:".$r100P;
$si=0;
for ($s=400; $s<=700; $s+=10) {
${'p'.$s}=$dotT[$idx+$cols*$PPdot+$si+1];
${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
$si=$si+1;
//echo "paper Sp380:".${'p'.$s};
}
$ki=$ki+0.015;
${'r'.$i.'X'}=sp38XYZ("X",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
${'r'.$i.'Y'}=sp38XYZ("Y",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
${'r'.$i.'Z'}=sp38XYZ("Z",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
${'r'.$i.'l'}=xyz2lab01("l",${'r'.$i.'X'},${'r'.$i.'Y'},${'r'.$i.'Z'});
${'r'.$i.'a'}=xyz2lab01("a",${'r'.$i.'X'},${'r'.$i.'Y'},${'r'.$i.'Z'});
${'r'.$i.'b'}=xyz2lab01("b",${'r'.$i.'X'},${'r'.$i.'Y'},${'r'.$i.'Z'});
${'r'.$i.'dd'}=DensitySp38("Y",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
//echo "<br>RD, R1L=".${'r'.$i.'dd'}."XX,".${'r'.$i.'l'}.",".${'r'.$i.'a'}.",".${'r'.$i.'b'};
if ($i%5==0) {
${'hexRa'.$i}=${'r'.$i.'a'};
${'hexRb'.$i}=${'r'.$i.'b'};
//echo "<br>hex Ra Rb=".${'hexRa'.$i}."_".${'hexRb'.$i};
}
//echo "r1D=".round(${'r'.$i.'dd'},3);
//echo "r1L=".round(${'r'.$i.'l'},3);
}
////echo "<br>";
/////////////////////Sec G
////////////////sec G
$ki=0.880;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=$g100P;////G line
$si=0;
for ($s=400; $s<=700; $s+=10) {
${'p'.$s}=$dotT[$idx+$cols*$PPdot+$si+1];
${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
$si=$si+1;
//echo "paper Sp380:".${'p'.$s};
}
$ki=$ki+0.015;
${'gr'.$i.'X'}=sp38XYZ("X",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
${'gr'.$i.'Y'}=sp38XYZ("Y",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
${'gr'.$i.'Z'}=sp38XYZ("Z",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
${'gr'.$i.'l'}=xyz2lab01("l",${'gr'.$i.'X'},${'gr'.$i.'Y'},${'gr'.$i.'Z'});
${'gr'.$i.'a'}=xyz2lab01("a",${'gr'.$i.'X'},${'gr'.$i.'Y'},${'gr'.$i.'Z'});
${'gr'.$i.'b'}=xyz2lab01("b",${'gr'.$i.'X'},${'gr'.$i.'Y'},${'gr'.$i.'Z'});
//echo "K1L=".round($k1l,3).",".round($k1a,3).",".round($k1b,3);
${'gr'.$i.'dd'}=DensitySp38("Y",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
//echo "K1D=".round(${'k'.$i.'dd'},3);
if ($i%5==0) {
${'hexGRa'.$i}=${'gr'.$i.'a'};
${'hexGRb'.$i}=${'gr'.$i.'b'};
//echo "hex GRa GRb=".${'hexGRa'.$i}."_".${'hexGRb'.$i};
}
//echo "Gr1D=".round(${'gr'.$i.'dd'},3);
//echo "r1L=".round(${'r'.$i.'l'},3);
}
////echo "<br>";
////////////////sec B
$ki=0.820;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=$b100P;////G line
$si=0;
for ($s=400; $s<=700; $s+=10) {
${'p'.$s}=$dotT[$idx+$cols*$PPdot+$si+1];
${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
$si=$si+1;
//echo "paper Sp380:".${'p'.$s};
}
$ki=$ki+0.015;
${'b'.$i.'X'}=sp38XYZ("X",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
${'b'.$i.'Y'}=sp38XYZ("Y",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
${'b'.$i.'Z'}=sp38XYZ("Z",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
${'b'.$i.'l'}=xyz2lab01("l",${'b'.$i.'X'},${'b'.$i.'Y'},${'b'.$i.'Z'});
${'b'.$i.'a'}=xyz2lab01("a",${'b'.$i.'X'},${'b'.$i.'Y'},${'b'.$i.'Z'});
${'b'.$i.'b'}=xyz2lab01("b",${'b'.$i.'X'},${'b'.$i.'Y'},${'b'.$i.'Z'});
//echo "K1L=".round($k1l,3).",".round($k1a,3).",".round($k1b,3);
${'b'.$i.'dd'}=DensitySp38("M",0,0, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700,0,0,0);
//echo "K1D=".round(${'k'.$i.'dd'},3);
if ($i%5==0) {
${'hexBa'.$i}=${'b'.$i.'a'};
${'hexBb'.$i}=${'b'.$i.'b'};
//echo "hex Ba Bb=".${'hexBa'.$i}."_".${'hexBb'.$i};
}
//echo "Gr1D=".round(${'gr'.$i.'dd'},3);
//echo "r1L=".round(${'r'.$i.'l'},3);
}
////echo "<br>";
//////////////////////////////////Beer's Law section
//////////////////////////////////////////////////////
/*function de00($l1,$a1,$b1,$l2,$a2,$b2) {
$d76=sqrt(pow(($l1-$l2),2)+ pow(($a1-$a2),2)+pow(($b1-$b2),2));
return round($d76,2);
}
*/
////////////////////////////de00////////////////////
# ------- The graph values in the form of associative array
///////////////////////////////de00//////////////////////
$tt00=de00(55,-37,-50,54.3,-34.47,-52.63);
$dek00=de00($kl,$ka,$kb,$klm,$kam,$kbm);
$dec00=de00($cl,$ca,$cb,$clm,$cam,$cbm);
$dem00=de00($ml,$ma,$mb,$mlm,$mam,$mbm);
$dey00=de00($yl,$ya,$yb,$ylm,$yam,$ybm);
$der00=de00($rl,$ra,$rb,$rlm,$ram,$rbm);
$degr00=de00($grl,$gra,$grb,$grlm,$gram,$grbm);
$deb00=de00($bl,$ba,$bb,$blm,$bam,$bbm);
$dk176=de00($kl,$ka,$kb,$k1l,$k1a,$k1b);
$dk276=de00($kl,$ka,$kb,$k2l,$k2a,$k2b);
$dk376=de00($kl,$ka,$kb,$k3l,$k3a,$k3b);
$dk476=de00($kl,$ka,$kb,$k4l,$k4a,$k4b);
$dk576=de00($kl,$ka,$kb,$k5l,$k5a,$k5b);
$dk676=de00($kl,$ka,$kb,$k6l,$k6a,$k6b);
$dk776=de00($kl,$ka,$kb,$k7l,$k7a,$k7b);
$dk876=de00($kl,$ka,$kb,$k8l,$k8a,$k8b);
$dk976=de00($kl,$ka,$kb,$k9l,$k9a,$k9b);
$dk1076=de00($kl,$ka,$kb,$k10l,$k10a,$k10b);
$dk1176=de00($kl,$ka,$kb,$k11l,$k11a,$k11b);
$dk1276=de00($kl,$ka,$kb,$k12l,$k12a,$k12b);
$dk1376=de00($kl,$ka,$kb,$k13l,$k13a,$k13b);
$dk1476=de00($kl,$ka,$kb,$k14l,$k14a,$k14b);
$dk1576=de00($kl,$ka,$kb,$k15l,$k15a,$k15b);
$dk1676=de00($kl,$ka,$kb,$k16l,$k16a,$k16b);
$dk1776=de00($kl,$ka,$kb,$k17l,$k17a,$k17b);
$dk1876=de00($kl,$ka,$kb,$k18l,$k18a,$k18b);
$dk1976=de00($kl,$ka,$kb,$k19l,$k19a,$k19b);
$dk2076=de00($kl,$ka,$kb,$k20l,$k20a,$k20b);
$dk2176=de00($kl,$ka,$kb,$k21l,$k21a,$k21b);
$dk2276=de00($kl,$ka,$kb,$k22l,$k22a,$k22b);
$dk2376=de00($kl,$ka,$kb,$k23l,$k23a,$k23b);
$dk2476=de00($kl,$ka,$kb,$k24l,$k24a,$k24b);
$dk2576=de00($kl,$ka,$kb,$k25l,$k25a,$k25b);
$dk2676=de00($kl,$ka,$kb,$k26l,$k26a,$k26b);
$dk2776=de00($kl,$ka,$kb,$k27l,$k27a,$k27b);
$dk2876=de00($kl,$ka,$kb,$k28l,$k28a,$k28b);
$dk2976=de00($kl,$ka,$kb,$k29l,$k29a,$k29b);
$dk3076=de00($kl,$ka,$kb,$k30l,$k30a,$k30b);
$kmin=min($dk176,$dk276,$dk376,$dk476,$dk576,$dk676,$dk776,$dk876,$dk976,$dk1076,$dk1176,$dk1276,$dk1376,$dk1476,$dk1576,$dk1676,$dk1776,$dk1876,$dk1976,$dk2076,$dk2176,$dk2276,$dk2376,$dk2476,$dk2576,$dk2676,$dk2776,$dk2876,$dk2976,$dk3076);
// $dk194=de94($kl,$ka,$kb,$k1l,$k1a,$k1b);
//echo "<br>Line 1020";
?>
<?php if ($dk176==$kmin){ $kopt='1';$koptD=$k1dd;$koptL=$k1l;$kopta=$k1a;$koptb=$k1b;}?>
<?php if ($dk276==$kmin){ $kopt='2';$koptD=$k2dd;$koptL=$k2l;$kopta=$k2a;$koptb=$k2b;}?>
<?php if ($dk376==$kmin){ $kopt='3';$koptD=$k3dd;$koptL=$k3l;$kopta=$k3a;$koptb=$k3b;}?>
<?php if ($dk476==$kmin){ $kopt='4';$koptD=$k4dd;$koptL=$k4l;$kopta=$k4a;$koptb=$k4b;}?>
<?php if ($dk576==$kmin){ $kopt='5';$koptD=$k5dd;$koptL=$k5l;$kopta=$k5a;$koptb=$k5b;}?>
<?php if ($dk676==$kmin){ $kopt='6';$koptD=$k6dd;$koptL=$k6l;$kopta=$k6a;$koptb=$k6b;}?>
<?php if ($dk776==$kmin){ $kopt='7';$koptD=$k7dd;$koptL=$k7l;$kopta=$k7a;$koptb=$k7b;}?>
<?php if ($dk876==$kmin){ $kopt='8';$koptD=$k8dd;$koptL=$k8l;$kopta=$k8a;$koptb=$k8b; }?>
<?php if ($dk976==$kmin){ $kopt='9';$koptD=$k9dd;$koptL=$k9l;$kopta=$k9a;$koptb=$k9b;}?>
<?php if ($dk1076==$kmin){ $kopt='10';$koptD=$k10dd;$koptL=$k10l;$kopta=$k10a;$koptb=$k10b;}?>
<?php if ($dk1176==$kmin){ $kopt='11';$koptD=$k11dd;$koptL=$k11l;$kopta=$k11a;$koptb=$k11b;}?>
<?php if ($dk1276==$kmin){ $kopt='12';$koptD=$k12dd;$koptL=$k12l;$kopta=$k12a;$koptb=$k12b;}?>
<?php if ($dk1376==$kmin){ $kopt='13';$koptD=$k13dd;$koptL=$k13l;$kopta=$k13a;$koptb=$k13b;}?>
<?php if ($dk1476==$kmin){ $kopt='14';$koptD=$k14dd;$koptL=$k14l;$kopta=$k14a;$koptb=$k14b;}?>
<?php if ($dk1576==$kmin){ $kopt='15';$koptD=$k15dd;$koptL=$k15l;$kopta=$k15a;$koptb=$k15b;}?>
<?php if ($dk1676==$kmin){ $kopt='16';$koptD=$k16dd;$koptL=$k16l;$kopta=$k16a;$koptb=$k16b;}?>
<?php if ($dk1776==$kmin){ $kopt='17';$koptD=$k17dd;$koptL=$k17l;$kopta=$k17a;$koptb=$k17b;}?>
<?php if ($dk1876==$kmin){ $kopt='18';$koptD=$k18dd;$koptL=$k18l;$kopta=$k18a;$koptb=$k18b;}?>
<?php if ($dk1976==$kmin){ $kopt='19';$koptD=$k19dd;$koptL=$k19l;$kopta=$k19a;$koptb=$k19b;}?>
<?php if ($dk2076==$kmin){ $kopt='20';$koptD=$k20dd;$koptL=$k20l;$kopta=$k20a;$koptb=$k20b;}?>
<?php if ($dk2176==$kmin){ $kopt='21';$koptD=$k21dd;$koptL=$k21l;$kopta=$k21a;$koptb=$k21b;}?>
<?php if ($dk2276==$kmin){ $kopt='22';$koptD=$k22dd;$koptL=$k22l;$kopta=$k22a;$koptb=$k22b;}?>
<?php if ($dk2376==$kmin){ $kopt='23';$koptD=$k23dd;$koptL=$k23l;$kopta=$k23a;$koptb=$k23b;}?>
<?php if ($dk2476==$kmin){ $kopt='24';$koptD=$k24dd;$koptL=$k24l;$kopta=$k24a;$koptb=$k24b;}?>
<?php if ($dk2576==$kmin){ $kopt='25';$koptD=$k25dd;$koptL=$k25l;$kopta=$k25a;$koptb=$k25b;}?>
<?php if ($dk2676==$kmin){ $kopt='26';$koptD=$k26dd;$koptL=$k26l;$kopta=$k26a;$koptb=$k26b;}?>
<?php if ($dk2776==$kmin){ $kopt='27';$koptD=$k27dd;$koptL=$k27l;$kopta=$k27a;$koptb=$k27b;}?>
<?php if ($dk2876==$kmin){ $kopt='28';$koptD=$k28dd;$koptL=$k28l;$kopta=$k28a;$koptb=$k28b;}?>
<?php if ($dk2976==$kmin){ $kopt='29';$koptD=$k29dd;$koptL=$k29l;$kopta=$k29a;$koptb=$k29b;}?>
<?php if ($dk3076==$kmin){ $kopt='30';$koptD=$k30dd;$koptL=$k30l;$kopta=$k30a;$koptb=$k30b;}
///////////////////////////////sec R
//echo "<br>Line 1266";
$dr176=de00($rl,$ra,$rb,$r1l,$r1a,$r1b);
$dr276=de00($rl,$ra,$rb,$r2l,$r2a,$r2b);
$dr376=de00($rl,$ra,$rb,$r3l,$r3a,$r3b);
$dr476=de00($rl,$ra,$rb,$r4l,$r4a,$r4b);
$dr576=de00($rl,$ra,$rb,$r5l,$r5a,$r5b);
$dr676=de00($rl,$ra,$rb,$r6l,$r6a,$r6b);
$dr776=de00($rl,$ra,$rb,$r7l,$r7a,$r7b);
$dr876=de00($rl,$ra,$rb,$r8l,$r8a,$r8b);
$dr976=de00($rl,$ra,$rb,$r9l,$r9a,$r9b);
$dr1076=de00($rl,$ra,$rb,$r10l,$r10a,$r10b);
$dr1176=de00($rl,$ra,$rb,$r11l,$r11a,$r11b);
$dr1276=de00($rl,$ra,$rb,$r12l,$r12a,$r12b);
$dr1376=de00($rl,$ra,$rb,$r13l,$r13a,$r13b);
$dr1476=de00($rl,$ra,$rb,$r14l,$r14a,$r14b);
$dr1576=de00($rl,$ra,$rb,$r15l,$r15a,$r15b);
$dr1676=de00($rl,$ra,$rb,$r16l,$r16a,$r16b);
$dr1776=de00($rl,$ra,$rb,$r17l,$r17a,$r17b);
$dr1876=de00($rl,$ra,$rb,$r18l,$r18a,$r18b);
$dr1976=de00($rl,$ra,$rb,$r19l,$r19a,$r19b);
$dr2076=de00($rl,$ra,$rb,$r20l,$r20a,$r20b);
$dr2176=de00($rl,$ra,$rb,$r21l,$r21a,$r21b);
$dr2276=de00($rl,$ra,$rb,$r22l,$r22a,$r22b);
$dr2376=de00($rl,$ra,$rb,$r23l,$r23a,$r23b);
$dr2476=de00($rl,$ra,$rb,$r24l,$r24a,$r24b);
$dr2576=de00($rl,$ra,$rb,$r25l,$r25a,$r25b);
$dr2676=de00($rl,$ra,$rb,$r26l,$r26a,$r26b);
$dr2776=de00($rl,$ra,$rb,$r27l,$r27a,$r27b);
$dr2876=de00($rl,$ra,$rb,$r28l,$r28a,$r28b);
$dr2976=de00($rl,$ra,$rb,$r29l,$r29a,$r29b);
$dr3076=de00($rl,$ra,$rb,$r30l,$r30a,$r30b);
$rmin=min($dr176,$dr276,$dr376,$dr476,$dr576,$dr676,$dr776,$dr876,$dr976,$dr1076,$dr1176,$dr1276,$dr1376,$dr1476,$dr1576,$dr1676,$dr1776,$dr1876,$dr1976,$dr2076,$dr2176,$dr2276,$dr2376,$dr2476,$dr2576,$dr2676,$dr2776,$dr2876,$dr2976,$dr3076);
//$dm194=de94($ml,$ma,$mb,$m1l,$m1a,$m1b);
?>
<?php if ($dr176==$rmin){ $ropt='1';$roptD=$r1dd;if ($r1a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr276==$rmin){ $ropt='2';$roptD=$r2dd;if ($r2a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr376==$rmin){ $ropt='3';$roptD=$r3dd;if ($r3a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr476==$rmin){ $ropt='4';$roptD=$r4dd;if ($r4a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr576==$rmin){ $ropt='5';$roptD=$r5dd;if ($r5a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr676==$rmin){ $ropt='6';$roptD=$r6dd;if ($r6a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr776==$rmin){ $ropt='7';$roptD=$r7dd;if ($r7a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr876==$rmin){ $ropt='8';$roptD=$r8dd; if ($r8a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr976==$rmin){ $ropt='9';$roptD=$r9dd;if ($r9a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1076==$rmin){ $ropt='10';$roptD=$r10dd;if ($r10a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1176==$rmin){ $ropt='11';$roptD=$r11dd;if ($r11a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1276==$rmin){ $ropt='12';$roptD=$r12dd;if ($r12a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1376==$rmin){ $ropt='13';$roptD=$r13dd;if ($r13a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1476==$rmin){ $ropt='14';$roptD=$r14dd;if ($r14a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1576==$rmin){ $ropt='15';$roptD=$r15dd;if ($r15a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1676==$rmin){ $ropt='16';$roptD=$r16dd;if ($r16a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1776==$rmin){ $ropt='17';$roptD=$r17dd;if ($r17a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1876==$rmin){ $ropt='18';$roptD=$r18dd;if ($r18a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1976==$rmin){ $ropt='19';$roptD=$r19dd;if ($r19a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2076==$rmin){ $ropt='20';$roptD=$r20dd;if ($r20a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2176==$rmin){ $ropt='21';$roptD=$r21dd;if ($r21a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2276==$rmin){ $ropt='22';$roptD=$r22dd;if ($r22a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2376==$rmin){ $ropt='23';$roptD=$r23dd;if ($r23a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2476==$rmin){ $ropt='24';$roptD=$r24dd;if ($r24a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2576==$rmin){ $ropt='25';$roptD=$r25dd;if ($r25a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2676==$rmin){ $ropt='26';$roptD=$r26dd;if ($r26a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2776==$rmin){ $ropt='27';$roptD=$r27dd;if ($r27a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2876==$rmin){ $ropt='28';$roptD=$r28dd;if ($r28a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2976==$rmin){ $ropt='29';$roptD=$r29dd;if ($r29a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr3076==$rmin){ $ropt='30';$roptD=$r30dd;if ($r30a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php ///////////////////////////////sec G
$dgr176=de00($grl,$gra,$grb,$gr1l,$gr1a,$gr1b);
$dgr276=de00($grl,$gra,$grb,$gr2l,$gr2a,$gr2b);
$dgr376=de00($grl,$gra,$grb,$gr3l,$gr3a,$gr3b);
$dgr476=de00($grl,$gra,$grb,$gr4l,$gr4a,$gr4b);
$dgr576=de00($grl,$gra,$grb,$gr5l,$gr5a,$gr5b);
$dgr676=de00($grl,$gra,$grb,$gr6l,$gr6a,$gr6b);
$dgr776=de00($grl,$gra,$grb,$gr7l,$gr7a,$gr7b);
$dgr876=de00($grl,$gra,$grb,$gr8l,$gr8a,$gr8b);
$dgr976=de00($grl,$gra,$grb,$gr9l,$gr9a,$gr9b);
$dgr1076=de00($grl,$gra,$grb,$gr10l,$gr10a,$gr10b);
$dgr1176=de00($grl,$gra,$grb,$gr11l,$gr11a,$gr11b);
$dgr1276=de00($grl,$gra,$grb,$gr12l,$gr12a,$gr12b);
$dgr1376=de00($grl,$gra,$grb,$gr13l,$gr13a,$gr13b);
$dgr1476=de00($grl,$gra,$grb,$gr14l,$gr14a,$gr14b);
$dgr1576=de00($grl,$gra,$grb,$gr15l,$gr15a,$gr15b);
$dgr1676=de00($grl,$gra,$grb,$gr16l,$gr16a,$gr16b);
$dgr1776=de00($grl,$gra,$grb,$gr17l,$gr17a,$gr17b);
$dgr1876=de00($grl,$gra,$grb,$gr18l,$gr18a,$gr18b);
$dgr1976=de00($grl,$gra,$grb,$gr19l,$gr19a,$gr19b);
$dgr2076=de00($grl,$gra,$grb,$gr20l,$gr20a,$gr20b);
$dgr2176=de00($grl,$gra,$grb,$gr21l,$gr21a,$gr21b);
$dgr2276=de00($grl,$gra,$grb,$gr22l,$gr22a,$gr22b);
$dgr2376=de00($grl,$gra,$grb,$gr23l,$gr23a,$gr23b);
$dgr2476=de00($grl,$gra,$grb,$gr24l,$gr24a,$gr24b);
$dgr2576=de00($grl,$gra,$grb,$gr25l,$gr25a,$gr25b);
$dgr2676=de00($grl,$gra,$grb,$gr26l,$gr26a,$gr26b);
$dgr2776=de00($grl,$gra,$grb,$gr27l,$gr27a,$gr27b);
$dgr2876=de00($grl,$gra,$grb,$gr28l,$gr28a,$gr28b);
$dgr2976=de00($grl,$gra,$grb,$gr29l,$gr29a,$gr29b);
$dgr3076=de00($grl,$gra,$grb,$gr30l,$gr30a,$gr30b);
$grmin=min($dgr176,$dgr276,$dgr376,$dgr476,$dgr576,$dgr676,$dgr776,$dgr876,$dgr976,$dgr1076,$dgr1176,$dgr1276,$dgr1376,$dgr1476,$dgr1576,$dgr1676,$dgr1776,$dgr1876,$dgr1976,$dgr2076,$dgr2176,$dgr2276,$dgr2376,$dgr2476,$dgr2576,$dgr2676,$dgr2776,$dgr2876,$dgr2976,$dgr3076);
//$dm194=de94($ml,$ma,$mb,$m1l,$m1a,$m1b);
?>
<?php if ($dgr176==$grmin){ $gropt='1';$groptD=$gr1dd;if ($gr1a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr276==$grmin){ $gropt='2';$groptD=$gr2dd;if ($gr2a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr376==$grmin){ $gropt='3';$groptD=$gr3dd;if ($gr3a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr476==$grmin){ $gropt='4';$groptD=$gr4dd;if ($gr4a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr576==$grmin){ $gropt='5';$groptD=$gr5dd;if ($gr5a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr676==$grmin){ $gropt='6';$groptD=$gr6dd;if ($gr6a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr776==$grmin){ $gropt='7';$groptD=$gr7dd;if ($gr7a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr876==$grmin){ $gropt='8';$groptD=$gr8dd; if ($gr8a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr976==$grmin){ $gropt='9';$groptD=$gr9dd;if ($gr9a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1076==$grmin){ $gropt='10';$groptD=$gr10dd;if ($gr10a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1176==$grmin){ $gropt='11';$groptD=$gr11dd;if ($gr11a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1276==$grmin){ $gropt='12';$groptD=$gr12dd;if ($gr12a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1376==$grmin){ $gropt='13';$groptD=$gr13dd;if ($gr13a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1476==$grmin){ $gropt='14';$groptD=$gr14dd;if ($gr14a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1576==$grmin){ $gropt='15';$groptD=$gr15dd;if ($gr15a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1676==$grmin){ $gropt='16';$groptD=$gr16dd;if ($gr16a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1776==$grmin){ $gropt='17';$groptD=$gr17dd;if ($gr17a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1876==$grmin){ $gropt='18';$groptD=$gr18dd;if ($gr18a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1976==$grmin){ $gropt='19';$groptD=$gr19dd;if ($gr19a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2076==$grmin){ $gropt='20';$groptD=$gr20dd;if ($gr20a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2176==$grmin){ $gropt='21';$groptD=$gr21dd;if ($gr21a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2276==$grmin){ $gropt='22';$groptD=$gr22dd;if ($gr22a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2376==$grmin){ $gropt='23';$groptD=$gr23dd;if ($gr23a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2476==$grmin){ $gropt='24';$groptD=$gr24dd;if ($gr24a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2576==$grmin){ $gropt='25';$groptD=$gr25dd;if ($gr25a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2676==$grmin){ $gropt='26';$groptD=$gr26dd;if ($gr26a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2776==$grmin){ $gropt='27';$groptD=$gr27dd;if ($gr27a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2876==$grmin){ $gropt='28';$groptD=$gr28dd;if ($gr28a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2976==$grmin){ $gropt='29';$groptD=$gr29dd;if ($gr29a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr3076==$grmin){ $gropt='30';$groptD=$gr30dd;if ($gr30a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php ///////////////////////////////sec B
//echo "<br>Line 1410";
$db176=de00($bl,$ba,$bb,$b1l,$b1a,$b1b);
$db276=de00($bl,$ba,$bb,$b2l,$b2a,$b2b);
$db376=de00($bl,$ba,$bb,$b3l,$b3a,$b3b);
$db476=de00($bl,$ba,$bb,$b4l,$b4a,$b4b);
$db576=de00($bl,$ba,$bb,$b5l,$b5a,$b5b);
$db676=de00($bl,$ba,$bb,$b6l,$b6a,$b6b);
$db776=de00($bl,$ba,$bb,$b7l,$b7a,$b7b);
$db876=de00($bl,$ba,$bb,$b8l,$b8a,$b8b);
$db976=de00($bl,$ba,$bb,$b9l,$b9a,$b9b);
$db1076=de00($bl,$ba,$bb,$b10l,$b10a,$b10b);
$db1176=de00($bl,$ba,$bb,$b11l,$b11a,$b11b);
$db1276=de00($bl,$ba,$bb,$b12l,$b12a,$b12b);
$db1376=de00($bl,$ba,$bb,$b13l,$b13a,$b13b);
$db1476=de00($bl,$ba,$bb,$b14l,$b14a,$b14b);
$db1576=de00($bl,$ba,$bb,$b15l,$b15a,$b15b);
$db1676=de00($bl,$ba,$bb,$b16l,$b16a,$b16b);
$db1776=de00($bl,$ba,$bb,$b17l,$b17a,$b17b);
$db1876=de00($bl,$ba,$bb,$b18l,$b18a,$b18b);
$db1976=de00($bl,$ba,$bb,$b19l,$b19a,$b19b);
$db2076=de00($bl,$ba,$bb,$b20l,$b20a,$b20b);
$db2176=de00($bl,$ba,$bb,$b21l,$b21a,$b21b);
$db2276=de00($bl,$ba,$bb,$b22l,$b22a,$b22b);
$db2376=de00($bl,$ba,$bb,$b23l,$b23a,$b23b);
$db2476=de00($bl,$ba,$bb,$b24l,$b24a,$b24b);
$db2576=de00($bl,$ba,$bb,$b25l,$b25a,$b25b);
$db2676=de00($bl,$ba,$bb,$b26l,$b26a,$b26b);
$db2776=de00($bl,$ba,$bb,$b27l,$b27a,$b27b);
$db2876=de00($bl,$ba,$bb,$b28l,$b28a,$b28b);
$db2976=de00($bl,$ba,$bb,$b29l,$b29a,$b29b);
$db3076=de00($bl,$ba,$bb,$b30l,$b30a,$b30b);
$bmin=min($db176,$db276,$db376,$db476,$db576,$db676,$db776,$db876,$db976,$db1076,$db1176,$db1276,$db1376,$db1476,$db1576,$db1676,$db1776,$db1876,$db1976,$db2076,$db2176,$db2276,$db2376,$db2476,$db2576,$db2676,$db2776,$db2876,$db2976,$db3076);
//$dm194=de94($ml,$ma,$mb,$m1l,$m1a,$m1b);
?>
<?php if ($db176==$bmin){ $bopt='1';$boptD=$b1dd;if ($b1a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db276==$bmin){ $bopt='2';$boptD=$b2dd;if ($b2a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db376==$bmin){ $bopt='3';$boptD=$b3dd;if ($b3a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db476==$bmin){ $bopt='4';$boptD=$b4dd;if ($b4a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db576==$bmin){ $bopt='5';$boptD=$b5dd;if ($b5a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db676==$bmin){ $bopt='6';$boptD=$b6dd;if ($b6a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db776==$bmin){ $bopt='7';$boptD=$b7dd;if ($b7a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db876==$bmin){ $bopt='8';$boptD=$b8dd; if ($b8a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db976==$bmin){ $bopt='9';$boptD=$b9dd;if ($b9a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1076==$bmin){ $bopt='10';$boptD=$b10dd;if ($b10a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1176==$bmin){ $bopt='11';$boptD=$b11dd;if ($b11a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1276==$bmin){ $bopt='12';$boptD=$b12dd;if ($b12a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1376==$bmin){ $bopt='13';$boptD=$b13dd;if ($b13a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1476==$bmin){ $bopt='14';$boptD=$b14dd;if ($b14a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1576==$bmin){ $bopt='15';$boptD=$b15dd;if ($b15a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1676==$bmin){ $bopt='16';$boptD=$b16dd;if ($b16a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1776==$bmin){ $bopt='17';$boptD=$b17dd;if ($b17a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1876==$bmin){ $bopt='18';$boptD=$b18dd;if ($b18a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1976==$bmin){ $bopt='19';$boptD=$b19dd;if ($b19a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2076==$bmin){ $bopt='20';$boptD=$b20dd;if ($b20a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2176==$bmin){ $bopt='21';$boptD=$b21dd;if ($b21a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2276==$bmin){ $bopt='22';$boptD=$b22dd;if ($b22a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2376==$bmin){ $bopt='23';$boptD=$b23dd;if ($b23a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2476==$bmin){ $bopt='24';$boptD=$b24dd;if ($b24a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2576==$bmin){ $bopt='25';$boptD=$b25dd;if ($b25a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2676==$bmin){ $bopt='26';$boptD=$b26dd;if ($b26a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2776==$bmin){ $bopt='27';$boptD=$b27dd;if ($b27a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2876==$bmin){ $bopt='28';$boptD=$b28dd;if ($b28a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2976==$bmin){ $bopt='29';$boptD=$b29dd;if ($b29a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db3076==$bmin){ $bopt='30';$boptD=$b30dd;if ($b30a>74) {$bdi="-";} else {$bdi='+';}}
?>
<!-- <table width="200" border="1" align="center">
<tr>
<td>
<div align="center">
<?php // content="text/plain; charset=utf-8"
echo "<br>Line 1491";
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');
require_once ('../jpgraph/jpgraph_line.php');
require_once ('../jpgraph/jpgraph_plotline.php');
?>
<?php // content="text/plain; charset=utf-8"
unlink('scatterC.png');
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');
$datax = array($c1dd,$c2dd,$c3dd,$c4dd,$c5dd,$c6dd,$c7dd,$c8dd,$c9dd,$c10dd,$c11dd,$c12dd,$c13dd,$c14dd,$c15dd,$c16dd,$c17dd,$c18dd,$c19dd,$c20dd,$c21dd,$c22dd,$c23dd,$c24dd,$c25dd,$c26dd,$c27dd,$c28dd,$c29dd,$c30dd);
$datay = array($dc176,$dc276,$dc376,$dc476,$dc576,$dc676,$dc776,$dc876,$dc976,$dc1076,$dc1176,$dc1276,$dc1376,$dc1476,$dc1576,$dc1676,$dc1776,$dc1876,$dc1976,$dc2076,$dc2176,$dc2276,$dc2376,$dc2476,$dc2576,$dc2676,$dc2776,$dc2876,$dc2976,$dc3076);
$dataxT = array($coptD,$cdm);
$datayT = array($cmin,$dec00);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->xaxis->title->Set("density");
$graph->yaxis->title->Set("de00");
$graph->title->Set("de00/density");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
//$graph->xgrid->Show();
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"#00ffff",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#00ffff");
$sp2->mark->SetWidth(3);
$sline = new PlotLine(HORIZONTAL,1.5,'black');
//$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,3.5,'#ff9900');
$graph->Add($sline);
//$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
$graph->Stroke('scatterC.png');
?>
<img src="scatterC.png">
</div>
</td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterM.png');
$datax = array($m1dd,$m2dd,$m3dd,$m4dd,$m5dd,$m6dd,$m7dd,$m8dd,$m9dd,$m10dd,$m11dd,$m12dd,$m13dd,$m14dd,$m15dd,$m16dd,$m17dd,$m18dd,$m19dd,$m20dd,$m21dd,$m22dd,$m23dd,$m24dd,$m25dd,$m26dd,$m27dd,$m28dd,$m29dd,$m30dd);
$datay = array($dm176,$dm276,$dm376,$dm476,$dm576,$dm676,$dm776,$dm876,$dm976,$dm1076,$dm1176,$dm1276,$dm1376,$dm1476,$dm1576,$dm1676,$dm1776,$dm1876,$dm1976,$dm2076,$dm2176,$dm2276,$dm2376,$dm2476,$dm2576,$dm2676,$dm2776,$dm2876,$dm2976,$dm3076);
$dataxT = array($moptD,$mdm);
$datayT = array($mmin,$dem00);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("M scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"#ff99ff",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#ff99ff");
$sp2->mark->SetWidth(3);
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,3.5,'#ff9900');
$graph->Add($sline);
//$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
$graph->Stroke('scatterM.png');
?>
<img src="scatterM.png">
</div></td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterY.png');
$datax = array($y1dd,$y2dd,$y3dd,$y4dd,$y5dd,$y6dd,$y7dd,$y8dd,$y9dd,$y10dd,$y11dd,$y12dd,$y13dd,$y14dd,$y15dd,$y16dd,$y17dd,$y18dd,$y19dd,$y20dd,$y21dd,$y22dd,$y23dd,$y24dd,$y25dd,$y26dd,$y27dd,$y28dd,$y29dd,$y30dd);
$datay = array($dy176,$dy276,$dy376,$dy476,$dy576,$dy676,$dy776,$dy876,$dy976,$dy1076,$dy1176,$dy1276,$dy1376,$dy1476,$dy1576,$dy1676,$dy1776,$dy1876,$dy1976,$dy2076,$dy2176,$dy2276,$dy2376,$dy2476,$dy2576,$dy2676,$dy2776,$dy2876,$dy2976,$dy3076);
$dataxT = array($yoptD,$ydm);
$datayT = array($ymin,$dey00);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("Y scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
//$graph->xgrid->Show();
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"#ffff99",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#ffff99");
$sp2->mark->SetWidth(3);
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,3.5,'#ff9900');
$graph->Add($sline);
//$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
$graph->Stroke('scatterY.png');
?>
<img src="scatterY.png">
</div></td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterK.png');
$datax = array($k1dd,$k2dd,$k3dd,$k4dd,$k5dd,$k6dd,$k7dd,$k8dd,$k9dd,$k10dd,$k11dd,$k12dd,$k13dd,$k14dd,$k15dd,$k16dd,$k17dd,$k18dd,$k19dd,$k20dd,$k21dd,$k22dd,$k23dd,$k24dd,$k25dd,$k26dd,$k27dd,$k28dd,$k29dd,$k30dd);
$datay = array($dk176,$dk276,$dk376,$dk476,$dk576,$dk676,$dk776,$dk876,$dk976,$dk1076,$dk1176,$dk1276,$dk1376,$dk1476,$dk1576,$dk1676,$dk1776,$dk1876,$dk1976,$dk2076,$dk2176,$dk2276,$dk2376,$dk2476,$dk2576,$dk2676,$dk2776,$dk2876,$dk2976,$dk3076);
//print_r($datax);
$dataxT = array($koptD,$kdm);
$datayT = array($kmin,$dek00);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("K scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"gray",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("gray");
$sp2->mark->SetWidth(3);
//$sp2->xgrid->Show();
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,3.5,'#ff9900');
$graph->Add($sline);
//$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
//$graph->AddLine($line);
$graph->Stroke('scatterK.png');
//echo "<br>Line 1684";
?>
<img src="scatterK.png">
</div></td>
</tr>
<tr>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterR.png');
$datax = array($r1dd,$r2dd,$r3dd,$r4dd,$r5dd,$r6dd,$r7dd,$r8dd,$r9dd,$r10dd,$r11dd,$r12dd,$r13dd,$r14dd,$r15dd,$r16dd,$r17dd,$r18dd,$r19dd,$r20dd,$r21dd,$r22dd,$r23dd,$r24dd,$r25dd,$r26dd,$r27dd,$r28dd,$r29dd,$r30dd);
$datay = array($dr176,$dr276,$dr376,$dr476,$dr576,$dr676,$dr776,$dr876,$dr976,$dr1076,$dr1176,$dr1276,$dr1376,$dr1476,$dr1576,$dr1676,$dr1776,$dr1876,$dr1976,$dr2076,$dr2176,$dr2276,$dr2376,$dr2476,$dr2576,$dr2676,$dr2776,$dr2876,$dr2976,$dr3076);
//print_r($datax);
$dataxT = array($roptD,$rdm);
$datayT = array($rmin,$der00);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("R scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"gray",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#fa6b53");
$sp2->mark->SetWidth(3);
//$sp2->xgrid->Show();
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
//$graph->AddLine($line);
$graph->Stroke('scatterR.png');
?>
<img src="scatterR.png">
</div></td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterG.png');
$datax = array($gr1dd,$gr2dd,$gr3dd,$gr4dd,$gr5dd,$gr6dd,$gr7dd,$gr8dd,$gr9dd,$gr10dd,$gr11dd,$gr12dd,$gr13dd,$gr14dd,$gr15dd,$gr16dd,$gr17dd,$gr18dd,$gr19dd,$gr20dd,$gr21dd,$gr22dd,$gr23dd,$gr24dd,$gr25dd,$gr26dd,$gr27dd,$gr28dd,$gr29dd,$gr30dd);
$datay = array($dgr176,$dgr276,$dgr376,$dgr476,$dgr576,$dgr676,$dgr776,$dgr876,$dgr976,$dgr1076,$dgr1176,$dgr1276,$dgr1376,$dgr1476,$dgr1576,$dgr1676,$dgr1776,$dgr1876,$dgr1976,$dgr2076,$dgr2176,$dgr2276,$dgr2376,$dgr2476,$dgr2576,$dgr2676,$dgr2776,$dgr2876,$dgr2976,$dgr3076);
//print_r($datax);
$dataxT = array($groptD,$grdm);
$datayT = array($grmin,$degr00);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("G scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"gray",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#8afa53");
$sp2->mark->SetWidth(3);
//$sp2->xgrid->Show();
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
//$graph->AddLine($line);
$graph->Stroke('scatterG.png');
?>
<img src="scatterG.png">
</div></td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterB.png');
$datax = array($b1dd,$b2dd,$b3dd,$b4dd,$b5dd,$b6dd,$b7dd,$b8dd,$b9dd,$b10dd,$b11dd,$b12dd,$b13dd,$b14dd,$b15dd,$b16dd,$b17dd,$b18dd,$b19dd,$b20dd,$b21dd,$b22dd,$b23dd,$b24dd,$b25dd,$b26dd,$b27dd,$b28dd,$b29dd,$b30dd);
$datay = array($db176,$db276,$db376,$db476,$db576,$db676,$db776,$db876,$db976,$db1076,$db1176,$db1276,$db1376,$db1476,$db1576,$db1676,$db1776,$db1876,$db1976,$db2076,$db2176,$db2276,$db2376,$db2476,$db2576,$db2676,$db2776,$db2876,$db2976,$db3076);
//print_r($datax);
$dataxT = array($boptD,$bdm);
$datayT = array($bmin,$deb00);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("B scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"gray",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#5357fa");
$sp2->mark->SetWidth(3);
//$sp2->xgrid->Show();
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
//$graph->AddLine($line);
$graph->Stroke('scatterB.png');
?>
<img src="scatterB.png">
</div></td>
</tr>
</table>
<table width="200" border="1" align="center">
<tr>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterGuR.png');
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');
//${'s'.($minGroupRid-1).'a'
$datax = array($mam,$ram,$yam,$gram,$cam,$bam,$mam);
$datay = array($mbm,$rbm,$ybm,$grbm,$cbm,$bbm,$mbm);
$datax2 = array($ma,$ra,$ya,$gra,$ca,$ba,$ma);
$datay2 = array($mb,$rb,$yb,$grb,$cb,$bb,$mb);
$datax3 = array($hexCa3,$hexCa6,$hexCa9,$hexCa12,$hexCa15,$hexCa18,$hexCa21,$hexCa24,$hexCa27,$hexCa30);
$datay3 = array($hexCb3,$hexCb6,$hexCb9,$hexCb12,$hexCb15,$hexCb18,$hexCb21,$hexCb24,$hexCb27,$hexCb30);
$dataxr = array($hexRa5,$hexRa10,$hexRa15,$hexRa20,$hexRa25,$hexRa30);
$datayr = array($hexRb5,$hexRb10,$hexRb15,$hexRb20,$hexRb25,$hexRb30);
$dataxm = array($hexMa3,$hexMa6,$hexMa9,$hexMa12,$hexMa15,$hexMa18,$hexMa21,$hexMa24,$hexMa27,$hexMa30);
$dataym = array($hexMb3,$hexMb6,$hexMb9,$hexMb12,$hexMb15,$hexMb18,$hexMb21,$hexMb24,$hexMb27,$hexMb30);
$dataxg = array($hexGRa5,$hexGRa10,$hexGRa15,$hexGRa20,$hexGRa25,$hexGRa30);
$datayg = array($hexGRb5,$hexGRb10,$hexGRb15,$hexGRb20,$hexGRb25,$hexGRb30);
$dataxy = array($hexYa3,$hexYa6,$hexYa9,$hexYa12,$hexYa15,$hexYa18,$hexYa21,$hexYa24,$hexYa27,$hexYa30);
$datayy = array($hexYb3,$hexYb6,$hexYb9,$hexYb12,$hexYb15,$hexYb18,$hexYb21,$hexYb24,$hexYb27,$hexYb30);
$dataxb = array($hexBa5,$hexBa10,$hexBa15,$hexBa20,$hexBa25,$hexBa30);
$datayb = array($hexBb5,$hexBb10,$hexBb15,$hexBb20,$hexBb25,$hexBb30);
//$datax = array($k1d,$k2d,$k3d);
//$datay = array($dk176,$dk276,$dk376);
$graph = new Graph(600,600);
$graph->SetScale("linlin");
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("Target on Blue");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$graph->SetBackgroundImage("lab.png",BGIMG_FILLFRAME);
$sp1 = new ScatterPlot($datay,$datax);
$sp1->mark->SetType(MARK_FILLEDCIRCLE);
$sp1->mark->SetFillColor("red");
$sp2 = new ScatterPlot($datay2,$datax2);//F39
$sp2->SetLinkPoints(true,"#55bbdd",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#55bbdd");
$sp2->mark->SetWidth(3);
$spmh = new ScatterPlot($datay,$datax);//measure hex
$spmh->SetLinkPoints(true,"red",2);
$spmh->mark->SetType(MARK_FILLEDCIRCLE);
$spmh->mark->SetFillColor("red");
$spmh->mark->SetWidth(3);
$sp3 = new ScatterPlot($datay3,$datax3);
//$sp3->mark->SetType(MARK_FILLEDCIRCLE);
$sp3->mark->SetFillColor("#55bbdd");
$spr = new ScatterPlot($datayr,$dataxr);
//$spr->mark->SetType(MARK_FILLEDCIRCLE);
$spr->mark->SetFillColor("#f70404");
$spm = new ScatterPlot($dataym,$dataxm);
//$spm->mark->SetType(MARK_FILLEDCIRCLE);
$spm->mark->SetFillColor("#e13fcc");
$spg = new ScatterPlot($datayg,$dataxg);
//$spg->mark->SetType(MARK_FILLEDCIRCLE);
$spg->mark->SetFillColor("#3fe14e");
$spy = new ScatterPlot($datayy,$dataxy);
//$spy->mark->SetType(MARK_FILLEDCIRCLE);
$spy->mark->SetFillColor("#f3fb12");
$spb = new ScatterPlot($datayb,$dataxb);
//$spb->mark->SetType(MARK_FILLEDCIRCLE);
$spb->mark->SetFillColor("#1f2eef");
$graph->Add($sp2);
$graph->Add($sp3);
$graph->Add($spr);
$graph->Add($spm);
$graph->Add($spg);
$graph->Add($spy);
$graph->Add($spb);
$graph->Add($sp1);
$graph->Add($spmh);
$graph->Stroke('scatterGuR.png');
?>
<script src='https://www.google.com/jsapi'></script><table width='200' align='center'><tr><td><div id='chart1'></div></td></tr></table>
<img src="scatterGuR.png">
</div></td>
</tr>
</table>
-->
<?php // content="text/plain; charset=utf-8"
unlink('scatterGuC.png');
unlink('graphLC.gif');
//echo "line 1978";
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');
require_once ('../jpgraph/jpgraph_mgraph.php');
//${'s'.($minGroupRid-1).'a'
$dataxC = array($ca);
$datayC = array($cb);
//$dataCL = array($cl);
$dataxCf = array($ca+0.5);
$datayCf = array($cb+0.7);
$datayCdeg = array($degCT);
$dataxCo = array($copta);
$datayCo = array($coptb);
$dataxCOH =array($coptHa);
$datayCOH =array($coptHb);
$dataxCOX =array($coptXa);
$datayCOX =array($coptXb);
$dataxCm = array($cam);
$datayCm = array($cbm);
$datax3 = array($hexCa3,$hexCa6,$hexCa9,$hexCa12,$hexCa15,$hexCa18,$hexCa21,$hexCa24,$hexCa27,$hexCa30);
$datay3 = array($hexCb3,$hexCb6,$hexCb9,$hexCb12,$hexCb15,$hexCb18,$hexCb21,$hexCb24,$hexCb27,$hexCb30);
$dataD3 = array(1.2,1.3,1.4,1.5,1.6,1.7,1.8,1.9,2.0,2.1);
$graph = new Graph(220,220);
//$graph->SetScale("linlin",-58,-46,-38,-30);
$graph->SetScale("linlin");
$graph->SetAxisStyle(AXSTYLE_BOXIN);
$graph->yscale->ticks->Set(1);
$graph->xscale->ticks->Set(1);
$graph->img->SetMargin(30,20,20,20);
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$graph->SetBackgroundImage("LabC.png",2);
$graph->SetBackgroundImageMix(100);
$graph->xaxis->title->Set("a*");
$graph->yaxis->title->Set("b*");
// Format the legend box
$graph->legend->SetColor('navy');
//$graph->legend->SetFillColor('lightgreen');
$graph->legend->SetLineWeight(1);
$graph->legend->SetFont(FF_ARIAL,FS_BOLD,8);
//$graph->legend->SetShadow('[email protected]',3);
//$graph->legend->SetAbsPos(15,120,'right','bottom');
$graph->legend->SetPos(0.1,0.1,'right','top');
$sp3 = new ScatterPlot($datay3,$datax3);
$sp3->mark->SetType(MARK_FILLEDCIRCLE);
$sp3->mark->SetFillColor("#55bbdd");
$sp3->mark->SetWidth(3);
$sp3->link->Show();
$sp3->link->SetWeight(2);
$sp3->link->SetColor('[email protected]');
//$sp3->value->Show($dataD3);
$spC = new ScatterPlot($datayC,$dataxC);
$spC->mark->SetWidth(8);
$spC->mark->SetType(MARK_IMG_MBALL,'green');
//$spC->SetLegend('Target');
//$graph->legend->SetShadow('[email protected]',5);
//$spC->value->Show();
//$spC->SetLegend('Target');
//$spC->SetColor("red");
//$spC->mark->SetType(MARK_IMG_MBALL,5,0.6);
$spCm = new ScatterPlot($datayCm,$dataxCm);
$spCm->mark->SetType(MARK_IMG_MBALL,'red');
$spCm->mark->SetWidth(8);
//$spCm->value->Show();
//$spCm->SetLegend('Sample');
$spCo = new ScatterPlot($datayCo,$dataxCo);
$spCo->mark->SetType(MARK_IMG_STAR,'green');
$spCo->mark->SetWidth(8);
//$spCo->SetLegend('Best de');
$spCOH = new ScatterPlot($datayCOH,$dataxCOH);
$spCOH->mark->SetType(MARK_IMG_STAR,'pink');
$spCOH->mark->SetWidth(8);
//$spCOH->SetLegend('Best Hue');
$spCOX = new ScatterPlot($datayCOX,$dataxCOX);
$spCOX->mark->SetType(MARK_IMG_STAR,'purple');
$spCOX->mark->SetWidth(8);
// Setup the field plot
$fp = new FieldPlot($datayCf,$dataxCf,$datayCdeg);
$fp->arrow->SetSize(40,2);
$fp->arrow->SetColor('navy');
$graph->Add($sp3);
$graph->Add($spCOX);
$graph->Add($spCOH);
$graph->Add($spC);
$graph->Add($spCo);
$graph->Add($spCm);
$graph->Add($fp);
$mgraph = new MGraph();
$mgraph->SetImgFormat('jpeg',60);
$mgraph->SetMargin(2,2,2,2);
$mgraph->SetFrame(true,'darkgray',2);
$mgraph->SetBackgroundImage('LabC.jpg');
//$mgraph->AddMix($sp3,0,0,85);
//$mgraph->AddMix($graph2,0,250,85);
//$graph->Add($mgraph);
$graph->Stroke('scatterGuC.png');
include 'graphFixL.php';
GenGraphLC($clm-$cl,$coptL-$cl,$coptXL-$cl,$coptHL-$cl);
unlink('scatterGuM.png');
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');
require_once ('../jpgraph/jpgraph_mgraph.php');
$dataxM = array($ma);
$datayM = array($mb);
$dataxMf = array($ma-0.5);
$datayMf = array($mb+0.2);
$datayMdeg = array($degMT);
$dataxMo = array($mopta);
$datayMo = array($moptb);
$dataxMm = array($mam);
$datayMm = array($mbm);
$datax3 = array($hexMa3,$hexMa6,$hexMa9,$hexMa12,$hexMa15,$hexMa18,$hexMa21,$hexMa24,$hexMa27,$hexMa30);
$datay3 = array($hexMb3,$hexMb6,$hexMb9,$hexMb12,$hexMb15,$hexMb18,$hexMb21,$hexMb24,$hexMb27,$hexMb30);
$dataxCOH =array($moptHa);
$datayCOH =array($moptHb);
$dataxCOX =array($moptXa);
$datayCOX =array($moptXb);
$graph = new Graph(220,220);
//$graph->SetScale("linlin",-58,-46,-38,-30);
$graph->SetScale("linlin");
$graph->SetAxisStyle(AXSTYLE_BOXIN);
$graph->yscale->ticks->Set(1);
$graph->xscale->ticks->Set(1);
$graph->img->SetMargin(20,30,20,20);
$graph->title->Set("SID scatter M plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$graph->SetBackgroundImage("LabM.png",2);
$graph->SetBackgroundImageMix(100);
$sp3 = new ScatterPlot($datay3,$datax3);
$sp3->mark->SetType(MARK_FILLEDCIRCLE);
$sp3->mark->SetFillColor("#55bbdd");
$sp3->mark->SetWidth(3);
$sp3->link->Show();
$sp3->link->SetWeight(2);
$sp3->link->SetColor('[email protected]');
$spC = new ScatterPlot($datayM,$dataxM);
$spC->mark->SetType(MARK_IMG_MBALL,'green');
$spC->mark->SetWidth(8);
$spCm = new ScatterPlot($datayMm,$dataxMm);
$spCm->mark->SetType(MARK_IMG_MBALL,'red');
$spCm->mark->SetWidth(8);
$spCo = new ScatterPlot($datayMo,$dataxMo);
$spCo->mark->SetType(MARK_IMG_STAR,'green');
$spCo->mark->SetWidth(8);
$spCOH = new ScatterPlot($datayCOH,$dataxCOH);
$spCOH->mark->SetType(MARK_IMG_STAR,'pink');
$spCOH->mark->SetWidth(8);
$spCOX = new ScatterPlot($datayCOX,$dataxCOX);
$spCOX->mark->SetType(MARK_IMG_STAR,'purple');
$spCOX->mark->SetWidth(8);
$fp = new FieldPlot($datayMf,$dataxMf,$datayMdeg);
$fp->arrow->SetSize(40,2);
$fp->arrow->SetColor('navy');
$graph->Add($sp3);
$graph->Add($spCOX);
$graph->Add($spCOH);
$graph->Add($spC);
$graph->Add($spCo);
$graph->Add($spCm);
$graph->Add($fp);
$graph->Stroke('scatterGuM.png');
GenGraphLM($mlm-$ml,$moptL-$ml,$moptXL-$ml,$moptHL-$ml);
unlink('scatterGuY.png');
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');
require_once ('../jpgraph/jpgraph_mgraph.php');
$dataxY = array($ya);
$datayY = array($yb);
$dataxYf = array($ya+0.1);
$datayYf = array($yb-1);
$datayYdeg = array($degYT);
$dataxYo = array($yopta);
$datayYo = array($yoptb);
$dataxYm = array($yam);
$datayYm = array($ybm);
$datax3 = array($hexYa3,$hexYa6,$hexYa9,$hexYa12,$hexYa15,$hexYa18,$hexYa21,$hexYa24,$hexYa27,$hexYa30);
$datay3 = array($hexYb3,$hexYb6,$hexYb9,$hexYb12,$hexYb15,$hexYb18,$hexYb21,$hexYb24,$hexYb27,$hexYb30);
$dataxCOH =array($yoptHa);
$datayCOH =array($yoptHb);
$dataxCOX =array($yoptXa);
$datayCOX =array($yoptXb);
$graph = new Graph(220,220);
//$graph->SetScale("linlin",-58,-46,-38,-30);
$graph->SetScale("linlin");
$graph->SetAxisStyle(AXSTYLE_BOXIN);
$graph->yscale->ticks->Set(1);
$graph->xscale->ticks->Set(1);
$graph->img->SetMargin(30,30,20,20);
$graph->title->Set("SID scatter Y plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$graph->SetBackgroundImage("LabY.png",2);
$graph->SetBackgroundImageMix(100);
$sp3 = new ScatterPlot($datay3,$datax3);
$sp3->mark->SetType(MARK_FILLEDCIRCLE);
$sp3->mark->SetFillColor("#55bbdd");
$sp3->mark->SetWidth(3);
$sp3->link->Show();
$sp3->link->SetWeight(2);
$sp3->link->SetColor('[email protected]');
$spC = new ScatterPlot($datayY,$dataxY);
$spC->mark->SetType(MARK_IMG_MBALL,'green');
$spC->mark->SetWidth(8);
$spCm = new ScatterPlot($datayYm,$dataxYm);
$spCm->mark->SetType(MARK_IMG_MBALL,'red');
$spCm->mark->SetWidth(8);
$spCo = new ScatterPlot($datayYo,$dataxYo);
$spCo->mark->SetType(MARK_IMG_STAR,'green');
$spCo->mark->SetWidth(8);
$spCOH = new ScatterPlot($datayCOH,$dataxCOH);
$spCOH->mark->SetType(MARK_IMG_STAR,'pink');
$spCOH->mark->SetWidth(8);
$spCOX = new ScatterPlot($datayCOX,$dataxCOX);
$spCOX->mark->SetType(MARK_IMG_STAR,'purple');
$spCOX->mark->SetWidth(8);
$fp = new FieldPlot($datayYf,$dataxYf,$datayYdeg);
$fp->arrow->SetSize(40,2);
$fp->arrow->SetColor('navy');
$graph->Add($sp3);
$graph->Add($spCOX);
$graph->Add($spCOH);
$graph->Add($spC);
$graph->Add($spCo);
$graph->Add($spCm);
$graph->Add($fp);
$graph->Stroke('scatterGuY.png');
GenGraphLY($ylm-$yl,$yoptL-$yl,$yoptXL-$yl,$yoptHL-$yl);
unlink('scatterGuK.png');
unlink('scatterGuG.png');
unlink('scatterGuG25.png');
unlink('scatterGuG75.png');
unlink('splineC.png');
unlink('splineM.png');
unlink('splineY.png');
unlink('splineK.png');
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_line.php');
require_once ('../jpgraph/jpgraph_scatter.php');
require_once ('../jpgraph/jpgraph_mgraph.php');
$dataxK = array(0.1);
$datayK = array(0.1);
$dataxKo = array($kopta);
$datayKo = array($koptb);
$dataxKm = array($kam);
$datayKm = array($kbm);
$datax3 = array($hexKa3,$hexKa6,$hexKa9,$hexKa12,$hexKa15,$hexKa18,$hexKa21,$hexKa24,$hexKa27,$hexKa30);
$datay3 = array($hexKb3,$hexKb6,$hexKb9,$hexKb12,$hexKb15,$hexKb18,$hexKb21,$hexKb24,$hexKb27,$hexKb30);
$graph = new Graph(220,220);
$graph->SetScale("linlin");
$graph->SetAxisStyle(AXSTYLE_BOXIN);
$graph->yscale->ticks->Set(1);
$graph->xscale->ticks->Set(1);
$graph->img->SetMargin(30,30,20,20);
$graph->title->Set("SID scatter K plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$graph->SetBackgroundImage("LabG.png",2);
$graph->SetBackgroundImageMix(100);
$sp3 = new ScatterPlot($datay3,$datax3);
$sp3->mark->SetType(MARK_FILLEDCIRCLE);
$sp3->mark->SetFillColor("#55bbdd");
$sp3->mark->SetWidth(3);
$sp3->link->Show();
$sp3->link->SetWeight(2);
$sp3->link->SetColor('[email protected]');
$spC = new ScatterPlot($datayK,$dataxK);
$spC->mark->SetType(MARK_IMG_MBALL,'green');
$spC->mark->SetWidth(8);
$spCm = new ScatterPlot($datayKm,$dataxKm);
$spCm->mark->SetType(MARK_IMG_MBALL,'red');
$spCm->mark->SetWidth(8);
$spCo = new ScatterPlot($datayKo,$dataxKo);
$spCo->mark->SetType(MARK_IMG_STAR,'green');
$spCo->mark->SetWidth(8);
//$graph->Add($sp3);
$graph->Add($spC);
$graph->Add($spCm);
$graph->Add($spCo);
$graph->Stroke('scatterGuK.png');
GenGraphLK($klm-$kl,$koptL-$kl);
////////////////////////c50
//echo "<br> Line 1987";
$Pdot=$c50P;
$c50Xm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$c50Ym=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$c50Zm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$c50Lm=xyz2lab01("l",$c50Xm,$c50Ym,$c50Zm);
$c50am=xyz2lab01("a",$c50Xm,$c50Ym,$c50Zm);
$c50bm=xyz2lab01("b",$c50Xm,$c50Ym,$c50Zm);
$c50dm=DensitySp38("C",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$c50TV=((($PXm-0.55*$PZm)-($c50Xm-0.55*$c50Zm))/(($PXm-0.55*$PZm)-($cXm-0.55*$cZm)))*100;
//$c50TV=(((1-(pow(10,(-($c50dm-$Pdm)))))/(1-(pow(10,(-($cdm-$Pdm)))))))*100;
$c50TVI=round(($c50TV-$c50TVT),2);
//echo "c50dm:".$c50dm."TV=".$c50TVI."__<br>";
////////////////////////m50
$Pdot=$m50P;
$m50Xm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$m50Ym=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$m50Zm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$m50Lm=xyz2lab01("l",$m50Xm,$m50Ym,$m50Zm);
$m50am=xyz2lab01("a",$m50Xm,$m50Ym,$m50Zm);
$m50bm=xyz2lab01("b",$m50Xm,$m50Ym,$m50Zm);
$m50dm=DensitySp38("M",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$m50TV=(($PYm-$m50Ym)/($PYm- $mYm))*100; //ctv
// $m50TV=(((1-(pow(10,(-($m50dm-$Pdm)))))/(1-(pow(10,(-($mdm-$Pdm)))))))*100;
$m50TVI=round(($m50TV-$m50TVT),2);
//echo "m50dm:".$m50dm."TV=".$m50TVI."__<br>";
////////////////////////y50
$Pdot=$y50P;
$y50Xm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$y50Ym=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$y50Zm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$y50Lm=xyz2lab01("l",$y50Xm,$y50Ym,$y50Zm);
$y50am=xyz2lab01("a",$y50Xm,$y50Ym,$y50Zm);
$y50bm=xyz2lab01("b",$y50Xm,$y50Ym,$y50Zm);
$y50dm=DensitySp38("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$y50TV=(($PZm-$y50Zm)/($PZm- $yZm))*100; //ctv
// $y50TV=(((1-(pow(10,(-($y50dm-$Pdm)))))/(1-(pow(10,(-($ydm-$Pdm)))))))*100;
$y50TVI=round(($y50TV-$y50TVT),2);
//echo "<br>y50TV:".$y50TV."_".$y50TVI;
//echo "y50dm:".$y50dm."TV=".$y50TVI."__<br>";
////////////////////////k50
$Pdot=$k50P;
$k50Xm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$k50Ym=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$k50Zm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$k50Lm=xyz2lab01("l",$k50Xm,$k50Ym,$k50Zm);
$k50am=xyz2lab01("a",$k50Xm,$k50Ym,$k50Zm);
$k50bm=xyz2lab01("b",$k50Xm,$k50Ym,$k50Zm);
$k50dm=DensitySp38("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
//$k50TV=(((1-(pow(10,(-($k50dm-$Pdm)))))/(1-(pow(10,(-($kdm-$Pdm)))))))*100;
$k50TV=(($PYm-$k50Ym)/($PYm- $kZm))*100; //ctv
$k50TVI=round(($k50TV-$k50TVT),2);
//echo "k50dm:".$k50dm."TV=".$k50TVI."__<br>";
// echo "note 2k: k50L:".$k50Lm."_k50a:".$k50am."_k50b:".$k50bm."__<br>";
////////////////////////////gray
$Pdot=$g50P;
$gXm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$gYm=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$gZm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$gLm=xyz2lab01("l",$gXm,$gYm,$gZm);
$gam=xyz2lab01("a",$gXm,$gYm,$gZm);
$gbm=xyz2lab01("b",$gXm,$gYm,$gZm);
$gdm=DensitySp38("K",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
// echo "note 2k: gL:".$gLm."_ga:".$gam."_gb:".$gbm."__gdm:".$gdm."__<br>";
////////////////////////c25
$Pdot=$c25P;
$c25Xm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$c25Ym=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$c25Zm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$c25Lm=xyz2lab01("l",$c25Xm,$c25Ym,$c25Zm);
$c25am=xyz2lab01("a",$c25Xm,$c25Ym,$c25Zm);
$c25bm=xyz2lab01("b",$c25Xm,$c25Ym,$c25Zm);
$c25dm=DensitySp38("C",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$c25TV=((($PXm-0.55*$PZm)-($c25Xm-0.55*$c25Zm))/(($PXm-0.55*$PZm)-($cXm-0.55*$cZm)))*100;
//$c25TV=(((1-(pow(10,(-($c25dm-$Pdm)))))/(1-(pow(10,(-($cdm-$Pdm)))))))*100;
$c25TVI=round(($c25TV-$c25TVT),2);
//echo "c25TV:".$c25TV."TV=".$c25TVI."__<br>";
////////////////////////m25
$Pdot=$m25P;
$m25Xm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$m25Ym=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$m25Zm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$m25Lm=xyz2lab01("l",$m25Xm,$m25Ym,$m25Zm);
$m25am=xyz2lab01("a",$m25Xm,$m25Ym,$m25Zm);
$m25bm=xyz2lab01("b",$m25Xm,$m25Ym,$m25Zm);
$m25dm=DensitySp38("M",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$m25TV=(($PYm-$m25Ym)/($PYm- $mYm))*100; //ctv
// $m25TV=(((1-(pow(10,(-($m25dm-$Pdm)))))/(1-(pow(10,(-($mdm-$Pdm)))))))*100;
$m25TVI=round(($m25TV-$m25TVT),2);
////////////////////////y25
$Pdot=$y25P;
$y25Xm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$y25Ym=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$y25Zm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$y25Lm=xyz2lab01("l",$y25Xm,$y25Ym,$y25Zm);
$y25am=xyz2lab01("a",$y25Xm,$y25Ym,$y25Zm);
$y25bm=xyz2lab01("b",$y25Xm,$y25Ym,$y25Zm);
$y25dm=DensitySp38("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$y25TV=(($PZm-$y25Zm)/($PZm- $yZm))*100; //ctv
// $y25TV=(((1-(pow(10,(-($y25dm-$Pdm)))))/(1-(pow(10,(-($ydm-$Pdm)))))))*100;
$y25TVI=round(($y25TV-$y25TVT),2);
////////////////////////k25
$Pdot=$k25P;
$k25Xm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$k25Ym=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$k25Zm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$k25dm=DensitySp38("K",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$k25TV=(($PYm-$k25Ym)/($PYm- $kZm))*100; //ctv
//$k25TV=(((1-(pow(10,(-($k25dm-$Pdm)))))/(1-(pow(10,(-($kdm-$Pdm)))))))*100;
$k25TVI=round(($k25TV-$k25TVT),2);
///////////////////////c75
$Pdot=$c75P;
$c75Xm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$c75Ym=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$c75Zm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$c75Lm=xyz2lab01("l",$c75Xm,$c75Ym,$c75Zm);
$c75am=xyz2lab01("a",$c75Xm,$c75Ym,$c75Zm);
$c75bm=xyz2lab01("b",$c75Xm,$c75Ym,$c75Zm);
$c75dm=DensitySp38("C",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$c75TV=((($PXm-0.55*$PZm)-($c75Xm-0.55*$c75Zm))/(($PXm-0.55*$PZm)-($cXm-0.55*$cZm)))*100;
// $c75TV=(((1-(pow(10,(-($c75dm-$Pdm)))))/(1-(pow(10,(-($cdm-$Pdm)))))))*100;
$c75TVI=round(($c75TV-$c75TVT),2);
//echo "c50dm:".$c50dm."TV=".$c50TVI."__<br>";
////////////////////////m75
$Pdot=$m75P;
$m75Xm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$m75Ym=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$m75Zm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$m75Lm=xyz2lab01("l",$m75Xm,$m75Ym,$m75Zm);
$m75am=xyz2lab01("a",$m75Xm,$m75Ym,$m75Zm);
$m75bm=xyz2lab01("b",$m75Xm,$m75Ym,$m75Zm);
$m75dm=DensitySp38("M",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$m75TV=(($PYm-$m75Ym)/($PYm- $mYm))*100; //ctv
// $m75TV=(((1-(pow(10,(-($m75dm-$Pdm)))))/(1-(pow(10,(-($mdm-$Pdm)))))))*100;
$m75TVI=round(($m75TV-$m75TVT),2);
////////////////////////y75
$Pdot=$y75P;
$y75Xm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$y75Ym=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$y75Zm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$y75Lm=xyz2lab01("l",$y75Xm,$y75Ym,$y75Zm);
$y75am=xyz2lab01("a",$y75Xm,$y75Ym,$y75Zm);
$y75bm=xyz2lab01("b",$y75Xm,$y75Ym,$y75Zm);
$y75dm=DensitySp38("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$y75TV=(($PZm-$y75Zm)/($PZm- $yZm))*100; //ctv
// $y75TV=(((1-(pow(10,(-($y75dm-$Pdm)))))/(1-(pow(10,(-($ydm-$Pdm)))))))*100;
$y75TVI=round(($y75TV-$y75TVT),2);
////////////////////////k75
$Pdot=$k75P;
$k75Xm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$k75Ym=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$k75Zm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$k75dm=DensitySp38("K",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$k75TV=(($PYm-$k75Ym)/($PYm- $kZm))*100; //ctv
// $k75TV=(((1-(pow(10,(-($k75dm-$Pdm)))))/(1-(pow(10,(-($kdm-$Pdm)))))))*100;
$k75TVI=round(($k75TV-$k75TVT),2);
////////////////////////////gray 25
$Pdot=$g25P;
$g25Xm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$g25Ym=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$g25Zm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$g25Lm=xyz2lab01("l",$g25Xm,$g25Ym,$g25Zm);
$g25am=xyz2lab01("a",$g25Xm,$g25Ym,$g25Zm);
$g25bm=xyz2lab01("b",$g25Xm,$g25Ym,$g25Zm);
$g25dm=DensitySp38("K",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
////////////////////////////gray 75
$Pdot=$g75P;
$g75Xm=sp38XYZ("X",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$g75Ym=sp38XYZ("Y",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$g75Zm=sp38XYZ("Z",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
$g75Lm=xyz2lab01("l",$g75Xm,$g75Ym,$g75Zm);
$g75am=xyz2lab01("a",$g75Xm,$g75Ym,$g75Zm);
$g75bm=xyz2lab01("b",$g75Xm,$g75Ym,$g75Zm);
$gdm=DensitySp38("K",0,0,$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],0,0,0);
///////////////////////////////////////////////////////////
$dep00=de00($pl,$pa,$pb,$PLm,$Pam,$Pbm);
$dek00=de00($kl,$ka,$kb,$klm,$kam,$kbm);
$dec00=de00($cl,$ca,$cb,$clm,$cam,$cbm);
$dem00=de00($ml,$ma,$mb,$mlm,$mam,$mbm);
$dey00=de00($yl,$ya,$yb,$ylm,$yam,$ybm);
$der00=de00($rl,$ra,$rb,$rlm,$ram,$rbm);
$degr00=de00($grl,$gra,$grb,$grlm,$gram,$grbm);
$deb00=de00($bl,$ba,$bb,$blm,$bam,$bbm);
if ($dec00<3.5) {$cscore=3;$cscoreg=5;$cscoref=3;} elseif ($dec00<4 and $dec00>3.5) {$cscore=0;$cscoreg=3;$cscoref=2;} elseif ($dec00<4.5 and $dec00>4.0) {$cscore=0;$cscoreg=1;$cscoref=1;} else {$cscore=0;$cscoreg=0;$cscoref=0;}
if ($dem00<3.5) {$mscore=3;$mscoreg=5;$mscoref=3;} elseif ($dem00<4 and $dem00>3.5) {$mscore=0;$mscoreg=3;$mscoref=2;} elseif ($dem00<4.5 and $dem00>4.0) {$mscore=0;$mscoreg=1;$mscoref=1;} else {$mscore=0;$mscoreg=0;$mscoref=0;}
if ($dey00<3.5) {$yscore=3;$yscoreg=5;$yscoref=3;} elseif ($dey00<4 and $dey00>3.5) {$yscore=0;$yscoreg=3;$yscoref=2;} elseif ($dey00<4.5 and $dey00>4.0) {$yscore=0;$yscoreg=1;$yscoref=1;} else {$yscore=0;$yscoreg=0;$yscoref=0;}
if ($dek00<3.5) {$kscore=3;$kscoreg=5;$kscoref=3;} elseif ($dek00<4 and $dek00>3.5) {$kscore=2;$kscoreg=3;$kscoref=2;} elseif ($dek00<4.5 and $dek00>4.0) {$kscore=0;$kscoreg=1;$yscoref=1;} else {$kscore=0;$kscoreg=0;$kscoref=0;}
if ($der00<3.5) {$rscore=2;$rscoreg=4;$rscoref=2;} elseif ($der00<4 and $der00>3.5) {$rscore=2;$rscoreg=2;$rscoref=1;} elseif ($der00<4.5 and $der00>4.0) {$rscore=0;$rscoreg=1;$rscoref=0;} else {$rscore=0;$rscoreg=0;$rscoref=0;}
if ($degr00<3.5) {$grscore=2;$grscoreg=4;$grscoref=2;} elseif ($degr00<4 and $degr00>3.5) {$grscore=2;$grscoreg=2;$grscoref=1;} elseif ($degr00<4.5 and $degr00>4.0) {$grscore=0;$grscoreg=1;$grscoref=0;} else {$grscore=0;$grscoreg=0;$grscoref=0;}
if ($deb00<3.5) {
$bscore=2;$bscoreg=4;$bscoref=2;}
elseif ($deb00<4 and $deb00>3.5)
{$bscore=2;$bscoreg=2;$bscoref=1;}
elseif ($deb00<4.5 and $deb00>4.0)
{$bscore=0;$bscoreg=1;$bscoref=0;}
else
{$bscore=0;$bscoreg=0;$bscoref=0;
}
$dgl=$gLT-$gLm;
$dga=($Pam/2)-$gam;
$dgb=($Pbm/2)-$gbm;
$df=sqrt(pow($dga,2)+pow($dgb,2));
$dgl25=$g25LT-$g25Lm;
$dg25a=($Pam*0.75)-$g25am;
$dg25b=($Pbm*0.75)-$g25bm;
$d25f=sqrt(pow($dg25a,2)+pow($dg25b,2));
$dgl75=$g75LT-$g75Lm;
$dg75a=($Pam*0.25)-$g75am;
$dg75b=($Pbm*0.25)-$g75bm;
$d75f=sqrt(pow($dg75a,2)+pow($dg75b,2));
$dt=50;
$wa=$Pam*(100-$dt)/100;
$wb=$Pbm*(100-$dt)/100;
//$df= pow((pow(($gam-$wa),2))+(pow(($gbm-$wb),2)),0.5)*(1-max(0,($dt-50)/50*0.75));
//$df50=$df;
// echo "df".$df."<br>";
if ($d25f<2) {$d25fP=4;$d25fPg=6;$d25fPf=6;}
elseif ($d25f<3) {$d25fP=4;$d25fPg=4;$d25fPf=5;}
elseif ($d25f<3.5) {$d25fP=0;$d25fPg=3;$d25fPf=2;}
else {$d25fP=0;$d25fPg=0;$d25fPf=0;}
if ($df<2) {$d50fP=4;$d50fPg=5;$d50fPf=7;}
elseif ($df<3) {$d50fP=4;$d50fPg=3;$d50fPf=5;}
elseif ($df<3.5) {$d50fP=4;$d50fPg=2;$d50fPf=2;}
elseif ($df<3.8) {$d50fP=4;$d50fPg=0;$d50fPf=0;}
else {$d50fP=0;$d50fPg=0;$d50fPf=0;}
if ($d75f<2) {$d75fP=2;$d75fPg=4;$d75fPf=5;}
elseif ($d75f<3) {$d75fP=2;$d75fPg=2;$d75fPf=4;}
elseif ($d75f<3.5) {$d75fP=2;$d75fPg=1;$d75fPf=1;}
elseif ($d75f<3.4) {$d75fP=2;$d75fPg=0;$d75fPf=0;}
else {$d75fP=0;$d75fPg=0;$d75fPf=0;}
if (abs($g25Lm-$g25LT)<2) {$d25L=3;}
elseif (abs($g25Lm-$g25LT)<3) {$d25L=2;}
elseif (abs($g25Lm-$g25LT)<3.5) {$d25L=1;}
else {$d25L=0;}
if (abs($gLm-$gLT)<2) {$dL=4;}
elseif (abs($gLm-$gLT)<3) {$dL=2;}
elseif (abs($gLm-$gLT)<3.5) {$dL=1;}
else {$dL=0;}
if (abs($g75Lm-$g75LT)<2) {$d75L=3;}
elseif (abs($g75Lm-$g75LT)<3) {$d75L=2;}
elseif (abs($g75Lm-$g75LT)<3.5) {$d75L=1;}
else {$d75L=0;}
if (abs($c25TVI)<3) {
if ($rule=='c9'){
$c25TVP=1;}
elseif ($rule=='gmi'){
$c25TVP=2;}
elseif ($rule=='pbn'){
$c25TVP=0.5;}
}
elseif (abs($c25TVI)<4) {
if ($rule=='c9'){
$c25TVP=0;}
elseif ($rule=='gmi'){
$c25TVP=1;}
elseif ($rule=='pbn'){
$c25TVP=0.25;}
}
else {
$c25TVP=0;}
if (abs($m25TVI)<3) {
if ($rule=='c9'){
$m25TVP=1;}
elseif ($rule=='gmi'){
$m25TVP=2;}
elseif ($rule=='pbn'){
$m25TVP=0.5;}
}
elseif (abs($m25TVI)<4) {
if ($rule=='c9'){
$m25TVP=0;}
elseif ($rule=='gmi'){
$m25TVP=1;}
elseif ($rule=='pbn'){
$m25TVP=0.25;}
}
else {
$m25TVP=0;}
if (abs($y25TVI)<3) {
if ($rule=='c9'){
$y25TVP=1;}
elseif ($rule=='gmi'){
$y25TVP=2;}
elseif ($rule=='pbn'){
$y25TVP=0.5;}
}
elseif (abs($y25TVI)<4) {
if ($rule=='c9'){
$y25TVP=0;}
elseif ($rule=='gmi'){
$y25TVP=1;}
elseif ($rule=='pbn'){
$y25TVP=0.25;}
}
else {
$y25TVP=0;}
if (abs($k25TVI)<3) {
if ($rule=='c9'){
$k25TVP=1;}
elseif ($rule=='gmi'){
$k25TVP=2;}
elseif ($rule=='pbn'){
$k25TVP=0.5;}
}
elseif (abs($k25TVI)<4) {
if ($rule=='c9'){
$k25TVP=0;}
elseif ($rule=='gmi'){
$k25TVP=1;}
elseif ($rule=='pbn'){
$k25TVP=0.25;}
}
else {
$k25TVP=0;}
if (abs($c50TVI)<3) {
if ($rule=='c9'){
$c50TVP=1;}
elseif ($rule=='gmi'){
$c50TVP=3;}
elseif ($rule=='pbn'){
$c50TVP=1;}
}
elseif (abs($c50TVI)<4) {
if ($rule=='c9'){
$c50TVP=0;}
elseif ($rule=='gmi'){
$c50TVP=1;}
elseif ($rule=='pbn'){
$c50TVP=0.25;}
}
else {
$c50TVP=0;}
if (abs($m50TVI)<3) {
if ($rule=='c9'){
$m50TVP=1;}
elseif ($rule=='gmi'){
$m50TVP=3;}
elseif ($rule=='pbn'){
$m50TVP=1;}
}
elseif (abs($m50TVI)<4) {
if ($rule=='c9'){
$m50TVP=0;}
elseif ($rule=='gmi'){
$m50TVP=1;}
elseif ($rule=='pbn'){
$m50TVP=0.25;}
}
else {
$m50TVP=0;}
if (abs($y50TVI)<3) {
if ($rule=='c9'){
$y50TVP=1;}
elseif ($rule=='gmi'){
$y50TVP=3;}
elseif ($rule=='pbn'){
$y50TVP=1;}
}
elseif (abs($y50TVI)<4) {
if ($rule=='c9'){
$y50TVP=0;}
elseif ($rule=='gmi'){
$y50TVP=1;}
elseif ($rule=='pbn'){
$y50TVP=0.25;}
}
else {
$y50TVP=0;}
if (abs($k50TVI)<3) {
if ($rule=='c9'){
$k50TVP=1;}
elseif ($rule=='gmi'){
$k50TVP=3;}
elseif ($rule=='pbn'){
$k50TVP=1;}
}
elseif (abs($k50TVI)<4) {
if ($rule=='c9'){
$k50TVP=0;}
elseif ($rule=='gmi'){
$k50TVP=1;}
elseif ($rule=='pbn'){
$k50TVP=0.25;}
}
else {
$k50TVP=0;}
if (abs($c75TVI)<3) {
if ($rule=='c9'){
$c75TVP=1;}
elseif ($rule=='gmi'){
$c75TVP=2;}
elseif ($rule=='pbn'){
$c75TVP=0.5;}
}
elseif (abs($c75TVI)<4) {
if ($rule=='c9'){
$c75TVP=0;}
elseif ($rule=='gmi'){
$c75TVP=1;}
elseif ($rule=='pbn'){
$c75TVP=0.25;}
}
else {
$c75TVP=0;}
if (abs($m75TVI)<3) {
if ($rule=='c9'){
$m75TVP=1;}
elseif ($rule=='gmi'){
$m75TVP=2;}
elseif ($rule=='pbn'){
$m75TVP=0.5;}
}
elseif (abs($m75TVI)<4) {
if ($rule=='c9'){
$m75TVP=0;}
elseif ($rule=='gmi'){
$m75TVP=1;}
elseif ($rule=='pbn'){
$m75TVP=0.25;}
}
else {
$m75TVP=0;}
if (abs($y75TVI)<3) {
if ($rule=='c9'){
$y75TVP=1;}
elseif ($rule=='gmi'){
$y75TVP=2;}
elseif ($rule=='pbn'){
$y75TVP=0.5;}
}
elseif (abs($y75TVI)<4) {
if ($rule=='c9'){
$y75TVP=0;}
elseif ($rule=='gmi'){
$y75TVP=1;}
elseif ($rule=='pbn'){
$y75TVP=0.25;}
}
else {
$y75TVP=0;}
if (abs($k75TVI)<3) {
if ($rule=='c9'){
$k75TVP=1;}
elseif ($rule=='gmi'){
$k75TVP=2;}
elseif ($rule=='pbn'){
$k75TVP=0.5;}
}
elseif (abs($k75TVI)<4) {
if ($rule=='c9'){
$k75TVP=0;}
elseif ($rule=='gmi'){
$k75TVP=1;}
elseif ($rule=='pbn'){
$k75TVP=0.25;}
}
else {
$k75TVP=0;}
if (abs($c25TVI)<3 and abs($m25TVI)<3 and abs($y25TVI)<3 and abs($k25TVI)<3) {$tv25=4;$tv25g=2;;$tv25f=1.5;}
elseif (abs($c25TVI)<4 and abs($m25TVI)<4 and abs($y25TVI)<4 and abs($k25TVI)<4) {$tv25=0;$tv25g=1;;$tv25f=1;}
else {$tv25=0;$tv25g=0;;$tv25f=0;}
if (abs($c50TVI)<4 and abs($m50TVI)<4 and abs($y50TVI)<4 and abs($k50TVI)<4) {$tv50=4;$tv50g=3;;$tv50f=3;}
elseif (abs($c50TVI)<4 and abs($m50TVI)<4 and abs($y50TVI)<4 and abs($k50TVI)<4) {$tv50=0;$tv50g=1;$tv50f=1;}
else {$tv50=0;$tv50g=0;$tv50f=0;}
if (abs($c75TVI)<3 and abs($m75TVI)<3 and abs($y75TVI)<3 and abs($k75TVI)<3) {$tv75=4;$tv75g=2;$tv75f=1.5;}
elseif (abs($c75TVI)<4 and abs($m75TVI)<4 and abs($y75TVI)<4 and abs($k75TVI)<4) {$tv75=0;$tv75g=1;$tv75f=1;}
else {$tv75=0;$tv75g=0;$tv75f=0;}
?>
<table width="400" border="1" align="center"
<tr>
<td>
<td colspan = "3">Target data</td>
<td colspan = "3">measured data</td>
<td> ΔE00</td>
<td> Score</td>
<td>Den </td>
<td>Best Den</td>
<td>Best de</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">Paper</td>
<td align='right' bgcolor="#FFFFFF"><?php echo round($pl,1);?></td>
<td align='right' bgcolor="#FFFFFF"><?php echo round($pa,1);?></td>
<td align='right' bgcolor="#FFFFFF"><?php echo round($pb,1);?></td>
<td align='right' bgcolor="#FFFFFF"><?php echo round($PLm,1);?></td>
<td align='right' bgcolor="#FFFFFF"><?php echo round($Pam,1);?></td>
<td align='right' bgcolor="#FFFFFF"><?php echo round($Pbm,1);?></td>
<td align='right' bgcolor="#FFFFFF"><?php echo round($dep00,1);?></td>
</tr>
<tr>
<td bgcolor="#00FFFF">100C</td>
<td align='right' bgcolor="#00FFFF"><?php echo round($cl,1);?></td>
<td align='right' bgcolor="#00FFFF"><?php echo round($ca,1);?></td>
<td align='right' bgcolor="#00FFFF"><?php echo round($cb,1);?></td>
<td align='right' bgcolor="#00FFFF"><?php echo round($clm,1);?></td>
<td align='right' bgcolor="#00FFFF"><?php echo round($cam,1);?></td>
<td align='right' bgcolor="#00FFFF"><?php echo round($cbm,1);?></td>
<td align='right' bgcolor="#00FFFF"><a href="../deltaE/indexE.php?mL=<?php echo $clm.'&ma='.$cam.'&mb='.$cbm;?>"><?php if (abs($dec00)>3.5) {echo "<font color='red'>";}echo round($dec00,1);?></a></td>
<td align='right' bgcolor="#00FFFF"><?php if ($rule=='c9') {echo $cscore;} elseif ($rule=='gmi') {echo $cscoreg;} else {echo $cscoref;}?></td>
<td align='right' bgcolor="#00FFFF"><?php echo round($cdm,2);?></td>
<td align='right' bgcolor="#00FFFF"><?php echo round($coptD,2);?></td>
<td align='right' bgcolor="#00FFFF"><?php echo round($cmin,2);?></td>
</tr>
<tr>
<td bgcolor="#FFCCFF">100M</td>
<td align='right' bgcolor="#FFCCFF"><?php echo round($ml,1);?></td>
<td align='right' bgcolor="#FFCCFF"><?php echo round($ma,1);?></td>
<td align='right' bgcolor="#FFCCFF"><?php echo round($mb,1);?></td>
<td align='right' bgcolor="#FFCCFF"><?php echo round($mlm,1);?></td>
<td align='right' bgcolor="#FFCCFF"><?php echo round($mam,1);?></td>
<td align='right' bgcolor="#FFCCFF"><?php echo round($mbm,1);?></td>
<td align='right' bgcolor="#FFCCFF"><a href="../deltaE/indexE.php?mL=<?php echo $mlm.'&ma='.$mam.'&mb='.$mbm;?>"><?php if (abs($dem00)>3.5) {echo "<font color='red'>";}echo round($dem00,1);?></a></td>
<td align='right' bgcolor="#FFCCFF"><?php if ($rule=='c9') {echo $mscore;} elseif ($rule=='gmi') {echo $mscoreg;} else {echo $mscoref;}?></td>
<td align='right' bgcolor="#FFCCFF"><?php echo round($mdm,2);?></td>
<td align='right' bgcolor="#FFCCFF"><?php echo round($moptD,2);?></td>
<td align='right' bgcolor="#FFCCFF"><?php echo round($mmin,2);?></td>
</tr>
<td bgcolor="#FFFF66">100Y</td>
<td align='right' bgcolor="#FFFF66"><?php echo round($yl,1);?></td>
<td align='right' bgcolor="#FFFF66"><?php echo round($ya,1);?></td>
<td align='right' bgcolor="#FFFF66"><?php echo round($yb,1);?></td>
<td align='right' bgcolor="#FFFF66"><?php echo round($ylm,1);?></td>
<td align='right' bgcolor="#FFFF66"><?php echo round($yam,1);?></td>
<td align='right' bgcolor="#FFFF66"><?php echo round($ybm,1);?></td>
<td align='right' bgcolor="#FFFF66"><a href="../deltaE/indexE.php?mL=<?php echo $ylm.'&ma='.$yam.'&mb='.$ybm;?>"><?php if (abs($dey00)>3.5) {echo "<font color='red'>";}echo round($dey00,1);?></a></td>
<td align='right' bgcolor="#FFFF66"><?php if ($rule=='c9') {echo $yscore;} elseif ($rule=='gmi') {echo $yscoreg;} else {echo $yscoref;}?></td>
<td align='right' bgcolor="#FFFF66"><?php echo round($ydm,1);?></td>
<td align='right' bgcolor="#FFFF66"><?php echo round($yoptD,2);?></td>
<td align='right' bgcolor="#FFFF66"><?php echo round($ymin,2);?></td>
</tr>
<td bgcolor="#BBBBBB">100K</td>
<td align='right' bgcolor="#BBBBBB"><?php echo round($kl,1);?></td>
<td align='right' bgcolor="#BBBBBB"><?php echo round($ka,1);?></td>
<td align='right' bgcolor="#BBBBBB"><?php echo round($kb,1);?></td>
<td align='right' bgcolor="#BBBBBB"><?php echo round($klm,1);?></td>
<td align='right' bgcolor="#BBBBBB"><?php echo round($kam,1);?></td>
<td align='right' bgcolor="#BBBBBB"><?php echo round($kbm,1);?></td>
<td align='right' bgcolor="#BBBBBB"><?php if (abs($dek00)>3.5) {echo "<font color='red'>";}echo round($dek00,1);?></td>
<td align='right' bgcolor="#BBBBBB"><?php if ($rule=='c9') {echo $kscore;} elseif ($rule=='gmi') {echo $kscoreg;} else {echo $kscoref;}?></td>
<td align='right' bgcolor="#BBBBBB"><?php echo round($kdm,1);?></td>
<td align='right' bgcolor="#BBBBBB"><?php echo round($koptD,2);?></td>
<td align='right' bgcolor="#BBBBBB"><?php echo round($kmin,2);?></td>
</tr>
<tr>
<td bgcolor="#DD7777">R</td>
<td align='right' bgcolor="#DD7777"><?php echo round($rl,1);?></td>
<td align='right' bgcolor="#DD7777"><?php echo round($ra,1);?></td>
<td align='right' bgcolor="#DD7777"><?php echo round($rb,1);?></td>
<td align='right' bgcolor="#DD7777"><?php echo round($rlm,1);?></td>
<td align='right' bgcolor="#DD7777"><?php echo round($ram,1);?></td>
<td align='right' bgcolor="#DD7777"><?php echo round($rbm,1);?></td>
<td align='right' bgcolor="#DD7777"><?php if (abs($der00)>4.2) {echo "<font color='red'>";}echo round($der00,1);?></td>
<td align='right' bgcolor="#DD7777"><?php if ($rule=='c9') {echo $rscore;} elseif ($rule=='gmi') {echo $rscoreg;} else {echo $rscoref;}?></td>
</tr>
<?php
if ($rule=='c9') {
$sScoreT=($cscore+$mscore+$yscore+$kscore+$rscore+$grscore+$bscore)/40*100;
$sScore=($cscore+$mscore+$yscore+$kscore+$rscore+$grscore+$bscore);
$TSs='/18';}
elseif ($rule=='gmi') {
$sScoreT=($cscoreg+$mscoreg+$yscoreg+$kscoreg+$rscoreg+$grscoreg+$bscoreg)/75*100;
$sScore=$cscoreg+$mscoreg+$yscoreg+$kscoreg+$rscoreg+$grscoreg+$bscoreg;
$TSs='/32';}
elseif ($rule=='pbn') {
$sScoreT=($cscoref+$mscoreg+$yscoref+$kscoref+$rscoref+$grscoref+$bscoref)/54*100;
$sScore=$cscoref+$mscoreg+$yscoref+$kscoref+$rscoref+$grscoref+$bscoref;
$TSs='/18';}
?>
<tr>
<td bgcolor="#55BB55">G</td>
<td align='right' bgcolor="#55BB55"><?php echo round($grl,1);?></td>
<td align='right' bgcolor="#55BB55"><?php echo round($gra,1);?></td>
<td align='right' bgcolor="#55BB55"><?php echo round($grb,1);?></td>
<td align='right' bgcolor="#55BB55"><?php echo round($grlm,1);?></td>
<td align='right' bgcolor="#55BB55"><?php echo round($gram,1)?></td>
<td align='right' bgcolor="#55BB55"><?php echo round($grbm,1);?></td>
<td align='right' bgcolor="#55BB55"><?php if (abs($degr00)>4.2) {echo "<font color='red'>";}echo round($degr00,1);?></td>
<td align='right' bgcolor="#55BB55"><?php if ($rule=='c9') {echo $grscore;} elseif ($rule=='gmi') {echo $grscoreg;} else {echo $grscoref;}?></td>
<td><td>
<td align='right' bgcolor="#cccccc"><?php echo $sScore.$TSs;?></td>
</tr>
<tr>
<td bgcolor="#7777DD">B</td>
<td align='right' bgcolor="#7777DD"><?php echo round($bl,1);?></td>
<td align='right' bgcolor="#7777DD"><?php echo round($ba,1);?></td>
<td align='right' bgcolor="#7777DD"><?php echo round($bb,1);?></td>
<td align='right' bgcolor="#7777DD"><?php echo round($blm,1);?></td>
<td align='right' bgcolor="#7777DD"><?php echo round($bam,1);?></td>
<td align='right' bgcolor="#7777DD"><?php echo round($bbm,1);?></td>
<td align='right' bgcolor="#7777DD"><?php if (abs($deb00)>4.2) {echo "<font color='red'>";} echo round($deb00,1);?></td>
<td align='right' bgcolor="#7777DD"><?php if ($rule=='c9') {echo $bscore;} elseif ($rule=='gmi') {echo $bscoreg;} else {echo $bscoref;}?></td>
<td><td>
<td align='right' bgcolor="#cccccc"><?php echo round($sScoreT,2)."%";?></td>
</tr>
</table>
<br>
<table width="400" border="1" align="center">
<tr>
<td>
<td colspan = "1">目標 TV</td>
<td colspan = "1">量測TV</td>
<td> ΔTV</td>
<td> Score</td>
<td>
<td colspan = "1">目標 TV</td>
<td colspan = "1">量測TV</td>
<td> ΔTV</td>
<td> Score</td>
<td>
<td colspan = "1">目標 TV</td>
<td colspan = "1">量測TV</td>
<td> ΔTV</td>
<td> Score</td>
</tr>
<tr>
<td bgcolor="#ccFFFF">C25</td>
<td align='right' bgcolor="#ccFFFF"><?php echo round($c25TVT,1);?></td>
<td align='right' bgcolor="#ccFFFF"><?php echo round($c25TV,1);?></td>
<td align='right' bgcolor="#ccFFFF"><?php if (abs($c25TVI)>3) {echo "<font color='red'>";} echo round($c25TVI,1);?></td>
<td align='right' bgcolor="#ccFFFF"><?php echo $c25TVP;?></td>
<td bgcolor="#aaFFFF">C50</td>
<td align='right' bgcolor="#aaFFFF"><?php echo round($c50TVT,1);?></td>
<td align='right' bgcolor="#aaFFFF"><?php echo round($c50TV,1);?></td>
<td align='right' bgcolor="#aaFFFF"><?php if (abs($c50TVI)>4) {echo "<font color='red'>";} echo round($c50TVI,1);?></td>
<td align='right' bgcolor="#aaFFFF"><?php echo $c50TVP;?></td>
<td bgcolor="#aaFFFF">C75</td>
<td align='right' bgcolor="#00FFFF"><?php echo round($c75TVT,1);?></td>
<td align='right' bgcolor="#00FFFF"><?php echo round($c75TV,1);?></td>
<td align='right' bgcolor="#00FFFF"><?php if (abs($c75TVI)>3) {echo "<font color='red'>";} echo round($c75TVI,1);?></td>
<td align='right' bgcolor="#00FFFF"><?php echo $c75TVP;?></td>
</tr>
<tr>
<td bgcolor="#FFddFF">M25</td>
<td align='right' bgcolor="#FFddFF"><?php echo round($m25TVT,1);?></td>
<td align='right' bgcolor="#FFddFF"><?php echo round($m25TV,1);?></td>
<td align='right' bgcolor="#FFddFF"><?php if (abs($m25TVI)>3) {echo "<font color='red'>";} echo round($m25TVI,1);?></td>
<td align='right' bgcolor="#FFddFF"><?php echo $m25TVP;?></td>
<td bgcolor="#FFbbFF">M50</td>
<td align='right' bgcolor="#FFbbFF"><?php echo round($m50TVT,1);?></td>
<td align='right' bgcolor="#FFbbFF"><?php echo round($m50TV,1);?></td>
<td align='right' bgcolor="#FFbbFF"><?php if (abs($m50TVI)>4) {echo "<font color='red'>";} echo round($m50TVI,1);?></td>
<td align='right' bgcolor="#FFbbFF"><?php echo $m50TVP;?></td>
<td bgcolor="#FF77FF">M75</td>
<td align='right' bgcolor="#FF77FF"><?php echo round($m75TVT,1);?></td>
<td align='right' bgcolor="#FF77FF"><?php echo round($m75TV,1);?></td>
<td align='right' bgcolor="#FF77FF"><?php if (abs($m75TVI)>3) {echo "<font color='red'>";} echo round($m75TVI,1);?></td>
<td align='right' bgcolor="#FF77FF"><?php echo $m75TVP;?></td>
</tr>
<tr>
<td bgcolor="#FFFFdd">Y25</td>
<td align='right' bgcolor="#FFFFdd"><?php echo round($y25TVT,1);?></td>
<td align='right' bgcolor="#FFFFdd"><?php echo round($y25TV,1);?></td>
<td align='right' bgcolor="#FFFFdd"><?php if (abs($y25TVI)>3) {echo "<font color='red'>";} echo round($y25TVI,1);?></td>
<td align='right' bgcolor="#FFFFdd"><?php echo $y25TVP;?></td>
<td bgcolor="#FFFFbb">Y50</td>
<td align='right' bgcolor="#FFFFbb"><?php echo round($y50TVT,1);?></td>
<td align='right' bgcolor="#FFFFbb"><?php echo round($y50TV,1);?></td>
<td align='right' bgcolor="#FFFFbb"><?php if (abs($y50TVI)>4) {echo "<font color='red'>";} echo round($y50TVI,1);?></td>
<td align='right' bgcolor="#FFFFbb"><?php echo $y50TVP;?></td>
<td bgcolor="#FFFF66">Y75</td>
<td align='right' bgcolor="#FFFF66"><?php echo round($y75TVT,1);?></td>
<td align='right' bgcolor="#FFFF66"><?php echo round($y75TV,1);?></td>
<td align='right' bgcolor="#FFFF66"><?php if (abs($y75TVI)>3) {echo "<font color='red'>";} echo round($y75TVI,1);?></td>
<td align='right' bgcolor="#FFFF66"><?php echo $y75TVP;?></td>
</tr>
<tr>
<td bgcolor="#dddddd">K25</td>
<td align='right' bgcolor="#dddddd"><?php echo round($k25TVT,1);?></td>
<td align='right' bgcolor="#dddddd"><?php echo round($k25TV,1);?></td>
<td align='right' bgcolor="#dddddd"><?php if (abs($k25TVI)>3) {echo "<font color='red'>";} echo round($k25TVI,1);?></td>
<td align='right' bgcolor="#dddddd"><?php echo $k25TVP;?></td>
<td bgcolor="#cccccc">K50</td>
<td align='right' bgcolor="#cccccc"><?php echo round($k50TVT,1);?></td>
<td align='right' bgcolor="#cccccc"><?php echo round($k50TV,1);?></td>
<td align='right' bgcolor="#cccccc"><?php if (abs($k50TVI)>4) {echo "<font color='red'>";} echo round($k50TVI,1);?></td>
<td align='right' bgcolor="#cccccc"><?php echo $k50TVP;?></td>
<?php
$tScore=($c25TVP+$m25TVP+$y25TVP+$k25TVP+$c50TVP+$m50TVP+$y50TVP+$k50TVP+$c75TVP+$m75TVP+$y75TVP+$k75TVP);
if ($rule=='c9') {
$tScoreT=($c25TVP+$m25TVP+$y25TVP+$k25TVP+$c50TVP+$m50TVP+$y50TVP+$k50TVP+$c75TVP+$m75TVP+$y75TVP+$k75TVP)/40*100;
$TTs='/12';}
elseif ($rule=='gmi') {
$tScoreT=($c25TVP+$m25TVP+$y25TVP+$k25TVP+$c50TVP+$m50TVP+$y50TVP+$k50TVP+$c75TVP+$m75TVP+$y75TVP+$k75TVP)/75*100;
$TTs='/28';}
elseif ($rule=='pbn') {
$tScoreT=($c25TVP+$m25TVP+$y25TVP+$k25TVP+$c50TVP+$m50TVP+$y50TVP+$k50TVP+$c75TVP+$m75TVP+$y75TVP+$k75TVP)/54*100;
$TTs='/8';}
?>
<td bgcolor="#BBBBBB">K75</td>
<td align='right' bgcolor="#BBBBBB"><?php echo round($k75TVT,1);?></td>
<td align='right' bgcolor="#BBBBBB"><?php echo round($k75TV,1);?></td>
<td align='right' bgcolor="#BBBBBB"><?php if (abs($k75TVI)>3) {echo "<font color='red'>";} echo round($k75TVI,1);?></td>
<td align='right' bgcolor="#BBBBBB"><?php echo $k75TVP;?></td>
<td align='right' bgcolor="#BBBBBB"><?php echo $tScore.$TTs;?></td>
</tr>
<tr>
<td bgcolor="#ffffff">score</td><td><td><td>
<td align='right'><?php echo ($c25TVP+$m25TVP+$y25TVP+$k25TVP);?></td>
<td bgcolor="#ffffff">score</td><td><td><td>
<td align='right'><?php echo ($c50TVP+$m50TVP+$y50TVP+$k50TVP);?></td>
<td bgcolor="#ffffff">score</td><td><td><td>
<td align='right'><?php echo ($c75TVP+$m75TVP+$y75TVP+$k75TVP);?></td>
<td align='right' bgcolor="#BBBBBB"><?php echo round($tScoreT,2)."%";?></td>
</tr>
</table>
<?php
$c9sum=0;
$c9sum=$c9sum+$cscore+$mscore+$yscore+$kscore+$rscore+$grscore+$bscore;
$c9sum=$c9sum+$c25TVP+$m25TVP+$y25TVP+$k25TVP;
$c9sum=$c9sum+$c50TVP+$m50TVP+$y50TVP+$k50TVP;
$c9sum=$c9sum+$c75TVP+$m75TVP+$y75TVP+$k75TVP;
$c9sum=$c9sum+$d25fP+$d50fP+$d75fP;
//$c9sum=$c9sum+$tv25+$tv50+$tv75;echo "c9sum:".$c9sum;
$gmisum=0;
$gmisum=$gmisum+$cscoreg+$mscoreg+$yscoreg+$kscoreg+$rscoreg+$grscoreg+$bscoreg;
$gmisum=$gmisum+$c25TVP+$m25TVP+$y25TVP+$k25TVP;
$gmisum=$gmisum+$c50TVP+$m50TVP+$y50TVP+$k50TVP;
$gmisum=$gmisum+$c75TVP+$m75TVP+$y75TVP+$k75TVP;
$gmisum=$gmisum+$d25fPg+$d50fPg+$d75fPg;
//$gmisum=$gmisum+$tv25g+$tv50g+$tv75g;
$ct25sum=0;
$ct25sum=$ct25sum+$cscoref+$mscoref+$yscoref+$kscoref+$rscoref+$grscoref+$bscoref;
$ct25sum=$ct25sum+$c25TVP+$m25TVP+$y25TVP+$k25TVP;
$ct25sum=$ct25sum+$c50TVP+$m50TVP+$y50TVP+$k50TVP;
$ct25sum=$ct25sum+$c75TVP+$m75TVP+$y75TVP+$k75TVP;
$ct25sum=$ct25sum+$d25L+$dL+$d75L;
$ct25sum=$ct25sum+$d25fPf+$d50fPf+$d75fPf;echo "ct25sum:".$ct25sum;
//$ct25sum=$ct25sum+$tv25f+$tv50f+$tv75f;
?>
<br>
<table width="450" border="1" align="center">
<tr>
<td>
<td colspan = "1">目標L*</td>
<td colspan = "1">目標a*</td>
<td colspan = "1">目標b*</td>
<td colspan = "1">量測L*</td>
<td colspan = "1">量測a*</td>
<td colspan = "1">量測b*</td>
<td colspan = "1">ΔL</td>
<td> ΔCh</td>
<?php if ($rule=='pbn') {echo '<td> L Score</td>';} ?>
<td> Ch Score</td>
<td><font color="blue"> <?php echo $rule;?> score</font></td>
</tr>
<tr>
<td bgcolor="#dddddd">Gray25</td>
<td align='right' bgcolor="#dddddd"><?php echo $g25LT;?></td>
<td align='right' bgcolor="#dddddd"><?php echo round($Pam*0.75,1);?></td>
<td align='right' bgcolor="#dddddd"><?php echo round($Pbm*0.75,1);?></td>
<td align='right' bgcolor="#dddddd"><?php echo round($g25Lm,1);?></td>
<td align='right' bgcolor="#dddddd"><?php echo round($g25am,1);?></td>
<td align='right' bgcolor="#dddddd"><?php echo round($g25bm,1);?></td>
<td align='right' bgcolor="#dddddd"><?php if (abs($g25Lm-$g25LT)>2.5) {echo "<font color='red'>";} echo round($g25Lm-$g25LT,1);?></td>
<td align='right' bgcolor="#dddddd"><?php if (abs($d25f)>2.5) {echo "<font color='red'>";} echo round($d25f,1);?></font></td>
<?php if ($rule=='pbn') {echo '<td align="right" bgcolor="#dddddd">'; echo round($d25L,1).'</td>';} ?>
<td align='right' bgcolor="#dddddd"><?php if ( $rule=='c9') {echo $d25fP;} elseif ($rule=='gmi') {echo $d25fPg;} else {echo $d25fPf;} ?></td>
<td align='right' rowspan="2"><?php if ( $rule=='c9') {echo "32/40";} elseif ( $rule=='gmi') {echo "60/75";} else {echo "42/54";}?> </td>
</tr>
<?php
if ($rule=='c9') {
$gScore=($d25fP+$d50fP+$d75fP);
$gScoreT=($d25fP+$d50fP+$d75fP)/40*100;
$TGs='/10';}
elseif ($rule=='gmi') {
$gScore=($d25fPg+$d50fPg+$d75fPg);
$gScoreT=($d25fPg+$d50fPg+$d75fPg)/75*100;
$TGs='/15';}
elseif ($rule=='pbn') {
$gScore=($d25fPf+$d50fPf+$d75fPf+$d75L+$d25L+$dL);
$gScoreT=($d25fPf+$d50fPf+$d75fPf+$d75L+$d25L+$dL)/54*100;
$TGs='/28';}
?>
<tr>
<td bgcolor="#cccccc">Gray50</td>
<td align='right' bgcolor="#cccccc"><?php echo $gLT;?></td>
<td align='right' bgcolor="#cccccc"><?php echo round($Pam/2,1);?></td>
<td align='right' bgcolor="#cccccc"><?php echo round($Pbm/2,1);?></td>
<td align='right' bgcolor="#cccccc"><?php echo round($gLm,1);?></td>
<td align='right' bgcolor="#cccccc"><?php echo round($gam,1);?></td>
<td align='right' bgcolor="#cccccc"><?php echo round($gbm,1);?></td>
<td align='right' bgcolor="#cccccc"><?php if (abs($gLm-$gLT)>2.5) {echo "<font color='red'>";}echo round($gLm-$gLT,1);?></td>
<td align='right' bgcolor="#cccccc"><?php if (abs($df)>2.5) {echo "<font color='red'>";} echo round($df,1);?></td>
<?php if ($rule=='pbn') {echo '<td align="right" bgcolor="#cccccc">'; echo round($dL,1).'</td>';} ?>
<td align='right' bgcolor="#cccccc"><?php if ( $rule=='c9'){echo $d50fP;} elseif ($rule=='gmi') {echo $d50fPg;} else {echo $d50fPf;} ?></td>
<td align='right' bgcolor="#cccccc"><?php echo round($gScore,0).$TGs;?></td>
</tr>
<tr>
<td bgcolor="#bbbbbb">Gray75</td>
<td align='right' bgcolor="#dddddd"><?php echo $g75LT;?></td>
<td align='right' bgcolor="#bbbbbb"><?php echo round($Pam*0.25,1);?></td>
<td align='right' bgcolor="#bbbbbb"><?php echo round($Pbm*0.25,1);?></td>
<td align='right' bgcolor="#dddddd"><?php echo round($g75Lm,1);?></td>
<td align='right' bgcolor="#bbbbbb"><?php echo round($g75am,1);?></td>
<td align='right' bgcolor="#bbbbbb"><?php echo round($g75bm,1);?></td>
<td align='right' bgcolor="#dddddd"><?php if (abs($g75Lm-$g75LT)>2.5) {echo "<font color='red'>";} echo round($g75Lm-$g75LT,1);?></td>
<td align='right' bgcolor="#bbbbbb"><?php if (abs($d75f)>2.5) {echo "<font color='red'>";} echo round($d75f,1);?></td>
<?php if ($rule=='pbn') {echo '<td align="right" bgcolor="#dddddd">'; echo round($d75L,1).'</td>';} ?>
<td align='right' bgcolor="#bbbbbb"><?php if ( $rule=='c9') {echo $d75fP;} elseif ($rule=='gmi') {echo $d75fPg;} else {echo $d75fPf;} ?></td>
<td align='right' bgcolor="<?php
if ($c9sum<32 and $rule=='c9') {echo "#ebaabf";}
elseif ($gmisum<60 and $rule=='gmi'){echo "#ebaabf";}
elseif ($ct25sum<42 and $rule=='pbn'){echo "#ebaabf";}
else {echo "#00FF7A";}?>">
<?php if ( $rule=='c9') {
echo $c9sum."/40=".round(($c9sum/40*100),2)."%";
$gmiScore=round(($c9sum/40*100),2);
}
elseif ($rule=='gmi') {
$gmiScore=round(($gmisum/75*100),2);
echo $gmisum."/75=".round(($gmisum/75*100),2)."%";}
else {
$gmiScore=round(($ct25sum/54*100),2);
echo $ct25sum."/54=".round(($ct25sum/54*100),2)."%";}?></td>
<td align='right' bgcolor="#cccccc"><?php echo round($gScoreT,2)."%";?></td>
</tr>
</table>
<table width="400" border="1" align="center">
<a href="pbnCT23CR30api.php?f123=target.txt&f321=<?php echo $f321;?>&target=<?php echo $aim;?>&rule=<?php echo $rule;?>&sccSt=<?php echo $sccSt;?>&more=0">less<-</a>
<a href="pbnCT23CR30api.php?f123=target.txt&f321=<?php echo $f321;?>&target=<?php echo $aim;?>&rule=<?php echo $rule;?>&sccSt=<?php echo $sccSt;?>&more=1">->more</a>
<td ><a href="set25ok.php?newAim=<?php echo "$PLm,$Pam,$Pbm,$clm,$cam,$cbm,$mlm,$mam,$mbm,$ylm,$yam,$ybm,$klm,$kam,$kbm,$rlm,$ram,$rbm,$grlm,$gram,$grbm,$blm,$bam,$bbm,
$c25TV,$c50TV,$c75TV,$m25TV,$m50TV,$m75TV,$y25TV,$y50TV,$y75TV,$k25TV,$k50TV,$k75TV,$g25Lm,$g25am,$g25bm,$gLm,$gam,$gbm,$g75Lm,$g75am,$g75bm"?>">set ok</a></td>
<td>
<a href="okDel.php" target="_blank">資料重設</a>
</td>
</table>
<?php
$more=$_GET['more'];
if ($more==1) {
echo "";}
else {
echo "<!-- ";
}
///C ggc gray adjust C
//echo "dgl2575:".$dgl25."_".$dgl."_".$dgl75;
echo "=========================================##============================================<br>";
/////////////////////////////////////////////////// gray rule 50
$dL=($gLm-$gLT);
$da=$gam-($Pam/2);
$db=$gbm-($Pbm/2);
$gy100lm=21;
if (($PLm-$gy100lm)>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);
$dk=$k50dm-0.5;
$dk25=$k25dm-0.22;
$dk75=$k75dm-0.9;
/////////////////////////////////////////////// gray rule 50
/////////////////////////////////////////////////// gray rule 25
$dL25=($g25Lm-$g25LT);
$da25=$g25am-($Pam*0.75);
$db25=$g25bm-($Pbm*0.75);
if (($PLm-$gy100lm)>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=($g75Lm-$g75LT);
$da75=$g75am-($Pam*0.25);
$db75=$g75bm-($Pbm*0.25);
if (($PLm-$gy100lm)>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
///////////////////////////////////////////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);
}
///////////////////////////////////// rule set 25
$TL=$g25LT;
$Ta=($Pam*0.75);
$Tb=($Pbm*0.75);
$ML=$g25Lm;
$Ma=$g25am;
$Mb=$g25bm;
$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])/1.3;
$FM25=(19-$dotF[1])/1.3;
$FY25=(19-$dotF[2])/1.3;
//echo "<br>FC25:".$FC25;
//echo "_FM25:".$FM25;
//echo "_FY25:".$FY25;
//echo "<br>Fix:".$FinalF."<br>";
///////////////////////////////////// rule set 25
/////////////////////////////////////////////////// gray rule 50
////////////////////////////rule set 2
$TL=$gLT;
$Ta=($Pam/2);
$Tb=($Pbm/2);
$ML=$gLm;
$Ma=$gam;
$Mb=$gbm;
$emin=100;
$mddexT=0;
$deT=0;
/////////////////////////////////////////////////////////////////////
for ($CD=45;$CD<=55;$CD=$CD+0.5) {
for ($MD=35;$MD<=45;$MD=$MD+0.5) {
for ($YD=35;$YD<=45;$YD=$YD+0.5) {
$dc=$CD-50;
$dm=$MD-40;
$dy=$YD-40;
$cc=$dc*0.3; //echo "cc:".$cc;
$cm=$dm*0.4;//echo "cm:".$cm;
if ($dy>1) {
$cy=0;
}
else {
$cy=1;
}
//echo "cy:".$cy;
$mc=-$dc*0.6;//echo "mc:".$mc;
$mm=$dm*0.7;//echo "mm:".$mm;
if ($dy>1) {
$my=-$dy*0.1;
}
else {
$my=-$dy*0.2;
}
//echo "my:".$my;
$yc=-$dc*0.4;
$ym=-$dm*0.2;
$yy=$dy*0.6;
${'C'.$CD.$MD.$YD."L"}=round($TL-($cc+$cm-$cy),1);
${'C'.$CD.$MD.$YD."a"}=round($Ta+($mc+$mm+$my),1);
${'C'.$CD.$MD.$YD."b"}=round($Tb+($yc+$ym+$yy),1);
${'de'.$CD.$MD.$YD}=round(de76($ML,$Ma,$Mb,$TL-($cc+$cm-$cy),$Ta+($mc+$mm+$my),$Tb+($yc+$ym+$yy)),2);
if (${'de'.$CD.$MD.$YD}<1)
{$fColor='red';}
else {
$fColor='black';
}
$emin=min($emin,${'de'.$CD.$MD.$YD});
if ($emin==${'de'.$CD.$MD.$YD}) {
$mddexT=$CD."-".$MD."-".$YD;
$deT=${'de'.$CD.$MD.$YD};
}
//echo "<tr><td>".$CD."-".$MD."-".$YD."</td><td>".${'C'.$CD.$MD.$YD."L"}."</td><td>".${'C'.$CD.$MD.$YD."a"}."</td><td>".${'C'.$CD.$MD.$YD."b"}."</td><td><font color='".$fColor."'>".${'de'.$CD.$MD.$YD}."</td></tr>";
///////////////////////////////////////////////////////////////////////////////////////////////////
}
}
}
//echo "mdexT:".$mddexT;
///////////////////////////////////////////////////////////Measured
$emin=100;
$mddexM=0;
$deM=0;
/////////////////////////////////////////////////////////////////////
for ($CD=45;$CD<=55;$CD=$CD+0.5) {
for ($MD=35;$MD<=45;$MD=$MD+0.5) {
for ($YD=35;$YD<=45;$YD=$YD+0.5) {
$dc=$CD-50;
$dm=$MD-40;
$dy=$YD-40;
$cc=$dc*0.3; //echo "cc:".$cc;
$cm=$dm*0.4;//echo "cm:".$cm;
if ($dy>1) {
$cy=0;
}
else {
$cy=1;
}
//echo "cy:".$cy;
$mc=-$dc*0.6;//echo "mc:".$mc;
$mm=$dm*0.7;//echo "mm:".$mm;
if ($dy>1) {
$my=-$dy*0.1;
}
else {
$my=-$dy*0.2;
}
//echo "my:".$my;
$yc=-$dc*0.4;
$ym=-$dm*0.2;
$yy=$dy*0.6;
${'C'.$CD.$MD.$YD."L"}=round($ML-($cc+$cm-$cy),1);
${'C'.$CD.$MD.$YD."a"}=round($Ma+($mc+$mm+$my),1);
${'C'.$CD.$MD.$YD."b"}=round($Mb+($yc+$ym+$yy),1);
${'de'.$CD.$MD.$YD}=round(de76($TL,$Ta,$Tb,$ML-($cc+$cm-$cy),$Ma+($mc+$mm+$my),$Mb+($yc+$ym+$yy)),2);
if (${'de'.$CD.$MD.$YD}<1)
{$fColor='red';}
else {
$fColor='black';
}
$emin=min($emin,${'de'.$CD.$MD.$YD});
if ($emin==${'de'.$CD.$MD.$YD}) {
$mddexM=$CD."-".$MD."-".$YD;
$deM=${'de'.$CD.$MD.$YD};
}
//echo "<tr><td>".$CD."-".$MD."-".$YD."</td><td>".${'C'.$CD.$MD.$YD."L"}."</td><td>".${'C'.$CD.$MD.$YD."a"}."</td><td>".${'C'.$CD.$MD.$YD."b"}."</td><td><font color='".$fColor."'>".${'de'.$CD.$MD.$YD}."</td></tr>";
///////////////////////////////////////////////////////////////////////////////////////////////////
}
}
}
//echo "mdexM:".$mddexM;
//echo "<br>deT=".$deT."_deM=".$deM;
if ($deT<$deM){
$FinalF=$mddexT;
$dotF=explode("-", $FinalF);////Measure upload
print_r($dotF);
$FC=(50-$dotF[0])/1.3;
$FM=(40-$dotF[1])/1.3;
$FY=(40-$dotF[2])/1.3;
}
else {
$FinalF=$mddexM;
$dotF=explode("-", $FinalF);////Measure upload
print_r($dotF);
$FC=($dotF[0]-50)/1.3;
$FM=($dotF[1]-40)/1.3;
$FY=($dotF[2]-40)/1.3;
}
/*
$FinalF=$mddexT;
$dotF=explode("-", $FinalF);////Measure upload
//print_r($dotF);
$FC=50-$dotF[0];
$FM=40-$dotF[1];
$FY=40-$dotF[2];
*/
//echo "<br>FC:".$FC;
//echo "_FM:".$FM;
//echo "_FY:".$FY;
//echo "<br>Fix:".$FinalF."<br>";
////////////////////////////////////////////////////gray 50
///////////////////////////////////// rule set 75
$TL=$g75LT;
$Ta=($Pam*0.25);
$Tb=($Pbm*0.25);
$ML=$g75Lm;
$Ma=$g75am;
$Mb=$g75bm;
$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])/1.17;
$FM75=(66-$dotF[1])/1.17;
$FY75=(66-$dotF[2])/1.17;
//echo "<br>FC75:".$FC75;
//echo "_FM75:".$FM75;
//echo "_FY75:".$FY75;
//echo "<br>Fix:".$FinalF."<br>";
///////////////////////////////////// rule set 75
include 'graphFixC9x.php';
GenGraph(-$FC,-$FM,-$FY,$dk*10);
GenGraph25(-$FC25,-$FM25,-$FY25,$dk25*10);
GenGraph75(-$FC75,-$FM75,-$FY75,$dk75*10);
GenGraphT($c50TVI,$m50TVI,$y50TVI,$k50TVI);
GenGraphT2($c25TVI,$m25TVI,$y25TVI,$k25TVI);
GenGraphT3($c75TVI,$m75TVI,$y75TVI,$k75TVI);
?>
<?php
////////////////////////////////////////////////////////////
$hueGT=atan2(($Pbm/2),($Pam/2));
$degGT = ($hueGT/M_PI*180) + ($hueGT > 0 ? 0 : 360);
//echo "<br>hue:".$degGT;
$dataxG = array(($Pam/2));
$datayG = array(($Pbm/2));
$dataxYf = array(($Pam/2));
$datayYf = array(($Pbm/2));
$datayYdeg = array($degGT);
$dataxGm = array($gam);
$datayGm = array($gbm);
$graph = new Graph(220,220);
$graph->SetScale("linlin");
$graph->SetAxisStyle(AXSTYLE_BOXIN);
$graph->yaxis->scale->SetAutoMin(-5);
$graph->xaxis->scale->SetAutoMin(-5);
$graph->yaxis->scale->SetAutoMax(5);
$graph->xaxis->scale->SetAutoMax(5);
$graph->yscale->ticks->Set(1);
$graph->xscale->ticks->Set(1);
$graph->img->SetMargin(20,20,20,20);
$graph->title->Set("Gray50 plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$graph->SetBackgroundImage("LabG2a.png",2);
$graph->SetBackgroundImageMix(100);
$spC = new ScatterPlot($datayG,$dataxG);
$spC->mark->SetType(MARK_IMG_STAR,'green');
$spC->mark->SetWidth(8);
if (abs($df)<2.5) {
$green='green';}
else {
$green='red';
}
$spCm = new ScatterPlot($datayGm,$dataxGm);
$spCm->mark->SetType(MARK_IMG_MBALL,$green);
$spCm->mark->SetWidth(8);
$fp = new FieldPlot($datayYf,$dataxYf,$datayYdeg);
$fp->arrow->SetSize(40,2);
$fp->arrow->SetColor('navy');
//$graph->Add($sp3);
$graph->Add($spC);
$graph->Add($spCm);
$graph->Add($fp);
$graph->Stroke('scatterGuG.png');
////////////////////////////////////////////////////////////
$hueGT75=atan2(($Pbm*0.25),($Pam*0.25));
$degGT75 = ($hueGT75/M_PI*180) + ($hueGT75 > 0 ? 0 : 360);
//echo "<br>hue75:".$degGT75;
$dataxG75 = array(($Pam*0.25));
$datayG75 = array(($Pbm*0.25));
$dataxYf = array(($Pam*0.25));
$datayYf = array(($Pbm*0.25));
$datayYdeg = array($degGT75);
$dataxGm75 = array($g75am);
$datayGm75 = array($g75bm);
$graph = new Graph(220,220);
$graph->SetScale("linlin");
$graph->SetAxisStyle(AXSTYLE_BOXIN);
$graph->yaxis->scale->SetAutoMin(-5);
$graph->xaxis->scale->SetAutoMin(-5);
$graph->yaxis->scale->SetAutoMax(5);
$graph->xaxis->scale->SetAutoMax(5);
$graph->yscale->ticks->Set(1);
$graph->xscale->ticks->Set(1);
$graph->img->SetMargin(20,20,20,20);
$graph->title->Set("Gray75 plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$graph->SetBackgroundImage("LabG2a.png",2);
$graph->SetBackgroundImageMix(100);
$spC = new ScatterPlot($datayG75,$dataxG75);
$spC->mark->SetType(MARK_IMG_STAR,'green');
$spC->mark->SetWidth(8);
if (abs($d75f)<2.5) {
$green75='green';}
else {
$green75='red';
}
$spCm = new ScatterPlot($datayGm75,$dataxGm75);
$spCm->mark->SetType(MARK_IMG_MBALL,$green75);
$spCm->mark->SetWidth(8);
$fp = new FieldPlot($datayYf,$dataxYf,$datayYdeg);
$fp->arrow->SetSize(40,2);
$fp->arrow->SetColor('navy');
//$graph->Add($sp3);
$graph->Add($spC);
$graph->Add($spCm);
$graph->Add($fp);
$graph->Stroke('scatterGuG75.png');
////////////////////////////////////////////////////////////
$hueGT25=atan2(($Pbm*0.75),($Pam*0.75));
$degGT25 = ($hueGT25/M_PI*180) + ($hueGT25 > 0 ? 0 : 360);
//echo "<br>hue25:".$degGT25;
$dataxG25 = array(($Pam*0.75));
$datayG25 = array(($Pbm*0.75));
$dataxYf = array(($Pam*0.75));
$datayYf = array(($Pbm*0.75));
$datayYdeg = array($degGT25);
$dataxGm25 = array($g25am);
$datayGm25 = array($g25bm);
$graph = new Graph(220,220);
$graph->SetScale("linlin");
$graph->SetAxisStyle(AXSTYLE_BOXIN);
//$graph->yaxis->scale->SetAutoMin(-5);
//$graph->xaxis->scale->SetAutoMin(-5);
$graph->yaxis->scale->SetAutoMax(5);
$graph->xaxis->scale->SetAutoMax(5);
$graph->yscale->ticks->Set(1);
$graph->xscale->ticks->Set(1);
$graph->img->SetMargin(20,20,20,20);
$graph->title->Set("Gray25 plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$graph->SetBackgroundImage("LabG2a.png",2);
$graph->SetBackgroundImageMix(100);
$spC = new ScatterPlot($datayG25,$dataxG25);
$spC->mark->SetType(MARK_IMG_STAR,'green');
$spC->mark->SetWidth(8);
$spCm = new ScatterPlot($datayGm25,$dataxGm25);
if (abs($d25f)<2.5) {
$green25='green';}
else {
$green25='red';
}
$spCm->mark->SetType(MARK_IMG_MBALL,$green25);
$spCm->mark->SetWidth(8);
$fp = new FieldPlot($datayYf,$dataxYf,$datayYdeg);
$fp->arrow->SetSize(40,2);
$fp->arrow->SetColor('navy');
//$graph->Add($sp3);
$graph->Add($spC);
$graph->Add($spCm);
$graph->Add($fp);
$graph->Stroke('scatterGuG25.png');
//////////////////////////////////////////
GenGraphLG25($g25Lm-$g25LT);
GenGraphLG50($gLm-$gLT);
GenGraphLG75($g75Lm-$g75LT);
///////////////////////////////////////////////////////////////////slpine C
require_once ('../jpgraph/jpgraph_regstat.php');
// Original data points
$xdata = array(0,25,50,75,100);
$ydata = array(0,$c25TVT-25,$c50TVT-50,$c75TVT-75,0);
$xdata2 = array(0,25,50,75,100);
$ydata2 = array(0,$c25TV-25,$c50TV-50,$c75TV-75,0);
// Get the interpolated values by creating
// a new Spline object.
$spline = new Spline($xdata,$ydata);
$spline2 = new Spline($xdata2,$ydata2);
// For the new data set we want 40 points to
// get a smooth curve.
list($newx,$newy) = $spline->Get(50);
list($newx2,$newy2) = $spline2->Get(50);
//echo "<br>nex2:".$newx2;
//print_r($newx2);
// Create the graph
$g = new Graph(380,250);
$g->SetMargin(30,20,40,30);
//$g->title->Set("Curve C");
$g->title->SetFont(FF_ARIAL,FS_NORMAL,12);
$g->subtitle->Set('Curve C (Target in green)');
//$g->subtitle->SetColor('darkred');
$g->SetMarginColor('lightgreen');
//$g->img->SetAntiAliasing();
// We need a linlin scale since we provide both
// x and y coordinates for the data points.
$g->SetScale('linlin');
// We want 1 decimal for the X-label
$g->xaxis->SetLabelFormat('%1.1f');
// We use a scatterplot to illustrate the original
// contro points.
$splot = new ScatterPlot($ydata,$xdata);
$splot2 = new ScatterPlot($ydata2,$xdata2);
//
$splot->mark->SetFillColor('[email protected]');
$splot->mark->SetColor('[email protected]');
$splot2->mark->SetFillColor('[email protected]');
$splot2->mark->SetColor('[email protected]');
// And a line plot to stroke the smooth curve we got
// from the original control points
$lplot = new LinePlot($newy,$newx);
$g->Add($lplot);
$lplot->SetColor('green');
$lplot2 = new LinePlot($newy2,$newx2);
$g->Add($lplot2);
$lplot2->SetColor('cyan');
//$linePlot = new AccLinePlot($dataY, $dataX);
//$lplot2->SetColor('blue'); // Set line color
//$lplot2->SetWeight(2); // Set line thickness
//$graph->Add($linePlot);
// Add the plots to the graph and stroke
$g->Add($splot);
$g->Add($splot2);
$g->Stroke('splineC.png');
/////////////////////////////////////////// sline M
$xdata = array(0,25,50,75,100);
$ydata = array(0,$m25TVT-25,$m50TVT-50,$m75TVT-75,0);
$xdata2 = array(0,25,50,75,100);
$ydata2 = array(0,$m25TV-25,$m50TV-50,$m75TV-75,0);
// Get the interpolated values by creating
// a new Spline object.
$spline = new Spline($xdata,$ydata);
$spline2 = new Spline($xdata2,$ydata2);
// For the new data set we want 40 points to
// get a smooth curve.
list($newx,$newy) = $spline->Get(50);
list($newx2,$newy2) = $spline2->Get(50);
// Create the graph
$g = new Graph(380,250);
$g->SetMargin(30,20,40,30);
//$g->title->Set("Curve C");
$g->title->SetFont(FF_ARIAL,FS_NORMAL,12);
$g->subtitle->Set('Curve M (Target in green)');
$g->subtitle->SetColor('darkred');
$g->SetMarginColor('lightblue');
//$g->img->SetAntiAliasing();
// We need a linlin scale since we provide both
// x and y coordinates for the data points.
$g->SetScale('linlin');
// We want 1 decimal for the X-label
$g->xaxis->SetLabelFormat('%1.1f');
// We use a scatterplot to illustrate the original
// contro points.
$splot = new ScatterPlot($ydata,$xdata);
$splot2 = new ScatterPlot($ydata2,$xdata2);
//
$splot->mark->SetFillColor('[email protected]');
$splot->mark->SetColor('[email protected]');
$splot2->mark->SetFillColor('[email protected]');
$splot2->mark->SetColor('[email protected]');
// And a line plot to stroke the smooth curve we got
// from the original control points
$lplot = new LinePlot($newy,$newx);
$lplot->SetColor('navy');
$g->Add($lplot);
$lplot->SetColor('[email protected]');
$lplot2 = new LinePlot($newy2,$newx2);
$g->Add($lplot2);
$lplot2->SetColor('[email protected]');
//$linePlot = new AccLinePlot($dataY, $dataX);
//$graph->Add($linePlot);
// Add the plots to the graph and stroke
$g->Add($splot);
$g->Add($splot2);
$g->Stroke('splineM.png');
//////////////////////////////////////// spline Y
$xdata = array(0,25,50,75,100);
$ydata = array(0,$y25TVT-25,$y50TVT-50,$y75TVT-75,0);
$xdata2 = array(0,25,50,75,100);
$ydata2 = array(0,$y25TV-25,$y50TV-50,$y75TV-75,0);
// Get the interpolated values by creating
// a new Spline object.
$spline = new Spline($xdata,$ydata);
$spline2 = new Spline($xdata2,$ydata2);
// For the new data set we want 40 points to
// get a smooth curve.
list($newx,$newy) = $spline->Get(50);
list($newx2,$newy2) = $spline2->Get(50);
// Create the graph
$g = new Graph(380,250);
$g->SetMargin(30,20,40,30);
//$g->title->Set("Curve C");
$g->title->SetFont(FF_ARIAL,FS_NORMAL,12);
$g->subtitle->Set('Curve Y (Target in green)');
$g->subtitle->SetColor('darkred');
$g->SetMarginColor('lightblue');
//$g->img->SetAntiAliasing();
// We need a linlin scale since we provide both
// x and y coordinates for the data points.
$g->SetScale('linlin');
// We want 1 decimal for the X-label
$g->xaxis->SetLabelFormat('%1.1f');
// We use a scatterplot to illustrate the original
// contro points.
$splot = new ScatterPlot($ydata,$xdata);
$splot2 = new ScatterPlot($ydata2,$xdata2);
//
$splot->mark->SetFillColor('[email protected]');
$splot->mark->SetColor('[email protected]');
$splot2->mark->SetFillColor('[email protected]');
$splot2->mark->SetColor('[email protected]');
// And a line plot to stroke the smooth curve we got
// from the original control points
$lplot = new LinePlot($newy,$newx);
$g->Add($lplot);
$lplot->SetColor('green');
$lplot2 = new LinePlot($newy2,$newx2);
$g->Add($lplot2);
$lplot2->SetColor('#FCC62A');
//$linePlot = new AccLinePlot($dataY, $dataX);
//$graph->Add($linePlot);
// Add the plots to the graph and stroke
$g->Add($splot);
$g->Add($splot2);
$g->Stroke('splineY.png');
//////////////////////////////////spline k
$xdata = array(0,25,50,75,100);
$ydata = array(0,$k25TVT-25,$k50TVT-50,$k75TVT-75,0);
$xdata2 = array(0,25,50,75,100);
$ydata2 = array(0,$k25TV-25,$k50TV-50,$k75TV-75,0);
// Get the interpolated values by creating
// a new Spline object.
$spline = new Spline($xdata,$ydata);
$spline2 = new Spline($xdata2,$ydata2);
// For the new data set we want 40 points to
// get a smooth curve.
list($newx,$newy) = $spline->Get(50);
list($newx2,$newy2) = $spline2->Get(50);
// Create the graph
$g = new Graph(380,250);
$g->SetMargin(30,20,40,30);
//$g->title->Set("Curve C");
$g->title->SetFont(FF_ARIAL,FS_NORMAL,12);
$g->subtitle->Set('Curve K (Target in blue)');
$g->subtitle->SetColor('darkred');
$g->SetMarginColor('lightblue');
//$g->img->SetAntiAliasing();
// We need a linlin scale since we provide both
// x and y coordinates for the data points.
$g->SetScale('linlin');
// We want 1 decimal for the X-label
$g->xaxis->SetLabelFormat('%1.1f');
// We use a scatterplot to illustrate the original
// contro points.
$splot = new ScatterPlot($ydata,$xdata);
$splot2 = new ScatterPlot($ydata2,$xdata2);
//
$splot->mark->SetFillColor('[email protected]');
$splot->mark->SetColor('[email protected]');
$splot2->mark->SetFillColor('[email protected]');
$splot2->mark->SetColor('[email protected]');
// And a line plot to stroke the smooth curve we got
// from the original control points
$lplot = new LinePlot($newy,$newx);
$g->Add($lplot);
$lplot->SetColor('green');
$lplot2 = new LinePlot($newy2,$newx2);
$g->Add($lplot2);
$lplot2->SetColor('[email protected]');
//$linePlot = new AccLinePlot($dataY, $dataX);
//$graph->Add($linePlot);
// Add the plots to the graph and stroke
$g->Add($splot);
$g->Add($splot2);
$g->Stroke('splineK.png');
?>
<table border="1" align="center">
<tr><td>
<img src="scatterGuR.png?nocache=<?php echo time(); ?>">
<img src="notion.jpg?nocache=<?php echo time(); ?>">
</td>
</tr>
</table>
<table width="800" border="1" align="center">
<tr>
<td><div>
<img src="scatterC.png?nocache=<?php echo time(); ?>">
<img src="scatterGuC.png?nocache=<?php echo time(); ?>">
<img src="graphLC.gif?nocache=<?php echo time(); ?>">
</div></td></tr>
<tr>
<td><div>
<br>
<img src="scatterM.png?nocache=<?php echo time(); ?>">
<img src="scatterGuM.png?nocache=<?php echo time(); ?>">
<img src="graphLM.gif?nocache=<?php echo time(); ?>">
</div></td></tr>
<tr>
<td><div>
<br>
<img src="scatterY.png?nocache=<?php echo time(); ?>">
<img src="scatterGuY.png?nocache=<?php echo time(); ?>">
<img src="graphLY.gif?nocache=<?php echo time(); ?>">
</div></td></tr>
<tr>
<td><div>
<br>
<img src="scatterK.png?nocache=<?php echo time(); ?>">
<img src="scatterGuK.png?nocache=<?php echo time(); ?>">
<img src="graphLK.gif?nocache=<?php echo time(); ?>">
</div></td></tr>
</tr>
</table>
<table>
<tr>
<img src="graphT2.gif?nocache=<?php echo time(); ?>">
<img src="graphT.gif?nocache=<?php echo time(); ?>">
<img src="graphT3.gif?nocache=<?php echo time(); ?>">
</tr>
</table>
<table border="1" align='center'>
<tr>
<td><img src="splineC.png?nocache=<?php echo time(); ?>"></td>
<td><img src="splineM.png?nocache=<?php echo time(); ?>"></td>
</tr>
<tr>
<td><img src="splineY.png?nocache=<?php echo time(); ?>"></td>
<td><img src="splineK.png?nocache=<?php echo time(); ?>"></td>
</tr>
</table>
<table border="1" align="center">
<tr><td>
<img src="scatterGuG25.png?nocache=<?php echo time(); ?>">
<img src="graphLG25.gif?nocache=<?php echo time(); ?>">
<img src="scatterGuG.png?nocache=<?php echo time(); ?>">
<img src="graphLG50.gif?nocache=<?php echo time(); ?>">
<img src="scatterGuG75.png?nocache=<?php echo time(); ?>">
<img src="graphLG75.gif?nocache=<?php echo time(); ?>">
<br>
<img src="graph25.gif?nocache=<?php echo time(); ?>">
<img src="graph.gif?nocache=<?php echo time(); ?>">
<img src="graph75.gif?nocache=<?php echo time(); ?>">
<br>
<br>
</td>
</tr>
</table>
<?php
//////////////////////////////////spline gray c
unlink('splineGC.png');
$xdata = array(0,25,50,75,100);
$ydata = array(0,25+$FC25,50+$FC,75+$FC75,100);
$xdatam = array(0,25,50,75,100);
$ydatam = array(0,25+$FM25,50+$FM,75+$FM75,100);
$xdatay = array(0,25,50,75,100);
$ydatay = array(0,25+$FY25,50+$FY,75+$FY75,100);
$xdatak = array(0,25,50,75,100);
$ydatak = array(0,25+$dk25*10,50+$dk*10,75+$dk75*10,100);
$spline = new Spline($xdata,$ydata);
$splinem = new Spline($xdatam,$ydatam);
$spliney = new Spline($xdatay,$ydatay);
$splinek = new Spline($xdatak,$ydatak);
//$spline2 = new Spline($xdata2,$ydata2);
// For the new data set we want 40 points to
// get a smooth curve.
list($newx,$newy) = $spline->Get(50);
list($newxm,$newym) = $splinem->Get(50);
list($newxy,$newyy) = $spliney->Get(50);
list($newxk,$newyk) = $splinek->Get(50);
// Create the graph
$g = new Graph(380,250);
$g->SetMargin(30,20,40,30);
//$g->title->Set("Curve C");
$g->title->SetFont(FF_ARIAL,FS_NORMAL,12);
$g->subtitle->Set('Curve Gray ');
$g->subtitle->SetColor('darkred');
$g->SetMarginColor('lightblue');
//$g->img->SetAntiAliasing();
// We need a linlin scale since we provide both
// x and y coordinates for the data points.
$g->SetScale('linlin');
// We want 1 decimal for the X-label
$g->xaxis->SetLabelFormat('%1.1f');
// We use a scatterplot to illustrate the original
// contro points.
$splot = new ScatterPlot($ydata,$xdata);
$splotm = new ScatterPlot($ydatam,$xdatam);
$sploty = new ScatterPlot($ydatay,$xdatay);
$splotk = new ScatterPlot($ydatak,$xdatak);
//
$splot->mark->SetFillColor('[email protected]');
$splot->mark->SetColor('[email protected]');
$splotm->mark->SetFillColor('[email protected]');
$splotm->mark->SetColor('[email protected]');
$sploty->mark->SetFillColor('[email protected]');
$sploty->mark->SetColor('[email protected]');
$splotk->mark->SetFillColor('[email protected]');
$splotk->mark->SetColor('[email protected]');
//$splot2->mark->SetFillColor('[email protected]');
//$splot2->mark->SetColor('[email protected]');
// And a line plot to stroke the smooth curve we got
// from the original control points
$lplot = new LinePlot($newy,$newx);
$g->Add($lplot);
$lplot->SetColor('cyan');
$lplotm = new LinePlot($newym,$newxm);
$g->Add($lplotm);
$lplotm->SetColor('magenta');
$lploty = new LinePlot($newyy,$newxy);
$g->Add($lploty);
$lploty->SetColor('#FCC62A');
$lplotk = new LinePlot($newyk,$newxk);
$g->Add($lplotk);
$lplotk->SetColor('gray');
//$lplot2 = new LinePlot($newy2,$newx2);
//$g->Add($lplot2);
//$lplot2->SetColor('[email protected]');
//$linePlot = new AccLinePlot($dataY, $dataX);
//$graph->Add($linePlot);
// Add the plots to the graph and stroke
$g->Add($splot);
$g->Add($splotm);
$g->Add($sploty);
$g->Add($splotk);
//$g->Add($splot2);
$g->Stroke('splineGC.png');
?>
<!--
<table border="1" align="center">
<tr><td>
<img src="splineGC.png?nocache=<?php echo time(); ?>">
<br>
</td>
</tr>
</table>
<table width="200" border="1" align="center">
<tr>
<td><div align="center"> id<?php echo $sNo;?></div></td>
<td><font color="#666666">P</td>
<td><font color='<?php if ($dec00>3.5){echo "red";}else {echo "black";}?>'>C</td>
<td><font color='<?php if ($dem00>3.5){echo "red";}else {echo "black";}?>'>M</td>
<td><font color='<?php if ($dey00>3.5){echo "red";}else {echo "black";}?>'>Y</td>
<td><font color='<?php if ($dek00>3.5){echo "red";}else {echo "black";}?>'>K</td>
<td><font color='<?php if ($der00>3.5){echo "red";}else {echo "black";}?>'>R</td>
<td><font color='<?php if ($degr00>3.5){echo "red";}else {echo "black";}?>'>G</td>
<td><font color='<?php if ($deb00>3.5){echo "red";}else {echo "black";}?>'>B</td>
<td>TVI</td>
<td><font color='<?php if ($c50TVI>4 or $c50TVI<-4){echo "red";}else {echo "black";}?>'>C50</td>
<td><font color='<?php if ($m50TVI>4 or $m50TVI<-4){echo "red";}else {echo "black";}?>'>M50</td>
<td><font color='<?php if ($y50TVI>4 or $y50TVI<-4){echo "red";}else {echo "black";}?>'>Y50</td>
<td><font color='<?php if ($k50TVI>4 or $k50TVI<-4){echo "red";}else {echo "black";}?>'>K50</td>
<td>G7</td>
<td><font color='<?php if ((abs($dgl)>2)){echo "red";}else {echo "black";}?>'>GL25</td>
<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>Ga25</td>
<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>Gb25</td>
<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>df</td>
<td><font color='<?php if ((abs($dgl)>2)){echo "red";}else {echo "black";}?>'>GL50</td>
<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>Ga50</td>
<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>Gb50</td>
<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>df</td>
<td><font color='<?php if ((abs($dgl)>2)){echo "red";}else {echo "black";}?>'>GL75</td>
<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>Ga75</td>
<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>Gb75</td>
<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>df</td>
</tr>
<tr bgcolor="#aaaaaa">
<td><div align="center">色差</div></td>
<td bgcolor="#CCCCCC"><font color='<?php if ($dep00>3){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($PLm,0).",".round($Pam,0).",".round($Pbm,0);?>"><?php $sum=$sum-$dec00; echo round($dep00,2);?></a> </div></td>
<td bgcolor="#00FFFF"><font color='<?php if ($dec00>3.5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($clm,0).",".round($cam,0).",".round($cbm,0);?>"><?php $sum=$sum-$dec00; echo round($dec00,2);?></a> </div></td>
<td bgcolor="#FF99FF"><font color='<?php if ($dem00>3.5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($mlm,0).",".round($mam,0).",".round($mbm,0);?>"><?php $sum=$sum-$dem00;echo round($dem00,2);?></a></div></td>
<td bgcolor="#FFFF99"><font color='<?php if ($dey00>3.5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($ylm,0).",".round($yam,0).",".round($ybm,0);?>"><?php $sum=$sum-$dey00; echo round($dey00,2);?></a></div></td>
<td bgcolor="#aaaaaa"><font color='<?php if ($dek00>3.5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($klm,0).",".round($kam,0).",".round($kbm,0);?>"><?php $sum=$sum-$dek00; echo round($dek00,2);?></a></div></td>
<td bgcolor="#fa6b53"><font color='<?php if ($der00>3.5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($rlm,0).",".round($ram,0).",".round($rbm,0);?>"><?php $sum=$sum-$der00; echo round($der00,2);?></a></div></td>
<td bgcolor="#8afa53"><font color='<?php if ($degr00>3.5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($grlm,0).",".round($gram,0).",".round($grbm,0);?>"><?php $sum=$sum-$degr00; echo round($degr00,2);?></a></div></td>
<td bgcolor="#5357fa"><font color='<?php if ($deb00>3.5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($blm,0).",".round($bam,0).",".round($bbm,0);?>"><?php $sum=$sum-$deb00; echo round($deb00,2);?></a></div></td>
<td bgcolor="#ffffff">TVI</td>
<td bgcolor="#00FFFF"><font color='<?php if ($c50TVI>4 or $c50TVI<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php $sum=$sum-abs($c50TVI);echo round($c50TVI,2);?></div></td>
<td bgcolor="#FF99FF"><font color='<?php if ($m50TVI>4 or $m50TVI<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php $sum=$sum-abs($m50TVI);echo round($m50TVI,2);?></div></td>
<td bgcolor="#FFFF99"><font color='<?php if ($y50TVI>4 or $y50TVI<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php $sum=$sum-abs($y50TVI);echo round($y50TVI,2);?></div></td>
<td bgcolor="#aaaaaa"><font color='<?php if ($k50TVI>4 or $k50TVI<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php $sum=$sum-abs($k50TVI); echo round($k50TVI,2);?></div></td>
<td bgcolor="#ffffff">G7</td>
<td bgcolor="#dddddd"><div align="right"><font color='<?php if ($df>2.5){echo "red";}else {echo "black";}?>'><a href=" " title="<?php echo round($g25Lm,2);?>"><?php $sum=$sum-$df*5; echo round($g25Lm-$g25LT,2);?></a></div></td>
<td bgcolor="#dddddd"><div align="right"><font color='<?php if ($d25f>2.5){echo "red";}else {echo "black";}?>'><?php echo round($dg25a,2);?></div></td>
<td bgcolor="#dddddd"><div align="right"><font color='<?php if ($d25f>2.5){echo "red";}else {echo "black";}?>'><?php echo round($dg25b,2);?></div></td>
<td bgcolor="#dddddd"><div align="right"><font color='<?php if ($d25f>2.5){echo "red";}else {echo "black";}?>'><?php echo round($d25f,2);?></div></td>
<td bgcolor="#bbbbbb"><div align="right"><font color='<?php if ($df>2.5){echo "red";}else {echo "black";}?>'><a href=" " title="<?php echo round($gLm,2);?>"><?php $sum=$sum-$df*5; echo round($gLm-$gLT,2);?></a></div></td>
<td bgcolor="#bbbbbb"><div align="right"><font color='<?php if ($df>2.5){echo "red";}else {echo "black";}?>'><?php echo round($dga,2);?></div></td>
<td bgcolor="#bbbbbb"><div align="right"><font color='<?php if ($df>2.5){echo "red";}else {echo "black";}?>'><?php echo round($dgb,2);?></div></td>
<td bgcolor="#bbbbbb"><div align="right"><font color='<?php if ($df>2.5){echo "red";}else {echo "black";}?>'><?php echo round($df,2);?></div></td>
<td bgcolor="#999999"><div align="right"><font color='<?php if ($df>2.5){echo "red";}else {echo "black";}?>'><a href=" " title="<?php echo round($g75Lm,2);?>"><?php $sum=$sum-$df*5; echo round($g75Lm-$g75LT,2);?></a></div></td>
<td bgcolor="#999999"><div align="right"><font color='<?php if ($d75f>2.5){echo "red";}else {echo "black";}?>'><?php echo round($dg75a,2);?></div></td>
<td bgcolor="#999999"><div align="right"><font color='<?php if ($d75f>2.5){echo "red";}else {echo "black";}?>'><?php echo round($dg75b,2);?></div></td>
<td bgcolor="#999999"><div align="right"><font color='<?php if ($d75f>2.5){echo "red";}else {echo "black";}?>'><?php echo round($d75f,2);?></div></td>
</tr>
<tr>
<td><div align="center">量測濃度</div></td>
<td bgcolor="#CCCCCC"></td>
<td bgcolor="#00FFFF"><div align="right"><font color='<?php if ($dec00>3.5){echo "red";}else {echo "black";}?>'><?php echo round($cdm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><font color='<?php if ($dem00>3.5){echo "red";}else {echo "black";}?>'><?php echo round($mdm,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><font color='<?php if ($dey00>3.5){echo "red";}else {echo "black";}?>'><?php echo round($ydm,2);?></div></td>
<td bgcolor="#daffc2"><div align="right"><font color='<?php if ($dek00>5){echo "red";}else {echo "black";}?>'><?php echo round($kdm,2);?></div></td>
<td bgcolor="#fa6b53"><div align="right"><font color='<?php if ($der00>4.2){echo "red";}else {echo "black";}?>'><?php echo round($rdm,2);?></div></td>
<td bgcolor="#8afa53"><div align="right"><font color='<?php if ($degr00>4.2){echo "red";}else {echo "black";}?>'><?php echo round($grdm,2);?></div></td>
<td bgcolor="#5357fa"><div align="right"><font color='<?php if ($deb00>4.2){echo "red";}else {echo "black";}?>'><div align="right"><?php echo round($bdm,2);?></div></td>
<td></td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($c50dm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($m50dm,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($y50dm,2);?></div></td>
<td bgcolor="#daffc2"><div align="right"><?php echo round($k50dm,2);?></div></td>
<td>G7量測</td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($g25Lm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($g25am,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($g25bm,2);?></div></td>
<td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($gLm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($gam,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($gbm,2);?></div></td>
<td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($g75Lm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($g75am,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($g75bm,2);?></div></td>
</tr>
<tr>
<td><div align="center">預測濃度</div></td>
<td bgcolor="#CCCCCC"></td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($coptD,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($moptD,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($yoptD,2);?></div></td>
<td bgcolor="#daffc2"><div align="right"><?php echo round($koptD,2);?></div></td>
<td bgcolor="#fa6b53"><div align="right"><?php echo round($roptD,2);?></div></td>
<td bgcolor="#8afa53"><div align="right"><?php echo round($groptD,2);?></div></td>
<td bgcolor="#5357fa"><div align="right"><?php echo round($boptD,2);?></div></td>
<td></td>
<td bgcolor="#00FFFF"><div align="right"></div></td>
<td bgcolor="#FF99FF"><div align="right"></div></td>
<td bgcolor="#FFFF99"><div align="right"></div></td>
<td bgcolor="#daffc2"><div align="right"></div></td>
<td>G7目標</td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($g25LT,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>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($gLT,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>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($g75LT,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($Pam*0.25/2,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($Pam*0.25,2);?></div></td>
</tr>
<tr>
<td><div align="center">最佳色差</div></td>
<td bgcolor="#CCCCCC"></td>
<td bgcolor="#00FFFF"><div align="right"><?php if ($cmin>5) {?><font color="red"><?php } echo round($cmin,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php if ($mmin>5) {?><font color="red"><?php } echo round($mmin,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php if ($ymin>5) {?><font color="red"><?php } echo round($ymin,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php if ($kmin>5) {?><font color="red"><?php } echo round($kmin,2);?></div></td>
<td bgcolor="#fa6b53"><div align="right"><?php if ($rmin>6) {?><font color="red"><?php } echo round($rmin,2);?></div></td>
<td bgcolor="#8afa53"><div align="right"><?php if ($grmin>6) {?><font color="red"><?php } echo round($grmin,2);?></div></td>
<td bgcolor="#5357fa"><div align="right"><?php if ($bmin>6) {?><font color="red"><?php } echo round($bmin,2);?></div></td>
<td>
</td>
<td><td><td><td><td><td><td><td><td><td><td><td><td><td>
<td><?php echo"分數:<br>". round($sum,2);?></td>
<td ><a href="RankC.php?cdc=<?php echo $cdm;?>&mdc=<?php echo $mdm;?>&ydc=<?php echo $ydm;?>&kdc=<?php echo $kdm;?>&gdc=<?php echo $gdm;?>&gLc=<?php echo $gLm;?>&gac=<?php echo $gam;?>&gbc=<?php echo $gbm;?>&cLc=<?php echo $cLm;?>&cac=<?php echo $cam;?>&cbc=<?php echo $cbm;?>&cec=<?php echo $dec00;?>&mLc=<?php echo $mLm;?>&mac=<?php echo $mam;?>&mbc=<?php echo $mbm;?>&mec=<?php echo $dem00;?>&yLc=<?php echo $yLm;?>&yac=<?php echo $yam;?>&ybc=<?php echo $ybm;?>&yec=<?php echo $dey00;?>&kLc=<?php echo $kLm;?>&kac=<?php echo $kam;?>&kbc=<?php echo $kbm;?>&kec=<?php echo $dek00;?>&rLc=<?php echo $rLm;?>&rac=<?php echo $ram;?>&rbc=<?php echo $rbm;?>&rec=<?php echo $der00;?>&grLc=<?php echo $grLm;?>&grac=<?php echo $gram;?>&grbc=<?php echo $grbm;?>&grec=<?php echo $degr00;?>&bLc=<?php echo $bLm;?>&bac=<?php echo $bam;?>&bbc=<?php echo $bbm;?>&bec=<?php echo $deb00;?>&grdc=<?php echo $grdm;?>&rdc=<?php echo $rdm;?>&bdc=<?php echo $bdm;?>&cc50=<?php echo $c50TVI;?>&cm50=<?php echo $m50TVI;?>&cy50=<?php echo $y50TVI;?>&ck50=<?php echo $k50TVI;?>&tStamp=<?php echo $tStamp;?>">compare</a></td>
<td><input type="submit" name="submit" value="Set OK"></td>
<br>
</tr>
</table>
-->
<tr></tr>
-->
<?php
if ($rule=='c9') {
$Vscore=$gmiScore;
}
elseif ($rule=='gmi') {
//$Vscore=$gmisum;
$Vscore=$gmiScore;
}
elseif ($rule=='pbn') {
$Vscore=$gmiScore;
}
//echo "<br>mysql part";
$servername = "localhost:3306";
$username = "root";
$password = "fredsql";
$DBNAME = "ntua";
// $link = mysql_connect("127.0.0.1", "root", "fredsql") or die ("Unable to connect!");
$conn = new mysqli($servername, $username, $password);
// Check connection
if ($conn->connect_error) {
die("Connection failed: " . $conn->connect_error);
}
//echo "Connected successfully";
if( !mysqli_select_db($conn, $DBNAME)) {
die ("無法選擇資料庫");
}
mysqli_query( $conn, "SET NAMES 'utf8'");
$querys = "select * from student where stid='$po' ORDER BY id DESC LIMIT 1 ";
//echo $querys;
$results = mysqli_query($conn, $querys);
$num = mysqli_num_rows($results);
if ($num > 0)
{
$row = mysqli_fetch_object($results);
$name=$row->name;
$querysf = "select * from stdRecord23 where stid='$po' ORDER BY id DESC LIMIT 1 ";
//echo "<br>".$queryf;
$resultsf = mysqli_query($conn, $querysf);
$numf = mysqli_num_rows( $resultsf);
if ($numf > 0) {
$rowf = mysqli_fetch_object($resultsf);
$fname=$rowf->filename;
if ($fname <> $filename){
$sum=round($Vscore,2);
$query = "INSERT INTO stdRecord23 (stid, name,score, sn, filename, target, ddate) VALUES( '$po','$name','$sum', '$sn', '$filename','$target', NOW())";
//echo "<br>exit:".$query;
$result = mysqli_query($conn, $query);
}
else{
echo "Filename exist";
}
}
else {
$sum=round($Vscore,2);
$query = "INSERT INTO stdRecord23 (stid, name,score, sn, filename, target, ddate) VALUES( '$po','$name','$sum', '$sn', '$filename','$target', NOW())";
//echo "<br>".$query;
$result = mysqli_query($conn, $query);
}
}
else { echo "";}
// generate and execute query
mysqli_close($conn);
?>
</form>
<table align='center'>
<?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);
?>
<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>
<tr>
<td align="center"><font size="-2"> © <a href="mailto:[email protected]">Fred Kuo</a>, 2019. All rights reserved.<br><a href="http://www.fredkuo.idv.tw/wordpress/">Read more.</a><br>
</td>
</tr>
</body>
</html>