SkyMapper telescope SNR Calculator Output
ZP $ZP{$filter}
SKY $SKY{$filter}{$moon}
START if ($seeing < 1.0) { print "
Warning, These data will be undesampled.
\n"; } if ($mag < 3) { $mag=0; } print "
Input parameters:
\n";
print "Seeing: $seeing arcseconds
Phase of moon: $moon Time
Object magnitude: $mag in the $filter filter ($ABlabel{$AB})
\n";
print "Apsize: $apsizearcsec arcseconds
Aperture Correction: $apcor (correction for r=infinity to r=aperture in mags)
";
if ($SNR eq "") {
print "Exposure Time: $exp seconds
\n";
}
else {
print "SNR desired: $SNR\n";
}
print <| integration time (seconds) |
total sky (electrons) |
total object (electrons) |
total noise (electrons) |
S/N ratio |
|---|---|---|---|---|
| %7.0f | %9.2e | %9.2e | %9.2e | %7.1f |
| %7.0f | %9.2e | %9.2e | %9.2e | %7.1f |
| %7.0f | %9.2e | %9.2e | %9.2e | %7.1f |
| Cannot achieve in less than 10 hours | ||||
| %7.0f | %9.2e | %9.2e | %9.2e | %7.1f |
Brian Schmidt brian\@mssso.anu.edu.au
last update 26May2006.
END
sub init_html {
# Print out a content-type for HTTP/1.0 compatibility
print "Content-type: text/html\n\n";
print "\n\n";
if ( $ENV{'CONTENT_LENGTH'} > 0 ) {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # Get the input
} else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer); # Split the name-value pairs
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /; # Un-Webify plus signs and %-encoding
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/([;<>\*\`&\$!?#\(\)\[\]\{\}'"\\])/\\$1/g; # Get rid of dangerous characters
$FORM{$name} = $value;
}
%FORM;
}