Ver Mensaje Individual
  #1 (permalink)  
Antiguo 12/11/2009, 06:45
mauricad
 
Fecha de Ingreso: noviembre-2009
Mensajes: 9
Antigüedad: 14 años, 6 meses
Puntos: 0
urgente ayuda con programa de coordenadas

soy nuevo en al foro pero la verdad es que tengo este problema, pues cuando ingreso una latitud y una longitud en grados, minutos y segundos, pues lo que quiero que al apretar el boton calcular pues que haga lo que tiene que hacer (calcular) pues tengo todo pero no me muestra lo que hace en sus respectivas utm...

<?php
$calcular=$_POST['calcular'];
{
if ($calcular)


if ($orientalong=="1") { /* Si la orientacion de la Latitud esta al oeste*/
$sd=(-1*((($segundoslong/60)/60)+($minutoslong/60)+($longitud)));/*Formula para hallar las sexas decimales*/
$rd=$sd*3.1416/180;
$aux=$sd/6+31;
$huso=(int)$aux;
$merhuso=($huso*6)-183;
$delta=$rd-($merhuso*3.1416)/180;
$a=(cos($rdlat))*(sin($delta));
$xi=(1/2)*log((1+$a)/(1-$a));
$eta=atan((tan($rdlat))/cos($delta))-$rdlat;
}
else if ($orientalong=="2") {/* Si la orientacion de la Latitud esta al este del meridiano de Greenwich*/
$sd=((($segundoslong/60)/60)+($minutoslong/60)+($longitud));
$rd=$sd*3.1416/180;/*en radianes*/
$aux=$sd/6+31;/*Calculo huso*/
$huso=(int)$aux;;/*Calculo huso*/
$merhuso=($huso*6)-183;
$delta=$rd-($merhuso*3.1416)/180;
$a=cos($rdlat)*sin($delta);
$xi=(1/2)*log((1+$a)/(1-$a));
$eta=atan((tan($rdlat))/cos($delta))-$rdlat;
}
if ($orientalat=="1") { /*Calculando los valores de l Latitud*/
$sd1=(-1*((($segundoslat/60)/60)+($minutoslat/60)+($latitud)));/*Formula para hallar las sexas decimales*/
$rdlat=$sd1*3.1416/180;/*en radianes*/
$eta=atan((tan($rdlat))/cos($delta))-$rdlat;
$asemiejemayor=6378057.238;
$bsemiejemenor=6334883.8;
$a1=($asemiejemayor*$asemiejemayor);
$b1=($bsemiejemenor*$bsemiejemenor);
$c1=($a1-$b1)/$asemiejemayor;
$excentricidad=sqrt((pow($asemiejemayor,2))-(pow($bsemiejemenor,2)))/$asemiejemayor;
$segundaexcentricidad=sqrt((pow($asemiejemayor,2))-(pow($bsemiejemenor,2)))/$bsemiejemenor;
$edos=pow($segundaexcentricidad,2);

$rpc=pow($asemiejemayor,2)/$bsemiejemenor; /*radio polar de curvatura */
/*$nuno=($rpc/(1+$edos(cos($rdlat)))*/
$cero=$rpc/(1+$edos);
$r=sqrt(cos(pow($rdlat,2)));
$ni=($cero+$r)*0.9996;/*Ni*/
$r1=($edos/2)*(pow($xi,2));
$r2=(cos($rdlat));
$r3=(pow($r2,2));
$zeta=($r1*$r3);
$res=2*$rdlat;/*Calculo de A1*/
$auno=sin($res);
$auxdos=cos($rdlat);/*Calculod e A2*/
$auxtres=(pow($auxdos,2));
$ados=$auno*$auxtres;
$jdos=$rdlat+($auno/2);/*Calculod e J2*/
$jcuatro=((3*$jdos)+$ados)/4;/*Calculod e J4*/
$jseis1=5*$jcuatro+$ados;
$jseis2=pow($rdlat,2);/*Calculod e J6 verificarlo*/
$jseis3=cos($jseis2)/3;
$jseis=$jseis1*$jseis3;
$alfa=(3/4)*$edos;/*Calculod de Alfa/
$beta=(5/3)*(pow($alfa,2));/*Calculod de Beta*/
$gama=(35/27)*(pow($alfa,3));/*Calculod de Gama*/
$bfi=(0.9996*$rpc)*($rdlat-($alfa*$jdos)+($beta*$jcuatro)-($gama*$jseis));/*Calculod de B(fi)*/
$utme=($xi*$ni)*(1+($zeta/3))+500000;
$utmnorte=($eta*$ni)*(1+$zeta)+$bfi+10000000;/*si la Latitues Norte*/
}

else if ($orientalat=="2") {
$sd1=((($segundoslat/60)/60)+($minutoslat/60)+($latitud));
$rdlat=$sd1*3.1416/180;/*en radianes*/
$eta=atan((tan($rdlat))/cos($delta))-$rdlat;
$asemiejemayor=6378057.238;
$bsemiejemenor=6334883.8;
$a1=($asemiejemayor*$asemiejemayor);
$b1=($bsemiejemenor*$bsemiejemenor);
$c1=($a1-$b1)/$asemiejemayor;
$excentricidad=sqrt((pow($asemiejemayor,2))-(pow($bsemiejemenor,2)))/$asemiejemayor;
$segundaexcentricidad=sqrt((pow($asemiejemayor,2))-(pow($bsemiejemenor,2)))/$bsemiejemenor;
$edos=pow($segundaexcentricidad,2);
$rpc=pow($asemiejemayor,2)/$bsemiejemenor; /*radio polar de curvatura */
/*$nuno=($rpc/(1+$edos(cos($rdlat)))*/
$cero=$rpc/(1+$edos);
$r=sqrt(cos(pow($rdlat,2)));
$ni=($cero+$r)*0.9996;/*Ni*/
$r1=($edos/2)*(pow($xi,2));
$r2=(cos($rdlat));
$r3=(pow($r2,2));
$zeta=($r1*$r3);
$res=2*$rdlat;/*Calculo de A1*/
$auno=sin($res);
$auxdos=cos($rdlat);/*Calculod e A2*/
$auxtres=(pow($auxdos,2));
$ados=$auno*$auxtres;
$jdos=$rdlat+($auno/2);/*Calculod e J2*/
$jcuatro=((3*$jdos)+$ados)/4;/*Calculod e J4*/
$jseis1=5*$jcuatro+$ados;
$jseis2=pow($rdlat,2);/*Calculod e J6 verificarlo*/
$jseis3=cos($jseis2)/3;
$jseis=$jseis1*$jseis3;
$alfa=(3/4)*$edos;/*Calculod de Alfa/
$beta=(5/3)*(pow($alfa,2));/*Calculod de Beta*/
$gama=(35/27)*(pow($alfa,3));/*Calculod de Gama*/
$bfi=(0.9996*$rpc)*($rdlat-($alfa*$jdos)+($beta*$jcuatro)-($gama*$jseis));/*Calculod de B(fi)*/
$utme=($xi*$ni)*(1+($zeta/3))+500000;
$utmnorte=(($eta*$ni)*(1+$zeta)+$bfi); /*Si la latitud es sur*/
}
}
?>
<tr>
<td>Latitud</td>
<td><input name="latitud" type="text" size="10" maxlength="13" value="" ></td>
<td>Minutos</td>
<td><input name="minutoslat" type="text" size="3" maxlength="3" value=""></td>
<td>Segundos</td>
<td><input name="segundoslat" type="text" size="3" maxlength="3" value=""></td>
<td><select name="orientalat" >
<option value="1">N</option>
<option value="2">S</option>
</select>
</td>
<tr>
<td>Longitud </td>
<td><input name="longitud" type="text" value="" size="10" maxlength="13" ></td>
<td> Minutos</td>
<td><input name="minutoslong" type="text" size="3" value="" maxlength="3" ></td>
<td>Segundos</td>
<td><input name="segundoslong" type="text" size="3" maxlength="3" value="" ></td>
<td>
<select name="orientalong" >
<option value="1">E</option>
<option value="2">W</option>
</select>
</td></tr>
<td>
<input type=submit name='calcular'value="calcula" style="border:0px solid; color:#FFFFFF; background-color:#005B99" title="Calcular UTM" >
</td>
<td>&nbsp;</td>
<td colspan="3">&nbsp;</td>
</tr>
<tr>
<td>Coord. UTM </td>
<td>&nbsp;</td>
<td>UTM Norte </td>
<td><input name="utmnorte" type="text" size="10" maxlength="15" value="<?php echo $utmnorte;?>" disabled></td>
<td>UTM Este</td>
<td><input name="utme" type="text" size="10" maxlength="15" value="<?echo $utme;?>" disabled></td>
<td>&nbsp;</td>
<td colspan="3">&nbsp;</td>
</tr>
<tr>