HEX
Server: Apache/2.4.46 (Win64) OpenSSL/1.1.1j PHP/8.4.25
System: Windows NT DESKTOP-4TAV2RJ 10.0 build 19045 (Windows 10) AMD64
User: fred (0)
PHP: 8.4.25
Disabled: NONE
Upload Files
File: C:/xampp/htdocs/FograCT1/pbnCT9apix.php
<?php session_start();
///include("functions.php");
//$userid=$_SESSION["user_id"];
//$username=$_SESSION["username"];
//$company=$_SESSION["company"];
$company='ecolor';
//echo "Welcome!  ".$company;

if(!empty($_SERVER['HTTP_CLIENT_IP'])){
   $myip = $_SERVER['HTTP_CLIENT_IP'];
}else if(!empty($_SERVER['HTTP_X_FORWARDED_FOR'])){
   $myip = $_SERVER['HTTP_X_FORWARDED_FOR'];
}else{
   $myip= $_SERVER['REMOTE_ADDR'];
}

?>

<?php 

$company=$_GET['company'];
$CTcount='';
if ($company=='')  {
	$company='pbndemo';
}

echo "Welcome!  ".$company;




function getIP() {
      foreach (array('HTTP_CLIENT_IP', 'HTTP_X_FORWARDED_FOR', 'HTTP_X_FORWARDED', 'HTTP_X_CLUSTER_CLIENT_IP', 'HTTP_FORWARDED_FOR', 'HTTP_FORWARDED', 'REMOTE_ADDR') as $key) {
         if (array_key_exists($key, $_SERVER) === true) {
            foreach (explode(',', $_SERVER[$key]) as $ip) {
               if (filter_var($ip, FILTER_VALIDATE_IP) !== false) {
                  return $ip;
               }
            }
         }
      }
   }
  // $tags=json_decode(file_get_contents('http://gd.geobytes.com/GetCityDetails?fqcn='. getIP()), true)
   //print_r($tags[geobytescity]);
  // echo "ip:".getIP();
   $ip=getIP();
   $details = json_decode(file_get_contents("http://ipinfo.io/{$ip}/json"));
//echo $details->city; // -> "Mountain View"
//echo $details->country;
$myip=$ip;
$area=$details->city;
$country=$details->country;
//echo "<br>area:".$area;
include '../CTCounter2.php';

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


		
		$queryC="select * from ctmember where  company='$company' ";
		//echo "<br>".$queryC."<br>";
 		//$resultC = mysql_query($queryC) or die ("Error in query: $queryC. " . mysql_error());
		$results =  mysqli_query($conn, $queryC);
		$num = mysqli_num_rows( $results);
	if ($num > 0)
	{
$row = mysqli_fetch_object($results);	
$CTcount=$row->CTcount;

echo "count:".$CTcount;
$CTcount=$CTcount+1;

		$queryU="update ctmember set ldate=NOW(),ltool='CT9',CTcount='$CTcount' where company='$company' ";
		
		//$resultU = mysql_query($queryU) or die ("Error in query: $queryU. " . mysql_error());
$resultU = mysqli_query($conn, $queryU);
	}
	
/* 	
if ($CTcount=='')	{
		echo "company down!";
		exit;
	}


 */

	
?>



<!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>Control-9 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
//session_start();
$_SESSION["TL"]='';
$k50bit=0;
$sumR2=100;
error_reporting(0);
$f123= $_GET['f123'];
$f321= $_GET['f321'];
$company= $_GET['company'];
$sccSt=$_GET['sccSt'];
$press=$_GET['press'];
$okName= $_GET['okName']; 
//$TR15=$_GET['TR15']; 
$target=$_GET['target'];
if ($target=='') {
$target="CRPC6";
}
else {
	$target=$target;
}
//echo "tt:".$target."_:.".$sccSt;

 $servername = "127.0.0.1";
$username = "root";
$password = "fredsql";
$DBNAME = "tvicheck-st";

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

$TR15=1;


include 'spXYZ.php';
include 'sp38XYZ.php';
include 'lab2xyz.php';
include 'SCCA06.php';
include 'xyz2lab01.php';
include 'xyz2lab.php';
//include 'DensityV38.php';
include 'invert.php';
  include 'DensityV38.php';
   include 'DensityV.php';




$sum=120;
$check=1;
$dtime=time();
$dStr=substr($dtime,7,9)."-";
$roundd=0;
$sumR1='';
$sumR2='';

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;
}

	  $contentT = file($f321);
	  //echo substr('abcdef', 1, 3);  // bcd
	  $filedb=substr($f321,7,60);
	  $dbstr=explode("_", $filedb);
	  echo $dbstr[0]."XX".$dbstr[1]."XX".$dbstr[2]."XX".$dbstr[3].$dbstr[4].$dbstr[5];
	  $filename=$filedb;
	  $po=$dbstr[1];
	  
	  
	  ///////////get last ok////////////////////////// 

$query = "SELECT * from production where po='$po' and setOK='1' order by sNo  DESC  limit 1 "; 
//echo "qry:".$query;
//$result = mysql_query($query) or die ("Error in query: $query. " . mysql_error());	  
$result =  mysqli_query($conn, $query);
	$num = mysqli_num_rows( $result);		
	if ($num > 0)
	{ 
$row = mysqli_fetch_object($result);	
	$okid=$row->sNo;
	$okfile=$row->filename;
    } 
	
//mysql_close($connection);	  
	  
	if   ($okid>1)
	{  
	$okfile=$okfile;
	echo "<br>ok file:".$okfile;
	$f123="upload/".$okfile;
	
	// copy($okfile, "upload/targetx.txt");
	}
///////////////////////////////////// get ok
	  
	  
		$stringC = implode($contentT);
		
		$fMark = strrpos($stringC,'i1Profiler');
		//echo "fMark:".$fMark."<br>";
		$fMarkC = strrpos($stringC,'ColorPort');
		//echo "fMarkC:".$fMarkC."<br>";

		$nm380 = strrpos($stringC,'nm380');
		//echo "fMarkC:".$nm380."<br>";
		
		$stringT = implode($contentT);
		//echo $contents[20]; 
		//echo $stringT; 
//$pt = str_replace("\r\n?", "	", $stringT);

$snstring=get_between($stringT,"Serial number ","_CREATED");


$dotS = explode(",", $snstring);////Measure upload

//print_r ($dotS);

$snstring=$dotS[0];
echo "sn:".$snstring;	
ctcounter($company,$myip,$area,$country,$snstring,'CT9');



$datastring=get_between($stringT,"BEGIN_DATA","END_DATA");
$pp = str_replace("	\r", "\r", $datastring);
$pp = str_replace("\r", "	", $pp);
$dotT = explode("_", $pp);////Measure upload

//print_r ($dotT);
    $idx=9;
$cols=46;
$sksum=50;
$kMark=0;
$gMark=0;
$kMarkbit=0;


  for ($Pdot=0;$Pdot<=9;$Pdot++)
  {
	${"sum".$Pdot}=($dotT[$idx+$cols*$Pdot+1]+$dotT[$idx+$cols*$Pdot+2]+$dotT[$idx+$cols*$Pdot+3]+$dotT[$idx+$cols*$Pdot+4]+$dotT[$idx+$cols*$Pdot+5]+$dotT[$idx+$cols*$Pdot+6]+$dotT[$idx+$cols*$Pdot+7]+$dotT[$idx+$cols*$Pdot+8]+$dotT[$idx+$cols*$Pdot+9]+$dotT[$idx+$cols*$Pdot+10]+$dotT[$idx+$cols*$Pdot+11]+$dotT[$idx+$cols*$Pdot+12]+$dotT[$idx+$cols*$Pdot+13]+$dotT[$idx+$cols*$Pdot+14]+$dotT[$idx+$cols*$Pdot+15]+$dotT[$idx+$cols*$Pdot+16]+$dotT[$idx+$cols*$Pdot+17]+$dotT[$idx+$cols*$Pdot+18]+$dotT[$idx+$cols*$Pdot+19]+$dotT[$idx+$cols*$Pdot+20]+$dotT[$idx+$cols*$Pdot+21]+$dotT[$idx+$cols*$Pdot+22]+$dotT[$idx+$cols*$Pdot+23]+$dotT[$idx+$cols*$Pdot+24]+$dotT[$idx+$cols*$Pdot+25]+$dotT[$idx+$cols*$Pdot+26]+$dotT[$idx+$cols*$Pdot+27]+$dotT[$idx+$cols*$Pdot+28]+$dotT[$idx+$cols*$Pdot+29]+$dotT[$idx+$cols*$Pdot+30]+$dotT[$idx+$cols*$Pdot+31]+$dotT[$idx+$cols*$Pdot+32]+$dotT[$idx+$cols*$Pdot+33]+$dotT[$idx+$cols*$Pdot+34]+$dotT[$idx+$cols*$Pdot+35]+$dotT[$idx+$cols*$Pdot+36]);
	
	${"Max".$Pdot}=max($dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
	
	${"Min".$Pdot}=min($dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
	
	$SSXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$SSYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$SSZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$SSLm=xyz2lab01("l",$SSXm,$SSYm,$SSZm);
	$SSam=xyz2lab01("a",$SSXm,$SSYm,$SSZm);
	$SSbm=xyz2lab01("b",$SSXm,$SSYm,$SSZm);
	
	
	$chrome=pow((pow($SSam,2)+pow($SSbm,2)),0.5);
	$hue=atan2($SSbm,$SSam);
	$deg = ($hue/M_PI*180) + ($hue > 0 ? 0 : 360);
	
	
	
	
	
	${"n43x".$Pdot}=$dotT[$idx+$cols*$Pdot+6];
	${"n66x".$Pdot}=$dotT[$idx+$cols*$Pdot+29];
	${"fnx".$Pdot}=round((${"n66x".$Pdot}-${"n43x".$Pdot}),4);
	${"Mx".$Pdot}=round((${"Max".$Pdot}-${"Max".$Pdot}),2);
	
	//echo "sum".$Pdot.":".${"sum".$Pdot};
	//echo "_fnx".$Pdot.":".${"fnx".$Pdot};
	//echo "<br>chrome".$Pdot.":".$chrome;
	//echo "__hue".$Pdot.":".$deg;
	
	if (${"sum".$Pdot}>24 and ${"fnx".$Pdot}<0.15){
		$Paperp=$Pdot;
	}
	elseif (${"sum".$Pdot}<13 and $deg>218 and $deg<248 and $chrome>50) {
		$C100p=$Pdot;
	}
	elseif (${"sum".$Pdot}>13 and ${"fnx".$Pdot}<-0.1){
		$C50p=$Pdot;
	}
	elseif (${"sum".$Pdot}<17 and ($deg>310 || $deg<12) and $chrome>60){
		$M100p=$Pdot;
	}
	elseif (${"sum".$Pdot}>15 and ($deg>310 || $deg<12) and $chrome<60){
		$M50p=$Pdot;
	}	
	elseif (${"sum".$Pdot}>13 and ${"fnx".$Pdot}>0.65){
		$Y100p=$Pdot;
	}
	elseif (${"sum".$Pdot}<25 and ${"sum".$Pdot}>18 and $deg>80 and $deg<115){
		//echo "<br>fny50:".${"fnx".$Pdot};
		$Y50p=$Pdot;
	}
	elseif ( ${"sum".$Pdot}<4.5) { //k100 300
			$K100p=$Pdot;
	}

		elseif (${"sum".$Pdot}>6 and ${"sum".$Pdot}<17 and ${"fnx".$Pdot}<0.15){/// gray
		//$smartK=$dotT[$idx+$cols*$Pdot+29]/$dotT[$idx+$cols*$Pdot+19];
		$smartK =$dotT[$idx+$cols*$Pdot+14]-$dotT[$idx+$cols*$Pdot+20];
		
		//echo "<br> go smartK 276 :".$smartK."xx14:".$dotT[$idx+$cols*$Pdot+14]."xx20:".$dotT[$idx+$cols*$Pdot+20];
		if ($smartK <0.04) {
			$roundd=$roundd+1;
			echo "<br> go offset 281 round:".$roundd."-pdot:".$Pdot;;
			$K50p=$Pdot;
			$k50bit=1;
		}
		else {
			$roundd=$roundd+1;
			//echo "<br>kg50:".${"fnx".$Pdot};
			//echo "<br>SESSION:".$_SESSION["TL"]."_round:".$roundd;
			
				if ($_SESSION["TL"]=='' and $k50bit==0) {
				$_SESSION["TL"] =${"sum".$Pdot};
				$sumR1=$_SESSION["TL"];
				$sumR1=$sumR1;
				$r1Pot=$Pdot;
				//echo "<br>sumR1 292:".$sumR1."-round:".$roundd."-r1Pot:".$r1Pot."<br>";
				}
				else {
				$_SESSION["TL"] =${"sum".$Pdot};
				$sumR2=$_SESSION["TL"];
				$sumR2=$sumR2;	
				$r2Pot=$Pdot;
				//echo "<br>sumR2 298:".$sumR2."-round2:".$roundd."-r2Pot:".$r2Pot."<br>";
				}
				

			  if ($k50bit==1) {
				  echo "<br> k50bit to gray check<br>";
				$grayp=$Pdot;  
			  }
				
			}
				

			
			

	}
	
	
	
  }  //for loop
  $_SESSION["TL"]='';
  //echo "<br>sumR1  :".$sumR1."_sumR2:".$sumR2."-k50bit:".$k50bit."<br>";
			if ($sumR1<$sumR2 and $k50bit<>1) {
			$grayp=$r1Pot;
			$K50p=$r2Pot;
			$k50bit=1;
			//echo "<br>sumR1  :".$sumR1."-round:".$roundd."-K50p:".$K50p."<br>";
			  }
			elseif ($sumR1>$sumR2 and $k50bit<>1) {
			$grayp=$r2Pot;
			$K50p=$r1Pot;  
			$k50bit=1;
			//echo "<br>sumR2 335:".$sumR1."-round:".$roundd."-K50p:".$K50p."<br>";
			  }	

$Dmaxp=10;

?>

 

<form action="setok.php?f123=<?php echo "target.txt".'&po='.$po;?>" method="post">
<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>
SCCA on
</td>
<td>
SCCA off
</td></tr>
<tr><td>
<a href="pbnCT9api.php?f123=target.txt&f321=<?php echo $f321;?>&company=<?php echo $company;?>&sccSt=1&target=<?php echo "Fogra47";?>">Fogra47</a>
</td>
<td>
<a href="pbnCT9api.php?f123=target.txt&f321=<?php echo $f321;?>&company=<?php echo $company;?>&sccSt=0&target=<?php echo "Fogra47";?>">Fogra47</a>
</td></tr>
<tr><td>
<a href="pbnCT9api.php?f123=target.txt&f321=<?php echo $f321;?>&company=<?php echo $company;?>&sccSt=1&target=<?php echo "Fogra39";?>">Fogra39</a>
</td>
<td><a href="pbnCT9api.php?f123=target.txt&f321=<?php echo $f321;?>&company=<?php echo $company;?>&sccSt=0&target=<?php echo "Fogra39";?>">Fogra39</a>
</td></tr>
<tr><td>
<a href="pbnCT9api.php?f123=target.txt&f321=<?php echo $f321;?>&company=<?php echo $company;?>&sccSt=1&target=<?php echo "CRPC6";?>">CRPC6</a>
</td><td>
<a href="pbnCT9api.php?f123=target.txt&f321=<?php echo $f321;?>&company=<?php echo $company;?>&sccSt=0&target=<?php echo "CRPC6";?>">CRPC6</a>
</td></tr>

<tr><td>
<a href="lineGraphDT.php?po=<?php echo $po;?>">歷程</a>
</td></tr>

  </table>

	

  


  <?php
  echo "paperp,K:".$Paperp.",".$K100p;
  ///dotT[] sorting

if ($Paperp==1) {
$Paperp=1;	
$C100p=0;
$M100p=3;
$Y100=6;
$K100p=9;
$C50p=7;
$M50p=5;
$Y50p=4;
$K50p=8;
$grayp=2;
}
elseif ($Paperp==8 ) {
$Paperp=8;	
$C100p=9;
$M100p=6;
$Y100=3;
$K100p=0;
$C50p=2;
$M50p=4;
$Y50p=5;
$K50p=1;
$grayp=7;
}
elseif ($Paperp==0 and $K100p==4 ) {
$Paperp=0;	
$C100p=1;
$M100p=2;
$Y100=3;
$K100p=4;
$C50p=5;
$M50p=6;
$Y50p=7;
$K50p=8;
$grayp=9;
}
elseif ($Paperp==0 and $K100p==8 ) {
$Paperp=0;	
$C100p=1;
$M100p=6;
$Y100=3;
$K100p=8;
$C50p=2;
$M50p=4;
$Y50p=7;
$K50p=9;
$grayp=5;
}


  echo "<br>paper:".$Paperp.",C100:".$C100p.",M100:".$M100p.",Y100:".$Y100p.",K100:".$K100p.",C50:".$C50p.",M50:".$M50p.",Y50:".$Y50p.",K50:".$K50p.",gray:".$grayp.",Dmaxp:".$Dmaxp;
  
  //////////////////////////////////////////////////Fogra Media Check
  //echo "<br> dot7:".$dotT[6+1];
  

/*   
 if ($dotT[20]>0.5) {
 $Pdot=0;
 echo "paper lead";
 }
elseif ($TR15==0) {
$Pdot=9;	
 echo "solid lead";
} 
else {
	$Pdot=10;
	 echo "solid lead";
} */
  //echo "Paper X".$dotT[$idx+$cols*$Pdot+1]."<br>";
  
  $Pdot=$Paperp;

	$PXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$PYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$PZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$PLm=xyz2lab01("l",$PXm,$PYm,$PZm);
	$Pam=xyz2lab01("a",$PXm,$PYm,$PZm);
	$Pbm=xyz2lab01("b",$PXm,$PYm,$PZm);
	
	$Pdm=DensitySp38("K",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
 echo "<br>Paper Lab:".$PLm.",".$Pam.",".$Pbm."_paper den=".$Pdm;	
	
 //$Pdot=10;	
  if ($dotT[20]>0.5) {
 $Pdot=0;}
else {
	$Pdot=10;
}
 
 $Pdot=$Dmaxp;
	$DXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$DYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$DZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$DLm=xyz2lab01("l",$DXm,$DYm,$DZm);
	$Dam=xyz2lab01("a",$DXm,$DYm,$DZm);
	$Dbm=xyz2lab01("b",$DXm,$DYm,$DZm);
	
	$Ddm=DensitySp38("K",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);	
 

echo ":target:".$target;
	$k50T=62;
  if ($target=="Fogra39") {
  $psum=20;
  $pl=95; $pa=-0.01;$pb=-2;
  $cl=55.10; $ca=-37.0;$cb=-50;
  $ml=48; $ma=74;$mb=-3;
  $yl=89; $ya=-5;$yb=93;
  $kl=16; $ka=0.01;$kb=0.01;
  $k50T=62;
  }
/*elseif ($target=="Fogra47") {
    $psum=20;
  $pl=95; $pa=-0.01;$pb=-2;
  $cl=60; $ca=-26;$cb=-44;
  $ml=56; $ma=61;$mb=-1;
  $yl=89; $ya=-4;$yb=78;
  $kl=31; $ka=1;$kb=1;
  }
*/
  elseif ($target=="Fogra47") {
    $psum=20;
  $pl=95; $pa=-0.01;$pb=-2;
  $cl=56; $ca=-27;$cb=-47;
  $ml=55; $ma=65;$mb=3;
  $yl=90; $ya=-5;$yb=83;
  $kl=29; $ka=2;$kb=2;
  }
  elseif ($target=="Fogra39SCCA") {
    $psum=20;
  $pl=96.1; $pa=-0.9;$pb=-1.4;
  $cl=55.7; $ca=-36.9;$cb=-50;
  $ml=48.6; $ma=75.5;$mb=-2.7;
  $yl=90; $ya=-4.2;$yb=94.3;
  $kl=16.2; $ka=0.1;$kb=0.1;}
    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;
  $k50T=60;
	}
  
$Xp=$PXm*100;
$Yp=$PYm*100;
$Zp=$PZm*100;


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

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

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

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

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

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

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


	
/////////////////////////////SCCA

if ($sccSt==0)
	
{
	echo ":::SCCA off";
}
elseif ($sccSt==1){
	echo ":::SCCA on";
	
  $pl=$PLm; $pa=$Pam;$pb=$Pbm;
  $cl=$scCL; $ca=$scCa;$cb=$scCb;
  $ml=$scML; $ma=$scMa;$mb=$scMb;
  $yl=$scYL; $ya=$scYa;$yb=$scYb;
  $kl=$scKL; $ka=$scKa;$kb=$scKb;
  

}

 // echo "target:".$target;
  

 // echo "<BR>Paper: PL:".$PLm."_Pa:".$Pam."_Pb:".$Pbm."__Pdm:".$Pdm."__<br>";


  /////////////////////////////////c
  
	  //$Pdot=1;	
 if ($dotT[20]>0.5) {  //paper on the lead
 $Pdot=1;}
elseif ($TR15==0) { //CT10
$Pdot=8;	
} 
else {     //CT11
	$Pdot=9;
}	  

$Pdot=$C100p;
	$cXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$cYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$cZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$cLm=xyz2lab01("l",$cXm,$cYm,$cZm);
	$cam=xyz2lab01("a",$cXm,$cYm,$cZm);
	$cbm=xyz2lab01("b",$cXm,$cYm,$cZm);
	
	$cdm=DensitySp38("C",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
 
 
  //echo "note 2k: CL:".$cLm."_Ca:".$cam."_Cb:".$cbm."__Pdm:".$cdm."__<br>";
  
 ///////////////////////////////////////////m
$Pdot=2;
 if ($dotT[20]>0.5) {  //paper on the lead
 $Pdot=2;}
elseif ($TR15==0) { //CT10
$Pdot=7;	
} 
else {     //CT11
	$Pdot=8;
}	 

$Pdot=$M100p;
	$mXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$mYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$mZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$mLm=xyz2lab01("l",$mXm,$mYm,$mZm);
	$mam=xyz2lab01("a",$mXm,$mYm,$mZm);
	$mbm=xyz2lab01("b",$mXm,$mYm,$mZm);
	
	$mdm=DensitySp38("M",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

 // echo "note 2k: ML:".$mLm."_Ma:".$mam."_Mb:".$mbm."__Mdm:".$mdm."__<br>";
   
    ///////////////////////////////////////////y
$Pdot=3;
 if ($dotT[20]>0.5) {  //paper on the lead
 $Pdot=3;}
elseif ($TR15==0) { //CT10
$Pdot=6;	
} 
else {     //CT11
	$Pdot=7;
}	 

$Pdot=$Y100p;
	$yXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$yYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$yZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$yLm=xyz2lab01("l",$yXm,$yYm,$yZm);
	$yam=xyz2lab01("a",$yXm,$yYm,$yZm);
	$ybm=xyz2lab01("b",$yXm,$yYm,$yZm);
	
	$ydm=DensitySp38("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

//  echo "note 2k: YL:".$yLm."_Ya:".$yam."_Yb:".$ybm."__Ydm:".$ydm."__<br>";
   
       ///////////////////////////////////////////k
$Pdot=4;
 if ($dotT[20]>0.5) {  //paper on the lead
 $Pdot=4;}
elseif ($TR15==0) { //CT10
$Pdot=5;	
} 
else {     //CT11
	$Pdot=6;
}	

$Pdot=$K100p; 
	$kXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$kYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$kZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$kLm=xyz2lab01("l",$kXm,$kYm,$kZm);
	$kam=xyz2lab01("a",$kXm,$kYm,$kZm);
	$kbm=xyz2lab01("b",$kXm,$kYm,$kZm);
	
	$kdm=DensitySp38("K",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

 //echo "<br>note 2k: KL:".$kLm."_Ka:".$kam."_Kb:".$kbm."__Kdm:".$kdm."__<br>";
   
   
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
//   //////////////////////////////////Beer's Law section///////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
   ////////////////sec K
	$ki=0.820;
	
	for ( $i = 1; $i <= 30; $i+= 1) {
	$Pdot=$K100p;////K line
	 if ($dotT[20]>0.5) {  //paper on the lead
 $Pdot=9;
 $padot=0; 
 //echo "paper lead B";
 } 
elseif ($TR15==0) { //CT10
$Pdot=5;	
$padot=9;
//echo "solid lead B9";
} 
else {     //CT11
	$Pdot=6;
	$padot=10;
	//echo "solid lead B10";
}
$padot=$Paperp;
 $Pdot=$K100p;
	//$dotT[$idx+$cols*$Pdot+1]
	$si=0;

	for ($s=380; $s<=730; $s+=10) {
	//${'p'.$s}=abs($dotT[$idx+$si+1]);
	${'p'.$s}=abs($dotT[$idx+$cols*$padot+$si+1]);
	//echo "paper".$s.":".abs($dotT[$idx+$cols*$padot+$si+1]);
	${'m'.$s}=abs($dotT[$idx+$cols*$Pdot+$si+1]);
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}
	

	
	$ki=$ki+0.015;

	${'k'.$i.'X'}=sp38XYZ("X",$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);
	//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=1;////C line
	 if ($dotT[20]>0.5) {  //paper on the lead
 $Pdot=1;
 }
elseif ($TR15==0) { //CT10
$Pdot=8;	
} 
else {     //CT11
	$Pdot=9;
}	 
$padot=$Paperp;
 $Pdot=$C100p;

	//$dotT[$idx+$cols*$Pdot+1]
	$si=0;

	for ($s=380; $s<=730; $s+=10) {
	//${'p'.$s}=abs($dotT[$idx+$si+1]);
	${'p'.$s}=abs($dotT[$idx+$cols*$padot+$si+1]);
	${'m'.$s}=abs($dotT[$idx+$cols*$Pdot+$si+1]);
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}

	$ki=$ki+0.015;

	${'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);
	}
	//echo "<br>";
//////////////////////////sec M
	$ki=0.820;
	
	for ( $i = 1; $i <= 30; $i+= 1) {
	$Pdot=2;////M line
	 if ($dotT[20]>0.5) {  //paper on the lead
 $Pdot=2;
 }
elseif ($TR15==0) { //CT10
$Pdot=7;	
} 
else {     //CT11
	$Pdot=8;
}	
$padot=$Paperp;
 $Pdot=$M100p;
 
	//$dotT[$idx+$cols*$Pdot+1]
	$si=0;

	for ($s=380; $s<=730; $s+=10) {
	//${'p'.$s}=abs($dotT[$idx+$si+1]);
	${'p'.$s}=abs($dotT[$idx+$cols*$padot+$si+1]);
	${'m'.$s}=abs($dotT[$idx+$cols*$Pdot+$si+1]);
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}
	$ki=$ki+0.015;

	${'m'.$i.'X'}=sp38XYZ("X",$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);
	

	//echo "m1D=".round(${'m'.$i.'dd'},3);
	}
 //echo "<br>";
///////////////////sec Y
	$ki=0.880;
	for ( $i = 1; $i <= 30; $i+= 1) {
	$Pdot=3;////Y line
		 if ($dotT[20]>0.5) {  //paper on the lead
 $Pdot=3;

 }
elseif ($TR15==0) { //CT10
$Pdot=6;	

} 
else {     //CT11
	$Pdot=7;

}	 
$padot=$Paperp;
 $Pdot=$Y100p;

	//$dotT[$idx+$cols*$Pdot+1]
	$si=0;

	for ($s=380; $s<=730; $s+=10) {
	//${'p'.$s}=abs($dotT[$idx+$si+1]);
	${'p'.$s}=abs($dotT[$idx+$cols*$padot+$si+1]);
	${'m'.$s}=abs($dotT[$idx+$cols*$Pdot+$si+1]);
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}
	$ki=$ki+0.015;

	${'y'.$i.'X'}=sp38XYZ("X",$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);

  // echo "y1D=".round(${'y'.$i.'dd'},3);
   }
   
   //////////////////////////////////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);
}
 
 $tt00=de76(55,-37,-50,54.3,-34.47,-52.63);
 $dek00=de00($kl,$ka,$kb,$kLm,$kam,$kbm);
 $dec00=de00($cl,$ca,$cb,$cLm,$cam,$cbm);
 //echo "<br>dec00:".$dec00;
  //$dec00=de76($cLt,$cat,$cbt,$cLm,$cam,$cbm);
 $dem00=de00($ml,$ma,$mb,$mLm,$mam,$mbm);
 $dey00=de00($yl,$ya,$yb,$yLm,$yam,$ybm);

  $dk176=de00($kl,$ka,$kb,$k1l,$k1a,$k1b);
  $dk276=de00($kl,$ka,$kb,$k2l,$k2a,$k2b);
  $dk376=de00($kl,$ka,$kb,$k3l,$k3a,$k3b);
  $dk476=de00($kl,$ka,$kb,$k4l,$k4a,$k4b);
  $dk576=de00($kl,$ka,$kb,$k5l,$k5a,$k5b);
  $dk676=de00($kl,$ka,$kb,$k6l,$k6a,$k6b);
  $dk776=de00($kl,$ka,$kb,$k7l,$k7a,$k7b);
  $dk876=de00($kl,$ka,$kb,$k8l,$k8a,$k8b);
  $dk976=de00($kl,$ka,$kb,$k9l,$k9a,$k9b);
  $dk1076=de00($kl,$ka,$kb,$k10l,$k10a,$k10b);
  $dk1176=de00($kl,$ka,$kb,$k11l,$k11a,$k11b);
  $dk1276=de00($kl,$ka,$kb,$k12l,$k12a,$k12b);
  $dk1376=de00($kl,$ka,$kb,$k13l,$k13a,$k13b);
  $dk1476=de00($kl,$ka,$kb,$k14l,$k14a,$k14b);
  $dk1576=de00($kl,$ka,$kb,$k15l,$k15a,$k15b);
  $dk1676=de00($kl,$ka,$kb,$k16l,$k16a,$k16b);
  $dk1776=de00($kl,$ka,$kb,$k17l,$k17a,$k17b);
  $dk1876=de00($kl,$ka,$kb,$k18l,$k18a,$k18b);
  $dk1976=de00($kl,$ka,$kb,$k19l,$k19a,$k19b);
  $dk2076=de00($kl,$ka,$kb,$k20l,$k20a,$k20b);
  $dk2176=de00($kl,$ka,$kb,$k21l,$k21a,$k21b);
  $dk2276=de00($kl,$ka,$kb,$k22l,$k22a,$k22b);
  $dk2376=de00($kl,$ka,$kb,$k23l,$k23a,$k23b);
  $dk2476=de00($kl,$ka,$kb,$k24l,$k24a,$k24b);
  $dk2576=de00($kl,$ka,$kb,$k25l,$k25a,$k25b);
  $dk2676=de00($kl,$ka,$kb,$k26l,$k26a,$k26b);
  $dk2776=de00($kl,$ka,$kb,$k27l,$k27a,$k27b);
  $dk2876=de00($kl,$ka,$kb,$k28l,$k28a,$k28b);
  $dk2976=de00($kl,$ka,$kb,$k29l,$k29a,$k29b);
  $dk3076=de00($kl,$ka,$kb,$k30l,$k30a,$k30b);
  $kmin=min($dk176,$dk276,$dk376,$dk476,$dk576,$dk676,$dk776,$dk876,$dk976,$dk1076,$dk1176,$dk1276,$dk1376,$dk1476,$dk1576,$dk1676,$dk1776,$dk1876,$dk1976,$dk2076,$dk2176,$dk2276,$dk2376,$dk2476,$dk2576,$dk2676,$dk2776,$dk2876,$dk2976,$dk3076);
  
  
 // $dk194=de94($kl,$ka,$kb,$k1l,$k1a,$k1b);
  

  ?>



<?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);
  $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='+';}}?>





  
   <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,$cdm);
$datayT = array($cmin,15);
//echo "dec00:".$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);

if ($dec00>5) {
$sp1->SetColor("red");
}
else {
$sp1->SetColor("black");
}

$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,4.5,'#ff9900'); 
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);

$graph->Add($sp1);
$graph->Add($sp2);
$graph->Stroke('scatterC.png');

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


$datax = array($m1dd,$m2dd,$m3dd,$m4dd,$m5dd,$m6dd,$m7dd,$m8dd,$m9dd,$m10dd,$m11dd,$m12dd,$m13dd,$m14dd,$m15dd,$m16dd,$m17dd,$m18dd,$m19dd,$m20dd,$m21dd,$m22dd,$m23dd,$m24dd,$m25dd,$m26dd,$m27dd,$m28dd,$m29dd,$m30dd);
$datay = array($dm176,$dm276,$dm376,$dm476,$dm576,$dm676,$dm776,$dm876,$dm976,$dm1076,$dm1176,$dm1276,$dm1376,$dm1476,$dm1576,$dm1676,$dm1776,$dm1876,$dm1976,$dm2076,$dm2176,$dm2276,$dm2376,$dm2476,$dm2576,$dm2676,$dm2776,$dm2876,$dm2976,$dm3076);
$dataxT = array($moptD,$mdm);
$datayT = array($mmin,15);

$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);
if ($dem00>5) {
$sp1->SetColor("red");
}
else {
$sp1->SetColor("black");
}
$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,4.5,'#ff9900'); 
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);


$graph->Add($sp1);
$graph->Add($sp2);
$graph->Stroke('scatterM.png');

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


$datax = array($y1dd,$y2dd,$y3dd,$y4dd,$y5dd,$y6dd,$y7dd,$y8dd,$y9dd,$y10dd,$y11dd,$y12dd,$y13dd,$y14dd,$y15dd,$y16dd,$y17dd,$y18dd,$y19dd,$y20dd,$y21dd,$y22dd,$y23dd,$y24dd,$y25dd,$y26dd,$y27dd,$y28dd,$y29dd,$y30dd);
$datay = array($dy176,$dy276,$dy376,$dy476,$dy576,$dy676,$dy776,$dy876,$dy976,$dy1076,$dy1176,$dy1276,$dy1376,$dy1476,$dy1576,$dy1676,$dy1776,$dy1876,$dy1976,$dy2076,$dy2176,$dy2276,$dy2376,$dy2476,$dy2576,$dy2676,$dy2776,$dy2876,$dy2976,$dy3076);
$dataxT = array($yoptD,$ydm);
$datayT = array($ymin,15);

$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);
if ($dey00>5) {
$sp1->SetColor("red");
}
else {
$sp1->SetColor("black");
}
$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,4.5,'#ff9900'); 
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);

$graph->Add($sp1);
$graph->Add($sp2);
$graph->Stroke('scatterY.png');

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


$datax = array($k1dd,$k2dd,$k3dd,$k4dd,$k5dd,$k6dd,$k7dd,$k8dd,$k9dd,$k10dd,$k11dd,$k12dd,$k13dd,$k14dd,$k15dd,$k16dd,$k17dd,$k18dd,$k19dd,$k20dd,$k21dd,$k22dd,$k23dd,$k24dd,$k25dd,$k26dd,$k27dd,$k28dd,$k29dd,$k30dd);
$datay = array($dk176,$dk276,$dk376,$dk476,$dk576,$dk676,$dk776,$dk876,$dk976,$dk1076,$dk1176,$dk1276,$dk1376,$dk1476,$dk1576,$dk1676,$dk1776,$dk1876,$dk1976,$dk2076,$dk2176,$dk2276,$dk2376,$dk2476,$dk2576,$dk2676,$dk2776,$dk2876,$dk2976,$dk3076);

//print_r($datax);
$dataxT = array($koptD,$kdm);
$datayT = array($kmin,15);


$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);
if ($dek00>5) {
$sp1->SetColor("red");
}
else {
$sp1->SetColor("black");
}
$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,4.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>
</table>
   
   
 <?php


		// generate and execute query
		$querys = "select po, sNo from production where po='$po' ORDER BY id DESC LIMIT 1 ";
		
		//$results = mysql_query($querys) or die ("Error in query: $querys. " . mysql_error());
	$results =  mysqli_query($conn, $query);
		$num = mysqli_num_rows( $results);
	if ($num > 0)
	{		
		$row = mysqli_fetch_object($results);	
		$sNo=$row->sNo+1;}
	else {	$sNo=1;}
  
	//	mysql_close($link);
?>		
   
   
   
   
   
   

   
   
   
   
   <?php
   
  ////////////////////////c50
   $Pdot=5;
    if ($dotT[20]>0.5) {  //paper on the lead
 $Pdot=5;}
elseif ($TR15==0) { //CT10
$Pdot=4;	
} 
else {     //CT11
	$Pdot=5;
}	

  $Pdot=$C50p; 
	$c50Xm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$c50Ym=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$c50Zm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$c50Lm=xyz2lab01("l",$c50Xm,$c50Ym,$c50Zm);
	$c50am=xyz2lab01("a",$c50Xm,$c50Ym,$c50Zm);
	$c50bm=xyz2lab01("b",$c50Xm,$c50Ym,$c50Zm);
	
   	$c50dm=DensitySp38("C",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
 
  $c50TV=(((1-(pow(10,(-($c50dm-$Pdm)))))/(1-(pow(10,(-($cdm-$Pdm)))))))*100;
  if ($target=='Fogra39' or $target=='Fogra39SCCA') {
 $c50TVI=round(($c50TV-64),2);}
   elseif ($target=='Fogra47') {
 $c50TVI=round(($c50TV-70),2);}
    elseif ($target=='CRPC6') {
 $c50TVI=round(($c50TV-66),2);}

 //echo "c50dm:".$c50dm."TV=".$c50TVI."__<br>";
   
    ////////////////////////m50
   $Pdot=6;
    if ($dotT[20]>0.5) {  //paper on the lead
 $Pdot=6;}
elseif ($TR15==0) { //CT10
$Pdot=3;	
} 
else {     //CT11
	$Pdot=4;
}	

  $Pdot=$M50p;
  
	$m50Xm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$m50Ym=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$m50Zm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$m50Lm=xyz2lab01("l",$m50Xm,$m50Ym,$m50Zm);
	$m50am=xyz2lab01("a",$m50Xm,$m50Ym,$m50Zm);
	$m50bm=xyz2lab01("b",$m50Xm,$m50Ym,$m50Zm);
	

   	$m50dm=DensitySp38("M",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
 
  $m50TV=(((1-(pow(10,(-($m50dm-$Pdm)))))/(1-(pow(10,(-($mdm-$Pdm)))))))*100;
   if ($target=='Fogra39' or $target=='Fogra39SCCA') {
 $m50TVI=round(($m50TV-64),2);}
 elseif ($target=='Fogra47') {
 $m50TVI=round(($m50TV-70),2);}
     elseif ($target=='CRPC6') {
 $m50TVI=round(($m50TV-66),2);}

 //echo "m50dm:".$m50dm."TV=".$m50TVI."__<br>";

    ////////////////////////y50
   $Pdot=7;
    if ($dotT[20]>0.5) {  //paper on the lead
 $Pdot=7;}
elseif ($TR15==0) { //CT10
$Pdot=2;	
} 
else {     //CT11
	$Pdot=3;
}	

  $Pdot=$Y50p;
	$y50Xm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$y50Ym=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$y50Zm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$y50Lm=xyz2lab01("l",$y50Xm,$y50Ym,$y50Zm);
	$y50am=xyz2lab01("a",$y50Xm,$y50Ym,$y50Zm);
	$y50bm=xyz2lab01("b",$y50Xm,$y50Ym,$y50Zm);
	
   	$y50dm=DensitySp38("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
 
  $y50TV=(((1-(pow(10,(-($y50dm-$Pdm)))))/(1-(pow(10,(-($ydm-$Pdm)))))))*100;
 if ($target=='Fogra39' or $target=='Fogra39SCCA') {
 $y50TVI=round(($y50TV-64),2);}
 elseif ($target=='Fogra47') {
 $y50TVI=round(($y50TV-70),2);}
     elseif ($target=='CRPC6') {
 $y50TVI=round(($y50TV-66),2);}
 
 //echo "y50dm:".$y50dm."TV=".$y50TVI."__<br>";
 
     ////////////////////////k50
   $Pdot=8;
 if ($dotT[20]>0.5) {  //paper on the lead
 $Pdot=8;}
elseif ($TR15==0) { //CT10
$Pdot=1;	
} 
else {     //CT11
	$Pdot=2;
}	

  $Pdot=$K50p;
   	$k50Xm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$k50Ym=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$k50Zm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$k50Lm=xyz2lab01("l",$k50Xm,$k50Ym,$k50Zm);
	$k50am=xyz2lab01("a",$k50Xm,$k50Ym,$k50Zm);
	$k50bm=xyz2lab01("b",$k50Xm,$k50Ym,$k50Zm);
   	$k50dm=DensitySp38("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);
 
  $k50TV=(((1-(pow(10,(-($k50dm-$Pdm)))))/(1-(pow(10,(-($kdm-$Pdm)))))))*100;
 if ($target=='Fogra39' or $target=='Fogra39SCCA'){
 $k50TVI=round(($k50TV-67),2);}
  elseif ($target=='Fogra47'){
 $k50TVI=round(($k50TV-72),2);}
     elseif ($target=='CRPC6') {
 $k50TVI=round(($k50TV-69),2);}

 //echo "k50dm:".$k50dm."TV=".$k50TVI."__<br>";
 // echo "note 2k: k50Lm:".$k50Lm."_k50a:".$k50am."_k50b:".$k50bm."__<br>";
 ////////////////////////////gray
 $Pdot=9;	
 if ($dotT[20]>0.5) {  //paper on the lead
 $Pdot=9;}
elseif ($TR15==0) { //CT10
$Pdot=0;	
} 
else {     //CT11
	$Pdot=1;
}	

  $Pdot=$grayp;
	$gXm=sp38XYZ("X",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$gYm=sp38XYZ("Y",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$gZm=sp38XYZ("Z",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

	$gLm=xyz2lab01("l",$gXm,$gYm,$gZm);
	$gam=xyz2lab01("a",$gXm,$gYm,$gZm);
	$gbm=xyz2lab01("b",$gXm,$gYm,$gZm);
	
	$gdm=DensitySp38("K",$dotT[$idx+$cols*$Pdot+1],$dotT[$idx+$cols*$Pdot+2],$dotT[$idx+$cols*$Pdot+3],$dotT[$idx+$cols*$Pdot+4],$dotT[$idx+$cols*$Pdot+5],$dotT[$idx+$cols*$Pdot+6],$dotT[$idx+$cols*$Pdot+7],$dotT[$idx+$cols*$Pdot+8],$dotT[$idx+$cols*$Pdot+9],$dotT[$idx+$cols*$Pdot+10],$dotT[$idx+$cols*$Pdot+11],$dotT[$idx+$cols*$Pdot+12],$dotT[$idx+$cols*$Pdot+13],$dotT[$idx+$cols*$Pdot+14],$dotT[$idx+$cols*$Pdot+15],$dotT[$idx+$cols*$Pdot+16],$dotT[$idx+$cols*$Pdot+17],$dotT[$idx+$cols*$Pdot+18],$dotT[$idx+$cols*$Pdot+19],$dotT[$idx+$cols*$Pdot+20],$dotT[$idx+$cols*$Pdot+21],$dotT[$idx+$cols*$Pdot+22],$dotT[$idx+$cols*$Pdot+23],$dotT[$idx+$cols*$Pdot+24],$dotT[$idx+$cols*$Pdot+25],$dotT[$idx+$cols*$Pdot+26],$dotT[$idx+$cols*$Pdot+27],$dotT[$idx+$cols*$Pdot+28],$dotT[$idx+$cols*$Pdot+29],$dotT[$idx+$cols*$Pdot+30],$dotT[$idx+$cols*$Pdot+31],$dotT[$idx+$cols*$Pdot+32],$dotT[$idx+$cols*$Pdot+33],$dotT[$idx+$cols*$Pdot+34],$dotT[$idx+$cols*$Pdot+35],$dotT[$idx+$cols*$Pdot+36]);

 // echo "note 2k: gL:".$gLm."_ga:".$gam."_gb:".$gbm."__gdm:".$gdm."__<br>";


 
  

  


function de94($l1,$a1,$b1,$l2,$a2,$b2) {
  $cp=SQRT(pow($a1,2)+pow($b1,2));
  $ctp=SQRT(pow($a2,2)+pow($b2,2));
  $d76=sqrt(pow(($l1-$l2),2)+ pow(($a1-$a2),2)+pow(($b1-$b2),2));
  $dph=SQRT(ABS(pow($d76,2)-pow(($l1-$l2),2)-pow((SQRT(pow($a1,2)+pow($b1,2))-SQRT(pow($a2,2)+pow($b2,2))),2)));
  $dcp=$ctp-$cp;
  $d94=SQRT((pow((($l1-$l2)/(1*1)),2))+pow(($dcp/(1*(1+(0.045*$cp)))),2)+ pow(($dph/(1*(1+(0.015*$cp)))),2));
  return round($d94,2);
} 


  $dp76=de76($pl,$pa,$pb,$PLm,$Pam,$Pbm);
  $dc76=de76($cl,$ca,$cb,$cLm,$cam,$cbm);
  $dm76=de76($ml,$ma,$mb,$mLm,$mam,$mbm);
  $dy76=de76($yl,$ya,$yb,$yLm,$yam,$ybm);
  $dk76=de76($kl,$ka,$kb,$kLm,$kam,$kbm);
  
 ///uvcut fix 
//    if (($dotT[17]-$dotT[20])>0) {
//$gbm=$gbm;
//$gam=$gam;
//}
//else {
//$gam=$gam+0.07;
//$gbm=$gbm-0.85;
//}

//echo "PYm:".$PYm;
if ($dotT[457]<>'') { 
//echo "go ydm";
$Yd=$DYm;}
else {
$Yd=0.038003;
//echo "no ydm";
}

 //////////////////////////////////////////// cmy L
   $GTV=50;
  $GTVI50=24.321*(-4*$GTV/100*(($GTV/100)-1))+2.246*(21*$GTV/100*(($GTV/100)-1)*(($GTV/100)-0.5))+0.67*(-64*$GTV/100*(($GTV/100)-1)*pow((($GTV/100)-0.5),2));
 $Yr50= 1-0.956649*(($GTV+$GTVI50)/100);
 $Rr=0.956649;
 $Ra=1-($Yd/$PYm);
 $Yc=pow((0.7+0.3*pow(($Yd/$PYm),(1/3))),3);
  

  
$NPD50=-log10($Yr50-($Ra-$Rr)*pow((($Yc-$Yr50)/($Yc-1+$Rr)),(($Ra/2)+1)));
//$NPD50=-log10($Yr50);
// $NPD50=0.539;
 $GrayL=round(pow(10,(-$NPD50/3))*($PLm+16)-16,2) ;
 // echo "GTV50:.".$GTVI50."NPD50:.".$NPD50."Yr50:.".$Yr50."Yc:.".$Yc."GrayL:.".$GrayL;
 /////////////////////////////////////////////////////////////////////////cmyL 
  
  ////////////////////////////////////////////  K from FanGraph
  
  
 if  ($kdm-$Pdm>1.69) {
	$k50dT=0.5;}
 else {
 $k50dT=0.0562*$kdm+0.405; 
 }
 
  if  ($Ddm-$Pdm>1.37) {
	$D50dT=0.54;}
 else {
 $D50dT=0.1707*$kdm+0.3061; 
 }
 

  //echo "<br>kdm:".($kdm-$Pdm)."k50dT:.".$k50dT."k50dM:.".$k50dm;
//  echo "<br>Ddm:".($Ddm-$Pdm)."D50dT:.".$D50dT;
 /////////////////////////////////////////////////////////////////////////cmyL  
 

 
  

 if ($TR15==1) {
 //$GrayL=$GrayL ;
 	 if ($target=="Fogra39") {
	$GrayL=$GrayL; 
	$GrayL=58; 
	}
	elseif ($target=="Fogra47") {
	$GrayL=$GrayL; }
 
 $k50dT=$k50dT;
 }
 else {
	 if ($target=="Fogra39") {
	$GrayL=58; }
	elseif ($target=="Fogra47") {
	$GrayL=59; }
 $k50dT=0.5;
 }
 
 
 
if ($target=="Fogra39" || $target=="CRPC6") {
	$GrayL=58; }
	elseif ($target=="Fogra47") {
	$GrayL=59; }
 
 
 //echo "final gray:" .$GrayL;
  $dgl= $GrayL-$gLm;
  $dga=($Pam/2)-$gam;
  $dgb=($Pbm/2)-$gbm;
  $df=sqrt(pow($dga,2)+pow($dgb,2));
  

  	$dt=50;
	$wa=$Pam*(100-$dt)/100;
	$wb=$Pbm*(100-$dt)/100;
	//$df= pow((pow(($gam-$wa),2))+(pow(($gbm-$wb),2)),0.5)*(1-max(0,($dt-50)/50*0.75));
	//$df50=$df;
 // echo "df".$df."<br>";
 
  ?>
  
 <table>
<div>
<?php

include 'graphFix.php';
GenGraphT($c50TVI,$m50TVI,$y50TVI,$k50TVI);
?>


</div>
</table> 

  
   	<table width="200" border="1" align="center">

    
    


<?php 
//////////////////chroma section

  //$cl=55.10; $ca=-37.0;$cb=-50;
  //$ml=48; $ma=74;$mb=-3;
  //$yl=89; $ya=-5;$yb=93;
  //$kl=16; $ka=0.01;$kb=0.01;

$chromeC=pow((pow($ca,2)+pow($cb,2)),0.5) ;
$chromeM=pow((pow($ma,2)+pow($mb,2)),0.5) ;
$chromeY=pow((pow($ya,2)+pow($yb,2)),0.5) ;
$levelK=$kl  ;

$chromeCm=pow((pow($cam,2)+pow($cbm,2)),0.5) ;
$chromeMm=pow((pow($mam,2)+pow($mbm,2)),0.5) ;
$chromeYm=pow((pow($yam,2)+pow($ybm,2)),0.5) ;
$levelKm=$kLm;

$dChromeC=$chromeCm-$chromeC;
$dChromeM=$chromeMm-$chromeM;
$dChromeY=$chromeYm-$chromeY;
$dLevelK=$levelKm-$levelK;

//echo "ChromC:".$chromeC."ChromCm:".$chromeCm."<br>";
//echo "ChromM:".$chromeM."ChromMm:".$chromeMm."<br>";
//echo "ChromY:".$chromeY."ChromY:".$chromeYm."<br>";
//echo "LevelK:".$levelK."LevelKm:".$levelKm."<br>";

//$sum=$sum-$dc76;
//$sum=$sum-$dm76;
//$sum=$sum-$dy76;
//$sum=$sum-$dk76;

if ($dChromeC<0 or $dc76>5) {$sum=$sum-$dc76;} else {$sum=$sum-0;} 
if ($dChromeM<0 or $dm76>5) {$sum=$sum-$dm76;} else {$sum=$sum-0;} 
if ($dChromeY<0 or $dy76>5) {$sum=$sum-$dy76;} else {$sum=$sum-0;} 
if ($dLevelK>0 or $dk76>5) {$sum=$sum-$dk76;} else {$sum=$sum-0;} 


//$sum=$sum-abs($c50TVI)*1;
//$sum=$sum-abs($m50TVI)*1;
//$sum=$sum-abs($y50TVI)*1;
$sum=$sum-abs($k50TVI)*2;
$sum=$sum-$df*6; 
$sum=$sum-abs($dgl)*2; 


/////////////////////////////////////////////////// gray rule
$dL=($gLm-$GrayL);
$da=$gam-($Pam/2);
$db=$gbm-($Pbm/2);

if (($PLm-$DLm)>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

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


$TL=$GrayL;
$Ta=($Pam/2);
$Tb=($Pbm/2);

$ML=$gLm;
$Ma=$gam;
$Mb=$gbm;

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

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

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

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

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

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

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

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

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



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

//echo "mdexT:".$mddexT;

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


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

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

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

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

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

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

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

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

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



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

//echo "mdexM:".$mddexM;
//echo "<br>deT=".$deT."_deM=".$deM;
if ($deT<$deM){
	$FinalF=$mddexT;
	$dotF=explode("-", $FinalF);////Measure upload
	//print_r($dotF);
	$FC=50-$dotF[0];
	$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;
}
//echo "FC:".$FC;
//echo "FM:".$FM;
//echo "FY:".$FY;

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

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

?>
	


</table>


 <table align="center">
<div>
<?php

//include 'graphFix.php';
//echo "<br>c50TVI:".$c50TVI."y50TVI".$y50TVI."m50TVI".$m50TVI;
GenGraphT($c50TVI,$m50TVI,$y50TVI,$k50TVI);

//GenGraphGT($c50dm-$dgc,$m50dm-$dgm,$y50dm-$dgy,$dk);
//echo "<br>k50Lm:".$k50Lm."k50T".$k50T."Pm".$Pdm;
GenGraphT2(-$FixC,-$FixM,-$FixY,($k50dm-$k50dT-$Pdm)*10);
GenGraph(-$FC*0.8,-$FM*0.8,-$FY*0.8,$k50TVI);
?>
<img src="graphT.gif?nocache=<?php echo time(); ?>">
<font size='+4'> <?php if ($sum<75) {echo '<font color="red">';  } else {echo '<font color="green">';} echo round($sum,2);?></font>
 <!--<img src="graphK.gif">

  <img src="graphT2.gif?nocache=<?php echo time(); ?>">-->
 <img src="graph.gif?nocache=<?php echo time(); ?>">

</div>
</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 ($dec00>3.5){echo "red";}else {echo "black";}?>'>C</td>
    <td><font color='<?php if ($dem00>3.5){echo "red";}else {echo "black";}?>'>M</td>
    <td><font color='<?php if ($dey00>3.5){echo "red";}else {echo "black";}?>'>Y</td>
    <td><font color='<?php if ($dek00>5){echo "red";}else {echo "black";}?>'>K</td>
	<td>TVI</td>
    <td><font color='<?php if ($c50TVI>4 or $c50TVI<-4){echo "red";}else {echo "black";}?>'>C50</td>
    <td><font color='<?php if ($m50TVI>4 or $m50TVI<-4){echo "red";}else {echo "black";}?>'>M50</td>
    <td><font color='<?php if ($y50TVI>4 or $y50TVI<-4){echo "red";}else {echo "black";}?>'>Y50</td>
    <td><font color='<?php if ($k50TVI>4 or $k50TVI<-4){echo "red";}else {echo "black";}?>'>K50</td>
	<td>G7</td>
    <td><font color='<?php if ((abs($dgl)>2.5)){echo "red";}else {echo "black";}?>'>GL</td>
	<td><font color='<?php if ($df>2.5){echo "red";}else {echo "black";}?>'>Ga</td>
	<td><font color='<?php if ($df>2.5){echo "red";}else {echo "black";}?>'>Gb</td>
	<td><font color='<?php if ($df>2.5){echo "red";}else {echo "black";}?>'>df</td>
  </tr>
    

	
<tr bgcolor="#aaaaaa">
<td><div align="center">色差</div></td>
<td bgcolor="#CCCCCC"><font color='<?php if ($dp76>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($dp76,2);?></a> </div></td>

<td bgcolor="#00FFFF"><font color='<?php if ($dec00>3.5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($cLm,0).",".round($cam,0).",".round($cbm,0);?>"><?php echo  round($dec00,2);?></a> </div></td>
<td bgcolor="#FF99FF"><font color='<?php if ($dem00>5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($mLm,0).",".round($mam,0).",".round($mbm,0);?>"><?php  echo  round($dem00,2);?></a></div></td>
<td bgcolor="#FFFF99"><font color='<?php if ($dey00>5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($yLm,0).",".round($yam,0).",".round($ybm,0);?>"><?php  echo  round($dey00,2);?></a></div></td>
<td bgcolor="#aaaaaa"><font color='<?php if ($dek00>5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($kLm,0).",".round($kam,0).",".round($kbm,0);?>"><?php  echo  round($dek00,2);?></a></div></td>
<td bgcolor="#ffffff">TVI</td>
<td bgcolor="#00FFFF"><font color='<?php if ($c50TVI>4 or $c50TVI<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php echo  round($c50TVI,2);?></div></td>
<td bgcolor="#FF99FF"><font color='<?php if ($m50TVI>4 or $m50TVI<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php echo  round($m50TVI,2);?></div></td>
<td bgcolor="#FFFF99"><font color='<?php if ($y50TVI>4 or $y50TVI<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php echo  round($y50TVI,2);?></div></td>
<td bgcolor="#aaaaaa"><font color='<?php if ($k50TVI>4 or $k50TVI<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php  echo  round($k50TVI,2);?></div></td>
<td bgcolor="#ffffff">G7</td>
<td><div align="right"><font color='<?php if ($dgl>2.5){echo "red";}else {echo "black";}?>'><a href=" " title="<?php echo round($dgd,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>
</tr>


<tr>
<td><div align="center">量測濃度</div></td>
<td bgcolor="#CCCCCC"></td>
<td bgcolor="#00FFFF"><div align="right"><font color='<?php if ($dec00>3.5){echo "red";}else {echo "black";}?>'><?php echo round($cdm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><font color='<?php if ($dem00>3.5){echo "red";}else {echo "black";}?>'><?php echo round($mdm,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><font color='<?php if ($dey00>3.5){echo "red";}else {echo "black";}?>'><?php echo round($ydm,2);?></div></td>
<td bgcolor="#daffc2"><div align="right"><font color='<?php if ($dek00>5){echo "red";}else {echo "black";}?>'><?php echo round($kdm,2);?></div></td>
<td>TVI濃度</td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($c50dm-$Pdm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($m50dm-$Pdm,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($y50dm-$Pdm,2);?></div></td>
<td bgcolor="#daffc2"><div align="right"><b><?php echo round($k50dm-$Pdm,2);?></div></td>
<td>G7量測</td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($gLm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($gam,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($gbm,2);?></div></td>
<td bgcolor="#cccccc"><div align="right"><font color='<?php if (abs($dgl)>2.5){echo "red";}else {echo "black";}?>'><b><?php echo round($gdm-$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="#daffc2"><div align="right"><?php echo round($koptD,2);?></div></td>
<td><?php echo"分數:<br>". round($sum,2);?></td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($dgc-$Pdm,2);  ?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($dgm-$Pdm,2);  ?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($dgy-$Pdm,2);  ?></div></td>
<td bgcolor="#daffc2"><div align="right"><b><?php echo round($k50dT,2);?></div></td>
<td>G7目標</td>
<td bgcolor="#00FFFF"><div align="right" ><?php echo $GrayL;?></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" ><b><?php echo "0.54";?></div></td>
</tr>
<tr>
<td><div align="center">最佳色差</div></td>
<td bgcolor="#CCCCCC"></td>

<td bgcolor="#00FFFF"><div align="right"><?php if ($cmin>3.5) {?><font color="red"><?php } echo round($cmin,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php if ($mmin>3.5) {?><font color="red"><?php } echo round($mmin,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php if ($ymin>3.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>
<input type="submit" name="submit" value="Set OK">
</td>
<td>
<td>
<a href="list.php?<?php echo "dFile=".$filename;?>">補償</a>
</td>

<?php

//$dem00=4;
$errcount=0;
$errbit=0;
$dlmessage='';
$csidbit=0;$msidbit=0;$ysidbit=0;$ksidbit=0;
$cTVbit=0;$mTVbit=0;$yTVbit=0;$kTVbit=0;
$csidbit2=0;$msidbit2=0;$ysidbit2=0;$ksidbit2=0;
$cTVbit2=0;$mTVbit2=0;$yTVbit2=0;$kTVbit2=0;

if ($dec00>3) {$csidbit=1;}
if ($dem00>3) {$msidbit=1;}
if ($dey00>3) {$ysidbit=1;}
if ($dek00>4.7) {$ksidbit=1;}

if (abs($c50TVI)>5.5) {$cTVbit=1;}
if (abs($m50TVI)>5.5) {$mTVbit=1;}
if (abs($y50TVI)>5.5) {$yTVbit=1;}
if (abs($k50TVI)>5.5) {$kTVbit=1;}


if (abs($c50TVI)>4.5) {$cTVbit2=1;}
if (abs($m50TVI)>4.5) {$mTVbit2=1;}
if (abs($y50TVI)>4.5) {$yTVbit2=1;}
if (abs($k50TVI)>4.5) {$kTVbit2=1;}

if ($dec00>5) {$csidbit2=1;}
if ($dem00>5) {$msidbit2=1;}
if ($dey00>5) {$ysidbit2=1;}
if ($dek00>5) {$ksidbit2=1;}

 

if (($csidbit==1 and $cTVbit==0) or ($csidbit2==0 and $cTVbit2==1) ) {
	$errbit=1;
	$errcount=1;
	echo '<td><font color="red">C座警示!</font></td>';
	$dlmessage=$dlmessage."C座警示!";
}

if (($msidbit==1 and $mTVbit==0) or ($msidbit2==0 and $mTVbit2==1)) {
	$errbit=1;
	$errcount=1;
	echo '<td><font color="red">M座警示!</font></td>';
	$dlmessage=$dlmessage."M座警示!";
}

if (($ysidbit==1 and $yTVbit==0) or ($ysidbit2==0 and $yTVbit2==1)) {
	$errbit=1;
	$errcount=1;
	echo '<td><font color="red">Y座警示!</font></td>';
	$dlmessage=$dlmessage."Y座警示!";
}

if (($ksidbit==1 and $kTVbit==0) or ($ksidbit2==0 and $kTVbit2==1)) {
	$errbit=1;
	$errcount=1;
	echo '<td><font color="red">K座警示!</font></td>';
	$dlmessage=$dlmessage."K座警示!";
}

?>

 


</tr>

<?php 



	$querys = "select spcd, spmd, spyd,spkd from production where po='$po' and diff='1' ORDER BY id DESC LIMIT 1 ";	
	$results =  mysqli_query($conn, $querys);
		$num = mysqli_num_rows( $results);
	if ($num > 0)
	{		
$row = mysqli_fetch_object($results);	
		
echo '<tr>
<td><div align="center">濕墨濃度</div></td>
<td bgcolor="#CCCCCC"></td>

<td bgcolor="#00FFFF"><div align="right">'.round(($coptD+$row->spcd),2).'</div></td>
<td bgcolor="#FF99FF"><div align="right">'.round(($moptD+$row->spmd),2).'</div></td>
<td bgcolor="#FFFF99"><div align="right">'.round(($yoptD+$row->spyd),2).'</div></td>
<td bgcolor="#CCCCCC"><div align="right">'.round(($koptD+$row->spkd),2).'</div></td>
<td>

</td>
<td>
<td>
</td>
</tr>';
	}
?>

</table>
<tr></tr>

 <table>
<tr></tr>






<?php 
$reffile=

				$querys = "select po, sNo from production where po='$po' ORDER BY id DESC LIMIT 1 ";
		
	$results =  mysqli_query($conn, $querys);
		$num = mysqli_num_rows( $results);
	if ($num > 0)
	{		
$row = mysqli_fetch_object($results);	
		$sNo=$row->sNo+1;}
	else {	$sNo=1;}
	
	$querys = "select po, errcount from production where (po='$po' and errbit='1' and company='$company') ORDER BY id DESC LIMIT 1 ";
		
	$results =  mysqli_query($conn, $querys);
		$num = mysqli_num_rows($results);
	if ($num > 0)
	{		
$row = mysqli_fetch_object($results);	
		$errcount=$row->errcount+1;}	
	
	if ($errcount>10)	{
		$DH=date('H');
		$ddm=date('Y-m-d');
//$to = 'Undisclosed Recipients <[email protected]>';
	$to = "[email protected]";
	$dlsubject = $ddm.'-'.$DH."時"."-".'印機系統警示!';
	$dlmessage2 = $press.'印機系統警示!'. "\r\n" .$dlmessage . "\r\n".'https://pbn.com.tw/FograCT9/tvireport.php?f123=target.txt&tvifile='.$filename.'&company='.$company.'&target=Fogra39' ;
	//$message = '請執行';
	$headers = 'From: [email protected]' . "\r\n" .
    'Reply-To: [email protected]' ."\r\n";	
		
	sleep(1);
	
	mail($to, $dlsubject, $dlmessage2, $headers);
	$errcount=1;
}
define('TIMEZONE', 'Asia/Taipei');
date_default_timezone_set(TIMEZONE);	

$querys = "select po, sNo,filename  from production where po='$po' ORDER BY id DESC LIMIT 1 ";
		//echo "sql:".$querys;
	$results =  mysqli_query($conn, $querys);
		$num = mysqli_num_rows( $results);
		//$obj = mysqli_fetch_object($results);
		
	if ($num > 0)
	{
		
$row = mysqli_fetch_object($results);	
		$sqName=$row->filename;
		$sNo=$row->sNo+1;}
	else {	$sNo=1;}
//echo "sqName:".$sqName;
	if ($sqName<>$filename) {
		// generate and execute query
		$query = "INSERT INTO production (po, company,Fscore, sn, sNo, filename,  target, ddate, pdate, press, paper, ink , cmmt, pl,pa,pb,denC,denM,denY, denK, decc, dem, dey, dek,TVIc,TVIm, TVIy,TVIk,deg ,errbit,errcount) VALUES( '$po','$company','$sum', '$snstring','$sNo', '$filename','$target', CONVERT_TZ(NOW(),'+00:00','+08:00'), '$date_s', '$press', '$paper', '$ink', '$cmmt', '$PLm', '$Pam', '$Pbm','$cdm','$mdm', '$ydm', '$kdm','$dec00','$dem00', '$dey00', '$dek00', '$c50dm', '$m50dm', '$y50dm', '$k50dm', '$deg', '$errbit', '$errcount')";
		
		//echo $query;
		$result = mysqli_query($conn, $query);
	}
		mysqli_close($conn);
		

 ?>

</form>
<?php
///////target process
 
?>
<table align='center'>

<tr>
<td align="center"><font size="-2"> &copy; <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>
</table>
</body>