表作成のコンピュータプログラム例を，以下に示す。
これは，html で実行する PHP プログラムである。
<![CDATA[ ";
(モジュールA を挿入)
/* 表ヘッダ *************************************/
print "
南中・正午の年間変化表 (北緯 ".$a_degree." 度)
<table cellpadding=2><tr><td></td></tr></table>
<table border=1 cellspacing=0>
<tr>
<td rowspan=2>公転角度(τ)</td>
<td rowspan=2 align=center>月/日</td>
<td colspan=2 align=center>経度</td>
<td rowspan=2 align=center> 南中は <br> 正午に対し </td>
</tr>
<tr>
<td align=center> 南中 </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>";
}
$sec = round( $spd * ( $midsun_deg[$i] - $midday_deg[$i] ), 0 );
$sec1 = abs( $sec );
$ss = $sec1 % 60;
$mm = ( $sec1 - $ss ) / 60;
if( $sec == 0 ){
$dif_str = "一致";
}
elseif( $sec > 0 ){
$dif_str = $mm."分".$ss."秒後";
}
else{
$dif_str = $mm."分".$ss."秒前";
}
print "
<td align=center>".$i."</td>
<td align=center>".$date[$i]."</td>
<td align=right>".round( $midsun_deg[$i], 1 )."</td>
<td align=right>".$midday_deg[$i]."</td>
<td align=left> ".$dif_str."</td>
</tr>
";
}
print "
</table>
]]>
|