Astro::SpaceElevator - Model a Space Elevator

Version 0.05

    use Astro::SpaceElevator;

    my $elevator = Astro::SpaceElevator->new(0, 120, 100_000, time());
    print "The elevator leaves the Earth's shadow at " . ($elevator->shadows->{Earth}{penumbra})[1] . "km above the base.\n";

Creates a new elevator object. Takes four arguments: the latitude, longitude and height (in km) of the elevator, and a time in seconds since the epoch, in the GMT timezone.

Gets the time associated with the model. If you supply an argument, it uses that as a new time to update all of the time-dependant aspects of the model.

Returns a data structure giving the regions of the elevator that are in shadow, and which shadows are causing each region:

    {'Earth' => {'penumbra' => [0, '2466.25270202392'],
                 'umbra' => [0, '2309.7106914426']
                },
     'Moon' => {'penumbra' => [0, '66327.0611755147'],
                'umbra' => ['12691.4616515026', '18869.3918401299']
               }
     'time' => bless([ … ], 'Class::Date'),
    };

Daniel Brooks, <db48x at yahoo.com>

Please report any bugs or feature requests to bug-astro-spaceelevator at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Astro-SpaceElevator. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

Copyright © 2007 by Daniel Brooks. All rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html