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
$ pwd: C:/xampp/htdocs/FograCT9G7/
Upload Files
File: C:/xampp/htdocs/FograCT9G7/6pmmTVI-parsingCTOKXR.php
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Control-9 Check</title>
<style type="text/css">
<!--
body {
	font: 100% Verdana, Arial, Helvetica, sans-serif;
	background: #ffffff;
	margin: 0; /* 比較好的做法是將 Body 元素的邊界與欄位間隔調整為零，以處理不同的瀏覽器預設值 */
	padding: 0;
	text-align: center; /* 這樣會讓容器在 IE 5* 瀏覽器內置中對齊。然後，文字會在 #container 選取器中設定為靠左對齊預設值 */
	color: #000000;
}
.oneColElsCtr #container {
	width: 46em;
	background: #FFFFFF;
	margin: 0 auto; /* 自動邊界 (搭配寬度) 會讓頁面置中對齊 */
	border: 0px solid #000000;
	text-align: left; /* 這樣做會覆寫 Body 元素上的 text-align: center。 */
}
.oneColElsCtr #mainContent {
	padding: 0 20px; /* 請記住，欄位間隔就是 Div 方塊內部的空間，而邊界就是 Div 方塊外部的空間 */
}
-->
</style></head>

<body class="oneColElsCtr">
<?php
error_reporting(0);
$f123= $_GET['f123'];
$f321= $_GET['f321'];
$spl= $_GET['spl'];
$spa= $_GET['spa'];
$spb= $_GET['spb'];
$plC= $_GET['plC'];
$plM= $_GET['plM'];
$plY= $_GET['plY'];
$plK= $_GET['plK'];
$plS1= $_GET['plS1'];
$plS2= $_GET['plS2'];
$plS3= $_GET['plS3'];
$plS4= $_GET['plS4'];
$plS5= $_GET['plS5'];
$plS6= $_GET['plS6'];
$okName= $_GET['okName'];
$target='GRACoL2006';

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


$sum=110;
$check=1;
$dtime=time();
$dStr=substr($dtime,7,9)."-";


function get_between ($text, $s1, $s2) {
$mid_url = "";
$pos_s = strrpos($text,$s1);
$pos_e = strrpos($text,$s2);
for ( $i=$pos_s+strlen($s1) ; (( $i<($pos_e)) && $i < strlen($text)) ; $i++ ) {
$mid_url .= $text[$i];
}
return $mid_url;
}



	  $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];
		$stringC = implode($contentT);
		
		$fMark = strrpos($stringC,'i1Profiler');
		//echo "fMark:".$fMark."<br>";
		$fMarkC = strrpos($stringC,'ColorPort');
		//echo "fMarkC:".$fMarkC."<br>";

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

$datastring=get_between($pt,"BEGIN_DATA","END_DATA");

$dotT = explode("	", $datastring);////Measure upload

//print_r ($dotT);
		


	  $contents = file($f123);
	  //echo substr('abcdef', 1, 3);  // bcd
	 // $filedb=substr($f123,7,45);
	 // $dbstr=explode("_", $filedb);
	  echo $dbstr[0]."XX".$dbstr[1]."XX".$dbstr[2]."XX".$dbstr[3];
		$string = implode($contents);
		//echo $contents[20]; 
$string = implode($contents);		
$p = ereg_replace("\r\n?", "	", $string);
$datastring0=get_between($p,"BEGIN_DATA","END_DATA");

$dot = explode("	", $datastring0);////Tartget.txt

//print_r ($dot);

	  

echo "dot86:".$dot[166]."xx";
if ($dot[26]=='0.120236') {  //1023
echo "content=0:";
echo "dotT86:".$dot[26];
?>
<form action="TVI-parsingCTOKXT.php?f123=<?php echo "target.txt".'&f321='.$_FILES["file"]["name"];?>" 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>

  </table>
	<p><p>
	

  


  <?php
  //////////////////////////////////////////////////Fogra Media Check
  $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;
  
  $rl=47.36;$ra=68.26;$rb=48.78;
  $grl=50.32;$gra=-68.42;$grb=24.99;
  $bl=24.23;$ba=17.21;$bb=-46.15;
  



  
  
    $PTL=95;$PTa=0.1;$PTb=-2;
  $RPCCl=55;$RPCCa=-37;$RPCCb=-50;
  $RPCMl=48;$RPCMa=74;$RPCMb=-3;
  $RPCYl=89;$RPCYa=-5;$RPCYb=93;
  $RPCKl=16;$RPCKa=0.01;$RPCKb=0.01;
  
  $RPCRl=47.36;$RPCRa=68.26;$RPCRb=48.78;
  $RPCGl=50.32;$RPCGa=-68.42;$RPCGb=24.9;
  $RPCBl=24.23;$RPCBa=17.21;$RPCBb=-46.15;
  
  include 'densityV38.php';
   include 'densityV.php';
  
  if ($fMark>0) { /////////////////////////////////////////////////////////////////////////////////////////// i1 profiler  go 572
$idx=6;
$cols=42;
}
elseif ($nm380>0) {  ///color port
$idx=9;
$cols=45;}
else{
$idx=9;
$cols=40;
}
  
  //$cols=40;
  $k1dd=0;
  $Pdot=0;	
  //echo "Paper X".$dotT[$idx+$cols*$Pdot+1]."<br>";
  if($cols==45) {
	$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]);
}
else {
	$PXm=spXYZ("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]);

	$PYm=spXYZ("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]);

	$PZm=spXYZ("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]);

	$PLm=xyz2lab01("l",$PXm,$PYm,$PZm);
	$Pam=xyz2lab01("a",$PXm,$PYm,$PZm);
	$Pbm=xyz2lab01("b",$PXm,$PYm,$PZm);
	
	$Pdm=DensitySp("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]);


}
$Xp=$PXm*100;
$Yp=$PYm*100;
$Zp=$PZm*100;
//////////////////////////////////////////////////////////////
$RPCCX=lab2xyz("x",$RPCCl,$RPCCa,$RPCCb);
$RPCCY=lab2xyz("y",$RPCCl,$RPCCa,$RPCCb);
$RPCCZ=lab2xyz("z",$RPCCl,$RPCCa,$RPCCb);

$scCX=SCCA06("x",$RPCCX,$Xp,$target);
$scCY=SCCA06("y",$RPCCY,$Yp,$target);
$scCZ=SCCA06("z",$RPCCZ,$Zp,$target);

$scCL=xyz2lab("l",$scCX,$scCY,$scCZ);
$scCa=xyz2lab("a",$scCX,$scCY,$scCZ);
$scCb=xyz2lab("b",$scCX,$scCY,$scCZ);
/////////////////////////////////////////////////////////////
$RPCMX=lab2xyz("x",$RPCMl,$RPCMa,$RPCMb);
$RPCMY=lab2xyz("y",$RPCMl,$RPCMa,$RPCMb);
$RPCMZ=lab2xyz("z",$RPCMl,$RPCMa,$RPCMb);

$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",$RPCYl,$RPCYa,$RPCYb);
$RPCYY=lab2xyz("y",$RPCYl,$RPCYa,$RPCYb);
$RPCYZ=lab2xyz("z",$RPCYl,$RPCYa,$RPCYb);

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

$scYL=xyz2lab("l",$scYX,$scYY,$scYZ);
$scYa=xyz2lab("a",$scYX,$scYY,$scYZ);
$scYb=xyz2lab("b",$scYX,$scYY,$scYZ);
////////////////////////////////////////////////////////////////////
$RPCKX=lab2xyz("x",$RPCKl,$RPCKa,$RPCKb);
$RPCKY=lab2xyz("y",$RPCKl,$RPCKa,$RPCKb);
$RPCKZ=lab2xyz("z",$RPCKl,$RPCKa,$RPCKb);

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

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


//////////////////////////////////////////////////////////////R
$RPCRX=lab2xyz("x",$RPCRl,$RPCRa,$RPCRb);
$RPCRY=lab2xyz("y",$RPCRl,$RPCRa,$RPCRb);
$RPCRZ=lab2xyz("z",$RPCRl,$RPCRa,$RPCRb);

$scRX=SCCA06("x",$RPCRX,$Xp,$target);
$scRY=SCCA06("y",$RPCRY,$Yp,$target);
$scRZ=SCCA06("z",$RPCRZ,$Zp,$target);

$scRL=xyz2lab("l",$scRX,$scRY,$scRZ);
$scRa=xyz2lab("a",$scRX,$scRY,$scRZ);
$scRb=xyz2lab("b",$scRX,$scRY,$scRZ);

//////////////////////////////////////////////////////////////G
$RPCGX=lab2xyz("x",$RPCGl,$RPCGa,$RPCGb);
$RPCGY=lab2xyz("y",$RPCGl,$RPCGa,$RPCGb);
$RPCGZ=lab2xyz("z",$RPCGl,$RPCGa,$RPCGb);

$scGX=SCCA06("x",$RPCGX,$Xp,$target);
$scGY=SCCA06("y",$RPCGY,$Yp,$target);
$scGZ=SCCA06("z",$RPCGZ,$Zp,$target);

$scGL=xyz2lab("l",$scGX,$scGY,$scGZ);
$scGa=xyz2lab("a",$scGX,$scGY,$scGZ);
$scGb=xyz2lab("b",$scGX,$scGY,$scGZ);

//////////////////////////////////////////////////////////////B
$RPCBX=lab2xyz("x",$RPCBl,$RPCBa,$RPCBb);
$RPCBY=lab2xyz("y",$RPCBl,$RPCBa,$RPCBb);
$RPCBZ=lab2xyz("z",$RPCBl,$RPCBa,$RPCBb);

$scBX=SCCA06("x",$RPCBX,$Xp,$target);
$scBY=SCCA06("y",$RPCBY,$Yp,$target);
$scBZ=SCCA06("z",$RPCBZ,$Zp,$target);

$scBL=xyz2lab("l",$scBX,$scBY,$scBZ);
$scBa=xyz2lab("a",$scBX,$scBY,$scBZ);
$scBb=xyz2lab("b",$scBX,$scBY,$scBZ);



?>
<table width="400" border="1" align="center">
  <tr>
	<td>
	<td colspan = "3">Original data</td>

	<td colspan = "3">SCCA data</td>

	</tr>
	<tr>
	<td>Paper</td>
	<td align='right'><?php echo  round($PTL,1);?></td>
	<td align='right'><?php echo  round($PTa,1);?></td>
	<td align='right'><?php echo  round($PTb,1);?></td>
	<td align='right'><?php echo  round($PLm,1);?></td>
	<td align='right'><?php echo  round($Pam,1);?></td>
	<td align='right'><?php echo  round($Pbm,1);?></td>
	</tr>
	<tr>
	<td bgcolor="#00FFFF">C</td>
	<td align='right' bgcolor="#00FFFF"><?php echo  round($RPCCl,1);?></td>
	<td align='right' bgcolor="#00FFFF"><?php echo  round($RPCCa,1);?></td>
	<td align='right' bgcolor="#00FFFF"><?php echo  round($RPCCb,1);?></td>
	<td align='right' bgcolor="#00FFFF"><?php echo  round($scCL,1);?></td>
	<td align='right' bgcolor="#00FFFF"><?php echo  round($scCa,1);?></td>
	<td align='right' bgcolor="#00FFFF"><?php echo  round($scCb,1);?></td>
	</tr>
		<tr>
	<td bgcolor="#FFCCFF">M</td>
	<td align='right' bgcolor="#FFCCFF"><?php echo  round($RPCMl,1);?></td>
	<td align='right' bgcolor="#FFCCFF"><?php echo  round($RPCMa,1);?></td>
	<td align='right' bgcolor="#FFCCFF"><?php echo  round($RPCMb,1);?></td>
	<td align='right' bgcolor="#FFCCFF"><?php echo  round($scML,1);?></td>
	<td align='right' bgcolor="#FFCCFF"><?php echo  round($scMa,1);?></td>
	<td align='right' bgcolor="#FFCCFF"><?php echo  round($scMb,1);?></td>
	</tr>
	<td bgcolor="#FFFF66">Y</td>
	<td align='right' bgcolor="#FFFF66"><?php echo  round($RPCYl,1);?></td>
	<td align='right' bgcolor="#FFFF66"><?php echo  round($RPCYa,1);?></td>
	<td align='right' bgcolor="#FFFF66"><?php echo  round($RPCYb,1);?></td>
	<td align='right' bgcolor="#FFFF66"><?php echo  round($scYL,1);?></td>
	<td align='right' bgcolor="#FFFF66"><?php echo  round($scYa,1);?></td>
	<td align='right' bgcolor="#FFFF66"><?php echo  round($scYb,1);?></td>
	</tr>
	<td bgcolor="#BBBBBB">K</td>
	<td align='right' bgcolor="#BBBBBB"><?php echo  round($RPCKl,1);?></td>
	<td align='right' bgcolor="#BBBBBB"><?php echo  round($RPCKa,1);?></td>
	<td align='right' bgcolor="#BBBBBB"><?php echo  round($RPCKb,1);?></td>
	<td align='right' bgcolor="#BBBBBB"><?php echo  round($scKL,1);?></td>
	<td align='right' bgcolor="#BBBBBB"><?php echo  round($scKa,1);?></td>
	<td align='right' bgcolor="#BBBBBB"><?php echo  round($scKb,1);?></td>
	</tr>
	<td bgcolor="#fa6b53">R</td>
	<td align='right' bgcolor="#fa6b53"><?php echo  round($RPCRl,1);?></td>
	<td align='right' bgcolor="#fa6b53"><?php echo  round($RPCRa,1);?></td>
	<td align='right' bgcolor="#fa6b53"><?php echo  round($RPCRb,1);?></td>
	<td align='right' bgcolor="#fa6b53"><?php echo  round($scRL,1);?></td>
	<td align='right' bgcolor="#fa6b53"><?php echo  round($scRa,1);?></td>
	<td align='right' bgcolor="#fa6b53"><?php echo  round($scRb,1);?></td>
	</tr>
		<td bgcolor="#8afa53">G</td>
	<td align='right' bgcolor="#8afa53"><?php echo  round($RPCGl,1);?></td>
	<td align='right' bgcolor="#8afa53"><?php echo  round($RPCGa,1);?></td>
	<td align='right' bgcolor="#8afa53"><?php echo  round($RPCGb,1);?></td>
	<td align='right' bgcolor="#8afa53"><?php echo  round($scGL,1);?></td>
	<td align='right' bgcolor="#8afa53"><?php echo  round($scGa,1);?></td>
	<td align='right' bgcolor="#8afa53"><?php echo  round($scGb,1);?></td>
	</tr>
		<td bgcolor="#5357fa">B</td>
	<td align='right' bgcolor="#5357fa"><?php echo  round($RPCBl,1);?></td>
	<td align='right' bgcolor="#5357fa"><?php echo  round($RPCBa,1);?></td>
	<td align='right' bgcolor="#5357fa"><?php echo  round($RPCBb,1);?></td>
	<td align='right' bgcolor="#5357fa"><?php echo  round($scBL,1);?></td>
	<td align='right' bgcolor="#5357fa"><?php echo  round($scBa,1);?></td>
	<td align='right' bgcolor="#5357fa"><?php echo  round($scBb,1);?></td>
	</tr>


	</table>





<?php
// echo "xyz x:".$PXm."_y:".$PYm."_z:".$PZm;	
// echo "dot-10:".$dotT[$idx+$cols*$Pdot+1]."_dot-40:".$dotT[$idx+$cols*$Pdot+31];
  //echo "<BR>Paper: PL:".$PLm."_Pa:".$Pam."_Pb:".$Pbm."__Pdm:".$Pdm."__<br>";
	//echo "<BR>C: cL:".$cLm."_Pa:".$Pam."_Pb:".$Pbm."__Pdm:".$Pdm."__<br>";


  /////////////////////////////////c
  
	  $Pdot=1;	
	  
	    if($cols==45) {
	//    echo "C X".$dotT[$idx+$cols*$Pdot+1]."<br>";
	$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]);
 }
 else {
	//    echo "C X".$dotT[$idx+$cols*$Pdot+1]."<br>";
	$cXm=spXYZ("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]);

	$cYm=spXYZ("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]);

	$cZm=spXYZ("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]);

	$cLm=xyz2lab01("l",$cXm,$cYm,$cZm);
	$cam=xyz2lab01("a",$cXm,$cYm,$cZm);
	$cbm=xyz2lab01("b",$cXm,$cYm,$cZm);
	
	$cdm=DensitySp("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]);
 }
 
 
 
 // echo "note 2k: CL:".$cLm."_Ca:".$cam."_Cb:".$cbm."__Pdm:".$cdm."__<br>";
  
 ///////////////////////////////////////////m
 
  $Pdot=2;	
  	    if($cols==45) {
	$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]);
	}
	else {
	$mXm=spXYZ("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]);

	$mYm=spXYZ("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]);

	$mZm=spXYZ("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]);

	$mLm=xyz2lab01("l",$mXm,$mYm,$mZm);
	$mam=xyz2lab01("a",$mXm,$mYm,$mZm);
	$mbm=xyz2lab01("b",$mXm,$mYm,$mZm);
	
	$mdm=DensitySp("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]);
	}
 // echo "note 2k: ML:".$mLm."_Ma:".$mam."_Mb:".$mbm."__Mdm:".$mdm."__<br>";
   
    ///////////////////////////////////////////y
  $Pdot=3;	
   if($cols==45) {
	$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]);
	}
	else {
	$yXm=spXYZ("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]);

	$yYm=spXYZ("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]);

	$yZm=spXYZ("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]);

	$yLm=xyz2lab01("l",$yXm,$yYm,$yZm);
	$yam=xyz2lab01("a",$yXm,$yYm,$yZm);
	$ybm=xyz2lab01("b",$yXm,$yYm,$yZm);
	
	$ydm=DensitySp("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]);
	}
//  echo "note 2k: YL:".$yLm."_Ya:".$yam."_Yb:".$ybm."__Ydm:".$ydm."__<br>";
   
       ///////////////////////////////////////////k 
  $Pdot=4;	
     if($cols==45) {
	$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]);
	}
	else {
	$kXm=spXYZ("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]);

	$kYm=spXYZ("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]);

	$kZm=spXYZ("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]);

	$kLm=xyz2lab01("l",$kXm,$kYm,$kZm);
	$kam=xyz2lab01("a",$kXm,$kYm,$kZm);
	$kbm=xyz2lab01("b",$kXm,$kYm,$kZm);
	
	$kdm=DensitySp("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]);
	}
 // echo "note 2k: KL:".$kLm."_Ka:".$kam."_Kb:".$kbm."__Kdm:".$kdm."__<br>";
   
   
   ///////////////////////////////////////////R
  $Pdot=10;	
     if($cols==45) {
	$rXm=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]);

	$rYm=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]);

	$rZm=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]);

	$rLm=xyz2lab01("l",$rXm,$rYm,$rZm);
	$ram=xyz2lab01("a",$rXm,$rYm,$rZm);
	$rbm=xyz2lab01("b",$rXm,$rYm,$rZm);
	
	$rdm=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]);
	}
	else {
	$rXm=spXYZ("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]);

	$rYm=spXYZ("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]);

	$rZm=spXYZ("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]);

	$rLm=xyz2lab01("l",$rXm,$rYm,$rZm);
	$ram=xyz2lab01("a",$rXm,$rYm,$rZm);
	$rbm=xyz2lab01("b",$rXm,$rYm,$rZm);
	
	$rdm=DensitySp("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]);
	}
 // echo "note 2k: KL:".$kLm."_Ka:".$kam."_Kb:".$kbm."__Kdm:".$kdm."__<br>";
   
   
      ///////////////////////////////////////////G
  $Pdot=11;	
     if($cols==45) {
	$grXm=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]);

	$grYm=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]);

	$grZm=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]);

	$grLm=xyz2lab01("l",$grXm,$grYm,$grZm);
	$gram=xyz2lab01("a",$grXm,$grYm,$grZm);
	$grbm=xyz2lab01("b",$grXm,$grYm,$grZm);
	
	$grdm=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]);
	}
	else {
	$grXm=spXYZ("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]);

	$grYm=spXYZ("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]);

	$grZm=spXYZ("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]);

	$grLm=xyz2lab01("l",$grXm,$grYm,$grZm);
	$gram=xyz2lab01("a",$grXm,$grYm,$grZm);
	$grbm=xyz2lab01("b",$grXm,$grYm,$grZm);
	
	$grdm=DensitySp("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]);
	}
 // echo "note 2k: KL:".$kLm."_Ka:".$kam."_Kb:".$kbm."__Kdm:".$kdm."__<br>";

 
   ///////////////////////////////////////////B
  $Pdot=12;	
     if($cols==45) {
	$bXm=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]);

	$bYm=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]);

	$bZm=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]);

	$bLm=xyz2lab01("l",$bXm,$bYm,$bZm);
	$bam=xyz2lab01("a",$bXm,$bYm,$bZm);
	$bbm=xyz2lab01("b",$bXm,$bYm,$bZm);
	
	$bdm=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]);
	}
	else {
	$bXm=spXYZ("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]);

	$bYm=spXYZ("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]);

	$bZm=spXYZ("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]);

	$bLm=xyz2lab01("l",$bXm,$bYm,$bZm);
	$bam=xyz2lab01("a",$bXm,$bYm,$bZm);
	$bbm=xyz2lab01("b",$bXm,$bYm,$bZm);
	
	$bdm=DensitySp("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]);
	}
 // echo "note 2k: KL:".$kLm."_Ka:".$kam."_Kb:".$kbm."__Kdm:".$kdm."__<br>"; 
 ///////////////////////////////////////////////////////////////////////////////////////////////////////////////
//   //////////////////////////////////Beer's Law section///////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
   ////////////////sec K
	$ki=0.820;
	
	for ( $i = 1; $i <= 30; $i+= 1) {
	$Pdot=4;////K line
	//$dotT[$idx+$cols*$Pdot+1]
	$si=0;
	if ($cols==45) {
	for ($s=380; $s<=730; $s+=10) {
	${'p'.$s}=$dotT[$idx+$si+1];
	${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}}
	else {
		for ($s=400; $s<=700; $s+=10) {
	${'p'.$s}=$dotT[$idx+$cols*($Pdot+2)+$si+1];
	${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}}
	
	$ki=$ki+0.015;
	if ($cols==45) { 
	${'k'.$i.'X'}=sp38XYZ("X",$r380,	$r390,	$r400,	$r410,	$r420,	$r430,	$r440,	$r450,	$r460,	$r470,	$r480,	$r490,	$r500,	$r510,	$r520,	$r530,	$r540,	$r550,	$r560,	$r570,	$r580,	$r590,	$r600,	$r610,	$r620,	$r630,	$r640,	$r650,	$r660,	$r670,	$r680,	$r690,	$r700,	$r710,	$r720,	$r730);
	${'k'.$i.'Y'}=sp38XYZ("Y",$r380,	$r390,	$r400,	$r410,	$r420,	$r430,	$r440,	$r450,	$r460,	$r470,	$r480,	$r490,	$r500,	$r510,	$r520,	$r530,	$r540,	$r550,	$r560,	$r570,	$r580,	$r590,	$r600,	$r610,	$r620,	$r630,	$r640,	$r650,	$r660,	$r670,	$r680,	$r690,	$r700,	$r710,	$r720,	$r730);

	${'k'.$i.'Z'}=sp38XYZ("Z",$r380,	$r390,	$r400,	$r410,	$r420,	$r430,	$r440,	$r450,	$r460,	$r470,	$r480,	$r490,	$r500,	$r510,	$r520,	$r530,	$r540,	$r550,	$r560,	$r570,	$r580,	$r590,	$r600,	$r610,	$r620,	$r630,	$r640,	$r650,	$r660,	$r670,	$r680,	$r690,	$r700,	$r710,	$r720,	$r730);	

	//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
	
	${'k'.$i.'l'}=xyz2lab01("l",${'k'.$i.'X'},${'k'.$i.'Y'},${'k'.$i.'Z'});
	${'k'.$i.'a'}=xyz2lab01("a",${'k'.$i.'X'},${'k'.$i.'Y'},${'k'.$i.'Z'});
	${'k'.$i.'b'}=xyz2lab01("b",${'k'.$i.'X'},${'k'.$i.'Y'},${'k'.$i.'Z'});
	
	//echo "K1L=".round($k1l,3).",".round($k1a,3).",".round($k1b,3);
	${'k'.$i.'dd'}=DensitySp38("K",$r380,	$r390,	$r400,	$r410,	$r420,	$r430,	$r440,	$r450,	$r460,	$r470,	$r480,	$r490,	$r500,	$r510,	$r520,	$r530,	$r540,	$r550,	$r560,	$r570,	$r580,	$r590,	$r600,	$r610,	$r620,	$r630,	$r640,	$r650,	$r660,	$r670,	$r680,	$r690,	$r700,	$r710,	$r720,	$r730);
	
	if ($i%5==0) {
	${'hexKa'.$i}=${'k'.$i.'a'};
	${'hexKb'.$i}=${'k'.$i.'b'};
	//echo "hex Ka=".${'hexKa'.$i};
	}
	
	//echo "K1D=".round(${'k'.$i.'dd'},3);
	}
	else {
	${'k'.$i.'X'}=spXYZ("X",$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);
	${'k'.$i.'Y'}=spXYZ("Y",$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);

	${'k'.$i.'Z'}=spXYZ("Z",$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);	

	//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'}=DensitySp("K",$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);	
	
	if ($i%5==0) {
	${'hexKa'.$i}=${'k'.$i.'a'};
	${'hexKb'.$i}=${'k'.$i.'b'};
	//echo "hex Ka=".${'hexKa'.$i};
	}
	//echo "<br>";
	
	}
	//echo "K1D=".round(${'k'.$i.'dd'},3);
	}
	//echo "<br>";
//////////////////////sec C
	$ki=0.820;
	for ( $i = 1; $i <= 30; $i+= 1) {
	$Pdot=1;////C line
	$si=0;
	if ($cols==45) { 
	for ($s=380; $s<=730; $s+=10) {
	${'p'.$s}=$dotT[$idx+$si+1];
	${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	//echo "paper Sp:".${'p'.$s};
	}}
	else {
	for ($s=400; $s<=700; $s+=10) {
	${'p'.$s}=$dotT[$idx+$si+1];
	${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	//echo "paper Sp:".${'p'.$s};
	}}
	$ki=$ki+0.015;
		if ($cols==45) { 
	${'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);
	}
	else { 
	${'c'.$i.'X'}=spXYZ("X",$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);
	${'c'.$i.'Y'}=spXYZ("Y",$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);

	${'c'.$i.'Z'}=spXYZ("Z",$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);	

	//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'}=DensitySp("C",$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);
	}	
	//echo "c1D=".round($c1dd,3);
		if ($i%5==0) {
	${'hexCa'.$i}=${'c'.$i.'a'};
	${'hexCb'.$i}=${'c'.$i.'b'};
	//echo "hex Ca Cb=".${'hexCa'.$i}."_".${'hexCb'.$i};
	}
	//echo "<br>";
	}
	//echo "<br>";
//////////////////////////sec M
	$ki=0.820;
	
	for ( $i = 1; $i <= 30; $i+= 1) {
	$Pdot=2;////M line
	$si=0;
	if ($cols==45) { 
	for ($s=380; $s<=730; $s+=10) {
	${'p'.$s}=$dotT[$idx+$si+1];
	${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}}
	else {
	for ($s=400; $s<=700; $s+=10) {
	${'p'.$s}=$dotT[$idx+$si+1];
	${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}}
	$ki=$ki+0.015;
	if ($cols==45) { 
	${'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);
	
	}
	else { 
	${'m'.$i.'X'}=spXYZ("X",$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);
	${'m'.$i.'Y'}=spXYZ("Y",$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);

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

	//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'}=DensitySp("M",$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);
	
	}
			if ($i%5==0) {
	${'hexMa'.$i}=${'m'.$i.'a'};
	${'hexMb'.$i}=${'m'.$i.'b'};
//	echo "hex Ma Mb=".${'hexMa'.$i}."_".${'hexMb'.$i};
	}
	//echo "m1D=".round(${'m'.$i.'dd'},3);
	}
 //echo "<br>";
///////////////////sec Y
	$ki=0.880;
	for ( $i = 1; $i <= 30; $i+= 1) {
	$Pdot=3;////Y line
	$si=0;
	if ($cols==45) { 
	for ($s=380; $s<=730; $s+=10) {
	${'p'.$s}=$dotT[$idx+$si+1];//paper
	${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}}
	else {
	for ($s=400; $s<=700; $s+=10) {
	${'p'.$s}=$dotT[$idx+$si+1];
	${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	}
	}
	$ki=$ki+0.015;
	if ($cols==45) { 
	${'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);
   }
   else{ 
	${'y'.$i.'X'}=spXYZ("X",$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);
	${'y'.$i.'Y'}=spXYZ("Y",$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);

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

	//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'}=DensitySp("Y",$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);
	//echo "K1D=".round($k1dd,3);
   }
   		if ($i%5==0) {
	${'hexYa'.$i}=${'y'.$i.'a'};
	${'hexYb'.$i}=${'y'.$i.'b'};
	//echo "hex Ya Yb=".${'hexYa'.$i}."_".${'hexYb'.$i};
	}
  // echo "y1D=".round(${'y'.$i.'dd'},3);
   }
   
   
   ////////////////sec R

	$ki=0.880;
	
	for ( $i = 1; $i <= 30; $i+= 1) {
	$Pdot=10;////R line
	$si=0;
	if ($cols==45) {
	for ($s=380; $s<=730; $s+=10) {
	${'p'.$s}=$dotT[$idx+$si+1];
	${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	//echo "paper Sp380:".${'p'.$s};
	}}
	else {
		for ($s=400; $s<=700; $s+=10) {
	${'p'.$s}=$dotT[$idx+$si+1];
	${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	//echo "paper Sp:".${'m'.$s};
	}}
	
	$ki=$ki+0.015;
	if ($cols==45) { 
	${'r'.$i.'X'}=sp38XYZ("X",$r380,	$r390,	$r400,	$r410,	$r420,	$r430,	$r440,	$r450,	$r460,	$r470,	$r480,	$r490,	$r500,	$r510,	$r520,	$r530,	$r540,	$r550,	$r560,	$r570,	$r580,	$r590,	$r600,	$r610,	$r620,	$r630,	$r640,	$r650,	$r660,	$r670,	$r680,	$r690,	$r700,	$r710,	$r720,	$r730);
	${'r'.$i.'Y'}=sp38XYZ("Y",$r380,	$r390,	$r400,	$r410,	$r420,	$r430,	$r440,	$r450,	$r460,	$r470,	$r480,	$r490,	$r500,	$r510,	$r520,	$r530,	$r540,	$r550,	$r560,	$r570,	$r580,	$r590,	$r600,	$r610,	$r620,	$r630,	$r640,	$r650,	$r660,	$r670,	$r680,	$r690,	$r700,	$r710,	$r720,	$r730);

	${'r'.$i.'Z'}=sp38XYZ("Z",$r380,	$r390,	$r400,	$r410,	$r420,	$r430,	$r440,	$r450,	$r460,	$r470,	$r480,	$r490,	$r500,	$r510,	$r520,	$r530,	$r540,	$r550,	$r560,	$r570,	$r580,	$r590,	$r600,	$r610,	$r620,	$r630,	$r640,	$r650,	$r660,	$r670,	$r680,	$r690,	$r700,	$r710,	$r720,	$r730);	

	//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
	
	${'r'.$i.'l'}=xyz2lab01("l",${'r'.$i.'X'},${'r'.$i.'Y'},${'r'.$i.'Z'});
	${'r'.$i.'a'}=xyz2lab01("a",${'r'.$i.'X'},${'r'.$i.'Y'},${'r'.$i.'Z'});
	${'r'.$i.'b'}=xyz2lab01("b",${'r'.$i.'X'},${'r'.$i.'Y'},${'r'.$i.'Z'});
	
	//echo "K1L=".round($k1l,3).",".round($k1a,3).",".round($k1b,3);
	${'r'.$i.'dd'}=DensitySp38("Y",$r380,	$r390,	$r400,	$r410,	$r420,	$r430,	$r440,	$r450,	$r460,	$r470,	$r480,	$r490,	$r500,	$r510,	$r520,	$r530,	$r540,	$r550,	$r560,	$r570,	$r580,	$r590,	$r600,	$r610,	$r620,	$r630,	$r640,	$r650,	$r660,	$r670,	$r680,	$r690,	$r700,	$r710,	$r720,	$r730);
	//echo "K1D=".round(${'k'.$i.'dd'},3);
	}
	else {
	${'r'.$i.'X'}=spXYZ("X",$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);
	${'r'.$i.'Y'}=spXYZ("Y",$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);

	${'r'.$i.'Z'}=spXYZ("Z",$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);	

	//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
	
	${'r'.$i.'l'}=xyz2lab01("l",${'r'.$i.'X'},${'r'.$i.'Y'},${'r'.$i.'Z'});
	${'r'.$i.'a'}=xyz2lab01("a",${'r'.$i.'X'},${'r'.$i.'Y'},${'r'.$i.'Z'});
	${'r'.$i.'b'}=xyz2lab01("b",${'r'.$i.'X'},${'r'.$i.'Y'},${'r'.$i.'Z'});
	
	//echo "R1L=".round(${'r'.$i.'l'},3).",".round(${'r'.$i.'a'},3).",".round(${'r'.$i.'b'},3);
	${'r'.$i.'dd'}=DensitySp("Y",$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);
	
	}
			if ($i%5==0) {
	${'hexRa'.$i}=${'r'.$i.'a'};
	${'hexRb'.$i}=${'r'.$i.'b'};
	//echo "hex Ra Rb=".${'hexRa'.$i}."_".${'hexRb'.$i};
	}
	//echo "r1D=".round(${'r'.$i.'dd'},3);
	//echo "r1L=".round(${'r'.$i.'l'},3);
	}
	//echo "<br>";
	
	
/////////////////////Sec G	
  ////////////////sec G

	$ki=0.880;
	
	for ( $i = 1; $i <= 30; $i+= 1) {
	$Pdot=11;////G line
	$si=0;
	if ($cols==45) {
	for ($s=380; $s<=730; $s+=10) {
	${'p'.$s}=$dotT[$idx+$si+1];
	${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	//echo "paper Sp380:".${'p'.$s};
	}}
	else {
		for ($s=400; $s<=700; $s+=10) {
	${'p'.$s}=$dotT[$idx+$si+1];
	${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	//echo "paper Sp:".${'m'.$s};
	}}
	
	$ki=$ki+0.015;
	if ($cols==45) { 
	${'gr'.$i.'X'}=sp38XYZ("X",$r380,	$r390,	$r400,	$r410,	$r420,	$r430,	$r440,	$r450,	$r460,	$r470,	$r480,	$r490,	$r500,	$r510,	$r520,	$r530,	$r540,	$r550,	$r560,	$r570,	$r580,	$r590,	$r600,	$r610,	$r620,	$r630,	$r640,	$r650,	$r660,	$r670,	$r680,	$r690,	$r700,	$r710,	$r720,	$r730);
	${'gr'.$i.'Y'}=sp38XYZ("Y",$r380,	$r390,	$r400,	$r410,	$r420,	$r430,	$r440,	$r450,	$r460,	$r470,	$r480,	$r490,	$r500,	$r510,	$r520,	$r530,	$r540,	$r550,	$r560,	$r570,	$r580,	$r590,	$r600,	$r610,	$r620,	$r630,	$r640,	$r650,	$r660,	$r670,	$r680,	$r690,	$r700,	$r710,	$r720,	$r730);

	${'gr'.$i.'Z'}=sp38XYZ("Z",$r380,	$r390,	$r400,	$r410,	$r420,	$r430,	$r440,	$r450,	$r460,	$r470,	$r480,	$r490,	$r500,	$r510,	$r520,	$r530,	$r540,	$r550,	$r560,	$r570,	$r580,	$r590,	$r600,	$r610,	$r620,	$r630,	$r640,	$r650,	$r660,	$r670,	$r680,	$r690,	$r700,	$r710,	$r720,	$r730);	

	//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
	
	${'gr'.$i.'l'}=xyz2lab01("l",${'gr'.$i.'X'},${'gr'.$i.'Y'},${'gr'.$i.'Z'});
	${'gr'.$i.'a'}=xyz2lab01("a",${'gr'.$i.'X'},${'gr'.$i.'Y'},${'gr'.$i.'Z'});
	${'gr'.$i.'b'}=xyz2lab01("b",${'gr'.$i.'X'},${'gr'.$i.'Y'},${'gr'.$i.'Z'});
	
	//echo "K1L=".round($k1l,3).",".round($k1a,3).",".round($k1b,3);
	${'gr'.$i.'dd'}=DensitySp38("Y",$r380,	$r390,	$r400,	$r410,	$r420,	$r430,	$r440,	$r450,	$r460,	$r470,	$r480,	$r490,	$r500,	$r510,	$r520,	$r530,	$r540,	$r550,	$r560,	$r570,	$r580,	$r590,	$r600,	$r610,	$r620,	$r630,	$r640,	$r650,	$r660,	$r670,	$r680,	$r690,	$r700,	$r710,	$r720,	$r730);
	//echo "K1D=".round(${'k'.$i.'dd'},3);
	}
	else {
	${'gr'.$i.'X'}=spXYZ("X",$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);
	${'gr'.$i.'Y'}=spXYZ("Y",$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);

	${'gr'.$i.'Z'}=spXYZ("Z",$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);	

	//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
	
	${'gr'.$i.'l'}=xyz2lab01("l",${'gr'.$i.'X'},${'gr'.$i.'Y'},${'gr'.$i.'Z'});
	${'gr'.$i.'a'}=xyz2lab01("a",${'gr'.$i.'X'},${'gr'.$i.'Y'},${'gr'.$i.'Z'});
	${'gr'.$i.'b'}=xyz2lab01("b",${'gr'.$i.'X'},${'gr'.$i.'Y'},${'gr'.$i.'Z'});
	
	//echo "R1G=".round(${'gr'.$i.'l'},3).",".round(${'gr'.$i.'a'},3).",".round(${'gr'.$i.'b'},3);
	${'gr'.$i.'dd'}=DensitySp("Y",$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);
	
	}
			if ($i%5==0) {
	${'hexGRa'.$i}=${'gr'.$i.'a'};
	${'hexGRb'.$i}=${'gr'.$i.'b'};
	//echo "hex GRa GRb=".${'hexGRa'.$i}."_".${'hexGRb'.$i};
	}
	//echo "Gr1D=".round(${'gr'.$i.'dd'},3);
	//echo "r1L=".round(${'r'.$i.'l'},3);
	}
	//echo "<br>";
	
	  ////////////////sec B

	$ki=0.820;
	
	for ( $i = 1; $i <= 30; $i+= 1) {
	$Pdot=12;////G line
	$si=0;
	if ($cols==45) {
	for ($s=380; $s<=730; $s+=10) {
	${'p'.$s}=$dotT[$idx+$si+1];
	${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	
	//echo "paper Sp380:".${'p'.$s};
	}}
	else {
		for ($s=400; $s<=700; $s+=10) {
	${'p'.$s}=$dotT[$idx+$si+1];
	${'m'.$s}=$dotT[$idx+$cols*$Pdot+$si+1];
	${'r'.$s}=pow(10,-((((-log10(${'m'.$s}))-(-log10(${'p'.$s})))*$ki)+(-log10(${'p'.$s}))))*1;
	$si=$si+1;
	//echo "paper Sp:".${'m'.$s};
	}}
	
	$ki=$ki+0.015;
	if ($cols==45) { 
	${'b'.$i.'X'}=sp38XYZ("X",$r380,	$r390,	$r400,	$r410,	$r420,	$r430,	$r440,	$r450,	$r460,	$r470,	$r480,	$r490,	$r500,	$r510,	$r520,	$r530,	$r540,	$r550,	$r560,	$r570,	$r580,	$r590,	$r600,	$r610,	$r620,	$r630,	$r640,	$r650,	$r660,	$r670,	$r680,	$r690,	$r700,	$r710,	$r720,	$r730);
	${'b'.$i.'Y'}=sp38XYZ("Y",$r380,	$r390,	$r400,	$r410,	$r420,	$r430,	$r440,	$r450,	$r460,	$r470,	$r480,	$r490,	$r500,	$r510,	$r520,	$r530,	$r540,	$r550,	$r560,	$r570,	$r580,	$r590,	$r600,	$r610,	$r620,	$r630,	$r640,	$r650,	$r660,	$r670,	$r680,	$r690,	$r700,	$r710,	$r720,	$r730);

	${'b'.$i.'Z'}=sp38XYZ("Z",$r380,	$r390,	$r400,	$r410,	$r420,	$r430,	$r440,	$r450,	$r460,	$r470,	$r480,	$r490,	$r500,	$r510,	$r520,	$r530,	$r540,	$r550,	$r560,	$r570,	$r580,	$r590,	$r600,	$r610,	$r620,	$r630,	$r640,	$r650,	$r660,	$r670,	$r680,	$r690,	$r700,	$r710,	$r720,	$r730);	

	//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
	
	${'b'.$i.'l'}=xyz2lab01("l",${'b'.$i.'X'},${'b'.$i.'Y'},${'b'.$i.'Z'});
	${'b'.$i.'a'}=xyz2lab01("a",${'b'.$i.'X'},${'b'.$i.'Y'},${'b'.$i.'Z'});
	${'b'.$i.'b'}=xyz2lab01("b",${'b'.$i.'X'},${'b'.$i.'Y'},${'b'.$i.'Z'});
	
	//echo "K1L=".round($k1l,3).",".round($k1a,3).",".round($k1b,3);
	${'b'.$i.'dd'}=DensitySp38("M",$r380,	$r390,	$r400,	$r410,	$r420,	$r430,	$r440,	$r450,	$r460,	$r470,	$r480,	$r490,	$r500,	$r510,	$r520,	$r530,	$r540,	$r550,	$r560,	$r570,	$r580,	$r590,	$r600,	$r610,	$r620,	$r630,	$r640,	$r650,	$r660,	$r670,	$r680,	$r690,	$r700,	$r710,	$r720,	$r730);
	//echo "K1D=".round(${'k'.$i.'dd'},3);
	}
	else {
	${'b'.$i.'X'}=spXYZ("X",$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);
	${'b'.$i.'Y'}=spXYZ("Y",$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);

	${'b'.$i.'Z'}=spXYZ("Z",$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);	

	//echo "KX1=".round($k1X,3).",".round($k1Y,3).",".round($k1Z,3)."<br>";
	
	${'b'.$i.'l'}=xyz2lab01("l",${'b'.$i.'X'},${'b'.$i.'Y'},${'b'.$i.'Z'});
	${'b'.$i.'a'}=xyz2lab01("a",${'b'.$i.'X'},${'b'.$i.'Y'},${'b'.$i.'Z'});
	${'b'.$i.'b'}=xyz2lab01("b",${'b'.$i.'X'},${'b'.$i.'Y'},${'b'.$i.'Z'});
	
	//echo "R1G=".round(${'b'.$i.'l'},3).",".round(${'b'.$i.'a'},3).",".round(${'b'.$i.'b'},3);
	${'b'.$i.'dd'}=DensitySp("M",$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);
	
	}
			if ($i%5==0) {
	${'hexBa'.$i}=${'b'.$i.'a'};
	${'hexBb'.$i}=${'b'.$i.'b'};
	//echo "hex Ba Bb=".${'hexBa'.$i}."_".${'hexBb'.$i};
	}
	//echo "Gr1D=".round(${'gr'.$i.'dd'},3);
	//echo "r1L=".round(${'r'.$i.'l'},3);
	}
	//echo "<br>";
	
	
	
   //////////////////////////////////Beer's Law section
   //////////////////////////////////////////////////////
 

//include 'dE00.php';
//function de76($l1,$a1,$b1,$l2,$a2,$b2) {
 // $d76=sqrt(pow(($l1-$l2),2)+ pow(($a1-$a2),2)+pow(($b1-$b2),2));
 // return round($d76,2);
//}
 
 
//////////de00//////////////////////////////////////////

	# ------- The graph values in the form of associative array
	function de76($l1,$a1,$b1,$l2,$a2,$b2) {
  $d76=sqrt(pow(($l1-$l2),2)+ pow(($a1-$a2),2)+pow(($b1-$b2),2));
    $cab1 = sqrt(pow($a1,2) + pow($b1,2));
    $cab2 =  sqrt(pow($a2,2) + pow($b2,2));
	
	 
	
    $meanc = ($cab1 + $cab2) / 2;
	
    $logmeanc =log10($meanc);
	
    $log25 = log10(25);
	$cratio = sqrt(pow(10,($logmeanc*7 - log10((pow(10,($logmeanc*7)) + pow(10,($log25*7)))))));
	
    $g = 0.5 * (1 - $cratio);
	
	$a1 = (1 + $g) * $a1;
    $a2 = (1 + $g) * $a2;
	
	$cab1 = pow((pow($a1 , 2)+ pow($b1 , 2) ),0.5);
    $cab2 = pow((pow($a2 , 2) + pow($b2 , 2) ),0.5);
	$deltac = $cab1 - $cab2;
	
	
	 //   ' calculate delta L*
    $deltal = $l1 - $l2;
	 
	//';calculate hue angles
    If ($b1 == 0) {
        If ($a1 >= 0) {
            $h1 = 0;}
        Else {
            $h1 = 180;}}
	Else {
        $h1 = rad2deg(atan2($b1, $a1));
    } 
       
	
	
    If ($b2 == 0) {
        If ($a2 >= 0) {
            $h2 = 0;}
        Else {
            $h2 = 180; }
        }
    Else {
        $h2 = rad2deg(atan2($b2, $a2));
    }
	
    If ($h1 < 0) {
        $h1 = $h1 + 360;}
       
    If ($h2 < 0) {
        $h2 = $h2 + 360;}
    
	//    ' calculate delta h and mean h
    $deltah = $h1 - $h2;
    $meanh = $h1 + $h2;
		


    If ($deltah > 180) {
        $deltah = $deltah - 360;
        $meanh = $meanh - 360;
    }
    
    If ($deltah < -180) {
        $deltah = $deltah + 360;
        $meanh = $meanh - 360;
    }

    $delth = 2 * pow(($cab1 * $cab2),0.5) * sin(deg2rad($deltah / 2));
 
    $deltal = $l1 - $l2;
    $deltaE = pow((pow($deltal,2) + pow($deltac,2) + pow($delth,2)),0.5);

    $deltaha = pow($deltaE , 2)- pow($deltal , 2) - pow($deltac , 2);

    If ($deltaha < 0) {
        $deltaha = 0;
    }
    
    $delth = pow($deltaha , 0.5);
    $delth = 2 * pow(($cab1 * $cab2),0.5) * sin(deg2rad($deltah / 2));
   	 	
    $meanl = ($l1 + $l2) / 2;
    $meanc = ($cab1 + $cab2) / 2;
    $meanh = $meanh / 2;


//' Computes the weighting functions.

    $sl = 1 + ((0.015 * pow(($meanl - 50),2)) / pow((20 + pow(($meanl - 50),2)),0.5));
    $sc = 1 + 0.045 * $meanc;

//' find the hue angle goodness
 //   ' split these up because I don't know how to split lines in vb
    $t1 = 1 - 0.17 * cos(deg2rad($meanh - 30));
    $t2 = 0.24 * cos(deg2rad(2 * $meanh));
    $t3 = 0.32 * cos(deg2rad(3 * $meanh + 6));
    $t4 = -0.2 * cos(deg2rad(4 * $meanh - 63));
    $t = $t1 + $t2 + $t3 + $t4;
    
    $sh = 1 + 0.015 * $meanc * $t;
    $sr = $sc * $sh;
  //same problem as above with the big numbers
    $logmeanc = log10($meanc);
    $log25 =log10(25);
    $rc_numerator = pow(10 , ($logmeanc * 7));
    $rc_denominator = $rc_numerator + pow(10 , ($log25 * 7));
    $rc = 2 * pow(($rc_numerator / $rc_denominator) , 0.5);
	
    $dthet = 30 * exp(-1 * pow((($meanh - 275) / 25) , 2));
    $rt = -sin(2 * deg2rad($dthet)) * $rc;	
	
	// ' Now computes deltaV
    $vl = pow(($deltal / $sl) , 2);
    $vc = pow(($deltac / $sc) , 2);
    $vh = pow(($delth / $sh) , 2);

    $deltaE2000 = pow(($vl + $vc + $vh + ($rt * $deltac * $delth / $sr)) , 0.5);
	return $deltaE2000;	
	//$deltaE2000=12.233;
  //return round($d76,2);
  //return $cab1;
}

///////////////////de00//////////// 
 
 $tt00=de76(55,-37,-50,54.3,-34.47,-52.63);
 $dek00=de76($scKL,$scKa,$scKb,$klm,$kam,$kbm);
 $dec00=de76($scCL,$scCa,$scCb,$clm,$cam,$cbm);
 $dem00=de76($scML,$scMa,$scMb,$mlm,$mam,$mbm);
 $dey00=de76($scYL,$scYa,$scYb,$ylm,$yam,$ybm);
 
 $der00=de76($scRL,$scRa,$scRb,$rlm,$ram,$rbm);
 $degr00=de76($scGL,$scGa,$scGb,$grlm,$gram,$grbm);
 $deb00=de76($scBL,$scBa,$scBb,$blm,$bam,$bbm);
 
 
 

  $dk176=de76($scKL,$scKa,$scKb,$k1l,$k1a,$k1b);
  $dk276=de76($scKL,$scKa,$scKb,$k2l,$k2a,$k2b);
  $dk376=de76($scKL,$scKa,$scKb,$k3l,$k3a,$k3b);
  $dk476=de76($scKL,$scKa,$scKb,$k4l,$k4a,$k4b);
  $dk576=de76($scKL,$scKa,$scKb,$k5l,$k5a,$k5b);
  $dk676=de76($scKL,$scKa,$scKb,$k6l,$k6a,$k6b);
  $dk776=de76($scKL,$scKa,$scKb,$k7l,$k7a,$k7b);
  $dk876=de76($scKL,$scKa,$scKb,$k8l,$k8a,$k8b);
  $dk976=de76($scKL,$scKa,$scKb,$k9l,$k9a,$k9b);
  $dk1076=de76($scKL,$scKa,$scKb,$k10l,$k10a,$k10b);
  $dk1176=de76($scKL,$scKa,$scKb,$k11l,$k11a,$k11b);
  $dk1276=de76($scKL,$scKa,$scKb,$k12l,$k12a,$k12b);
  $dk1376=de76($scKL,$scKa,$scKb,$k13l,$k13a,$k13b);
  $dk1476=de76($scKL,$scKa,$scKb,$k14l,$k14a,$k14b);
  $dk1576=de76($scKL,$scKa,$scKb,$k15l,$k15a,$k15b);
  $dk1676=de76($scKL,$scKa,$scKb,$k16l,$k16a,$k16b);
  $dk1776=de76($scKL,$scKa,$scKb,$k17l,$k17a,$k17b);
  $dk1876=de76($scKL,$scKa,$scKb,$k18l,$k18a,$k18b);
  $dk1976=de76($scKL,$scKa,$scKb,$k19l,$k19a,$k19b);
  $dk2076=de76($scKL,$scKa,$scKb,$k20l,$k20a,$k20b);
  $dk2176=de76($scKL,$scKa,$scKb,$k21l,$k21a,$k21b);
  $dk2276=de76($scKL,$scKa,$scKb,$k22l,$k22a,$k22b);
  $dk2376=de76($scKL,$scKa,$scKb,$k23l,$k23a,$k23b);
  $dk2476=de76($scKL,$scKa,$scKb,$k24l,$k24a,$k24b);
  $dk2576=de76($scKL,$scKa,$scKb,$k25l,$k25a,$k25b);
  $dk2676=de76($scKL,$scKa,$scKb,$k26l,$k26a,$k26b);
  $dk2776=de76($scKL,$scKa,$scKb,$k27l,$k27a,$k27b);
  $dk2876=de76($scKL,$scKa,$scKb,$k28l,$k28a,$k28b);
  $dk2976=de76($scKL,$scKa,$scKb,$k29l,$k29a,$k29b);
  $dk3076=de76($scKL,$scKa,$scKb,$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($scKL,$scKa,$scKb,$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=de76($scCL,$scCa,$scCb,$c1l,$c1a,$c1b);
  $dc276=de76($scCL,$scCa,$scCb,$c2l,$c2a,$c2b);
  $dc376=de76($scCL,$scCa,$scCb,$c3l,$c3a,$c3b);
  $dc476=de76($scCL,$scCa,$scCb,$c4l,$c4a,$c4b);
  $dc576=de76($scCL,$scCa,$scCb,$c5l,$c5a,$c5b);
  $dc676=de76($scCL,$scCa,$scCb,$c6l,$c6a,$c6b);
  $dc776=de76($scCL,$scCa,$scCb,$c7l,$c7a,$c7b);
  $dc876=de76($scCL,$scCa,$scCb,$c8l,$c8a,$c8b);
  $dc976=de76($scCL,$scCa,$scCb,$c9l,$c9a,$c9b);
  $dc1076=de76($scCL,$scCa,$scCb,$c10l,$c10a,$c10b);
  $dc1176=de76($scCL,$scCa,$scCb,$c11l,$c11a,$c11b);
  $dc1276=de76($scCL,$scCa,$scCb,$c12l,$c12a,$c12b);
  $dc1376=de76($scCL,$scCa,$scCb,$c13l,$c13a,$c13b);
  $dc1476=de76($scCL,$scCa,$scCb,$c14l,$c14a,$c14b);
  $dc1576=de76($scCL,$scCa,$scCb,$c15l,$c15a,$c15b);
  $dc1676=de76($scCL,$scCa,$scCb,$c16l,$c16a,$c16b);
  $dc1776=de76($scCL,$scCa,$scCb,$c17l,$c17a,$c17b);
  $dc1876=de76($scCL,$scCa,$scCb,$c18l,$c18a,$c18b);
  $dc1976=de76($scCL,$scCa,$scCb,$c19l,$c19a,$c19b);
  $dc2076=de76($scCL,$scCa,$scCb,$c20l,$c20a,$c20b);
  $dc2176=de76($scCL,$scCa,$scCb,$c21l,$c21a,$c21b);
  $dc2276=de76($scCL,$scCa,$scCb,$c22l,$c22a,$c22b);
  $dc2376=de76($scCL,$scCa,$scCb,$c23l,$c23a,$c23b);
  $dc2476=de76($scCL,$scCa,$scCb,$c24l,$c24a,$c24b);
  $dc2576=de76($scCL,$scCa,$scCb,$c25l,$c25a,$c25b);
  $dc2676=de76($scCL,$scCa,$scCb,$c26l,$c26a,$c26b);
  $dc2776=de76($scCL,$scCa,$scCb,$c27l,$c27a,$c27b);
  $dc2876=de76($scCL,$scCa,$scCb,$c28l,$c28a,$c28b);
  $dc2976=de76($scCL,$scCa,$scCb,$c29l,$c29a,$c29b);
  $dc3076=de76($scCL,$scCa,$scCb,$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=de76($scML,$scMa,$scMb,$m1l,$m1a,$m1b);
  $dm276=de76($scML,$scMa,$scMb,$m2l,$m2a,$m2b);
  $dm376=de76($scML,$scMa,$scMb,$m3l,$m3a,$m3b);
  $dm476=de76($scML,$scMa,$scMb,$m4l,$m4a,$m4b);
  $dm576=de76($scML,$scMa,$scMb,$m5l,$m5a,$m5b);
  $dm676=de76($scML,$scMa,$scMb,$m6l,$m6a,$m6b);
  $dm776=de76($scML,$scMa,$scMb,$m7l,$m7a,$m7b);
  $dm876=de76($scML,$scMa,$scMb,$m8l,$m8a,$m8b);
  $dm976=de76($scML,$scMa,$scMb,$m9l,$m9a,$m9b);
  $dm1076=de76($scML,$scMa,$scMb,$m10l,$m10a,$m10b);
  $dm1176=de76($scML,$scMa,$scMb,$m11l,$m11a,$m11b);
  $dm1276=de76($scML,$scMa,$scMb,$m12l,$m12a,$m12b);
  $dm1376=de76($scML,$scMa,$scMb,$m13l,$m13a,$m13b);
  $dm1476=de76($scML,$scMa,$scMb,$m14l,$m14a,$m14b);
  $dm1576=de76($scML,$scMa,$scMb,$m15l,$m15a,$m15b);
  $dm1676=de76($scML,$scMa,$scMb,$m16l,$m16a,$m16b);
  $dm1776=de76($scML,$scMa,$scMb,$m17l,$m17a,$m17b);
  $dm1876=de76($scML,$scMa,$scMb,$m18l,$m18a,$m18b);
  $dm1976=de76($scML,$scMa,$scMb,$m19l,$m19a,$m19b);
  $dm2076=de76($scML,$scMa,$scMb,$m20l,$m20a,$m20b);
  $dm2176=de76($scML,$scMa,$scMb,$m21l,$m21a,$m21b);
  $dm2276=de76($scML,$scMa,$scMb,$m22l,$m22a,$m22b);
  $dm2376=de76($scML,$scMa,$scMb,$m23l,$m23a,$m23b);
  $dm2476=de76($scML,$scMa,$scMb,$m24l,$m24a,$m24b);
  $dm2576=de76($scML,$scMa,$scMb,$m25l,$m25a,$m25b);
  $dm2676=de76($scML,$scMa,$scMb,$m26l,$m26a,$m26b);
  $dm2776=de76($scML,$scMa,$scMb,$m27l,$m27a,$m27b);
  $dm2876=de76($scML,$scMa,$scMb,$m28l,$m28a,$m28b);
  $dm2976=de76($scML,$scMa,$scMb,$m29l,$m29a,$m29b);
  $dm3076=de76($scML,$scMa,$scMb,$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($scML,$scMa,$scMb,$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=de76($scYL,$scYa,$scYb,$y1l,$y1a,$y1b);
  $dy276=de76($scYL,$scYa,$scYb,$y2l,$y2a,$y2b);
  $dy376=de76($scYL,$scYa,$scYb,$y3l,$y3a,$y3b);
  $dy476=de76($scYL,$scYa,$scYb,$y4l,$y4a,$y4b);
  $dy576=de76($scYL,$scYa,$scYb,$y5l,$y5a,$y5b);
  $dy676=de76($scYL,$scYa,$scYb,$y6l,$y6a,$y6b);
  $dy776=de76($scYL,$scYa,$scYb,$y7l,$y7a,$y7b);
  $dy876=de76($scYL,$scYa,$scYb,$y8l,$y8a,$y8b);
  $dy976=de76($scYL,$scYa,$scYb,$y9l,$y9a,$y9b);
  $dy1076=de76($scYL,$scYa,$scYb,$y10l,$y10a,$y10b);
  $dy1176=de76($scYL,$scYa,$scYb,$y11l,$y11a,$y11b);
  $dy1276=de76($scYL,$scYa,$scYb,$y12l,$y12a,$y12b);
  $dy1376=de76($scYL,$scYa,$scYb,$y13l,$y13a,$y13b);
  $dy1476=de76($scYL,$scYa,$scYb,$y14l,$y14a,$y14b);
  $dy1576=de76($scYL,$scYa,$scYb,$y15l,$y15a,$y15b);
  $dy1676=de76($scYL,$scYa,$scYb,$y16l,$y16a,$y16b);
  $dy1776=de76($scYL,$scYa,$scYb,$y17l,$y17a,$y17b);
  $dy1876=de76($scYL,$scYa,$scYb,$y18l,$y18a,$y18b);
  $dy1976=de76($scYL,$scYa,$scYb,$y19l,$y19a,$y19b);
  $dy2076=de76($scYL,$scYa,$scYb,$y20l,$y20a,$y20b);
  $dy2176=de76($scYL,$scYa,$scYb,$y21l,$y21a,$y21b);
  $dy2276=de76($scYL,$scYa,$scYb,$y22l,$y22a,$y22b);
  $dy2376=de76($scYL,$scYa,$scYb,$y23l,$y23a,$y23b);
  $dy2476=de76($scYL,$scYa,$scYb,$y24l,$y24a,$y24b);
  $dy2576=de76($scYL,$scYa,$scYb,$y25l,$y25a,$y25b);
  $dy2676=de76($scYL,$scYa,$scYb,$y26l,$y26a,$y26b);
  $dy2776=de76($scYL,$scYa,$scYb,$y27l,$y27a,$y27b);
  $dy2876=de76($scYL,$scYa,$scYb,$y28l,$y28a,$y28b);
  $dy2976=de76($scYL,$scYa,$scYb,$y29l,$y29a,$y29b);
  $dy3076=de76($scYL,$scYa,$scYb,$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($scYL,$scYa,$scYb,$y1l,$y1a,$y1b);
  

  ?>

<?php if ($dy176==$ymin){ $yopt='1';$yoptD=$y1dd;if ($y1b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy276==$ymin){ $yopt='2';$yoptD=$y2dd;if ($y2b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy376==$ymin){ $yopt='3';$yoptD=$y3dd;if ($y3b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy476==$ymin){ $yopt='4';$yoptD=$y4dd;if ($y4b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy576==$ymin){ $yopt='5';$yoptD=$y5dd;if ($y5b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy676==$ymin){ $yopt='6';$yoptD=$y6dd;if ($y6b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php  if ($dy776==$ymin){ $yopt='7';$yoptD=$y7dd;if ($y7b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php  if ($dy876==$ymin){ $yopt='8';$yoptD=$y8dd; if ($y8b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy976==$ymin){ $yopt='9';$yoptD=$y9dd;if ($y9b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1076==$ymin){ $yopt='10';$yoptD=$y10dd;if ($y10b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1176==$ymin){ $yopt='11';$yoptD=$y11dd;if ($y11b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1276==$ymin){ $yopt='12';$yoptD=$y12dd;if ($y12b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1376==$ymin){ $yopt='13';$yoptD=$y13dd;if ($y13b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1476==$ymin){ $yopt='14';$yoptD=$y14dd;if ($y14b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php  if ($dy1576==$ymin){ $yopt='15';$yoptD=$y15dd;if ($y15b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1676==$ymin){ $yopt='16';$yoptD=$y16dd;if ($y16b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1776==$ymin){ $yopt='17';$yoptD=$y17dd;if ($y17b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1876==$ymin){ $yopt='18';$yoptD=$y18dd;if ($y18b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy1976==$ymin){ $yopt='19';$yoptD=$y19dd;if ($y19b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2076==$ymin){ $yopt='20';$yoptD=$y20dd;if ($y20b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2176==$ymin){ $yopt='21';$yoptD=$y21dd;if ($y21b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2276==$ymin){ $yopt='22';$yoptD=$y22dd;if ($y22b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php  if ($dy2376==$ymin){ $yopt='23';$yoptD=$y23dd;if ($y23b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2476==$ymin){ $yopt='24';$yoptD=$y24dd;if ($y24b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2576==$ymin){ $yopt='25';$yoptD=$y25dd;if ($y25b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2676==$ymin){ $yopt='26';$yoptD=$y26dd;if ($y26b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2776==$ymin){ $yopt='27';$yoptD=$y27dd;if ($y27b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2876==$ymin){ $yopt='28';$yoptD=$y28dd;if ($y28b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy2976==$ymin){ $yopt='29';$yoptD=$y29dd;if ($y29b>93) {$ydi="-";} else {$ydi='+';}}?>
<?php if ($dy3076==$ymin){ $yopt='30';$yoptD=$y30dd;if ($y30b>93) {$ydi="-";} else {$ydi='+';}}?>

<?php 
///////////////////////////////sec R
$dr176=de76($scRL,$scRa,$scRb,$r1l,$r1a,$r1b);
  $dr276=de76($scRL,$scRa,$scRb,$r2l,$r2a,$r2b);
  $dr376=de76($scRL,$scRa,$scRb,$r3l,$r3a,$r3b);
  $dr476=de76($scRL,$scRa,$scRb,$r4l,$r4a,$r4b);
  $dr576=de76($scRL,$scRa,$scRb,$r5l,$r5a,$r5b);
  $dr676=de76($scRL,$scRa,$scRb,$r6l,$r6a,$r6b);
  $dr776=de76($scRL,$scRa,$scRb,$r7l,$r7a,$r7b);
  $dr876=de76($scRL,$scRa,$scRb,$r8l,$r8a,$r8b);
  $dr976=de76($scRL,$scRa,$scRb,$r9l,$r9a,$r9b);
  $dr1076=de76($scRL,$scRa,$scRb,$r10l,$r10a,$r10b);
  $dr1176=de76($scRL,$scRa,$scRb,$r11l,$r11a,$r11b);
  $dr1276=de76($scRL,$scRa,$scRb,$r12l,$r12a,$r12b);
  $dr1376=de76($scRL,$scRa,$scRb,$r13l,$r13a,$r13b);
  $dr1476=de76($scRL,$scRa,$scRb,$r14l,$r14a,$r14b);
  $dr1576=de76($scRL,$scRa,$scRb,$r15l,$r15a,$r15b);
  $dr1676=de76($scRL,$scRa,$scRb,$r16l,$r16a,$r16b);
  $dr1776=de76($scRL,$scRa,$scRb,$r17l,$r17a,$r17b);
  $dr1876=de76($scRL,$scRa,$scRb,$r18l,$r18a,$r18b);
  $dr1976=de76($scRL,$scRa,$scRb,$r19l,$r19a,$r19b);
  $dr2076=de76($scRL,$scRa,$scRb,$r20l,$r20a,$r20b);
  $dr2176=de76($scRL,$scRa,$scRb,$r21l,$r21a,$r21b);
  $dr2276=de76($scRL,$scRa,$scRb,$r22l,$r22a,$r22b);
  $dr2376=de76($scRL,$scRa,$scRb,$r23l,$r23a,$r23b);
  $dr2476=de76($scRL,$scRa,$scRb,$r24l,$r24a,$r24b);
  $dr2576=de76($scRL,$scRa,$scRb,$r25l,$r25a,$r25b);
  $dr2676=de76($scRL,$scRa,$scRb,$r26l,$r26a,$r26b);
  $dr2776=de76($scRL,$scRa,$scRb,$r27l,$r27a,$r27b);
  $dr2876=de76($scRL,$scRa,$scRb,$r28l,$r28a,$r28b);
  $dr2976=de76($scRL,$scRa,$scRb,$r29l,$r29a,$r29b);
  $dr3076=de76($scRL,$scRa,$scRb,$r30l,$r30a,$r30b);
  $rmin=min($dr176,$dr276,$dr376,$dr476,$dr576,$dr676,$dr776,$dr876,$dr976,$dr1076,$dr1176,$dr1276,$dr1376,$dr1476,$dr1576,$dr1676,$dr1776,$dr1876,$dr1976,$dr2076,$dr2176,$dr2276,$dr2376,$dr2476,$dr2576,$dr2676,$dr2776,$dr2876,$dr2976,$dr3076);
  
  
  //$dm194=de94($scML,$scMa,$scMb,$m1l,$m1a,$m1b);
  

  ?>


<?php if ($dr176==$rmin){ $ropt='1';$roptD=$r1dd;if ($r1a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr276==$rmin){ $ropt='2';$roptD=$r2dd;if ($r2a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr376==$rmin){ $ropt='3';$roptD=$r3dd;if ($r3a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr476==$rmin){ $ropt='4';$roptD=$r4dd;if ($r4a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr576==$rmin){ $ropt='5';$roptD=$r5dd;if ($r5a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr676==$rmin){ $ropt='6';$roptD=$r6dd;if ($r6a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr776==$rmin){ $ropt='7';$roptD=$r7dd;if ($r7a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr876==$rmin){ $ropt='8';$roptD=$r8dd; if ($r8a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr976==$rmin){ $ropt='9';$roptD=$r9dd;if ($r9a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1076==$rmin){ $ropt='10';$roptD=$r10dd;if ($r10a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1176==$rmin){ $ropt='11';$roptD=$r11dd;if ($r11a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1276==$rmin){ $ropt='12';$roptD=$r12dd;if ($r12a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1376==$rmin){ $ropt='13';$roptD=$r13dd;if ($r13a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1476==$rmin){ $ropt='14';$roptD=$r14dd;if ($r14a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php  if ($dr1576==$rmin){ $ropt='15';$roptD=$r15dd;if ($r15a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1676==$rmin){ $ropt='16';$roptD=$r16dd;if ($r16a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1776==$rmin){ $ropt='17';$roptD=$r17dd;if ($r17a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1876==$rmin){ $ropt='18';$roptD=$r18dd;if ($r18a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr1976==$rmin){ $ropt='19';$roptD=$r19dd;if ($r19a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2076==$rmin){ $ropt='20';$roptD=$r20dd;if ($r20a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2176==$rmin){ $ropt='21';$roptD=$r21dd;if ($r21a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2276==$rmin){ $ropt='22';$roptD=$r22dd;if ($r22a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php  if ($dr2376==$rmin){ $ropt='23';$roptD=$r23dd;if ($r23a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2476==$rmin){ $ropt='24';$roptD=$r24dd;if ($r24a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2576==$rmin){ $ropt='25';$roptD=$r25dd;if ($r25a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2676==$rmin){ $ropt='26';$roptD=$r26dd;if ($r26a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2776==$rmin){ $ropt='27';$roptD=$r27dd;if ($r27a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2876==$rmin){ $ropt='28';$roptD=$r28dd;if ($r28a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php if ($dr2976==$rmin){ $ropt='29';$roptD=$r29dd;if ($r29a>74) {$rdi="-";} else {$rdi='+';}}?>
<?php  if ($dr3076==$rmin){ $ropt='30';$roptD=$r30dd;if ($r30a>74) {$rdi="-";} else {$rdi='+';}}?>


<?php ///////////////////////////////sec G
$dgr176=de76($scGL,$scGa,$scGb,$gr1l,$gr1a,$gr1b);
  $dgr276=de76($scGL,$scGa,$scGb,$gr2l,$gr2a,$gr2b);
  $dgr376=de76($scGL,$scGa,$scGb,$gr3l,$gr3a,$gr3b);
  $dgr476=de76($scGL,$scGa,$scGb,$gr4l,$gr4a,$gr4b);
  $dgr576=de76($scGL,$scGa,$scGb,$gr5l,$gr5a,$gr5b);
  $dgr676=de76($scGL,$scGa,$scGb,$gr6l,$gr6a,$gr6b);
  $dgr776=de76($scGL,$scGa,$scGb,$gr7l,$gr7a,$gr7b);
  $dgr876=de76($scGL,$scGa,$scGb,$gr8l,$gr8a,$gr8b);
  $dgr976=de76($scGL,$scGa,$scGb,$gr9l,$gr9a,$gr9b);
  $dgr1076=de76($scGL,$scGa,$scGb,$gr10l,$gr10a,$gr10b);
  $dgr1176=de76($scGL,$scGa,$scGb,$gr11l,$gr11a,$gr11b);
  $dgr1276=de76($scGL,$scGa,$scGb,$gr12l,$gr12a,$gr12b);
  $dgr1376=de76($scGL,$scGa,$scGb,$gr13l,$gr13a,$gr13b);
  $dgr1476=de76($scGL,$scGa,$scGb,$gr14l,$gr14a,$gr14b);
  $dgr1576=de76($scGL,$scGa,$scGb,$gr15l,$gr15a,$gr15b);
  $dgr1676=de76($scGL,$scGa,$scGb,$gr16l,$gr16a,$gr16b);
  $dgr1776=de76($scGL,$scGa,$scGb,$gr17l,$gr17a,$gr17b);
  $dgr1876=de76($scGL,$scGa,$scGb,$gr18l,$gr18a,$gr18b);
  $dgr1976=de76($scGL,$scGa,$scGb,$gr19l,$gr19a,$gr19b);
  $dgr2076=de76($scGL,$scGa,$scGb,$gr20l,$gr20a,$gr20b);
  $dgr2176=de76($scGL,$scGa,$scGb,$gr21l,$gr21a,$gr21b);
  $dgr2276=de76($scGL,$scGa,$scGb,$gr22l,$gr22a,$gr22b);
  $dgr2376=de76($scGL,$scGa,$scGb,$gr23l,$gr23a,$gr23b);
  $dgr2476=de76($scGL,$scGa,$scGb,$gr24l,$gr24a,$gr24b);
  $dgr2576=de76($scGL,$scGa,$scGb,$gr25l,$gr25a,$gr25b);
  $dgr2676=de76($scGL,$scGa,$scGb,$gr26l,$gr26a,$gr26b);
  $dgr2776=de76($scGL,$scGa,$scGb,$gr27l,$gr27a,$gr27b);
  $dgr2876=de76($scGL,$scGa,$scGb,$gr28l,$gr28a,$gr28b);
  $dgr2976=de76($scGL,$scGa,$scGb,$gr29l,$gr29a,$gr29b);
  $dgr3076=de76($scGL,$scGa,$scGb,$gr30l,$gr30a,$gr30b);
  $grmin=min($dgr176,$dgr276,$dgr376,$dgr476,$dgr576,$dgr676,$dgr776,$dgr876,$dgr976,$dgr1076,$dgr1176,$dgr1276,$dgr1376,$dgr1476,$dgr1576,$dgr1676,$dgr1776,$dgr1876,$dgr1976,$dgr2076,$dgr2176,$dgr2276,$dgr2376,$dgr2476,$dgr2576,$dgr2676,$dgr2776,$dgr2876,$dgr2976,$dgr3076);
  
  
  //$dm194=de94($scML,$scMa,$scMb,$m1l,$m1a,$m1b);
  

  ?>


<?php if ($dgr176==$grmin){ $gropt='1';$groptD=$gr1dd;if ($gr1a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr276==$grmin){ $gropt='2';$groptD=$gr2dd;if ($gr2a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr376==$grmin){ $gropt='3';$groptD=$gr3dd;if ($gr3a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr476==$grmin){ $gropt='4';$groptD=$gr4dd;if ($gr4a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr576==$grmin){ $gropt='5';$groptD=$gr5dd;if ($gr5a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr676==$grmin){ $gropt='6';$groptD=$gr6dd;if ($gr6a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr776==$grmin){ $gropt='7';$groptD=$gr7dd;if ($gr7a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr876==$grmin){ $gropt='8';$groptD=$gr8dd; if ($gr8a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr976==$grmin){ $gropt='9';$groptD=$gr9dd;if ($gr9a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1076==$grmin){ $gropt='10';$groptD=$gr10dd;if ($gr10a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1176==$grmin){ $gropt='11';$groptD=$gr11dd;if ($gr11a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1276==$grmin){ $gropt='12';$groptD=$gr12dd;if ($gr12a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1376==$grmin){ $gropt='13';$groptD=$gr13dd;if ($gr13a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1476==$grmin){ $gropt='14';$groptD=$gr14dd;if ($gr14a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php  if ($dgr1576==$grmin){ $gropt='15';$groptD=$gr15dd;if ($gr15a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1676==$grmin){ $gropt='16';$groptD=$gr16dd;if ($gr16a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1776==$grmin){ $gropt='17';$groptD=$gr17dd;if ($gr17a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1876==$grmin){ $gropt='18';$groptD=$gr18dd;if ($gr18a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr1976==$grmin){ $gropt='19';$groptD=$gr19dd;if ($gr19a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2076==$grmin){ $gropt='20';$groptD=$gr20dd;if ($gr20a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2176==$grmin){ $gropt='21';$groptD=$gr21dd;if ($gr21a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2276==$grmin){ $gropt='22';$groptD=$gr22dd;if ($gr22a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php  if ($dgr2376==$grmin){ $gropt='23';$groptD=$gr23dd;if ($gr23a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2476==$grmin){ $gropt='24';$groptD=$gr24dd;if ($gr24a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2576==$grmin){ $gropt='25';$groptD=$gr25dd;if ($gr25a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2676==$grmin){ $gropt='26';$groptD=$gr26dd;if ($gr26a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2776==$grmin){ $gropt='27';$groptD=$gr27dd;if ($gr27a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2876==$grmin){ $gropt='28';$groptD=$gr28dd;if ($gr28a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php if ($dgr2976==$grmin){ $gropt='29';$groptD=$gr29dd;if ($gr29a>74) {$grdi="-";} else {$grdi='+';}}?>
<?php  if ($dgr3076==$grmin){ $gropt='30';$groptD=$gr30dd;if ($gr30a>74) {$grdi="-";} else {$grdi='+';}}?>

<?php ///////////////////////////////sec B
$db176=de76($scBL,$scBa,$scBb,$b1l,$b1a,$b1b);
  $db276=de76($scBL,$scBa,$scBb,$b2l,$b2a,$b2b);
  $db376=de76($scBL,$scBa,$scBb,$b3l,$b3a,$b3b);
  $db476=de76($scBL,$scBa,$scBb,$b4l,$b4a,$b4b);
  $db576=de76($scBL,$scBa,$scBb,$b5l,$b5a,$b5b);
  $db676=de76($scBL,$scBa,$scBb,$b6l,$b6a,$b6b);
  $db776=de76($scBL,$scBa,$scBb,$b7l,$b7a,$b7b);
  $db876=de76($scBL,$scBa,$scBb,$b8l,$b8a,$b8b);
  $db976=de76($scBL,$scBa,$scBb,$b9l,$b9a,$b9b);
  $db1076=de76($scBL,$scBa,$scBb,$b10l,$b10a,$b10b);
  $db1176=de76($scBL,$scBa,$scBb,$b11l,$b11a,$b11b);
  $db1276=de76($scBL,$scBa,$scBb,$b12l,$b12a,$b12b);
  $db1376=de76($scBL,$scBa,$scBb,$b13l,$b13a,$b13b);
  $db1476=de76($scBL,$scBa,$scBb,$b14l,$b14a,$b14b);
  $db1576=de76($scBL,$scBa,$scBb,$b15l,$b15a,$b15b);
  $db1676=de76($scBL,$scBa,$scBb,$b16l,$b16a,$b16b);
  $db1776=de76($scBL,$scBa,$scBb,$b17l,$b17a,$b17b);
  $db1876=de76($scBL,$scBa,$scBb,$b18l,$b18a,$b18b);
  $db1976=de76($scBL,$scBa,$scBb,$b19l,$b19a,$b19b);
  $db2076=de76($scBL,$scBa,$scBb,$b20l,$b20a,$b20b);
  $db2176=de76($scBL,$scBa,$scBb,$b21l,$b21a,$b21b);
  $db2276=de76($scBL,$scBa,$scBb,$b22l,$b22a,$b22b);
  $db2376=de76($scBL,$scBa,$scBb,$b23l,$b23a,$b23b);
  $db2476=de76($scBL,$scBa,$scBb,$b24l,$b24a,$b24b);
  $db2576=de76($scBL,$scBa,$scBb,$b25l,$b25a,$b25b);
  $db2676=de76($scBL,$scBa,$scBb,$b26l,$b26a,$b26b);
  $db2776=de76($scBL,$scBa,$scBb,$b27l,$b27a,$b27b);
  $db2876=de76($scBL,$scBa,$scBb,$b28l,$b28a,$b28b);
  $db2976=de76($scBL,$scBa,$scBb,$b29l,$b29a,$b29b);
  $db3076=de76($scBL,$scBa,$scBb,$b30l,$b30a,$b30b);
  $bmin=min($db176,$db276,$db376,$db476,$db576,$db676,$db776,$db876,$db976,$db1076,$db1176,$db1276,$db1376,$db1476,$db1576,$db1676,$db1776,$db1876,$db1976,$db2076,$db2176,$db2276,$db2376,$db2476,$db2576,$db2676,$db2776,$db2876,$db2976,$db3076);
  
  
  //$dm194=de94($scML,$scMa,$scMb,$m1l,$m1a,$m1b);
  

  ?>


<?php if ($db176==$bmin){ $bopt='1';$boptD=$b1dd;if ($b1a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db276==$bmin){ $bopt='2';$boptD=$b2dd;if ($b2a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db376==$bmin){ $bopt='3';$boptD=$b3dd;if ($b3a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db476==$bmin){ $bopt='4';$boptD=$b4dd;if ($b4a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db576==$bmin){ $bopt='5';$boptD=$b5dd;if ($b5a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db676==$bmin){ $bopt='6';$boptD=$b6dd;if ($b6a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db776==$bmin){ $bopt='7';$boptD=$b7dd;if ($b7a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db876==$bmin){ $bopt='8';$boptD=$b8dd; if ($b8a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db976==$bmin){ $bopt='9';$boptD=$b9dd;if ($b9a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1076==$bmin){ $bopt='10';$boptD=$b10dd;if ($b10a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1176==$bmin){ $bopt='11';$boptD=$b11dd;if ($b11a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1276==$bmin){ $bopt='12';$boptD=$b12dd;if ($b12a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1376==$bmin){ $bopt='13';$boptD=$b13dd;if ($b13a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1476==$bmin){ $bopt='14';$boptD=$b14dd;if ($b14a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php  if ($db1576==$bmin){ $bopt='15';$boptD=$b15dd;if ($b15a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1676==$bmin){ $bopt='16';$boptD=$b16dd;if ($b16a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1776==$bmin){ $bopt='17';$boptD=$b17dd;if ($b17a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1876==$bmin){ $bopt='18';$boptD=$b18dd;if ($b18a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db1976==$bmin){ $bopt='19';$boptD=$b19dd;if ($b19a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2076==$bmin){ $bopt='20';$boptD=$b20dd;if ($b20a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2176==$bmin){ $bopt='21';$boptD=$b21dd;if ($b21a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2276==$bmin){ $bopt='22';$boptD=$b22dd;if ($b22a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php  if ($db2376==$bmin){ $bopt='23';$boptD=$b23dd;if ($b23a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2476==$bmin){ $bopt='24';$boptD=$b24dd;if ($b24a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2576==$bmin){ $bopt='25';$boptD=$b25dd;if ($b25a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2676==$bmin){ $bopt='26';$boptD=$b26dd;if ($b26a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2776==$bmin){ $bopt='27';$boptD=$b27dd;if ($b27a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2876==$bmin){ $bopt='28';$boptD=$b28dd;if ($b28a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php if ($db2976==$bmin){ $bopt='29';$boptD=$b29dd;if ($b29a>74) {$bdi="-";} else {$bdi='+';}}?>
<?php  if ($db3076==$bmin){ $bopt='30';$boptD=$b30dd;if ($b30a>74) {$bdi="-";} else {$bdi='+';}}?>

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

<?php // content="text/plain; charset=utf-8"

require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');
require_once ('../jpgraph/jpgraph_line.php');
require_once ('../jpgraph/jpgraph_plotline.php'); 



?>

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

$datax = array($c1dd,$c2dd,$c3dd,$c4dd,$c5dd,$c6dd,$c7dd,$c8dd,$c9dd,$c10dd,$c11dd,$c12dd,$c13dd,$c14dd,$c15dd,$c16dd,$c17dd,$c18dd,$c19dd,$c20dd,$c21dd,$c22dd,$c23dd,$c24dd,$c25dd,$c26dd,$c27dd,$c28dd,$c29dd,$c30dd);
$datay = array($dc176,$dc276,$dc376,$dc476,$dc576,$dc676,$dc776,$dc876,$dc976,$dc1076,$dc1176,$dc1276,$dc1376,$dc1476,$dc1576,$dc1676,$dc1776,$dc1876,$dc1976,$dc2076,$dc2176,$dc2276,$dc2376,$dc2476,$dc2576,$dc2676,$dc2776,$dc2876,$dc2976,$dc3076);
$dataxT = array($coptD,$cdm);
$datayT = array($cmin,$dec00);

$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);

$graph->img->SetMargin(40,40,40,40);		
$graph->SetShadow();

$graph->title->Set("C scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
//$graph->xgrid->Show();

$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();

$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"#00ffff",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#00ffff");
$sp2->mark->SetWidth(3);

$sline = new PlotLine(HORIZONTAL,1.5,'black'); 
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff'); 
$sline3 = new PlotLine(HORIZONTAL,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,$dem00);

$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);

$graph->img->SetMargin(40,40,40,40);		
$graph->SetShadow();

$graph->title->Set("M scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);

$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();

$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"#ff99ff",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#ff99ff");
$sp2->mark->SetWidth(3);

$sline = new PlotLine(HORIZONTAL,1.5,'black'); 
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff'); 
$sline3 = new PlotLine(HORIZONTAL,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,$dey00);

$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);

$graph->img->SetMargin(40,40,40,40);		
$graph->SetShadow();

$graph->title->Set("Y scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);
//$graph->xgrid->Show();

$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();

$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"#ffff99",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#ffff99");
$sp2->mark->SetWidth(3);

$sline = new PlotLine(HORIZONTAL,1.5,'black'); 
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff'); 
$sline3 = new PlotLine(HORIZONTAL,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,$dek00);


$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);

$graph->img->SetMargin(40,40,40,40);		
$graph->SetShadow();

$graph->title->Set("K scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);


$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();


$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"gray",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("gray");
$sp2->mark->SetWidth(3);
//$sp2->xgrid->Show();

$sline = new PlotLine(HORIZONTAL,1.5,'black'); 
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff'); 
$sline3 = new PlotLine(HORIZONTAL,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>

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


$datax = array($r1dd,$r2dd,$r3dd,$r4dd,$r5dd,$r6dd,$r7dd,$r8dd,$r9dd,$r10dd,$r11dd,$r12dd,$r13dd,$r14dd,$r15dd,$r16dd,$r17dd,$r18dd,$r19dd,$r20dd,$r21dd,$r22dd,$r23dd,$r24dd,$r25dd,$r26dd,$r27dd,$r28dd,$r29dd,$r30dd);
$datay = array($dr176,$dr276,$dr376,$dr476,$dr576,$dr676,$dr776,$dr876,$dr976,$dr1076,$dr1176,$dr1276,$dr1376,$dr1476,$dr1576,$dr1676,$dr1776,$dr1876,$dr1976,$dr2076,$dr2176,$dr2276,$dr2376,$dr2476,$dr2576,$dr2676,$dr2776,$dr2876,$dr2976,$dr3076);

//print_r($datax);
$dataxT = array($roptD,$rdm);
$datayT = array($rmin,$der00);


$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);

$graph->img->SetMargin(40,40,40,40);		
$graph->SetShadow();

$graph->title->Set("R scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);


$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();


$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"gray",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#fa6b53");
$sp2->mark->SetWidth(3);
//$sp2->xgrid->Show();

$sline = new PlotLine(HORIZONTAL,1.5,'black'); 
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff'); 
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900'); 
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);

$graph->Add($sp1);
$graph->Add($sp2);


//$graph->AddLine($line);

$graph->Stroke('scatterR.png');

?>
<img src="scatterR.png">
</div></td>

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


$datax = array($gr1dd,$gr2dd,$gr3dd,$gr4dd,$gr5dd,$gr6dd,$gr7dd,$gr8dd,$gr9dd,$gr10dd,$gr11dd,$gr12dd,$gr13dd,$gr14dd,$gr15dd,$gr16dd,$gr17dd,$gr18dd,$gr19dd,$gr20dd,$gr21dd,$gr22dd,$gr23dd,$gr24dd,$gr25dd,$gr26dd,$gr27dd,$gr28dd,$gr29dd,$gr30dd);
$datay = array($dgr176,$dgr276,$dgr376,$dgr476,$dgr576,$dgr676,$dgr776,$dgr876,$dgr976,$dgr1076,$dgr1176,$dgr1276,$dgr1376,$dgr1476,$dgr1576,$dgr1676,$dgr1776,$dgr1876,$dgr1976,$dgr2076,$dgr2176,$dgr2276,$dgr2376,$dgr2476,$dgr2576,$dgr2676,$dgr2776,$dgr2876,$dgr2976,$dgr3076);

//print_r($datax);
$dataxT = array($groptD,$grdm);
$datayT = array($grmin,$degr00);


$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);

$graph->img->SetMargin(40,40,40,40);		
$graph->SetShadow();

$graph->title->Set("G scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);


$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();


$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"gray",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#8afa53");
$sp2->mark->SetWidth(3);
//$sp2->xgrid->Show();

$sline = new PlotLine(HORIZONTAL,1.5,'black'); 
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff'); 
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900'); 
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);

$graph->Add($sp1);
$graph->Add($sp2);


//$graph->AddLine($line);

$graph->Stroke('scatterG.png');

?>
<img src="scatterG.png">
</div></td>

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


$datax = array($b1dd,$b2dd,$b3dd,$b4dd,$b5dd,$b6dd,$b7dd,$b8dd,$b9dd,$b10dd,$b11dd,$b12dd,$b13dd,$b14dd,$b15dd,$b16dd,$b17dd,$b18dd,$b19dd,$b20dd,$b21dd,$b22dd,$b23dd,$b24dd,$b25dd,$b26dd,$b27dd,$b28dd,$b29dd,$b30dd);
$datay = array($db176,$db276,$db376,$db476,$db576,$db676,$db776,$db876,$db976,$db1076,$db1176,$db1276,$db1376,$db1476,$db1576,$db1676,$db1776,$db1876,$db1976,$db2076,$db2176,$db2276,$db2376,$db2476,$db2576,$db2676,$db2776,$db2876,$db2976,$db3076);

//print_r($datax);
$dataxT = array($boptD,$bdm);
$datayT = array($bmin,$deb00);


$graph = new Graph(300,200);
$graph->SetScale("linint",0,8,0,0);

$graph->img->SetMargin(40,40,40,40);		
$graph->SetShadow();

$graph->title->Set("B scatter plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);


$sp1 = new ScatterPlot($datayT,$dataxT);
$sp1->mark->SetType(MARK_SQUARE);
$sp1->SetImpuls();


$sp2 = new ScatterPlot($datay,$datax);
$sp2->SetLinkPoints(true,"gray",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#5357fa");
$sp2->mark->SetWidth(3);
//$sp2->xgrid->Show();

$sline = new PlotLine(HORIZONTAL,1.5,'black'); 
$sline2 = new PlotLine(HORIZONTAL,2.5,'#00ccff'); 
$sline3 = new PlotLine(HORIZONTAL,4.5,'#ff9900'); 
$graph->Add($sline);
$graph->Add($sline2);
$graph->Add($sline3);

$graph->Add($sp1);
$graph->Add($sp2);


//$graph->AddLine($line);

$graph->Stroke('scatterB.png');

?>
<img src="scatterB.png">
</div></td>
</tr>
</table>
  
<table width="200" border="1" align="center">
<tr>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
unlink('scatterGuR.png');
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_scatter.php');
//${'s'.($minGroupRid-1).'a'
$datax = array($mam,$ram,$yam,$gram,$cam,$bam,$mam);
$datay = array($mbm,$rbm,$ybm,$grbm,$cbm,$bbm,$mbm);
$datax2 = array(74,68,-5,-68,-37,17,74);
$datay2 = array(-3,49,93,25,-50,-46,-3);
$datax3 = array($hexCa5,$hexCa10,$hexCa15,$hexCa20,$hexCa25,$hexCa30);
$datay3 = array($hexCb5,$hexCb10,$hexCb15,$hexCb20,$hexCb25,$hexCb30);
$dataxr = array($hexRa5,$hexRa10,$hexRa15,$hexRa20,$hexRa25,$hexRa30);
$datayr = array($hexRb5,$hexRb10,$hexRb15,$hexRb20,$hexRb25,$hexRb30);
$dataxm = array($hexMa5,$hexMa10,$hexMa15,$hexMa20,$hexMa25,$hexMa30);
$dataym = array($hexMb5,$hexMb10,$hexMb15,$hexMb20,$hexMb25,$hexMb30);
$dataxg = array($hexGRa5,$hexGRa10,$hexGRa15,$hexGRa20,$hexGRa25,$hexGRa30);
$datayg = array($hexGRb5,$hexGRb10,$hexGRb15,$hexGRb20,$hexGRb25,$hexGRb30);
$dataxy = array($hexYa5,$hexYa10,$hexYa15,$hexYa20,$hexYa25,$hexYa30);
$datayy = array($hexYb5,$hexYb10,$hexYb15,$hexYb20,$hexYb25,$hexYb30);
$dataxb = array($hexBa5,$hexBa10,$hexBa15,$hexBa20,$hexBa25,$hexBa30);
$datayb = array($hexBb5,$hexBb10,$hexBb15,$hexBb20,$hexBb25,$hexBb30);
//$datax = array($k1d,$k2d,$k3d);
//$datay = array($dk176,$dk276,$dk376);

$graph = new Graph(600,600);
$graph->SetScale("linlin");

$graph->img->SetMargin(40,40,40,40);		
$graph->SetShadow();

$graph->title->Set("Gamut scatter R plot");
$graph->title->SetFont(FF_FONT1,FS_BOLD);

$sp1 = new ScatterPlot($datay,$datax);
$sp1->mark->SetType(MARK_FILLEDCIRCLE);
$sp1->mark->SetFillColor("red");

$sp2 = new ScatterPlot($datay2,$datax2);
$sp2->SetLinkPoints(true,"#55bbdd",2);
$sp2->mark->SetType(MARK_FILLEDCIRCLE);
$sp2->mark->SetFillColor("#55bbdd");
$sp2->mark->SetWidth(3);

$sp3 = new ScatterPlot($datay3,$datax3);
//$sp3->mark->SetType(MARK_FILLEDCIRCLE);
$sp3->mark->SetFillColor("#55bbdd");

$spr = new ScatterPlot($datayr,$dataxr);
//$spr->mark->SetType(MARK_FILLEDCIRCLE);
$spr->mark->SetFillColor("#f70404");

$spm = new ScatterPlot($dataym,$dataxm);
//$spm->mark->SetType(MARK_FILLEDCIRCLE);
$spm->mark->SetFillColor("#e13fcc");

$spg = new ScatterPlot($datayg,$dataxg);
//$spg->mark->SetType(MARK_FILLEDCIRCLE);
$spg->mark->SetFillColor("#3fe14e");

$spy = new ScatterPlot($datayy,$dataxy);
//$spy->mark->SetType(MARK_FILLEDCIRCLE);
$spy->mark->SetFillColor("#f3fb12");

$spb = new ScatterPlot($datayb,$dataxb);
//$spb->mark->SetType(MARK_FILLEDCIRCLE);
$spb->mark->SetFillColor("#1f2eef");


$graph->Add($sp2);
$graph->Add($sp3);
$graph->Add($spr);
$graph->Add($spm);
$graph->Add($spg);
$graph->Add($spy);
$graph->Add($spb);
$graph->Add($sp1);

$graph->Stroke('scatterGuR.png');

?>
<img src="scatterGuR.png">
</div></td>
</tr>
</table>
  
   
 <?php
	   $link = mysql_connect("127.0.0.1", "root", "fredsql") or die ("Unable to connect!");
	mysql_query("SET NAMES 'utf8'");
	$db = "tvicheck-st";
		// select database
		mysql_select_db($db) or die ("Unable to select database!");

		// generate and execute query
		$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());
	
	if (mysql_num_rows($results) > 0)
	{
		$row = mysql_fetch_object($results);
		$sNo=$row->sNo+1;}
	else {	$sNo=1;}
  
		mysql_close($link);
?>		
   
   
   
   
   
   

   
   
   
   
   <?php
   
  ////////////////////////c50
   $Pdot=5;
   if ($cols==45) {
   	$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]);}
	
	else {
	$c50dm=DensitySp("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]);}
 
  $c50TV=(((1-(pow(10,(-($c50dm-$Pdm)))))/(1-(pow(10,(-($cdm-$Pdm)))))))*100;
 $c50TVI=round(($c50TV-64),2);

 //echo "c50dm:".$c50dm."TV=".$c50TVI."__<br>";
   
    ////////////////////////m50
   $Pdot=6;
      if ($cols==45) {
   	$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]);}
	else {
	   	$m50dm=DensitySp("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]);}

 
  $m50TV=(((1-(pow(10,(-($m50dm-$Pdm)))))/(1-(pow(10,(-($mdm-$Pdm)))))))*100;
 $m50TVI=round(($m50TV-64),2);

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

    ////////////////////////y50
   $Pdot=7;
    if ($cols==45) {
   	$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]);}
	else {
   	$y50dm=DensitySp("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]);}	
 
  $y50TV=(((1-(pow(10,(-($y50dm-$Pdm)))))/(1-(pow(10,(-($ydm-$Pdm)))))))*100;
 $y50TVI=round(($y50TV-64),2);

 //echo "y50dm:".$y50dm."TV=".$y50TVI."__<br>";
 
     ////////////////////////k50
   $Pdot=8;
      if ($cols==45) { 
   	$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]);}
	else {
   	$k50Xm=spXYZ("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]);

	$k50Ym=spXYZ("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]);

	$k50Zm=spXYZ("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]);

	$k50Lm=xyz2lab01("l",$k50Xm,$k50Ym,$k50Zm);
	$k50am=xyz2lab01("a",$k50Xm,$k50Ym,$k50Zm);
	$k50bm=xyz2lab01("b",$k50Xm,$k50Ym,$k50Zm);
   	$k50dm=DensitySp("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]);}	
 
  $k50TV=(((1-(pow(10,(-($k50dm-$Pdm)))))/(1-(pow(10,(-($kdm-$Pdm)))))))*100;
 $k50TVI=round(($k50TV-67),2);

 //echo "k50dm:".$k50dm."TV=".$k50TVI."__<br>";
 //  echo "note 2k: k50L:".$k50Lm."_k50a:".$k50am."_k50b:".$k50bm."__<br>";
 ////////////////////////////gray
 $Pdot=9;	
 if ($cols==45) {
	$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]);}
	else {
	$gXm=spXYZ("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]);

	$gYm=spXYZ("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]);

	$gZm=spXYZ("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]);

	$gLm=xyz2lab01("l",$gXm,$gYm,$gZm);
	$gam=xyz2lab01("a",$gXm,$gYm,$gZm);
	$gbm=xyz2lab01("b",$gXm,$gYm,$gZm);
	
	$gdm=DensitySp("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]);}	

 // 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($scCL,$scCa,$scCb,$cLm,$cam,$cbm);
  $dm76=de76($scML,$scMa,$scMb,$mLm,$mam,$mbm);
  $dy76=de76($scYL,$scYa,$scYb,$yLm,$yam,$ybm);
  $dk76=de76($scKL,$scKa,$scKb,$kLm,$kam,$kbm);
  
  $dr76=de76($scRL,$scRa,$scRb,$rLm,$ram,$rbm);
  $dgr76=de76($scGL,$scGa,$scGb,$grLm,$gram,$grbm);
  $db76=de76($scBL,$scBa,$scBb,$bLm,$bam,$bbm);
  
  
  $dgl=58.5-$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);
?>
<img src="graphT.gif">







<?php 
///C  ggc gray adjust C
if ($dgl<-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "++"; $ggc=2;} 
elseif ($dgl<-0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "++";$ggc=2;} 
elseif ($dgl<-0.3 and $dga>0.3 and $dgb>0.3) {
echo "+";$ggc=1;} 
elseif ($dgl<-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";$ggc=1;} 
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3  and 0.3>$dgb and $dgb>-0.3) {
echo "++";$ggc=2;} 
elseif ($dgl<-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "+";$ggc=1;} 
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3  and $dgb<-0.3) {
echo "++";$ggc=2;} 
elseif ($dgl<-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "++";$ggc=2;} 
elseif ($dgl<-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";$ggc=2;} 
////////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+";$ggc=1;} 
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "";$ggc=0;} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>0.3 and $dgb>0.3) {
echo "-";$ggc=-1;} 
elseif ($dgl>-0.3 and $dgl<0.3    and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";$ggc=-1;} 
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";$ggc=0;} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>0.3 and $dgb<-0.3) {
echo "";$ggc=0;} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>-0.3 and $dga<0.3   and $dgb<-0.3) {
echo "";$ggc=0;} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga<-0.3 and $dgb<-0.3) {
echo "+";$ggc=1;} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";$ggc=1;} 
///////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "-";$ggc=-1;} 
elseif ($dgl>-0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "--";$ggc=-2;} 
elseif ($dgl>-0.3 and $dga>0.3 and $dgb>0.3) {
echo "---";$ggc=-3;} 
elseif ($dgl>-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";$ggc=-2;} 
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3  and 0.3>$dgb and $dgb>-0.3) {
echo "--";$ggc=-2;} 
elseif ($dgl>-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "--";$ggc=-2;} 
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3  and $dgb<-0.3) {
echo "--";$ggc=-2;} 
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "-";$ggc=-1;} 
elseif ($dgl>-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";$ggc=-1;} 
///M
if ($dgl<-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+";$ggm=1;} 
elseif ($dgl<-0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "++";$ggm=2;} 
elseif ($dgl<-0.3 and $dga>0.3 and $dgb>0.3) {
echo "++";$ggm=2;} 
elseif ($dgl<-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";$ggm=2;} 
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3  and 0.3>$dgb and $dgb>-0.3) {
echo "++";$ggm=2;} 
elseif ($dgl<-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "++";$ggm=2;} 
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3  and $dgb<-0.3) {
echo "++";$ggm=2;} 
elseif ($dgl<-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "+";$ggm=1;} 
elseif ($dgl<-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";$ggm=1;} 
////////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb>0.3) {
echo "-";$ggm=-1;} 
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "";$ggm=0;} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>0.3 and $dgb>0.3) {
echo "+";$ggm=1;} 
elseif ($dgl>-0.3 and $dgl<0.3    and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";$ggm=1;} 
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";$ggm=0;} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>0.3 and $dgb<-0.3) {
echo "+";$ggm=1;} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>-0.3 and $dga<0.3   and $dgb<-0.3) {
echo "";$ggm=0;} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga<-0.3 and $dgb<-0.3) {
echo "-";$ggm=-1;} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";$ggm=-1;} 
///////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "--";$ggm=-2;} 
elseif ($dgl>-0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "--";$ggm=-2;} 
elseif ($dgl>-0.3 and $dga>0.3 and $dgb>0.3) {
echo "-";$ggm=-1;} 
elseif ($dgl>-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";$ggm=-1;} 
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3  and 0.3>$dgb and $dgb>-0.3) {
echo "--";$ggm=-2;} 
elseif ($dgl>-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "-";$ggm=-1;} 
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3  and $dgb<-0.3) {
echo "--";$ggm=-2;} 
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "--";$ggm=-2;} 
elseif ($dgl>-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";$ggm=-2;} 
///Y
if ($dgl<-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+++";$ggy=3;} 
elseif ($dgl<-0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "+++";$ggy=3;} 
elseif ($dgl<-0.3 and $dga>0.3 and $dgb>0.3) {
echo "+++";$ggy=3;} 
elseif ($dgl<-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";$ggy=2;} 
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3  and 0.3>$dgb and $dgb>-0.3) {
echo "++";$ggy=2;} 
elseif ($dgl<-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "";$ggy=0;} 
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3  and $dgb<-0.3) {
echo "+";$ggy=1;} 
elseif ($dgl<-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "+";$ggy=1;} 
elseif ($dgl<-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";$ggy=2;} 
////////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+";$ggy=1;} 
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "+";$ggy=1;} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>0.3 and $dgb>0.3) {
echo "+";$ggy=1;} 
elseif ($dgl>-0.3 and $dgl<0.3    and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";$ggy=0;} 
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";$ggy=0;} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>0.3 and $dgb<-0.3) {
echo "-";$ggy=-1;} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>-0.3 and $dga<0.3   and $dgb<-0.3) {
echo "-";$ggy=-1;} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga<-0.3 and $dgb<-0.3) {
echo "-";$ggy=-1;} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";$ggy=0;} 
///////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "-";$ggy=-1;} 
elseif ($dgl>-0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "-";$ggy=-1;} 
elseif ($dgl>-0.3 and $dga>0.3 and $dgb>0.3) {
echo "-";$ggy=-1;} 
elseif ($dgl>-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";$ggy=-2;} 
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3  and 0.3>$dgb and $dgb>-0.3) {
echo "--";$ggy=-2;} 
elseif ($dgl>-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "---";$ggy=-3;} 
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3  and $dgb<-0.3) {
echo "---";$ggy=-3;} 
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "--";$ggy=-2;} 
elseif ($dgl>-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";$ggy=-1;} 

if ($df>3){$color=6;}else {$color=1;}
?>

<?php
$ggc=-$ggc;
$ggm=-$ggm;
$ggy=-$ggy;
GenGraph($ggc,$ggm,$ggy,$color);
?>
<img src="graph.gif">
</div>
</table> 

  
   	<table width="200" border="1" align="center">
  <tr>
  	<td><div align="center"> id<?php echo $sNo;?></div></td>
   <td><font color="#666666">P</td>
    <td><font color='<?php if ($dc76>3.5){echo "red";}else {echo "black";}?>'>C</td>
    <td><font color='<?php if ($dm76>3.5){echo "red";}else {echo "black";}?>'>M</td>
    <td><font color='<?php if ($dy76>3.5){echo "red";}else {echo "black";}?>'>Y</td>
    <td><font color='<?php if ($dk76>5){echo "red";}else {echo "black";}?>'>K</td>
	<td><font color='<?php if ($dr76>4.2){echo "red";}else {echo "black";}?>'>R</td>
    <td><font color='<?php if ($dgr76>4.2){echo "red";}else {echo "black";}?>'>G</td>
    <td><font color='<?php if ($db76>4.2){echo "red";}else {echo "black";}?>'>B</td>
	<td>TVI</td>
    <td><font color='<?php if ($c50TVI>4 or $c50TVI<-4){echo "red";}else {echo "black";}?>'>C50</td>
    <td><font color='<?php if ($m50TVI>4 or $m50TVI<-4){echo "red";}else {echo "black";}?>'>M50</td>
    <td><font color='<?php if ($y50TVI>4 or $y50TVI<-4){echo "red";}else {echo "black";}?>'>Y50</td>
    <td><font color='<?php if ($k50TVI>4 or $k50TVI<-4){echo "red";}else {echo "black";}?>'>K50</td>
	<td>G7</td>
    <td><font color='<?php if ((abs($dgl)>2)){echo "red";}else {echo "black";}?>'>GL</td>
	<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>Ga</td>
	<td><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'>Gb</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 $sum=$sum-$dc76; echo  round($dp76,2);?></a> </div></td>
<td bgcolor="#00FFFF"><font color='<?php if ($dc76>3.5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($cLm,0).",".round($cam,0).",".round($cbm,0);?>"><?php $sum=$sum-$dc76; echo  round($dc76,2);?></a> </div></td>
<td bgcolor="#FF99FF"><font color='<?php if ($dm76>3.5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($mLm,0).",".round($mam,0).",".round($mbm,0);?>"><?php $sum=$sum-$dm76;echo  round($dm76,2);?></a></div></td>
<td bgcolor="#FFFF99"><font color='<?php if ($dy76>3.5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($yLm,0).",".round($yam,0).",".round($ybm,0);?>"><?php $sum=$sum-$dy76; echo  round($dy76,2);?></a></div></td>
<td bgcolor="#aaaaaa"><font color='<?php if ($dk76>5){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($kLm,0).",".round($kam,0).",".round($kbm,0);?>"><?php $sum=$sum-$dk76; echo  round($dk76,2);?></a></div></td>
<td bgcolor="#fa6b53"><font color='<?php if ($dr76>4.2){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($rLm,0).",".round($ram,0).",".round($rbm,0);?>"><?php $sum=$sum-$dr76; echo  round($dr76,2);?></a></div></td>
<td bgcolor="#8afa53"><font color='<?php if ($dgr76>4.2){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($grLm,0).",".round($gram,0).",".round($grbm,0);?>"><?php $sum=$sum-$dgr76; echo  round($dgr76,2);?></a></div></td>
<td bgcolor="#5357fa"><font color='<?php if ($db76>4.2){echo "red";}else {echo "black";}?>'><div align="right"><a href=" " title="<?php echo round($bLm,0).",".round($bam,0).",".round($bbm,0);?>"><?php $sum=$sum-$db76; echo  round($db76,2);?></a></div></td>

<td bgcolor="#ffffff">TVI</td>
<td bgcolor="#00FFFF"><font color='<?php if ($c50TVI>4 or $c50TVI<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php  $sum=$sum-abs($c50TVI);echo  round($c50TVI,2);?></div></td>
<td bgcolor="#FF99FF"><font color='<?php if ($m50TVI>4 or $m50TVI<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php $sum=$sum-abs($m50TVI);echo  round($m50TVI,2);?></div></td>
<td bgcolor="#FFFF99"><font color='<?php if ($y50TVI>4 or $y50TVI<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php $sum=$sum-abs($y50TVI);echo  round($y50TVI,2);?></div></td>
<td bgcolor="#aaaaaa"><font color='<?php if ($k50TVI>4 or $k50TVI<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php $sum=$sum-abs($k50TVI); echo  round($k50TVI,2);?></div></td>
<td bgcolor="#ffffff">G7</td>
<td><div align="right"><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'><a href=" " title="<?php echo round($df,2);?>"><?php $sum=$sum-$df; echo  round($dgl,2);?></a></div></td>
<td><div align="right"><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'><?php echo  round($dga,2);?></div></td>
<td><div align="right"><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'><?php echo  round($dgb,2);?></div></td>
</tr>

<tr>
<td><div align="center">Action</div></td>
<td bgcolor="#CCCCCC"><div align="right"></div></td>
<td bgcolor="#00FFFF"><div align="right"><?php if ($cLm-$cl>1) {echo "+";} elseif ($cLm-$scCL<-1) {echo "-";} else {echo "*";}?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php if ($mLm-$scML>1) {echo "+";} elseif ($mLm-$scML<-1) {echo "-";} else {echo "*";}?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php if ($yLm-$scYL>1) {echo "+";} elseif ($yLm-$scYL<-1) {echo "-";} else {echo "*";}?></div></td>
<td bgcolor="#aaaaaa"><div align="right"><?php if ($kLm-$scKL>1) {echo "+";} elseif ($kLm-$scKL<-1) {echo "-";} else {echo "*";}?></div></td>
<td bgcolor="#ffffff"></td>
<td bgcolor="#ffffff"></td>
<td bgcolor="#ffffff"></td>
<td>TVI</td>
<td bgcolor="#00FFFF"><div align="right"><?php if ($c50TVI<0) {echo "+";} else {echo "-";}?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php if ($m50TVI<0) {echo "+";} else {echo "-";}?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php if ($y50TVI<0) {echo "+";} else {echo "-";}?></div></td>
<td bgcolor="#aaaaaa"><div align="right"><?php if ($k50TVI<0) {echo "+";} else {echo "-";}?></div></td>
<td>G7</td>
<td bgcolor="#00FFFF"><div align="right"><?php 
if ($dgl<-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga>0.3 and $dgb>0.3) {
echo "+";} 
elseif ($dgl<-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";} 
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3  and 0.3>$dgb and $dgb>-0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "+";} 
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3  and $dgb<-0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";} 
////////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+";} 
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>0.3 and $dgb>0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dgl<0.3    and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>0.3 and $dgb<-0.3) {
echo "";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>-0.3 and $dga<0.3   and $dgb<-0.3) {
echo "";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga<-0.3 and $dgb<-0.3) {
echo "+";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";} 
///////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga>0.3 and $dgb>0.3) {
echo "---";} 
elseif ($dgl>-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3  and 0.3>$dgb and $dgb>-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3  and $dgb<-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";} 
?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php 
if ($dgl<-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+";} 
elseif ($dgl<-0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga>0.3 and $dgb>0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";} 
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3  and 0.3>$dgb and $dgb>-0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "++";} 
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3  and $dgb<-0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "+";} 
elseif ($dgl<-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";} 
////////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb>0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>0.3 and $dgb>0.3) {
echo "+";} 
elseif ($dgl>-0.3 and $dgl<0.3    and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";} 
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>0.3 and $dgb<-0.3) {
echo "+";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>-0.3 and $dga<0.3   and $dgb<-0.3) {
echo "";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga<-0.3 and $dgb<-0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";} 
///////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga>0.3 and $dgb>0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";} 
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3  and 0.3>$dgb and $dgb>-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "-";} 
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3  and $dgb<-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";} 
?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php 
if ($dgl<-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+++";} 
elseif ($dgl<-0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "+++";} 
elseif ($dgl<-0.3 and $dga>0.3 and $dgb>0.3) {
echo "+++";} 
elseif ($dgl<-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";} 
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3  and 0.3>$dgb and $dgb>-0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "";} 
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3  and $dgb<-0.3) {
echo "+";} 
elseif ($dgl<-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "+";} 
elseif ($dgl<-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";} 
////////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+";} 
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "+";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>0.3 and $dgb>0.3) {
echo "+";} 
elseif ($dgl>-0.3 and $dgl<0.3    and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";} 
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>0.3 and $dgb<-0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>-0.3 and $dga<0.3   and $dgb<-0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga<-0.3 and $dgb<-0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";} 
///////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dga>0.3 and $dgb>0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3  and 0.3>$dgb and $dgb>-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "---";} 
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3  and $dgb<-0.3) {
echo "---";} 
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";} 
?></div></td>
</tr>
<tr>
<td><div align="center">量測濃度</div></td>
<td bgcolor="#CCCCCC"></td>
<td bgcolor="#00FFFF"><div align="right"><font color='<?php if ($dc76>3.5){echo "red";}else {echo "black";}?>'><?php echo round($cdm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><font color='<?php if ($dm76>3.5){echo "red";}else {echo "black";}?>'><?php echo round($mdm,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><font color='<?php if ($dy76>3.5){echo "red";}else {echo "black";}?>'><?php echo round($ydm,2);?></div></td>
<td bgcolor="#daffc2"><div align="right"><font color='<?php if ($dk76>5){echo "red";}else {echo "black";}?>'><?php echo round($kdm,2);?></div></td>
<td bgcolor="#fa6b53"><div align="right"><font color='<?php if ($dr76>4.2){echo "red";}else {echo "black";}?>'><?php echo round($rdm,2);?></div></td>
<td bgcolor="#8afa53"><div align="right"><font color='<?php if ($dgr76>4.2){echo "red";}else {echo "black";}?>'><?php echo round($grdm,2);?></div></td>
<td bgcolor="#5357fa"><div align="right"><font color='<?php if ($db76>4.2){echo "red";}else {echo "black";}?>'><div align="right"><?php echo round($bdm,2);?></div></td>
<td>TVI濃度</td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($c50dm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($m50dm,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($y50dm,2);?></div></td>
<td bgcolor="#daffc2"><div align="right"><?php echo round($k50dm,2);?></div></td>
<td>G7量測</td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($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>
</tr>
<tr>
<td><div align="center">預測濃度</div></td>
<td bgcolor="#CCCCCC"></td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($coptD,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($moptD,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($yoptD,2);?></div></td>
<td bgcolor="#daffc2"><div align="right"><?php echo round($koptD,2);?></div></td>

<td bgcolor="#fa6b53"><div align="right"><?php echo round($roptD,2);?></div></td>
<td bgcolor="#8afa53"><div align="right"><?php echo round($groptD,2);?></div></td>
<td bgcolor="#5357fa"><div align="right"><?php echo round($boptD,2);?></div></td>
<td></td>
<td bgcolor="#00FFFF"><div align="right"></div></td>
<td bgcolor="#FF99FF"><div align="right"></div></td>
<td bgcolor="#FFFF99"><div align="right"></div></td>
<td bgcolor="#daffc2"><div align="right"></div></td>
<td>G7目標</td>
<td bgcolor="#00FFFF"><div align="right">58.5</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>
</tr>
<tr>
<td><div align="center">最佳色差</div></td>
<td bgcolor="#CCCCCC"></td>

<td bgcolor="#00FFFF"><div align="right"><?php if ($cmin>5) {?><font color="red"><?php } echo round($cmin,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php if ($mmin>5) {?><font color="red"><?php } echo round($mmin,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php if ($ymin>5) {?><font color="red"><?php } echo round($ymin,2);?></div></td>
<td bgcolor="#CCCCCC"><div align="right"><?php if ($kmin>5) {?><font color="red"><?php } echo round($kmin,2);?></div></td>
<td bgcolor="#fa6b53"><div align="right"><?php if ($rmin>6) {?><font color="red"><?php } echo round($rmin,2);?></div></td>
<td bgcolor="#8afa53"><div align="right"><?php if ($grmin>6) {?><font color="red"><?php } echo round($grmin,2);?></div></td>
<td bgcolor="#5357fa"><div align="right"><?php if ($bmin>6) {?><font color="red"><?php } echo round($bmin,2);?></div></td>
<td>
<input type="submit" name="submit" value="Set OK">
</td>
<td><?php echo"分數:<br>". round($sum,2);?></td>
</tr>
</table>
<tr></tr>






<?php 
  $connection = mysql_connect("127.0.0.1", "root", "fredsql") or die ("Unable to connect!");
	mysql_query("SET NAMES 'utf8'");
	$db = "tvicheck-st";
		// select database
		mysql_select_db($db) or die ("Unable to select database!");

				$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());
	
	if (mysql_num_rows($results) > 0)
	{
		$row = mysql_fetch_object($results);
		$sNo=$row->sNo+1;}
	else {	$sNo=1;}
		// generate and execute query
		$query = "INSERT INTO Production7 (po, Fscore, sNo, filename,  target, ddate, pdate, press, paper, ink , cmmt, denC,denM,denY, denK, TVIc,TVIm, TVIy,TVIk,deg ) VALUES( '$po','$sum', '$sNo', '$filename','$target', NOW(), '$date_s', '$press', '$paper', '$ink', '$cmmt', '$cdm','$mdm', '$ydm', '$kdm', '$c50dm', '$m50dm', '$y50dm', '$k50dm', '$deg')";
		
		//echo $query;
		$result = mysql_query($query) or die ("Error in query: $query. " . mysql_error());
  
		mysql_close($connection);
 ?>

</form>
<?php
}///////target process

else { ////2228
echo "content=1"."xx";
echo "2bd sec [26]:".$dot[26]; 
$Csum=100;
if ($okName=='') {
$connection = mysql_connect("127.0.0.1", "root", "fredsql") or die ("Unable to connect!");
	mysql_query("SET NAMES 'utf8'");
	$db = "tvicheck-st";
		// select database
		mysql_select_db($db) or die ("Unable to select database!");

				$querys = "select okName from Production where po='$po' and setOK='1' ORDER BY id DESC LIMIT 1 ";
		
		$results = mysql_query($querys) or die ("Error in query: $querys. " . mysql_error());
	
	if (mysql_num_rows($results) > 0)
	{
		$row = mysql_fetch_object($results);
		$okName=$row->okName;}
  
		mysql_close($connection);
}
echo "<br>印件目標:".$okName."<br>";
?>

<table width="200" border="0" align="center">
	    <tr><td>

 <input size="15" maxlength="50" type="hidden" name="rtarget" value=<?php echo $f321;?> /></td>
     
    </tr>

  </table>
	<p><p>
	

  


  <?php
  //////////////////////////////////////////////////Fogra Media Check

  
  include 'densityV38.php';
    include 'densityV.php';
  
  if ($fMark>0) { /////////////////////////////////////////////////////////////////////////////////////////// i1 profiler  go 572
$idx=6;
$cols=42;
}
elseif ($nm380>0) {  ///color port
$idx=9;
$cols=45;}
else{
$idx=9;
$cols=40;
}


///////////////////////////////////////////////////////////////////////////////measure Part 
  //$cols=40;
  $k1dd=0;
  $Pdot=0;	
  //echo "Paper X".$dotT[$idx+$cols*$Pdot+1]."<br>";
  if ($cols==45) {
	$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]);}
	else {
	$PXm=spXYZ("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]);

	$PYm=spXYZ("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]);

	$PZm=spXYZ("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]);

	$PLm=xyz2lab01("l",$PXm,$PYm,$PZm);
	$Pam=xyz2lab01("a",$PXm,$PYm,$PZm);
	$Pbm=xyz2lab01("b",$PXm,$PYm,$PZm);
	
	$Pdm=DensitySp("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]);}	
// echo "xyz x:".$PXm."_y:".$PYm."_z:".$PZm;	
// echo "dot-10:".$dotT[$idx+$cols*$Pdot+1]."_dot-40:".$dotT[$idx+$cols*$Pdot+31];
 // echo "<BR>note 2k: PL:".$PLm."_Pa:".$Pam."_Pb:".$Pbm."__Pdm:".$Pdm."__<br>";


  /////////////////////////////////c
  
	  $Pdot=1;	
	  if ($cols==45) {
	//    echo "C X".$dotT[$idx+$cols*$Pdot+1]."<br>";
	$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]);}
	else {
	$cXm=spXYZ("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]);

	$cYm=spXYZ("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]);

	$cZm=spXYZ("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]);

	$cLm=xyz2lab01("l",$cXm,$cYm,$cZm);
	$cam=xyz2lab01("a",$cXm,$cYm,$cZm);
	$cbm=xyz2lab01("b",$cXm,$cYm,$cZm);
	
	$cdm=DensitySp("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]);}	
 // echo "note 2k: scCL:".$cLm."_Ca:".$cam."_Cb:".$cbm."__cdm:".$cdm."__<br>";
  
 ///////////////////////////////////////////m
 
  $Pdot=2;	
  if ($cols==45) {
	$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]);}
	else {
	$mXm=spXYZ("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]);

	$mYm=spXYZ("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]);

	$mZm=spXYZ("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]);

	$mLm=xyz2lab01("l",$mXm,$mYm,$mZm);
	$mam=xyz2lab01("a",$mXm,$mYm,$mZm);
	$mbm=xyz2lab01("b",$mXm,$mYm,$mZm);
	
	$mdm=DensitySp("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]);}	
 // echo "note 2k: scML:".$mLm."_Ma:".$mam."_Mb:".$mbm."__Mdm:".$mdm."__<br>";
   
    ///////////////////////////////////////////y
  $Pdot=3;	
  if ($cols==45) {
	$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]);}
	else {
	$yXm=spXYZ("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]);

	$yYm=spXYZ("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]);

	$yZm=spXYZ("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]);

	$yLm=xyz2lab01("l",$yXm,$yYm,$yZm);
	$yam=xyz2lab01("a",$yXm,$yYm,$yZm);
	$ybm=xyz2lab01("b",$yXm,$yYm,$yZm);
	
	$ydm=DensitySp("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]);}	
//  echo "note 2k: scYL:".$yLm."_Ya:".$yam."_Yb:".$ybm."__Ydm:".$ydm."__<br>";
   
       ///////////////////////////////////////////k
  $Pdot=4;	
  if ($cols==45) {
	$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]);}
	else {
	$kXm=spXYZ("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]);

	$kYm=spXYZ("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]);

	$kZm=spXYZ("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]);

	$kLm=xyz2lab01("l",$kXm,$kYm,$kZm);
	$kam=xyz2lab01("a",$kXm,$kYm,$kZm);
	$kbm=xyz2lab01("b",$kXm,$kYm,$kZm);
	
	$kdm=DensitySp("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]);}
 // echo "note 2k: scKL:".$kLm."_Ka:".$kam."_Kb:".$kbm."__Kdm:".$kdm."__<br>";
   
   
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
//   //////////////////////////////////Target Part///////////////////////////////////////////////////////////

//$cols=40;
  $k1dd=0;
  $Pdot=0;	
  //echo "Paper X".$dot[$idx+$cols*$Pdot+1]."<br>";
  if ($colos==45) {
	$PXt=sp38XYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);

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

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

	$PLt=xyz2lab01("l",$PXt,$PYt,$PZt);
	$Pat=xyz2lab01("a",$PXt,$PYt,$PZt);
	$Pbt=xyz2lab01("b",$PXt,$PYt,$PZt);
	
	$Pdt=DensitySp38("K",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);}
	else {
	$PXt=spXYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);

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

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

	$PLt=xyz2lab01("l",$PXt,$PYt,$PZt);
	$Pat=xyz2lab01("a",$PXt,$PYt,$PZt);
	$Pbt=xyz2lab01("b",$PXt,$PYt,$PZt);
	
	$Pdt=DensitySp("K",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);}	
// echo "xyz x:".$PXm."_y:".$PYm."_z:".$PZm;	
// echo "dot-10:".$dot[$idx+$cols*$Pdot+1]."_dot-40:".$dot[$idx+$cols*$Pdot+31];
 // echo "<BR>note 2k: PL:".$PLm."_Pa:".$Pam."_Pb:".$Pbm."__Pdm:".$Pdm."__<br>";


  /////////////////////////////////c
  
	  $Pdot=1;	
	  if ($cols==45) {
	//    echo "C X".$dot[$idx+$cols*$Pdot+1]."<br>";
	$cXt=sp38XYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);

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

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

	$cLt=xyz2lab01("l",$cXt,$cYt,$cZt);
	$cat=xyz2lab01("a",$cXt,$cYt,$cZt);
	$cbt=xyz2lab01("b",$cXt,$cYt,$cZt);
	
	$cdt=DensitySp38("C",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);}
	else {
	$cXt=spXYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);

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

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

	$cLt=xyz2lab01("l",$cXt,$cYt,$cZt);
	$cat=xyz2lab01("a",$cXt,$cYt,$cZt);
	$cbt=xyz2lab01("b",$cXt,$cYt,$cZt);
	
	$cdt=DensitySp("C",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);}	
  //echo "note Target: scCL:".$cLt."_Ca:".$cat."_Cb:".$cbt."__cdm:".$cdt."__<br>"; 

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

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

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

	$mLt=xyz2lab01("l",$mXt,$mYt,$mZt);
	$mat=xyz2lab01("a",$mXt,$mYt,$mZt);
	$mbt=xyz2lab01("b",$mXt,$mYt,$mZt);
	
	$mdt=DensitySp38("M",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);}
	else {
		$mXt=spXYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);

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

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

	$mLt=xyz2lab01("l",$mXt,$mYt,$mZt);
	$mat=xyz2lab01("a",$mXt,$mYt,$mZt);
	$mbt=xyz2lab01("b",$mXt,$mYt,$mZt);
	
	$mdt=DensitySp("M",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);}
 // echo "note 2k: scML:".$mLm."_Ma:".$mam."_Mb:".$mbm."__Mdm:".$mdm."__<br>";
   
    ///////////////////////////////////////////y
  $Pdot=3;	
  if ($cols==45) {
	$yXt=sp38XYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);

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

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

	$yLt=xyz2lab01("l",$yXt,$yYt,$yZt);
	$yat=xyz2lab01("a",$yXt,$yYt,$yZt);
	$ybt=xyz2lab01("b",$yXt,$yYt,$yZt);
	
	$ydt=DensitySp38("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);}
	else {
	$yXt=spXYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);

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

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

	$yLt=xyz2lab01("l",$yXt,$yYt,$yZt);
	$yat=xyz2lab01("a",$yXt,$yYt,$yZt);
	$ybt=xyz2lab01("b",$yXt,$yYt,$yZt);
	
	$ydt=DensitySp("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);}	
//  echo "note 2k: scYL:".$yLm."_Ya:".$yam."_Yb:".$ybm."__Ydm:".$ydm."__<br>";
   
       ///////////////////////////////////////////k
  $Pdot=4;	
  if ($cols==45) {
	$kXt=sp38XYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);

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

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

	$kLt=xyz2lab01("l",$kXt,$kYt,$kZt);
	$kat=xyz2lab01("a",$kXt,$kYt,$kZt);
	$kbt=xyz2lab01("b",$kXt,$kYt,$kZt);
	
	$kdt=DensitySp38("K",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);}
	else {
	$kXt=spXYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);

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

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

	$kLt=xyz2lab01("l",$kXt,$kYt,$kZt);
	$kat=xyz2lab01("a",$kXt,$kYt,$kZt);
	$kbt=xyz2lab01("b",$kXt,$kYt,$kZt);
	
	$kdt=DensitySp("K",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);}	
 // echo "note 2k: scKL:".$kLm."_Ka:".$kam."_Kb:".$kbm."__Kdm:".$kdm."__<br>";

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
   ////////////////sec K
	
 

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


///////////////////////////////////////////////////////////////////////////////////////////////
  $psum=20;
  $pl=95; $pa=-0.01;$pb=-2;
  $cl=$cLt; $ca=$cat;$cb=$cbt;
  $ml=$mLt; $ma=$mat;$mb=$mbt;
  $yl=$yLt; $ya=$yat;$yb=$ybt;
  $kl=$kLt; $ka=$kat;$kb=$kbt;
  
//echo "de:".$cLt."cx".$cat."cx".$cbt."cx".$cLm."cx".$cam."cx".$cbm;
 
 $tt00=de76(55,-37,-50,54.3,-34.47,-52.63);
 $dek00=de76($kl,$ka,$kb,$kLm,$kam,$kbm);
 $dec00=de76($cLt,$cat,$cbt,$cLm,$cam,$cbm);
 $dem00=de76($ml,$ma,$mb,$mLm,$mam,$mbm);
 $dey00=de76($yl,$ya,$yb,$yLm,$yam,$ybm);




 // $dk194=de94($kl,$ka,$kb,$k1l,$k1a,$k1b);
  

  ?>


   
 <?php
	   $link = mysql_connect("127.0.0.1", "root", "fredsql") or die ("Unable to connect!");
	mysql_query("SET NAMES 'utf8'");
	$db = "tvicheck-st";
		// select database
		mysql_select_db($db) or die ("Unable to select database!");

		// generate and execute query
		$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());
	
	if (mysql_num_rows($results) > 0)
	{
		$row = mysql_fetch_object($results);
		$sNo=$row->sNo+1;}
	else {	$sNo=1;}
  
		mysql_close($link);
?>		

   <?php
   ////////////////////////////////////Measure part
  ////////////////////////c50
   $Pdot=5;
   if ($cols==45) {

   	$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]);}
	else {
    	$c50Xm=spXYZ("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]);

	$c50Ym=spXYZ("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]);

	$c50Zm=spXYZ("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]);

	$c50Lm=xyz2lab01("l",$c50Xm,$c50Ym,$c50Zm);
	$c50am=xyz2lab01("a",$c50Xm,$c50Ym,$c50Zm);
	$c50bm=xyz2lab01("b",$c50Xm,$c50Ym,$c50Zm);
   
   
   	$c50dm=DensitySp("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]);}
	
	
  $c50TV=(((1-(pow(10,(-($c50dm-$Pdm)))))/(1-(pow(10,(-($cdm-$Pdm)))))))*100;
 $c50TVI=round(($c50TV-64),2);

// echo "c50Lt:".$c50Lm."TV=".$c50am."TV=".$c50bm."__<br>";
   
    ////////////////////////m50
   $Pdot=6;
   if ($cols==45) {
      	$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]);}
	else {
      	$m50Xm=spXYZ("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]);

	$m50Ym=spXYZ("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]);

	$m50Zm=spXYZ("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]);

	$m50Lm=xyz2lab01("l",$m50Xm,$m50Ym,$m50Zm);
	$m50am=xyz2lab01("a",$m50Xm,$m50Ym,$m50Zm);
	$m50bm=xyz2lab01("b",$m50Xm,$m50Ym,$m50Zm);
	
   	$m50dm=DensitySp("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]);}	
 
  $m50TV=(((1-(pow(10,(-($m50dm-$Pdm)))))/(1-(pow(10,(-($mdm-$Pdm)))))))*100;
 $m50TVI=round(($m50TV-64),2);

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

    ////////////////////////y50
   $Pdot=7;
   if ($cols==45) {
      	$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]);}
	else {
      	$y50Xm=spXYZ("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]);

	$y50Ym=spXYZ("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]);

	$y50Zm=spXYZ("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]);

	$y50Lm=xyz2lab01("l",$y50Xm,$y50Ym,$y50Zm);
	$y50am=xyz2lab01("a",$y50Xm,$y50Ym,$y50Zm);
	$y50bm=xyz2lab01("b",$y50Xm,$y50Ym,$y50Zm);
	
   	$y50dm=DensitySp("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]);}	
 
  $y50TV=(((1-(pow(10,(-($y50dm-$Pdm)))))/(1-(pow(10,(-($ydm-$Pdm)))))))*100;
  $y50TVI=round(($y50TV-64),2);

 //echo "y50dm:".$y50dm."TV=".$y50TVI."__<br>";
 
     ////////////////////////k50
   $Pdot=8;
   if ($cols==45) {
   	$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]);}
	else {
   	$k50Xm=spXYZ("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]);

	$k50Ym=spXYZ("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]);

	$k50Zm=spXYZ("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]);

	$k50Lm=xyz2lab01("l",$k50Xm,$k50Ym,$k50Zm);
	$k50am=xyz2lab01("a",$k50Xm,$k50Ym,$k50Zm);
	$k50bm=xyz2lab01("b",$k50Xm,$k50Ym,$k50Zm);
	
   	$k50dm=DensitySp("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]);}	
 
  $k50TV=(((1-(pow(10,(-($k50dm-$Pdm)))))/(1-(pow(10,(-($kdm-$Pdm)))))))*100;
  $k50TVI=round(($k50TV-67),2);

 //echo "k50dm:".$k50dm."TV=".$k50TVI."__<br>";
 //  echo "note 2k: k50L:".$k50Lm."_k50a:".$k50am."_k50b:".$k50bm."__<br>";
 ////////////////////////////gray
 $Pdot=9;	
 if ($cols==45) {
	$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]);}
	else {
	$gXm=spXYZ("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]);

	$gYm=spXYZ("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]);

	$gZm=spXYZ("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]);

	$gLm=xyz2lab01("l",$gXm,$gYm,$gZm);
	$gam=xyz2lab01("a",$gXm,$gYm,$gZm);
	$gbm=xyz2lab01("b",$gXm,$gYm,$gZm);
	
	$gdm=DensitySp("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]);}

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


 /////////////////////////////////////////////////////////////////////////
   ////////////////////////////////////Target part
  ////////////////////////c50
   $Pdot=5;
   if ($cols==45) {
     // echo "c50dot:".$dot[$idx+$cols*$Pdot+1]."<br>";
      	$c50Xt=sp38XYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);

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

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

	$c50Lt=xyz2lab01("l",$c50Xt,$c50Yt,$c50Zt);
	$c50at=xyz2lab01("a",$c50Xt,$c50Yt,$c50Zt);
	$c50bt=xyz2lab01("b",$c50Xt,$c50Yt,$c50Zt);
   
   	$c50dt=DensitySp38("C",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);}
	else {
      	$c50Xt=spXYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);

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

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

	$c50Lt=xyz2lab01("l",$c50Xt,$c50Yt,$c50Zt);
	$c50at=xyz2lab01("a",$c50Xt,$c50Yt,$c50Zt);
	$c50bt=xyz2lab01("b",$c50Xt,$c50Yt,$c50Zt);
   
   	$c50dt=DensitySp("C",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);}	
 


 //echo "c50Lt:".$c50Lt."TV=".$c50at."TV=".$c50bt."__<br>";
   
    ////////////////////////m50
   $Pdot=6;
if ($cols==45) {   
         	$m50Xt=sp38XYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);

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

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

	$m50Lt=xyz2lab01("l",$m50Xt,$m50Yt,$m50Zt);
	$m50at=xyz2lab01("a",$m50Xt,$m50Yt,$m50Zt);
	$m50bt=xyz2lab01("b",$m50Xt,$m50Yt,$m50Zt);
	
   	$m50dt=DensitySp38("M",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);}
	else {
          	$m50Xt=spXYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);

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

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

	$m50Lt=xyz2lab01("l",$m50Xt,$m50Yt,$m50Zt);
	$m50at=xyz2lab01("a",$m50Xt,$m50Yt,$m50Zt);
	$m50bt=xyz2lab01("b",$m50Xt,$m50Yt,$m50Zt);
	
   	$m50dt=DensitySp("M",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);}


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

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

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

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

	$y50Lt=xyz2lab01("l",$y50Xt,$y50Yt,$y50Zt);
	$y50at=xyz2lab01("a",$y50Xt,$y50Yt,$y50Zt);
	$y50bt=xyz2lab01("b",$y50Xt,$y50Yt,$y50Zt);
	
   	$y50dt=DensitySp38("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]); }
	else {
         	$y50Xt=spXYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);

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

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

	$y50Lt=xyz2lab01("l",$y50Xt,$y50Yt,$y50Zt);
	$y50at=xyz2lab01("a",$y50Xt,$y50Yt,$y50Zt);
	$y50bt=xyz2lab01("b",$y50Xt,$y50Yt,$y50Zt);
	
   	$y50dt=DensitySp("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]); }	
 


 //echo "y50dm:".$y50dm."TV=".$y50TVI."__<br>";
 
     ////////////////////////k50
   $Pdot=8;
   if ($cols==45) {
   
         	$k50Xt=sp38XYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);

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

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

	$k50Lt=xyz2lab01("l",$k50Xt,$k50Yt,$k50Zt);
	$k50at=xyz2lab01("a",$k50Xt,$k50Yt,$k50Zt);
	$k50bt=xyz2lab01("b",$k50Xt,$k50Yt,$k50Zt);
	

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

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

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

	$k50Lt=xyz2lab01("l",$k50Xt,$k50Yt,$k50Zt);
	$k50at=xyz2lab01("a",$k50Xt,$k50Yt,$k50Zt);
	$k50bt=xyz2lab01("b",$k50Xt,$k50Yt,$k50Zt);
	

   	$k50dt=DensitySp("Y",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]); } 


 //echo "k50dm:".$k50dm."TV=".$k50TVI."__<br>";
 //  echo "note 2k: k50L:".$k50Lm."_k50a:".$k50am."_k50b:".$k50bm."__<br>";
 ////////////////////////////gray
 $Pdot=9;	
 if ($cols==45) {
	$gXt=sp38XYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);

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

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

	$gLt=xyz2lab01("l",$gXt,$gYt,$gZt);
	$gat=xyz2lab01("a",$gXt,$gYt,$gZt);
	$gbt=xyz2lab01("b",$gXt,$gYt,$gZt);
	
	$gdt=DensitySp38("K",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31],$dot[$idx+$cols*$Pdot+32],$dot[$idx+$cols*$Pdot+33],$dot[$idx+$cols*$Pdot+34],$dot[$idx+$cols*$Pdot+35],$dot[$idx+$cols*$Pdot+36]);}
	else {
	$gXt=spXYZ("X",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);

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

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

	$gLt=xyz2lab01("l",$gXt,$gYt,$gZt);
	$gat=xyz2lab01("a",$gXt,$gYt,$gZt);
	$gbt=xyz2lab01("b",$gXt,$gYt,$gZt);
	
	$gdt=DensitySp("K",$dot[$idx+$cols*$Pdot+1],$dot[$idx+$cols*$Pdot+2],$dot[$idx+$cols*$Pdot+3],$dot[$idx+$cols*$Pdot+4],$dot[$idx+$cols*$Pdot+5],$dot[$idx+$cols*$Pdot+6],$dot[$idx+$cols*$Pdot+7],$dot[$idx+$cols*$Pdot+8],$dot[$idx+$cols*$Pdot+9],$dot[$idx+$cols*$Pdot+10],$dot[$idx+$cols*$Pdot+11],$dot[$idx+$cols*$Pdot+12],$dot[$idx+$cols*$Pdot+13],$dot[$idx+$cols*$Pdot+14],$dot[$idx+$cols*$Pdot+15],$dot[$idx+$cols*$Pdot+16],$dot[$idx+$cols*$Pdot+17],$dot[$idx+$cols*$Pdot+18],$dot[$idx+$cols*$Pdot+19],$dot[$idx+$cols*$Pdot+20],$dot[$idx+$cols*$Pdot+21],$dot[$idx+$cols*$Pdot+22],$dot[$idx+$cols*$Pdot+23],$dot[$idx+$cols*$Pdot+24],$dot[$idx+$cols*$Pdot+25],$dot[$idx+$cols*$Pdot+26],$dot[$idx+$cols*$Pdot+27],$dot[$idx+$cols*$Pdot+28],$dot[$idx+$cols*$Pdot+29],$dot[$idx+$cols*$Pdot+30],$dot[$idx+$cols*$Pdot+31]);}
	

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



  
  
  $dgl=58-$gLt;
  $dga=($Pat/2)-$gat;
  $dgb=($Pbt/2)-$gbt;
  $df=sqrt(pow($dga,2)+pow($dgb,2));

  	$dt=50;
	$wa=$Pat*(100-$dt)/100;
	$wb=$Pbt*(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>";
  $c50dd=$c50dm-$c50dt;
 $m50dd=$m50dm-$m50dt;
  $y50dd=$y50dm-$y50dt;
  $k50dd=$k50dm-$k50dt;
  
    $c00dd=$cdm-$cdt;
 $m00dd=$mdm-$mdt;
  $y00dd=$ydm-$ydt;
  $k00dd=$kdm-$kdt;
  
 $dek50=de76($k50Lt,$k50at,$k50bt,$k50Lm,$k50am,$k50bm);
 $dec50=de76($c50Lt,$c50at,$c50bt,$c50Lm,$c50am,$c50bm);
 $dem50=de76($m50Lt,$m50at,$m50bt,$m50Lm,$m50am,$m50bm);
 $dey50=de76($y50Lt,$y50at,$y50bt,$y50Lm,$y50am,$y50bm);
  
 // echo "dd:".$c00dd."dd".$m00dd."dd".$y00dd."dd".$k00dd;
  ?>
  
 <table>
<div>
<?php

include 'graphFixG1.php';

GenGraphTG($c00dd,$m00dd,$y00dd,$k00dd);
?>
<img src="graphTG.gif">

<?php

include 'graphFix.php';

GenGraphT($c50dd,$m50dd,$y50dd,$k50dd);
?>
<img src="graphT.gif">
</div>
</table> 
  
   	<table width="200" border="1" align="center">
  <tr>
  	<td><div align="center"> id<?php echo $sNo;?></div></td>
   <td><font color="#666666">P</td>
    <td><font color="#666666">C</td>
    <td><font color="#666666">M</td>
    <td><font color="#666666">Y</td>
    <td><font color="#666666">K</td>
	<td>TVI</td>
    <td><font color="#666666">C50</td>
    <td>M50</td>
    <td>Y50</td>
    <td>K50</td>
	<td>G7</td>
    <td>GL</td>
	<td>Ga</td>
	<td>Gb</td>
  </tr>
    
  
<tr bgcolor="#aaaaaa">
<td><div align="center">色差</div></td>
<td><div align="right"></div></td>

<td bgcolor="#00FFFF"><font color='<?php if ($dec00>2){echo "red";}else {echo "black";}?>'><div align="right"><?php $Csum=$Csum-$dec00; echo round($dec00,2);?></div></td>
<td bgcolor="#FF99FF"><font color='<?php if ($dem00>2){echo "red";}else {echo "black";}?>'><div align="right"><?php $Csum=$Csum-$dem00; echo  round($dem00,2);?></div></td>
<td bgcolor="#FFFF99"><font color='<?php if ($dey00>2){echo "red";}else {echo "black";}?>'><div align="right"><?php $Csum=$Csum-$dey00; echo  round($dey00,2);?></div></td>
<td bgcolor="#aaaaaa"><font color='<?php if ($dek00>2){echo "red";}else {echo "black";}?>'><div align="right"><?php $Csum=$Csum-$dek00; echo  round($dek00,2);?></div></td>
<td bgcolor="#ffffff">TVI</td>
<td bgcolor="#00FFFF"><font color='<?php if ($dec50>3 or $dec50<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php $Csum=$Csum-$dec50; echo  round($dec50,2);?></div></td>
<td bgcolor="#FF99FF"><font color='<?php if ($dem50>3 or $dem50<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php $Csum=$Csum-$dem50; echo  round($dem50,2);?></div></td>
<td bgcolor="#FFFF99"><font color='<?php if ($dey50>3 or $dey50<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php $Csum=$Csum-$dey50;echo  round($dey50,2);?></div></td>
<td bgcolor="#aaaaaa"><font color='<?php if ($dek50>3 or $dek50<-4){echo "red";}else {echo "black";}?>'><div align="right"><?php $Csum=$Csum-$dek50; echo  round($dek50,2);?></div></td>
<td bgcolor="#ffffff">G7</td>
<td><div align="right"><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'><?php echo  round($dgl,2);?></div></td>
<td><div align="right"><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'><?php echo  round($dga,2);?></div></td>
<td><div align="right"><font color='<?php if ($df>3){echo "red";}else {echo "black";}?>'><?php echo  round($dgb,2);?></div></td>
</tr>

<tr>
<td><div align="center">目標濃度</div></td>
<td bgcolor="#CCCCCC"><div align="right"></div></td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($cdt,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($mdt,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($ydt,2);?></div></td>
<td bgcolor="#aaaaaa"><div align="right"><?php echo round($kdt,2);?></div></td>
<td>50%</td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($c50dt,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($m50dt,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($y50dt,2);?></div></td>
<td bgcolor="#aaaaaa"><div align="right"><?php echo round($k50dt,2);?></div></td>
<td>G7</td>
<td bgcolor="#00FFFF"><div align="right"><?php 
if ($dgl<-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga>0.3 and $dgb>0.3) {
echo "+";} 
elseif ($dgl<-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";} 
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3  and 0.3>$dgb and $dgb>-0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "+";} 
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3  and $dgb<-0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";} 
////////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+";} 
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>0.3 and $dgb>0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dgl<0.3    and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>0.3 and $dgb<-0.3) {
echo "";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>-0.3 and $dga<0.3   and $dgb<-0.3) {
echo "";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga<-0.3 and $dgb<-0.3) {
echo "+";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";} 
///////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga>0.3 and $dgb>0.3) {
echo "---";} 
elseif ($dgl>-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3  and 0.3>$dgb and $dgb>-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3  and $dgb<-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";} 
?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php 
if ($dgl<-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+";} 
elseif ($dgl<-0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga>0.3 and $dgb>0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";} 
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3  and 0.3>$dgb and $dgb>-0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "++";} 
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3  and $dgb<-0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "+";} 
elseif ($dgl<-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";} 
////////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb>0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>0.3 and $dgb>0.3) {
echo "+";} 
elseif ($dgl>-0.3 and $dgl<0.3    and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "+";} 
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>0.3 and $dgb<-0.3) {
echo "+";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>-0.3 and $dga<0.3   and $dgb<-0.3) {
echo "";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga<-0.3 and $dgb<-0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";} 
///////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga>0.3 and $dgb>0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";} 
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3  and 0.3>$dgb and $dgb>-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "-";} 
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3  and $dgb<-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";} 
?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php 
if ($dgl<-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+++";} 
elseif ($dgl<-0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "+++";} 
elseif ($dgl<-0.3 and $dga>0.3 and $dgb>0.3) {
echo "+++";} 
elseif ($dgl<-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";} 
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3  and 0.3>$dgb and $dgb>-0.3) {
echo "++";} 
elseif ($dgl<-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "";} 
elseif ($dgl<-0.3 and -0.3<$dga and $dga<0.3  and $dgb<-0.3) {
echo "+";} 
elseif ($dgl<-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "+";} 
elseif ($dgl<-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "++";} 
////////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<-0.3 and $dgb>0.3) {
echo "+";} 
elseif ($dgl>-0.3 and $dgl<0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "+";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>0.3 and $dgb>0.3) {
echo "+";} 
elseif ($dgl>-0.3 and $dgl<0.3    and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";} 
elseif ($dgl>-0.3 and $dgl<0.3 and $dga>-0.3 and $dga<0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>0.3 and $dgb<-0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga>-0.3 and $dga<0.3   and $dgb<-0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga<-0.3 and $dgb<-0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dgl<0.3     and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "";} 
///////////////////////////////////////////////////////////////////////////////////////////
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb>0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dga<0.3 and  $dga>-0.3 and $dgb>0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dga>0.3 and $dgb>0.3) {
echo "-";} 
elseif ($dgl>-0.3 and $dga>0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3  and 0.3>$dgb and $dgb>-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga>0.3 and $dgb<-0.3) {
echo "---";} 
elseif ($dgl>-0.3 and -0.3<$dga and $dga<0.3  and $dgb<-0.3) {
echo "---";} 
elseif ($dgl>-0.3 and $dga<-0.3 and $dgb<-0.3) {
echo "--";} 
elseif ($dgl>-0.3 and $dga<-0.3 and 0.3>$dgb and $dgb>-0.3) {
echo "-";} 
?></div></td>
</tr>
<tr>
<td><div align="center">量測濃度</div></td>
<td bgcolor="#CCCCCC"></td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($cdm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($mdm,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($ydm,2);?></div></td>
<td bgcolor="#aaaaaa"><div align="right"><?php echo round($kdm,2);?></div></td>
<td>
<td bgcolor="#00FFFF"><div align="right"><?php echo round($c50dm,2);?></div></td>
<td bgcolor="#FF99FF"><div align="right"><?php echo round($m50dm,2);?></div></td>
<td bgcolor="#FFFF99"><div align="right"><?php echo round($y50dm,2);?></div></td>
<td bgcolor="#aaaaaa"><div align="right"><?php echo round($k50dm,2);?></div></td>
<td>分數</td>
<td><?php echo $Csum;?> </td>
</tr>


</table>
<tr></tr>






<?php 
  $connection = mysql_connect("127.0.0.1", "root", "fredsql") or die ("Unable to connect!");
	mysql_query("SET NAMES 'utf8'");
	$db = "tvicheck-st";
		// select database
		mysql_select_db($db) or die ("Unable to select database!");

				$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());
	
	if (mysql_num_rows($results) > 0)
	{
		$row = mysql_fetch_object($results);
		$sNo=$row->sNo+1;}
	else {	$sNo=1;}
		// generate and execute query
		$query = "INSERT INTO Production (po, Cscore, sNo, filename,  target, ddate, pdate, press, paper, ink , cmmt, denC,denM,denY, denK, TVIc,TVIm, TVIy,TVIk,deg ) VALUES( '$po', '$Csum','$sNo', '$filename','$target', NOW(), '$date_s', '$press', '$paper', '$ink', '$cmmt', '$cdm','$mdm', '$ydm', '$kdm', '$c50dm', '$m50dm', '$y50dm', '$k50dm', '$deg')";
		
		//echo $query;
		$result = mysql_query($query) or die ("Error in query: $query. " . mysql_error());
  
		mysql_close($connection);
} ?>
<tr>

<tr>
<td align="center"><font size="-2"> &copy; <a href="mailto:[email protected]">Fred Kuo</a>, 2015. All rights reserved.<br><a href="http://www.fredkuo.idv.tw/wordpress/?p=1025">Read more.</a><br>
</td>
</tr>
</body>


</html>
@ Telegram