<![CDATA[
";
(モジュールB を挿入)
/* 表ヘッダ *************************************/
print "
＜(公転角度/月日, 緯度) ─南中の太陽仰角余角(度)・日影倍率＞対照表
<table border=1 cellspacing=0>
<tr>
<td rowspan=2 colspan=2 align=center>公転角度</td>
<td rowspan=2 colspan=2 align=center>月/日</td>
<td colspan=9 align=center>北緯○度の南中太陽仰角余角・日影倍率</td>
</tr>
<tr>";
for( $j = $a_from_degree; $j <= $a_to_degree; $j = $j + $a_u_degree ){
print "
<td align=center>".$j."</td>";
}
print "</tr>";
/* 表生成ループ *************************************/
for( $i = 0; $i <= 180; $i = $i + $t_u_degree ){
if( ( $i % 90 ) == 0 ){
print "
<tr bgcolor=\"#eedd00\">";
}
else {
print "
<tr>";
}
if( $i == 0 || $i == 180 ){
print "
<td colspan=2 align=center>".$i."</td>
<td colspan=2 align=center>".$month[$i]."/".$day[$i]."</td>";
}
else {
print "
<td align=center>".$i."</td>
<td align=center>".( 360 - $i )."</td>
<td align=center>".$month[$i]."/".$day[$i]."</td>
<td align=center>".$month[ 360 - $i ]."/".$day[ 360 - $i ]."</td>";
}
for( $j = $a_from_degree; $j <= $a_to_degree; $j = $j + $a_u_degree ){
print "
<td align=right> ".$alpha_deg[$i][$j]."<br>".$r[$i][$j]."</td>";
}
print "
</tr>
";
}
print "
</table>
";
]]>
|