<!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>
<?php
$calcular=$_POST['calcular'];
if ($calcular) {
}
# U-001 ######################################################################
# U-002 ######################################################################
proc geoutm {longitud latitud hemisferio NH xx yy esc con} {
#procedimiento de Geográficas a UTM
#entrar longitud y latitud con su signo en modo decimal en grados sex.
upvar $xx X
upvar $yy Y
upvar $esc factor_e
upvar $con conv
global Pi
global a
global e1
global e2
global Ko Xo Yo
set lo $longitud
set lat_rad [expr $latitud*$Pi/180.0]
set ilo [expr $lo-6*($NH-30.5)]; set ilo_rad [expr ($ilo*$Pi)/180.0]
#calculo de arco de meridiano en el elipsoide###################################
set B [expr $a*(1-$e1)*((1+3/4.0*$e1+ 45/64.0*pow($e1,2)+175/256.0*pow($e1,3)) *$lat_rad-1/2.0*(3/4.0*$e1+15/16.0*pow($e1,2) +525/512.0*pow($e1,3))*sin(2*$lat_rad)+1/4.0 *(15/64.0*pow($e1,2)+105/256.0*pow($e1,3)) *sin(4*$lat_rad)-1/6.0*(35/512.0*pow($e1,3)) *sin(6*$lat_rad))]
radios $a $e1 $lat_rad N ro
set n [expr sqrt($e2)*cos($lat_rad)]
#calculo de coordenada "y" ######################################################
set y [expr $B+pow($ilo_rad,2)/2.0*$N *pow(cos($lat_rad),2)*tan($lat_rad) +pow($ilo_rad,4)/24.0*$N*pow(cos($lat_rad),4) *tan($lat_rad)*(5-tan($lat_rad)*tan($lat_rad)+9 *$n*$n+4*pow($n,4))+pow($ilo_rad,6)/720.0 *$N*pow(cos($lat_rad),6)*tan($lat_rad)*(61-58 *pow(tan($lat_rad),2)+pow(tan($lat_rad),4)+270 *$n*$n-330*pow(tan($lat_rad),2)*$n*$n)]
#aplicar factor reduccion deformacion lineal y comprobar si estamos en latitud Sur
set Y [expr $Ko*$y]
if {$hemisferio<0} {
set Y [expr $Yo+$Y]
}
#calculo de coordenada "x" #######################################################
set x [expr $ilo_rad*$N*cos($lat_rad) +pow($ilo_rad,3)/6.0*$N*pow(cos($lat_rad),3) *(1-pow(tan($lat_rad),2)+$n*$n)+pow($ilo_rad,5) /120.0*$N*pow(cos($lat_rad),5)*(5-18 *pow(tan($lat_rad),2)+pow(tan($lat_rad),4)+14*$n *$n-58*pow(tan($lat_rad),2)*$n*$n)]
set x [expr $x*$Ko]
set X [expr $Xo+$x]
#Calculo factor de escala y convergencia de meridianos ############################
CMk $lat_rad $ilo_rad $n co k
set factor_e [format "%0.12f" $k]
set conv [expr ($co*180)/$Pi]
#fin de trasformacion GEOGRAFICAS a UTM
return
}
# U-002 ######################################################################
# U-003 ######################################################################
proc CMk {latrad ilorad n co k} {
#procedimiento de convergencia y factor de escala en UTM
upvar $co conv_rad
upvar $k factor_e
global Ko
set conv_rad [expr $ilorad*sin($latrad)+(pow($ilorad,3)/3) *sin($latrad)*pow(cos($latrad),2)*(1+3*pow($n,2)+2 *pow($n,4))+(pow($ilorad,5)/15)*sin($latrad) *pow(cos($latrad),4)*(2-pow(tan($latrad),2))]
set factor_e [expr $Ko*(1+pow($ilorad,2)/2.0 *pow(cos($latrad),2)*(1+pow($n,2)))]
}
# U-003 ######################################################################
?>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Calculo Coordenadas UTM</title>
</head>
<form name=m method=POST action="">
<body>
<center>
<table width="200" border="1">
<tr>
<td> </td>
<td>Distancia</td>
<td>Minutos</td>
<td>Segundos</td>
<td>Valores</td>
</tr>
<tr>
<td>Longitud</td>
<td><label>
<input type="text" name="longitud" id="longitud"size=15 maxlength=15 value='<?php echo $longitud; ?>'/>
</label></td>
<td><input type="text" name="minutoslong" id="minutoslong" size=5 maxlength=5 value='<?php echo $minutoslong; ?>'/></td>
<td><input type="text" name="segundoslong" id="segundoslong" size=5 maxlength=5 value='<?php echo $segundoslong; ?>'/></td>
<td><label>
<input type="text" name="utmnorte" id="utmnorte"size=15 maxlength=15 value="<?php echo $utmnorte; ?>" disabled/>
</label>
</td>
</tr>
<tr>
<td>Latitud</td>
<td><label><input type="text" name="latitud" id="latitud" size=15 maxlength=15 value="<?php echo $latitud; ?>"/></label></td>
<td><input type="text" name="minutoslat" id="minutoslat" size=5 maxlength=5 value='<?php echo $minutoslat; ?>'/></td>
<td><input type="text" name="segundoslat" id="segundoslat"size=5 maxlength=5 value='<?php echo $segundoslat; ?>' /></td>
<td><label>
<input type="text" name="utme" id="utme" size=15 maxlength=15 value="<?php echo $utme; ?>" disabled />
</label></td>
</tr>
</table>
<p>
<input type=submit name='calcular' value='Calcula' style="border:0px solid; color:#FFFFFF; background-color:#005B99" title="Calcular UTM">
<input type=submit name='volver' onClick="javascript:history.go(-1)" value='Volver' style="border:0px solid; color:#FFFFFF; background-color:#005B99" title="Volver formulario Principal">
</body>
<?php
$volver=$_POST['volver'];
$latitud = $latitud." ".$minutoslat." ".$segundoslat;
$longitud = $longitud." ".$minutoslong." ".$segundoslong;
if($volver ){
//echo "<script>window.opener.location.href='ingreso.php?ingreso=Consultar&utmnorte=$utmnorte&utme=$utme&latitud=$latitud&minutoslat=$minutoslat&segundoslat=$segundoslat&longitud=$latitud&minutoslong=$minutoslong&segundoslong=$segundoslong'; window.close();</script>";exit;
echo "<script>window.opener.location.href='ingreso.php?ingreso=Consultar&utmnorte=$utmnorte&utme=$utme&latitud=$latitud&longitud=$longitud'; window.close();</script>";exit;
/*echo"<script>document.location.href='principal.php?principal=Consultar&utmnorte=$utmnorte&utme=$utme';</script>"; */
}
?>
</form>
</html>
