R-DAS FLIGHT #5 DETAILS
Flight #: 5
Date: September, 2001 Venue: Elsworth, Cambridgeshire
R-DAS type: R-DAS Classic
R-DAS firmware: 3.0
R-DAS Recorded Altitude: 1504 feet (456 metres)
Apogee - Charge Firing Delta-t: 2.2 seconds
Apogee - Charge Firing Delta-h: 75 feet (22.7 metres)
Descent Rate at Apogee Deployment: 34 feet per second (10.3 metres per second)
Total Time of Flight: 55 seconds
Apogee - Charge Firing h Variance: 5%
R-DAS Flight Mode: Apogee & Main Ejection
Launch Vehicle Diameter: 2.6 inches
Launch Vehicle Length: 6 feet
Launch Vehicle Propulsion: R.A.T.T.Works I-80H Hybrid Fins: 4 clipped swept deltas (Aerofoiled)
Launch System: Rail Launch (6 feet long, Black Sky Rail)
Finish: Largely painted, but some airframe unfinished
Ejection Method: Electronic Deployment using apogee charge in SafeEject canister, then main charge in SafeEject canister as backup
Ejection Ignition Type: Daveyfire igniters (electric matches)
|
|
 | | Comments The second flight of the Hytest-1 rocket went without a hitch. the ascent was very straight, and on the second flight, the 2-stage recovery system had been dispensed in favour of a single stage deployment system. The difference in length seemed to provide added stability on the ascent, and coupled with a lower wind speed at the launch site, resulted in the straight trajectory.
| |
 | | Thrust Section of Flight | |
|
 |
|
#!/usr/bin/perl -w
use strict;
use CGI qw(:escape);
use CGI;
use lib qw(/home/rosborne/lib);
use Astro::Sunrise;
use Astro::MoonPhase;
use vars qw($query);
my $query = new CGI;
print $query->header();
#print "Content-type: text/html\n\n";
my $sec = 0;
my $mday = 0;
my $mon = 0;
my $year = 0;
my $wday = 0;
my $yday = 0;
my $isdst = 0;
my $tz = 0;
my $hr = 0;
my $min = 0;
my @days = ();
my @shortdays = ();
my @months = ();
my @shortmonths = ();
my $longyr = 0;
my @cnts;
my $filename;
my $found;
my $counts;
my $cnt;
my $page;
my $showcnt;
my $cnts;
my $blk;
my $sunrise;
my $sunset;
my ($MoonPhase,$MoonIllum,$MoonAge,$MoonDist,$MoonAng,$SunDist,$SunAng);
sub determine_date
{
@days = ("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday");
@shortdays = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat");
@months = ("January","February","March","April","May","June","July","August","September","October","November", "December");
@shortmonths = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
($sec,$min,$hr,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$longyr = $year + 1900;
if ($isdst == 1) {
$tz = "GMT";
} else {
$tz = "GMT";
}
}
sub display_date
{
print "$shortdays[$wday], $shortmonths[$mon] $mday, $longyr, ";
printf("%02d:%02d $tz\n", $hr, $min);
}
### Open File and Read All Data
open (FILE, "counts.txt");
@cnts = ;
close(FILE);
### Delete Old File Before ReWriting it with New Data
$filename = "counts.txt";
if (-e $filename) { unlink("$filename"); }
### Create and Open New File ReInput Old Data While Updating New
$found = 0;
open (NEWFILE,">counts.txt") || die $!;
foreach $cnts(@cnts) {
($page,$cnt,$blk) = split(/\|/, $cnts);
if ($page eq $ENV{'DOCUMENT_URI'}) {
$cnt++;
$showcnt = $cnt;
print NEWFILE "$page|$cnt| \n";
$found = 1;
}
else {
print NEWFILE "$cnts";
}
}
### First Time Counting the New Page
if ($found == 0) {
if ($ENV{'DOCUMENT_URI'} ne "") {
print NEWFILE "$ENV{'DOCUMENT_URI'}|1| \n";
$showcnt = 1;
}
}
&determine_date;
print "";
print "";
&display_date;
print "<\/STRONG><\/font>";
### Print the Count on the Page
print "";
print "($showcnt)";
print "<\/font>";
($sunrise, $sunset) = sunrise( $year, $mon, $mday, 0.1250, 51.3440, 0, 0 );
print "";
print " ", $sunrise;
print " ", $sunset;
print "<\/STRONG><\/font>";
($MoonPhase,$MoonIllum,$MoonAge,$MoonDist,$MoonAng,$SunDist,$SunAng) = &phase(time);
print "";
print " ";
printf("%02d\n", ($MoonPhase*100));
print "% ";
# print " Dist: ", $MoonDist;
print "<\/STRONG><\/font>";
print "<\/td><\/tr><\/table>";
|
home - space - research - links - contact me - colophon
Richard Osborne - 1995-2006 |
| |