プログラム言語は，PHP。
<?<![CDATA[ $R = 6378;
$g0 = 0.0098;
$i = 0;
$altitude[$i++] = 100;
$altitude[$i++] = 200;
$altitude[$i++] = 500;
$altitude[$i++] = 1000;
$altitude[$i++] = 2000;
$altitude[$i++] = 3000;
$altitude[$i++] = 4000;
$altitude[$i++] = 5000;
$altitude[$i++] = 6000;
$altitude_n = $i;
print "
<table border=1 cellspacing=0 cellpadding=2>
<tr>
<td align=center>水平飛行になった<br>時の高度 (km)</td>
<td align=center>地表に到達するまでの<br>落下時間 (s)</td>
<td align=center>地表到達時の<br>鉛直速度 (km/s)</td>
</tr>
";
$t = 0;
$time_interval = 5;
for( $i = 0; $i < $altitude_n; $i++ ){
$h = $altitude[$i];
$w = 0;
$g = 0;
$counter = 1000;
while( $counter > 0 ){
global $R, $g0;
global $t, $time_interval;
global $g, $w, $h;
$g = $g0 * pow( $R / ( $R + $h ), 2 );
$w = $w + $g * $time_interval;
$h = $h - $w * $time_interval;
$t = $t + $time_interval;
if( $h < 0 ){
break;
}
$counter--;
}
print "
<tr>
<td align=center>".$altitude[$i]."</td>
<td align=center>".$t."</td>
<td align=center>".round( $w, 2 )."</td>
</tr>
";
}
print "
</table>
<br><br>]]>?>
|