#!/usr/local/bin/perl -w # NEEDED TO MAKE USE OF READPARSE ROUTINE print "Content-type: text/html\n\n"; print " \n"; print " \n"; print " \n"; print "

\n"; print "

A Velocity-Wavelength Calculator

\n"; print "

\n"; print "Enter rest and redshifted wavelengths to get back \n"; print "velocities (using the full relativistic Doppler formalism) \n"; print "

\n"; print " Note: all fields must be filled in for this form to work; \n"; print "

\n"; print "

Inputs:

\n"; print "Rest Wavelength(s): Enter a comma or space-separated list of up to 20 values
\n"; print "
\n"; print "Doppler Shifted Wavelength(s): Enter a comma separated list of up to 20 values
\n"; print "
\n"; print "Enter speed of light in Same Units as your input wavelengths
\n"; print "(i.e. if inputs are in Angstroms, then c=2.9979e18 A/sec)
\n"; print "
\n"; print "

\n"; print "

Outputs:

\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "

Rest Lambda

Shifted Lambda

Rest Freq

Shifted Freq

Velocity

dV/dlambda(rest)

\n"; print "

\n"; print "
\n"; print "Click on 'Compute' or 'Clear Boxes' to clear the above text boxes and try again.
\n"; print " \n"; print "

\n"; print "

\n"; # NOW CALL THE SUBROUTINE TO GET VARIABLES FROM THE FORM exit(0);