
Consulta de los cometas con magnitud visual teórica menor que la magnitud máxima introducida, en estos momentos. Base de datos de cometas actualizada el día echo date("d/m/Y H:i:s",$fecha);?>. Si la fecha de actualización no es reciente, puedes actualizarla aquí. (Una vez actualizada, si la fecha no se actualiza pulsa F5 para refrescar la página).
include("../mpc/orbitas.php");
$dbh=mysql_connect ("localhost", "mpc_joaquin", "190988") or die ('I cannot connect to the database because: ' . mysql_error());
mysql_select_db ("elcae959_mpc");
$consulta="SELECT * FROM cometas ORDER BY designacion ASC";
$resultado=mysql_query($consulta,$dbh);
printf("%-16s%-35s%-10s%-9s%-9s%-8s%-7s%-11s%-13s%-11s\n\n",'Designación','Cometa', 'magnitud','dias per','d.tierr','d.sol','elon','fase','A.R','DEC');
while($row=mysql_fetch_row($resultado))
{
// $tiempo=getdate();
// $t=$tiempo["0"];
if($row[1]!=0)
{
$dia=(int) $row[3];
$aux=($row[3]-$dia)*60.0;
$hora=(int) $aux;
$min=(int) (($aux-$hora)*60.0);
$perihelio=mktime($hora,$min,0,$row[2],$dia,$row[1]);
$t=mktime(gmdate("H"),gmdate("i"),gmdate("s"),gmdate("m"),gmdate("d"),gmdate("y"));
$c=Orbita($t,$row[0]);
$perihelio=($t-$perihelio)/86400.0;
if ($c['magnitud']<=$magnitudmaxima)
{
$ar=formatoAR($c['r_equ']['phi']/Rad/15.0);
$dec=formatoDEC($c['r_equ']['theta']/Rad);
printf("%-16s%-35s%' 6.1f %' 9.1f %' 7.3f %' 7.3f %' 6.1f %' 6.1f %' 13s %' 11s\n",$row[0],$row[12], $c['magnitud'], $c['tiempoperihelio'], $c['d_geocentrica'], $c['d_heliocentrica'],$c['elongacion'], $c['fase'],$ar,$dec);
// echo "Magnitud= ".$c['magnitud']."\t"."cometa: ".$row[12]."
";
}
}
}
?>