表作成のコンピュータプログラム例を，以下に示す。
これは，html で実行する PHP プログラムである。
<![CDATA[ ";
(モジュールA を挿入)
/* 表ヘッダ *************************************/
print "
日出・南中・日入時刻の年間変化表 (北緯 ".$a_degree." 度)
<table cellpadding=2><tr><td></td></tr></table>
<table border=1 cellspacing=0>
<tr>
<td rowspan=2 align=center>公転角度</td>
<td rowspan=2 align=center bgcolor=\"#e3e3e3\">月日</td>
<td colspan=4 align=center>経度</td>
<td colspan=3 align=center>時刻</td>
<td colspan=4 align=center>日中時間</td>
</tr>
<tr>
<td align=center>日出</td>
<td align=center>南中</td>
<td align=center>日入</td>
<td align=center>正午</td>
<td align=center bgcolor=\"#e3e3e3\">日出</td>
<td align=center>南中</td>
<td align=center bgcolor=\"#e3e3e3\">日入</td>
<td align=center>午前</td>
<td align=center>午後</td>
<td align=center bgcolor=\"#e3e3e3\">計</td>
<td align=center>増減(秒)</td>
</tr>
";
/* 表生成ループ *************************************/
for( $i = $t_from_degree; $i < $t_to_degree; $i = $i + $t_u_degree ){
if( ( $i % 90 ) == 0 ){
print "
<tr bgcolor=\"#eedd00\">";
}
else {
print "
<tr>";
}
$h_font = "<font size=\"-1\" color=\"#999999\">h</font>";
$m_font = "<font size=\"-1\" color=\"#999999\">m</font>";
$s_font = "<font size=\"-1\" color=\"#999999\">s</font>";
print "
<td align=center>".$i."</td>
<td align=center bgcolor=\"#e3e3e3\">".$date[$i]."</td>
<td align=right>".round( $sunrise_deg[$i], 0 )."</td>
<td align=right>".round( $midsun_deg[$i], 0 )."</td>
<td align=right>".round( $sunset_deg[$i], 0 )."</td>
<td align=right>".round( $midday_deg[$i], 0 )."</td>
<td align=left bgcolor=\"#e3e3e3\">".$sunrise_time[$i]."</td>
<td align=left>".$midsun_time[$i]."</td>
<td align=left bgcolor=\"#e3e3e3\">".$sunset_time[$i]."</td>
<td align=left>".$am_str[$i]."</td>
<td align=left>".$pm_str[$i]."</td>
<td align=left bgcolor=\"#e3e3e3\">".$am_pm_str[$i]."</td>
";
if( $i > 0 ){
print "
<td align=right>".round( $am_pm[$i] - $am_pm[$i - $t_u_degree] )."</td>";
}
else {
print "
<td align=center>─</td>";
}
print "
</tr>
";
}
print "
</table>
]]>
|