表作成のコンピュータプログラム例を，以下に示す。
これは，html で実行する PHP プログラムである。
<![CDATA[ ";
/* 公転角度と月日の対応 ******************************************************/
$m_days[1] = 31;
$m_days[2] = 28;
$m_days[3] = 31;
$m_days[4] = 30;
$m_days[5] = 31;
$m_days[6] = 30;
$m_days[7] = 31;
$m_days[8] = 31;
$m_days[9] = 30;
$m_days[10] = 31;
$m_days[11] = 30;
$m_days[12] = 31;
/* 夏至 (6月20日) */
$summer_solstice_mon = 6;
$summer_solstice_day = 20;
$mm = $summer_solstice_mon;
$dd = $summer_solstice_day;
for( $i = 0; $i < 365; $i++ ){
$month[$i] = $mm;
$day[$i] = $dd;
if( $dd + 1 > $m_days[$mm] ){
$dd = 1;
if( $mm + 1 < 13 ){
$mm++;
}
else{
$mm = 1;
}
}
else{
$dd++;
}
}
/*******************************************************/
print "
正午点の経度の年間変化
<table><tr>
<td valign=top>
<table border=1 cellspacing=0>
<tr>
<td align=center> 月/日 </td>
<td align=center>公転角度</td>
<td align=center> 経度 </td>
</tr>
";
$skip = 5;
for( $i = 0; $i < 365; $i++ ){
if( $i % $skip == 0 ){
$n = $i + 195;
if( $n >= 365 ){
$n = $n - 365;
}
$t = round( 360 * $n / 365, 1 );
$b = 270 + $t;
if( $b >= 360 ){
$b = $b - 360;
}
print "
<tr>
<td align=center> ".$month[$n]."/".$day[$n]." </td>
<td align=center> ".round( $t, 0 )." </td>
<td align=center> ".round( $b, 0 )." </td>
</tr>";
}
}
print "
</table>
</td>
<td> </td>
<!--■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■-->
<td valign=top>
<table border=1 cellspacing=0>
<tr>
<td align=center>公転角度</td>
<td align=center> 月/日 </td>
<td align=center> 経度 </td>
</tr>
";
$skip = 5;
for( $t = 0; $t < 360; $t++ ){
if( $t % $skip == 0 ){
$b = 270 + $t;
if( $b >= 360 ){
$b = $b - 360;
}
$n = 365 * $t / 360;
$n = round( $n, 0 );
print "
<tr>
<td align=center> ".$t." </td>
<td align=center> ".$month[$n]."/".$day[$n]." </td>
<td align=center> ".$b." </td>
</tr>";
}
}
print "
</table>
</td>
</tr></table>
]]>
|