File: C:/xampp/htdocs/PSAit8Ramp/TVI-parsing13.php
<?php
$k1=0;
$k2=0;
$k157=0;
$k158=0;
$k159=0;
$k160=0;
$k161=0;
$k162=0;
$k163=0;
$k164=0;
$k165=0;
$k166=0;
$k167=0;
$k168=0;
$k169=0;
$k170=0;
$k171=0;
$k172=0;
$k173=0;
$k174=0;
$k175=0;
$k176=0;
$k177=0;
$k178=0;
$k179=0;
$k180=0;
$k181=0;
$k182=0;
$k183=0;
$k184=0;
$k185=0;
$k186=0;
$k187=0;
$k188=0;
$k189=0;
$k190=0;
$k191=0;
$k192=0;
$k193=0;
$k194=0;
$k195=0;
$k196=0;
$k197=0;
$k198=0;
$k199=0;
$k200=0;
$k201=0;
$k202=0;
$k203=0;
$k204=0;
$k205=0;
$k206=0;
$k207=0;
$k208=0;
$k209=0;
$k210=0;
$k211=0;
$k212=0;
$k213=0;
$k214=0;
$k215=0;
$k216=0;
$k217=0;
$k218=0;
$k219=0;
?>
<!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> TR016 Report</title>
<style type="text/css">
<!--
body {
font: 100% Verdana, Arial, Helvetica, sans-serif;
background: #ffffff;
margin: 0; /* 比較好的做法是將 Body 元素的邊界與欄位間隔調整為零，以處理不同的瀏覽器預設值 */
padding: 0;
text-align: right; /* 這樣會讓容器在 IE 5* 瀏覽器內置中對齊。然後，文字會在 #container 選取器中設定為靠左對齊預設值 */
color: #000000;
}
.oneColElsCtr #container {
width: 46em;
background: #FFFFFF;
margin: 0 auto; /* 自動邊界 (搭配寬度) 會讓頁面置中對齊 */
border: 0px solid #000000;
text-align: left; /* 這樣做會覆寫 Body 元素上的 text-align: center。 */
}
.oneColElsCtr #mainContent {
padding: 0 20px; /* 請記住，欄位間隔就是 Div 方塊內部的空間，而邊界就是 Div 方塊外部的空間 */
}
.oneColElsCtr table {
text-align: right;
}
.oneColElsCtr {
text-align: center;
}
-->
</style></head>
<body class="oneColElsCtr">
<?php
function GetBetweenTT($var1="",$var2="",$pool){
$temp1 = strpos($pool,$var1)+strlen($var1);
$result = substr($pool,$temp1,strlen($pool));
$dd=strpos($result,$var2);
if($dd == 0){
$dd = strlen($result);
}
return substr($result,0,$dd);
}
//echo "Get:".GetBetweenTT("a",",","abc efg h i,jk")."_zz<br>"; // returns: b
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;
}
function get_betweenC ($text, $s1, $s2) {
$mid_url = "";
$pos_s = strrpos($text,$s1);
$pos_e = strpos($text,$s2);
for ( $i=$pos_s+strlen($s1) ; (( $i<($pos_e)) && $i < strlen($text)) ; $i++ ) {
$mid_url .= $text[$i];
}
return $mid_url;
}
$sum=260;
$check=1;
$dtime=time();
$dStr=substr($dtime,7,9)."-";
if ($_FILES["file"]["error"] > 0)
{
echo "Return Code: " . $_FILES["file"]["error"] . "<br />";
}
else
{
echo $target." TR016 Report" . "<br />";
echo "Upload: " . $_FILES["file"]["name"] . "<br />";
$filename=$dStr.$_FILES["file"]["name"];
//$fileP=$dStr.$_FILES["fileP"]["name"];
//echo "Type: " . $_FILES["file"]["type"] . "<br />";
echo "Size: " . ($_FILES["file"]["size"] / 1024) . " Kb<br />";
// echo "Temp file: " . $_FILES["file"]["tmp_name"] . "<br />";
if (file_exists("upload/" .$dStr. $_FILES["file"]["name"]))
{
echo $_FILES["file"]["name"] . " already exists. ". "<br />";
}
else
{
move_uploaded_file($_FILES["file"]["tmp_name"],
"upload/" .$dStr. $_FILES["file"]["name"]);
echo "upload sucess! " . "<br />";
echo "Report start: " . "<br />";
// echo "Stored in: " . "upload/" . $_FILES["file"]["name"]. "<br />";
///parsing start
$contents = file("upload/".$dStr.$_FILES["file"]["name"]);
include 'sp38XYZ.php';
include 'spXYZ.php';
include 'xyz2lab01.php';
include 'DensityV.php';
include 'DensityV38.php';
include 'getlab.php';
$myFile ="tempSet.txt";
$fh = fopen($myFile, 'w') or die("can't open file");
$k=0;
for ( $i = 0; $i <= 1638; $i += 1) {
$px = str_replace(" ", "", $contents[$i]);
if (strpos($px, " 0.00 0.00 0.00 0.00 ")>0) {
if ($k1==0) {
$labArray=getlab($contents[$i]); $line='1 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];
fwrite($fh, $line);
$k1=1;}
}
if (strpos($px, " 5.00 0.00 0.00 0.00 ")>0) {
if ($k2==0) {
$labArray=getlab($contents[$i]); $line='2 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];
fwrite($fh, $line);
$k2=1;}
}
if (strpos($px, " 10.00 0.00 0.00 0.00 ")>0) { if ($k157==0) { $labArray=getlab($contents[$i]); $line='3 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k157=1;}}
if (strpos($px, " 15.00 0.00 0.00 0.00 ")>0) { if ($k158==0) { $labArray=getlab($contents[$i]); $line='4 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k158=1;}}
if (strpos($px, " 20.00 0.00 0.00 0.00 ")>0) { if ($k159==0) { $labArray=getlab($contents[$i]); $line='5 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k159=1;}}
if (strpos($px, " 25.00 0.00 0.00 0.00 ")>0) { if ($k160==0) { $labArray=getlab($contents[$i]); $line='6 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k160=1;}}
if (strpos($px, " 30.00 0.00 0.00 0.00 ")>0) { if ($k161==0) { $labArray=getlab($contents[$i]); $line='7 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k161=1;}}
if (strpos($px, " 40.00 0.00 0.00 0.00 ")>0) { if ($k162==0) { $labArray=getlab($contents[$i]); $line='8 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k162=1;}}
if (strpos($px, " 50.00 0.00 0.00 0.00 ")>0) { if ($k163==0) { $labArray=getlab($contents[$i]); $line='9 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k163=1;}}
if (strpos($px, " 60.00 0.00 0.00 0.00 ")>0) { if ($k164==0) { $labArray=getlab($contents[$i]); $line='10 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k164=1;}}
if (strpos($px, " 70.00 0.00 0.00 0.00 ")>0) { if ($k165==0) { $labArray=getlab($contents[$i]); $line='11 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k165=1;}}
if (strpos($px, " 75.00 0.00 0.00 0.00 ")>0) { if ($k166==0) { $labArray=getlab($contents[$i]); $line='12 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k166=1;}}
if (strpos($px, " 80.00 0.00 0.00 0.00 ")>0) { if ($k167==0) { $labArray=getlab($contents[$i]); $line='13 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k167=1;}}
if (strpos($px, " 85.00 0.00 0.00 0.00 ")>0) { if ($k168==0) { $labArray=getlab($contents[$i]); $line='14 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k168=1;}}
if (strpos($px, " 90.00 0.00 0.00 0.00 ")>0) { if ($k169==0) { $labArray=getlab($contents[$i]); $line='15 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k169=1;}}
if (strpos($px, " 95.00 0.00 0.00 0.00 ")>0) { if ($k170==0) { $labArray=getlab($contents[$i]); $line='16 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k170=1;}}
if (strpos($px, " 100.00 0.00 0.00 0.00 ")>0) { if ($k171==0) { $labArray=getlab($contents[$i]); $line='17 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k171=1;}}
if (strpos($px, " 0.00 5.00 0.00 0.00 ")>0) { if ($k172==0) { $labArray=getlab($contents[$i]); $line='18 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k172=1;}}
if (strpos($px, " 0.00 10.00 0.00 0.00 ")>0) { if ($k173==0) { $labArray=getlab($contents[$i]); $line='19 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k173=1;}}
if (strpos($px, " 0.00 15.00 0.00 0.00 ")>0) { if ($k174==0) { $labArray=getlab($contents[$i]); $line='20 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k174=1;}}
if (strpos($px, " 0.00 20.00 0.00 0.00 ")>0) { if ($k175==0) { $labArray=getlab($contents[$i]); $line='21 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k175=1;}}
if (strpos($px, " 0.00 25.00 0.00 0.00 ")>0) { if ($k176==0) { $labArray=getlab($contents[$i]); $line='22 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k176=1;}}
if (strpos($px, " 0.00 30.00 0.00 0.00 ")>0) { if ($k177==0) { $labArray=getlab($contents[$i]); $line='23 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k177=1;}}
if (strpos($px, " 0.00 40.00 0.00 0.00 ")>0) { if ($k178==0) { $labArray=getlab($contents[$i]); $line='24 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k178=1;}}
if (strpos($px, " 0.00 50.00 0.00 0.00 ")>0) { if ($k179==0) { $labArray=getlab($contents[$i]); $line='25 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k179=1;}}
if (strpos($px, " 0.00 60.00 0.00 0.00 ")>0) { if ($k180==0) { $labArray=getlab($contents[$i]); $line='26 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k180=1;}}
if (strpos($px, " 0.00 70.00 0.00 0.00 ")>0) { if ($k181==0) { $labArray=getlab($contents[$i]); $line='27 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k181=1;}}
if (strpos($px, " 0.00 75.00 0.00 0.00 ")>0) { if ($k182==0) { $labArray=getlab($contents[$i]); $line='28 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k182=1;}}
if (strpos($px, " 0.00 80.00 0.00 0.00 ")>0) { if ($k183==0) { $labArray=getlab($contents[$i]); $line='29 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k183=1;}}
if (strpos($px, " 0.00 85.00 0.00 0.00 ")>0) { if ($k184==0) { $labArray=getlab($contents[$i]); $line='30 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k184=1;}}
if (strpos($px, " 0.00 90.00 0.00 0.00 ")>0) { if ($k185==0) { $labArray=getlab($contents[$i]); $line='31 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k185=1;}}
if (strpos($px, " 0.00 95.00 0.00 0.00 ")>0) { if ($k186==0) { $labArray=getlab($contents[$i]); $line='32 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k186=1;}}
if (strpos($px, " 0.00 100.00 0.00 0.00 ")>0) { if ($k187==0) { $labArray=getlab($contents[$i]); $line='33 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k187=1;}}
if (strpos($px, " 0.00 0.00 5.00 0.00 ")>0) { if ($k188==0) { $labArray=getlab($contents[$i]); $line='34 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k188=1;}}
if (strpos($px, " 0.00 0.00 10.00 0.00 ")>0) { if ($k189==0) { $labArray=getlab($contents[$i]); $line='35 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k189=1;}}
if (strpos($px, " 0.00 0.00 15.00 0.00 ")>0) { if ($k190==0) { $labArray=getlab($contents[$i]); $line='36 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k190=1;}}
if (strpos($px, " 0.00 0.00 20.00 0.00 ")>0) { if ($k191==0) { $labArray=getlab($contents[$i]); $line='37 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k191=1;}}
if (strpos($px, " 0.00 0.00 25.00 0.00 ")>0) { if ($k192==0) { $labArray=getlab($contents[$i]); $line='38 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k192=1;}}
if (strpos($px, " 0.00 0.00 30.00 0.00 ")>0) { if ($k193==0) { $labArray=getlab($contents[$i]); $line='39 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k193=1;}}
if (strpos($px, " 0.00 0.00 40.00 0.00 ")>0) { if ($k194==0) { $labArray=getlab($contents[$i]); $line='40 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k194=1;}}
if (strpos($px, " 0.00 0.00 50.00 0.00 ")>0) { if ($k195==0) { $labArray=getlab($contents[$i]); $line='41 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k195=1;}}
if (strpos($px, " 0.00 0.00 60.00 0.00 ")>0) { if ($k196==0) { $labArray=getlab($contents[$i]); $line='42 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k196=1;}}
if (strpos($px, " 0.00 0.00 70.00 0.00 ")>0) { if ($k197==0) { $labArray=getlab($contents[$i]); $line='43 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k197=1;}}
if (strpos($px, " 0.00 0.00 75.00 0.00 ")>0) { if ($k198==0) { $labArray=getlab($contents[$i]); $line='44 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k198=1;}}
if (strpos($px, " 0.00 0.00 80.00 0.00 ")>0) { if ($k199==0) { $labArray=getlab($contents[$i]); $line='45 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k199=1;}}
if (strpos($px, " 0.00 0.00 85.00 0.00 ")>0) { if ($k200==0) { $labArray=getlab($contents[$i]); $line='46 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k200=1;}}
if (strpos($px, " 0.00 0.00 90.00 0.00 ")>0) { if ($k201==0) { $labArray=getlab($contents[$i]); $line='47 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k201=1;}}
if (strpos($px, " 0.00 0.00 95.00 0.00 ")>0) { if ($k202==0) { $labArray=getlab($contents[$i]); $line='48 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k202=1;}}
if (strpos($px, " 0.00 0.00 100.00 0.00 ")>0) { if ($k203==0) { $labArray=getlab($contents[$i]); $line='49 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k203=1;}}
if (strpos($px, " 0.00 0.00 0.00 5.00 ")>0) { if ($k204==0) { $labArray=getlab($contents[$i]); $line='50 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k204=1;}}
if (strpos($px, " 0.00 0.00 0.00 10.00 ")>0) { if ($k205==0) { $labArray=getlab($contents[$i]); $line='51 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k205=1;}}
if (strpos($px, " 0.00 0.00 0.00 15.00 ")>0) { if ($k206==0) { $labArray=getlab($contents[$i]); $line='52 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k206=1;}}
if (strpos($px, " 0.00 0.00 0.00 20.00 ")>0) { if ($k207==0) { $labArray=getlab($contents[$i]); $line='53 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k207=1;}}
if (strpos($px, " 0.00 0.00 0.00 25.00 ")>0) { if ($k208==0) { $labArray=getlab($contents[$i]); $line='54 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k208=1;}}
if (strpos($px, " 0.00 0.00 0.00 30.00 ")>0) { if ($k209==0) { $labArray=getlab($contents[$i]); $line='55 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k209=1;}}
if (strpos($px, " 0.00 0.00 0.00 40.00 ")>0) { if ($k210==0) { $labArray=getlab($contents[$i]); $line='56 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k210=1;}}
if (strpos($px, " 0.00 0.00 0.00 50.00 ")>0) { if ($k211==0) { $labArray=getlab($contents[$i]); $line='57 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k211=1;}}
if (strpos($px, " 0.00 0.00 0.00 60.00 ")>0) { if ($k212==0) { $labArray=getlab($contents[$i]); $line='58 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k212=1;}}
if (strpos($px, " 0.00 0.00 0.00 70.00 ")>0) { if ($k213==0) { $labArray=getlab($contents[$i]); $line='59 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k213=1;}}
if (strpos($px, " 0.00 0.00 0.00 75.00 ")>0) { if ($k214==0) { $labArray=getlab($contents[$i]); $line='60 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k214=1;}}
if (strpos($px, " 0.00 0.00 0.00 80.00 ")>0) { if ($k215==0) { $labArray=getlab($contents[$i]); $line='61 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k215=1;}}
if (strpos($px, " 0.00 0.00 0.00 85.00 ")>0) { if ($k216==0) { $labArray=getlab($contents[$i]); $line='62 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k216=1;}}
if (strpos($px, " 0.00 0.00 0.00 90.00 ")>0) { if ($k217==0) { $labArray=getlab($contents[$i]); $line='63 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k217=1;}}
if (strpos($px, " 0.00 0.00 0.00 95.00 ")>0) { if ($k218==0) { $labArray=getlab($contents[$i]); $line='64 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k218=1;}}
if (strpos($px, " 0.00 0.00 0.00 100.00 ")>0) { if ($k219==0) { $labArray=getlab($contents[$i]); $line='65 '.$labArray[0]." ".$labArray[1]." ".$labArray[2]." ".$contents[$i];fwrite($fh, $line);$k219=1;}}
}
fclose($fh);
$contentstm = file("tempSet.txt");
$stringC = implode($contentstm);
//echo $string."<br>";
//$cols=get_betweenC($stringC,"NUMBER_OF_FIELDS",'BEGIN_DATA_FORMAT');
$cols=55; ///for tempSet range
// $cols=40;
echo "cols:".$cols."_zz<br>";
natsort($contentstm);
//print_r(array_values($contentstm));
$string = implode($contentstm);
//echo $string;
$p = ereg_replace("\r\n?", "\n", $string);
$p = str_replace("\n", ',', $p);
$p = ereg_replace("\r\n?", "\n", $p);
$p = str_replace(",", ' ', $p);
//$p = str_replace("\r", "", $p);
//$p = str_replace("\n", "", $p);
//$p = ereg_replace("\r\n?", "", $p);
//$p = trim($p, "\r");
//$p = trim($p, "\n");
//$p = trim($p, "\t");
//echo $p;
//$datastring=get_between($p,"BEGIN_DATA","END_DATA");
//echo "kkk";
$dot = explode("\t", $p);
//print_r(array_values($dot));
$Pdot=1;
$PL=$dot[$cols*($Pdot-1)+1];
$Pa=$dot[$cols*($Pdot-1)+1+1];
$Pb=$dot[$cols*($Pdot-1)+1+2];
$PD=DensitySp38("V",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$Pdot=33;
$mml=$dot[$cols*($Pdot-1)+1];
$mma=$dot[$cols*($Pdot-1)+1+1];
$mmb=$dot[$cols*($Pdot-1)+1+2];
//include 'DensityV38.php';
$mmD=DensitySp38("M",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$Pdot=17;
$mcl=$dot[$cols*($Pdot-1)+1];
$mca=$dot[$cols*($Pdot-1)+1+1];
$mcb=$dot[$cols*($Pdot-1)+1+2];
$mcD=DensitySp38("C",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
//echo "mcl:".$mcl;
$Pdot=49;
$myl=$dot[$cols*($Pdot-1)+1];
$mya=$dot[$cols*($Pdot-1)+1+1];
$myb=$dot[$cols*($Pdot-1)+1+2];
$myD=DensitySp38("Y",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$Pdot=65;
$mkl=$dot[$cols*($Pdot-1)+1];
$mka=$dot[$cols*($Pdot-1)+1+1];
$mkb=$dot[$cols*($Pdot-1)+1+2];
$mkD=DensitySp38("V",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
//////////////////////////////////////////////////////////C
$Pdot=2;
$mc5D=DensitySp38("C",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_5c=(((1-(pow(10,(-($mc5D-$PD)))))/(1-(pow(10,(-($mcD-$PD)))))))*100;
$Pdot=3;
$mc10D=DensitySp38("C",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_10c=(((1-(pow(10,(-($mc10D-$PD)))))/(1-(pow(10,(-($mcD-$PD)))))))*100;
$Pdot=4;
$mc15D=DensitySp38("C",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_15c=(((1-(pow(10,(-($mc15D-$PD)))))/(1-(pow(10,(-($mcD-$PD)))))))*100;
$Pdot=5;
$mc20D=DensitySp38("C",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_20c=(((1-(pow(10,(-($mc20D-$PD)))))/(1-(pow(10,(-($mcD-$PD)))))))*100;
$Pdot=6;
$mc25D=DensitySp38("C",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_25c=(((1-(pow(10,(-($mc25D-$PD)))))/(1-(pow(10,(-($mcD-$PD)))))))*100;
$Pdot=7;
$mc30D=DensitySp38("C",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_30c=(((1-(pow(10,(-($mc30D-$PD)))))/(1-(pow(10,(-($mcD-$PD)))))))*100;
$Pdot=8;
$mc40D=DensitySp38("C",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_40c=(((1-(pow(10,(-($mc40D-$PD)))))/(1-(pow(10,(-($mcD-$PD)))))))*100;
$Pdot=9;
$mc50D=DensitySp38("C",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_50c=(((1-(pow(10,(-($mc50D-$PD)))))/(1-(pow(10,(-($mcD-$PD)))))))*100;
$Pdot=10;
$mc60D=DensitySp38("C",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_60c=(((1-(pow(10,(-($mc60D-$PD)))))/(1-(pow(10,(-($mcD-$PD)))))))*100;
$Pdot=11;
$mc70D=DensitySp38("C",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_70c=(((1-(pow(10,(-($mc70D-$PD)))))/(1-(pow(10,(-($mcD-$PD)))))))*100;
$Pdot=12;
$mc75D=DensitySp38("C",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_75c=(((1-(pow(10,(-($mc75D-$PD)))))/(1-(pow(10,(-($mcD-$PD)))))))*100;
$Pdot=13;
$mc80D=DensitySp38("C",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_80c=(((1-(pow(10,(-($mc80D-$PD)))))/(1-(pow(10,(-($mcD-$PD)))))))*100;
$Pdot=14;
$mc85D=DensitySp38("C",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_85c=(((1-(pow(10,(-($mc85D-$PD)))))/(1-(pow(10,(-($mcD-$PD)))))))*100;
$Pdot=15;
$mc90D=DensitySp38("C",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_90c=(((1-(pow(10,(-($mc90D-$PD)))))/(1-(pow(10,(-($mcD-$PD)))))))*100;
$Pdot=16;
$mc95D=DensitySp38("C",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_95c=(((1-(pow(10,(-($mc95D-$PD)))))/(1-(pow(10,(-($mcD-$PD)))))))*100;
////////////////////////////////////////////////////////c
//////////////////////////////////////////////////////////M
$Pdot=18;
$mm5D=DensitySp38("M",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_5m=(((1-(pow(10,(-($mm5D-$PD)))))/(1-(pow(10,(-($mmD-$PD)))))))*100;
$Pdot=19;
$mm10D=DensitySp38("M",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_10m=(((1-(pow(10,(-($mm10D-$PD)))))/(1-(pow(10,(-($mmD-$PD)))))))*100;
$Pdot=20;
$mm15D=DensitySp38("M",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_15m=(((1-(pow(10,(-($mm15D-$PD)))))/(1-(pow(10,(-($mmD-$PD)))))))*100;
$Pdot=21;
$mm20D=DensitySp38("M",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_20m=(((1-(pow(10,(-($mm20D-$PD)))))/(1-(pow(10,(-($mmD-$PD)))))))*100;
$Pdot=22;
$mm25D=DensitySp38("M",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_25m=(((1-(pow(10,(-($mm25D-$PD)))))/(1-(pow(10,(-($mmD-$PD)))))))*100;
$Pdot=23;
$mm30D=DensitySp38("M",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_30m=(((1-(pow(10,(-($mm30D-$PD)))))/(1-(pow(10,(-($mmD-$PD)))))))*100;
$Pdot=24;
$mm40D=DensitySp38("M",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_40m=(((1-(pow(10,(-($mm40D-$PD)))))/(1-(pow(10,(-($mmD-$PD)))))))*100;
$Pdot=25;
$mm50D=DensitySp38("M",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_50m=(((1-(pow(10,(-($mm50D-$PD)))))/(1-(pow(10,(-($mmD-$PD)))))))*100;
$Pdot=26;
$mm60D=DensitySp38("M",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_60m=(((1-(pow(10,(-($mm60D-$PD)))))/(1-(pow(10,(-($mmD-$PD)))))))*100;
$Pdot=27;
$mm70D=DensitySp38("M",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_70m=(((1-(pow(10,(-($mm70D-$PD)))))/(1-(pow(10,(-($mmD-$PD)))))))*100;
$Pdot=28; //
$mm75D=DensitySp38("M",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_75m=(((1-(pow(10,(-($mm75D-$PD)))))/(1-(pow(10,(-($mmD-$PD)))))))*100;
$Pdot=29;
$mm80D=DensitySp38("M",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_80m=(((1-(pow(10,(-($mm80D-$PD)))))/(1-(pow(10,(-($mmD-$PD)))))))*100;
$Pdot=30;
$mm85D=DensitySp38("M",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_85m=(((1-(pow(10,(-($mm85D-$PD)))))/(1-(pow(10,(-($mmD-$PD)))))))*100;
$Pdot=31;
$mm90D=DensitySp38("M",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_90m=(((1-(pow(10,(-($mm90D-$PD)))))/(1-(pow(10,(-($mmD-$PD)))))))*100;
$Pdot=32;
$mm95D=DensitySp38("M",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_95m=(((1-(pow(10,(-($mm95D-$PD)))))/(1-(pow(10,(-($mmD-$PD)))))))*100;
////////////////////////////////////////////////////////c
//////////////////////////////////////////////////////////Y
$Pdot=34;
$my5D=DensitySp38("Y",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_5y=(((1-(pow(10,(-($my5D-$PD)))))/(1-(pow(10,(-($myD-$PD)))))))*100;
$Pdot=35;
$my10D=DensitySp38("Y",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_10y=(((1-(pow(10,(-($my10D-$PD)))))/(1-(pow(10,(-($myD-$PD)))))))*100;
$Pdot=36;
$my15D=DensitySp38("Y",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_15y=(((1-(pow(10,(-($my15D-$PD)))))/(1-(pow(10,(-($myD-$PD)))))))*100;
$Pdot=37;
$my20D=DensitySp38("Y",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_20y=(((1-(pow(10,(-($my20D-$PD)))))/(1-(pow(10,(-($myD-$PD)))))))*100;
$Pdot=38;
$my25D=DensitySp38("Y",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_25y=(((1-(pow(10,(-($my25D-$PD)))))/(1-(pow(10,(-($myD-$PD)))))))*100;
$Pdot=39;
$my30D=DensitySp38("Y",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_30y=(((1-(pow(10,(-($my30D-$PD)))))/(1-(pow(10,(-($myD-$PD)))))))*100;
$Pdot=40;
$my40D=DensitySp38("Y",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_40y=(((1-(pow(10,(-($my40D-$PD)))))/(1-(pow(10,(-($myD-$PD)))))))*100;
$Pdot=41;
$my50D=DensitySp38("Y",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_50y=(((1-(pow(10,(-($my50D-$PD)))))/(1-(pow(10,(-($myD-$PD)))))))*100;
$Pdot=42;
$my60D=DensitySp38("Y",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_60y=(((1-(pow(10,(-($my60D-$PD)))))/(1-(pow(10,(-($myD-$PD)))))))*100;
$Pdot=43;
$my70D=DensitySp38("Y",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_70y=(((1-(pow(10,(-($my70D-$PD)))))/(1-(pow(10,(-($myD-$PD)))))))*100;
$Pdot=44;
$my75D=DensitySp38("Y",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_75y=(((1-(pow(10,(-($my75D-$PD)))))/(1-(pow(10,(-($myD-$PD)))))))*100;
$Pdot=45;
$my80D=DensitySp38("Y",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_80y=(((1-(pow(10,(-($my80D-$PD)))))/(1-(pow(10,(-($myD-$PD)))))))*100;
$Pdot=46;
$my85D=DensitySp38("Y",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_85y=(((1-(pow(10,(-($my85D-$PD)))))/(1-(pow(10,(-($myD-$PD)))))))*100;
$Pdot=47;
$my90D=DensitySp38("Y",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_90y=(((1-(pow(10,(-($my90D-$PD)))))/(1-(pow(10,(-($myD-$PD)))))))*100;
$Pdot=48;
$my95D=DensitySp38("Y",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_95y=(((1-(pow(10,(-($my95D-$PD)))))/(1-(pow(10,(-($myD-$PD)))))))*100;
////////////////////////////////////////////////////////c
//////////////////////////////////////////////////////////K
$Pdot=50;
$mk5D=DensitySp38("V",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_5k=(((1-(pow(10,(-($mk5D-$PD)))))/(1-(pow(10,(-($mkD-$PD)))))))*100;
$Pdot=51;
$mk10D=DensitySp38("V",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_10k=(((1-(pow(10,(-($mk10D-$PD)))))/(1-(pow(10,(-($mkD-$PD)))))))*100;
$Pdot=52;
$mk15D=DensitySp38("V",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_15k=(((1-(pow(10,(-($mk15D-$PD)))))/(1-(pow(10,(-($mkD-$PD)))))))*100;
$Pdot=53;
$mk20D=DensitySp38("V",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_20k=(((1-(pow(10,(-($mk20D-$PD)))))/(1-(pow(10,(-($mkD-$PD)))))))*100;
$Pdot=54;
$mk25D=DensitySp38("V",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_25k=(((1-(pow(10,(-($mk25D-$PD)))))/(1-(pow(10,(-($mkD-$PD)))))))*100;
$Pdot=55;
$mk30D=DensitySp38("V",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_30k=(((1-(pow(10,(-($mk30D-$PD)))))/(1-(pow(10,(-($mkD-$PD)))))))*100;
$Pdot=56;
$mk40D=DensitySp38("V",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_40k=(((1-(pow(10,(-($mk40D-$PD)))))/(1-(pow(10,(-($mkD-$PD)))))))*100;
$Pdot=57;
$mk50D=DensitySp38("V",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_50k=(((1-(pow(10,(-($mk50D-$PD)))))/(1-(pow(10,(-($mkD-$PD)))))))*100;
$Pdot=58;
$mk60D=DensitySp38("V",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_60k=(((1-(pow(10,(-($mk60D-$PD)))))/(1-(pow(10,(-($mkD-$PD)))))))*100;
$Pdot=59;
$mk70D=DensitySp38("V",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_70k=(((1-(pow(10,(-($mk70D-$PD)))))/(1-(pow(10,(-($mkD-$PD)))))))*100;
$Pdot=60;
$mk75D=DensitySp38("V",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_75k=(((1-(pow(10,(-($mk75D-$PD)))))/(1-(pow(10,(-($mkD-$PD)))))))*100;
$Pdot=61;
$mk80D=DensitySp38("V",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_80k=(((1-(pow(10,(-($mk80D-$PD)))))/(1-(pow(10,(-($mkD-$PD)))))))*100;
$Pdot=62;
$mk85D=DensitySp38("V",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_85k=(((1-(pow(10,(-($mk85D-$PD)))))/(1-(pow(10,(-($mkD-$PD)))))))*100;
$Pdot=63;
$mk90D=DensitySp38("V",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_90k=(((1-(pow(10,(-($mk90D-$PD)))))/(1-(pow(10,(-($mkD-$PD)))))))*100;
$Pdot=64;
$mk95D=DensitySp38("V",$dot[$cols*($Pdot-1)+1+15],$dot[$cols*($Pdot-1)+1+16],$dot[$cols*($Pdot-1)+1+17],$dot[$cols*($Pdot-1)+1+18],$dot[$cols*($Pdot-1)+1+19],$dot[$cols*($Pdot-1)+1+20],$dot[$cols*($Pdot-1)+1+21],$dot[$cols*($Pdot-1)+1+22],$dot[$cols*($Pdot-1)+1+23],$dot[$cols*($Pdot-1)+1+24],$dot[$cols*($Pdot-1)+1+25],$dot[$cols*($Pdot-1)+1+26],$dot[$cols*($Pdot-1)+1+27],$dot[$cols*($Pdot-1)+1+28],$dot[$cols*($Pdot-1)+1+29],$dot[$cols*($Pdot-1)+1+30],$dot[$cols*($Pdot-1)+1+31],$dot[$cols*($Pdot-1)+1+32],$dot[$cols*($Pdot-1)+1+33],$dot[$cols*($Pdot-1)+1+34],$dot[$cols*($Pdot-1)+1+35],$dot[$cols*($Pdot-1)+1+36],$dot[$cols*($Pdot-1)+1+37],$dot[$cols*($Pdot-1)+1+38],$dot[$cols*($Pdot-1)+1+39],$dot[$cols*($Pdot-1)+1+40],$dot[$cols*($Pdot-1)+1+41],$dot[$cols*($Pdot-1)+1+42],$dot[$cols*($Pdot-1)+1+43],$dot[$cols*($Pdot-1)+1+44],$dot[$cols*($Pdot-1)+1+45],$dot[$cols*($Pdot-1)+1+46],$dot[$cols*($Pdot-1)+1+47],$dot[$cols*($Pdot-1)+1+48],$dot[$cols*($Pdot-1)+1+49],$dot[$cols*($Pdot-1)+1+50]);
$TVI_95k=(((1-(pow(10,(-($mk95D-$PD)))))/(1-(pow(10,(-($mkD-$PD)))))))*100;
////////////////////////////////////////////////////////c
if ($target=="Fogra39") {
echo "Fogra39 paper: L:95, a:0, b:-2<br />";}
elseif ($target=="CRPC6") {
echo "CRPC6 paper: L:95, a:1, b:-4<br />";}
elseif ($target=="GRACoL2006") {
echo "GRACoL paper: L:95, a:0, b:-2<br />";}
echo "paper measured: L:".$PL.", a:".$Pa.", b:".$Pb. "<br />";
include 'lab2xyz.php';
include 'SCCA06.php';
include 'xyz2lab.php';
if ($target=="Fogra39") {
$PTL=95;$PTa=0;$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;
}
elseif ($target=="CRPC6") {
$PTL=95;$PTa=1;$PTb=-4;
$RPCCl=56;$RPCCa=-37;$RPCCb=-50;
$RPCMl=48;$RPCMa=75;$RPCMb=-4;
$RPCYl=89;$RPCYa=-4;$RPCYb=93;
$RPCKl=16;$RPCKa=0.01;$RPCKb=0.01;
}
elseif ($target == "GRACoL2006") {
$PTL=95;$PTa=0;$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;
}
$Xp=lab2xyz("x",$PL,$Pa,$Pb);
$Yp=lab2xyz("y",$PL,$Pa,$Pb);
$Zp=lab2xyz("z",$PL,$Pa,$Pb);
//////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////
$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);
///////////////////////////////////////////////////the whole SCCA
if ($target=="Fogra39") {
$contents6 = file("Fogra39.txt");
$string6= implode($contents6); }
elseif ($target=="CRPC6") {
$contents6 = file("CRPC6.txt");
$string6= implode($contents6); }
elseif ($target=="GRACoL2006") {
$contents6 = file("GRACoL2006.txt");
$string6= implode($contents6); }
$p6 = ereg_replace("\r\n?", "\n", $string6);
$p6 = str_replace("\n", ' ', $p6);
//echo $p;
$datastring6=get_between($p6,"BEGIN_DATA","END_DATA");
//echo $datastring;
$dot6 = explode(" ", $datastring6);
include 'dE00.php';
}
?>
<p>SCCA<p>
<p><p>
<table width="200" border="1" align="center">
<tr>
<td bgcolor="#77FFFF"><div align="center">100C</div></td>
<td><font color="#aaaaaa">L*</td>
<td><font color="#aaaaaa">a*</td>
<td><font color="#aaaaaa">b*</td>
<td>
<td bgcolor="#FF77FF"><div align="center">100M</div></td>
<td><font color="#aaaaaa">L*</td>
<td><font color="#aaaaaa">a*</td>
<td><font color="#aaaaaa">b*</td>
<td>
<td bgcolor="#FFFF77"><div align="center">100Y</div></td>
<td><font color="#aaaaaa">L*</font></td>
<td><font color="#aaaaaa">a*</font></td>
<td><font color="#aaaaaa">b*</font></td>
<td>
<td bgcolor="#aaaaaa"><div align="center">100K</div></td>
<td><font color="#aaaaaa">L*</font></td>
<td><font color="#aaaaaa">a*</font></td>
<td><font color="#aaaaaa">b*</font></td>
</tr>
<?php
//////////////////////////////////////////////////Fogra Media Check
$psum=20;
// $pl=95; $pa=-0.01;$pb=-2;
$cl=$scCL; $ca=$scCa;$cb=$scCb;
$ml=$scML; $ma=$scMa;$mb=$scMb;
$yl=$scYL; $ya=$scYa;$yb=$scYb;
$kl=$scKL; $ka=$scKa;$kb=$scKb;
?>
<?php
$pa00=de00(95,1,-4,$PL,$Pa,$Pb);
$dc00=de00($cl,$ca,$cb,$mcl,$mca,$mcb);
$dm00=de00($ml,$ma,$mb,$mml,$mma,$mmb);
$dy00=de00($yl,$ya,$yb,$myl,$mya,$myb);
$dk00=de00($kl,$ka,$kb,$mkl,$mka,$mkb);
?>
<tr><td><div align="center">SCCA</div></td>
<td><div align="right"><?php echo round($cl,2);?></div></td>
<td><div align="right"><?php echo round($ca,2);?></div></td>
<td><div align="right"><?php echo round($cb,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center">SCCA</div></td>
<td><div align="right"><?php echo round($ml,2);?></div></td>
<td><div align="right"><?php echo round($ma,2);?></div></td>
<td><div align="right"><?php echo round($mb,2);?></div></td>
<td>
<td><div align="center">SCCA</div></td>
<td><div align="right"><?php echo round($yl,2);?></div></td>
<td><div align="right"><?php echo round($ya,2);?></div></td>
<td><div align="right"><?php echo round($yb,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center">SCCA</div></td>
<td><div align="right"><?php echo round($kl,2);?></div></td>
<td><div align="right"><?php echo round($ka,2);?></div></td>
<td><div align="right"><?php echo round($kb,2);?></div></td>
</tr>
<tr><td><div align="center">Meas.</div></td>
<td><div align="right"><?php echo round($mcl,2);?></div></td>
<td><div align="right"><?php echo round($mca,2);?></div></td>
<td><div align="right"><?php echo round($mcb,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center">Meas.</div></td>
<td><div align="right"><?php echo round($mml,2);?></div></td>
<td><div align="right"><?php echo round($mma,2);?></div></td>
<td><div align="right"><?php echo round($mmb,2);?></div></td>
<td>
<td><div align="center">Meas.</div></td>
<td><div align="right"><?php echo round($myl,2);?></div></td>
<td><div align="right"><?php echo round($mya,2);?></div></td>
<td><div align="right"><?php echo round($myb,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center">Meas.</div></td>
<td><div align="right"><?php echo round($mkl,2);?></div></td>
<td><div align="right"><?php echo round($mka,2);?></div></td>
<td><div align="right"><?php echo round($mkb,2);?></div></td>
<td>
</tr>
<tr><td><div align="center">dE00.</div></td>
<td><div align="right"><?php echo round($dc00,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">dE00.</div></td>
<td><div align="right"><?php echo round($dm00,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td>
<td><div align="center">dE00.</div></td>
<td><div align="right"><?php echo round($dy00,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">dE00.</div></td>
<td><div align="right"><?php echo round($dk00,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
</tr>
<tr><td><div align="center">den.</div></td>
<td><div align="right"><?php echo round($mcD,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">den.</div></td>
<td><div align="right"><?php echo round($mmD,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td>
<td><div align="center">den.</div></td>
<td><div align="right"><?php echo round($myD,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">den.</div></td>
<td><div align="right"><?php echo round($mkD,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
</tr>
<tr><td><div align="center">100</div></td>
<td><div align="right"><?php echo round($mcD,2);?></div></td>
<td><div align="center">TV</div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">100</div></td>
<td><div align="right"><?php echo round($mmD,2);?></div></td>
<td><div align="center">TV</div></td>
<td><div align="center"></div></td>
<td>
<td><div align="center">100</div></td>
<td><div align="right"><?php echo round($myD,2);?></div></td>
<td><div align="center">TV</div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">100</div></td>
<td><div align="right"><?php echo round($mkD,2);?></div></td>
<td><div align="center">TV</div></td>
<td><div align="center"></div></td>
</tr>
<tr><td><div align="center">95</div></td>
<td><div align="right"><?php echo round($mc95D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_95c,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">95</div></td>
<td><div align="right"><?php echo round($mm95D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_95m,2);?></div></td>
<td><div align="center"></div></td>
<td>
<td><div align="center">95</div></td>
<td><div align="right"><?php echo round($my95D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_95y,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">95</div></td>
<td><div align="right"><?php echo round($mk95D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_95k);?></div></td>
<td><div align="center"></div></td>
</tr>
<tr><td><div align="center">90</div></td>
<td><div align="right"><?php echo round($mc90D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_90c,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">90</div></td>
<td><div align="right"><?php echo round($mm90D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_90m,2);?></div></td>
<td><div align="center"></div></td>
<td>
<td><div align="center">90</div></td>
<td><div align="right"><?php echo round($my90D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_90y,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">90</div></td>
<td><div align="right"><?php echo round($mk90D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_90k,2);?></div></td>
<td><div align="center"></div></td>
</tr>
<tr><td><div align="center">85</div></td>
<td><div align="right"><?php echo round($mc85D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_85c,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">85</div></td>
<td><div align="right"><?php echo round($mm85D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_85m,2);?></div></td>
<td><div align="center"></div></td>
<td>
<td><div align="center">85</div></td>
<td><div align="right"><?php echo round($my85D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_85y,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">85</div></td>
<td><div align="right"><?php echo round($mk85D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_85k,2);?></div></td>
<td><div align="center"></div></td>
</tr>
<tr><td><div align="center">80</div></td>
<td><div align="right"><?php echo round($mc80D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_80c,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">80</div></td>
<td><div align="right"><?php echo round($mm80D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_80m,2);?></div></td>
<td><div align="center"></div></td>
<td>
<td><div align="center">80</div></td>
<td><div align="right"><?php echo round($my80D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_80y,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">80</div></td>
<td><div align="right"><?php echo round($mk80D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_80k,2);?></div></td>
<td><div align="center"></div></td>
</tr>
<tr><td><div align="center">75</div></td>
<td><div align="right"><?php echo round($mc75D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_75c,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">75</div></td>
<td><div align="right"><?php echo round($mm75D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_75m,2);?></div></td>
<td><div align="center"></div></td>
<td>
<td><div align="center">75</div></td>
<td><div align="right"><?php echo round($my75D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_75y,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">75</div></td>
<td><div align="right"><?php echo round($mk75D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_75k,2);?></div></td>
<td><div align="center"></div></td>
</tr>
<tr><td><div align="center">70</div></td>
<td><div align="right"><?php echo round($mc70D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_70c,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">70</div></td>
<td><div align="right"><?php echo round($mm70D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_70m,2);?></div></td>
<td><div align="center"></div></td>
<td>
<td><div align="center">70</div></td>
<td><div align="right"><?php echo round($my70D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_70y,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">70</div></td>
<td><div align="right"><?php echo round($mk70D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_70k,2);?></div></td>
<td><div align="center"></div></td>
</tr>
<tr><td><div align="center">60</div></td>
<td><div align="right"><?php echo round($mc60D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_60c,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">60</div></td>
<td><div align="right"><?php echo round($mm60D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_60m,2);?></div></td>
<td><div align="center"></div></td>
<td>
<td><div align="center">60</div></td>
<td><div align="right"><?php echo round($my60D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_60y,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">60</div></td>
<td><div align="right"><?php echo round($mk60D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_60k,2);?></div></td>
<td><div align="center"></div></td>
</tr>
<tr><td><div align="center">50</div></td>
<td><div align="right"><?php echo round($mc50D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_50c,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">50</div></td>
<td><div align="right"><?php echo round($mm50D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_50m,2);?></div></td>
<td><div align="center"></div></td>
<td>
<td><div align="center">50</div></td>
<td><div align="right"><?php echo round($my50D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_50y,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">50</div></td>
<td><div align="right"><?php echo round($mk50D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_50k,2);?></div></td>
<td><div align="center"></div></td>
</tr>
<tr><td><div align="center">40</div></td>
<td><div align="right"><?php echo round($mc40D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_40c,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">40</div></td>
<td><div align="right"><?php echo round($mm40D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_40m,2);?></div></td>
<td><div align="center"></div></td>
<td>
<td><div align="center">40</div></td>
<td><div align="right"><?php echo round($my40D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_40y,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">40</div></td>
<td><div align="right"><?php echo round($mk40D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_40k,2);?></div></td>
<td><div align="center"></div></td>
</tr>
<tr><td><div align="center">30</div></td>
<td><div align="right"><?php echo round($mc30D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_30c,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">30</div></td>
<td><div align="right"><?php echo round($mm30D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_30m,2);?></div></td>
<td><div align="center"></div></td>
<td>
<td><div align="center">30</div></td>
<td><div align="right"><?php echo round($my30D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_30y,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">30</div></td>
<td><div align="right"><?php echo round($mk30D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_30k,2);?></div></td>
<td><div align="center"></div></td>
</tr>
<tr><td><div align="center">25</div></td>
<td><div align="right"><?php echo round($mc25D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_25c,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">25</div></td>
<td><div align="right"><?php echo round($mm25D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_25m,2);?></div></td>
<td><div align="center"></div></td>
<td>
<td><div align="center">25</div></td>
<td><div align="right"><?php echo round($my25D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_25y,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">25</div></td>
<td><div align="right"><?php echo round($mk25D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_25k,2);?></div></td>
<td><div align="center"></div></td>
</tr>
<tr><td><div align="center">20</div></td>
<td><div align="right"><?php echo round($mc20D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_20c,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">20</div></td>
<td><div align="right"><?php echo round($mm20D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_20m,2);?></div></td>
<td><div align="center"></div></td>
<td>
<td><div align="center">20</div></td>
<td><div align="right"><?php echo round($my20D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_20y,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">20</div></td>
<td><div align="right"><?php echo round($mk20D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_20k,2);?></div></td>
<td><div align="center"></div></td>
</tr>
<tr><td><div align="center">15</div></td>
<td><div align="right"><?php echo round($mc15D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_15c,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">15</div></td>
<td><div align="right"><?php echo round($mm15D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_15m,2);?></div></td>
<td><div align="center"></div></td>
<td>
<td><div align="center">15</div></td>
<td><div align="right"><?php echo round($my15D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_15y,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">15</div></td>
<td><div align="right"><?php echo round($mk15D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_15k,2);?></div></td>
<td><div align="center"></div></td>
</tr>
<tr><td><div align="center">10</div></td>
<td><div align="right"><?php echo round($mc10D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_10c,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">10</div></td>
<td><div align="right"><?php echo round($mm10D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_10m,2);?></div></td>
<td><div align="center"></div></td>
<td>
<td><div align="center">10</div></td>
<td><div align="right"><?php echo round($my10D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_10y,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">10</div></td>
<td><div align="right"><?php echo round($mk10D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_10k,2);?></div></td>
<td><div align="center"></div></td>
</tr>
<tr><td><div align="center">5</div></td>
<td><div align="right"><?php echo round($mc5D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_5c,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">5</div></td>
<td><div align="right"><?php echo round($mm5D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_5m,2);?></div></td>
<td><div align="center"></div></td>
<td>
<td><div align="center">5</div></td>
<td><div align="right"><?php echo round($my5D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_5y,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">5</div></td>
<td><div align="right"><?php echo round($mk5D,2);?></div></td>
<td><div align="center"><?php echo round($TVI_5k,2);?></div></td>
<td><div align="center"></div></td>
</tr>
<tr><td><div align="center">0</div></td>
<td><div align="right"><?php echo round($PD,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">0</div></td>
<td><div align="right"><?php echo round($PD,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td>
<td><div align="center">0</div></td>
<td><div align="right"><?php echo round($PD,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">0</div></td>
<td><div align="right"><?php echo round($PD,2);?></div></td>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
</tr>
</table>
<table width="200" border="1" align="center"> <font color="green">
<tr>
<td><div align="center">
<?php // content="text/plain; charset=utf-8"
require_once ('../jpgraph/jpgraph.php');
require_once ('../jpgraph/jpgraph_line.php');
require_once ('../jpgraph/jpgraph_plotline.php');
unlink('CMYSID.png');
$datay4 = array($TVI_5k-5,$TVI_10k-10,$TVI_15k-15,$TVI_20k-20,$TVI_25k-25,$TVI_30k-30,$TVI_40k-40,$TVI_50k-50,$TVI_60k-60,$TVI_70k-70,$TVI_75k-75,$TVI_80k-80,$TVI_85k-85,$TVI_90k-90,$TVI_95k-95);
$datay1 = array($TVI_5c-5,$TVI_10c-10,$TVI_15c-15,$TVI_20c-20,$TVI_25c-25,$TVI_30c-30,$TVI_40c-40,$TVI_50c-50,$TVI_60c-60,$TVI_70c-70,$TVI_75c-75,$TVI_80c-80,$TVI_85c-85,$TVI_90c-90,$TVI_95c-95);
$datay2 = array($TVI_5m-5,$TVI_10m-10,$TVI_15m-15,$TVI_20m-20,$TVI_25m-25,$TVI_30m-30,$TVI_40m-40,$TVI_50m-50,$TVI_60m-60,$TVI_70m-70,$TVI_75m-75,$TVI_80m-80,$TVI_85m-85,$TVI_90m-90,$TVI_95m-95);
$datay3 = array($TVI_5y-5,$TVI_10y-10,$TVI_15y-15,$TVI_20y-20,$TVI_25y-25,$TVI_30y-30,$TVI_40y-40,$TVI_50y-50,$TVI_60y-60,$TVI_70y-70,$TVI_75y-75,$TVI_80y-80,$TVI_85y-85,$TVI_90y-90,$TVI_95y-95);
// Setup the graph
$graph = new Graph(550,430);
//$graph->SetScale("textint",0,6,0,0);
$graph->SetScale("textint");
$theme_class= new UniversalTheme;
$graph->SetTheme($theme_class);
$graph->title->Set('TVI');
$graph->SetBox(false);
$graph->yaxis->HideZeroLabel();
$graph->yaxis->HideLine(false);
$graph->yaxis->HideTicks(false,false);
$graph->xaxis->SetTickLabels(array('5','10','15','20','25','30','40','50','60','70','75','80','85','90','95'));
$graph->ygrid->SetFill(false);
//$graph->SetBackgroundImage("tiger_bkg.png",BGIMG_FILLFRAME);
$p1 = new LinePlot($datay1);
$graph->Add($p1);
$p2 = new LinePlot($datay2);
$graph->Add($p2);
//$ADR=92.04-5.9;
//$BDR=91.12-6.32;
$p3 = new LinePlot($datay3);
$graph->Add($p3);
$p4 = new LinePlot($datay4);
$graph->Add($p4);
$p1->SetColor("#55bbdd");
$p1->SetLegend('C');
$p1->mark->SetType(MARK_FILLEDCIRCLE,'',1.0);
$p1->mark->SetColor('#55bbdd');
$p1->mark->SetFillColor('#55bbdd');
$p1->SetCenter();
$p2->SetColor("#fcbffb");
$p2->SetLegend('M');
$p2->mark->SetType(MARK_UTRIANGLE,'',1.0);
$p2->mark->SetColor('#fcbffb');
$p2->mark->SetFillColor('#fcbffb');
$p2->value->SetMargin(14);
$p2->SetCenter();
$p3->SetColor("#dce72a");
$p3->SetLegend('Y');
$p3->mark->SetType(MARK_DIAMOND,'',1.0);
$p3->mark->SetColor('#dce72a');
$p3->mark->SetFillColor('#dce72a');
$p3->value->SetMargin(14);
$p3->SetCenter();
$p4->SetColor("#cccccc");
$p4->SetLegend('K');
$p4->mark->SetType(MARK_DIAMOND,'',1.0);
$p4->mark->SetColor('#dce72a');
$p4->mark->SetFillColor('#dce72a');
$p4->value->SetMargin(14);
$p4->SetCenter();
$graph->legend->SetFrameWeight(1);
$graph->legend->SetColor('#4E4E4E','#00A78A');
$graph->legend->SetMarkAbsSize(8);
// Output line
$graph->Stroke('CMYSID.png');
?>
<img src="CMYSID.png">
</div></td></tr>
</table>
<?php
}
?>
<table align="center">
<tr>
<td align="center"><font size="-2"> © <a href="mailto:[email protected]">Fred Kuo</a>, 2014. All rights reserved.<br><a href="http://www.fredkuo.idv.tw/wordpress/?p=1025">Read more.</a><br>
</td>
</tr>
</table>
</body>
</html>