File: C:/xampp/htdocs/FograPlate/6pmmTVI-parsingCTOKXxyz.php
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Fogra39 (M0) TVI Check</title>
<style type="text/css">
<!--
body {
font: 100% Verdana, Arial, Helvetica, sans-serif;
background: #ffffff;
margin: 0; /* 比較好的做法是將 Body 元素的邊界與欄位間隔調整為零，以處理不同的瀏覽器預設值 */
padding: 0;
text-align: center; /* 這樣會讓容器在 IE 5* 瀏覽器內置中對齊。然後，文字會在 #container 選取器中設定為靠左對齊預設值 */
color: #000000;
}
.oneColElsCtr #container {
width: 46em;
background: #FFFFFF;
margin: 0 auto; /* 自動邊界 (搭配寬度) 會讓頁面置中對齊 */
border: 0px solid #000000;
text-align: left; /* 這樣做會覆寫 Body 元素上的 text-align: center。 */
}
.oneColElsCtr #mainContent {
padding: 0 20px; /* 請記住，欄位間隔就是 Div 方塊內部的空間，而邊界就是 Div 方塊外部的空間 */
}
-->
</style></head>
<body class="oneColElsCtr">
<?php
echo "account:".$contact." Press:".$printer." device:".$device ." date:" .$date. " file:".$tvifile;
?><br><br>
<?php
function get_betweenC ($text, $s1, $s2) {
$mid_url = "";
$pos_s = strrpos($text,$s1);
$pos_e = strpos($text,$s2);
for ( $i=$pos_s+strlen($s1) ; (( $i<($pos_e)) && $i < strlen($text)) ; $i++ ) {
$mid_url .= $text[$i];
}
return $mid_url;
}
include 'sp38XYZ.php';
include 'spXYZ.php';
include 'lab2xyz.php';
include 'SCCA51.php';
include 'xyz2lab01.php';
include 'xyz2lab.php';
$sum=260;
$check=1;
echo "Fogra39 (M0) TVI Checking form! (for Type 1 paper, white backing)" . "<br />";
echo "if you see anything in ";$check=0;$sid=0;?><font color="red">RED</font><?php echo", Fix it! " . "<br />";
echo "Report start: " . "<br />";
// echo "Stored in: " . "upload/" . $_FILES["file"]["name"]. "<br />";
///parsing start
$filedb=substr($f321,0,60);
$dbstr=explode("_", $filedb);
echo $dbstr[0]."XX".$dbstr[1]."XX".$dbstr[2]."XX".$dbstr[3].$dbstr[4].$dbstr[5];
$filename=$filedb;
$po=$dbstr[1];
$type=$dbstr[2];
$press=$dbstr[0];
$contents = file($f321);
$stringC = implode($contents);
$fMark = strrpos($stringC,'i1Profiler');
//echo "fMark:".$fMark."<br>";
$fMarkC = strrpos($stringC,'ColorPort');
//echo "fMarkC:".$fMarkC."<br>";
if ($fMark>0) { ////////////////////////////////////////////////////////////// i1 profiler go 437
$cols=get_betweenC($stringC,"NUMBER_OF_FIELDS",'BEGIN_DATA_FORMAT');
//echo "cols:".$cols."_zz<br>";
//echo $contents[20];
//echo $stringC;
$string = implode($contents);
$p = ereg_replace("\r\n?", "\n", $string);
$p = str_replace("\n", ',', $p);
//echo $p;
function get_between ($text, $s1, $s2) {
$mid_url = "";
$pos_s = strrpos($text,$s1);
$pos_e = strrpos($text,$s2);
for ( $i=$pos_s+strlen($s1) ; (( $i<($pos_e)) && $i < strlen($text)) ; $i++ ) {
$mid_url .= $text[$i];
}
return $mid_url;
}
$datastring=get_between($p,"BEGIN_DATA,",",END_DATA");
$dot = explode("\t", $datastring);
//echo "dot".$dot[6]."<br>";
$Pdot=0;
$PmX=sp38XYZ("X",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
$PmY=sp38XYZ("Y",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
$PmZ=sp38XYZ("Z",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
}
if ($fMarkC>0) { ////////////////////////////////////////////////////////////// ColorPort 400
$cols=get_betweenC($stringC,"NUMBER_OF_FIELDS",'WEIGHTING_FUNCTION ');
//echo "cols:".$cols."_zz<br>";
//echo $contents[20];
//echo $stringC;
$string = implode($contents);
$p = ereg_replace("\r\n?", "\n", $string);
$p = str_replace("\n", ',', $p);
//echo $p;
function get_between ($text, $s1, $s2) {
$mid_url = "";
$pos_s = strrpos($text,$s1);
$pos_e = strrpos($text,$s2);
for ( $i=$pos_s+strlen($s1) ; (( $i<($pos_e)) && $i < strlen($text)) ; $i++ ) {
$mid_url .= $text[$i];
}
return $mid_url;
}
$datastring=get_between($p,"BEGIN_DATA,",",END_DATA");
$dot = explode("\t", $datastring);
//echo "dot".$dot[6]."<br>";
$Pdot=0;
if ($cols<>40){
$PmX=sp38XYZ("X",$dot[9+$cols*$Pdot],$dot[9+$cols*$Pdot+1],$dot[9+$cols*$Pdot+2],$dot[9+$cols*$Pdot+3],$dot[9+$cols*$Pdot+4],$dot[9+$cols*$Pdot+5],$dot[9+$cols*$Pdot+6],$dot[9+$cols*$Pdot+7],$dot[9+$cols*$Pdot+8],$dot[9+$cols*$Pdot+9],$dot[9+$cols*$Pdot+10],$dot[9+$cols*$Pdot+11],$dot[9+$cols*$Pdot+12],$dot[9+$cols*$Pdot+13],$dot[9+$cols*$Pdot+14],$dot[9+$cols*$Pdot+15],$dot[9+$cols*$Pdot+16],$dot[9+$cols*$Pdot+17],$dot[9+$cols*$Pdot+18],$dot[9+$cols*$Pdot+19],$dot[9+$cols*$Pdot+20],$dot[9+$cols*$Pdot+21],$dot[9+$cols*$Pdot+22],$dot[9+$cols*$Pdot+23],$dot[9+$cols*$Pdot+24],$dot[9+$cols*$Pdot+25],$dot[9+$cols*$Pdot+26],$dot[9+$cols*$Pdot+27],$dot[9+$cols*$Pdot+28],$dot[9+$cols*$Pdot+29],$dot[9+$cols*$Pdot+30],$dot[9+$cols*$Pdot+31],$dot[9+$cols*$Pdot+32],$dot[9+$cols*$Pdot+33],$dot[9+$cols*$Pdot+34],$dot[9+$cols*$Pdot+35]);
$PmY=sp38XYZ("Y",$dot[9+$cols*$Pdot],$dot[9+$cols*$Pdot+1],$dot[9+$cols*$Pdot+2],$dot[9+$cols*$Pdot+3],$dot[9+$cols*$Pdot+4],$dot[9+$cols*$Pdot+5],$dot[9+$cols*$Pdot+6],$dot[9+$cols*$Pdot+7],$dot[9+$cols*$Pdot+8],$dot[9+$cols*$Pdot+9],$dot[9+$cols*$Pdot+10],$dot[9+$cols*$Pdot+11],$dot[9+$cols*$Pdot+12],$dot[9+$cols*$Pdot+13],$dot[9+$cols*$Pdot+14],$dot[9+$cols*$Pdot+15],$dot[9+$cols*$Pdot+16],$dot[9+$cols*$Pdot+17],$dot[9+$cols*$Pdot+18],$dot[9+$cols*$Pdot+19],$dot[9+$cols*$Pdot+20],$dot[9+$cols*$Pdot+21],$dot[9+$cols*$Pdot+22],$dot[9+$cols*$Pdot+23],$dot[9+$cols*$Pdot+24],$dot[9+$cols*$Pdot+25],$dot[9+$cols*$Pdot+26],$dot[9+$cols*$Pdot+27],$dot[9+$cols*$Pdot+28],$dot[9+$cols*$Pdot+29],$dot[9+$cols*$Pdot+30],$dot[9+$cols*$Pdot+31],$dot[9+$cols*$Pdot+32],$dot[9+$cols*$Pdot+33],$dot[9+$cols*$Pdot+34],$dot[9+$cols*$Pdot+35]);
$PmZ=sp38XYZ("Z",$dot[9+$cols*$Pdot],$dot[9+$cols*$Pdot+1],$dot[9+$cols*$Pdot+2],$dot[9+$cols*$Pdot+3],$dot[9+$cols*$Pdot+4],$dot[9+$cols*$Pdot+5],$dot[9+$cols*$Pdot+6],$dot[9+$cols*$Pdot+7],$dot[9+$cols*$Pdot+8],$dot[9+$cols*$Pdot+9],$dot[9+$cols*$Pdot+10],$dot[9+$cols*$Pdot+11],$dot[9+$cols*$Pdot+12],$dot[9+$cols*$Pdot+13],$dot[9+$cols*$Pdot+14],$dot[9+$cols*$Pdot+15],$dot[9+$cols*$Pdot+16],$dot[9+$cols*$Pdot+17],$dot[9+$cols*$Pdot+18],$dot[9+$cols*$Pdot+19],$dot[9+$cols*$Pdot+20],$dot[9+$cols*$Pdot+21],$dot[9+$cols*$Pdot+22],$dot[9+$cols*$Pdot+23],$dot[9+$cols*$Pdot+24],$dot[9+$cols*$Pdot+25],$dot[9+$cols*$Pdot+26],$dot[9+$cols*$Pdot+27],$dot[9+$cols*$Pdot+28],$dot[9+$cols*$Pdot+29],$dot[9+$cols*$Pdot+30],$dot[9+$cols*$Pdot+31],$dot[9+$cols*$Pdot+32],$dot[9+$cols*$Pdot+33],$dot[9+$cols*$Pdot+34],$dot[9+$cols*$Pdot+35]);
}
else {
$PmX=spXYZ("X",$dot[9+$cols*$Pdot],$dot[9+$cols*$Pdot+1],$dot[9+$cols*$Pdot+2],$dot[9+$cols*$Pdot+3],$dot[9+$cols*$Pdot+4],$dot[9+$cols*$Pdot+5],$dot[9+$cols*$Pdot+6],$dot[9+$cols*$Pdot+7],$dot[9+$cols*$Pdot+8],$dot[9+$cols*$Pdot+9],$dot[9+$cols*$Pdot+10],$dot[9+$cols*$Pdot+11],$dot[9+$cols*$Pdot+12],$dot[9+$cols*$Pdot+13],$dot[9+$cols*$Pdot+14],$dot[9+$cols*$Pdot+15],$dot[9+$cols*$Pdot+16],$dot[9+$cols*$Pdot+17],$dot[9+$cols*$Pdot+18],$dot[9+$cols*$Pdot+19],$dot[9+$cols*$Pdot+20],$dot[9+$cols*$Pdot+21],$dot[9+$cols*$Pdot+22],$dot[9+$cols*$Pdot+23],$dot[9+$cols*$Pdot+24],$dot[9+$cols*$Pdot+25],$dot[9+$cols*$Pdot+26],$dot[9+$cols*$Pdot+27],$dot[9+$cols*$Pdot+28],$dot[9+$cols*$Pdot+29],$dot[9+$cols*$Pdot+30]);
$PmY=spXYZ("Y",$dot[9+$cols*$Pdot],$dot[9+$cols*$Pdot+1],$dot[9+$cols*$Pdot+2],$dot[9+$cols*$Pdot+3],$dot[9+$cols*$Pdot+4],$dot[9+$cols*$Pdot+5],$dot[9+$cols*$Pdot+6],$dot[9+$cols*$Pdot+7],$dot[9+$cols*$Pdot+8],$dot[9+$cols*$Pdot+9],$dot[9+$cols*$Pdot+10],$dot[9+$cols*$Pdot+11],$dot[9+$cols*$Pdot+12],$dot[9+$cols*$Pdot+13],$dot[9+$cols*$Pdot+14],$dot[9+$cols*$Pdot+15],$dot[9+$cols*$Pdot+16],$dot[9+$cols*$Pdot+17],$dot[9+$cols*$Pdot+18],$dot[9+$cols*$Pdot+19],$dot[9+$cols*$Pdot+20],$dot[9+$cols*$Pdot+21],$dot[9+$cols*$Pdot+22],$dot[9+$cols*$Pdot+23],$dot[9+$cols*$Pdot+24],$dot[9+$cols*$Pdot+25],$dot[9+$cols*$Pdot+26],$dot[9+$cols*$Pdot+27],$dot[9+$cols*$Pdot+28],$dot[9+$cols*$Pdot+29],$dot[9+$cols*$Pdot+30]);
$PmZ=spXYZ("Z",$dot[9+$cols*$Pdot],$dot[9+$cols*$Pdot+1],$dot[9+$cols*$Pdot+2],$dot[9+$cols*$Pdot+3],$dot[9+$cols*$Pdot+4],$dot[9+$cols*$Pdot+5],$dot[9+$cols*$Pdot+6],$dot[9+$cols*$Pdot+7],$dot[9+$cols*$Pdot+8],$dot[9+$cols*$Pdot+9],$dot[9+$cols*$Pdot+10],$dot[9+$cols*$Pdot+11],$dot[9+$cols*$Pdot+12],$dot[9+$cols*$Pdot+13],$dot[9+$cols*$Pdot+14],$dot[9+$cols*$Pdot+15],$dot[9+$cols*$Pdot+16],$dot[9+$cols*$Pdot+17],$dot[9+$cols*$Pdot+18],$dot[9+$cols*$Pdot+19],$dot[9+$cols*$Pdot+20],$dot[9+$cols*$Pdot+21],$dot[9+$cols*$Pdot+22],$dot[9+$cols*$Pdot+23],$dot[9+$cols*$Pdot+24],$dot[9+$cols*$Pdot+25],$dot[9+$cols*$Pdot+26],$dot[9+$cols*$Pdot+27],$dot[9+$cols*$Pdot+28],$dot[9+$cols*$Pdot+29],$dot[9+$cols*$Pdot+30]);
}
}
//echo "take PX:".$PmX."_Y:".$PmY."_Z:".$PmZ;
$PL=xyz2lab01("l",$PmX,$PmY,$PmZ);
$Pa=xyz2lab01("a",$PmX,$PmY,$PmZ);
$Pb=xyz2lab01("b",$PmX,$PmY,$PmZ);
$RPL=95; $RPa=0.01;$RPb=-2;
//$depaper=sqrt(pow((95-$PL),2)+ pow((1-$Pa),2)+pow(((4)-$Pb),2));
echo "Fogra39 M0 paper: L:".$RPL.", a:".$RPa.", b:".$RPb. "<br />";
echo "paper measured: L:".$PL.", a:".$Pa.", b:".$Pb. "<br />";
//echo "CRPC 6 Paper: 95 1 -4,<br> Cyan:56 -37 -50".", Magenta:48 75 -4".", Yellow:89 -4 93".", Black:16 0 0". "<br />";
$RPCCl=55.1;$RPCCa=-37;$RPCCb=-50;
$RPCMl=48.49;$RPCMa=74;$RPCMb=-3.1;
$RPCYl=89.11;$RPCYa=-4.96;$RPCYb=92.96;
$RPCKl=15.96;$RPCKa=0.1;$RPCKb=0.1;
$Xp=$PmX*100;
$Yp=$PmY*100;
$Zp=$PmZ*100;
//////////////////////////////////////////////////////////////
$scCL=$RPCCl;
$scCa=$RPCCa;
$scCb=$RPCCb;
/////////////////////////////////////////////////////////////
$scML=$RPCMl;
$scMa=$RPCMa;
$scMb=$RPCMb;
////////////////////////////////////////////////////////////////
$scYL=$RPCYl;
$scYa=$RPCYa;
$scYb=$RPCYb;
////////////////////////////////////////////////////////////////////
$scKL=$RPCKl;
$scKa=$RPCKa;
$scKb=$RPCKb;
echo "Fogra39 (M0) <br> Cyan L:".round($scCL,2)." a:".round($scCa,2)." b:".round($scCb,2)."<br>Magenta L:".round($scML,2)." a:".round($scMa,2)." b:".round($scMb,2)."<br>Yellow L:".round($scYL,2)." a:".round($scYa,2)." b:".round($scYb,2)."<br>Black L:".round($scKL,2)." a:".round($scKa,2)." b:".round($scKb,2). "<br />";
?>
<p><p>
<table width="200" border="1" align="center">
<tr>
<td><div align="center">主色</div></td>
<td><font color="#aaaaaa">5%</td>
<td><font color="#aaaaaa">10%</td>
<td><font color="#aaaaaa">15%</td>
<td><font color="#aaaaaa">20%</td>
<td><font color="#aaaaaa">25%</td>
<td><font color="#666666">30%</td>
<td><font color="#666666">35%</td>
<td><font color="#666666">40%</td>
<td><font color="#666666">45%</td>
<td><font color="#666666">50%</td>
<td><font color="#666666">55%</td>
<td><font color="#666666">60%</td>
<td><font color="#666666">65%</td>
<td>70%</td>
<td>75%</td>
<td>80%</td>
<td>85%</td>
<td>90%</td>
<td>95%</td>
</tr>
<?php
//////////////////////////////////////////////////Fogra Media Check
$psum=20;
// $pl=95; $pa=-0.01;$pb=-2;
$cl=$scCL; $ca=$scCa;$cb=$scCb;
$ml=$scML; $ma=$scMa;$mb=$scMb;
$yl=$scYL; $ya=$scYa;$yb=$scYb;
$kl=$scKL; $ka=$scKa;$kb=$scKb;
?>
<?php
//$TVI_c=round(($PX-$Xi)/($PX-$C100X)*100-$cmy,2);
$PX=lab2xyz("x",$RPL,$RPa,$RPb);
$PY=lab2xyz("y",$RPL,$RPa,$RPb);
$PZ=lab2xyz("z",$RPL,$RPa,$RPb);
$RC100X=lab2xyz("x",$RPCCl,$RPCCa,$RPCCb);
$RC100Y=lab2xyz("y",$RPCCl,$RPCCa,$RPCCb);
$RC100Z=lab2xyz("z",$RPCCl,$RPCCa,$RPCCb);
$RM100X=lab2xyz("x",$RPCMl,$RPCMa,$RPCMb);
$RM100Y=lab2xyz("y",$RPCMl,$RPCMa,$RPCMb);
$RM100Z=lab2xyz("z",$RPCMl,$RPCMa,$RPCMb);
$RY100X=lab2xyz("x",$RPCYl,$RPCYa,$RPCYb);
$RY100Y=lab2xyz("y",$RPCYl,$RPCYa,$RPCYb);
$RY100Z=lab2xyz("z",$RPCYl,$RPCYa,$RPCYb);
$RK100X=lab2xyz("x",$RPCKl,$RPCKa,$RPCKb);
$RK100Y=lab2xyz("y",$RPCKl,$RPCKa,$RPCKb);
$RK100Z=lab2xyz("z",$RPCKl,$RPCKa,$RPCKb);
/////////////////////////////////////////////////////////
$RTVIc95x=lab2xyz("x",56.81,-35.25,-48.28);
$RTVIc90x=lab2xyz("x",58.65,-33.37,-46.4);
$RTVIc85x=lab2xyz("x",60.55,-31.32,-44.34);
$RTVIc80x=lab2xyz("x",62.55,-29.07,-42.07);
$RTVIc75x=lab2xyz("x",64.68,-26.83,-39.61);
$RTVIc70x=lab2xyz("x",66.86,-24.73,-37.1);
$RTVIc60x=lab2xyz("x",71.22,-20.44,-31.88);
$RTVIc50x=lab2xyz("x",75.62,-16.48,-26.7);
$RTVIc40x=lab2xyz("x",79.72,-12.53,-21.75);
$RTVIc30x=lab2xyz("x",83.89,-9.15,-16.55);
$RTVIc25x=lab2xyz("x",85.85,-7.49,-14.13);
$RTVIc20x=lab2xyz("x",87.68,-5.78,-11.8);
$RTVIc15x=lab2xyz("x",89.63,-4.4,-9.36);
$RTVIc10x=lab2xyz("x",91.48,-2.97,-6.96);
$RTVIc5x=lab2xyz("x",93.28,-1.5,-4.52);
$RTVIc95y=lab2xyz("y",56.81,-35.25,-48.28);
$RTVIc90y=lab2xyz("y",58.65,-33.37,-46.4);
$RTVIc85y=lab2xyz("y",60.55,-31.32,-44.34);
$RTVIc80y=lab2xyz("y",62.55,-29.07,-42.07);
$RTVIc75y=lab2xyz("y",64.68,-26.83,-39.61);
$RTVIc70y=lab2xyz("y",66.86,-24.73,-37.1);
$RTVIc60y=lab2xyz("y",71.22,-20.44,-31.88);
$RTVIc50y=lab2xyz("y",75.62,-16.48,-26.7);
$RTVIc40y=lab2xyz("y",79.72,-12.53,-21.75);
$RTVIc30y=lab2xyz("y",83.89,-9.15,-16.55);
$RTVIc25y=lab2xyz("y",85.85,-7.49,-14.13);
$RTVIc20y=lab2xyz("y",87.68,-5.78,-11.8);
$RTVIc15y=lab2xyz("y",89.63,-4.4,-9.36);
$RTVIc10y=lab2xyz("y",91.48,-2.97,-6.96);
$RTVIc5y=lab2xyz("y",93.28,-1.5,-4.52);
$RTVIc95z=lab2xyz("z",56.81,-35.25,-48.28);
$RTVIc90z=lab2xyz("z",58.65,-33.37,-46.4);
$RTVIc85z=lab2xyz("z",60.55,-31.32,-44.34);
$RTVIc80z=lab2xyz("z",62.55,-29.07,-42.07);
$RTVIc75z=lab2xyz("z",64.68,-26.83,-39.61);
$RTVIc70z=lab2xyz("z",66.86,-24.73,-37.1);
$RTVIc60z=lab2xyz("z",71.22,-20.44,-31.88);
$RTVIc50z=lab2xyz("z",75.62,-16.48,-26.7);
$RTVIc40z=lab2xyz("z",79.72,-12.53,-21.75);
$RTVIc30z=lab2xyz("z",83.89,-9.15,-16.55);
$RTVIc25z=lab2xyz("z",85.85,-7.49,-14.13);
$RTVIc20z=lab2xyz("z",87.68,-5.78,-11.8);
$RTVIc15z=lab2xyz("z",89.63,-4.4,-9.36);
$RTVIc10z=lab2xyz("z",91.48,-2.97,-6.96);
$RTVIc5z=lab2xyz("z",93.28,-1.5,-4.52);
////////////////////////////////////////////////////////////
for ( $i = 1; $i <= 19; $i += 1) {
${'RTVIc'.($i*5)}= ((($PX-0.55*$PZ)-(${'RTVIc'.($i*5).'x'}-0.55*${'RTVIc'.($i*5).'z'}))/(($PX-0.55*$PZ)-($RC100X-0.55*$RC100Z)))*100;
}
//echo "__c50TVI:".$RTVIc50;
//////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////
$RTVIm95x=lab2xyz("x",49.69,70.97,-3.94);
$RTVIm90x=lab2xyz("x",51.5,67.62,-4.7);
$RTVIm85x=lab2xyz("x",53.5,63.84,-5.37);
$RTVIm80x=lab2xyz("x",55.8,59.52,-5.94);
$RTVIm75x=lab2xyz("x",58.32,54.99,-6.39);
$RTVIm70x=lab2xyz("x",60.84,50.59,-6.74);
$RTVIm60x=lab2xyz("x",66.01,41.96,-7.28);
$RTVIm50x=lab2xyz("x",71.23,33.64,-7.3);
$RTVIm40x=lab2xyz("x",76.42,25.78,-6.91);
$RTVIm30x=lab2xyz("x",81.39,18.7,-6.19);
$RTVIm25x=lab2xyz("x",83.8,15.34,-5.77);
$RTVIm20x=lab2xyz("x",86.18,12.01,-5.21);
$RTVIm15x=lab2xyz("x",88.45,8.91,-4.57);
$RTVIm10x=lab2xyz("x",90.67,5.9,-3.86);
$RTVIm5x=lab2xyz("x",92.86,2.93,-3.02);
//echo "m50x:".$RTVIm50x;
$RTVIm95y=lab2xyz("y",49.69,70.97,-3.94);
$RTVIm90y=lab2xyz("y",51.5,67.62,-4.7);
$RTVIm85y=lab2xyz("y",53.5,63.84,-5.37);
$RTVIm80y=lab2xyz("y",55.8,59.52,-5.94);
$RTVIm75y=lab2xyz("y",58.32,54.99,-6.39);
$RTVIm70y=lab2xyz("y",60.84,50.59,-6.74);
$RTVIm60y=lab2xyz("y",66.01,41.96,-7.28);
$RTVIm50y=lab2xyz("y",71.23,33.64,-7.3);
$RTVIm40y=lab2xyz("y",76.42,25.78,-6.91);
$RTVIm30y=lab2xyz("y",81.39,18.7,-6.19);
$RTVIm25y=lab2xyz("y",83.8,15.34,-5.77);
$RTVIm20y=lab2xyz("y",86.18,12.01,-5.21);
$RTVIm15y=lab2xyz("y",88.45,8.91,-4.57);
$RTVIm10y=lab2xyz("y",90.67,5.9,-3.86);
$RTVIm5y=lab2xyz("y",92.86,2.93,-3.02);
//echo "__m50y:".$RTVIm50y;
$RTVIm95z=lab2xyz("z",49.69,70.97,-3.94);
$RTVIm90z=lab2xyz("z",51.5,67.62,-4.7);
$RTVIm85z=lab2xyz("z",53.5,63.84,-5.37);
$RTVIm80z=lab2xyz("z",55.8,59.52,-5.94);
$RTVIm75z=lab2xyz("z",58.32,54.99,-6.39);
$RTVIm70z=lab2xyz("z",60.84,50.59,-6.74);
$RTVIm60z=lab2xyz("z",66.01,41.96,-7.28);
$RTVIm50z=lab2xyz("z",71.23,33.64,-7.3);
$RTVIm40z=lab2xyz("z",76.42,25.78,-6.91);
$RTVIm30z=lab2xyz("z",81.39,18.7,-6.19);
$RTVIm25z=lab2xyz("z",83.8,15.34,-5.77);
$RTVIm20z=lab2xyz("z",86.18,12.01,-5.21);
$RTVIm15z=lab2xyz("z",88.45,8.91,-4.57);
$RTVIm10z=lab2xyz("z",90.67,5.9,-3.86);
$RTVIm5z=lab2xyz("z",92.86,2.93,-3.02);
//echo "__m50z:".$RTVIm50z;
////////////////////////////////////////////////////////////
for ( $i = 1; $i <= 19; $i += 1) {
${'RTVIm'.($i*5)}= ((($PY-${'RTVIm'.($i*5).'y'})/($PY- $RM100Y))*100);
}
//echo "__m50TVI:".$RTVIm50;
//////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////
$RTVIy95x=lab2xyz("x",89.18,-5,88.44);
$RTVIy90x=lab2xyz("x",89.34,-5,83.76);
$RTVIy85x=lab2xyz("x",89.52,-4.95,78.84);
$RTVIy80x=lab2xyz("x",89.73,-4.82,73.52);
$RTVIy75x=lab2xyz("x",90.02,-4.75,67.99);
$RTVIy70x=lab2xyz("x",90.34,-4.7,62.56);
$RTVIy60x=lab2xyz("x",90.92,-4.39,51.51);
$RTVIy50x=lab2xyz("x",91.55,-4,41);
$RTVIy40x=lab2xyz("x",92.19,-3.47,31.15);
$RTVIy30x=lab2xyz("x",92.97,-2.61,22.02);
$RTVIy25x=lab2xyz("x",93.32,-2.13,17.61);
$RTVIy20x=lab2xyz("x",93.62,-1.62,13.27);
$RTVIy15x=lab2xyz("x",93.98,-1.31,9.31);
$RTVIy10x=lab2xyz("x",94.34,-0.94,5.42);
$RTVIy5x=lab2xyz("x",94.69,-0.5,1.64);
$RTVIy95y=lab2xyz("y",89.18,-5,88.44);
$RTVIy90y=lab2xyz("y",89.34,-5,83.76);
$RTVIy85y=lab2xyz("y",89.52,-4.95,78.84);
$RTVIy80y=lab2xyz("y",89.73,-4.82,73.52);
$RTVIy75y=lab2xyz("y",90.02,-4.75,67.99);
$RTVIy70y=lab2xyz("y",90.34,-4.7,62.56);
$RTVIy60y=lab2xyz("y",90.92,-4.39,51.51);
$RTVIy50y=lab2xyz("y",91.55,-4,41);
$RTVIy40y=lab2xyz("y",92.19,-3.47,31.15);
$RTVIy30y=lab2xyz("y",92.97,-2.61,22.02);
$RTVIy25y=lab2xyz("y",93.32,-2.13,17.61);
$RTVIy20y=lab2xyz("y",93.62,-1.62,13.27);
$RTVIy15y=lab2xyz("y",93.98,-1.31,9.31);
$RTVIy10y=lab2xyz("y",94.34,-0.94,5.42);
$RTVIy5y=lab2xyz("y",94.69,-0.5,1.64);
$RTVIy95z=lab2xyz("z",89.18,-5,88.44);
$RTVIy90z=lab2xyz("z",89.34,-5,83.76);
$RTVIy85z=lab2xyz("z",89.52,-4.95,78.84);
$RTVIy80z=lab2xyz("z",89.73,-4.82,73.52);
$RTVIy75z=lab2xyz("z",90.02,-4.75,67.99);
$RTVIy70z=lab2xyz("z",90.34,-4.7,62.56);
$RTVIy60z=lab2xyz("z",90.92,-4.39,51.51);
$RTVIy50z=lab2xyz("z",91.55,-4,41);
$RTVIy40z=lab2xyz("z",92.19,-3.47,31.15);
$RTVIy30z=lab2xyz("z",92.97,-2.61,22.02);
$RTVIy25z=lab2xyz("z",93.32,-2.13,17.61);
$RTVIy20z=lab2xyz("z",93.62,-1.62,13.27);
$RTVIy15z=lab2xyz("z",93.98,-1.31,9.31);
$RTVIy10z=lab2xyz("z",94.34,-0.94,5.42);
$RTVIy5z=lab2xyz("z",94.69,-0.5,1.64);
////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////////////////
for ( $i = 1; $i <= 19; $i += 1) {
${'RTVIy'.($i*5)}= ((($PZ-${'RTVIy'.($i*5).'z'})/($PZ- $RY100Z))*100);
}
//echo "__y50TVI:".$RTVIy50;
/////////////////////////////////////////////////////////
$RTVIk95x=lab2xyz("x",21.46,0.1,-0.14);
$RTVIk90x=lab2xyz("x",26.69,0.1,-0.27);
$RTVIk85x=lab2xyz("x",31.72,0.1,-0.4);
$RTVIk80x=lab2xyz("x",36.62,0.1,-0.52);
$RTVIk75x=lab2xyz("x",41.11,0.1,-0.64);
$RTVIk70x=lab2xyz("x",45.53,0.1,-0.75);
$RTVIk60x=lab2xyz("x",54.14,0.1,-0.97);
$RTVIk50x=lab2xyz("x",61.82,0.1,-1.16);
$RTVIk40x=lab2xyz("x",69.28,0.1,-1.35);
$RTVIk30x=lab2xyz("x",76.12,0.1,-1.52);
$RTVIk25x=lab2xyz("x",79.47,0.1,-1.61);
$RTVIk20x=lab2xyz("x",82.79,0.1,-1.69);
$RTVIk15x=lab2xyz("x",85.89,0.1,-1.77);
$RTVIk10x=lab2xyz("x",88.97,0.1,-1.85);
$RTVIk5x=lab2xyz("x",92.03,0.1,-1.92);
$RTVIk95y=lab2xyz("y",21.46,0.1,-0.14);
$RTVIk90y=lab2xyz("y",26.69,0.1,-0.27);
$RTVIk85y=lab2xyz("y",31.72,0.1,-0.4);
$RTVIk80y=lab2xyz("y",36.62,0.1,-0.52);
$RTVIk75y=lab2xyz("y",41.11,0.1,-0.64);
$RTVIk70y=lab2xyz("y",45.53,0.1,-0.75);
$RTVIk60y=lab2xyz("y",54.14,0.1,-0.97);
$RTVIk50y=lab2xyz("y",61.82,0.1,-1.16);
$RTVIk40y=lab2xyz("y",69.28,0.1,-1.35);
$RTVIk30y=lab2xyz("y",76.12,0.1,-1.52);
$RTVIk25y=lab2xyz("y",79.47,0.1,-1.61);
$RTVIk20y=lab2xyz("y",82.79,0.1,-1.69);
$RTVIk15y=lab2xyz("y",85.89,0.1,-1.77);
$RTVIk10y=lab2xyz("y",88.97,0.1,-1.85);
$RTVIk5y=lab2xyz("y",92.03,0.1,-1.92);
$RTVIk95z=lab2xyz("z",21.46,0.1,-0.14);
$RTVIk90z=lab2xyz("z",26.69,0.1,-0.27);
$RTVIk85z=lab2xyz("z",31.72,0.1,-0.4);
$RTVIk80z=lab2xyz("z",36.62,0.1,-0.52);
$RTVIk75z=lab2xyz("z",41.11,0.1,-0.64);
$RTVIk70z=lab2xyz("z",45.53,0.1,-0.75);
$RTVIk60z=lab2xyz("z",54.14,0.1,-0.97);
$RTVIk50z=lab2xyz("z",61.82,0.1,-1.16);
$RTVIk40z=lab2xyz("z",69.28,0.1,-1.35);
$RTVIk30z=lab2xyz("z",76.12,0.1,-1.52);
$RTVIk25z=lab2xyz("z",79.47,0.1,-1.61);
$RTVIk20z=lab2xyz("z",82.79,0.1,-1.69);
$RTVIk15z=lab2xyz("z",85.89,0.1,-1.77);
$RTVIk10z=lab2xyz("z",88.97,0.1,-1.85);
$RTVIk5z=lab2xyz("z",92.03,0.1,-1.92);
////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////////////////
for ( $i = 1; $i <= 19; $i += 1) {
${'RTVIk'.($i*5)}= ((($PY-${'RTVIk'.($i*5).'y'})/($PY- $RK100Z))*100);
}
//echo "__k50TVI:".$RTVIk50;
////////////////////////////////////get measured
/////////////////////////////////////////
if ($fMark>0) { /////////////////////////
for ( $i = 1; $i <= 19; $i += 1) {
$Pdot=$i;
${'c'.$i.'X'}=sp38XYZ("X",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
${'c'.$i.'Y'}=sp38XYZ("Y",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
${'c'.$i.'Z'}=sp38XYZ("Z",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
${'c'.($i*5).'l'}=xyz2lab01("l",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
${'c'.($i*5).'a'}=xyz2lab01("a",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
${'c'.($i*5).'b'}=xyz2lab01("b",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
//echo "tviC:".${'RTVIc'.($i*5)}."zz";
;}
for ( $i = 22; $i <= 40; $i += 1) {
$Pdot=$i; $j=($i-21)*5;
${'m'.($j).'X'}=sp38XYZ("X",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
//echo "<br>mix:".${'m'.($j).'X'};
${'m'.($j).'Y'}=sp38XYZ("Y",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
${'m'.($j).'Z'}=sp38XYZ("Z",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
${'m'.($j).'l'}=xyz2lab01("l",${'m'.$j.'X'},${'m'.$j.'Y'},${'m'.$j.'Z'});
${'m'.($j).'a'}=xyz2lab01("a",${'m'.$j.'X'},${'m'.$j.'Y'},${'m'.$j.'Z'});
${'m'.($j).'b'}=xyz2lab01("b",${'m'.$j.'X'},${'m'.$j.'Y'},${'m'.$j.'Z'});
//echo "tviM:".${'RTVIc'.($i*5)}."zz";
;}
for ( $i = 43; $i <= 61; $i += 1) {
$Pdot=$i; $j=($i-42)*5;
${'y'.($j).'X'}=sp38XYZ("X",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
//echo "<br>miy:".${'y'.($j).'X'};
${'y'.($j).'Y'}=sp38XYZ("Y",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
${'y'.($j).'Z'}=sp38XYZ("Z",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
${'y'.($j).'l'}=xyz2lab01("l",${'y'.$j.'X'},${'y'.$j.'Y'},${'y'.$j.'Z'});
${'y'.($j).'a'}=xyz2lab01("a",${'y'.$j.'X'},${'y'.$j.'Y'},${'y'.$j.'Z'});
${'y'.($j).'b'}=xyz2lab01("b",${'y'.$j.'X'},${'y'.$j.'Y'},${'y'.$j.'Z'});
//echo "tviM:".${'RTVIc'.($i*5)}."zz";
;}
for ( $i = 64; $i <= 82; $i += 1) {
$Pdot=$i; $j=($i-63)*5;
${'k'.($j).'X'}=sp38XYZ("X",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
//echo "<br>kix:".${'k'.($j).'X'};
${'k'.($j).'Y'}=sp38XYZ("Y",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
${'k'.($j).'Z'}=sp38XYZ("Z",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
${'k'.($j).'l'}=xyz2lab01("l",${'k'.$j.'X'},${'k'.$j.'Y'},${'k'.$j.'Z'});
${'k'.($j).'a'}=xyz2lab01("a",${'k'.$j.'X'},${'k'.$j.'Y'},${'k'.$j.'Z'});
${'k'.($j).'b'}=xyz2lab01("b",${'k'.$j.'X'},${'k'.$j.'Y'},${'k'.$j.'Z'});
//echo "tviM:".${'RTVIc'.($i*5)}."zz";
;}
$TVIk5x=lab2xyz("x",$c5l,$c5a,$c5b);
$TVIk5y=lab2xyz("y",$c5l,$c5b,$c5b);
$TVIc95zz=lab2xyz("z",$c95l,$c95a,$c95b);
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIc'.($t).'x'}=lab2xyz("x",${'c'.$t.'l'},${'c'.$t.'a'},${'c'.$t.'b'}); //TVIc5x; c5l;
${'TVIc'.($t).'y'}=lab2xyz("y",${'c'.$t.'l'},${'c'.$t.'a'},${'c'.$t.'b'});
${'TVIc'.($t).'z'}=lab2xyz("z",${'c'.$t.'l'},${'c'.$t.'a'},${'c'.$t.'b'});
}
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIm'.($t).'x'}=lab2xyz("x",${'m'.$t.'l'},${'m'.$t.'a'},${'m'.$t.'b'});
${'TVIm'.($t).'y'}=lab2xyz("y",${'m'.$t.'l'},${'m'.$t.'a'},${'m'.$t.'b'});
${'TVIm'.($t).'z'}=lab2xyz("z",${'m'.$t.'l'},${'m'.$t.'a'},${'m'.$t.'b'});
}
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIy'.($t).'x'}=lab2xyz("x",${'y'.$t.'l'},${'y'.$t.'a'},${'y'.$t.'b'});
${'TVIy'.($t).'y'}=lab2xyz("y",${'y'.$t.'l'},${'y'.$t.'a'},${'y'.$t.'b'});
${'TVIy'.($t).'z'}=lab2xyz("z",${'y'.$t.'l'},${'y'.$t.'a'},${'y'.$t.'b'});
}
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIk'.($t).'x'}=lab2xyz("x",${'k'.$t.'l'},${'k'.$t.'a'},${'k'.$t.'b'});
${'TVIk'.($t).'y'}=lab2xyz("y",${'k'.$t.'l'},${'k'.$t.'a'},${'k'.$t.'b'});
${'TVIk'.($t).'z'}=lab2xyz("z",${'k'.$t.'l'},${'k'.$t.'a'},${'k'.$t.'b'});
}
$Pdot=20;
$C100X=sp38XYZ("X",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
$C100Y=sp38XYZ("Y",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
$C100Z=sp38XYZ("Z",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
$c100l=xyz2lab01("l",$C100X,$C100Y,$C100Z);
$c100a=xyz2lab01("a",$C100X,$C100Y,$C100Z);
$c100b=xyz2lab01("b",$C100X,$C100Y,$C100Z);
//echo "<br>".$dot[6+$cols*$Pdot]."-dot20<br>";
/////////////////////////////////////m sec
$Pdot=41;
$M100X=sp38XYZ("X",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
$M100Y=sp38XYZ("Y",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
$M100Z=sp38XYZ("Z",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
$m100l=xyz2lab01("l",$M100X,$M100Y,$M100Z);
$m100a=xyz2lab01("a",$M100X,$M100Y,$M100Z);
$m100b=xyz2lab01("b",$M100X,$M100Y,$M100Z);
$Pdot=62;
$Y100X=sp38XYZ("X",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
$Y100Y=sp38XYZ("Y",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
$Y100Z=sp38XYZ("Z",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
$y100l=xyz2lab01("l",$Y100X,$Y100Y,$Y100Z);
$y100a=xyz2lab01("a",$Y100X,$Y100Y,$Y100Z);
$y100b=xyz2lab01("b",$Y100X,$Y100Y,$Y100Z);
$Pdot=83;
$K100X=sp38XYZ("X",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
$K100Y=sp38XYZ("Y",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
$K100Z=sp38XYZ("Z",$dot[6+$cols*$Pdot],$dot[6+$cols*$Pdot+1],$dot[6+$cols*$Pdot+2],$dot[6+$cols*$Pdot+3],$dot[6+$cols*$Pdot+4],$dot[6+$cols*$Pdot+5],$dot[6+$cols*$Pdot+6],$dot[6+$cols*$Pdot+7],$dot[6+$cols*$Pdot+8],$dot[6+$cols*$Pdot+9],$dot[6+$cols*$Pdot+10],$dot[6+$cols*$Pdot+11],$dot[6+$cols*$Pdot+12],$dot[6+$cols*$Pdot+13],$dot[6+$cols*$Pdot+14],$dot[6+$cols*$Pdot+15],$dot[6+$cols*$Pdot+16],$dot[6+$cols*$Pdot+17],$dot[6+$cols*$Pdot+18],$dot[6+$cols*$Pdot+19],$dot[6+$cols*$Pdot+20],$dot[6+$cols*$Pdot+21],$dot[6+$cols*$Pdot+22],$dot[6+$cols*$Pdot+23],$dot[6+$cols*$Pdot+24],$dot[6+$cols*$Pdot+25],$dot[6+$cols*$Pdot+26],$dot[6+$cols*$Pdot+27],$dot[6+$cols*$Pdot+28],$dot[6+$cols*$Pdot+29],$dot[6+$cols*$Pdot+30],$dot[6+$cols*$Pdot+31],$dot[6+$cols*$Pdot+32],$dot[6+$cols*$Pdot+33],$dot[6+$cols*$Pdot+34],$dot[6+$cols*$Pdot+35]);
$k100l=xyz2lab01("l",$K100X,$K100Y,$K100Z);
$k100a=xyz2lab01("a",$K100X,$K100Y,$K100Z);
$k100b=xyz2lab01("b",$K100X,$K100Y,$K100Z);
//$RTVIc5=((($PX-0.55*$PZ)-($RTVIc5x-0.55*$RTVIc5z))/(($PX-0.55*$PZ)-($RC100X-0.55*$RC100Z)))*100; TVIc
$TVIc95s=((($Xp-0.55*$Zp)-($TVIc95x-0.55*$TVIc95z))/(($Xp-0.55*$Zp)-($C100X*100-0.55*$C100Z*100)))*100;
//echo "<br>PX=".($PmX*100)."--Xp=".$TVIm5x."____"."tvic95s:".$TVIc95s."<br>";
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIc'.$t}=((($Xp-0.55*$Zp)-(${'TVIc'.$t.'x'}-0.55*${'TVIc'.$t.'z'}))/(($Xp-0.55*$Zp)-($C100X*100-0.55*$C100Z*100)))*100;
}
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIm'.$t}=((($Yp-${'TVIm'.($t).'y'})/($Yp- $M100Y*100))*100);
}
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIy'.$t}=((($Zp-${'TVIy'.($t).'z'})/($Zp- $Y100Z*100))*100);
}
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIk'.$t}=((($Yp-${'TVIk'.($t).'y'})/($Yp- $K100Z*100))*100);
}
}/////////////mark profiler
if ($fMarkC>0) { /////////////////////////////
if ($cols<>40){
for ( $i = 1; $i <= 19; $i += 1) {
$Pdot=$i;
${'c'.$i.'X'}=sp38XYZ("X",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
${'c'.$i.'Y'}=sp38XYZ("Y",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
${'c'.$i.'Z'}=sp38XYZ("Z",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
${'c'.($i*5).'l'}=xyz2lab01("l",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
${'c'.($i*5).'a'}=xyz2lab01("a",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
${'c'.($i*5).'b'}=xyz2lab01("b",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
//echo "tviC:".${'RTVIc'.($i*5)}."zz";
;}
for ( $i = 22; $i <= 40; $i += 1) {
$Pdot=$i; $j=($i-21)*5;
${'m'.($j).'X'}=sp38XYZ("X",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
//echo "<br>mix:".${'m'.($j).'X'};
${'m'.($j).'Y'}=sp38XYZ("Y",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
${'m'.($j).'Z'}=sp38XYZ("Z",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
${'m'.($j).'l'}=xyz2lab01("l",${'m'.$j.'X'},${'m'.$j.'Y'},${'m'.$j.'Z'});
${'m'.($j).'a'}=xyz2lab01("a",${'m'.$j.'X'},${'m'.$j.'Y'},${'m'.$j.'Z'});
${'m'.($j).'b'}=xyz2lab01("b",${'m'.$j.'X'},${'m'.$j.'Y'},${'m'.$j.'Z'});
//echo "tviM:".${'RTVIc'.($i*5)}."zz";
;}
for ( $i = 43; $i <= 61; $i += 1) {
$Pdot=$i; $j=($i-42)*5;
${'y'.($j).'X'}=sp38XYZ("X",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
//echo "<br>miy:".${'y'.($j).'X'};
${'y'.($j).'Y'}=sp38XYZ("Y",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
${'y'.($j).'Z'}=sp38XYZ("Z",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
${'y'.($j).'l'}=xyz2lab01("l",${'y'.$j.'X'},${'y'.$j.'Y'},${'y'.$j.'Z'});
${'y'.($j).'a'}=xyz2lab01("a",${'y'.$j.'X'},${'y'.$j.'Y'},${'y'.$j.'Z'});
${'y'.($j).'b'}=xyz2lab01("b",${'y'.$j.'X'},${'y'.$j.'Y'},${'y'.$j.'Z'});
//echo "tviM:".${'RTVIc'.($i*5)}."zz";
;}
for ( $i = 64; $i <= 82; $i += 1) {
$Pdot=$i; $j=($i-63)*5;
${'k'.($j).'X'}=sp38XYZ("X",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
//echo "<br>kix:".${'k'.($j).'X'};
${'k'.($j).'Y'}=sp38XYZ("Y",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
${'k'.($j).'Z'}=sp38XYZ("Z",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
${'k'.($j).'l'}=xyz2lab01("l",${'k'.$j.'X'},${'k'.$j.'Y'},${'k'.$j.'Z'});
${'k'.($j).'a'}=xyz2lab01("a",${'k'.$j.'X'},${'k'.$j.'Y'},${'k'.$j.'Z'});
${'k'.($j).'b'}=xyz2lab01("b",${'k'.$j.'X'},${'k'.$j.'Y'},${'k'.$j.'Z'});
//echo "tviM:".${'RTVIc'.($i*5)}."zz";
;}
$TVIk5x=lab2xyz("x",$c5l,$c5a,$c5b);
$TVIk5y=lab2xyz("y",$c5l,$c5b,$c5b);
$TVIc95zz=lab2xyz("z",$c95l,$c95a,$c95b);
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIc'.($t).'x'}=lab2xyz("x",${'c'.$t.'l'},${'c'.$t.'a'},${'c'.$t.'b'}); //TVIc5x; c5l;
${'TVIc'.($t).'y'}=lab2xyz("y",${'c'.$t.'l'},${'c'.$t.'a'},${'c'.$t.'b'});
${'TVIc'.($t).'z'}=lab2xyz("z",${'c'.$t.'l'},${'c'.$t.'a'},${'c'.$t.'b'});
}
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIm'.($t).'x'}=lab2xyz("x",${'m'.$t.'l'},${'m'.$t.'a'},${'m'.$t.'b'});
${'TVIm'.($t).'y'}=lab2xyz("y",${'m'.$t.'l'},${'m'.$t.'a'},${'m'.$t.'b'});
${'TVIm'.($t).'z'}=lab2xyz("z",${'m'.$t.'l'},${'m'.$t.'a'},${'m'.$t.'b'});
}
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIy'.($t).'x'}=lab2xyz("x",${'y'.$t.'l'},${'y'.$t.'a'},${'y'.$t.'b'});
${'TVIy'.($t).'y'}=lab2xyz("y",${'y'.$t.'l'},${'y'.$t.'a'},${'y'.$t.'b'});
${'TVIy'.($t).'z'}=lab2xyz("z",${'y'.$t.'l'},${'y'.$t.'a'},${'y'.$t.'b'});
}
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIk'.($t).'x'}=lab2xyz("x",${'k'.$t.'l'},${'k'.$t.'a'},${'k'.$t.'b'});
${'TVIk'.($t).'y'}=lab2xyz("y",${'k'.$t.'l'},${'k'.$t.'a'},${'k'.$t.'b'});
${'TVIk'.($t).'z'}=lab2xyz("z",${'k'.$t.'l'},${'k'.$t.'a'},${'k'.$t.'b'});
}
$Pdot=20;
$C100X=sp38XYZ("X",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
$C100Y=sp38XYZ("Y",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
$C100Z=sp38XYZ("Z",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
$c100l=xyz2lab01("l",$C100X,$C100Y,$C100Z);
$c100a=xyz2lab01("a",$C100X,$C100Y,$C100Z);
$c100b=xyz2lab01("b",$C100X,$C100Y,$C100Z);
//echo "<br>".$dot[9+$cols*$Pdot-$Pdot]."-dot20<br>";
/////////////////////////////////////m sec
$Pdot=41;
$M100X=sp38XYZ("X",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
$M100Y=sp38XYZ("Y",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
$M100Z=sp38XYZ("Z",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
$m100l=xyz2lab01("l",$M100X,$M100Y,$M100Z);
$m100a=xyz2lab01("a",$M100X,$M100Y,$M100Z);
$m100b=xyz2lab01("b",$M100X,$M100Y,$M100Z);
$Pdot=62;
$Y100X=sp38XYZ("X",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
$Y100Y=sp38XYZ("Y",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
$Y100Z=sp38XYZ("Z",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
$y100l=xyz2lab01("l",$Y100X,$Y100Y,$Y100Z);
$y100a=xyz2lab01("a",$Y100X,$Y100Y,$Y100Z);
$y100b=xyz2lab01("b",$Y100X,$Y100Y,$Y100Z);
$Pdot=83;
$K100X=sp38XYZ("X",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
$K100Y=sp38XYZ("Y",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
$K100Z=sp38XYZ("Z",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30],$dot[9+$cols*$Pdot-$Pdot+31],$dot[9+$cols*$Pdot-$Pdot+32],$dot[9+$cols*$Pdot-$Pdot+33],$dot[9+$cols*$Pdot-$Pdot+34],$dot[9+$cols*$Pdot-$Pdot+35]);
$k100l=xyz2lab01("l",$K100X,$K100Y,$K100Z);
$k100a=xyz2lab01("a",$K100X,$K100Y,$K100Z);
$k100b=xyz2lab01("b",$K100X,$K100Y,$K100Z);
//$RTVIc5=((($PX-0.55*$PZ)-($RTVIc5x-0.55*$RTVIc5z))/(($PX-0.55*$PZ)-($RC100X-0.55*$RC100Z)))*100; TVIc
$TVIc95s=((($Xp-0.55*$Zp)-($TVIc95x-0.55*$TVIc95z))/(($Xp-0.55*$Zp)-($C100X*100-0.55*$C100Z*100)))*100;
//echo "<br>PX=".($PmX*100)."--Xp=".$TVIm5x."____"."tvic95s:".$TVIc95s."<br>";
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIc'.$t}=((($Xp-0.55*$Zp)-(${'TVIc'.$t.'x'}-0.55*${'TVIc'.$t.'z'}))/(($Xp-0.55*$Zp)-($C100X*100-0.55*$C100Z*100)))*100;
}
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIm'.$t}=((($Yp-${'TVIm'.($t).'y'})/($Yp- $M100Y*100))*100);
}
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIy'.$t}=((($Zp-${'TVIy'.($t).'z'})/($Zp- $Y100Z*100))*100);
}
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIk'.$t}=((($Yp-${'TVIk'.($t).'y'})/($Yp- $K100Z*100))*100);
}
}
else { ////////////////////////////////////////////////////////cp 400
for ( $i = 1; $i <= 19; $i += 1) {
$Pdot=$i;
${'c'.$i.'X'}=spXYZ("X",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
${'c'.$i.'Y'}=spXYZ("Y",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
${'c'.$i.'Z'}=spXYZ("Z",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
${'c'.($i*5).'l'}=xyz2lab01("l",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
${'c'.($i*5).'a'}=xyz2lab01("a",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
${'c'.($i*5).'b'}=xyz2lab01("b",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
//echo "tviC:".${'RTVIc'.($i*5)}."zz";
;}
for ( $i = 22; $i <= 40; $i += 1) {
$Pdot=$i; $j=($i-21)*5;
${'m'.($j).'X'}=spXYZ("X",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
//echo "<br>mix:".${'m'.($j).'X'};
${'m'.($j).'Y'}=spXYZ("Y",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
${'m'.($j).'Z'}=spXYZ("Z",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
${'m'.($j).'l'}=xyz2lab01("l",${'m'.$j.'X'},${'m'.$j.'Y'},${'m'.$j.'Z'});
${'m'.($j).'a'}=xyz2lab01("a",${'m'.$j.'X'},${'m'.$j.'Y'},${'m'.$j.'Z'});
${'m'.($j).'b'}=xyz2lab01("b",${'m'.$j.'X'},${'m'.$j.'Y'},${'m'.$j.'Z'});
//echo "tviM:".${'RTVIc'.($i*5)}."zz";
;}
for ( $i = 43; $i <= 61; $i += 1) {
$Pdot=$i; $j=($i-42)*5;
${'y'.($j).'X'}=spXYZ("X",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
//echo "<br>miy:".${'y'.($j).'X'};
${'y'.($j).'Y'}=spXYZ("Y",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
${'y'.($j).'Z'}=spXYZ("Z",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
${'y'.($j).'l'}=xyz2lab01("l",${'y'.$j.'X'},${'y'.$j.'Y'},${'y'.$j.'Z'});
${'y'.($j).'a'}=xyz2lab01("a",${'y'.$j.'X'},${'y'.$j.'Y'},${'y'.$j.'Z'});
${'y'.($j).'b'}=xyz2lab01("b",${'y'.$j.'X'},${'y'.$j.'Y'},${'y'.$j.'Z'});
//echo "tviM:".${'RTVIc'.($i*5)}."zz";
;}
for ( $i = 64; $i <= 82; $i += 1) {
$Pdot=$i; $j=($i-63)*5;
${'k'.($j).'X'}=spXYZ("X",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
//echo "<br>kix:".${'k'.($j).'X'};
${'k'.($j).'Y'}=spXYZ("Y",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
${'k'.($j).'Z'}=spXYZ("Z",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
${'k'.($j).'l'}=xyz2lab01("l",${'k'.$j.'X'},${'k'.$j.'Y'},${'k'.$j.'Z'});
${'k'.($j).'a'}=xyz2lab01("a",${'k'.$j.'X'},${'k'.$j.'Y'},${'k'.$j.'Z'});
${'k'.($j).'b'}=xyz2lab01("b",${'k'.$j.'X'},${'k'.$j.'Y'},${'k'.$j.'Z'});
//echo "tviM:".${'RTVIc'.($i*5)}."zz";
;}
$TVIk5x=lab2xyz("x",$c5l,$c5a,$c5b);
$TVIk5y=lab2xyz("y",$c5l,$c5b,$c5b);
$TVIc95zz=lab2xyz("z",$c95l,$c95a,$c95b);
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIc'.($t).'x'}=lab2xyz("x",${'c'.$t.'l'},${'c'.$t.'a'},${'c'.$t.'b'}); //TVIc5x; c5l;
${'TVIc'.($t).'y'}=lab2xyz("y",${'c'.$t.'l'},${'c'.$t.'a'},${'c'.$t.'b'});
${'TVIc'.($t).'z'}=lab2xyz("z",${'c'.$t.'l'},${'c'.$t.'a'},${'c'.$t.'b'});
}
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIm'.($t).'x'}=lab2xyz("x",${'m'.$t.'l'},${'m'.$t.'a'},${'m'.$t.'b'});
${'TVIm'.($t).'y'}=lab2xyz("y",${'m'.$t.'l'},${'m'.$t.'a'},${'m'.$t.'b'});
${'TVIm'.($t).'z'}=lab2xyz("z",${'m'.$t.'l'},${'m'.$t.'a'},${'m'.$t.'b'});
}
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIy'.($t).'x'}=lab2xyz("x",${'y'.$t.'l'},${'y'.$t.'a'},${'y'.$t.'b'});
${'TVIy'.($t).'y'}=lab2xyz("y",${'y'.$t.'l'},${'y'.$t.'a'},${'y'.$t.'b'});
${'TVIy'.($t).'z'}=lab2xyz("z",${'y'.$t.'l'},${'y'.$t.'a'},${'y'.$t.'b'});
}
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIk'.($t).'x'}=lab2xyz("x",${'k'.$t.'l'},${'k'.$t.'a'},${'k'.$t.'b'});
${'TVIk'.($t).'y'}=lab2xyz("y",${'k'.$t.'l'},${'k'.$t.'a'},${'k'.$t.'b'});
${'TVIk'.($t).'z'}=lab2xyz("z",${'k'.$t.'l'},${'k'.$t.'a'},${'k'.$t.'b'});
}
$Pdot=20;
$C100X=spXYZ("X",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
$C100Y=spXYZ("Y",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
$C100Z=spXYZ("Z",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
$c100l=xyz2lab01("l",$C100X,$C100Y,$C100Z);
$c100a=xyz2lab01("a",$C100X,$C100Y,$C100Z);
$c100b=xyz2lab01("b",$C100X,$C100Y,$C100Z);
//echo "<br>".$dot[9+$cols*$Pdot-$Pdot]."-dot20<br>";
/////////////////////////////////////m sec
$Pdot=41;
$M100X=spXYZ("X",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
$M100Y=spXYZ("Y",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
$M100Z=spXYZ("Z",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
$m100l=xyz2lab01("l",$M100X,$M100Y,$M100Z);
$m100a=xyz2lab01("a",$M100X,$M100Y,$M100Z);
$m100b=xyz2lab01("b",$M100X,$M100Y,$M100Z);
$Pdot=62;
$Y100X=spXYZ("X",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
$Y100Y=spXYZ("Y",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
$Y100Z=spXYZ("Z",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
$y100l=xyz2lab01("l",$Y100X,$Y100Y,$Y100Z);
$y100a=xyz2lab01("a",$Y100X,$Y100Y,$Y100Z);
$y100b=xyz2lab01("b",$Y100X,$Y100Y,$Y100Z);
$Pdot=83;
$K100X=spXYZ("X",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
$K100Y=spXYZ("Y",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
$K100Z=spXYZ("Z",$dot[9+$cols*$Pdot-$Pdot],$dot[9+$cols*$Pdot-$Pdot+1],$dot[9+$cols*$Pdot-$Pdot+2],$dot[9+$cols*$Pdot-$Pdot+3],$dot[9+$cols*$Pdot-$Pdot+4],$dot[9+$cols*$Pdot-$Pdot+5],$dot[9+$cols*$Pdot-$Pdot+6],$dot[9+$cols*$Pdot-$Pdot+7],$dot[9+$cols*$Pdot-$Pdot+8],$dot[9+$cols*$Pdot-$Pdot+9],$dot[9+$cols*$Pdot-$Pdot+10],$dot[9+$cols*$Pdot-$Pdot+11],$dot[9+$cols*$Pdot-$Pdot+12],$dot[9+$cols*$Pdot-$Pdot+13],$dot[9+$cols*$Pdot-$Pdot+14],$dot[9+$cols*$Pdot-$Pdot+15],$dot[9+$cols*$Pdot-$Pdot+16],$dot[9+$cols*$Pdot-$Pdot+17],$dot[9+$cols*$Pdot-$Pdot+18],$dot[9+$cols*$Pdot-$Pdot+19],$dot[9+$cols*$Pdot-$Pdot+20],$dot[9+$cols*$Pdot-$Pdot+21],$dot[9+$cols*$Pdot-$Pdot+22],$dot[9+$cols*$Pdot-$Pdot+23],$dot[9+$cols*$Pdot-$Pdot+24],$dot[9+$cols*$Pdot-$Pdot+25],$dot[9+$cols*$Pdot-$Pdot+26],$dot[9+$cols*$Pdot-$Pdot+27],$dot[9+$cols*$Pdot-$Pdot+28],$dot[9+$cols*$Pdot-$Pdot+29],$dot[9+$cols*$Pdot-$Pdot+30]);
$k100l=xyz2lab01("l",$K100X,$K100Y,$K100Z);
$k100a=xyz2lab01("a",$K100X,$K100Y,$K100Z);
$k100b=xyz2lab01("b",$K100X,$K100Y,$K100Z);
//$RTVIc5=((($PX-0.55*$PZ)-($RTVIc5x-0.55*$RTVIc5z))/(($PX-0.55*$PZ)-($RC100X-0.55*$RC100Z)))*100; TVIc
$TVIc95s=((($Xp-0.55*$Zp)-($TVIc95x-0.55*$TVIc95z))/(($Xp-0.55*$Zp)-($C100X*100-0.55*$C100Z*100)))*100;
//echo "<br>PX=".($PmX*100)."--Xp=".$TVIm5x."____"."tvic95s:".$TVIc95s."<br>";
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIc'.$t}=((($Xp-0.55*$Zp)-(${'TVIc'.$t.'x'}-0.55*${'TVIc'.$t.'z'}))/(($Xp-0.55*$Zp)-($C100X*100-0.55*$C100Z*100)))*100;
}
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIm'.$t}=((($Yp-${'TVIm'.($t).'y'})/($Yp- $M100Y*100))*100);
}
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIy'.$t}=((($Zp-${'TVIy'.($t).'z'})/($Zp- $Y100Z*100))*100);
}
for ( $t = 5; $t <= 95; $t += 5) {
${'TVIk'.$t}=((($Yp-${'TVIk'.($t).'y'})/($Yp- $K100Z*100))*100);
}
}/////////////////cp 400
} /////////////mark colorport
?>
<tr>
<td bgcolor="#bbFFFF"><div align="center">C</div></td>
<?php //////////////////////////////////////////C
for ( $t = 5; $t <= 95; $t += 5) {
//
?><td bgcolor="#bbFFFF"><div align="right"><?php
if ($t==35) {$rounddv=0;}
elseif ($t==45) {$rounddv=0;}
elseif ($t==55) {$rounddv=0;}
elseif ($t==65) {$rounddv=0;}
else {$rounddv=${'TVIc'.$t}-${'RTVIc'.$t};}
if ($t<=25 and abs($rounddv)>3.5){
$check=1;?><font color="red"><div align="right"><?php
}
elseif ($t>25 and abs($rounddv)>4.5){
$check=1;?><font color="red"><div align="right"><?php
}
elseif ($t>65 and abs($rounddv)>3.5){
$check=1;?><font color="red"><div align="right"><?php
}
${'cSpread'.$t}=$rounddv;
echo round($rounddv,2);
$sum=$sum-abs($rounddv);
?> </td><?php
}
?>
</tr>
<tr>
<td bgcolor="#FFccFF"><div align="center">M</div></td>
<?php //////////////////////////////////////////////M
for ( $t = 5; $t <= 95; $t += 5) {
//
?><td bgcolor="#FFccFF"><div align="right"><?php
if ($t==35) {$rounddv=0;}
elseif ($t==45) {$rounddv=0;}
elseif ($t==55) {$rounddv=0;}
elseif ($t==65) {$rounddv=0;}
else {$rounddv=${'TVIm'.$t}-${'RTVIm'.$t};}
if ($t<=25 and abs($rounddv)>3.5){
$check=1;?><font color="red"><div align="right"><?php
}
elseif ($t>25 and abs($rounddv)>4.5){
$check=1;?><font color="red"><div align="right"><?php
}
elseif ($t>65 and abs($rounddv)>3.5){
$check=1;?><font color="red"><div align="right"><?php
}
${'mSpread'.$t}=$rounddv;
echo round($rounddv,2);
$sum=$sum-abs($rounddv);
?> </td><?php
}
?>
</tr>
<tr>
<td bgcolor="#FFFFbb"><div align="center">Y</div></td>
<?php //////////////////////////////////////////////M
for ( $t = 5; $t <= 95; $t += 5) {
//
?><td bgcolor="#FFFFbb"><div align="right"><?php
if ($t==35) {$rounddv=0;}
elseif ($t==45) {$rounddv=0;}
elseif ($t==55) {$rounddv=0;}
elseif ($t==65) {$rounddv=0;}
else {$rounddv=${'TVIy'.$t}-${'RTVIy'.$t};}
if ($t<=25 and abs($rounddv)>3.5){
$check=1;?><font color="red"><div align="right"><?php
}
elseif ($t>25 and abs($rounddv)>4.5){
$check=1;?><font color="red"><div align="right"><?php
}
elseif ($t>65 and abs($rounddv)>3.5){
$check=1;?><font color="red"><div align="right"><?php
}
${'ySpread'.$t}=$rounddv;
echo round($rounddv,2);
$sum=$sum-abs($rounddv);
?> </td><?php
}
?>
</tr>
<tr>
<td bgcolor="#DDDDDD"><div align="center">K</div></td>
<?php //////////////////////////////////////////////M
for ( $t = 5; $t <= 95; $t += 5) {
//
?><td bgcolor="#DDDDDD"><div align="right"><?php
if ($t==35) {$rounddv=0;}
elseif ($t==45) {$rounddv=0;}
elseif ($t==55) {$rounddv=0;}
elseif ($t==65) {$rounddv=0;}
else {$rounddv=${'TVIk'.$t}-${'RTVIk'.$t};}
if ($t<=25 and abs($rounddv)>3.5){
$check=1;?><font color="red"><div align="right"><?php
}
elseif ($t>25 and abs($rounddv)>4.5){
$check=1;?><font color="red"><div align="right"><?php
}
elseif ($t>65 and abs($rounddv)>3.5){
$check=1;?><font color="red"><div align="right"><?php
}
echo round($rounddv,2);
$sum=$sum-abs($rounddv);
?> </td><?php
}
?>
</tr>
<tr>
<td bgcolor="#D5CCCC"><div align="center">CMY</div></td><?php
for ( $s = 5; $s <= 95; $s += 5) {
$vc=${"cSpread".$s};
$vm=${"mSpread".$s};
$vy=${"ySpread".$s};
//$ecc=${$vc};
// echo ";".$vy;
$scmy=max(abs($vc-$vm),abs($vy-$vm),abs($vc-$vy))
?><td bgcolor="#D5CCCC"><div align="right"><?php
if ($scmy>5){
$check=1;?><font color="red"><?php
}
echo round($scmy,2);?> </div></td><?php
}///cmy loop
?> </tr>
<tr>
<td><div align="center"> </div></td>
<td><div align="right"> </div></td>
<td><div align="right"> </div></td>
<td><div align="right"> </div></td>
<td><div align="center"> </div></td>
<td><div align="right"> </div></td>
<td><div align="right"> </div></td>
<td><div align="right"> </div></td>
<td><div align="right"> </div></td>
</tr>
<?php
include 'dE00.php';
$pa00=de00($RPL,$RPa,$RPb,$PL,$Pa,$Pb);
$dc00=de00($cl,$ca,$cb,$c100l,$c100a,$c100b);
$dm00=de00($ml,$ma,$mb,$m100l,$m100a,$m100b);
$dy00=de00($yl,$ya,$yb,$y100l,$y100a,$y100b);
$dk00=de00($kl,$ka,$kb,$k100l,$k100a,$k100b);
?>
<tr><td><div align="center">W</div></td>
<td><div align="right"><?php echo $RPL;?></div></td>
<td><div align="right"><?php echo $RPa;?></div></td>
<td><div align="right"><?php echo $RPb;?></div></td>
<td><div align="center"></div></td>
<td><div align="right"><?php echo $PL;?></div></td>
<td><div align="right"><?php echo $Pa;?></div></td>
<td><div align="right"><?php echo $Pb;?></div></td>
<td><div align="right"><?php echo round($pa00,2);?></div></td></tr>
<tr><td bgcolor="#bbFFFF"><div align="center">C</div></td>
<td bgcolor="#bbFFFF"><div align="right"><?php echo round($cl,2);?></div></td>
<td bgcolor="#bbFFFF"><div align="right"><?php echo round($ca,2);?></div></td>
<td bgcolor="#bbFFFF"><div align="right"><?php echo round($cb,2);?></div></td>
<td bgcolor="#bbFFFF"><div align="center"></div></td>
<td bgcolor="#bbFFFF"><div align="right"><?php echo $c100l;?></div></td>
<td bgcolor="#bbFFFF"><div align="right"><?php echo $c100a;?></div></td>
<td <?php if ($c100b<$cb) {echo ' bgcolor="#91ff78"'; } else { echo ' bgcolor="#bbFFFF"'; }?>><div align="right"><?php echo $c100b;?></div></td>
<td bgcolor="#bbFFFF"><div align="right"><?php if ($dc00>5) {$sid=1;?><font color="red"><?php }
echo round($dc00,2);$psum=$psum-$dc00;?></div></td></tr>
<tr><td bgcolor="#FFccFF"><div align="center">M</div></td>
<td bgcolor="#FFccFF"><div align="right"><?php echo round($ml,2);?></div></td>
<td bgcolor="#FFccFF"><div align="right"><?php echo round($ma,2);?></div></td>
<td bgcolor="#FFccFF"><div align="right"><?php echo round($mb,2);?></div></td>
<td bgcolor="#FFccFF"><div align="center"></div></td>
<td bgcolor="#FFccFF"><div align="right"><?php echo $m100l;?></div></td>
<td <?php if ($m100a>$ma) {echo ' bgcolor="#91ff78"'; } else { echo ' bgcolor="#FFccFF"'; }?>><div align="right"><?php echo $m100a;?></div></td>
<td bgcolor="#FFccFF"><div align="right"><?php echo $m100b;?></div></td>
<td bgcolor="#FFccFF"><div align="right"><?php if ($dm00>5) {$sid=1;?><font color="red"><?php }
echo round($dm00,2);$psum=$psum-$dm00;?></div></td></tr>
<tr><td bgcolor="#FFFFbb"><div align="center">Y</div></td>
<td bgcolor="#FFFFbb"><div align="right"><?php echo round($yl,2);?></div></td>
<td bgcolor="#FFFFbb"><div align="right"><?php echo round($ya,2);?></div></td>
<td bgcolor="#FFFFbb"><div align="right"><?php echo round($yb,2);?></div></td>
<td bgcolor="#FFFFbb"><div align="center"></div></td>
<td bgcolor="#FFFFbb"><div align="right"><?php echo $y100l;?></div></td>
<td bgcolor="#FFFFbb"><div align="right"><?php echo $y100a;?></div></td>
<td <?php if ($y100b>$yb) {echo ' bgcolor="#91ff78"'; } else { echo ' bgcolor="#FFFFbb"'; }?>><div align="right"><?php echo $y100b;?></div></td>
<td bgcolor="#FFFFbb"><div align="right"><?php if ($dy00>5) {$sid=1;?><font color="red"><?php }
echo round($dy00,2);$psum=$psum-$dy00;?></div></td></tr>
<tr><td bgcolor="#DDDDDD"><div align="center">K</div></td>
<td bgcolor="#DDDDDD"><div align="right"><?php echo round($kl,2);?></div></td>
<td bgcolor="#DDDDDD"><div align="right"><?php echo round($ka,2);?></div></td>
<td bgcolor="#DDDDDD"><div align="right"><?php echo round($kb,2);?></div></td>
<td bgcolor="#DDDDDD"><div align="center"></div></td>
<td <?php if ($k100l<$kl) {echo ' bgcolor="#91ff78"'; } else { echo ' bgcolor="#DDDDDD"'; }?>><div align="right"><?php echo $k100l;?></div></td>
<td bgcolor="#DDDDDD"><div align="right"><?php echo $k100a;?></div></td>
<td bgcolor="#DDDDDD"><div align="right"><?php echo $k100b;?></div></td>
<td bgcolor="#DDDDDD"><div align="right"><?php if ($dk00>5) {$sid=1;?><font color="red"><?php }
echo round($dk00,2);$psum=$psum-$dk00;?></div></td></tr>
</table>
<table width="200" border="1" align="center">
<tr>
<td><div align="center">
<?php
include 'graphFixC.php';
GenGraphC(round($TVIc5,2)-5,round($TVIc10,2)-10,round($TVIc15,2)-15,round($TVIc20,2)-20,round($TVIc25,2)-25,round($TVIc30,2)-30,0.01,round($TVIc40,2)-40,0.01,round($TVIc50,2)-50,0.01,round($TVIc60,2)-60,0.01,round($TVIc70,2)-70,round($TVIc75,2)-75,round($TVIc80,2)-80,round($TVIc85,2)-85,round($TVIc90,2)-90,round($TVIc95,2)-95,round($RTVIc5,2)-5,round($RTVIc10,2)-10,round($RTVIc15,2)-15,round($RTVIc20,2)-20,round($RTVIc25,2)-25,round($RTVIc30,2)-30,0.01,round($RTVIc40,2)-40,0.01,round($RTVIc50,2)-50,0.01,round($RTVIc60,2)-60,0.01,round($RTVIc70,2)-70,round($RTVIc75,2)-75,round($RTVIc80,2)-80,round($RTVIc85,2)-85,round($RTVIc90,2)-90,round($RTVIc95,2)-95);
?>
<img src="graphC.gif">
</div>
</table>
<table>
<div>
<?php
include 'graphFixM.php';
GenGraphM(round($TVIm5,2)-5,round($TVIm10,2)-10,round($TVIm15,2)-15,round($TVIm20,2)-20,round($TVIm25,2)-25,round($TVIm30,2)-30,0.01,round($TVIm40,2)-40,0.01,round($TVIm50,2)-50,0.01,round($TVIm60,2)-60,0.01,round($TVIm70,2)-70,round($TVIm75,2)-75,round($TVIm80,2)-80,round($TVIm85,2)-85,round($TVIm90,2)-90,round($TVIm95,2)-95,round($RTVIm5,2)-5,round($RTVIm10,2)-10,round($RTVIm15,2)-15,round($RTVIm20,2)-20,round($RTVIm25,2)-25,round($RTVIm30,2)-30,0.01,round($RTVIm40,2)-40,0.01,round($RTVIm50,2)-50,0.01,round($RTVIm60,2)-60,0.01,round($RTVIm70,2)-70,round($RTVIm75,2)-75,round($RTVIm80,2)-80,round($RTVIm85,2)-85,round($RTVIm90,2)-90,round($RTVIm95,2)-95);
?>
<img src="graphM.gif">
</div>
</table>
<table>
<div>
<?php
include 'graphFixY.php';
GenGraphY(round($TVIy5,2)-5,round($TVIy10,2)-10,round($TVIy15,2)-15,round($TVIy20,2)-20,round($TVIy25,2)-25,round($TVIy30,2)-30,0.01,round($TVIy40,2)-40,0.01,round($TVIy50,2)-50,0.01,round($TVIy60,2)-60,0.01,round($TVIy70,2)-70,round($TVIy75,2)-75,round($TVIy80,2)-80,round($TVIy85,2)-85,round($TVIy90,2)-90,round($TVIy95,2)-95,round($RTVIy5,2)-5,round($RTVIy10,2)-10,round($RTVIy15,2)-15,round($RTVIy20,2)-20,round($RTVIy25,2)-25,round($RTVIy30,2)-30,0.01,round($RTVIy40,2)-40,0.01,round($RTVIy50,2)-50,0.01,round($RTVIy60,2)-60,0.01,round($RTVIy70,2)-70,round($RTVIy75,2)-75,round($RTVIy80,2)-80,round($RTVIy85,2)-85,round($RTVIy90,2)-90,round($RTVIy95,2)-95);
?>
<img src="graphY.gif">
</div>
</table>
<table>
<div>
<?php
include 'graphFixK.php';
GenGraphK(round($TVIk5,2)-5,round($TVIk10,2)-10,round($TVIk15,2)-15,round($TVIk20,2)-20,round($TVIk25,2)-25,round($TVIk30,2)-30,0.01,round($TVIk40,2)-40,0.01,round($TVIk50,2)-50,0.01,round($TVIk60,2)-60,0.01,round($TVIk70,2)-70,round($TVIk75,2)-75,round($TVIk80,2)-80,round($TVIk85,2)-85,round($TVIk90,2)-90,round($TVIk95,2)-95,round($RTVIk5,2)-5,round($RTVIk10,2)-10,round($RTVIk15,2)-15,round($RTVIk20,2)-20,round($RTVIk25,2)-25,round($RTVIk30,2)-30,0.01,round($RTVIk40,2)-40,0.01,round($RTVIk50,2)-50,0.01,round($RTVIk60,2)-60,0.01,round($RTVIk70,2)-70,round($RTVIk75,2)-75,round($RTVIk80,2)-80,round($RTVIk85,2)-85,round($RTVIk90,2)-90,round($RTVIk95,2)-95);
?>
<img src="graphK.gif">
</div>
</table>
<?php
$Tsum=(($sum/260)*60)+(($psum/20)*40);
$Rsum=round($Tsum,2);
if (($check==0) && ($sid==0)){
$passbit=1;}
$connection = mysql_connect("127.0.0.1", "root", "fredsql") or die ("Unable to connect!");
mysql_query("SET NAMES 'utf8'");
$db = "tvicheck-st";
// select database
mysql_select_db($db) or die ("Unable to select database!");
// generate and execute query
$query = "INSERT INTO Fogra39TVIS(company, contact, email, type, po, filename, score, passbit, date, device, dsn, printer, paper, ink, rankbit) VALUES('$company', '$contact', '$email', '$type', '$po','$filename','$Rsum', '$passbit', NOW(), '$device', '$dsn', '$press', '$paper', '$ink', '$rankbit')";
//echo $query;
$result = mysql_query($query) or die ("Error in query: $query. " . mysql_error());
mysql_close($connection);
?>
<tr>
<td align="center"><font size="-2"> © <a href="mailto:[email protected]">Fred Kuo</a>, 2014. All rights reserved.<br><a href="http://www.fredkuo.idv.tw/wordpress/?p=1025">Read more.</a><br>
</td>
</tr>
</body>
</html>