File: C:/xampp/htdocs/FograCT1/pbnCT56dbapi.php
<?php
error_reporting(0);
$servername = "127.0.0.1";
$username = "root";
$password = "fredsql";
$DBNAME = "tvicheck-st";
// Create connection
$conn = new mysqli($servername, $username, $password);
// Check connection
if ($conn->connect_error) {
die("Connection failed: " . $conn->connect_error);
}
//echo "Connected successfully";
if( !mysqli_select_db($conn, $DBNAME)) {
die ("無法選擇資料庫");
}
mysqli_query( $conn, "SET NAMES 'utf8'");
?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>G7 GV Check</title>
<style type="text/css">
body,td,th {
font-size: 12px;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.ssss {
font-size: 12px;
color: #F00;
border-top-width: 0px;
border-right-width: 0px;
border-bottom-width: 0px;
border-left-width: 0px;
border-top-style: 0;
border-right-style: 0;
border-bottom-style: 0;
border-left-style: 0;
}
.z {
color: #CCC;
}
.SS {
color: #F00;
}
<!--
body {
font: 100% Verdana, Arial, Helvetica, sans-serif;
background: #ffffff;
margin: 0; /* 比較好的做法是將 Body 元素的邊界與欄位間隔調整為零，以處理不同的瀏覽器預設值 */
padding: 0;
text-align: center; /* 這樣會讓容器在 IE 5* 瀏覽器內置中對齊。然後，文字會在 #container 選取器中設定為靠左對齊預設值 */
color: #000000;
}
.oneColElsCtr #container {
width: 46em;
background: #FFFFFF;
margin: 0 auto; /* 自動邊界 (搭配寬度) 會讓頁面置中對齊 */
border: 0px solid #000000;
text-align: left; /* 這樣做會覆寫 Body 元素上的 text-align: center。 */
}
.oneColElsCtr #mainContent {
padding: 0 20px; /* 請記住，欄位間隔就是 Div 方塊內部的空間，而邊界就是 Div 方塊外部的空間 */
}aph
-->
</style></head>
<body class="oneColElsCtr">
<?php
$f123= $_GET['f123'];
$f321= $_GET['f321'];
$sum=160;
$check=1;
$sccSt=$_GET['sccSt'];
$stTV=0;
$stFail=0;
$company=$_GET['company'];
$dtime=time();
$dStr=substr($dtime,7,9)."-";
?>
<table width="200" border="0" align="center">
<tr><td>
<input size="15" maxlength="50" type="hidden" name="rtarget" value=<?php echo $f321;?> /></td>
</tr>
<tr><td>
<a href="pbnCT56dbapi.php?f123=target.txt&f321=<?php echo $f321;?>&sccSt=1">SCCA on</a>
</td><td>
<a href="pbnCT56dbapi.php?f123=target.txt&f321=<?php echo $f321;?>&sccSt=0">SCCA off</a>
</td></tr>
<tr><td>
<a href="rankM.php?company=<?php echo $company."&type=V60";?>">歷程</a>
</td></tr>
</table>
<?php
include 'sp38XYZ.php';
include 'lab2xyz.php';
include 'SCCA06.php';
include 'xyz2lab01.php';
include 'xyz2lab.php';
include 'de00.php';
include 'DensityV38.php';
include 'SCCA51.php';
include 'invert.php';
// echo "Stored in: " . "upload/" . $_FILES["file"]["name"]. "<br />";
///parsing start
$filedb=substr($f321,8,60);
$filedb2=substr($f321,7,60);
$dbstr=explode("_", $filedb);
echo "fuleb:".$filedb2."<br>";
$filename=$filedb2;
// $filedb2=substr($filedb,7);
$po=$dbstr[1];
$contents = file($f321);
$string = implode($contents);
////echo $contents[20];
//echo $string;
$snstring=get_between($string,"Serial number ","_CREATED");
$dotS = explode(",", $snstring);////Measure upload
//print_r ($dotS);
$snstring=$dotS[0];
echo "sn:".$snstring;
//$p = str_replace("\n", '\t', $p);
//echo $p;
function get_between ($text, $s1, $s2) {
$mid_url = "";
$pos_s = strrpos($text,$s1);
$pos_e = strrpos($text,$s2);
for ( $i=$pos_s+strlen($s1) ; (( $i<($pos_e)) && $i < strlen($text)) ; $i++ ) {
$mid_url .= $text[$i];
}
return $mid_url;
}
$nm380 = strrpos($string,'nm380');
//echo "<br>nm380:".$nm380."<br>";
//$pt = ereg_replace("\r\n?", "\t", $string);
$pt = str_replace(" \r", "\r", $string);
$pt = str_replace("\r", " ", $pt);
$datastring=get_between($pt,"BEGIN_DATA","END_DATA");
$dot = explode("_", $datastring);
//print_r($dot);
////////////////////////////////////////////////////KK
$idx=10;
$cols=46;
$Pdot=0;
$PXm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$PYm=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$PZm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$PLm=xyz2lab01("l",$PXm,$PYm,$PZm);
$Pam=xyz2lab01("a",$PXm,$PYm,$PZm);
$Pbm=xyz2lab01("b",$PXm,$PYm,$PZm);
$Pdm=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
echo "Paper Lab:".$PLm.",".$Pam.",".$Pbm."paper den=".$Pdm;
$idx=10;
$cols=46;
$Pdot=1;
$TXm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$TYm=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$TZm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$TLm=xyz2lab01("l",$TXm,$TYm,$TZm);
$Tam=xyz2lab01("a",$TXm,$TYm,$TZm);
$Tbm=xyz2lab01("b",$TXm,$TYm,$TZm);
$Tdm=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
////////////////////////////////
$Pdot=24;
$K100Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$K100Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$K100Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$K100Lm=xyz2lab01("l",$K100Xm,$K100Ym,$K100Zm);
$K100am=xyz2lab01("a",$K100Xm,$K100Ym,$K100Zm);
$K100bm=xyz2lab01("b",$K100Xm,$K100Ym,$K100Zm);
$K100dm=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
echo "<br>K100Lm=".$K100Xm.",py=".$K100Ym.",pz=".$K100Zm.", Lab:".$K100Lm.",".$K100am.",".$K100bm."T den=".$K100dm;
//for ($t=5; $t<=95; $t +=5){
////////////////////
$i=0;
for ($Pdot=1;$Pdot<=4;$Pdot+=1) {
$i=$i+2;
//echo "<br>num:";
//echo "dot:".$dot[$idx+$cols*$Pdot];
${"K".$i."Xm"}=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"K".$i."Ym"}=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"K".$i."Zm"}=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"K".$i."Lm"}=xyz2lab01("l",${"K".$i."Xm"},${"K".$i."Ym"},${"K".$i."Zm"});
${"K".$i."am"}=xyz2lab01("a",${"K".$i."Xm"},${"K".$i."Ym"},${"K".$i."Zm"});
${"K".$i."bm"}=xyz2lab01("b",${"K".$i."Xm"},${"K".$i."Ym"},${"K".$i."Zm"});
${"K".$i."dm"}=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${'KTV'.$i}= (($PYm-${"K".$i."Ym"})/($PYm-$K100Ym))*100;
// echo "<br>KTV".$i.":".${'KTV'.$i};
//echo "<br>Lab:".$i."_:".${"K".$i."Lm"}.",".${"K".$i."am"}.",".${"K".$i."bm"}."T den=".${"K".$i."dm"};
}
$i=5;
for ($Pdot=5;$Pdot<=22;$Pdot+=1) {
$i=$i+5;
//echo "<br>num:";
//echo "dot:".$dot[$idx+$cols*$Pdot];
${"K".$i."Xm"}=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"K".$i."Ym"}=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"K".$i."Zm"}=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"K".$i."Lm"}=xyz2lab01("l",${"K".$i."Xm"},${"K".$i."Ym"},${"K".$i."Zm"});
${"K".$i."am"}=xyz2lab01("a",${"K".$i."Xm"},${"K".$i."Ym"},${"K".$i."Zm"});
${"K".$i."bm"}=xyz2lab01("b",${"K".$i."Xm"},${"K".$i."Ym"},${"K".$i."Zm"});
${"K".$i."dm"}=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${'KTV'.$i}= (($PYm-${"K".$i."Ym"})/($PYm-$K100Ym))*100;
// echo "<br>KTV".$i.":".(${'KTV'.$i}-$i);
//echo "<br>Lab:".$i."_:".${"K".$i."Lm"}.",".${"K".$i."am"}.",".${"K".$i."bm"}."T den=".${"K".$i."dm"};
}
$Pdot=24;
$K98Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$K98Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$K98Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$K98Lm=xyz2lab01("l",$K98Xm,$K98Ym,$K98Zm);
$K98am=xyz2lab01("a",$K98Xm,$K98Ym,$K98Zm);
$K98bm=xyz2lab01("b",$K98Xm,$K98Ym,$K98Zm);
$K98dm=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$KTV98= (($PYm-$K98Ym)/($PYm-$K100Ym))*100;
//echo "<br>KTV98:".$KTV98;
//echo "<br> Lab:".$K98Lm.",".$K98am.",".$K98bm."T den=".$K98dm;
//echo "<br> Lab:".$K100Lm.",".$K100am.",".$K100bm."T den=".$K100dm;
////////////////////////////////////////////////KK
/////////////////////////////////////////////////CC
$idx=10;
$cols=46;
$i=0;
for ($Pdot=29;$Pdot<=32;$Pdot+=1) {
$i=$i+2;
//echo "<br>num:";
//echo "dot:".$dot[$idx+$cols*$Pdot];
${"C".$i."Xm"}=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"C".$i."Ym"}=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"C".$i."Zm"}=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"C".$i."Lm"}=xyz2lab01("l",${"C".$i."Xm"},${"C".$i."Ym"},${"C".$i."Zm"});
${"C".$i."am"}=xyz2lab01("a",${"C".$i."Xm"},${"C".$i."Ym"},${"C".$i."Zm"});
${"C".$i."bm"}=xyz2lab01("b",${"C".$i."Xm"},${"C".$i."Ym"},${"C".$i."Zm"});
${"C".$i."dm"}=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
//echo "<br>Lab:".$i."_:".${"C".$i."Lm"}.",".${"C".$i."am"}.",".${"C".$i."bm"}."T den=".${"C".$i."dm"};
}
$i=5;
for ($Pdot=33;$Pdot<=50;$Pdot+=1) {
$i=$i+5;
//echo "<br>num:";
//echo "dot:".$dot[$idx+$cols*$Pdot];
${"C".$i."Xm"}=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"C".$i."Ym"}=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"C".$i."Zm"}=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
${"C".$i."Lm"}=xyz2lab01("l",${"C".$i."Xm"},${"C".$i."Ym"},${"C".$i."Zm"});
${"C".$i."am"}=xyz2lab01("a",${"C".$i."Xm"},${"C".$i."Ym"},${"C".$i."Zm"});
${"C".$i."bm"}=xyz2lab01("b",${"C".$i."Xm"},${"C".$i."Ym"},${"C".$i."Zm"});
${"C".$i."dm"}=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
//echo "<br>Lab:".$i."_:".${"C".$i."Lm"}.",".${"C".$i."am"}.",".${"C".$i."bm"}."T den=".${"C".$i."dm"};
}
$GrayLm=$C50Lm;
$Graya=$C50am;
$Grayb=$C50bm;
$Grayd=$C50dm;
$Gray25Lm=$C25Lm;
$Gray25a=$C25am;
$Gray25b=$C25bm;
$Gray25d=$C25dm;
$Gray75Lm=$C75Lm;
$Gray75a=$C75am;
$Gray75b=$C75bm;
$Gray75d=$C75dm;
//echo "<br>GrayLm:".$GrayLm."Graya--".$Graya;
$Pdot=51;
$C98Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$C98Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$C98Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$C98Lm=xyz2lab01("l",$C98Xm,$C98Ym,$C98Zm);
$C98am=xyz2lab01("a",$C98Xm,$C98Ym,$C98Zm);
$C98bm=xyz2lab01("b",$C98Xm,$C98Ym,$C98Zm);
$C98dm=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
//echo "<br> Lab:".$C98Lm.",".$C98am.",".$C98bm."T den=".$C98dm;
$Pdot=52;
$C100Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$C100Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$C100Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$C100Lm=xyz2lab01("l",$C100Xm,$C100Ym,$C100Zm);
$C100am=xyz2lab01("a",$C100Xm,$C100Ym,$C100Zm);
$C100bm=xyz2lab01("b",$C100Xm,$C100Ym,$C100Zm);
$C100dm=DensitySp38("K",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
//echo "<br> XYZ:".$C100Xm.",".$C100Ym.",".$C100Zm."Lab:".$C100Lm.",".$C100am.",".$C100bm."T den=".$C100dm;
////////////////////////////////////////////////KK
?>
<?php
for ($t=2; $t<=8; $t +=2){
${'tg'.$t.'a'}=$Pam*(1-($t/100));
${'tg'.$t.'b'}=$Pbm*(1-($t/100));
}
for ($t=5; $t<=95; $t +=5){
${'tg'.$t.'a'}=$Pam*(1-($t/100));
${'tg'.$t.'b'}=$Pbm*(1-($t/100));
}
$tg98a=$Pam*(1-(98/100));
$tg98b=$Pbm*(1-(98/100));
//echo "<br>tg50=".$tg50a.",",$tg50b;
$minG50=100;
//TVI_c = (paper_X – nc_X) / (paper_X – 100c_X) x 100 – n;
//$TVI_c=(82.7–$Xi)/(82.7–4)*100–50;
//echo "tvic".$TVI_c;
//echo "XYZ:".$Xi."_".$Yi."_".$Zi;
?>
<table width="200" border="1" align="center">
<tr>
<td><div align="center">主色</div></td>
<td><font color="#aaaaaa">2%</font></td>
<td><font color="#aaaaaa">4%</font></td>
<td><font color="#aaaaaa">6%</font></td>
<td><font color="#aaaaaa">8%</font></td>
<td><font color="#aaaaaa">10%</font></td>
<td><font color="#aaaaaa">15%</font></td>
<td><font color="#aaaaaa">20%</font></td>
<td><font color="#aaaaaa">25%</font></td>
<td><font color="#666666">30%</font></td>
<td><font color="#666666">35%</font></td>
<td><font color="#666666">40%</font></td>
<td><font color="#666666">45%</font></td>
<td><font color="#666666">50%</font></td>
<td><font color="#666666">55%</font></td>
<td><font color="#666666">60%</font></td>
<td><font color="#666666">65%</font></td>
<td>70%</td>
<td>75%</td>
<td>80%</td>
<td>85%</td>
<td>90%</td>
<td>95%</td>
<td>98%</td>
<td>100%</td>
</tr>
<tr>
<td bgcolor="#CCCCCC"><div align="center">K</div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K2dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K4dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K6dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K8dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K10dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K15dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K20dm-$Pdm,2);?></div></td>
<td bgcolor="#CCffCC"><div align="right"><?php echo round($K25dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K30dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K35dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K40dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K45dm-$Pdm,2);?></div></td>
<td bgcolor="#CCffCC"><div align="right"><?php echo round($K50dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K55dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K60dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K65dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K70dm-$Pdm,2);?></div></td>
<td bgcolor="#CCffCC"><div align="right"><?php echo round($K75dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K80dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K85dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K90dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K95dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K98dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K100dm-$Pdm,2);?></div></td>
</tr>
<tr>
<td bgcolor="#CCCCCC"><div align="center">CMY</div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C2dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C4dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C6dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C8dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C10dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C15dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C20dm-$Pdm,2);?></div></td>
<td bgcolor="#aaffff"><div align="right"><?php echo round($C25dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C30dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C35dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C40dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C45dm-$Pdm,2);?></div></td>
<td bgcolor="#aaffff"><div align="right"><?php echo round($C50dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C55dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C60dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C65dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C70dm-$Pdm,2);?></div></td>
<td bgcolor="#aaffff"><div align="right"><?php echo round($C75dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C80dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C85dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C90dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C95dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C98dm-$Pdm,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($C100dm-$Pdm,2);?></div></td>
</tr>
<tr>
<td><div align="center">wdL(K)</div></td>
<?php
function getLk($tv,$kDyf,$PYf,$PL) {
//echo "<br> kDyf:".$kDyf."PYf=".$PYf."pDf=".$PL;
$tvik=0.967175*$tv-(1.525445*pow(10,-2)*pow($tv,2))+(9.1347*pow(10,-5)*pow($tv,3))-(3.552*pow(10,-7)*pow($tv,4));
$YrTVk=1-(0.978233*(($tv+$tvik)/100));
$Yck=pow((0.7+0.3*pow(($kDyf/$PYf),(1/3))),3);
$Rak=1-($kDyf/$PYf);
if ($YrTVk>$Yck) {
$npdk= -log10($YrTVk);}
else{
$npdk=-log10($YrTVk-($Rak-0.978223)* pow((($Yck-$YrTVk)/($Yck-1+0.978223)),(($Rak/2)+1)));
}
$md=$npdk+log10(1/($PYf*0.01));
$t= pow(10,-$md);
$ft=pow($t,1/3);
//$Lk=116*$ft-16;
$NPSabs=$npdk+log10(1/($PYf*0.01));
$Yabs= pow(10,$NPSabs);
$ft=pow($Yabs,-1/3);
if ($Yabs>pow((6/29),3)) {
$Lk=116*$ft-16;}
else {
$Lk=(841/108)*$Yabs;
}
$Lk2=pow(10,-$npdk/3)*($PL+16)-16;
return $Lk2;
}
for ( $i = 2; $i <= 8; $i += 2) {
//echo "KL:".${"K".$i."Lm"};
//echo "<br>422-".$i."-K100Ym:".$K100Ym."-PYm:".$PYm."-PLm:".$PLm;
$dl=round((${"K".$i."Lm"}-getLk($i,$K100Ym,$PYm,$PLm)),2);
$rounddv=$dl*(1-max(0,($i-50)/50*0.75));
${"dl".$i}=$rounddv;
?>
<td bgcolor="#CCCCCC"><div align="right">
<?php
if (abs($rounddv)>2.5){
$check=1;?>
<div align="right"><font color="red">
<?php
}
echo round($rounddv,2);
?>
</font></div></div></td>
<?php
}
for ( $i = 10; $i <= 95; $i += 5) {
//echo "KL:".${"K".$i."Lm"};
$dl=round((${"K".$i."Lm"}-getLk($i,$K100Ym,$PYm,$PLm)),2);
$rounddv=$dl*(1-max(0,($i-50)/50*0.75));
${"KLD".$i}=$rounddv;
${"dl".$i}=$rounddv;
if ($i==25 || $i==50 || $i==75) {
echo '<td bgcolor="#CCffCC"><div align="right">';
}
else {
echo '<td bgcolor="#CCCCCC"><div align="right">';
}
if (abs($rounddv)>2.5){
$check=1;?>
<div align="right"><font color="red">
<?php
}
echo round($rounddv,2);
?>
</font></div></div></td>
<?php
}
echo "<br>K75Lm:".$K75Lm;
$K25LT=getLk(25,$K100Ym,$PYm,$PLm);
$K75LT=getLk(75,$K100Ym,$PYm,$PLm);
echo "<br>K75LT:".$K75LT;
echo "<br>KLD:".$KLD25."_".$KLD75;
//echo "KL:".$K98Lm;
$dl=round(($K98Lm-getLk(98,$K100Ym,$PYm,$PLm)),2);
$rounddv=$dl*(1-max(0,(98-50)/50*0.75));
$dl98=$rounddv;
?>
<td bgcolor="#CCCCCC"><div align="right">
<?php
if (abs($rounddv)>2.5){
$check=1;?>
<div align="right"><font color="red">
<?php
}
echo round($rounddv,2);
?>
</font></div></div></td>
</tr>
<tr>
<td><div align="center">wdL(CMY)</div></td>
<?php
function getLg($tv,$kDyf,$PYf,$PL) {
$tvik=1.31587*$tv-(2.21633*pow(10,-2)*pow($tv,2))+(1.32926*pow(10,-4)*pow($tv,3))-(4.288*pow(10,-7)*pow($tv,4));
$Rr= 0.956649;
$YrTVk=1-($Rr*(($tv+$tvik)/100));
$Yck=pow((0.7+0.3*pow(($kDyf/$PYf),(1/3))),3);
$Rak=1-($kDyf/$PYf);
$Yck2=pow((0.7+0.3*pow((3.8/$PYf),(1/3))),3);
$Rak2=1-(3.8/$PYf);
if ($YrTVk>$Yck) {
$npd= -log10($YrTVk);
$npd2= -log10($YrTVk);
${'npd'.$tv}=-log10($YrTVk);
}
else{
$npd=-log10($YrTVk-($Rak-$Rr)* pow((($Yck-$YrTVk)/($Yck-1+$Rr)),(($Rak/2)+1)));
$npd2=-log10($YrTVk-($Rak2-$Rr)* pow((($Yck2-$YrTVk)/($Yck2-1+$Rr)),(($Rak2/2)+1)));
}
$NPSabs=$npd+log10(1/($PYf));
$Yabs= pow(10,$NPSabs);
//$ft=pow($Yabs,-1/3);
if ($Yabs>pow((6/29),3)) {
$Lg=116*pow($Yabs,-1/3)-16;}
else {
$Lg=(841/108)*$Yabs;
}
$GrayL=round(pow(10,(-$npd/3))*($PL+16)-16,3) ;
$GrayL2=round(pow(10,(-$npd2/3))*($PL+16)-16,4) ;
// echo $tv."<br> GrayL2 :".$GrayL2."+GrayL:".$GrayL;
return $GrayL;
}
//echo "<br>c2Lm:".$C2Lm."__";
for ( $i = 2; $i <= 8; $i += 2) {
$dl=round((${"C".$i."Lm"}-getLg($i,$C100Ym,$PYm,$PLm)),2);
$rounddv=$dl*(1-max(0,($i-50)/50*0.75));
${"dlc".$i}=$rounddv;
?>
<td bgcolor="#CCCCCC"><div align="right">
<?php
if (abs($rounddv)>2.5){
$check=1;?>
<div align="right"><font color="red">
<?php
}
echo round($rounddv,2);
?>
</font></div></div></td>
<?php
}
for ( $i = 10; $i <= 95; $i += 5) {
//echo "CL:".${"C".$i."Lm"};
$dl=round((${"C".$i."Lm"}-getLg($i,$C100Ym,$PYm,$PLm)),2);
//echo "<br>dl:".$dl;
$rounddv=$dl*(1-max(0,($i-50)/50*0.75));
${"dlc".$i}=$rounddv;
if ($i==25 || $i==50 || $i==75) {
echo '<td bgcolor="#aaffff"><div align="right">';
}
else {
echo '<td bgcolor="#CCCCCC"><div align="right">';
}
if (abs($rounddv)>2.5){
$check=1;?>
<div align="right"><font color="red">
<?php
}
echo round($rounddv,2);
?>
</font></div></div></td>
<?php
}
//echo "<br>gl20:".$dlc20;
$GrayLT=getLg(50,$C100Ym,$PYm,$PLm);
$Gray25LT=getLg(25,$C100Ym,$PYm,$PLm);
$Gray75LT=getLg(75,$C100Ym,$PYm,$PLm);
//echo "CL:".$C98Lm;
$dl=round(($C98Lm-getLg(98,$C100Ym,$PYm,$PLm)),2);
$rounddv=$dl*(1-max(0,(98-50)/50*0.75));
$dlc98=$rounddv;
?>
<td bgcolor="#CCCCCC"><div align="right">
<?php
if (abs($rounddv)>2.5){
$check=1;?>
<div align="right"><font color="red">
<?php
}
echo round($rounddv,2);
?>
</font></div></div></td>
</tr>
<tr>
<td><div align="center">wdF(CMY)</div></td>
<?php
for ( $i = 2; $i <= 8; $i += 2) {
$dt=$i;
$wa=$Pam*(100-$dt)/100;
$wb=$Pbm*(100-$dt)/100;
$df= pow((pow((${"C".$i."am"}-$wa),2))+(pow((${"C".$i."bm"}-$wb),2)),0.5)*(1-max(0,($dt-50)/50*0.75));
${"df".$i}=$df;
?>
<td bgcolor="#CCDDDD"><div align="right">
<?php
if (abs($df)>2.5){
$check=1;?>
<div align="right"><font color="red">
<?php
}
echo round($df,2);
?>
</font></div>
</div></td>
<?php
}
for ( $i = 10; $i <= 95; $i += 5) {
$dt=$i;
$wa=$Pam*(100-$dt)/100;
$wb=$Pbm*(100-$dt)/100;
$df= pow((pow((${"C".$i."am"}-$wa),2))+(pow((${"C".$i."bm"}-$wb),2)),0.5)*(1-max(0,($dt-50)/50*0.75));
${"df".$i}=$df;
if ($i==25 || $i==50 || $i==75) {
echo '<td bgcolor="#aaffff"><div align="right">';
}
else {
echo '<td bgcolor="#CCDDDD"><div align="right">';
}
if (abs($df)>2.5){
$check=1;?>
<div align="right"><font color="red">
<?php
}
echo round($df,2);$sum=$sum-abs($rounddv);
?>
</font></div>
</div></td>
<?php
}
$dt=98;
$wa=$Pam*(100-$dt)/100;
$wb=$Pbm*(100-$dt)/100;
$df= pow((pow((${"C98am"}-$wa),2))+(pow((${"C98bm"}-$wb),2)),0.5)*(1-max(0,($dt-50)/50*0.75));
${"df".$dt}=$df;
?>
<td bgcolor="#CCDDDD"><div align="right">
<?php
if (abs($df)>2.5){
$check=1;?>
<div align="right"><font color="red">
<?php
}
echo round($df,2);
?>
</font></div>
</div></td>
</tr>
<tr>
<td bgcolor="#CCCCCC"><div align="center">da*</div></td>
<?php
for ( $i = 2; $i <= 8; $i += 2) {
$dt=$i;
$wa=$Pam*(100-$dt)/100;
$wb=$Pbm*(100-$dt)/100;
$df= ${"C".$i."am"}-$wa;
$df2x= ${"C".$i."am"};
${"da".$i}=$df2x;
?>
<td bgcolor="#CCDDDD"><div align="right">
<?php
if (abs($df)>2.5){
$check=1;?>
<div align="right"><font color="red">
<?php
}
echo round($df,2);
?>
</font></div>
</div></td>
<?php
}
for ( $i = 10; $i <= 95; $i += 5) {
$dt=$i;
$wa=$Pam*(100-$dt)/100;
$wb=$Pbm*(100-$dt)/100;
$df= ${"C".$i."am"}-$wa;
$df2x= ${"C".$i."am"};
${"da".$i}=$df2x;
if ($i==25 || $i==50 || $i==75) {
echo '<td bgcolor="#aaffff"><div align="right">';
}
else {
echo '<td bgcolor="#CCDDDD"><div align="right">';
}
if (abs($df)>2.5){
$check=1;?>
<div align="right"><font color="red">
<?php
}
echo round($df,2);
?>
</font></div>
</div></td>
<?php
}
$dt=98;
$wa=$Pam*(100-$dt)/100;
$wb=$Pbm*(100-$dt)/100;
$df2x= $C98am-$wa;
$df= $C98am-$wa;
$da98=$df2x;
?>
<td bgcolor="#CCDDDD"><div align="right">
<?php
if (abs($df)>2.5){
$check=1;?>
<div align="right"><font color="red">
<?php
}
echo round($df,2);
?>
</font></div>
</div></td>
</tr>
<tr>
<td bgcolor="#CCCCCC"><div align="center">db*</div></td>
<?php
for ( $i = 2; $i <= 8; $i += 2) {
$dt=$i;
$wa=$Pam*(100-$dt)/100;
$wb=$Pbm*(100-$dt)/100;
$df= ${"C".$i."bm"}-$wb;
$df2x= ${"C".$i."bm"};
${"db".$i}=$df2x;
?>
<td bgcolor="#CCDDDD"><div align="right">
<?php
if (abs($df)>2.5){
$check=1;?>
<div align="right"><font color="red">
<?php
}
echo round($df,2);
?>
</font></div>
</div></td>
<?php
}
for ( $i = 10; $i <= 95; $i += 5) {
$dt=$i;
$wa=$Pam*(100-$dt)/100;
$wb=$Pbm*(100-$dt)/100;
$df= ${"C".$i."bm"}-$wb;
$df2x= ${"C".$i."bm"};
${"db".$i}=$df2x;
if ($i==25 || $i==50 || $i==75) {
echo '<td bgcolor="#aaffff"><div align="right">';
}
else {
echo '<td bgcolor="#CCDDDD"><div align="right">';
}
if (abs($df)>2.5){
$check=1;?>
<div align="right"><font color="red">
<?php
}
echo round($df,2);
?>
</font></div>
</div></td>
<?php
}
$dt=98;
$wa=$Pam*(100-$dt)/100;
$wb=$Pbm*(100-$dt)/100;
$df= $C98bm-$wb;
$df2x= $C98bm;
$db98=$df2x;
?>
<td bgcolor="#CCDDDD"><div align="right">
<?php
if (abs($df)>2.5){
$check=1;?>
<div align="right"><font color="red">
<?php
}
echo round($df,2);
?>
</font></div>
</div></td>
</tr>
<!--
<tr>
<td><div align="center">AIM</div></td>
<td><div align="right">L</div></td>
<td><div align="right">a</div></td>
<td><div align="right">b</div></td>
<td><div align="center">Test</div></td>
<td><div align="right">L</div></td>
<td><div align="right">a</div></td>
<td><div align="right">b</div></td>
<td bgcolor="#66FF00"><div align="right">E(00)</td>
<td><div align="right">Den</div></td>
<td><div align="right">dC*</div></td>
<td><div align="right">dH</div></td>
<td bgcolor="#999999"><div align="right">L</div></td>
<td bgcolor="#999999"><div align="right">a</div></td>
<td bgcolor="#999999"><div align="right">b</div></td>
<td><div align="right">L</div></td>
<td><div align="right">a</div></td>
<td><div align="right">b</div></td>
<td bgcolor="#66FF33"><div align="right">E(00)</td>
<td bgcolor="#999999"><div align="right">den</div></td>
<td><div align="right">trap</div></td>
<td><div align="right">dC*</div></td>
<td><div align="right">dH</div></td>
</tr>
<?php
//////////////////////////////////////////////////CMYK SID
$psum=20;
/////////////////test SID
// include 'densityV.php';
// include 'densityC.php';
// include 'densityM.php';
// include 'densityY.php';
$Pdot=25;
$CS100Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$CS100Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$CS100Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$CS100Lm=xyz2lab01("l",$CS100Xm,$CS100Ym,$CS100Zm);
$CS100am=xyz2lab01("a",$CS100Xm,$CS100Ym,$CS100Zm);
$CS100bm=xyz2lab01("b",$CS100Xm,$CS100Ym,$CS100Zm);
$CS100dm=DensitySp38("C",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
echo "<br> Lab C:".$CS100Lm.",".$CS100am.",".$CS100bm."T den=".$CS100dm;
$Pdot=26;
$MS100Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$MS100Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$MS100Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$MS100Lm=xyz2lab01("l",$MS100Xm,$MS100Ym,$MS100Zm);
$MS100am=xyz2lab01("a",$MS100Xm,$MS100Ym,$MS100Zm);
$MS100bm=xyz2lab01("b",$MS100Xm,$MS100Ym,$MS100Zm);
$MS100dm=DensitySp38("M",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
//echo "<br> M Lab:".$MS100Lm.",".$MS100am.",".$MS100bm."T den=".$MS100dm;
$Pdot=53;
$RS100Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$RS100Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$RS100Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$RS100Lm=xyz2lab01("l",$RS100Xm,$RS100Ym,$RS100Zm);
$RS100am=xyz2lab01("a",$RS100Xm,$RS100Ym,$RS100Zm);
$RS100bm=xyz2lab01("b",$RS100Xm,$RS100Ym,$RS100Zm);
$RS100dm=DensitySp38("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
echo "<br> Lab R:".$RS100Lm.",".$RS100am.",".$RS100bm."T den=".$RS100dm;
$Pdot=54;
$GS100Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$GS100Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$GS100Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$GS100Lm=xyz2lab01("l",$GS100Xm,$GS100Ym,$GS100Zm);
$GS100am=xyz2lab01("a",$GS100Xm,$GS100Ym,$GS100Zm);
$GS100bm=xyz2lab01("b",$GS100Xm,$GS100Ym,$GS100Zm);
$GS100dm=DensitySp38("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
echo "<br> Lab G:".$GS100Lm.",".$GS100am.",".$GS100bm."T den=".$GS100dm;
$Pdot=27;
$YS100Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$YS100Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$YS100Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$YS100Lm=xyz2lab01("l",$YS100Xm,$YS100Ym,$YS100Zm);
$YS100am=xyz2lab01("a",$YS100Xm,$YS100Ym,$YS100Zm);
$YS100bm=xyz2lab01("b",$YS100Xm,$YS100Ym,$YS100Zm);
$YS100dm=DensitySp38("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
echo "<br> Lab Y:".$YS100Lm.",".$YS100am.",".$YS100bm."T den=".$YS100dm;
$Pdot=55;
$BS100Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$BS100Ym=sp38XYZ("Y",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$BS100Zm=sp38XYZ("Z",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
$BS100Lm=xyz2lab01("l",$BS100Xm,$BS100Ym,$BS100Zm);
$BS100am=xyz2lab01("a",$BS100Xm,$BS100Ym,$BS100Zm);
$BS100bm=xyz2lab01("b",$BS100Xm,$BS100Ym,$BS100Zm);
$BS100dm=DensitySp38("C",$dot[$idx+$cols*$Pdot],$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35]);
echo "<br> Lab B:".$BS100Lm.",".$BS100am.",".$BS100bm."T den=".$BS100dm;
$pl=95;
$pa=0;
$pb=-2;
$cl=55;
$ca=-37;
$cb=-50;
$ml=48;
$ma=74;
$mb=-3;
$yl=89;
$ya=-5;
$yb=93;
$kl=15;
$ka=0.01;
$kb=0.01;
$target='CRPC6';
// $sccSt=1;
if ($target=='Fogra51') {
$pl=95; $pa=1.5;$pb=-6;
$cl=55.47; $ca=-34.26;$cb=-52.8;
$ml=48.49; $ma=75.3;$mb=-3.84;
$yl=89.11; $ya=-4.56;$yb=92.06;
$kl=16; $ka=0.1;$kb=-0.27;
$Xp=$PXm*100;
$Yp=$PYm*100;
$Zp=$PZm*100;
//////////////////////////////////////////////////////////////
$RPCCX=lab2xyz("x",$cl,$ca,$cb);
$RPCCY=lab2xyz("y",$cl,$ca,$cb);
$RPCCZ=lab2xyz("z",$cl,$ca,$cb);
//echo "echo here".$RPCCX;
$scCX=SCCA51("x",$RPCCX,$Xp);
$scCY=SCCA51("y",$RPCCY,$Yp);
$scCZ=SCCA51("z",$RPCCZ,$Zp);
$scCL=xyz2lab("l",$scCX,$scCY,$scCZ);
$scCa=xyz2lab("a",$scCX,$scCY,$scCZ);
$scCb=xyz2lab("b",$scCX,$scCY,$scCZ);
/////////////////////////////////////////////////////////////
$RPCMX=lab2xyz("x",$ml,$ma,$mb);
$RPCMY=lab2xyz("y",$ml,$ma,$mb);
$RPCMZ=lab2xyz("z",$ml,$ma,$mb);
$scMX=SCCA51("x",$RPCMX,$Xp);
$scMY=SCCA51("y",$RPCMY,$Yp);
$scMZ=SCCA51("z",$RPCMZ,$Zp);
$scML=xyz2lab("l",$scMX,$scMY,$scMZ);
$scMa=xyz2lab("a",$scMX,$scMY,$scMZ);
$scMb=xyz2lab("b",$scMX,$scMY,$scMZ);
////////////////////////////////////////////////////////////////
$RPCYX=lab2xyz("x",$yl,$ya,$yb);
$RPCYY=lab2xyz("y",$yl,$ya,$yb);
$RPCYZ=lab2xyz("z",$yl,$ya,$yb);
$scYX=SCCA51("x",$RPCYX,$Xp);
$scYY=SCCA51("y",$RPCYY,$Yp);
$scYZ=SCCA51("z",$RPCYZ,$Zp);
$scYL=xyz2lab("l",$scYX,$scYY,$scYZ);
$scYa=xyz2lab("a",$scYX,$scYY,$scYZ);
$scYb=xyz2lab("b",$scYX,$scYY,$scYZ);
////////////////////////////////////////////////////////////////////
$RPCKX=lab2xyz("x",$kl,$ka,$kb);
$RPCKY=lab2xyz("y",$kl,$ka,$kb);
$RPCKZ=lab2xyz("z",$kl,$ka,$kb);
$scKX=SCCA51("x",$RPCKX,$Xp);
$scKY=SCCA51("y",$RPCKY,$Yp);
$scKZ=SCCA51("z",$RPCKZ,$Zp);
$scKL=xyz2lab("l",$scKX,$scKY,$scKZ);
$scKa=xyz2lab("a",$scKX,$scKY,$scKZ);
$scKb=xyz2lab("b",$scKX,$scKY,$scKZ);
}
elseif ($target=='Fogra39') {
$pl=95; $pa=1;$pb=-4;
$cl=55; $ca=-37;$cb=-50;
$ml=48; $ma=74;$mb=-3;
$yl=89; $ya=-5;$yb=93;
$kl=16; $ka=0.1;$kb=0.1;
$Xp=$PXm*100;
$Yp=$PYm*100;
$Zp=$PZm*100;
//////////////////////////////////////////////////////////////
$RPCCX=lab2xyz("x",$cl,$ca,$cb);
$RPCCY=lab2xyz("y",$cl,$ca,$cb);
$RPCCZ=lab2xyz("z",$cl,$ca,$cb);
//echo "echo here".$RPCCX;
$scCX=SCCA06("x",$RPCCX,$Xp,$target);
$scCY=SCCA06("y",$RPCCY,$Yp,$target);
$scCZ=SCCA06("z",$RPCCZ,$Zp,$target);
$scCL=xyz2lab("l",$scCX,$scCY,$scCZ);
$scCa=xyz2lab("a",$scCX,$scCY,$scCZ);
$scCb=xyz2lab("b",$scCX,$scCY,$scCZ);
/////////////////////////////////////////////////////////////
$RPCMX=lab2xyz("x",$ml,$ma,$mb);
$RPCMY=lab2xyz("y",$ml,$ma,$mb);
$RPCMZ=lab2xyz("z",$ml,$ma,$mb);
$scMX=SCCA06("x",$RPCMX,$Xp,$target);
$scMY=SCCA06("y",$RPCMY,$Yp,$target);
$scMZ=SCCA06("z",$RPCMZ,$Zp,$target);
$scML=xyz2lab("l",$scMX,$scMY,$scMZ);
$scMa=xyz2lab("a",$scMX,$scMY,$scMZ);
$scMb=xyz2lab("b",$scMX,$scMY,$scMZ);
////////////////////////////////////////////////////////////////
$RPCYX=lab2xyz("x",$yl,$ya,$yb);
$RPCYY=lab2xyz("y",$yl,$ya,$yb);
$RPCYZ=lab2xyz("z",$yl,$ya,$yb);
$scYX=SCCA06("x",$RPCYX,$Xp,$target);
$scYY=SCCA06("y",$RPCYY,$Yp,$target);
$scYZ=SCCA06("z",$RPCYZ,$Zp,$target);
$scYL=xyz2lab("l",$scYX,$scYY,$scYZ);
$scYa=xyz2lab("a",$scYX,$scYY,$scYZ);
$scYb=xyz2lab("b",$scYX,$scYY,$scYZ);
////////////////////////////////////////////////////////////////////
$RPCKX=lab2xyz("x",$kl,$ka,$kb);
$RPCKY=lab2xyz("y",$kl,$ka,$kb);
$RPCKZ=lab2xyz("z",$kl,$ka,$kb);
$scKX=SCCA06("x",$RPCKX,$Xp,$target);
$scKY=SCCA06("y",$RPCKY,$Yp,$target);
$scKZ=SCCA06("z",$RPCKZ,$Zp,$target);
$scKL=xyz2lab("l",$scKX,$scKY,$scKZ);
$scKa=xyz2lab("a",$scKX,$scKY,$scKZ);
$scKb=xyz2lab("b",$scKX,$scKY,$scKZ);
}
elseif ($target=='CRPC6') {
$pl=95; $pa=1;$pb=-4;
$cl=56; $ca=-37;$cb=-50;
$ml=48; $ma=75;$mb=-4;
$yl=89; $ya=-4;$yb=93;
$kl=16; $ka=0.1;$kb=0.1;
$rl=47; $ra=68; $rb=48;
$gl=50; $ga=-66; $gb=26;
$bl=25; $ba=20; $bb=-46;
$Xp=$PXm*100;
$Yp=$PYm*100;
$Zp=$PZm*100;
//////////////////////////////////////////////////////////////
$RPCCX=lab2xyz("x",$cl,$ca,$cb);
$RPCCY=lab2xyz("y",$cl,$ca,$cb);
$RPCCZ=lab2xyz("z",$cl,$ca,$cb);
echo "echo here".$RPCCX."_".$RPCCY."_".$RPCCZ."_";
$scCX=SCCA06("x",$RPCCX,$Xp,$target);
$scCY=SCCA06("y",$RPCCY,$Yp,$target);
$scCZ=SCCA06("z",$RPCCZ,$Zp,$target);
echo "<br> here".$scCX."_".$scCY."_".$scCZ."_";
$scCL=xyz2lab("l",$scCX,$scCY,$scCZ);
$scCa=xyz2lab("a",$scCX,$scCY,$scCZ);
$scCb=xyz2lab("b",$scCX,$scCY,$scCZ);
echo "<br> here".$scCL."_".$scCa."_".$scCb."_";
/////////////////////////////////////////////////////////////
$RPCMX=lab2xyz("x",$ml,$ma,$mb);
$RPCMY=lab2xyz("y",$ml,$ma,$mb);
$RPCMZ=lab2xyz("z",$ml,$ma,$mb);
$scMX=SCCA06("x",$RPCMX,$Xp,$target);
$scMY=SCCA06("y",$RPCMY,$Yp,$target);
$scMZ=SCCA06("z",$RPCMZ,$Zp,$target);
$scML=xyz2lab("l",$scMX,$scMY,$scMZ);
$scMa=xyz2lab("a",$scMX,$scMY,$scMZ);
$scMb=xyz2lab("b",$scMX,$scMY,$scMZ);
////////////////////////////////////////////////////////////////
$RPCYX=lab2xyz("x",$yl,$ya,$yb);
$RPCYY=lab2xyz("y",$yl,$ya,$yb);
$RPCYZ=lab2xyz("z",$yl,$ya,$yb);
$scYX=SCCA06("x",$RPCYX,$Xp,$target);
$scYY=SCCA06("y",$RPCYY,$Yp,$target);
$scYZ=SCCA06("z",$RPCYZ,$Zp,$target);
$scYL=xyz2lab("l",$scYX,$scYY,$scYZ);
$scYa=xyz2lab("a",$scYX,$scYY,$scYZ);
$scYb=xyz2lab("b",$scYX,$scYY,$scYZ);
////////////////////////////////////////////////////////////////////K
$RPCKX=lab2xyz("x",$kl,$ka,$kb);
$RPCKY=lab2xyz("y",$kl,$ka,$kb);
$RPCKZ=lab2xyz("z",$kl,$ka,$kb);
$scKX=SCCA06("x",$RPCKX,$Xp,$target);
$scKY=SCCA06("y",$RPCKY,$Yp,$target);
$scKZ=SCCA06("z",$RPCKZ,$Zp,$target);
$scKL=xyz2lab("l",$scKX,$scKY,$scKZ);
$scKa=xyz2lab("a",$scKX,$scKY,$scKZ);
$scKb=xyz2lab("b",$scKX,$scKY,$scKZ);
////////////////////////////////////////////////////////////////////R
$RPCRX=lab2xyz("x",$rl,$ra,$rb);
$RPCRY=lab2xyz("y",$rl,$ra,$rb);
$RPCRZ=lab2xyz("z",$rl,$ra,$rb);
$scRX=SCCA06("x",$RPCRX,$Xp,$target);
$scRY=SCCA06("y",$RPCRY,$Yp,$target);
$scRZ=SCCA06("z",$RPCRZ,$Zp,$target);
$scRL=xyz2lab("l",$scRX,$scRY,$scRZ);
$scRa=xyz2lab("a",$scRX,$scRY,$scRZ);
$scRb=xyz2lab("b",$scRX,$scRY,$scRZ);
////////////////////////////////////////////////////////////////////G
$RPCGX=lab2xyz("x",$gl,$ga,$gb);
$RPCGY=lab2xyz("y",$gl,$ga,$gb);
$RPCGZ=lab2xyz("z",$gl,$ga,$gb);
$scGX=SCCA06("x",$RPCGX,$Xp,$target);
$scGY=SCCA06("y",$RPCGY,$Yp,$target);
$scGZ=SCCA06("z",$RPCGZ,$Zp,$target);
$scGL=xyz2lab("l",$scGX,$scGY,$scGZ);
$scGa=xyz2lab("a",$scGX,$scGY,$scGZ);
$scGb=xyz2lab("b",$scGX,$scGY,$scGZ);
////////////////////////////////////////////////////////////////////B
$RPCBX=lab2xyz("x",$bl,$ba,$bb);
$RPCBY=lab2xyz("y",$bl,$ba,$bb);
$RPCBZ=lab2xyz("z",$bl,$ba,$bb);
$scBX=SCCA06("x",$RPCBX,$Xp,$target);
$scBY=SCCA06("y",$RPCBY,$Yp,$target);
$scBZ=SCCA06("z",$RPCBZ,$Zp,$target);
$scBL=xyz2lab("l",$scBX,$scBY,$scBZ);
$scBa=xyz2lab("a",$scBX,$scBY,$scBZ);
$scBb=xyz2lab("b",$scBX,$scBY,$scBZ);
if ($sccSt==0)
{
$pl=95; $pa=1;$pb=-4;
$cl=56; $ca=-37;$cb=-50;
$ml=48; $ma=75;$mb=-4;
$yl=89; $ya=-4;$yb=93;
$kl=16; $ka=0.1;$kb=0.1;
$rl=47; $ra=68; $rb=48;
$gl=50; $ga=-66; $gb=26;
$bl=25; $ba=20; $bb=-46;
}
else {
$pl=$PLm; $pa=$Pam;$pb=$Pbm;
$cl=$scCL; $ca=$scCa;$cb=$scCb;
$ml=$scML; $ma=$scMa;$mb=$scMb;
$yl=$scYL; $ya=$scYa;$yb=$scYb;
$kl=$scKL; $ka=$scKa;$kb=$scKb;
$rl=$scRL; $ra=$scRa;$rb=$scRb;
$gl=$scGL; $ga=$scGa; $gb=$scGb;
$bl=$scBL; $ba=$scBa; $bb=$scBb;
}
}
$dp00=de00($PLm,$Pam,$Pbm,$pl,$pa,$pb);
$tpl=$PLm;
$tpa=$Pam;
$tpb=$Pbm;
$tcl=$CS100Lm;
$tca=$CS100am;
$tcb=$CS100bm;
$tml=$MS100Lm;
$tma=$MS100am;
$tmb=$MS100bm;
$tyl=$YS100Lm;
$tya=$YS100am;
$tyb=$YS100bm;
$tkl=$K100Lm;
$tka=$K100am;
$tkb=$K100bm;
$trl=$RS100Lm;
$tra=$RS100am;
$trb=$RS100bm;
$tgl=$GS100Lm;
$tga=$GS100am;
$tgb=$GS100bm;
$tbl=$BS100Lm;
$tba=$BS100am;
$tbb=$BS100bm;
$dr76=sqrt(pow((47-$RS100Lm),2)+ pow((68-$RS100am),2)+pow((49-$RS100bm),2));
$dg76=sqrt(pow((50-$GS100Lm),2)+ pow(((-68)-$GS100am),2)+pow((25-$GS100bm),2));
$db76=sqrt(pow((24-$BS100Lm),2)+ pow((17-$BS100am),2)+pow(((-46)-$BS100bm),2));
$dr00=de00($rl,$ra,$rb,$trl,$tra,$trb);
$dg00=de00($gl,$ga,$gb,$tgl,$tga,$tgb);
$db00=de00($bl,$ba,$bb,$tbl,$tba,$tbb);
echo "<br>dr00:".$dr00;
function GetDegree($x, $y)
{
// we don't want to cause division by zero
if($x == 0) $x = 1 / 10000;
$deg = rad2deg(atan(abs($y / $x)));
if($y >= 0) $deg = $x < 0 ? 180 - $deg : $deg;
else $deg = $x < 0 ? 180 + $deg : 360 - $deg;
return $deg;
}
$dchg=GetDegree($tca,$tcb)-GetDegree($ca,$cb);
$dmhg=GetDegree($tma,$tmb)-GetDegree($ma,$mb);
$dyhg=GetDegree($tya,$tyb)-GetDegree($ya,$yb);
$drhg=GetDegree($tra,$trb)-GetDegree($ra,$rb);
$dghg=GetDegree($tga,$tgb)-GetDegree($ga,$gb);
$dbhg=GetDegree($tba,$tbb)-GetDegree($ba,$bb);
///////////cal paper
$cp=SQRT(pow($pa,2)+pow($pb,2));
$ctp=SQRT(pow($tpa,2)+pow($tpb,2));
$dcp=$ctp-$cp;
$dp76=sqrt(pow(($pl-$tpl),2)+ pow(($pa-$tpa),2)+pow(($pb-$tpb),2));
$dph=SQRT(ABS(pow($dp76,2)-pow(($pl-$tpl),2)-pow((SQRT(pow($pa,2)+pow($pb,2))-SQRT(pow($tpa,2)+pow($tpb,2))),2)));
$dp94=SQRT((pow((($pl-$tpl)/(1*1)),2))+pow(($dcp/(1*(1+(0.045*$cp)))),2)+ pow(($dph/(1*(1+(0.015*$cp)))),2));
//echo "del76p=";
//echo $dp76;
// echo "||del94p=";
// echo $dp94;
// echo "<br>";
?>
<tr>
<td><div align="center">W</div></td>
<td><div align="right"><?php echo $pl;?></div></td>
<td><div align="right"><?php echo $pa;?></div></td>
<td><div align="right"><?php echo $pb;?></div></td>
<td><div align="center"></div></td>
<td><div align="right"><?php echo $PLm;?></div></td>
<td><div align="right"><?php echo $Pam;?></div></td>
<td><div align="right"><?php echo $Pbm;?></div></td>
<td><div align="right"><?php echo round($dp76,2);?></div></td>
<td><div align="right"><?php echo round($Pdm,3);?></div></td>
<td>
<td bgcolor="#CCCCCC"><div align="center"></div></td>
</tr>
<?php
///////////////////cal c
$cc=SQRT(pow($ca,2)+pow($cb,2));
$ctc=SQRT(pow($tca,2)+pow($tcb,2));
$dcc=$ctc-$cc;
$dc76=sqrt(pow(($cl-$tcl),2)+ pow(($ca-$tca),2)+pow(($cb-$tcb),2));
$dc00=de00($cl,$ca,$cb,$tcl,$tca,$tcb);
$dch=SQRT(ABS(pow($dc76,2)-pow(($cl-$tcl),2)-pow((SQRT(pow($ca,2)+pow($cb,2))-SQRT(pow($tca,2)+pow($tcb,2))),2)));
$dc94=SQRT((pow((($cl-$tcl)/(1*1)),2))+pow(($dcc/(1*(1+(0.045*$cc)))),2)+ pow(($dch/(1*(1+(0.015*$cc)))),2));
//echo "del76c=";
//echo $dc76;
//$dcHu=SQRT(ABS(pow($dbu76,2)-pow(($bul-$tbul),2)-pow((SQRT(pow($bua,2)+pow($bub,2))-SQRT(pow($tbua,2)+pow($tbub,2))),2)));
?>
<?php
// echo "Delta-E Cyan=";
if ($dc94>5) {$sid=1;?>
<?php }
//echo round($dc94,2);
// echo "<br>";
?>
<tr>
<td bgcolor="#66CCFF"><div align="center"><font color="black">C</font></div></td>
<td bgcolor="#66CCFF"><div align="right"><font color="black"><?php echo round($cl,2);?></font></div></td>
<td bgcolor="#66CCFF"><div align="right"><font color="black"><?php echo round($ca,2);?></font></div></td>
<td bgcolor="#66CCFF"><div align="right"><font color="black"><?php echo round($cb,2);?></font></div></td>
<td>
<td bgcolor="#66CCFF"><div align="right"><font color="black"><?php echo $tcl;?></font></div></td>
<td bgcolor="#66CCFF"><div align="right"><font color="black"><?php echo $tca;?></font></div></td>
<td bgcolor="#B5D0FF"><div align="right"><font color="black"><?php echo $tcb;?></font></div></td>
<td bgcolor="#66CCFF"><div align="right"><font color="black">
<?php if ($dc00>3.5) {$sid=1;?><font color="red">
<?php }
echo round($dc00,2);$psum=$psum-$dc94;?>
</font></div></td>
<td bgcolor="#66CCFF"><?php echo round($CS100dm,3);?></div></td>
<td bgcolor="#66CCFF"><?php echo round($dcc,2);?></div></td>
<td bgcolor="#66CCFF"><?php echo round($dchg,2);?></div></td>
<td bgcolor="#FF6600"><div align="center"><font color="black"><?php echo round($rl,2);?></font></div></td>
<td bgcolor="#FF6600"><div align="center"><font color="black"><?php echo round($ra,2);?></font></div></td>
<td bgcolor="#FF6600"><div align="center"><font color="black"><?php echo round($rb,2);?></font></div></td>
<?php $dr76=sqrt(pow((47-$trl),2)+ pow((68-$tra),2)+pow((49-$trb),2));
$dr00=de00($rl,$ra,$rb,$trl,$tra,$trb);
$cr=SQRT(pow($ra,2)+pow($rb,2));
$ctr=SQRT(pow($tra,2)+pow($trb,2));
$dcr=$ctr-$cr;
$drh=SQRT(ABS(pow($dr76,2)-pow(($rl-$trl),2)-pow((SQRT(pow($ra,2)+pow($rb,2))-SQRT(pow($tra,2)+pow($trb,2))),2)));
?>
<td bgcolor="#FF6600"><div align="center"><font color="black"><?php echo round($trl,2);?></font></div></td>
<td bgcolor="#A2A2FF"><div align="center"><font color="black"><?php echo round($tra,2);?></font></div></td>
<td bgcolor="#E0FECB"><div align="center"><font color="black"><?php echo round($trb,2);?></font></div></td>
<td bgcolor="#FF6600"><div align="center"><font color="black">
<?php if ($dr00>4.2) { ?><font color="red">
<?php } echo round($dr00,2);?>
</font></div></td>
<td bgcolor="#FFCCFF"><div align="right"><?php echo round($RS100dm,3);?></div></td>
<td bgcolor="#FFCCFF"><div align="right"><?php echo round(($RS100dm-$MS100dm)/$YS100dm*100,2);?></div></td>
<td bgcolor="#FF6600"><div align="right"><?php echo round($dcr,2);?></div></td>
<td bgcolor="#FF6600"><div align="right"><?php echo round($drhg,2);?></div></td>
</tr>
<?php
$device=='isis';
/////////////cal m
if ($device=='isis') {
$tml=$tml;$tmb=$tmb;}
else {
$tml=$tml;$tmb=$tmb;}
$cm=SQRT(pow($ma,2)+pow($mb,2));
$ctm=SQRT(pow($tma,2)+pow($tmb,2));
$dcm=$ctm-$cm;
$dm76=sqrt(pow(($ml-$tml),2)+ pow(($ma-$tma),2)+pow(($mb-$tmb),2));
$dm00=de00($ml,$ma,$mb,$tml,$tma,$tmb);
$dmh=SQRT(ABS(pow($dm76,2)-pow(($ml-$tml),2)-pow((SQRT(pow($ma,2)+pow($mb,2))-SQRT(pow($tma,2)+pow($tmb,2))),2)));
$dm94=SQRT((pow((($ml-$tml)/(1*1)),2))+pow(($dcm/(1*(1+(0.045*$cm)))),2)+ pow(($dmh/(1*(1+(0.015*$cm)))),2));
// echo "del76m=";
// echo $dm76;
?>
<?php
// echo "Delta-E Magenta=";
if ($dm94>5) {$sid=1;?>
<?php }
//echo round($dm94,2);
// echo "<br>";
?>
<tr>
<td bgcolor="#FFCCFF"><div align="center"><font color="black">M</font></div></td>
<td bgcolor="#FFCCFF"><div align="right"><font color="black"><?php echo round( $ml,2);?></font></div></td>
<td bgcolor="#FFCCFF"><div align="right"><font color="black"><?php echo round( $ma,2);?></font></div></td>
<td bgcolor="#FFCCFF"><div align="right"><font color="black"><?php echo round( $mb,2);?></font></div></td>
<td bgcolor="#FFCCFF"><div align="center"></div></td>
<td bgcolor="#FFCCFF"><div align="right"><font color="black"><?php echo $tml;?></font></div></td>
<td bgcolor="#A2A2FF"><div align="right"><font color="black"><?php echo $tma;?></font></div></td>
<td bgcolor="#FFCCFF"><div align="right"><font color="black"><?php echo $tmb;?></font></div></td>
<td bgcolor="#FFCCFF"><div align="right"><font color="black">
<?php if ($dm00>3.5) {$sid=1;?><font color="red">
<?php }
echo round($dm00,2);$psum=$psum-$dm94;?>
</font></div></td>
<td bgcolor="#FFCCFF"><div align="right"><?php echo round($MS100dm,3);?></div></td>
<td bgcolor="#FFCCFF"><div align="right"><?php echo round($dcm,2);?></div></td>
<td bgcolor="#FFCCFF"><div align="right"><?php echo round($dmhg,2);?></div></td>
<td bgcolor="#66CC66"><div align="center"><font color="black"><?php echo round($gl,2);?></font></div></td>
<td bgcolor="#66CC66"><div align="center"><font color="black"><?php echo round($ga,2);?></font></div></td>
<td bgcolor="#66CC66"><div align="center"><font color="black"><?php echo round($gb,2);?></font></div></td>
<td bgcolor="#66CC66"><div align="center"><font color="black"><?php echo $tgl;?></font></div></td>
<td bgcolor="#66CC66"><div align="center"><font color="black"><?php echo $tga;?></font></div></td>
<td bgcolor="#E0FECB"><div align="center"><font color="black"><?php echo $tgb;?></font></div></td>
<td bgcolor="#66CC66"><div align="center"><font color="black">
<?php if ($dg00>4.2) { ?><font color="red">
<?php } echo round($dg00,2);?>
<td bgcolor="#FFFFCC"><div align="right"><?php echo round($GS100dm,3);?></div></td>
<td bgcolor="#FFFFCC"><div align="right"><?php echo round(($GS100dm-$CS100dm)/$YS100dm*100,2);?></div></td>
<?php
$cg=SQRT(pow($ga,2)+pow($gb,2));
$ctg=SQRT(pow($tga,2)+pow($tgb,2));
$dcg=$ctg-$cg;
$dgh=SQRT(ABS(pow($dg76,2)-pow(($gl-$tgl),2)-pow((SQRT(pow($ga,2)+pow($gb,2))-SQRT(pow($tga,2)+pow($tgb,2))),2)));
?>
<td bgcolor="#66CC66"><div align="right"><?php echo round($dcg,2);?></div></td>
<td bgcolor="#66CC66"><div align="right"><?php echo round($dghg,2);?></div></td>
</font></div></td>
</td>
</tr>
<?php
////////////////cal y
$cy=SQRT(pow($ya,2)+pow($yb,2));
$cty=SQRT(pow($tya,2)+pow($tyb,2));
$dcy=$cty-$cy;
$dy76=sqrt(pow(($yl-$tyl),2)+ pow(($ya-$tya),2)+pow(($yb-$tyb),2));
$dy00=de00($yl,$ya,$yb,$tyl,$tya,$tyb);
$dyh=SQRT(ABS(pow($dy76,2)-pow(($yl-$tyl),2)-pow((SQRT(pow($ya,2)+pow($yb,2))-SQRT(pow($tya,2)+pow($tyb,2))),2)));
$dy94=SQRT((pow((($yl-$tyl)/(1*1)),2))+pow(($dcy/(1*(1+(0.045*$cy)))),2)+ pow(($dyh/(1*(1+(0.015*$cy)))),2));
// echo "del76y=";
// echo $dy76;
?>
<?php
// echo "Delta-E Yellow=";
if ($dy00>3.5) {$sid=1;?>
<?php }
//echo round($dy94,2);
// echo "<br>";
?>
<tr>
<td bgcolor="#FFFFCC"><div align="center"><font color="black">Y</font></div></td>
<td bgcolor="#FFFFCC"><div align="right"><font color="black"><?php echo round($yl,2);?></font></div></td>
<td bgcolor="#FFFFCC"><div align="right"><font color="black"><?php echo round($ya,2);?></font></div></td>
<td bgcolor="#FFFFCC"><div align="right"><font color="black"><?php echo round($yb,2);?></font></div></td>
<td bgcolor="#FFFFCC"><div align="center"></div></td>
<td bgcolor="#FFFFCC"><div align="right"><font color="black"><?php echo $tyl;?></font></div></td>
<td bgcolor="#FFFFCC"><div align="right"><font color="black"><?php echo $tya;?></font></div></td>
<td bgcolor="#E0FECB"><div align="right"><font color="black"><?php echo $tyb;?></font></div></td>
<td bgcolor="#FFFFCC"><div align="right"><font color="black">
<?php if ($dy00>3.5) {$sid=1;?><font color="red">
<?php }
echo round($dy00,2);$psum=$psum-$dy94;?>
</font></div></td>
<td bgcolor="#FFFFCC"><div align="right"><?php echo round($YS100dm,3);?></div></td>
<td bgcolor="#FFFFCC"><div align="right"><?php echo round($dcy,2);?></div></td>
<td bgcolor="#FFFFCC"><div align="right"><?php echo round($dyhg,2);?></div></td>
<td bgcolor="#3366FF"><div align="center"><font color="black"><?php echo round($bl,2);?></font></div></td>
<td bgcolor="#3366FF"><div align="center"><font color="black"><?php echo round($ba,2);?></font></div></td>
<td bgcolor="#3366FF"><div align="center"><font color="black"><?php echo round($bb,2);?></font></div></td>
<?php $db76=sqrt(pow((24-$tbl),2)+ pow((17-$tba),2)+pow(((-46)-$tbb),2));?>
<td bgcolor="#3366FF"><div align="center"><font color="black"><?php echo $tbl;?></font></div></td>
<td bgcolor="#A2A2FF"><div align="center"><font color="black"><?php echo $tba;?></font></div></td>
<td bgcolor="#B1D0FE"><div align="center"><font color="black"><?php echo $tbb;?></font></div></td>
<td bgcolor="#3366FF"><div align="center"><font color="black">
<?php if ($db00>4.2) { ?><font color="red">
<?php } echo round($db00,2);?>
<td bgcolor="#A2A2FF"><div align="right"><?php echo round($BS100dm,3);?></div></td>
<td bgcolor="#A2A2FF"><div align="right"><?php echo round(($BS100dm-$CS100dm)/$MS100dm*100,2);?></div></td>
<?php
$ccb=SQRT(pow($ba,2)+pow($bb,2));
$ctb=SQRT(pow($tba,2)+pow($tbb,2));
$dcb=$ctb-$ccb;
$dbh=SQRT(ABS(pow($db76,2)-pow(($bl-$tbl),2)-pow((SQRT(pow($ba,2)+pow($bb,2))-SQRT(pow($tba,2)+pow($tbb,2))),2)));
?>
<td bgcolor="#3366FF"><div align="right"><?php echo round($dcb,2);?></div></td>
<td bgcolor="#3366FF"><div align="right"><?php echo round($dbhg,2);?></div></td>
</font></div></td></tr>
<?php
////////////////////////////cal k
$ck=SQRT(pow($ka,2)+pow($kb,2));
$ctk=SQRT(pow($tka,2)+pow($tkb,2));
$dck=$ctk-$ck;
$dk76=sqrt(pow(($kl-$tkl),2)+ pow(($ka-$tka),2)+pow(($kb-$tkb),2));
$dk00=de00($kl,$ka,$kb,$tkl,$tka,$tkb);
$dkh=SQRT(ABS(pow($dk76,2)-pow(($kl-$tkl),2)-pow((SQRT(pow($ka,2)+pow($kb,2))-SQRT(pow($tka,2)+pow($tkb,2))),2)));
$dk94=SQRT((pow((($kl-$tkl)/(1*1)),2))+pow(($dck/(1*(1+(0.045*$ck)))),2)+ pow(($dkh/(1*(1+(0.015*$ck)))),2));
// echo "del76k=";
// echo $dk76;
?>
<?php
// echo "Delta-E Blank=";
if ($dk94>5) {$sid=1;?>
<?php }
// echo round($dk94,2);
// echo "<br>";
?>
<tr>
<td bgcolor="#CCCCCC"><div align="center"><font color="black">K</font></div></td>
<td bgcolor="#CCCCCC"><div align="right"><font color="black"><?php echo round($kl,2);?></font></div></td>
<td bgcolor="#CCCCCC"><div align="right"><font color="black"><?php echo round($ka,2);?></font></div></td>
<td bgcolor="#CCCCCC"><div align="right"><font color="black"><?php echo round($kb,2);?></font></div></td>
<td bgcolor="#CCCCCC"><div align="center"></div></td>
<td bgcolor="#CCCCCC"><div align="right"><font color="black"><?php echo $tkl;?></font></div></td>
<td bgcolor="#CCCCCC"><div align="right"><font color="black"><?php echo $tka;?></font></div></td>
<td bgcolor="#CCCCCC"><div align="right"><font color="black"><?php echo $tkb;?></font></div></td>
<td bgcolor="#CCCCCC"><div align="right"><font color="black">
<?php if ($dk00>5) {$sid=1;?><font color="red">
<?php }
echo round($dk00,2);$psum=$psum-$dk94;?>
</font></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($K100dm,3);?></div></td>
<td>
<td>
</tr>
-->
<?php
$Tsum=(($sum/260)*60)+(($psum/20)*40);
$Rsum=round($Tsum,2);
//echo "<br>graph:".$tma.",".$tra.",".$tya.",".$tga.",".$tca.",".$tba.",".$tma;
//echo "<br>graph2:".$tmb.",".$trb.",".$tyb.",".$tgb.",".$tcb.",".$tbb.",".$tmb;
?>
</table>
<?php
$Maxdl=max(abs($dl2),abs($dl4),abs($dl6),abs($dl8),abs($dl10),abs($dl15),abs($dl20),abs($dl25),abs($dl30),abs($dl35),abs($dl40),abs($dl45),abs($dl50),abs($dl55),abs($dl60),abs($dl65),abs($dl70),abs($dl75),abs($dl80),abs($dl85),abs($dl90),abs($dl95),abs($dl98));
$Avgdl=(abs($dl2)+abs($dl4)+abs($dl6)+abs($dl8)+abs($dl10)+abs($dl15)+abs($dl20)+abs($dl25)+abs($dl30)+abs($dl35)+abs($dl40)+abs($dl45)+abs($dl50)+abs($dl55)+abs($dl60)+abs($dl65)+abs($dl70)+abs($dl75)+abs($dl80)+abs($dl85)+abs($dl90)+abs($dl95)+abs($dl98))/23;
$Maxdlc=max(abs($dlc2),abs($dlc4),abs($dlc6),abs($dlc8),abs($dlc10),abs($dlc15),abs($dlc20),abs($dlc25),abs($dlc30),abs($dlc35),abs($dlc40),abs($dlc45),abs($dlc50),abs($dlc55),abs($dlc60),abs($dlc65),abs($dlc70),abs($dlc75),abs($dlc80),abs($dlc85),abs($dlc90),abs($dlc95),abs($dlc98));
$Avgdlc=abs(($dlc2+$dlc4+$dlc6+$dlc8+$dlc10+$dlc15+$dlc20+$dlc25+$dlc30+$dlc35+$dlc40+$dlc45+$dlc50+$dlc55+$dlc60+$dlc65+$dlc70+$dlc75+$dlc80+$dlc85+$dlc90+$dlc95+$dlc98)/23);
$Maxdf=max(abs($df2),abs($df4),abs($df6),abs($df8),abs($df10),abs($df15),abs($df20),abs($df25),abs($df30),abs($df35),abs($df40),abs($df45),abs($df50),abs($df55),abs($df60),abs($df65),abs($df70),abs($df75),abs($df80),abs($df85),abs($df90),abs($df95),abs($df98));
//echo "<br>df:".$df2."_".$df4."_".$df6."_".$df8."_".$df10."_".$df15."_".$df20."_".$df25."_".$df30."_".$df35."_".$dfs40."_".$df45."_".$df50."_".$df55."_".$df60."_".$df65."_".$df70."_".$df75."_".$df80."_".$df85."_".$df90."_".$df95."_".$df98;
$Avgdf=abs(($df2+$df4+$df6+$df8+$df10+$df15+$df20+$df25+$df30+$df35+$df40+$df45+$df50+$df55+$df60+$df65+$df70+$df75+$df80+$df85+$df90+$df95+$df98)/23);
if (($K100dm-$Pdm)>1.69) {
$k50dT=0.5;}
else {
$k50dT=0.0562*($K100dm-$Pdm)+0.405;
}
if (($C100dm-$Pdm)>1.37) {
$D50dT=0.54;}
else {
$D50dT=0.1707*($C100dm-$Pdm)+0.3061;
}
?>
<table border="1" align="center">
<tr>
<td>
<td bgcolor="#999999"><div align="right">AwdL*</div></td>
<td bgcolor="#999999"><div align="right">MwdL*</div></td>
<td bgcolor="#999999"><div align="right">AwdCh</div></td>
<td bgcolor="#999999"><div align="right">MwdCh</div></td>
</tr>
<tr>
<td> K </td>
<td bgcolor="#CCCCCC"><div align="center">
<?php if ($Avgdl>1.5) {$sid=1; $stFail=1;?>
<font color="red">
<?php } echo round($Avgdl,2);?>
</font></div></td>
<td bgcolor="#CCCCCC"><div align="center">
<?php if ($Maxdl>3) {$sid=1;$stFail=1;?>
<font color="red">
<?php } echo round($Maxdl,2);?>
</font></div></td>
</tr>
<tr>
<td> cmy </td>
<td bgcolor="#CCCCCC"><div align="center">
<?php if ($Avgdlc>1.5) {$sid=1; $stFail=1;?>
<font color="red">
<?php } echo round($Avgdlc,2);?>
</font></div></td>
<td bgcolor="#CCCCCC"><div align="center">
<?php if ($Maxdlc>3) {$sid=1; $stFail=1;?>
<font color="red">
<?php } echo round($Maxdlc,2);?>
</font></div></td>
<td bgcolor="#CCCCCC"><div align="center">
<?php if ($Avgdf>1.5) {$sid=1;$stFail=1;?>
<font color="red">
<?php } echo round($Avgdf,2);?>
</font></div></td>
<td bgcolor="#CCCCCC"><div align="center">
<?php if ($Maxdf>3) {$sid=1;$stFail=1;?>
<font color="red">
<?php } echo round($Maxdf,2);?>
</font></div></td>
</tr>
</table>
<table width="400" border="1" align="center"
<tr>
<td>
<td colspan = "3"><?php echo $target;?> data</td>
<td colspan = "3">measured data</td>
<td> ΔE00</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">Paper</td>
<td align='right' bgcolor="#FFFFFF"><?php echo round($pl,1);?></td>
<td align='right' bgcolor="#FFFFFF"><?php echo round($pa,1);?></td>
<td align='right' bgcolor="#FFFFFF"><?php echo round($pb,1);?></td>
<td align='right' bgcolor="#FFFFFF"><?php echo round($PLm,1);?></td>
<td align='right' bgcolor="#FFFFFF"><?php echo round($Pam,1);?></td>
<td align='right' bgcolor="#FFFFFF"><?php echo round($Pbm,1);?></td>
<td align='right' bgcolor="#FFFFFF"><?php echo round($dp00,2);?></td>
</tr>
<tr>
<td bgcolor="#00FFFF">100C</td>
<td align='right' bgcolor="#00FFFF"><?php echo round($cl,1);?></td>
<td align='right' bgcolor="#00FFFF"><?php echo round($ca,1);?></td>
<td align='right' bgcolor="#00FFFF"><?php echo round($cb,1);?></td>
<td align='right' bgcolor="#00FFFF"><?php echo round($tcl,1);?></td>
<td align='right' bgcolor="#00FFFF"><?php echo round($tca,1);?></td>
<td align='right' bgcolor="#00FFFF"><?php echo round($tcb,1);?></td>
<td align='right' bgcolor="#00FFFF"><a href="../deltaE/indexE.php?mL=<?php echo $clm.'&ma='.$cam.'&mb='.$cbm;?>"><?php if (abs($dc00)>3.5) {echo "<font color='red'>";}echo round($dc00,2);?></a></td>
</tr>
<tr>
<td bgcolor="#FFCCFF">100M</td>
<td align='right' bgcolor="#FFCCFF"><?php echo round($ml,1);?></td>
<td align='right' bgcolor="#FFCCFF"><?php echo round($ma,1);?></td>
<td align='right' bgcolor="#FFCCFF"><?php echo round($mb,1);?></td>
<td align='right' bgcolor="#FFCCFF"><?php echo round($tml,1);?></td>
<td align='right' bgcolor="#FFCCFF"><?php echo round($tma,1);?></td>
<td align='right' bgcolor="#FFCCFF"><?php echo round($tmb,1);?></td>
<td align='right' bgcolor="#FFCCFF"><a href="../deltaE/indexE.php?mL=<?php echo $mlm.'&ma='.$mam.'&mb='.$mbm;?>"><?php if (abs($dm00)>3.5) {echo "<font color='red'>";}echo round($dm00,2);?></a></td>
</tr>
<td bgcolor="#FFFF66">100Y</td>
<td align='right' bgcolor="#FFFF66"><?php echo round($yl,1);?></td>
<td align='right' bgcolor="#FFFF66"><?php echo round($ya,1);?></td>
<td align='right' bgcolor="#FFFF66"><?php echo round($yb,1);?></td>
<td align='right' bgcolor="#FFFF66"><?php echo round($tyl,1);?></td>
<td align='right' bgcolor="#FFFF66"><?php echo round($tya,1);?></td>
<td align='right' bgcolor="#FFFF66"><?php echo round($tyb,1);?></td>
<td align='right' bgcolor="#FFFF66"><a href="../deltaE/indexE.php?mL=<?php echo $ylm.'&ma='.$yam.'&mb='.$ybm;?>"><?php if (abs($dy00)>3.5) {echo "<font color='red'>";}echo round($dy00,2);?></a></td>
</tr>
<td bgcolor="#BBBBBB">100K</td>
<td align='right' bgcolor="#BBBBBB"><?php echo round($kl,1);?></td>
<td align='right' bgcolor="#BBBBBB"><?php echo round($ka,1);?></td>
<td align='right' bgcolor="#BBBBBB"><?php echo round($kb,1);?></td>
<td align='right' bgcolor="#BBBBBB"><?php echo round($tkl,1);?></td>
<td align='right' bgcolor="#BBBBBB"><?php echo round($tka,1);?></td>
<td align='right' bgcolor="#BBBBBB"><?php echo round($tkb,1);?></td>
<td align='right' bgcolor="#BBBBBB"><?php if (abs($dk00)>4.2) {echo "<font color='red'>";}echo round($dk00,2);?></td>
</tr>
<tr>
<td bgcolor="#DD7777">R</td>
<td align='right' bgcolor="#DD7777"><?php echo round($rl,1);?></td>
<td align='right' bgcolor="#DD7777"><?php echo round($ra,1);?></td>
<td align='right' bgcolor="#DD7777"><?php echo round($rb,1);?></td>
<td align='right' bgcolor="#DD7777"><?php echo round($trl,1);?></td>
<td align='right' bgcolor="#DD7777"><?php echo round($tra,1);?></td>
<td align='right' bgcolor="#DD7777"><?php echo round($trb,1);?></td>
<td align='right' bgcolor="#DD7777"><?php if (abs($dr00)>4.2) {echo "<font color='red'>";}echo round($dr00,2);?></td>
</tr>
<tr>
<td bgcolor="#55BB55">G</td>
<td align='right' bgcolor="#55BB55"><?php echo round($gl,1);?></td>
<td align='right' bgcolor="#55BB55"><?php echo round($ga,1);?></td>
<td align='right' bgcolor="#55BB55"><?php echo round($gb,1);?></td>
<td align='right' bgcolor="#55BB55"><?php echo round($tgl,1);?></td>
<td align='right' bgcolor="#55BB55"><?php echo round($tga,1)?></td>
<td align='right' bgcolor="#55BB55"><?php echo round($tgb,1);?></td>
<td align='right' bgcolor="#55BB55"><?php if (abs($dg00)>4.2) {echo "<font color='red'>";}echo round($dg00,2);?></td>
</tr>
<tr>
<td bgcolor="#7777DD">B</td>
<td align='right' bgcolor="#7777DD"><?php echo round($bl,1);?></td>
<td align='right' bgcolor="#7777DD"><?php echo round($ba,1);?></td>
<td align='right' bgcolor="#7777DD"><?php echo round($bb,1);?></td>
<td align='right' bgcolor="#7777DD"><?php echo round($tbl,1);?></td>
<td align='right' bgcolor="#7777DD"><?php echo round($tba,1);?></td>
<td align='right' bgcolor="#7777DD"><?php echo round($tbb,1);?></td>
<td align='right' bgcolor="#7777DD"><?php if (abs($db00)>4.2) {echo "<font color='red'>";} echo round($db00,2);?></td>
</tr>
</table>
<table width="200" border="1" align="center">
<tr>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_line.php');
unlink('scatterKL.png');
$datay1 = array(0,$dl2,$dl4,$dl6,$dl8,$dl10,$dl15,$dl20,$dl25,$dl30,$dl35,$dl40,$dl45,$dl50,$dl55,$dl60,$dl65,$dl70,$dl75,$dl80,$dl85,$dl90,$dl95,$dl98,0);
$datay3 = array(0,$dlc2,$dlc4,$dlc6,$dlc8,$dlc10,$dlc15,$dlc20,$dlc25,$dlc30,$dlc35,$dlc40,$dlc45,$dlc50,$dlc55,$dlc60,$dlc65,$dlc70,$dlc75,$dlc80,$dlc85,$dlc90,$dlc95,$dlc98,0);
// Setup the graph
$graph = new Graph(500,250);
//$graph->SetScale("textlin");
$graph->SetScale('textlin',-10,10);
//$graph->SetScale('intlin',0,100,-10,10);
$theme_class= new UniversalTheme;
$graph->SetTheme($theme_class);
$graph->title->Set('delta-L*');
$graph->SetBox(false);
$graph->yaxis->HideZeroLabel();
$graph->yaxis->HideLine(false);
$graph->yaxis->HideTicks(false,false);
$graph->xaxis->SetTickLabels(array('0','2','4','6','8','10','15','20','25','30','35','40','45','50','55','60','65','70','75','80','85','90','95','98','100'));
$graph->ygrid->SetFill(false);
//$graph->SetBackgroundImage("tiger_bkg.png",BGIMG_FILLFRAME);
$p1 = new LinePlot($datay1);
$graph->Add($p1);
$p3 = new LinePlot($datay3);
$graph->Add($p3);
//$p2 = new LinePlot($datay2);
//$graph->Add($p2);
//$ADR=$c21l-$a21l;
//$BDR=$ct21l-$at21l;
$p1->SetColor("#aaaaaa");
$p1->SetLegend('K ');
$p1->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p1->mark->SetColor('#aaaaaa');
$p1->mark->SetFillColor('#aaaaaa');
$p1->SetCenter();
$p3->SetColor("#c83076");
$p3->SetLegend('cmy ');
$p3->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p3->mark->SetColor('#c83076');
$p3->mark->SetFillColor('#c83076');
$p3->SetCenter();
//$p2->SetColor("#aaaaaa");
//$p2->SetLegend('Line='. $BDR);
//$p2->mark->SetType(MARK_UTRIANGLE,'',1.0);
//$p2->mark->SetColor('#aaaaaa');
//$p2->mark->SetFillColor('#aaaaaa');
//$p2->value->SetMargin(14);
//$p2->SetCenter();
$graph->legend->SetFrameWeight(1);
$graph->legend->SetColor('#4E4E4E','#00A78A');
$graph->legend->SetMarkAbsSize(8);
// Output line
$graph->Stroke('scatterKL.png');
?>
<img src="scatterKL.png">
</div></td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
//require_once ('../jpgraph/jpgraph.php');
//require_once ('../jpgraph/jpgraph_line.php');
unlink('scatterFL.png');
$datay1 = array($df2,$df4,$df6,$df8,$df10,$df15,$df20,$df25,$df30,$df35,$df40,$df45,$df50,$df55,$df60,$df65,$df70,$df75,$df80,$df85,$df90,$df95,$df98);
$datay2 = array($db2,$db4,$db6,$db8,$db10,$db15,$db20,$db25,$db30,$db35,$db40,$db45,$db50,$db55,$db60,$db65,$db70,$db75,$db80,$db85,$db90,$db95,$db98);
$datay3 = array($da2,$da4,$da6,$da8,$da10,$da15,$da20,$da25,$da30,$da35,$da40,$da45,$da50,$da55,$da60,$da65,$da70,$da75,$da80,$da85,$da90,$da95,$da98);
// Setup the graph
$graph = new Graph(500,250);
//$graph->SetScale("textlin");
$graph->SetScale('textlin',-10,10);
//$graph->SetScale('intlin',0,100,-10,10);
$theme_class= new UniversalTheme;
$graph->SetTheme($theme_class);
$graph->title->Set('Gray balance');
$graph->SetBox(false);
$graph->yaxis->HideZeroLabel();
$graph->yaxis->HideLine(false);
$graph->yaxis->HideTicks(false,false);
$graph->xaxis->SetTickLabels(array(0,2,4,6,8,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,98,100));
$graph->ygrid->SetFill(false);
//$graph->SetBackgroundImage("tiger_bkg.png",BGIMG_FILLFRAME);
$p1 = new LinePlot($datay1);
$graph->Add($p1);
$p2 = new LinePlot($datay2);
$graph->Add($p2);
$p3 = new LinePlot($datay3);
$graph->Add($p3);
//$p2 = new LinePlot($datay2);
//$graph->Add($p2);
//$ADR=$c21l-$a21l;
//$BDR=$ct21l-$at21l;
$p1->SetColor("#19f691");
$p1->SetLegend('dch');
$p1->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p1->mark->SetColor('#19f691');
$p1->mark->SetFillColor('#19f691');
$p1->SetCenter();
$p3->SetColor("#c83076");
$p3->SetLegend('a*');
$p3->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p3->mark->SetColor('#c83076');
$p3->mark->SetFillColor('#c83076');
$p3->SetCenter();
$p2->SetColor("#6699FF");
$p2->SetLegend('b*');
$p2->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p2->mark->SetColor('#6699FF');
$p2->mark->SetFillColor('#669FF');
$p2->SetCenter();
$graph->legend->SetFrameWeight(1);
$graph->legend->SetColor('#4E4E4E','#00A78A');
$graph->legend->SetMarkAbsSize(8);
// Output line
$graph->Stroke('scatterFL.png');
?>
<img src="scatterFL.png">
</div></td></tr>
</table>
<table width="200" border="1" align="center">
<tr>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_line.php');
require_once ('../jpgraph/jpgraph_scatter.php');
require_once ('../jpgraph/jpgraph_regstat.php');
unlink('scatterNK.png');
/*
$datay1 = array(0,$K6dm-$Pdm,$K10dm-$Pdm,$K15dm-$Pdm,$K20dm-$Pdm,$K25dm-$Pdm,$K30dm-$Pdm,$K35dm-$Pdm,$K40dm-$Pdm,$K45dm-$Pdm,$K50dm-$Pdm,$K55dm-$Pdm,$K60dm-$Pdm,$K65dm-$Pdm,$K70dm-$Pdm,$K75dm-$Pdm,$K80dm-$Pdm,$K85dm-$Pdm,$K90dm-$Pdm,$K95dm-$Pdm,$K100dm-$Pdm);
$datay3 = array(0,$k50dT,$K100dm-$Pdm);
$graph = new Graph(500,400);
//$graph->SetScale("textlin");
$graph->SetScale('textlin');
//$graph->SetScale('intlin',0,100,-10,10);
$theme_class= new UniversalTheme;
$graph->SetTheme($theme_class);
$graph->title->Set('Curve K*');
$graph->SetBox(false);
$graph->yaxis->HideZeroLabel();
$graph->yaxis->HideLine(false);
$graph->yaxis->HideTicks(false,false);
$graph->xaxis->SetTickLabels(array('0','6','10','15','20','25','30','35','40','45','50','55','60','65','70','75','80','85','90','95','100'));
$graph->ygrid->SetFill(false);
//$graph->SetBackgroundImage("tiger_bkg.png",BGIMG_FILLFRAME);
$p1 = new LinePlot($datay1);
$graph->Add($p1);
$p1->SetColor("#aaaaaa");
$p1->SetLegend('K ');
$p1->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p1->mark->SetColor('#aaaaaa');
$p1->mark->SetFillColor('#aaaaaa');
$p1->SetCenter();
$graph->legend->SetFrameWeight(1);
$graph->legend->SetColor('#4E4E4E','#00A78A');
$graph->legend->SetMarkAbsSize(8);
$graph->Stroke('scatterNK.png');
*/
$xdata = array(0,50,100);
$ydata = array(0,$k50dT,$K100dm-$Pdm);
$xdata2 = array(0,6,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,100);
$ydata2 = array(0,$K6dm-$Pdm,$K10dm-$Pdm,$K15dm-$Pdm,$K20dm-$Pdm,$K25dm-$Pdm,$K30dm-$Pdm,$K35dm-$Pdm,$K40dm-$Pdm,$K45dm-$Pdm,$K50dm-$Pdm,$K55dm-$Pdm,$K60dm-$Pdm,$K65dm-$Pdm,$K70dm-$Pdm,$K75dm-$Pdm,$K80dm-$Pdm,$K85dm-$Pdm,$K90dm-$Pdm,$K95dm-$Pdm,$K100dm-$Pdm);
// Get the interpolated values by creating
// a new Spline object.
$spline = new Spline($xdata,$ydata);
// For the new data set we want 40 points to
// get a smooth curve.
list($newx,$newy) = $spline->Get(50);
$g = new Graph(500,400);
$g->SetScale('linlin');
$theme_class= new UniversalTheme;
$graph->SetTheme($theme_class);
$g->title->Set('Curve K*');
$g->SetBox(false);
$g->yaxis->HideZeroLabel();
$g->yaxis->HideLine(false);
$g->yaxis->HideTicks(false,false);
$g->ygrid->SetFill(false);
// We use a scatterplot to illustrate the original
// contro points.
$splot = new ScatterPlot($ydata,$xdata);
$splot->mark->SetFillColor('[email protected]');
$splot->mark->SetColor('[email protected]');
$lplot = new LinePlot($newy,$newx);
$lplot->SetLegend('Target');
$p1 = new LinePlot($ydata2,$xdata2);
$g->Add($p1);
$p1->SetColor("#aaaaaa");
$p1->SetLegend('K ');
$p1->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p1->mark->SetColor('#aaaaaa');
$p1->mark->SetFillColor('#aaaaaa');
$p1->SetCenter();
$g->Add($splot);
$g->Add($lplot);
$g->Stroke('scatterNK.png');
?>
<img src="scatterNK.png">
</div></td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
//require_once ('../jpgraph/jpgraph.php');
//require_once ('../jpgraph/jpgraph_line.php');
unlink('scatterNG.png');
/*
$datay1 = array(0,$C6dm-$Pdm,$C10dm-$Pdm,$C15dm-$Pdm,$C20dm-$Pdm,$C25dm-$Pdm,$C30dm-$Pdm,$C35dm-$Pdm,$C40dm-$Pdm,$C45dm-$Pdm,$C50dm-$Pdm,$C55dm-$Pdm,$C60dm-$Pdm,$C65dm-$Pdm,$C70dm-$Pdm,$C75dm-$Pdm,$C80dm-$Pdm,$C85dm-$Pdm,$C90dm-$Pdm,$C95dm-$Pdm,$C100dm-$Pdm);
$datay2 = array($db2,$db4,$db6,$db8,$db10,$db15,$db20,$db25,$db30,$db35,$db40,$db45,$db50,$db55,$db60,$db65,$db70,$db75,$db80,$db85,$db90,$db95,$db98);
$datay3 = array($da2,$da4,$da6,$da8,$da10,$da15,$da20,$da25,$da30,$da35,$da40,$da45,$da50,$da55,$da60,$da65,$da70,$da75,$da80,$da85,$da90,$da95,$da98);
// Setup the graph
$graph = new Graph(500,400);
//$graph->SetScale("textlin");
$graph->SetScale('textlin');
//$graph->SetScale('intlin',0,100,-10,10);
$theme_class= new UniversalTheme;
$graph->SetTheme($theme_class);
$graph->title->Set('Curve CMY');
$graph->SetBox(false);
$graph->yaxis->HideZeroLabel();
$graph->yaxis->HideLine(false);
$graph->yaxis->HideTicks(false,false);
$graph->xaxis->SetTickLabels(array('0','6','10','15','20','25','30','35','40','45','50','55','60','65','70','75','80','85','90','95','100'));
$graph->ygrid->SetFill(false);
//$graph->SetBackgroundImage("tiger_bkg.png",BGIMG_FILLFRAME);
$p1 = new LinePlot($datay1);
$graph->Add($p1);
//$p2 = new LinePlot($datay2);
//$graph->Add($p2);
//$p3 = new LinePlot($datay3);
//$graph->Add($p3);
//$p2 = new LinePlot($datay2);
//$graph->Add($p2);
//$ADR=$c21l-$a21l;
//$BDR=$ct21l-$at21l;
$p1->SetColor("#19f691");
$p1->SetLegend('dch');
$p1->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p1->mark->SetColor('#19f691');
$p1->mark->SetFillColor('#19f691');
$p1->SetCenter();
$p3->SetColor("#FFCCFF");
$p3->SetLegend('a*');
$p3->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p3->mark->SetColor('#FFCCFF');
$p3->mark->SetFillColor('#FFCCFF');
$p3->SetCenter();
$p2->SetColor("#6699FF");
$p2->SetLegend('b*');
$p2->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p2->mark->SetColor('#6699FF');
$p2->mark->SetFillColor('#669FF');
$p2->SetCenter();
$graph->legend->SetFrameWeight(1);
$graph->legend->SetColor('#4E4E4E','#00A78A');
$graph->legend->SetMarkAbsSize(8);
// Output line
*/
$xdata = array(0,50,100);
$ydata = array(0,$D50dT,$C100dm-$Pdm);
$xdata2 = array(0,6,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,100);
$ydata2 = array(0,$C6dm-$Pdm,$C10dm-$Pdm,$C15dm-$Pdm,$C20dm-$Pdm,$C25dm-$Pdm,$C30dm-$Pdm,$C35dm-$Pdm,$C40dm-$Pdm,$C45dm-$Pdm,$C50dm-$Pdm,$C55dm-$Pdm,$C60dm-$Pdm,$C65dm-$Pdm,$C70dm-$Pdm,$C75dm-$Pdm,$C80dm-$Pdm,$C85dm-$Pdm,$C90dm-$Pdm,$C95dm-$Pdm,$C100dm-$Pdm);
// Get the interpolated values by creating
// a new Spline object.
$spline = new Spline($xdata,$ydata);
// For the new data set we want 40 points to
// get a smooth curve.
list($newx,$newy) = $spline->Get(50);
$g = new Graph(500,400);
$g->SetScale('linlin');
$theme_class= new UniversalTheme;
$graph->SetTheme($theme_class);
$g->title->Set('Curve CMY*');
$g->SetBox(false);
$g->yaxis->HideZeroLabel();
$g->yaxis->HideLine(false);
$g->yaxis->HideTicks(false,false);
$g->ygrid->SetFill(false);
// We use a scatterplot to illustrate the original
// contro points.
$splot = new ScatterPlot($ydata,$xdata);
$splot->mark->SetFillColor('[email protected]');
$splot->mark->SetColor('[email protected]');
$lplot = new LinePlot($newy,$newx);
$lplot->SetLegend('Target');
$lplot->SetColor("#00ff00");
$p1 = new LinePlot($ydata2,$xdata2);
$g->Add($p1);
$p1->SetColor("#aaaaaa");
$p1->SetLegend('CMY ');
$p1->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p1->mark->SetColor('#aaaaaa');
$p1->mark->SetFillColor('#aaaaaa');
$p1->SetCenter();
$g->Add($splot);
$g->Add($lplot);
$g->Stroke('scatterNG.png');
?>
<img src="scatterNG.png">
</div></td></tr>
</table>
<?php
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// //////////////////////////////////Beer's Law section///////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//$Pdot=0;$idx=6;
// $PXm=sp38XYZ("X",$dot[$idx+$cols*$Pdot]
//$Pdot=48;
//$K100Xm=sp38XYZ("X",$dot[$idx+$cols*$Pdot]
////////////////sec K
$ki=0.820;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=24;////K line
//$dotT[$idx+$cols*$Pdot+1]
$si=0;
for ($s=380; $s<=730; $s+=10) {
${'p'.$s}=$dot[10+$si];
${'m'.$s}=$dot[$idx+$cols*$Pdot+$si];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
$si=$si+1;
}
$ki=$ki+0.015;
${'k'.$i.'X'}=sp38XYZ("X",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'k'.$i.'Y'}=sp38XYZ("Y",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'k'.$i.'Z'}=sp38XYZ("Z",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
${'k'.$i.'l'}=xyz2lab01("l",${'k'.$i.'X'},${'k'.$i.'Y'},${'k'.$i.'Z'});
${'k'.$i.'a'}=xyz2lab01("a",${'k'.$i.'X'},${'k'.$i.'Y'},${'k'.$i.'Z'});
${'k'.$i.'b'}=xyz2lab01("b",${'k'.$i.'X'},${'k'.$i.'Y'},${'k'.$i.'Z'});
//echo "K1L=".round($k1l,3).",".round($k1a,3).",".round($k1b,3);
${'k'.$i.'dd'}=DensitySp38("K",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
if ($i%5==0) {
${'hexKa'.$i}=${'k'.$i.'a'};
${'hexKb'.$i}=${'k'.$i.'b'};
//echo "hex Ka=".${'hexKa'.$i};
}
//echo "K1D=".round(${'k'.$i.'dd'},3);
// echo "K1D=".round(${'k'.$i.'dd'},3);
}
// echo "<br>";
//////////////////////sec C
$ki=0.820;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=25;///C line
$si=0;
for ($s=380; $s<=730; $s+=10) {
${'p'.$s}=$dot[10+$si];
${'m'.$s}=$dot[$idx+$cols*$Pdot+$si];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
$si=$si+1;
//echo "paper Sp:".${'p'.$s};
}
$ki=$ki+0.015;
${'c'.$i.'X'}=sp38XYZ("X",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'c'.$i.'Y'}=sp38XYZ("Y",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'c'.$i.'Z'}=sp38XYZ("Z",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($c1Z,3)."<br>";
${'c'.$i.'l'}=xyz2lab01("l",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
${'c'.$i.'a'}=xyz2lab01("a",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
${'c'.$i.'b'}=xyz2lab01("b",${'c'.$i.'X'},${'c'.$i.'Y'},${'c'.$i.'Z'});
//echo "K1L=".round($c1l,3).",".round($c1a,3).",".round($c1b,3);
${'c'.$i.'dd'}=DensitySp38("C",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
//echo "K1D=".round($k1dd,3);
//echo "c1D=".round($c1dd,3);
if ($i%5==0) {
${'hexCa'.$i}=${'c'.$i.'a'};
${'hexCb'.$i}=${'c'.$i.'b'};
//echo "hex Ca Cb=".${'hexCa'.$i}."_".${'hexCb'.$i};
}
// echo "C1D=".round(${'c'.$i.'dd'},3);
}
//echo "<br>";
//////////////////////////sec M
$ki=0.820;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=26;////M line
$si=0;
for ($s=380; $s<=730; $s+=10) {
${'p'.$s}=$dot[$idx+$si];
${'m'.$s}=$dot[$idx+$cols*$Pdot+$si];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
$si=$si+1;
}
$ki=$ki+0.015;
${'m'.$i.'X'}=sp38XYZ("X",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'m'.$i.'Y'}=sp38XYZ("Y",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'m'.$i.'Z'}=sp38XYZ("Z",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
//echo "KX1=".round($m1X,3).",".round($m1Y,3).",".round($m1Z,3)."<br>";
${'m'.$i.'l'}=xyz2lab01("l",${'m'.$i.'X'},${'m'.$i.'Y'},${'m'.$i.'Z'});
${'m'.$i.'a'}=xyz2lab01("a",${'m'.$i.'X'},${'m'.$i.'Y'},${'m'.$i.'Z'});
${'m'.$i.'b'}=xyz2lab01("b",${'m'.$i.'X'},${'m'.$i.'Y'},${'m'.$i.'Z'});
//echo "K1L=".round($m1l,3).",".round($m1a,3).",".round($m1b,3);
${'m'.$i.'dd'}=DensitySp38("M",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
if ($i%5==0) {
${'hexMa'.$i}=${'m'.$i.'a'};
${'hexMb'.$i}=${'m'.$i.'b'};
//echo "hex Ma Mb=".${'hexMa'.$i}."_".${'hexMb'.$i};
}
// echo "m1D=".round(${'m'.$i.'dd'},3);
}
// echo "<br>";
///////////////////sec Y
$ki=0.880;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=27;////Y line
$si=0;
for ($s=380; $s<=730; $s+=10) {
${'p'.$s}=$dot[$idx+$si];//paper
${'m'.$s}=$dot[$idx+$cols*$Pdot+$si];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
$si=$si+1;
}
$ki=$ki+0.015;
${'y'.$i.'X'}=sp38XYZ("X",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'y'.$i.'Y'}=sp38XYZ("Y",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'y'.$i.'Z'}=sp38XYZ("Z",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
//echo "KX1=".round($y1X,3).",".round($y1Y,3).",".round($y1Z,3)."<br>";
${'y'.$i.'l'}=xyz2lab01("l",${'y'.$i.'X'},${'y'.$i.'Y'},${'y'.$i.'Z'});
${'y'.$i.'a'}=xyz2lab01("a",${'y'.$i.'X'},${'y'.$i.'Y'},${'y'.$i.'Z'});
${'y'.$i.'b'}=xyz2lab01("b",${'y'.$i.'X'},${'y'.$i.'Y'},${'y'.$i.'Z'});
//echo "K1L=".round($y1l,3).",".round($y1a,3).",".round($y1b,3);
${'y'.$i.'dd'}=DensitySp38("Y",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
//echo "K1D=".round($k1dd,3);
if ($i%5==0) {
${'hexYa'.$i}=${'y'.$i.'a'};
${'hexYb'.$i}=${'y'.$i.'b'};
//echo "hex Ya Yb=".${'hexYa'.$i}."_".${'hexYb'.$i};
}
// echo "y1D=".round(${'y'.$i.'dd'},3);
}
// echo "<br>";
////////////////sec R
$ki=0.880;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=53;////R line
$si=0;
for ($s=380; $s<=730; $s+=10) {
${'p'.$s}=$dot[$idx+$si];
${'m'.$s}=$dot[$idx+$cols*$Pdot+$si];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
$si=$si+1;
//echo "paper Sp380:".${'p'.$s};
}
$ki=$ki+0.015;
${'r'.$i.'X'}=sp38XYZ("X",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'r'.$i.'Y'}=sp38XYZ("Y",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'r'.$i.'Z'}=sp38XYZ("Z",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
${'r'.$i.'l'}=xyz2lab01("l",${'r'.$i.'X'},${'r'.$i.'Y'},${'r'.$i.'Z'});
${'r'.$i.'a'}=xyz2lab01("a",${'r'.$i.'X'},${'r'.$i.'Y'},${'r'.$i.'Z'});
${'r'.$i.'b'}=xyz2lab01("b",${'r'.$i.'X'},${'r'.$i.'Y'},${'r'.$i.'Z'});
//echo "K1L=".round($k1l,3).",".round($k1a,3).",".round($k1b,3);
${'r'.$i.'dd'}=DensitySp38("Y",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
//echo "K1D=".round(${'k'.$i.'dd'},3);
if ($i%5==0) {
${'hexRa'.$i}=${'r'.$i.'a'};
${'hexRb'.$i}=${'r'.$i.'b'};
//echo "hex Ra Rb=".${'hexRa'.$i}."_".${'hexRb'.$i};
}
// echo "r1D=".round(${'r'.$i.'dd'},3);
//echo "r1L=".round(${'r'.$i.'l'},3);
}
// echo "<br>";
/////////////////////Sec G
////////////////sec G
$ki=0.880;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=54;////G line
$si=0;
for ($s=380; $s<=730; $s+=10) {
${'p'.$s}=$dot[$idx+$si];
${'m'.$s}=$dot[$idx+$cols*$Pdot+$si];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
$si=$si+1;
//echo "paper Sp380:".${'p'.$s};
}
$ki=$ki+0.015;
${'gr'.$i.'X'}=sp38XYZ("X",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'gr'.$i.'Y'}=sp38XYZ("Y",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'gr'.$i.'Z'}=sp38XYZ("Z",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
${'gr'.$i.'l'}=xyz2lab01("l",${'gr'.$i.'X'},${'gr'.$i.'Y'},${'gr'.$i.'Z'});
${'gr'.$i.'a'}=xyz2lab01("a",${'gr'.$i.'X'},${'gr'.$i.'Y'},${'gr'.$i.'Z'});
${'gr'.$i.'b'}=xyz2lab01("b",${'gr'.$i.'X'},${'gr'.$i.'Y'},${'gr'.$i.'Z'});
//echo "K1L=".round($k1l,3).",".round($k1a,3).",".round($k1b,3);
${'gr'.$i.'dd'}=DensitySp38("Y",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
//echo "K1D=".round(${'k'.$i.'dd'},3);
if ($i%5==0) {
${'hexGRa'.$i}=${'gr'.$i.'a'};
${'hexGRb'.$i}=${'gr'.$i.'b'};
//echo "hex GRa GRb=".${'hexGRa'.$i}."_".${'hexGRb'.$i};
}
// echo "Gr1D=".round(${'gr'.$i.'dd'},3);
//echo "r1L=".round(${'r'.$i.'l'},3);
}
// echo "<br>";
////////////////sec B
$ki=0.820;
for ( $i = 1; $i <= 30; $i+= 1) {
$Pdot=55;////G line
$si=0;
for ($s=380; $s<=730; $s+=10) {
${'p'.$s}=$dot[$idx+$si];
${'m'.$s}=$dot[$idx+$cols*$Pdot+$si];
${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
$si=$si+1;
//echo "paper Sp380:".${'p'.$s};
}
$ki=$ki+0.015;
${'b'.$i.'X'}=sp38XYZ("X",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'b'.$i.'Y'}=sp38XYZ("Y",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
${'b'.$i.'Z'}=sp38XYZ("Z",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
${'b'.$i.'l'}=xyz2lab01("l",${'b'.$i.'X'},${'b'.$i.'Y'},${'b'.$i.'Z'});
${'b'.$i.'a'}=xyz2lab01("a",${'b'.$i.'X'},${'b'.$i.'Y'},${'b'.$i.'Z'});
${'b'.$i.'b'}=xyz2lab01("b",${'b'.$i.'X'},${'b'.$i.'Y'},${'b'.$i.'Z'});
//echo "K1L=".round($k1l,3).",".round($k1a,3).",".round($k1b,3);
${'b'.$i.'dd'}=DensitySp38("M",$r380, $r390, $r400, $r410, $r420, $r430, $r440, $r450, $r460, $r470, $r480, $r490, $r500, $r510, $r520, $r530, $r540, $r550, $r560, $r570, $r580, $r590, $r600, $r610, $r620, $r630, $r640, $r650, $r660, $r670, $r680, $r690, $r700, $r710, $r720, $r730);
//echo "K1D=".round(${'k'.$i.'dd'},3);
if ($i%5==0) {
${'hexBa'.$i}=${'b'.$i.'a'};
${'hexBb'.$i}=${'b'.$i.'b'};
//echo "hex Ba Bb=".${'hexBa'.$i}."_".${'hexBb'.$i};
}
// echo "b1D=".round(${'b'.$i.'dd'},3);
//echo "r1L=".round(${'r'.$i.'l'},3);
}
// echo "<br>";
//////////////////////////////////Beer's Law section
//////////////////////////////////////////////////////
//include 'dE00.php';
//function de76($l1,$a1,$b1,$l2,$a2,$b2) {
// $d76=sqrt(pow(($l1-$l2),2)+ pow(($a1-$a2),2)+pow(($b1-$b2),2));
//return round($d76,2);
//}
////////////////////////////de00////////////////////
# ------- The graph values in the form of associative array
///////////////////////////////de00//////////////////////
//$tt00=de76(55,-37,-50,54.3,-34.47,-52.63);
$dek00=$dk00;
$dec00=$dc00;
$dem00=$dm00;
$dey00=$dy00;
$der00=$dr00;
$degr00=$dg00;
$deb00=$db00;
$dk176=de00($kl,$ka,$kb,$k1l,$k1a,$k1b);
$dk276=de00($kl,$ka,$kb,$k2l,$k2a,$k2b);
$dk376=de00($kl,$ka,$kb,$k3l,$k3a,$k3b);
$dk476=de00($kl,$ka,$kb,$k4l,$k4a,$k4b);
$dk576=de00($kl,$ka,$kb,$k5l,$k5a,$k5b);
$dk676=de00($kl,$ka,$kb,$k6l,$k6a,$k6b);
$dk776=de00($kl,$ka,$kb,$k7l,$k7a,$k7b);
$dk876=de00($kl,$ka,$kb,$k8l,$k8a,$k8b);
$dk976=de00($kl,$ka,$kb,$k9l,$k9a,$k9b);
$dk1076=de00($kl,$ka,$kb,$k10l,$k10a,$k10b);
$dk1176=de00($kl,$ka,$kb,$k11l,$k11a,$k11b);
$dk1276=de00($kl,$ka,$kb,$k12l,$k12a,$k12b);
$dk1376=de00($kl,$ka,$kb,$k13l,$k13a,$k13b);
$dk1476=de00($kl,$ka,$kb,$k14l,$k14a,$k14b);
$dk1576=de00($kl,$ka,$kb,$k15l,$k15a,$k15b);
$dk1676=de00($kl,$ka,$kb,$k16l,$k16a,$k16b);
$dk1776=de00($kl,$ka,$kb,$k17l,$k17a,$k17b);
$dk1876=de00($kl,$ka,$kb,$k18l,$k18a,$k18b);
$dk1976=de00($kl,$ka,$kb,$k19l,$k19a,$k19b);
$dk2076=de00($kl,$ka,$kb,$k20l,$k20a,$k20b);
$dk2176=de00($kl,$ka,$kb,$k21l,$k21a,$k21b);
$dk2276=de00($kl,$ka,$kb,$k22l,$k22a,$k22b);
$dk2376=de00($kl,$ka,$kb,$k23l,$k23a,$k23b);
$dk2476=de00($kl,$ka,$kb,$k24l,$k24a,$k24b);
$dk2576=de00($kl,$ka,$kb,$k25l,$k25a,$k25b);
$dk2676=de00($kl,$ka,$kb,$k26l,$k26a,$k26b);
$dk2776=de00($kl,$ka,$kb,$k27l,$k27a,$k27b);
$dk2876=de00($kl,$ka,$kb,$k28l,$k28a,$k28b);
$dk2976=de00($kl,$ka,$kb,$k29l,$k29a,$k29b);
$dk3076=de00($kl,$ka,$kb,$k30l,$k30a,$k30b);
$kmin=min($dk176,$dk276,$dk376,$dk476,$dk576,$dk676,$dk776,$dk876,$dk976,$dk1076,$dk1176,$dk1276,$dk1376,$dk1476,$dk1576,$dk1676,$dk1776,$dk1876,$dk1976,$dk2076,$dk2176,$dk2276,$dk2376,$dk2476,$dk2576,$dk2676,$dk2776,$dk2876,$dk2976,$dk3076);
// echo "<br>kmn:".$kmin;
// $dk194=de94($kl,$ka,$kb,$k1l,$k1a,$k1b);
?>
<?php if ($dk176==$kmin){ $kopt='1';$koptD=$k1dd;if ($k1l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk276==$kmin){ $kopt='2';$koptD=$k2dd;if ($k2l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk376==$kmin){ $kopt='3';$koptD=$k3dd;if ($k3l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk476==$kmin){ $kopt='4';$koptD=$k4dd;if ($k4l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk576==$kmin){ $kopt='5';$koptD=$k5dd;if ($k5l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk676==$kmin){ $kopt='6';$koptD=$k6dd;if ($k6l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk776==$kmin){ $kopt='7';$koptD=$k7dd;if ($k7l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk876==$kmin){ $kopt='8';$koptD=$k8dd; if ($k8l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk976==$kmin){ $kopt='9';$koptD=$k9dd;if ($k9l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1076==$kmin){ $kopt='10';$koptD=$k10dd;if ($k10l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1176==$kmin){ $kopt='11';$koptD=$k11dd;if ($k11l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1276==$kmin){ $kopt='12';$koptD=$k12dd;if ($k12l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1376==$kmin){ $kopt='13';$koptD=$k13dd;if ($k13l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1476==$kmin){ $kopt='14';$koptD=$k14dd;if ($k14l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1576==$kmin){ $kopt='15';$koptD=$k15dd;if ($k15l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1676==$kmin){ $kopt='16';$koptD=$k16dd;if ($k16l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1776==$kmin){ $kopt='17';$koptD=$k17dd;if ($k17l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1876==$kmin){ $kopt='18';$koptD=$k18dd;if ($k18l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk1976==$kmin){ $kopt='19';$koptD=$k19dd;if ($k19l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2076==$kmin){ $kopt='20';$koptD=$k20dd;if ($k20l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2176==$kmin){ $kopt='21';$koptD=$k21dd;if ($k21l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2276==$kmin){ $kopt='22';$koptD=$k22dd;if ($k22l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2376==$kmin){ $kopt='23';$koptD=$k23dd;if ($k23l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2476==$kmin){ $kopt='24';$koptD=$k24dd;if ($k24l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2576==$kmin){ $kopt='25';$koptD=$k25dd;if ($k25l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2676==$kmin){ $kopt='26';$koptD=$k26dd;if ($k26l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2776==$kmin){ $kopt='27';$koptD=$k27dd;if ($k27l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2876==$kmin){ $kopt='28';$koptD=$k28dd;if ($k28l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk2976==$kmin){ $kopt='29';$koptD=$k29dd;if ($k29l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php if ($dk3076==$kmin){ $kopt='30';$koptD=$k30dd;if ($k30l<16) {$kdi="-";} else {$kdi='+';}}?>
<?php
$dc176=de00($cl,$ca,$cb,$c1l,$c1a,$c1b);
//echo "<br>dc176:".$dc176."_".$cl."_".$ca."_".$cb."_".$c1l."_".$c1a."_".$c1b;
$dc276=de00($cl,$ca,$cb,$c2l,$c2a,$c2b);
$dc376=de00($cl,$ca,$cb,$c3l,$c3a,$c3b);
$dc476=de00($cl,$ca,$cb,$c4l,$c4a,$c4b);
$dc576=de00($cl,$ca,$cb,$c5l,$c5a,$c5b);
$dc676=de00($cl,$ca,$cb,$c6l,$c6a,$c6b);
$dc776=de00($cl,$ca,$cb,$c7l,$c7a,$c7b);
$dc876=de00($cl,$ca,$cb,$c8l,$c8a,$c8b);
$dc976=de00($cl,$ca,$cb,$c9l,$c9a,$c9b);
$dc1076=de00($cl,$ca,$cb,$c10l,$c10a,$c10b);
$dc1176=de00($cl,$ca,$cb,$c11l,$c11a,$c11b);
$dc1276=de00($cl,$ca,$cb,$c12l,$c12a,$c12b);
$dc1376=de00($cl,$ca,$cb,$c13l,$c13a,$c13b);
$dc1476=de00($cl,$ca,$cb,$c14l,$c14a,$c14b);
$dc1576=de00($cl,$ca,$cb,$c15l,$c15a,$c15b);
$dc1676=de00($cl,$ca,$cb,$c16l,$c16a,$c16b);
$dc1776=de00($cl,$ca,$cb,$c17l,$c17a,$c17b);
$dc1876=de00($cl,$ca,$cb,$c18l,$c18a,$c18b);
$dc1976=de00($cl,$ca,$cb,$c19l,$c19a,$c19b);
$dc2076=de00($cl,$ca,$cb,$c20l,$c20a,$c20b);
$dc2176=de00($cl,$ca,$cb,$c21l,$c21a,$c21b);
$dc2276=de00($cl,$ca,$cb,$c22l,$c22a,$c22b);
$dc2376=de00($cl,$ca,$cb,$c23l,$c23a,$c23b);
$dc2476=de00($cl,$ca,$cb,$c24l,$c24a,$c24b);
$dc2576=de00($cl,$ca,$cb,$c25l,$c25a,$c25b);
$dc2676=de00($cl,$ca,$cb,$c26l,$c26a,$c26b);
$dc2776=de00($cl,$ca,$cb,$c27l,$c27a,$c27b);
$dc2876=de00($cl,$ca,$cb,$c28l,$c28a,$c28b);
$dc2976=de00($cl,$ca,$cb,$c29l,$c29a,$c29b);
$dc3076=de00($cl,$ca,$cb,$c30l,$c30a,$c30b);
$cmin=min($dc176,$dc276,$dc376,$dc476,$dc576,$dc676,$dc776,$dc876,$dc976,$dc1076,$dc1176,$dc1276,$dc1376,$dc1476,$dc1576,$dc1676,$dc1776,$dc1876,$dc1976,$dc2076,$dc2176,$dc2276,$dc2376,$dc2476,$dc2576,$dc2676,$dc2776,$dc2876,$dc2976,$dc3076);
?>
<?php if ($dc176==$cmin){ $copt='1';$coptD=$c1dd;if ($c1b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc276==$cmin){ $copt='2';$coptD=$c2dd;if ($c2b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc376==$cmin){ $copt='3';$coptD=$c3dd;if ($c3b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc476==$cmin){ $copt='4';$coptD=$c4dd;if ($c4b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc576==$cmin){ $copt='5';$coptD=$c5dd;if ($c5b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc676==$cmin){ $copt='6';$coptD=$c6dd;if ($c6b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc776==$cmin){ $copt='7';$coptD=$c7dd;if ($c7b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc876==$cmin){ $copt='8';$coptD=$c8dd; if ($c8b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc976==$cmin){ $copt='9';$coptD=$c9dd;if ($c9b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1076==$cmin){ $copt='10';$coptD=$c10dd;if ($c10b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1176==$cmin){ $copt='11';$coptD=$c11dd;if ($c11b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1276==$cmin){ $copt='12';$coptD=$c12dd;if ($c12b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1376==$cmin){ $copt='13';$coptD=$c13dd;if ($c13b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1476==$cmin){ $copt='14';$coptD=$c14dd;if ($c14b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1576==$cmin){ $copt='15';$coptD=$c15dd;if ($c15b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1676==$cmin){ $copt='16';$coptD=$c16dd;if ($c16b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1776==$cmin){ $copt='17';$coptD=$c17dd;if ($c17b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1876==$cmin){ $copt='18';$coptD=$c18dd;if ($c18b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc1976==$cmin){ $copt='19';$coptD=$c19dd;if ($c19b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2076==$cmin){ $copt='20';$coptD=$c20dd;if ($c20b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2176==$cmin){ $copt='21';$coptD=$c21dd;if ($c21b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2276==$cmin){ $copt='22';$coptD=$c22dd;if ($c22b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2376==$cmin){ $copt='23';$coptD=$c23dd;if ($c23b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2476==$cmin){ $copt='24';$coptD=$c24dd;if ($c24b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2576==$cmin){ $copt='25';$coptD=$c25dd;if ($c25b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2676==$cmin){ $copt='26';$coptD=$c26dd;if ($c26b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2776==$cmin){ $copt='27';$coptD=$c27dd;if ($c27b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2876==$cmin){ $copt='28';$coptD=$c28dd;if ($c28b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc2976==$cmin){ $copt='29';$coptD=$c29dd;if ($c29b<-50) {$cdi="-";} else {$cdi='+';}}?>
<?php if ($dc3076==$cmin){ $copt='30';$coptD=$c30dd;if ($c30b<-50) {$cdi="-";} else {$cdi='+';}}
$dm176=de00($ml,$ma,$mb,$m1l,$m1a,$m1b);
$dm276=de00($ml,$ma,$mb,$m2l,$m2a,$m2b);
$dm376=de00($ml,$ma,$mb,$m3l,$m3a,$m3b);
$dm476=de00($ml,$ma,$mb,$m4l,$m4a,$m4b);
$dm576=de00($ml,$ma,$mb,$m5l,$m5a,$m5b);
$dm676=de00($ml,$ma,$mb,$m6l,$m6a,$m6b);
$dm776=de00($ml,$ma,$mb,$m7l,$m7a,$m7b);
$dm876=de00($ml,$ma,$mb,$m8l,$m8a,$m8b);
$dm976=de00($ml,$ma,$mb,$m9l,$m9a,$m9b);
$dm1076=de00($ml,$ma,$mb,$m10l,$m10a,$m10b);
$dm1176=de00($ml,$ma,$mb,$m11l,$m11a,$m11b);
$dm1276=de00($ml,$ma,$mb,$m12l,$m12a,$m12b);
$dm1376=de00($ml,$ma,$mb,$m13l,$m13a,$m13b);
$dm1476=de00($ml,$ma,$mb,$m14l,$m14a,$m14b);
$dm1576=de00($ml,$ma,$mb,$m15l,$m15a,$m15b);
$dm1676=de00($ml,$ma,$mb,$m16l,$m16a,$m16b);
$dm1776=de00($ml,$ma,$mb,$m17l,$m17a,$m17b);
$dm1876=de00($ml,$ma,$mb,$m18l,$m18a,$m18b);
$dm1976=de00($ml,$ma,$mb,$m19l,$m19a,$m19b);
$dm2076=de00($ml,$ma,$mb,$m20l,$m20a,$m20b);
$dm2176=de00($ml,$ma,$mb,$m21l,$m21a,$m21b);
$dm2276=de00($ml,$ma,$mb,$m22l,$m22a,$m22b);
$dm2376=de00($ml,$ma,$mb,$m23l,$m23a,$m23b);
$dm2476=de00($ml,$ma,$mb,$m24l,$m24a,$m24b);
$dm2576=de00($ml,$ma,$mb,$m25l,$m25a,$m25b);
$dm2676=de00($ml,$ma,$mb,$m26l,$m26a,$m26b);
$dm2776=de00($ml,$ma,$mb,$m27l,$m27a,$m27b);
$dm2876=de00($ml,$ma,$mb,$m28l,$m28a,$m28b);
$dm2976=de00($ml,$ma,$mb,$m29l,$m29a,$m29b);
$dm3076=de00($ml,$ma,$mb,$m30l,$m30a,$m30b);
$mmin=min($dm176,$dm276,$dm376,$dm476,$dm576,$dm676,$dm776,$dm876,$dm976,$dm1076,$dm1176,$dm1276,$dm1376,$dm1476,$dm1576,$dm1676,$dm1776,$dm1876,$dm1976,$dm2076,$dm2176,$dm2276,$dm2376,$dm2476,$dm2576,$dm2676,$dm2776,$dm2876,$dm2976,$dm3076);
//$dm194=de94($ml,$ma,$mb,$m1l,$m1a,$m1b);
?>
<?php if ($dm176==$mmin){ $mopt='1';$moptD=$m1dd;if ($m1a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm276==$mmin){ $mopt='2';$moptD=$m2dd;if ($m2a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm376==$mmin){ $mopt='3';$moptD=$m3dd;if ($m3a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm476==$mmin){ $mopt='4';$moptD=$m4dd;if ($m4a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm576==$mmin){ $mopt='5';$moptD=$m5dd;if ($m5a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm676==$mmin){ $mopt='6';$moptD=$m6dd;if ($m6a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm776==$mmin){ $mopt='7';$moptD=$m7dd;if ($m7a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm876==$mmin){ $mopt='8';$moptD=$m8dd; if ($m8a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm976==$mmin){ $mopt='9';$moptD=$m9dd;if ($m9a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1076==$mmin){ $mopt='10';$moptD=$m10dd;if ($m10a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1176==$mmin){ $mopt='11';$moptD=$m11dd;if ($m11a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1276==$mmin){ $mopt='12';$moptD=$m12dd;if ($m12a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1376==$mmin){ $mopt='13';$moptD=$m13dd;if ($m13a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1476==$mmin){ $mopt='14';$moptD=$m14dd;if ($m14a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1576==$mmin){ $mopt='15';$moptD=$m15dd;if ($m15a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1676==$mmin){ $mopt='16';$moptD=$m16dd;if ($m16a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1776==$mmin){ $mopt='17';$moptD=$m17dd;if ($m17a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1876==$mmin){ $mopt='18';$moptD=$m18dd;if ($m18a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm1976==$mmin){ $mopt='19';$moptD=$m19dd;if ($m19a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2076==$mmin){ $mopt='20';$moptD=$m20dd;if ($m20a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2176==$mmin){ $mopt='21';$moptD=$m21dd;if ($m21a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2276==$mmin){ $mopt='22';$moptD=$m22dd;if ($m22a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2376==$mmin){ $mopt='23';$moptD=$m23dd;if ($m23a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2476==$mmin){ $mopt='24';$moptD=$m24dd;if ($m24a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2576==$mmin){ $mopt='25';$moptD=$m25dd;if ($m25a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2676==$mmin){ $mopt='26';$moptD=$m26dd;if ($m26a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2776==$mmin){ $mopt='27';$moptD=$m27dd;if ($m27a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2876==$mmin){ $mopt='28';$moptD=$m28dd;if ($m28a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm2976==$mmin){ $mopt='29';$moptD=$m29dd;if ($m29a>74) {$mdi="-";} else {$mdi='+';}}?>
<?php if ($dm3076==$mmin){ $mopt='30';$moptD=$m30dd;if ($m30a>74) {$mdi="-";} else {$mdi='+';}}
$dy176=de00($yl,$ya,$yb,$y1l,$y1a,$y1b);
$dy276=de00($yl,$ya,$yb,$y2l,$y2a,$y2b);
$dy376=de00($yl,$ya,$yb,$y3l,$y3a,$y3b);
$dy476=de00($yl,$ya,$yb,$y4l,$y4a,$y4b);
$dy576=de00($yl,$ya,$yb,$y5l,$y5a,$y5b);
$dy676=de00($yl,$ya,$yb,$y6l,$y6a,$y6b);
$dy776=de00($yl,$ya,$yb,$y7l,$y7a,$y7b);
$dy876=de00($yl,$ya,$yb,$y8l,$y8a,$y8b);
$dy976=de00($yl,$ya,$yb,$y9l,$y9a,$y9b);
$dy1076=de00($yl,$ya,$yb,$y10l,$y10a,$y10b);
$dy1176=de00($yl,$ya,$yb,$y11l,$y11a,$y11b);
$dy1276=de00($yl,$ya,$yb,$y12l,$y12a,$y12b);
$dy1376=de00($yl,$ya,$yb,$y13l,$y13a,$y13b);
$dy1476=de00($yl,$ya,$yb,$y14l,$y14a,$y14b);
$dy1576=de00($yl,$ya,$yb,$y15l,$y15a,$y15b);
$dy1676=de00($yl,$ya,$yb,$y16l,$y16a,$y16b);
$dy1776=de00($yl,$ya,$yb,$y17l,$y17a,$y17b);
$dy1876=de00($yl,$ya,$yb,$y18l,$y18a,$y18b);
$dy1976=de00($yl,$ya,$yb,$y19l,$y19a,$y19b);
$dy2076=de00($yl,$ya,$yb,$y20l,$y20a,$y20b);
$dy2176=de00($yl,$ya,$yb,$y21l,$y21a,$y21b);
$dy2276=de00($yl,$ya,$yb,$y22l,$y22a,$y22b);
$dy2376=de00($yl,$ya,$yb,$y23l,$y23a,$y23b);
$dy2476=de00($yl,$ya,$yb,$y24l,$y24a,$y24b);
$dy2576=de00($yl,$ya,$yb,$y25l,$y25a,$y25b);
$dy2676=de00($yl,$ya,$yb,$y26l,$y26a,$y26b);
$dy2776=de00($yl,$ya,$yb,$y27l,$y27a,$y27b);
$dy2876=de00($yl,$ya,$yb,$y28l,$y28a,$y28b);
$dy2976=de00($yl,$ya,$yb,$y29l,$y29a,$y29b);
$dy3076=de00($yl,$ya,$yb,$y30l,$y30a,$y30b);
$ymin=min($dy176,$dy276,$dy376,$dy476,$dy576,$dy676,$dy776,$dy876,$dy976,$dy1076,$dy1176,$dy1276,$dy1376,$dy1476,$dy1576,$dy1676,$dy1776,$dy1876,$dy1976,$dy2076,$dy2176,$dy2276,$dy2376,$dy2476,$dy2576,$dy2676,$dy2776,$dy2876,$dy2976,$dy3076);
//$dy194=de94($yl,$ya,$yb,$y1l,$y1a,$y1b);
?>
<?php if ($dy176==$ymin){ $yopt='1';$yoptD=$y1dd;if ($y1b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy276==$ymin){ $yopt='2';$yoptD=$y2dd;if ($y2b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy376==$ymin){ $yopt='3';$yoptD=$y3dd;if ($y3b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy476==$ymin){ $yopt='4';$yoptD=$y4dd;if ($y4b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy576==$ymin){ $yopt='5';$yoptD=$y5dd;if ($y5b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy676==$ymin){ $yopt='6';$yoptD=$y6dd;if ($y6b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy776==$ymin){ $yopt='7';$yoptD=$y7dd;if ($y7b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy876==$ymin){ $yopt='8';$yoptD=$y8dd; if ($y8b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy976==$ymin){ $yopt='9';$yoptD=$y9dd;if ($y9b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1076==$ymin){ $yopt='10';$yoptD=$y10dd;if ($y10b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1176==$ymin){ $yopt='11';$yoptD=$y11dd;if ($y11b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1276==$ymin){ $yopt='12';$yoptD=$y12dd;if ($y12b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1376==$ymin){ $yopt='13';$yoptD=$y13dd;if ($y13b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1476==$ymin){ $yopt='14';$yoptD=$y14dd;if ($y14b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1576==$ymin){ $yopt='15';$yoptD=$y15dd;if ($y15b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1676==$ymin){ $yopt='16';$yoptD=$y16dd;if ($y16b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1776==$ymin){ $yopt='17';$yoptD=$y17dd;if ($y17b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1876==$ymin){ $yopt='18';$yoptD=$y18dd;if ($y18b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1976==$ymin){ $yopt='19';$yoptD=$y19dd;if ($y19b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2076==$ymin){ $yopt='20';$yoptD=$y20dd;if ($y20b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2176==$ymin){ $yopt='21';$yoptD=$y21dd;if ($y21b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2276==$ymin){ $yopt='22';$yoptD=$y22dd;if ($y22b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2376==$ymin){ $yopt='23';$yoptD=$y23dd;if ($y23b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2476==$ymin){ $yopt='24';$yoptD=$y24dd;if ($y24b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2576==$ymin){ $yopt='25';$yoptD=$y25dd;if ($y25b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2676==$ymin){ $yopt='26';$yoptD=$y26dd;if ($y26b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2776==$ymin){ $yopt='27';$yoptD=$y27dd;if ($y27b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2876==$ymin){ $yopt='28';$yoptD=$y28dd;if ($y28b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2976==$ymin){ $yopt='29';$yoptD=$y29dd;if ($y29b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy3076==$ymin){ $yopt='30';$yoptD=$y30dd;if ($y30b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php
///////////////////////////////sec R
$dr176=de00($rl,$ra,$rb,$r1l,$r1a,$r1b);
$dr276=de00($rl,$ra,$rb,$r2l,$r2a,$r2b);
$dr376=de00($rl,$ra,$rb,$r3l,$r3a,$r3b);
$dr476=de00($rl,$ra,$rb,$r4l,$r4a,$r4b);
$dr576=de00($rl,$ra,$rb,$r5l,$r5a,$r5b);
$dr676=de00($rl,$ra,$rb,$r6l,$r6a,$r6b);
$dr776=de00($rl,$ra,$rb,$r7l,$r7a,$r7b);
$dr876=de00($rl,$ra,$rb,$r8l,$r8a,$r8b);
$dr976=de00($rl,$ra,$rb,$r9l,$r9a,$r9b);
$dr1076=de00($rl,$ra,$rb,$r10l,$r10a,$r10b);
$dr1176=de00($rl,$ra,$rb,$r11l,$r11a,$r11b);
$dr1276=de00($rl,$ra,$rb,$r12l,$r12a,$r12b);
$dr1376=de00($rl,$ra,$rb,$r13l,$r13a,$r13b);
$dr1476=de00($rl,$ra,$rb,$r14l,$r14a,$r14b);
$dr1576=de00($rl,$ra,$rb,$r15l,$r15a,$r15b);
$dr1676=de00($rl,$ra,$rb,$r16l,$r16a,$r16b);
$dr1776=de00($rl,$ra,$rb,$r17l,$r17a,$r17b);
$dr1876=de00($rl,$ra,$rb,$r18l,$r18a,$r18b);
$dr1976=de00($rl,$ra,$rb,$r19l,$r19a,$r19b);
$dr2076=de00($rl,$ra,$rb,$r20l,$r20a,$r20b);
$dr2176=de00($rl,$ra,$rb,$r21l,$r21a,$r21b);
$dr2276=de00($rl,$ra,$rb,$r22l,$r22a,$r22b);
$dr2376=de00($rl,$ra,$rb,$r23l,$r23a,$r23b);
$dr2476=de00($rl,$ra,$rb,$r24l,$r24a,$r24b);
$dr2576=de00($rl,$ra,$rb,$r25l,$r25a,$r25b);
$dr2676=de00($rl,$ra,$rb,$r26l,$r26a,$r26b);
$dr2776=de00($rl,$ra,$rb,$r27l,$r27a,$r27b);
$dr2876=de00($rl,$ra,$rb,$r28l,$r28a,$r28b);
$dr2976=de00($rl,$ra,$rb,$r29l,$r29a,$r29b);
$dr3076=de00($rl,$ra,$rb,$r30l,$r30a,$r30b);
$rmin=min($dr176,$dr276,$dr376,$dr476,$dr576,$dr676,$dr776,$dr876,$dr976,$dr1076,$dr1176,$dr1276,$dr1376,$dr1476,$dr1576,$dr1676,$dr1776,$dr1876,$dr1976,$dr2076,$dr2176,$dr2276,$dr2376,$dr2476,$dr2576,$dr2676,$dr2776,$dr2876,$dr2976,$dr3076);
//$dm194=de94($ml,$ma,$mb,$m1l,$m1a,$m1b);
?>
<?php if ($dr176==$rmin){ $ropt='1';$roptD=$r1dd;if ($r1a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr276==$rmin){ $ropt='2';$roptD=$r2dd;if ($r2a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr376==$rmin){ $ropt='3';$roptD=$r3dd;if ($r3a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr476==$rmin){ $ropt='4';$roptD=$r4dd;if ($r4a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr576==$rmin){ $ropt='5';$roptD=$r5dd;if ($r5a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr676==$rmin){ $ropt='6';$roptD=$r6dd;if ($r6a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr776==$rmin){ $ropt='7';$roptD=$r7dd;if ($r7a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr876==$rmin){ $ropt='8';$roptD=$r8dd; if ($r8a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr976==$rmin){ $ropt='9';$roptD=$r9dd;if ($r9a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1076==$rmin){ $ropt='10';$roptD=$r10dd;if ($r10a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1176==$rmin){ $ropt='11';$roptD=$r11dd;if ($r11a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1276==$rmin){ $ropt='12';$roptD=$r12dd;if ($r12a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1376==$rmin){ $ropt='13';$roptD=$r13dd;if ($r13a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1476==$rmin){ $ropt='14';$roptD=$r14dd;if ($r14a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1576==$rmin){ $ropt='15';$roptD=$r15dd;if ($r15a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1676==$rmin){ $ropt='16';$roptD=$r16dd;if ($r16a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1776==$rmin){ $ropt='17';$roptD=$r17dd;if ($r17a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1876==$rmin){ $ropt='18';$roptD=$r18dd;if ($r18a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1976==$rmin){ $ropt='19';$roptD=$r19dd;if ($r19a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2076==$rmin){ $ropt='20';$roptD=$r20dd;if ($r20a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2176==$rmin){ $ropt='21';$roptD=$r21dd;if ($r21a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2276==$rmin){ $ropt='22';$roptD=$r22dd;if ($r22a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2376==$rmin){ $ropt='23';$roptD=$r23dd;if ($r23a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2476==$rmin){ $ropt='24';$roptD=$r24dd;if ($r24a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2576==$rmin){ $ropt='25';$roptD=$r25dd;if ($r25a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2676==$rmin){ $ropt='26';$roptD=$r26dd;if ($r26a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2776==$rmin){ $ropt='27';$roptD=$r27dd;if ($r27a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2876==$rmin){ $ropt='28';$roptD=$r28dd;if ($r28a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2976==$rmin){ $ropt='29';$roptD=$r29dd;if ($r29a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr3076==$rmin){ $ropt='30';$roptD=$r30dd;if ($r30a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php ///////////////////////////////sec G
//echo "<br> roptD=".$roptD;
$dgr176=de00($gl,$ga,$gb,$gr1l,$gr1a,$gr1b);
$dgr276=de00($gl,$ga,$gb,$gr2l,$gr2a,$gr2b);
$dgr376=de00($gl,$ga,$gb,$gr3l,$gr3a,$gr3b);
$dgr476=de00($gl,$ga,$gb,$gr4l,$gr4a,$gr4b);
$dgr576=de00($gl,$ga,$gb,$gr5l,$gr5a,$gr5b);
$dgr676=de00($gl,$ga,$gb,$gr6l,$gr6a,$gr6b);
$dgr776=de00($gl,$ga,$gb,$gr7l,$gr7a,$gr7b);
$dgr876=de00($gl,$ga,$gb,$gr8l,$gr8a,$gr8b);
$dgr976=de00($gl,$ga,$gb,$gr9l,$gr9a,$gr9b);
$dgr1076=de00($gl,$ga,$gb,$gr10l,$gr10a,$gr10b);
$dgr1176=de00($gl,$ga,$gb,$gr11l,$gr11a,$gr11b);
$dgr1276=de00($gl,$ga,$gb,$gr12l,$gr12a,$gr12b);
$dgr1376=de00($gl,$ga,$gb,$gr13l,$gr13a,$gr13b);
$dgr1476=de00($gl,$ga,$gb,$gr14l,$gr14a,$gr14b);
$dgr1576=de00($gl,$ga,$gb,$gr15l,$gr15a,$gr15b);
$dgr1676=de00($gl,$ga,$gb,$gr16l,$gr16a,$gr16b);
$dgr1776=de00($gl,$ga,$gb,$gr17l,$gr17a,$gr17b);
$dgr1876=de00($gl,$ga,$gb,$gr18l,$gr18a,$gr18b);
$dgr1976=de00($gl,$ga,$gb,$gr19l,$gr19a,$gr19b);
$dgr2076=de00($gl,$ga,$gb,$gr20l,$gr20a,$gr20b);
$dgr2176=de00($gl,$ga,$gb,$gr21l,$gr21a,$gr21b);
$dgr2276=de00($gl,$ga,$gb,$gr22l,$gr22a,$gr22b);
$dgr2376=de00($gl,$ga,$gb,$gr23l,$gr23a,$gr23b);
$dgr2476=de00($gl,$ga,$gb,$gr24l,$gr24a,$gr24b);
$dgr2576=de00($gl,$ga,$gb,$gr25l,$gr25a,$gr25b);
$dgr2676=de00($gl,$ga,$gb,$gr26l,$gr26a,$gr26b);
$dgr2776=de00($gl,$ga,$gb,$gr27l,$gr27a,$gr27b);
$dgr2876=de00($gl,$ga,$gb,$gr28l,$gr28a,$gr28b);
$dgr2976=de00($gl,$ga,$gb,$gr29l,$gr29a,$gr29b);
$dgr3076=de00($gl,$ga,$gb,$gr30l,$gr30a,$gr30b);
$grmin=min($dgr176,$dgr276,$dgr376,$dgr476,$dgr576,$dgr676,$dgr776,$dgr876,$dgr976,$dgr1076,$dgr1176,$dgr1276,$dgr1376,$dgr1476,$dgr1576,$dgr1676,$dgr1776,$dgr1876,$dgr1976,$dgr2076,$dgr2176,$dgr2276,$dgr2376,$dgr2476,$dgr2576,$dgr2676,$dgr2776,$dgr2876,$dgr2976,$dgr3076);
//$dm194=de94($ml,$ma,$mb,$m1l,$m1a,$m1b);
?>
<?php if ($dgr176==$grmin){ $gropt='1';$groptD=$gr1dd;if ($gr1a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr276==$grmin){ $gropt='2';$groptD=$gr2dd;if ($gr2a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr376==$grmin){ $gropt='3';$groptD=$gr3dd;if ($gr3a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr476==$grmin){ $gropt='4';$groptD=$gr4dd;if ($gr4a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr576==$grmin){ $gropt='5';$groptD=$gr5dd;if ($gr5a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr676==$grmin){ $gropt='6';$groptD=$gr6dd;if ($gr6a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr776==$grmin){ $gropt='7';$groptD=$gr7dd;if ($gr7a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr876==$grmin){ $gropt='8';$groptD=$gr8dd; if ($gr8a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr976==$grmin){ $gropt='9';$groptD=$gr9dd;if ($gr9a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1076==$grmin){ $gropt='10';$groptD=$gr10dd;if ($gr10a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1176==$grmin){ $gropt='11';$groptD=$gr11dd;if ($gr11a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1276==$grmin){ $gropt='12';$groptD=$gr12dd;if ($gr12a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1376==$grmin){ $gropt='13';$groptD=$gr13dd;if ($gr13a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1476==$grmin){ $gropt='14';$groptD=$gr14dd;if ($gr14a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1576==$grmin){ $gropt='15';$groptD=$gr15dd;if ($gr15a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1676==$grmin){ $gropt='16';$groptD=$gr16dd;if ($gr16a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1776==$grmin){ $gropt='17';$groptD=$gr17dd;if ($gr17a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1876==$grmin){ $gropt='18';$groptD=$gr18dd;if ($gr18a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1976==$grmin){ $gropt='19';$groptD=$gr19dd;if ($gr19a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2076==$grmin){ $gropt='20';$groptD=$gr20dd;if ($gr20a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2176==$grmin){ $gropt='21';$groptD=$gr21dd;if ($gr21a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2276==$grmin){ $gropt='22';$groptD=$gr22dd;if ($gr22a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2376==$grmin){ $gropt='23';$groptD=$gr23dd;if ($gr23a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2476==$grmin){ $gropt='24';$groptD=$gr24dd;if ($gr24a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2576==$grmin){ $gropt='25';$groptD=$gr25dd;if ($gr25a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2676==$grmin){ $gropt='26';$groptD=$gr26dd;if ($gr26a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2776==$grmin){ $gropt='27';$groptD=$gr27dd;if ($gr27a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2876==$grmin){ $gropt='28';$groptD=$gr28dd;if ($gr28a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2976==$grmin){ $gropt='29';$groptD=$gr29dd;if ($gr29a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr3076==$grmin){ $gropt='30';$groptD=$gr30dd;if ($gr30a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php ///////////////////////////////sec B
$db176=de00($bl,$ba,$bb,$b1l,$b1a,$b1b);
$db276=de00($bl,$ba,$bb,$b2l,$b2a,$b2b);
$db376=de00($bl,$ba,$bb,$b3l,$b3a,$b3b);
$db476=de00($bl,$ba,$bb,$b4l,$b4a,$b4b);
$db576=de00($bl,$ba,$bb,$b5l,$b5a,$b5b);
$db676=de00($bl,$ba,$bb,$b6l,$b6a,$b6b);
$db776=de00($bl,$ba,$bb,$b7l,$b7a,$b7b);
$db876=de00($bl,$ba,$bb,$b8l,$b8a,$b8b);
$db976=de00($bl,$ba,$bb,$b9l,$b9a,$b9b);
$db1076=de00($bl,$ba,$bb,$b10l,$b10a,$b10b);
$db1176=de00($bl,$ba,$bb,$b11l,$b11a,$b11b);
$db1276=de00($bl,$ba,$bb,$b12l,$b12a,$b12b);
$db1376=de00($bl,$ba,$bb,$b13l,$b13a,$b13b);
$db1476=de00($bl,$ba,$bb,$b14l,$b14a,$b14b);
$db1576=de00($bl,$ba,$bb,$b15l,$b15a,$b15b);
$db1676=de00($bl,$ba,$bb,$b16l,$b16a,$b16b);
$db1776=de00($bl,$ba,$bb,$b17l,$b17a,$b17b);
$db1876=de00($bl,$ba,$bb,$b18l,$b18a,$b18b);
$db1976=de00($bl,$ba,$bb,$b19l,$b19a,$b19b);
$db2076=de00($bl,$ba,$bb,$b20l,$b20a,$b20b);
$db2176=de00($bl,$ba,$bb,$b21l,$b21a,$b21b);
$db2276=de00($bl,$ba,$bb,$b22l,$b22a,$b22b);
$db2376=de00($bl,$ba,$bb,$b23l,$b23a,$b23b);
$db2476=de00($bl,$ba,$bb,$b24l,$b24a,$b24b);
$db2576=de00($bl,$ba,$bb,$b25l,$b25a,$b25b);
$db2676=de00($bl,$ba,$bb,$b26l,$b26a,$b26b);
$db2776=de00($bl,$ba,$bb,$b27l,$b27a,$b27b);
$db2876=de00($bl,$ba,$bb,$b28l,$b28a,$b28b);
$db2976=de00($bl,$ba,$bb,$b29l,$b29a,$b29b);
$db3076=de00($bl,$ba,$bb,$b30l,$b30a,$b30b);
$bmin=min($db176,$db276,$db376,$db476,$db576,$db676,$db776,$db876,$db976,$db1076,$db1176,$db1276,$db1376,$db1476,$db1576,$db1676,$db1776,$db1876,$db1976,$db2076,$db2176,$db2276,$db2376,$db2476,$db2576,$db2676,$db2776,$db2876,$db2976,$db3076);
//$dm194=de94($ml,$ma,$mb,$m1l,$m1a,$m1b);
?>
<?php if ($db176==$bmin){ $bopt='1';$boptD=$b1dd;if ($b1a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db276==$bmin){ $bopt='2';$boptD=$b2dd;if ($b2a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db376==$bmin){ $bopt='3';$boptD=$b3dd;if ($b3a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db476==$bmin){ $bopt='4';$boptD=$b4dd;if ($b4a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db576==$bmin){ $bopt='5';$boptD=$b5dd;if ($b5a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db676==$bmin){ $bopt='6';$boptD=$b6dd;if ($b6a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db776==$bmin){ $bopt='7';$boptD=$b7dd;if ($b7a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db876==$bmin){ $bopt='8';$boptD=$b8dd; if ($b8a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db976==$bmin){ $bopt='9';$boptD=$b9dd;if ($b9a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1076==$bmin){ $bopt='10';$boptD=$b10dd;if ($b10a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1176==$bmin){ $bopt='11';$boptD=$b11dd;if ($b11a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1276==$bmin){ $bopt='12';$boptD=$b12dd;if ($b12a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1376==$bmin){ $bopt='13';$boptD=$b13dd;if ($b13a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1476==$bmin){ $bopt='14';$boptD=$b14dd;if ($b14a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1576==$bmin){ $bopt='15';$boptD=$b15dd;if ($b15a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1676==$bmin){ $bopt='16';$boptD=$b16dd;if ($b16a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1776==$bmin){ $bopt='17';$boptD=$b17dd;if ($b17a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1876==$bmin){ $bopt='18';$boptD=$b18dd;if ($b18a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1976==$bmin){ $bopt='19';$boptD=$b19dd;if ($b19a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2076==$bmin){ $bopt='20';$boptD=$b20dd;if ($b20a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2176==$bmin){ $bopt='21';$boptD=$b21dd;if ($b21a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2276==$bmin){ $bopt='22';$boptD=$b22dd;if ($b22a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2376==$bmin){ $bopt='23';$boptD=$b23dd;if ($b23a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2476==$bmin){ $bopt='24';$boptD=$b24dd;if ($b24a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2576==$bmin){ $bopt='25';$boptD=$b25dd;if ($b25a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2676==$bmin){ $bopt='26';$boptD=$b26dd;if ($b26a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2776==$bmin){ $bopt='27';$boptD=$b27dd;if ($b27a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2876==$bmin){ $bopt='28';$boptD=$b28dd;if ($b28a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2976==$bmin){ $bopt='29';$boptD=$b29dd;if ($b29a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db3076==$bmin){ $bopt='30';$boptD=$b30dd;if ($b30a>74) {$bdi="-";} else {$bdi='+';}}?>
<table width="200" border="1" align="center">
<tr>
<?php // content="text/plain; charset=utf-8"
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');
require_once ('../jpgraph/jpgraph_line.php');
require_once ('../jpgraph/jpgraph_plotline.php');
?>
<td>
<div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterC.png');
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');
$datax = array($c1dd,$c2dd,$c3dd,$c4dd,$c5dd,$c6dd,$c7dd,$c8dd,$c9dd,$c10dd,$c11dd,$c12dd,$c13dd,$c14dd,$c15dd,$c16dd,$c17dd,$c18dd,$c19dd,$c20dd,$c21dd,$c22dd,$c23dd,$c24dd,$c25dd,$c26dd,$c27dd,$c28dd,$c29dd,$c30dd);
$datay = array($dc176,$dc276,$dc376,$dc476,$dc576,$dc676,$dc776,$dc876,$dc976,$dc1076,$dc1176,$dc1276,$dc1376,$dc1476,$dc1576,$dc1676,$dc1776,$dc1876,$dc1976,$dc2076,$dc2176,$dc2276,$dc2376,$dc2476,$dc2576,$dc2676,$dc2776,$dc2876,$dc2976,$dc3076);
$dataxT = array($coptD,$CS100dm);
$datayT = array($cmin,$dec00);
//
//echo "<br> c scatter:".$c1dd."_".$dc176."_".$coptD."_".$CS100dm."_".$cmin."_".$dec00;
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("C scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
//$graph->xgrid->Show();
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"#00ffff",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#00ffff");
$sp2->mark->SetWidth(3);
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,3.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
$graph->Stroke('scatterC.png');
?>
<img src="scatterC.png">
</div>
</td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterM.png');
$datax = array($m1dd,$m2dd,$m3dd,$m4dd,$m5dd,$m6dd,$m7dd,$m8dd,$m9dd,$m10dd,$m11dd,$m12dd,$m13dd,$m14dd,$m15dd,$m16dd,$m17dd,$m18dd,$m19dd,$m20dd,$m21dd,$m22dd,$m23dd,$m24dd,$m25dd,$m26dd,$m27dd,$m28dd,$m29dd,$m30dd);
$datay = array($dm176,$dm276,$dm376,$dm476,$dm576,$dm676,$dm776,$dm876,$dm976,$dm1076,$dm1176,$dm1276,$dm1376,$dm1476,$dm1576,$dm1676,$dm1776,$dm1876,$dm1976,$dm2076,$dm2176,$dm2276,$dm2376,$dm2476,$dm2576,$dm2676,$dm2776,$dm2876,$dm2976,$dm3076);
$dataxT = array($moptD,$MS100dm);
$datayT = array($mmin,$dem00);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("M scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"#ff99ff",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#ff99ff");
$sp2->mark->SetWidth(3);
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,3.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
$graph->Stroke('scatterM.png');
?>
<img src="scatterM.png">
</div></td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterY.png');
$datax = array($y1dd,$y2dd,$y3dd,$y4dd,$y5dd,$y6dd,$y7dd,$y8dd,$y9dd,$y10dd,$y11dd,$y12dd,$y13dd,$y14dd,$y15dd,$y16dd,$y17dd,$y18dd,$y19dd,$y20dd,$y21dd,$y22dd,$y23dd,$y24dd,$y25dd,$y26dd,$y27dd,$y28dd,$y29dd,$y30dd);
$datay = array($dy176,$dy276,$dy376,$dy476,$dy576,$dy676,$dy776,$dy876,$dy976,$dy1076,$dy1176,$dy1276,$dy1376,$dy1476,$dy1576,$dy1676,$dy1776,$dy1876,$dy1976,$dy2076,$dy2176,$dy2276,$dy2376,$dy2476,$dy2576,$dy2676,$dy2776,$dy2876,$dy2976,$dy3076);
$dataxT = array($yoptD,$YS100dm);
$datayT = array($ymin,$dey00);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("Y scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
//$graph->xgrid->Show();
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"#ffff99",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#ffff99");
$sp2->mark->SetWidth(3);
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,3.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
$graph->Stroke('scatterY.png');
?>
<img src="scatterY.png">
</div></td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterK.png');
$datax = array($k1dd,$k2dd,$k3dd,$k4dd,$k5dd,$k6dd,$k7dd,$k8dd,$k9dd,$k10dd,$k11dd,$k12dd,$k13dd,$k14dd,$k15dd,$k16dd,$k17dd,$k18dd,$k19dd,$k20dd,$k21dd,$k22dd,$k23dd,$k24dd,$k25dd,$k26dd,$k27dd,$k28dd,$k29dd,$k30dd);
$datay = array($dk176,$dk276,$dk376,$dk476,$dk576,$dk676,$dk776,$dk876,$dk976,$dk1076,$dk1176,$dk1276,$dk1376,$dk1476,$dk1576,$dk1676,$dk1776,$dk1876,$dk1976,$dk2076,$dk2176,$dk2276,$dk2376,$dk2476,$dk2576,$dk2676,$dk2776,$dk2876,$dk2976,$dk3076);
//print_r($datax);
$dataxT = array($koptD,$K100dm);
$datayT = array($kmin,$dek00);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("K scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"gray",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("gray");
$sp2->mark->SetWidth(3);
//$sp2->xgrid->Show();
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,3.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
//$graph->AddLine($line);
$graph->Stroke('scatterK.png');
?>
<img src="scatterK.png">
</div></td>
</tr>
<tr>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterR.png');
$datax = array($r1dd,$r2dd,$r3dd,$r4dd,$r5dd,$r6dd,$r7dd,$r8dd,$r9dd,$r10dd,$r11dd,$r12dd,$r13dd,$r14dd,$r15dd,$r16dd,$r17dd,$r18dd,$r19dd,$r20dd,$r21dd,$r22dd,$r23dd,$r24dd,$r25dd,$r26dd,$r27dd,$r28dd,$r29dd,$r30dd);
$datay = array($dr176,$dr276,$dr376,$dr476,$dr576,$dr676,$dr776,$dr876,$dr976,$dr1076,$dr1176,$dr1276,$dr1376,$dr1476,$dr1576,$dr1676,$dr1776,$dr1876,$dr1976,$dr2076,$dr2176,$dr2276,$dr2376,$dr2476,$dr2576,$dr2676,$dr2776,$dr2876,$dr2976,$dr3076);
//print_r($datax);
$dataxT = array($roptD,$RS100dm);
$datayT = array($rmin,$der00);
//echo "<br> c scatter:".$r1dd."_".$dr176."_roptD:".$roptD."_Rsid:".$RS100dm."_rmin:".$rmin."_der00:".$der00;
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("R scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"gray",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#fa6b53");
$sp2->mark->SetWidth(3);
//$sp2->xgrid->Show();
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
//$graph->AddLine($line);
$graph->Stroke('scatterR.png');
?>
<img src="scatterR.png">
</div></td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterG.png');
$datax = array($gr1dd,$gr2dd,$gr3dd,$gr4dd,$gr5dd,$gr6dd,$gr7dd,$gr8dd,$gr9dd,$gr10dd,$gr11dd,$gr12dd,$gr13dd,$gr14dd,$gr15dd,$gr16dd,$gr17dd,$gr18dd,$gr19dd,$gr20dd,$gr21dd,$gr22dd,$gr23dd,$gr24dd,$gr25dd,$gr26dd,$gr27dd,$gr28dd,$gr29dd,$gr30dd);
$datay = array($dgr176,$dgr276,$dgr376,$dgr476,$dgr576,$dgr676,$dgr776,$dgr876,$dgr976,$dgr1076,$dgr1176,$dgr1276,$dgr1376,$dgr1476,$dgr1576,$dgr1676,$dgr1776,$dgr1876,$dgr1976,$dgr2076,$dgr2176,$dgr2276,$dgr2376,$dgr2476,$dgr2576,$dgr2676,$dgr2776,$dgr2876,$dgr2976,$dgr3076);
//print_r($datax);
$dataxT = array($groptD,$GS100dm);
$datayT = array($grmin,$degr00);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("G scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"gray",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#8afa53");
$sp2->mark->SetWidth(3);
//$sp2->xgrid->Show();
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
$graph->Stroke('scatterG.png');
?>
<img src="scatterG.png">
</div></td>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterB.png');
$datax = array($b1dd,$b2dd,$b3dd,$b4dd,$b5dd,$b6dd,$b7dd,$b8dd,$b9dd,$b10dd,$b11dd,$b12dd,$b13dd,$b14dd,$b15dd,$b16dd,$b17dd,$b18dd,$b19dd,$b20dd,$b21dd,$b22dd,$b23dd,$b24dd,$b25dd,$b26dd,$b27dd,$b28dd,$b29dd,$b30dd);
$datay = array($db176,$db276,$db376,$db476,$db576,$db676,$db776,$db876,$db976,$db1076,$db1176,$db1276,$db1376,$db1476,$db1576,$db1676,$db1776,$db1876,$db1976,$db2076,$db2176,$db2276,$db2376,$db2476,$db2576,$db2676,$db2776,$db2876,$db2976,$db3076);
//print_r($datax);
$dataxT = array($boptD,$BS100dm);
$datayT = array($bmin,$deb00);
$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);
$graph->img->SetMargin(40,40,40,40);
$graph->SetShadow();
$graph->title->Set("B scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();
$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"gray",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#5357fa");
$sp2->mark->SetWidth(3);
//$sp2->xgrid->Show();
$sline = new PlotLine(HORIZONTAL,1.5,'black');
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff');
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900');
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);
$graph->Add($sp1);
$graph->Add($sp2);
//$graph->AddLine($line);
$graph->Stroke('scatterB.png');
///////////////////////////////////////////////////
//////////////////////////////////////////////////
unlink('scatterGuR.png');
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');
//${'s'.($minGroupRid-1).'a'
$datax = array($tma,$tra,$tya,$tga,$tca,$tba,$tma);
$datay = array($tmb,$trb,$tyb,$tgb,$tcb,$tbb,$tmb);
$datax2 = array($ma,$ra,$ya,$ga,$ca,$ba,$ma);
$datay2 = array($mb,$rb,$yb,$gb,$cb,$bb,$mb);
//$datax = array($k1d,$k2d,$k3d);
//$datay = array($dk176,$dk276,$dk376);
$graph = new Graph(300,300);
//$graph->SetScale("linlin");
$graph->SetScale("linint",-60,100,-70,80);
$graph->img->SetMargin(20,20,20,20);
$graph->SetShadow();
$graph->title->Set("Target in blue");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$sp1 = new ScatterPlot($datay,$datax);
$sp1->SetLinkPoints(true,"#ffbbdd",2);
$sp1->mark->SetType(MARK_FILLEDCIRCLE);
$sp1->mark->SetFillColor("red");
$sp1->mark->SetWidth(3);
$sp2 = new ScatterPlot($datay2,$datax2);
$sp2->SetLinkPoints(true,"#55bbdd",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#55bbdd");
$sp2->mark->SetWidth(3);
$graph->Add($sp2);
$graph->Add($sp1);
$graph->Stroke('scatterGuR.png');
////////////////////////////Square K
require_once( 'PolynomialRegression.php' );
$data = array
(
array( 0.00, 0.0 ), array( 6, $KTV6-6 ),
array( 10, $KTV10-10), array( 15, $KTV15-15 ),
array( 20, $KTV20-20), array( 25, $KTV25-25 ),
array( 30, $KTV30-30 ), array( 35, $KTV35-35 ),
array( 40, $KTV40-40 ), array( 45, $KTV45-45 ),
array( 50, $KTV50-50 ), array( 55,$KTV55-55 ),
array( 60, $KTV60-60 ), array( 65, $KTV65-65),
array( 70, $KTV70-70 ), array( 75, $KTV75-75 ),
array( 80, $KTV80-80 ), array( 85, $KTV85-85 ),
array( 90, $KTV90-90), array( 95, $KTV95-95 ),
array( 100, 0 )
);
echo "50:;".$KTV50-50;
// Precision digits in BC math.
bcscale( 10 );
// Start a regression class of order 2--linear regression.
$leastSquareRegression = new PolynomialRegression( 3 );
// Add all the data to the regression analysis.
foreach ( $data as $dataPoint )
$leastSquareRegression->addData( $dataPoint[ 0 ], $dataPoint[ 1 ] );
// Get coefficients for the polynomial.
$coefficients = $leastSquareRegression->getCoefficients();
// Print slope and intercept of linear regression.
// echo "Slope : " . round( $coefficients[ 1 ], 2 ) . "<br />\n";
// echo "Y-intercept : " . round( $coefficients[ 0 ], 2 ) . "<br />\n";
//
// Get average of Y-data.
//
$Y_Average = 0.0;
foreach ( $data as $dataPoint )
$Y_Average += $dataPoint[ 1 ];
$Y_Average /= count( $data );
//
// Calculate R Squared.
//
$Y_MeanSum = 0.0;
$Y_ErrorSum = 0.0;
foreach ( $data as $dataPoint )
{
$x = $dataPoint[ 0 ];
$y = $dataPoint[ 1 ];
$error = $y;
$error -= $leastSquareRegression->interpolate( $coefficients, $x );
$Y_ErrorSum += $error * $error;
$error = $y;
$error -= $Y_Average;
$Y_MeanSum += $error * $error;
}
$R_Squared = 1.0 - ( $Y_ErrorSum / $Y_MeanSum );
if ($R_Squared<0.96) {$rFont='red';} else {$rFont='black';}
// echo "<td bgcolor='#cccccc'><font color='".$rFont."' size='2'>R Squared on K: ".round($R_Squared,3)."</td>";
//echo "50:;".($KTV50-50)."-".round($R_Squared,3);
//////////////////////KTV/////////////////////////////////////////
unlink('scatterKTV.png');
$datay1 = array(0,$KTV6-6,$KTV10-10,$KTV15-15,$KTV20-20,$KTV25-25,$KTV30-30,$KTV35-35,$KTV40-40,$KTV45-45,$KTV50-50,$KTV55-55,$KTV60-60,$KTV65-65,$KTV70-70,$KTV75-75,$KTV80-80,$KTV85-85,$KTV90-90,$KTV95-95,$KTV98-98,0);
// Setup the graph
$graph = new Graph(500,300);
//$graph->SetScale("textlin");
$graph->SetScale('textlin');
//$graph->SetScale('intlin',0,100,-10,10);
$theme_class= new UniversalTheme;
$graph->SetTheme($theme_class);
$graph->title->Set('K-TVI');
$graph->SetBox(false);
$graph->yaxis->HideZeroLabel();
$graph->yaxis->HideLine(false);
$graph->yaxis->HideTicks(false,false);
$graph->xaxis->SetTickLabels(array('0','6','10','15','20','25','30','35','40','45','50','55','60','65','70','75','80','85','90','95','98','100'));
$graph->ygrid->SetFill(false);
//$graph->SetBackgroundImage("tiger_bkg.png",BGIMG_FILLFRAME);
$p1 = new LinePlot($datay1);
$graph->Add($p1);
$p1->SetColor("#aaaaaa");
$p1->SetLegend('K R2:'.round($R_Squared,3));
$p1->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p1->mark->SetColor('#aaaaaa');
$p1->mark->SetFillColor('#aaaaaa');
$p1->SetCenter();
$graph->legend->SetFrameWeight(1);
$graph->legend->SetColor('#4E4E4E','#00A78A');
$graph->legend->SetMarkAbsSize(8);
// Output line
$graph->Stroke('scatterKTV.png');
/////////////////////////////////50 sector
/////////////////////50 sector
///////////////////////c50
//echo "<br>tage".$tage."_tagf:".$tagf."dfmin:".round($dfmin,3)."demin:".round($demin,3);
//echo "<br>GL:".$GrayLT."--".$GrayLm;
$dgl=$GrayLT-$GrayLm;
$dga=($Pam/2)-$Graya;
$dgb=($Pbm/2)-$Grayb;
$df=sqrt(pow($dga,2)+pow($dgb,2));
$dgy50=de00($GrayLT,($Pam/2),($Pbm/2),$GrayLm,$Graya,$Grayb);
$dg25l=$Gray25LT-$Gray25Lm;
$dg25a=($Pam*0.75)-$Gray25a;
$dg25b=($Pbm*0.75)-$Gray25b;
$df25=sqrt(pow($dg25a,2)+pow($dg25b,2));
//$dgy25=de00($GrayLT,($Pam/2),($Pbm/2),$GrayLm,$Graya,$Grayb);
$dg75l=$Gray75LT-$Gray75Lm;
$dg75a=($Pam*0.25)-$Gray75a;
$dg75b=($Pbm*0.25)-$Gray75b;
$df75=sqrt(pow($dg75a,2)+pow($dg75b,2));
if (($K100dm-$Pdm)>1.69) {
$k50dT=0.5;}
else {
$k50dT=0.0562*($K100dm-$Pdm)+0.405;
}
if (($C100dm-$Pdm)>1.37) {
$D50dT=0.54;}
else {
$D50dT=0.1707*($C100dm-$Pdm)+0.3061;
}
$dk=$K50dm-0.5;
$dk25=$K25dm-0.22;
$dk75=$K75dm-0.9;
/////////////////////////////////////////////////// gray rule 50
$dL=($GrayLm-$GrayLT);
$da=$Graya-($Pam/2);
$db=$Grayb-($Pbm/2);
if (($PLm-$C100dm)>70) {
$pdle=0.5;
}
else {
$pdle=0.7;
}
if($mam<45){
$m50f=0.7;
}
else {
$m50f=0.5;
}
if($ybm<45){
$y50f=0.6;
}
else {
$y50f=0.5;
}
$ndLf=$dL+($da*$pdle)+($db*$pdle*0.2);
$FixC=$ndLf;
$FixM=-$da*$m50f+($ndLf*$m50f);
$FixY=-$db*$y50f+($ndLf*$y50f);
//echo "<br>FixC:".($FixC)."_fixM:".($FixM)."_fixY:".($FixY);
/////////////////////////////////////////////// gray rule
////////////////////////////////////////////////// gray rule 25
//echo "<br>C25mL:C75Lm:".$C25Lm."_".$C75Lm;
$dL25=($C25Lm-$Gray25LT);
$da25=$C25am-($Pam*0.75);
$db25=$C25bm-($Pbm*0.75);
if (($PLm-$C100dm)>70) {
$pdle25=0.5;
}
else {
$pdle25=0.7;
}
if($mam<45){
$m25f=0.7;
}
else {
$m25f=0.5;
}
if($ybm<45){
$y25f=0.6;
}
else {
$y25f=0.5;
}
$ndLf25=$dL25+($da25*$pdle25)+($db25*$pdle25*0.2);
$FixC25=$ndLf25;
$FixM25=-$da25*$m25f+($ndLf25*$m25f);
$FixY25=-$db25*$y25f+($ndLf*$y25f);
//echo "<br>FixC25:".($FixC25)."_fixM25:".($FixM25)."_fixY25:".($FixY25);
/////////////////////////////////////////////// gray rule 25
/////////////////////////////////////////////////// gray rule 75
$dL75=($C75Lm-$Gray75LT);
$da75=$C75am-($Pam*0.25);
$db75=$C75bm-($Pbm*0.25);
if (($PLm-$C100dm)>70) {
$pdle75=0.5;
}
else {
$pdle75=0.7;
}
if($mam<45){
$m75f=0.7;
}
else {
$m75f=0.5;
}
if($ybm<45){
$y75f=0.6;
}
else {
$y75f=0.5;
}
$ndLf75=$dL75+($da75*$pdle75)+($db75*$pdle75*0.2);
$FixC75=$ndLf75;
$FixM75=-$da75*$m75f+($ndLf75*$m75f);
$FixY75=-$db75*$y75f+($ndLf*$y75f);
//echo "<br>FixC75:".($FixC75)."_fixM75:".($FixM75)."_fixY75:".($FixY75)."_dk:".($dk);
/////////////////////////////////////////////// gray rule 75
// echo "<br>k50dT".$k50dT."_D50dT:".$D50dT."K100dm:".$K100dm."Pdm:".$Pdm."=:".($K100dm-$Pdm); scatterKTV.png
////////////////////////////rule set 2
function de76($l1,$a1,$b1,$l2,$a2,$b2) {
$d76=sqrt(pow(($l1-$l2),2)+ pow(($a1-$a2),2)+pow(($b1-$b2),2));
return round($d76,2);
}
$TL=$GrayLT;
$Ta=($Pam/2);
$Tb=($Pbm/2);
$ML=$GrayLm;
$Ma=$Graya;
$Mb=$Grayb;
$emin=100;
$mddexT=0;
$deT=0;
/////////////////////////////////////////////////////////////////////
for ($CD=45;$CD<=55;$CD=$CD+0.5) {
for ($MD=35;$MD<=45;$MD=$MD+0.5) {
for ($YD=35;$YD<=45;$YD=$YD+0.5) {
$dc=$CD-50;
$dm=$MD-40;
$dy=$YD-40;
$cc=$dc*0.3; //echo "cc:".$cc;
$cm=$dm*0.4;//echo "cm:".$cm;
if ($dy>1) {
$cy=0;
}
else {
$cy=1;
}
//echo "cy:".$cy;
$mc=-$dc*0.6;//echo "mc:".$mc;
$mm=$dm*0.7;//echo "mm:".$mm;
if ($dy>1) {
$my=-$dy*0.1;
}
else {
$my=-$dy*0.2;
}
//echo "my:".$my;
$yc=-$dc*0.4;
$ym=-$dm*0.2;
$yy=$dy*0.6;
${'C'.$CD.$MD.$YD."L"}=round($TL-($cc+$cm-$cy),1);
${'C'.$CD.$MD.$YD."a"}=round($Ta+($mc+$mm+$my),1);
${'C'.$CD.$MD.$YD."b"}=round($Tb+($yc+$ym+$yy),1);
${'de'.$CD.$MD.$YD}=round(de76($ML,$Ma,$Mb,$TL-($cc+$cm-$cy),$Ta+($mc+$mm+$my),$Tb+($yc+$ym+$yy)),2);
if (${'de'.$CD.$MD.$YD}<1)
{$fColor='red';}
else {
$fColor='black';
}
$emin=min($emin,${'de'.$CD.$MD.$YD});
if ($emin==${'de'.$CD.$MD.$YD}) {
$mddexT=$CD."-".$MD."-".$YD;
$deT=${'de'.$CD.$MD.$YD};
}
//echo "<tr><td>".$CD."-".$MD."-".$YD."</td><td>".${'C'.$CD.$MD.$YD."L"}."</td><td>".${'C'.$CD.$MD.$YD."a"}."</td><td>".${'C'.$CD.$MD.$YD."b"}."</td><td><font color='".$fColor."'>".${'de'.$CD.$MD.$YD}."</td></tr>";
///////////////////////////////////////////////////////////////////////////////////////////////////
}
}
}
//echo "mdexT:".$mddexT;
///////////////////////////////////////////////////////////Measured
$emin=100;
$mddexM=0;
$deM=0;
/////////////////////////////////////////////////////////////////////
for ($CD=45;$CD<=55;$CD=$CD+0.5) {
for ($MD=35;$MD<=45;$MD=$MD+0.5) {
for ($YD=35;$YD<=45;$YD=$YD+0.5) {
$dc=$CD-50;
$dm=$MD-40;
$dy=$YD-40;
$cc=$dc*0.3; //echo "cc:".$cc;
$cm=$dm*0.4;//echo "cm:".$cm;
if ($dy>1) {
$cy=0;
}
else {
$cy=1;
}
//echo "cy:".$cy;
$mc=-$dc*0.6;//echo "mc:".$mc;
$mm=$dm*0.7;//echo "mm:".$mm;
if ($dy>1) {
$my=-$dy*0.1;
}
else {
$my=-$dy*0.2;
}
//echo "my:".$my;
$yc=-$dc*0.4;
$ym=-$dm*0.2;
$yy=$dy*0.6;
${'C'.$CD.$MD.$YD."L"}=round($ML-($cc+$cm-$cy),1);
${'C'.$CD.$MD.$YD."a"}=round($Ma+($mc+$mm+$my),1);
${'C'.$CD.$MD.$YD."b"}=round($Mb+($yc+$ym+$yy),1);
${'de'.$CD.$MD.$YD}=round(de76($TL,$Ta,$Tb,$ML-($cc+$cm-$cy),$Ma+($mc+$mm+$my),$Mb+($yc+$ym+$yy)),2);
if (${'de'.$CD.$MD.$YD}<1)
{$fColor='red';}
else {
$fColor='black';
}
$emin=min($emin,${'de'.$CD.$MD.$YD});
if ($emin==${'de'.$CD.$MD.$YD}) {
$mddexM=$CD."-".$MD."-".$YD;
$deM=${'de'.$CD.$MD.$YD};
}
//echo "<tr><td>".$CD."-".$MD."-".$YD."</td><td>".${'C'.$CD.$MD.$YD."L"}."</td><td>".${'C'.$CD.$MD.$YD."a"}."</td><td>".${'C'.$CD.$MD.$YD."b"}."</td><td><font color='".$fColor."'>".${'de'.$CD.$MD.$YD}."</td></tr>";
///////////////////////////////////////////////////////////////////////////////////////////////////
}
}
}
//echo "mdexM:".$mddexM;
//echo "<br>deT=".$deT."_deM=".$deM;
/*
if ($deT<$deM){
$FinalF=$mddexT;
$dotF=explode("-", $FinalF);////Measure upload
print_r($dotF);
$FC=50-$dotF[0];
$FM=40-$dotF[1];
$FY=40-$dotF[2];
}
else {
$FinalF=$mddexM;
$dotF=explode("-", $FinalF);////Measure upload
print_r($dotF);
$FC=$dotF[0]-50;
$FM=$dotF[1]-40;
$FY=$dotF[2]-40;
}
*/
$FinalF=$mddexT;
$dotF=explode("-", $FinalF);////Measure upload
//print_r($dotF);
$FC=50-$dotF[0];
$FM=40-$dotF[1];
$FY=40-$dotF[2];
//echo "FC:".$FC;
//echo "FM:".$FM;
//echo "FY:".$FY;
//echo "<br>Fix:".$FinalF."<br>";
///////////////////////////////////// rule set 25
$TL=$Gray25LT;
$Ta=($Pam*0.75);
$Tb=($Pbm*0.75);
$ML=$Gray25Lm;
$Ma=$Gray25a;
$Mb=$Gray25b;
$emin=100;
$mddexT=0;
$deT=0;
/////////////////////////////////////////////////////////////////////
for ($CD=20;$CD<=30;$CD=$CD+0.5) {
for ($MD=14;$MD<=24;$MD=$MD+0.5) {
for ($YD=14;$YD<=24;$YD=$YD+0.5) {
$dc=$CD-25;
$dm=$MD-19;
$dy=$YD-19;
$cc=$dc*0.4; //echo "cc:".$cc;
$cm=$dm*0.4;//echo "cm:".$cm;
$cy=0;
//echo "cy:".$cy;
$mc=-$dc*0.3;//echo "mc:".$mc;
$mm=$dm*0.6;//echo "mm:".$mm;
$my=-0.1;
//echo "my:".$my;
$yc=-$dc*0.6;
$ym=-$dm*0.2;
$yy=$dy*0.8;
${'C'.$CD.$MD.$YD."L"}=round($TL-($cc+$cm-$cy),1);
${'C'.$CD.$MD.$YD."a"}=round($Ta+($mc+$mm+$my),1);
${'C'.$CD.$MD.$YD."b"}=round($Tb+($yc+$ym+$yy),1);
${'de'.$CD.$MD.$YD}=round(de76($ML,$Ma,$Mb,$TL-($cc+$cm-$cy),$Ta+($mc+$mm+$my),$Tb+($yc+$ym+$yy)),2);
if (${'de'.$CD.$MD.$YD}<1)
{$fColor='red';}
else {
$fColor='black';
}
$emin=min($emin,${'de'.$CD.$MD.$YD});
if ($emin==${'de'.$CD.$MD.$YD}) {
$mddexT=$CD."-".$MD."-".$YD;
$deT=${'de'.$CD.$MD.$YD};
}
//echo "<tr><td>".$CD."-".$MD."-".$YD."</td><td>".${'C'.$CD.$MD.$YD."L"}."</td><td>".${'C'.$CD.$MD.$YD."a"}."</td><td>".${'C'.$CD.$MD.$YD."b"}."</td><td><font color='".$fColor."'>".${'de'.$CD.$MD.$YD}."</td></tr>";
///////////////////////////////////////////////////////////////////////////////////////////////////
}
}
}
//echo "mdexT:".$mddexT;
///////////////////////////////////////////////////////////Measured
$emin=100;
$mddexM=0;
$deM=0;
/////////////////////////////////////////////////////////////////////
for ($CD=20;$CD<=30;$CD=$CD+0.5) {
for ($MD=14;$MD<=24;$MD=$MD+0.5) {
for ($YD=14;$YD<=24;$YD=$YD+0.5) {
$dc=$CD-25;
$dm=$MD-19;
$dy=$YD-19;
$cc=$dc*0.4; //echo "cc:".$cc;
$cm=$dm*0.4;//echo "cm:".$cm;
$cy=0;
//echo "cy:".$cy;
$mc=-$dc*0.3;//echo "mc:".$mc;
$mm=$dm*0.6;//echo "mm:".$mm;
$my=-0.1;
//echo "my:".$my;
$yc=-$dc*0.6;
$ym=-$dm*0.2;
$yy=$dy*0.8;
${'C'.$CD.$MD.$YD."L"}=round($ML-($cc+$cm-$cy),1);
${'C'.$CD.$MD.$YD."a"}=round($Ma+($mc+$mm+$my),1);
${'C'.$CD.$MD.$YD."b"}=round($Mb+($yc+$ym+$yy),1);
${'de'.$CD.$MD.$YD}=round(de76($TL,$Ta,$Tb,$ML-($cc+$cm-$cy),$Ma+($mc+$mm+$my),$Mb+($yc+$ym+$yy)),2);
if (${'de'.$CD.$MD.$YD}<1)
{$fColor='red';}
else {
$fColor='black';
}
$emin=min($emin,${'de'.$CD.$MD.$YD});
if ($emin==${'de'.$CD.$MD.$YD}) {
$mddexM=$CD."-".$MD."-".$YD;
$deM=${'de'.$CD.$MD.$YD};
}
//echo "<tr><td>".$CD."-".$MD."-".$YD."</td><td>".${'C'.$CD.$MD.$YD."L"}."</td><td>".${'C'.$CD.$MD.$YD."a"}."</td><td>".${'C'.$CD.$MD.$YD."b"}."</td><td><font color='".$fColor."'>".${'de'.$CD.$MD.$YD}."</td></tr>";
///////////////////////////////////////////////////////////////////////////////////////////////////
}
}
}
//echo "mdexM:".$mddexM;
//echo "<br>deT=".$deT."_deM=".$deM;
/*
if ($deT<$deM){
$FinalF=$mddexT;
$dotF=explode("-", $FinalF);////Measure upload
print_r($dotF);
$FC=25-$dotF[0];
$FM=19-$dotF[1];
$FY=19-$dotF[2];
}
else {
$FinalF=$mddexM;
$dotF=explode("-", $FinalF);////Measure upload
print_r($dotF);
$FC=$dotF[0]-25;
$FM=$dotF[1]-19;
$FY=$dotF[2]-19;
}
*/
$FinalF=$mddexT;
$dotF=explode("-", $FinalF);////Measure upload
//print_r($dotF);
$FC25=25-$dotF[0];
$FM25=19-$dotF[1];
$FY25=19-$dotF[2];
//echo "FC25:".$FC25;
//echo "FM25:".$FM25;
//echo "FY25:".$FY25;
//echo "<br>Fix:".$FinalF."<br>";
///////////////////////////////////// rule set 25
///////////////////////////////////// rule set 75
$TL=$Gray75LT;
$Ta=($Pam*0.25);
$Tb=($Pbm*0.25);
$ML=$Gray75Lm;
$Ma=$Gray75a;
$Mb=$Gray75b;
$emin=100;
$mddexT=0;
$deT=0;
/////////////////////////////////////////////////////////////////////
for ($CD=70;$CD<=80;$CD=$CD+0.5) {
for ($MD=61;$MD<=71;$MD=$MD+0.5) {
for ($YD=61;$YD<=71;$YD=$YD+0.5) {
$dc=$CD-75;
$dm=$MD-66;
$dy=$YD-66;
$cc=$dc*0.3; //echo "cc:".$cc;
$cm=$dm*0.3;//echo "cm:".$cm;
$cy=0;
//echo "cy:".$cy;
$mc=-$dc*0.7;//echo "mc:".$mc;
$mm=$dm*0.5;//echo "mm:".$mm;
$my=-0.1;
//echo "my:".$my;
$yc=-$dc*0.4;
$ym=-$dm*0.2;
$yy=$dy*0.6;
${'C'.$CD.$MD.$YD."L"}=round($TL-($cc+$cm-$cy),1);
${'C'.$CD.$MD.$YD."a"}=round($Ta+($mc+$mm+$my),1);
${'C'.$CD.$MD.$YD."b"}=round($Tb+($yc+$ym+$yy),1);
${'de'.$CD.$MD.$YD}=round(de76($ML,$Ma,$Mb,$TL-($cc+$cm-$cy),$Ta+($mc+$mm+$my),$Tb+($yc+$ym+$yy)),2);
if (${'de'.$CD.$MD.$YD}<1)
{$fColor='red';}
else {
$fColor='black';
}
$emin=min($emin,${'de'.$CD.$MD.$YD});
if ($emin==${'de'.$CD.$MD.$YD}) {
$mddexT=$CD."-".$MD."-".$YD;
$deT=${'de'.$CD.$MD.$YD};
}
//echo "<tr><td>".$CD."-".$MD."-".$YD."</td><td>".${'C'.$CD.$MD.$YD."L"}."</td><td>".${'C'.$CD.$MD.$YD."a"}."</td><td>".${'C'.$CD.$MD.$YD."b"}."</td><td><font color='".$fColor."'>".${'de'.$CD.$MD.$YD}."</td></tr>";
///////////////////////////////////////////////////////////////////////////////////////////////////
}
}
}
//echo "mdexT:".$mddexT;
///////////////////////////////////////////////////////////Measured
$emin=100;
$mddexM=0;
$deM=0;
/////////////////////////////////////////////////////////////////////
for ($CD=70;$CD<=80;$CD=$CD+0.5) {
for ($MD=61;$MD<=71;$MD=$MD+0.5) {
for ($YD=61;$YD<=71;$YD=$YD+0.5) {
$dc=$CD-75;
$dm=$MD-66;
$dy=$YD-66;
$cc=$dc*0.3; //echo "cc:".$cc;
$cm=$dm*0.3;//echo "cm:".$cm;
$cy=0;
//echo "cy:".$cy;
$mc=-$dc*0.7;//echo "mc:".$mc;
$mm=$dm*0.5;//echo "mm:".$mm;
$my=-0.1;
//echo "my:".$my;
$yc=-$dc*0.4;
$ym=-$dm*0.2;
$yy=$dy*0.6;
${'C'.$CD.$MD.$YD."L"}=round($ML-($cc+$cm-$cy),1);
${'C'.$CD.$MD.$YD."a"}=round($Ma+($mc+$mm+$my),1);
${'C'.$CD.$MD.$YD."b"}=round($Mb+($yc+$ym+$yy),1);
${'de'.$CD.$MD.$YD}=round(de76($TL,$Ta,$Tb,$ML-($cc+$cm-$cy),$Ma+($mc+$mm+$my),$Mb+($yc+$ym+$yy)),2);
if (${'de'.$CD.$MD.$YD}<1)
{$fColor='red';}
else {
$fColor='black';
}
$emin=min($emin,${'de'.$CD.$MD.$YD});
if ($emin==${'de'.$CD.$MD.$YD}) {
$mddexM=$CD."-".$MD."-".$YD;
$deM=${'de'.$CD.$MD.$YD};
}
//echo "<tr><td>".$CD."-".$MD."-".$YD."</td><td>".${'C'.$CD.$MD.$YD."L"}."</td><td>".${'C'.$CD.$MD.$YD."a"}."</td><td>".${'C'.$CD.$MD.$YD."b"}."</td><td><font color='".$fColor."'>".${'de'.$CD.$MD.$YD}."</td></tr>";
///////////////////////////////////////////////////////////////////////////////////////////////////
}
}
}
//echo "mdexM:".$mddexM;
//echo "<br>deT=".$deT."_deM=".$deM;
/*
if ($deT<$deM){
$FinalF=$mddexT;
$dotF=explode("-", $FinalF);////Measure upload
print_r($dotF);
$FC=75-$dotF[0];
$FM=66-$dotF[1];
$FY=66-$dotF[2];
}
else {
$FinalF=$mddexM;
$dotF=explode("-", $FinalF);////Measure upload
print_r($dotF);
$FC=$dotF[0]-75;
$FM=$dotF[1]-66;
$FY=$dotF[2]-66;
}
*/
$FinalF=$mddexT;
$dotF=explode("-", $FinalF);////Measure upload
//print_r($dotF);
$FC75=75-$dotF[0];
$FM75=66-$dotF[1];
$FY75=66-$dotF[2];
//echo "FC75:".$FC75;
//echo "FM75:".$FM75;
//echo "FY75:".$FY75;
//echo "<br>Fix:".$FinalF."<br>";
///////////////////////////////////// rule set 75
///////////////////////////////////// rule set 2
?>
<img src="scatterB.png">
</div></td>
</tr>
</table>
<table width="200" border="1" align="center">
<tr>
<td><div align="center">
<img src="scatterGuR.png">
</div></td>
<?php
//include 'graphFix.php';
//$dk=($K50dm-$Pdm)-$k50dT;
//$cmyd=($C50dm-$Pdm)-$D50dT;
//echo "<br> cTdm:".$cTdm."_"."_dgc:".$dgc."_m50dm:".$m50dm."_dgm:".$dgm."_y50dm:".$y50dm."_dgy:".$dgy;
/*
if ($dot[2522]<>'') {//TTverify
GenGraphGT($cTdm-$dgc,$m50dm-$dgm,$y50dm-$dgy,$dk);}
else {
GenGraphGT($cmyd,$m50dm-$dgm,$y50dm-$dgy,$dk);}
*/
$sum=180;
$sum=$sum-($dc00+$dm00+$dy00+$dk00+$dr00+$dg00+$db00);
$sum=$sum-$Avgdl*4;
$sum=$sum-$Maxdl*2;
$sum=$sum-$Avgdlc*6;
$sum=$sum-$Maxdlc*3;
$sum=$sum-$Avgdf*6;
$sum=$sum-$Maxdf*3;
$sum=$sum-$dk*5;
$sum=$sum-$dgl*3;
$sum=$sum-$df*6;
if ($dc00>3.5 or $dm00>3.5 or $dy00>3.5 or $dk00>5 or $dr00>4.2 or $dg00>4.2 or $db00>4.2) {$stFail=1;}
$ptuK=($K100dm-$Pdm)/100;
//echo "<br>ptuK:".$ptuK."_k50dT:".$k50dT."_k50dm:".$K50dm;
$FixK=($k50dT-$K50dm)/$ptuK;
//echo "<br>FixK:".$FixK;
//include 'graphFixFF.php';
//GenGraphT2(-$FixC,-$FixM,-$FixY,(-$FixK)/2.5);
?>
<td><div>
<font size='+4'> <?php if ($sum<75 or $stFail==1) {echo '<font color="red">'; } else {echo '<font color="green">';} echo round($sum,2);?></font>
<!--<img src="graphK.gif">
<img src="graphGT.gif">
<img src="graphT2.gif">-->
</div></td>
<td><div align="center">
<img src="scatterKTV.png">
</div></td>
</tr>
</table>
<?php
//echo "line 3709 FuxC:".$FixC;
include 'graphFixC9.php';
GenGraph(-$FixC,-$FixM,-$FixY,$dk*10);
GenGraph25(-$FixC25,-$FixM25,-$FixY25,$dk25*10);
GenGraph75(-$FixC75,-$FixM75,-$FixY75,$dk75*10);
GenGraphTK25(-$FC25,-$FM25,-$FY25,(getLk(25,$K100Ym,$PYm,$PLm)-$K25Lm));
GenGraphTK(-$FC,-$FM,-$FY,(getLk(50,$K100Ym,$PYm,$PLm)-$K50Lm));
GenGraphTK75(-$FC75,-$FM75,-$FY75,-$KLD75);
echo "mdexT:".$mddexT;
echo "mdexM:".$mddexM;
echo "<br>deT=".$deT."_deM=".$deM;
echo "FC:".$FC;
echo "FM:".$FM;
echo "FY:".$FY;
echo "Fix:".$FinalF."<br>";
?>
<table>
<tr>
<img src="graph25.gif?nocache=<?php echo time(); ?>">
<img src="graph.gif?nocache=<?php echo time(); ?>">
<img src="graph75.gif?nocache=<?php echo time(); ?>">
</tr>
</table>
<table>
<tr>
<img src="graphTK25.gif?nocache=<?php echo time(); ?>">
<img src="graphTK.gif?nocache=<?php echo time(); ?>">
<img src="graphTK75.gif?nocache=<?php echo time(); ?>">
</tr>
</table>
<table width="200" border="1" align="center" style="font-size:16px;">
<font size='0' color='black'>
<tr>
<td>G7</td>
<td><font color='<?php if ((abs($dg25l)>2)){echo "red";}else {echo "black";}?>'>G25L</td>
<td><font color='<?php if ($df25>3){echo "red";}else {echo "black";}?>'>G25a</td>
<td><font color='<?php if ($df25>3){echo "red";}else {echo "black";}?>'>G25b</td>
<td><font color='<?php if ($df25>3){echo "red";}else {echo "black";}?>'>d25Ch</td>
<td>
<td><font color='<?php if ((abs($dgl)>2)){echo "red";}else {echo "black";}?>'>G50L</td>
<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>G50a</td>
<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>G50b</td>
<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>d50Ch</td>
<td>
<td><font color='<?php if ((abs($dg75l)>2)){echo "red";}else {echo "black";}?>'>G75L</td>
<td><font color='<?php if ($df75>3){echo "red";}else {echo "black";}?>'>G75a</td>
<td><font color='<?php if ($df75>3){echo "red";}else {echo "black";}?>'>G75b</td>
<td><font color='<?php if ($df75>3){echo "red";}else {echo "black";}?>'>d75Ch</td>
</tr>
<tr>
<td bgcolor="#ffffff">G7</td>
<td><div align="right"><font color='<?php if ($df25>2.5){echo "red";}else {echo "black";}?>'><a href=" " title="<?php echo round($dgy50,2);?>"><?php echo round($dg25l,2);?></a></div></td>
<td><div align="right"><font color='<?php if ($df25>2.5){echo "red";}else {echo "black";}?>'><?php echo round($dg25a,2);?></div></td>
<td><div align="right"><font color='<?php if ($df25>2.5){echo "red";}else {echo "black";}?>'><?php echo round($dg25b,2);?></div></td>
<td><div align="right"><font color='<?php if ($df25>2.5){echo "red";}else {echo "black";}?>'><?php echo round($df25,2);?></div></td>
<td>
<td><div align="right"><font color='<?php if ($df>2.5){echo "red";}else {echo "black";}?>'><a href=" " title="<?php echo round($dgy50,2);?>"><?php echo round($dgl,2);?></a></div></td>
<td><div align="right"><font color='<?php if ($df>2.5){echo "red";}else {echo "black";}?>'><?php echo round($dga,2);?></div></td>
<td><div align="right"><font color='<?php if ($df>2.5){echo "red";}else {echo "black";}?>'><?php echo round($dgb,2);?></div></td>
<td><div align="right"><font color='<?php if ($df>2.5){echo "red";}else {echo "black";}?>'><?php echo round($df,2);?></div></td>
<td>
<td><div align="right"><font color='<?php if ($df75>2.5){echo "red";}else {echo "black";}?>'><a href=" " title="<?php echo round($dgy50,2);?>"><?php echo round($dg75l,2);?></a></div></td>
<td><div align="right"><font color='<?php if ($df75>2.5){echo "red";}else {echo "black";}?>'><?php echo round($dg75a,2);?></div></td>
<td><div align="right"><font color='<?php if ($df75>2.5){echo "red";}else {echo "black";}?>'><?php echo round($dg75b,2);?></div></td>
<td><div align="right"><font color='<?php if ($df75>2.5){echo "red";}else {echo "black";}?>'><?php echo round($df75,2);?></div></td>
</tr><tr>
<td>G7量測</td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($Gray25Lm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($Gray25a,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($Gray25b,2);?></div></td>
<td bgcolor="#cccccc"><div align="right"><font color='<?php if (abs($dg25l)>2.5){echo "red";}else {echo "black";}?>'><b><?php echo round($Grayd-$Pdm,2);?></div></td>
<td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($GrayLm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($Graya,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($Grayb,2);?></div></td>
<td bgcolor="#cccccc"><div align="right"><font color='<?php if (abs($dgl)>2.5){echo "red";}else {echo "black";}?>'><b><?php echo round($Grayd-$Pdm,2);?></div></td>
<td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($Gray75Lm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($Gray75a,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($Gray75b,2);?></div></td>
<td bgcolor="#cccccc"><div align="right"><font color='<?php if (abs($dg25l)>2.5){echo "red";}else {echo "black";}?>'><b><?php echo round($Grayd-$Pdm,2);?></div></td>
</tr><tr>
<td>G7目標</td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($Gray25LT,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($Pam*0.75,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($Pbm*0.75,2);?></div></td>
<td bgcolor="#cccccc"><div align="right"><?php echo round(0.54,2);?></div></td>
<td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($GrayLT,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($Pam/2,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($Pbm/2,2);?></div></td>
<td bgcolor="#cccccc"><div align="right"><?php echo round(0.54,2);?></div></td>
<td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($Gray75LT,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($Pam*0.25,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($Pbm*0.25,2);?></div></td>
<td bgcolor="#cccccc"><div align="right"><?php echo round(0.54,2);?></div></td>
</tr>
</table>
<table width="200" border="1" align="center" style="font-size:16px;">
<font size='0' color='black'>
<tr>
<td><div align="center"> id___<?php echo $sNo;?></div></td>
<td><font color="#666666">P</td>
<td><font color='<?php if ($dc00>3.5){echo "red";}else {echo "black";}?>'>C</td>
<td><font color='<?php if ($dm00>3.5){echo "red";}else {echo "black";}?>'>M</td>
<td><font color='<?php if ($dy00>3.5){echo "red";}else {echo "black";}?>'>Y</td>
<td><font color='<?php if ($dk00>5){echo "red";}else {echo "black";}?>'>K</td>
<td><font color='<?php if ($dr00>4.2){echo "red";}else {echo "black";}?>'>R</td>
<td><font color='<?php if ($dg00>4.2){echo "red";}else {echo "black";}?>'>G</td>
<td><font color='<?php if ($db00>4.2){echo "red";}else {echo "black";}?>'>B</td>
<td>TVI</td>
<td>C50</td>
<td>M50</td>
<td>Y50</td>
<td>K50</td>
</tr>
<tr bgcolor="#aaaaaa">
<td><div align="center">色差</div></td>
<td bgcolor="#CCCCCC"><font color='<?php if ($dp00>3){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($PLm,0).",".round($Pam,0).",".round($Pbm,0);?>"><?php echo round($dp00,2);?></a> </div></td>
<td bgcolor="#00FFFF"><font color='<?php if ($dc00>3.5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($CS100Lm,0).",".round($CS100am,0).",".round($CS100bm,0);?>"><?php echo round($dc00,2);?></a> </div></td>
<td bgcolor="#FF99FF"><font color='<?php if ($dm00>3.5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($MS100Lm,0).",".round($MS100am,0).",".round($MS100bm,0);?>"><?php echo round($dm00,2);?></a></div></td>
<td bgcolor="#FFFF99"><font color='<?php if ($dy00>3.5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($YS100Lm,0).",".round($YS100am,0).",".round($YS100bm,0);?>"><?php echo round($dy00,2);?></a></div></td>
<td bgcolor="#cccccc"><font color='<?php if ($dk00>5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($K100Lm,0).",".round($K100am,0).",".round($K100bm,0);?>"><?php echo round($dk00,2);?></a></div></td>
<td bgcolor="#fa9b83"><font color='<?php if ($dr00>4.2){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($RS100Lm,0).",".round($RS100am,0).",".round($RS100bm,0);?>"><?php echo round($dr00,2);?></a></div></td>
<td bgcolor="#8afa53"><font color='<?php if ($dg00>4.2){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($GS100Lm,0).",".round($GS100am,0).",".round($GS100bm,0);?>"><?php echo round($dg00,2);?></a></div></td>
<td bgcolor="#9397fc"><font color='<?php if ($db00>4.2){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($BS100Lm,0).",".round($BS100am,0).",".round($BS100bm,0);?>"><?php echo round($db00,2);?></a></div></td>
<td bgcolor="#ffffff">TVI</td>
<td bgcolor="#00FFFF"><font color='<?php if (abs($c50TV-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($cTLm,0).",".round($cTam,0).",".round($cTbm,0);?>"><?php echo round($c50TV-50-16,2);?></a></div></td>
<td bgcolor="#FF99FF"><font color='<?php if (abs($m50TV-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><?php echo round($m50TV-50-16,2);?></div></td>
<td bgcolor="#FFFF99"><font color='<?php if (abs($y50TV-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><?php echo round($y50TV-50-16,2);?></div></td>
<td bgcolor="#cccccc"><font color='<?php if (abs($KTV50-50-16)>4){echo "red";}else {echo "black";}?>'><div align="right"><?php echo round($KTV50-50-16,2);?></div></td>
</tr>
<tr>
<td><div align="center">量測濃度</div></td>
<td bgcolor="#CCCCCC"></td>
<td bgcolor="#00FFFF"><div align="right"><font color='<?php if ($dc00>3.5){echo "red";}else {echo "black";}?>'><?php echo round($CS100dm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><font color='<?php if ($dm00>3.5){echo "red";}else {echo "black";}?>'><?php echo round($MS100dm,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><font color='<?php if ($dy00>3.5){echo "red";}else {echo "black";}?>'><?php echo round($YS100dm,2);?></div></td>
<td bgcolor="#cccccc"><div align="right"><font color='<?php if ($dk00>5){echo "red";}else {echo "black";}?>'><?php echo round($K100dm,2);?></div></td>
<td bgcolor="#fa9b83"><div align="right"><font color='<?php if ($dr00>4.2){echo "red";}else {echo "black";}?>'><?php echo round($RS100dm,2);?></div></td>
<td bgcolor="#8afa53"><div align="right"><font color='<?php if ($dg00>4.2){echo "red";}else {echo "black";}?>'><?php echo round($GS100dm,2);?></div></td>
<td bgcolor="#9397fc"><div align="right"><font color='<?php if ($db00>4.2){echo "red";}else {echo "black";}?>'><div align="right"><?php echo round($BS100dm,2);?></div></td>
<td><div align="center">量測濃度</div></td>
<td bgcolor="#00FFFF"><div align="right"><?php if ($stTV==1) {echo round($cTdm-$Pdm,2); }else { echo round($C50dm-$Pdm,2);}?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php if ($stTV==1) {echo round($m50dm-$Pdm,2); }else { echo round($C50dm-$Pdm,2);}?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php if ($stTV==1) {echo round($y50dm-$Pdm,2); }else { echo round($C50dm-$Pdm,2);}?></div></td>
<td bgcolor="#cccccc"><div align="right"><?php echo round($K50dm-$Pdm,2);?></div></td>
</tr>
<tr>
<td><div align="center">預測濃度</div></td>
<td bgcolor="#CCCCCC"></td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($coptD,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($moptD,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($yoptD,2);?></div></td>
<td bgcolor="#cccccc"><div align="right"><?php echo round($koptD,2);?></div></td>
<td bgcolor="#fa9b83"><div align="right"><?php echo round($roptD,2);?></div></td>
<td bgcolor="#8afa53"><div align="right"><?php echo round($groptD,2);?></div></td>
<td bgcolor="#9397fc"><div align="right"><?php echo round($boptD,2);?></div></td>
<td><div align="center">目標濃度</div></td>
<td bgcolor="#00FFFF"><div align="right"><?php if ($stTV==1) {echo round($dgc-$Pdm,2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php if ($stTV==1) {echo round($dgm-$Pdm,2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php if ($stTV==1) {echo round($dgy-$Pdm,2); } else {echo round($D50dT-$Pdm,2);}?></div></td>
<td bgcolor="#cccccc"><div align="right"><?php echo round($k50dT,2);?></div></td>
</tr>
<tr>
<td><div align="center">最佳色差</div></td>
<td bgcolor="#CCCCCC"></td>
<td bgcolor="#00FFFF"><div align="right"><?php if ($cmin>5) {?><font color="red"><?php } echo round($cmin,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php if ($mmin>5) {?><font color="red"><?php } echo round($mmin,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php if ($ymin>5) {?><font color="red"><?php } echo round($ymin,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php if ($kmin>5) {?><font color="red"><?php } echo round($kmin,2);?></div></td>
<td bgcolor="#fa9b83"><div align="right"><?php if ($rmin>6) {?><font color="red"><?php } echo round($rmin,2);?></div></td>
<td bgcolor="#8afa53"><div align="right"><?php if ($grmin>6) {?><font color="red"><?php } echo round($grmin,2);?></div></td>
<td bgcolor="#9397fc"><div align="right"><?php if ($bmin>6) {?><font color="red"><?php } echo round($bmin,2);?></div></td>
<td>
<input type="submit" name="submit" value="Set OK">
</td>
<td><?php echo"分數:<br>". round($sum,2);?></td>
<td ><a href="RankC.php?cdc=<?php echo $cdm;?>&mdc=<?php echo $mdm;?>&ydc=<?php echo $ydm;?>&kdc=<?php echo $kdm;?>&gdc=<?php echo $gdm;?>&gLc=<?php echo $gLm;?>&gac=<?php echo $gam;?>&gbc=<?php echo $gbm;?>&cLc=<?php echo $cLm;?>&cac=<?php echo $cam;?>&cbc=<?php echo $cbm;?>&cec=<?php echo $dc00;?>&mLc=<?php echo $mLm;?>&mac=<?php echo $mam;?>&mbc=<?php echo $mbm;?>&mec=<?php echo $dm00;?>&yLc=<?php echo $yLm;?>&yac=<?php echo $yam;?>&ybc=<?php echo $ybm;?>&yec=<?php echo $dy00;?>&kLc=<?php echo $kLm;?>&kac=<?php echo $kam;?>&kbc=<?php echo $kbm;?>&kec=<?php echo $dk00;?>&rLc=<?php echo $rLm;?>&rac=<?php echo $ram;?>&rbc=<?php echo $rbm;?>&rec=<?php echo $dr00;?>&grLc=<?php echo $grLm;?>&grac=<?php echo $gram;?>&grbc=<?php echo $grbm;?>&grec=<?php echo $dg00;?>&bLc=<?php echo $bLm;?>&bac=<?php echo $bam;?>&bbc=<?php echo $bbm;?>&bec=<?php echo $db00;?>&grdc=<?php echo $grdm;?>&rdc=<?php echo $rdm;?>&bdc=<?php echo $bdm;?>&cc50=<?php echo $c50TVI;?>&cm50=<?php echo $m50TVI;?>&cy50=<?php echo $y50TVI;?>&ck50=<?php echo $k50TVI;?>&tStamp=<?php echo $tStamp;?>">compare</a></td><br>
</tr>
</table>
<table width="200" border="1" align="center">
<tr>
<td><div align="center">主色</div></td>
<td><font color="#aaaaaa">2%</font></td>
<td><font color="#aaaaaa">4%</font></td>
<td><font color="#aaaaaa">6%</font></td>
<td><font color="#aaaaaa">8%</font></td>
<td><font color="#aaaaaa">10%</font></td>
<td><font color="#aaaaaa">15%</font></td>
<td><font color="#aaaaaa">20%</font></td>
<td><font color="#aaaaaa">25%</font></td>
<td><font color="#666666">30%</font></td>
<td><font color="#666666">35%</font></td>
<td><font color="#666666">40%</font></td>
<td><font color="#666666">45%</font></td>
<td><font color="#665566">50%</font></td>
<td><font color="#666666">55%</font></td>
<td><font color="#666666">60%</font></td>
<td><font color="#666666">65%</font></td>
<td>70%</td>
<td>75%</td>
<td>80%</td>
<td>85%</td>
<td>90%</td>
<td>95%</td>
<td>98%</td>
</tr>
<tr>
<td bgcolor="#CCCCCC"><div align="center">K</div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV2-2,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV4-4,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV6-6,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV8-8,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV10-10,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV15-15,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV20-20,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV25-25,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV30-30,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV35-35,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV40-40,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV45-45,2);?></div></td>
<td bgcolor="#CCffCC"><div align="right"><?php echo round($KTV50-50,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV55-55,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV60-60,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV65-65,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV70-70,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV75-75,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV80-80,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV85-85,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV90-90,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV95-95,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php echo round($KTV98-98);?></div></td>
</tr>
</table>
<?php
$Tsum=(($sum/260)*60)+(($psum/20)*40);
$Rsum=round($Tsum,2);
if (($check==0) && ($sid==0)){
$passbit=1;}
$query = "INSERT INTO g7basex(company, contact, email, type, po, filename, score, passbit, date, device, dsn, printer, paper, ink, rankbit, ip) VALUES('$company', '$contact', '$email', 'V60', '$po','$filename','$Rsum', '$passbit', NOW(), '$device', '$dsn', '$press', '$paper', '$ink', '$rankbit','". $_SERVER['REMOTE_ADDR'] ."')";
$results = mysqli_query($conn, $query);
mysqli_close($conn);
?>
<?php
$FC25v=round((25+$FixC25),0);
$FM25v=round((25+$FixM25),0);
$FY25v=round((25+$FixY25),0);
$FK25v=round((25-$dk25*10),0);
$FC25v3=round((25+$FixC25),3);
$FM25v3=round((25+$FixM25),3);
$FY25v3=round((25+$FixY25),3);
$FK25v3=round((25-$dk25*10),3);
$FC25=round((25-$FixC75),0);
$FM25=round((25-$FixM75),0);
$FY25=round((25-$FixY75),0);
$FK25=round((25+$dk75*10),0);
$FCv=round((50+$FixC),0);
$FMv=round((50+$FixM),0);
$FYv=round((50+$FixY),0);
$FKv=round((50-$dk*10),0);
$FCv3=round((50+$FixC),3);
$FMv3=round((50+$FixM),3);
$FYv3=round((50+$FixY),3);
$FKv3=round((50-$dk*10),3);
$FC=round((50-$FixC),0);
$FM=round((50-$FixM),0);
$FY=round((50-$FixY),0);
$FK=round((50+$dk*10),0);
$FC75v=round((75+$FixC75),0);
$FM75v=round((75+$FixM75),0);
$FY75v=round((75+$FixY75),0);
$FK75v=round((75-$dk75*10),0);
$FC75v3=round((75+$FixC75),3);
$FM75v3=round((75+$FixM75),3);
$FY75v3=round((75+$FixY75),3);
$FK75v3=round((75-$dk75*10),3);
$FC75=round((75-$FixC25),0);
$FM75=round((75-$FixM25),0);
$FY75=round((75-$FixY25),0);
$FK75=round((75+$dk25*10),0);
$nFC=round((50-$FixC),0);
$nFM=round((50-$FixM),0);
$nFY=round((50-$FixY),0);
$nFK=round((50-$dk*10),0);
//echo "fr:".$FC."--".$FM."--".$FY."--".$FK."<br>";
// echo "fr:".$FixC."--".$FixM."--".$FixY."--".$FixK."<br>";
// echo "fr25:".$FC25v."--".$FM25."--".$FY25."--".$FK25."<br>";
$c25=dechex($FC25*255/100);
$m25=dechex($FM25*255/100);
$y25=dechex($FY25*255/100);
$k25=dechex($FK25*255/100);
$c50=dechex($FC*255/100);
$m50=dechex($FM*255/100);
$y50=dechex($FY*255/100);
$k50=dechex($FK*255/100);
$c75=dechex($FC75*255/100);
$m75=dechex($FM75*255/100);
$y75=dechex($FY75*255/100);
$k75=dechex($FK75*255/100);
// echo "c50:".$c50."--".$m50."--".$y50."--".$k50."--<br>";
// echo "c25:".$c25."--".$m25."--".$y25."--".$k75."--<br>";
// echo "c75:".$c75."--".$m75."--".$y75."--".$k75."--<br>";
$bindata2 = pack('hhhhhhhhhhhH*hH*hhhhhhhH*hH*hH*hH*hH*hH*hH*hH*hhhhhhhH*hH*hH*hH*hH*hH*hH*hH*hhhhhhhH*hH*hH*hH*hH*hH*hH*hH*hhhhhhhH*hH*hH*hH*hH*hH*hH*hH*hhhhhhhH*hH*', 00, 04,00,06,00,02,00,00,00,00,00,'FF',00,'FF',00,05,00,00,00,00,00,$c25,00,40,00,$c50,00,'7F',00,$c75,00,'BF',00,'FF',00,'FF',00,05,00,00,00,00,00,$m25,00,40,00,$m50,00,'7F',00,$m75,00,'BF',00,'FF',00,'FF',00,05,00,00,00,00,00,$y25,00,40,00,$y50,00,'7F',00,$y75,00,'BF',00,'FF',00,'FF',00,05,00,00,00,00,00,$k25,00,40,00,$k50,00,'7F',00,$k75,00,'BF',00,'FF',00,'FF',00,02,00,00,00,00,00,'FF',00,'FF');
file_put_contents('curve/fix-'.$company."-".$dStr.$FCv.$FMv.$FYv.'_00.acv', $bindata2);
?>
<table align='center'>
<tr>
<td><font color="#444444">取得PhotoShop 曲線檔(.acv)</font></td>
<td><font color="#444444"><a href="curve/fix-<?php echo $company."-".$dStr.$FCv.$FMv.$FYv;?>_00.acv">here</a></font></td>
</tr>
<?php
require_once( 'PolynomialRegression.php' );
$data =
array
(
array( 0.00, 0.0 ),
array( 25*255/100, $FY25v3*255/100 ),
array( 50*255/100, $FYv3*255/100 ),
array( 75*255/100, $FY75v3*255/100 ),
array( 255, 255 )
);
// Precision digits in BC math.
bcscale( 10 );
$leastSquareRegression = new PolynomialRegression( 4 );//pupumonkey
// Add all the data to the regression analysis.
foreach ( $data as $dataPoint )
{
$leastSquareRegression->addData( $dataPoint[ 0 ], $dataPoint[ 1 ] );
//echo "addData : " . $dataPoint[ 0 ]."-".$dataPoint[ 1 ] . "<br />\n";
}
// Get coefficients for the polynomial.
$coefficients = $leastSquareRegression->getCoefficients();
$FY25d=$FY25v3*0.01;
$FYd=$FYv3*0.01;
$FY75d=$FY75v3*0.01;
$FM25d=$FM25v3*0.01;
$FMd=$FMv3*0.01;
$FM75d=$FM75v3*0.01;
$FC25d=$FC25v3*0.01;
$FCd=$FCv3*0.01;
$FC75d=$FC75v3*0.01;
$FK25d=$FK25v3*0.01;
$FKd=$FKv3*0.01;
$FK75d=$FK75v3*0.01;
$myFile ="curve/vcc-".$company."-".$dStr.$FCv.$FMv.$FYv."_00.vcc";
$fvcc = fopen($myFile, 'w') or die("can't open file");
//fwrite($fh, $p);
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
$viHead='CC08
BEGIN
5
0.00000 0.00000
'.$FY25d.' 0.25000
'.$FYd.' 0.50000
'.$FY75d.' 0.75000
1.00000 1.00000
0 0';
fwrite($fvcc, $viHead."\n");
for ($i=1;$i<=255;$i++) {
$yCV="$i"." ".round(($coefficients[0]+$i*$coefficients[1]+pow($i,2)*$coefficients[2]+pow($i,3)*$coefficients[3]),0);
fwrite($fvcc, $yCV."\n");
}
fwrite($fvcc, "END\n");
///////////////////////////////////////////////////////////////
$data =
array
(
array( 0.00, 0.0 ),
array( 25*255/100, $FM25v3*255/100 ),
array( 50*255/100, $FMv3*255/100 ),
array( 75*255/100, $FM75v3*255/100 ),
array( 255, 255 )
);
// Precision digits in BC math.
bcscale( 10 );
$leastSquareRegression = new PolynomialRegression( 4 );//pupumonkey
// Add all the data to the regression analysis.
foreach ( $data as $dataPoint )
{
$leastSquareRegression->addData( $dataPoint[ 0 ], $dataPoint[ 1 ] );
//echo "addData : " . $dataPoint[ 0 ]."-".$dataPoint[ 1 ] . "<br />\n";
}
// Get coefficients for the polynomial.
$coefficients = $leastSquareRegression->getCoefficients();
$viHeadM='BEGIN
5
0.00000 0.00000
'.$FM25d.' 0.25000
'.$FMd.' 0.50000
'.$FM75d.' 0.75000
1.00000 1.00000
0 0';
fwrite($fvcc, $viHeadM."\n");
for ($i=1;$i<=255;$i++) {
$mCV="$i"." ".round(($coefficients[0]+$i*$coefficients[1]+pow($i,2)*$coefficients[2]+pow($i,3)*$coefficients[3]),0);
fwrite($fvcc, $mCV."\n");
}
fwrite($fvcc, "END\n");
/////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////
$data =
array
(
array( 0.00, 0.0 ),
array( 25*255/100, $FC25v3*255/100 ),
array( 50*255/100, $FCv3*255/100 ),
array( 75*255/100, $FC75v3*255/100 ),
array( 255, 255 )
);
// Precision digits in BC math.
bcscale( 10 );
$leastSquareRegression = new PolynomialRegression( 4 );//pupumonkey
// Add all the data to the regression analysis.
foreach ( $data as $dataPoint )
{
$leastSquareRegression->addData( $dataPoint[ 0 ], $dataPoint[ 1 ] );
//echo "addData : " . $dataPoint[ 0 ]."-".$dataPoint[ 1 ] . "<br />\n";
}
// Get coefficients for the polynomial.
$coefficients = $leastSquareRegression->getCoefficients();
$viHeadC='BEGIN
5
0.00000 0.00000
'.$FC25d.' 0.25000
'.$FCd.' 0.50000
'.$FC75d.' 0.75000
1.00000 1.00000
0 0';
fwrite($fvcc, $viHeadC."\n");
for ($i=1;$i<=255;$i++) {
$cCV="$i"." ".round(($coefficients[0]+$i*$coefficients[1]+pow($i,2)*$coefficients[2]+pow($i,3)*$coefficients[3]),0);
fwrite($fvcc, $cCV."\n");
}
fwrite($fvcc, "END\n");
/////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////
$data =
array
(
array( 0.00, 0.0 ),
array( 25*255/100, $FK25v3*255/100 ),
array( 50*255/100, $FKv3*255/100 ),
array( 75*255/100, $FK75v3*255/100 ),
array( 255, 255 )
);
// Precision digits in BC math.
bcscale( 10 );
$leastSquareRegression = new PolynomialRegression( 4 );//pupumonkey
// Add all the data to the regression analysis.
foreach ( $data as $dataPoint )
{
$leastSquareRegression->addData( $dataPoint[ 0 ], $dataPoint[ 1 ] );
//echo "addData : " . $dataPoint[ 0 ]."-".$dataPoint[ 1 ] . "<br />\n";
}
// Get coefficients for the polynomial.
$coefficients = $leastSquareRegression->getCoefficients();
$viHeadK='BEGIN
5
0.00000 0.00000
'.$FK25d.' 0.25000
'.$FKd.' 0.50000
'.$FK75d.' 0.75000
1.00000 1.00000
0 0';
fwrite($fvcc, $viHeadK."\n");
for ($i=1;$i<=255;$i++) {
$kCV="$i"." ".round(($coefficients[0]+$i*$coefficients[1]+pow($i,2)*$coefficients[2]+pow($i,3)*$coefficients[3]),0);
fwrite($fvcc, $kCV."\n");
}
fwrite($fvcc, "END\n");
/////////////////////////////////////////////////////////////////////////////
$viHeadn='BEGIN
2
0.00000 0.00000
1.00000 1.00000
0 0';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=255;$i++) {
$nCV="$i"." "."$i";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
$viHeadn='BEGIN
2
0.00000 0.00000
1.00000 1.00000
0 0';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=255;$i++) {
$nCV="$i"." "."$i";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
$viHeadn='BEGIN
2
0.00000 0.00000
1.00000 1.00000
0 0';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=255;$i++) {
$nCV="$i"." "."$i";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
$viHeadn='BEGIN
2
0.00000 0.00000
1.00000 1.00000
0 0';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=255;$i++) {
$nCV="$i"." "."$i";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
/////////////////////////////////////////////////////////////////////////////
$viHeadn='GENERIC_V3
10000
10000
10000
10000
0
0
0
1
206
600x600
0
40470
1
1
100
120
END';
fwrite($fvcc, $viHeadn."\n");
//////////////////////////////////////////////////////////////////////////
$viHeadn='BEGIN
1
0
255';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=34;$i++) {
$nCV="0";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
//////////////////////////////////////////////////////////////////////////
$viHeadn='BEGIN
1
0
255';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=34;$i++) {
$nCV="0";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
//////////////////////////////////////////////////////////////////////////
$viHeadn='BEGIN
1
0
255';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=34;$i++) {
$nCV="0";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
//////////////////////////////////////////////////////////////////////////
$viHeadn='BEGIN
1
0
255';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=34;$i++) {
$nCV="0";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
//////////////////////////////////////////////////////////////////////////
$viHeadn='BEGIN
1
0
255';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=34;$i++) {
$nCV="0";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
//////////////////////////////////////////////////////////////////////////
$viHeadn='BEGIN
1
0
255';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=34;$i++) {
$nCV="0";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
//////////////////////////////////////////////////////////////////////////
$viHeadn='BEGIN
1
0
255';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=34;$i++) {
$nCV="0";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
//////////////////////////////////////////////////////////////////////////
$viHeadn='BEGIN
1
0
255';
fwrite($fvcc, $viHeadn."\n");
for ($i=1;$i<=34;$i++) {
$nCV="0";
fwrite($fvcc, $nCV."\n");
}
fwrite($fvcc, "END\n");
$viEnd='1
CC04';
fwrite($fvcc, $viEnd."\n");
fclose($fvcc);
?>
<tr>
<td><font color="#444444">取得Efi vcc(.vcc)</font></td>
<td><font color="#444444"><a href="curve/vcc-<?php echo $company."-".$dStr.$FCv.$FMv.$FYv;?>_00.vcc">here</a></font></td>
<td><td><td><td><td><td>
<td><font color="#444444"><a href="curve/listvcc.php?company=<?php echo $company."&fmt=vcc&FC25=".$FixC25."&FM25=".$FixM25."&FY25=".$FixY25."&FK25=".$dk25."&FC=".$FixC."&FM=".$FixM."&FY=".$FixY."&FK=".$dk."&FC75=".$FixC75."&FM75=".$FixM75."&FY75=".$FixY75."&FK75=".$dk75;?>">堆疊</a></font></td>
</tr>
<?php
$myFile ="curve/CG-".$company."-".$dStr.$FCv.$FMv.$FYv."_00.txt";
$fCG = fopen($myFile, 'w') or die("can't open file");
//fwrite($fh, $p);
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
$viHead='"File created by PBN"
LGOROWLENGTH 3
#
# PBN Run Information
#
# Run: Run 1 - Calibration
# Based On: <none>
#
# Values in this file are Wanted
#
# Gray Balance: On
# reduced after 0%
# until 85%
# media white values: Measured
# media aim points: 1.20 / -0.90
#
NUMBER_OF_FIELDS 6
BEGIN_DATA_FORMAT
SampleID SAMPLE_NAME CMYK_C CMYK_M CMYK_Y CMYK_K
END_DATA_FORMAT
NUMBER_OF_SETS 5
BEGIN_DATA
A0 "0.00" 0.00 0.00 0.00 0.00
A1 "25.00" '.$FC25v.' '.$FM25v.' '.$FY25v.' '.$FK25v.'
A2 "50.00" '.$FCv.' '.$FMv.' '.$FYv.' '.$FKv.'
A3 "75.00" '.$FC75v.' '.$FM75v.' '.$FY75v.' '.$FK75v.'
A4 "100.00" 100.00 100.00 100.00 100.00
END_DATA';
fwrite($fCG, $viHead."\n");
fclose($fCG);
?>
<tr>
<td><font color="#444444">取得CGATS(.txt)</font></td>
<td><font color="#444444"><a href="<?php echo "curve/CG-".$company."-".$dStr.$FCv.$FMv.$FYv;?>_00.txt">here</a></font></td>
</tr>
</table>
<tr>
<td align="center"><font size="-2"> © <a href="mailto:[email protected]">Fred Kuo</a>, 2021. All rights reserved.<br><a href="http://www.fredkuo.idv.tw/wordpress/?p=1025">Read more.</a><br>
</td>
</tr>
</body>
</html>