R-DAS FLIGHT #1 DETAILS
Flight #: 1
Date: 4th of November, 1999
R-DAS firmware: 2.3
R-DAS Recorded Altitude: 1050 feet (G-Wiz LC Deluxe recorded altitude: 1116 feet - 66 feet difference / 5.91% difference)
Apogee - Charge Firing Delta-t: 0.8 seconds
Apogee - Charge Firing Delta-h: 0 feet (0 metres)
Descent Rate at Apogee Deployment: 0 feet per second (0 metres per second)
Total Time of Flight: 46 seconds
Apogee - Charge Firing h Variance: 0%
R-DAS Flight Mode: Recording only (charges fitted to evaluate RDAS performance)
Launch Vehicle Diameter: 6 inches
Launch Vehicle Length: 14 feet
Launch Vehicle Propulsion: Aerotech 2 x I-211W, 2 x I-161W, 2 x H-123W, 1 x J-570W
Fins: 3 clipped deltas (Aerofoiled)
Launch System: Rail Launch
Finish: Gloss smooth
Ejection Method: Black Sky Research Timer-2B (8 second delay)
|
 |  | | Comments The decision was made to use some new igniters rather than Copperhead igniters or Daveyfire igniters dipped in Firestar, as is normally the case in MARS. This was an error of judgement on our part. The motors did not all ignite simultaneously, hence the gradual thrust increase shown by the acceleration in the graph. The main motor, the J-570 then lit, enabling the vehicle to accelerate considerably faster. Another motor then airlit a second or so later into the ascent, causing the vehicle to deviate from the planned trajectory. The result was that the rocket was too low, and descending ballistically when the recovery system deployed. This resulted in the recovery tube section of the rocket zippering. |   The Deimos-2 STV rocket
before launch and after landing. |
 | | 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 " ![](\"../images/sunrise.gif\") ", $sunrise;
print " ![](\"../images/sunset.gif\") ", $sunset;
print "<\/STRONG><\/font>";
($MoonPhase,$MoonIllum,$MoonAge,$MoonDist,$MoonAng,$SunDist,$SunAng) = &phase(time);
print "";
print " ![](\"../images/moon.gif\") ";
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 |
| |
