24 Àý±â solar object -- get sun position or 24 solar terms

¼Ò½º´Ý±â | 24Àý±â °è»ê | À½¾ç·Âº¯È­, º°ÀÚ¸®, ÀÏ¿ù½Ä °è»ê | ¸Þ½Ã¿¡ °üÃøÁ¤º¸(½Ç½Ã°£) | ¸Þ½Ã¿¡ °üÃøÁ¤º¸(¿À´ÃÀüü) | deltaT °è»ê | ºÎÈ°Àý ³¯Â¥ °è»ê
<?php
require_once '_lib/class.calendar.php';
require_once 
'_lib/class.solar.php';

$_self basename($_SERVER['SCRIPT_NAME']);
$title '24 Àý±â solar object -- get sun position or 24 solar terms';

echo <<<___END
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<TITLE>
$title</TITLE><P><H2>$title</H2>
<meta http-equiv="Content-Type" content="text/html; charset=EUC-KR">
<SCRIPT LANGUAGE="JavaScript" type="text/JavaScript">
<!--
var starttime = (new Date()).getTime();
//-->
</SCRIPT>
<STYLE TYPE="text/css">
<!--
 * { font-family:NanumGothic,'³ª´®°íµñ','Malgun Gothic',Dotum,'µ¸¿ò',Gulim,'±¼¸²',Helvetica,Apple-Gothic; }
  body { font-size:10pt; }
-->
</STYLE>
</HEAD>
<BODY>\n
___END;

$_menuindex = array
(
  
'solar.php'  => '24Àý±â °è»ê',
  
'lunar.php'  => 'À½¾ç·Âº¯È­, º°ÀÚ¸®, ÀÏ¿ù½Ä °è»ê',
  
'messier.php'=> '¸Þ½Ã¿¡ °üÃøÁ¤º¸(½Ç½Ã°£)',
  
'messier.today.php'=>'¸Þ½Ã¿¡ °üÃøÁ¤º¸(¿À´ÃÀüü)',
  
'deltat.php' => 'deltaT °è»ê',
  
'easter.php' => 'ºÎÈ°Àý ³¯Â¥ °è»ê'
);

$menu '';
foreach(
$_menuindex AS $k=>$v)  $menu .= " | <A HREF='$k'>$v</A>";

if(
$_GET['view'])
{
  echo 
'<A HREF="'.$_self.'">¼Ò½º´Ý±â</A>'.$menu.'<HR>'."\n";
  
highlight_file(basename($_self));
  return;
}

if(
$_POST)
{
  
$_p $_POST['_p'];
  
$utime calendar::_mktime($_p['h'],$_p['i'],$_p['s'],$_p['m'],$_p['d'],$_p['y']);
} else
{
  
$utime time();
  list(
$_p['h'],$_p['i'],$_p['s'],$_p['m'],$_p['d'],$_p['y']) =
    
explode(' ',date('H i s n d Y',$utime));
}

echo 
'<A HREF="'.$_self.'?view=1">¼Ò½ºº¸±â</A>'.$menu.'<HR>'."\n";
echo <<<___END
<H2>µ¥¸ð -- Å×½ºÆ®</H2>
<PRE>
- À¯È¿±â°£: ¾ç·Â 1902.01.01 00:00:00 - 2037.12.31 23:59:59
<FORM METHOD=post>
³â¿ùÀÏ-½ÃºÐÃÊ: <INPUT TYPE=text NAME='_p[y]' VALUE='
$_p[y]' SIZE=5 MAXLENGTH=5
>³â <INPUT TYPE=text NAME='_p[m]' VALUE='
$_p[m]' SIZE=2 MAXLENGTH=2
>¿ù <INPUT TYPE=text NAME='_p[d]' VALUE='
$_p[d]' SIZE=2 MAXLENGTH=2
>ÀÏ - <INPUT TYPE=text NAME='_p[h]' VALUE='
$_p[h]' SIZE=2 MAXLENGTH=2
>½Ã <INPUT TYPE=text NAME='_p[i]' VALUE='
$_p[i]' SIZE=2 MAXLENGTH=2
>ºÐ <INPUT TYPE=text NAME='_p[s]' VALUE='
$_p[s]' SIZE=2 MAXLENGTH=2
>ÃÊ<BR>
<INPUT TYPE=submit VALUE=' ´Ù½Ã °è»êÇϱâ '
> <INPUT TYPE=button VALUE=' ÃʱâÈ­ ' OnClick='location.href="
$_self"'>
</FORM>
[author]
 - Chilbong Kim, < san2(at)linuxchannel.net >
 - http://linuxchannel.net/

[±Ù»ç½Ä¿¡ ´ëÇÑ ½Å·Ú] 1902 ~ 2000 ³â
 - Ç¥ÁØÆíÂ÷ : 1289.7736 = 21.5 ºÐ
 - Æò±Õ¿ÀÂ÷ : +817.57409541246 = +13.6 ºÐ
 - ÃÖ´ë¿ÀÂ÷ : +4102.7340(68.4 ºÐ), -4347.2395(72.5 ºÐ)

[±Ù»ç½ÄÀ¸·Î °è»êÇÑ 24Àý±â ½ÇÁ¦ ¿ÀÂ÷] 1902 ~ 2037 ³â
 - Ç¥ÁØÆíÂ÷ : 1122.1921 = 18.7 ºÐ
 - Æò±Õ¿ÀÂ÷ : +686.08382175161 = +11.4 ºÐ
 - ÃÖ´ë¿ÀÂ÷ : +4297.252300024(71.6 ºÐ), -4278.048699975(71.3 ºÐ)
 - ÃÖ¼Ò¿ÀÂ÷ : +0.16999998688698(0ÃÊ)

[±Ù»ç½Ä + ³âµµ º¸Á¤À¸·Î °è»êÇÑ 24Àý±â ½ÇÁ¦ ¿ÀÂ÷] 1902 ~ 2037 ³â
 - Ç¥ÁØÆíÂ÷ : 450.8534 = 7.5 ºÐ
 - Æò±Õ¿ÀÂ÷ : +305.38638890903 = 5.0 ºÐ
 - ÃÖ´ë¿ÀÂ÷ : +3028.2343000174 = 50.5 ºÐ, -1982.9391000271 = 33.1 ºÐ
 - ÃÖ¼Ò¿ÀÂ÷ : +0.0085000991821289 = 0 ÃÊ
___END;

$today  solar::today($utime);
$tmoon  solar::terms($_p['y'],$_p['m'],0);
$sun    solar::sun($utime);
$sambok solar::sambok($_p['y']);
$suns   = array();
$tterms solar::terms($_p['y'],1,12,$suns);

echo 
'<HR>'."\n";
echo 
'<H3>³âµµ : '.$_p['y'].'³â</H3>'."\n";
echo 
'¿À´Ã : '.$today.'<P>'."\n";
print_r($sambok);
echo 
"\n\n";
echo 
'À̹ø´Þ : '.$_p['y'].'³â '.$_p['m'].'¿ù'."\n";
print_r($tmoon);
echo 
"\n\n";
echo 
'ÇöÀç½Ã°¢ÀǠžçÀÇ À§Ä¡: '."\n";
print_r($sun);
echo 
"\n\n";
print_r($tterms);
echo 
"\n\n";
print_r($suns);


echo 
"\n</BODY>\n</HTML>";
return;
?>

Page loading: 0.03(server) + (network) + (browser) seconds