<?php # -*- PHP -*-
$NOCACHE=1;
$OTHERURI="doppler.php?LANG=other";
require("../include/head1.inc");
langfilt('FI:
FI:Viestikallion työkaluja: Doppler laskenta
EN:Viestikallio Tools: Doppler calculation');
require("../include/head2.inc");
langfilt('FI:
FI:Viestikallion työkaluja: Doppler laskenta
EN:Viestikallio Tools: Doppler calculation');
include("../include/head3.inc");
include("../include/menu.inc");
printf("<TABLE><TR><TD>\n");
if ($HTTP_GET_VARS["SOURCE"] != "" || $HTTP_GET_VARS["source"] != "") {
printf("\n<FONT SIZE=1>\n");
highlight_file("doppler.php");
printf("</FONT><P><HR><P>\n");
include("../include/sign-oh2mqk.inc");
printf("<P></TD></TR></TABLE>\n");
include("../include/base.inc");
include("../include/foot.inc");
exit;
}
# - Frequency
# - Radial speed in meters/sec
$FREQ = $HTTP_GET_VARS["FREQ"];
if ($FREQ == "") {
$FREQ = $HTTP_POST_VARS["FREQ"];
}
if ($FREQ == "") {
$FREQ = 10.50;
}
$SPEED = $HTTP_GET_VARS["SPEED"];
if ($SPEED == "") {
$SPEED = $HTTP_POST_VARS["SPEED"];
}
if ($SPEED == "" || $SPEED < -10000000.0 || $SPEED > 10000000.0) {
$SPEED = 60.0;
}
langfilt('
<P>
FI:<H2>Doppler taajuusmuutos epärelativistisessa tapauksessa:</H2>
EN:<H2>The Doppler frequency shift in non-relativistic case:</H2>
<P>
<FORM ACTION="doppler.php" METHOD=POST>
**:<TABLE><TR><TH ALIGN=LEFT>
FI:Taajuus
EN:Frequency
**::<BR>(<I>f, [GHz]</I>)
</TH><TD ALIGN=RIGHT>
<INPUT TYPE="text" NAME="FREQ" SIZE=9 ALIGN=RIGHT
VALUE="'.$FREQ.'"></TD>
FI: <TD>Gigahertseinä</TD>
EN: <TD>in GHz</TD>
</TR>
**:<TR><TH ALIGN=LEFT>
FI:Säteittäisnopeus
EN:Radial speed
**::<BR>(<I>v, [m/s]</I>)
</TH><TD ALIGN=RIGHT>
<INPUT TYPE="text" NAME="SPEED" SIZE=9 ALIGN=RIGHT
VALUE="'.$SPEED.'"></TD>
<TD>m/s</TD>
</TR>
</TR>
</TABLE>
**: <INPUT TYPE="submit" NAME="doit" VALUE="
FI:Laske
EN:Compute
">
</FORM>
<P>
');
### ---- The business itself ----
$FREQhz = $FREQ * 1000000000.0; # Hz
$c = 299792000.0; # m/s
$df = $SPEED * $FREQhz / $c;
### ---- present the results ----
echo("<A NAME=\"result\"></A><P>\n");
echo("<TABLE>\n");
echo('<TR>');
langfilt('**:<TH ALIGN=LEFT>
FI:Taajuus
EN:Frequency
:</TH>');
printf(" <TD ALIGN=RIGHT> %.1f </TD>\n",$FREQ);
echo(" <TH ALIGN=LEFT>[GHz] </TH>\n");
echo('</TR>');
echo('<TR>');
langfilt('**:<TH ALIGN=LEFT>
FI:Doppler
EN:Doppler
:</TH>');
printf(" <TD ALIGN=RIGHT> %.1f </TD>\n",$df);
echo(" <TH ALIGN=LEFT>[Hz]</TH>\n");
echo("</TABLE>\n");
langfilt('
<P>
FI: Tulokset ovat tarkkuudeltaan syötteiden tasoa!
EN: Result accuracy is in par with the inputs!
<P>
FI: Siis: 12.34567 ja 0.001234567 pitää ymmärtää
FI: lukuina 12.3 ja 0.00123, olettaen että syöte on
FI: kolmella merkitsevällä numerolla.
EN: That is: 12.34567, and 0.001234567 should be considered as
EN: 12.3 and 0.00123 respectively, presuming the inputs are
EN: with three meaningfull numbers.
<P>
<P><HR><P> <P>
FI: <H2>Laskentamenetelmä:</H2>
EN: <H2>The computation method:</H2>
<P>
FI:<A HREF="doppler.php?source=1">Lähdekoodi tälle sivulle</A>
EN:<A HREF="doppler.php?source=1">Source for this page</A>
<P>
<BLOCKQUOTE>
<TABLE><TR><TD VALIGN=CENTER>delta-f = </TD>
<TD><TABLE>
<TR><TD>v * f</TD></TR>
<TR><TD><HR></TD></TR>
<TR><TD ALIGN=CENTER>c</TD></TR>
</TABLE></TD></TR>
</TABLE>
</BLOCKQUOTE>
<P>
<HR>
<P>
');
include("../include/sign-oh2mqk.inc");
printf("<P></TD></TR></TABLE>\n");
include("../include/base.inc");
include("../include/foot.inc");
?>
Matti Aarnio <matti.aarnio@zmailer.org>; OH2MQK
|
