Just Basic v1.0

 

Just Basic Computer Programming Language'

 

Program Notes ...............................................

4th November 2015 - Inserted an Extra Gosub Routine [Calculusdate] into Programs Equation

The Specific Role of the Routine is to give the User/Programmer Flexibility of Entering a [Date] for

Calculus Computations proceeding Close Contact with Earth on [15th Feb 2013] .

 

Note if No Value is entered Program defaults to [1st November 2015]

Mathematical Computations gives Logical insight into how [Rate Calculus] is Defined and Implemented

 

Note : Some of the Functions are Color Coded.

[Gosub] [Return] Statements define Program continuity.

Sequencing of Computation Language defines and Clarifies Logical Calculus

 

'Rem Program Calculates [1] Orbit Cycle of 2012 DA14 Comet

'Rem The Programs Calculated the Departure and Return Date in Years - Days and Hours

'Rem The Program verifies the [1] Orbit [km Distance] by Multiplication of Comet Velocity kph.

 

'Rem The Program Then Calculates the Current Status and Distance from Time of Departure from Earth.

 

'Rem Calculus Asteroid 2012 DA14 Return Orbit

Head1$ = "  Shane Partridge - Just Basic Computer Programming Language "

Topic$ =    "  Asteroid 2012 DA14 Return Orbit [Feb, 15th 2046]

Distance$ = "  8 Trillion, 143 Billion, 585 Million and 344 Thousand Kilometres "

Cdate$ =   Date$("mm/dd/yy")   'Rem print Current Date

Secondvel = 7.82                      'Rem 7.82 km per Second

ASP = ((Secondvel*60)*60)         'Rem Calculated Velocity Per Hour [28152] 

                                              "Rem ASP = Int(Variable) - can be used - Hash Tags round Decimal Placings.

a$ = "###.##"                         'Rem Print Using Format for Recurring Decimal Calculations

b$ = "##########.##"          'Rem Accuracy (Print Using [Format]) 10 Hash Tags = Trillion Calculus

                                               'Rem Calculus in Trillions Decimal Accuracy b$ Hash Tags

                                                'Rem Hash Tags can be increased accordingly

cls                                            'Rem Clear Screen

Print Head1$                               'Rem Print Heading  String$ Variables

Print                                         'Rem Print Line Spacing

Print Topic$                               'Rem Print Topic

Print                                         'Rem Print Line Spacing

Print Distance$                           'Rem Print Orbit Distance of Comet

Print                                          'Rem Line Spacing

Print "  2012 DA14 Calculus based on Proceeding on and after Feb 15th 2013"

Print                                         'Rem Line Spacing

Print "  Just Basic Defines Date Format as [mm/dd/yy] "

Print 

Gosub [Calculusdate]  'Rem Enter Date proceeding (Feb 15th 2013) or Default to (Nov 1st 2015) "

Print "  Calculus Based on Date = [";Calculusdate$;"] "

Print

Gosub [Orbitdays]              'Rem Go to Subroutine Calculate Orbit Days.

'Rem Initiate Subroutine for Calculus

Print "  Asteroid Return Orbit in [February 15th,  20146]

Print "  Travelling at a Constant Speed of [";ASP;"] kph "Print

Print "  Time taken for 2012 DA14 Return Journey [";:Print using(a$,Travelyrs);"] Years"

Print "  Number of Days for 2012 DA14 to Complete [1] Orbit Cycle = [";TT;"]"

Print "  Calculate Distance of Orbit in kms by [Total Hours Multiply by km/Hour Speed] = Distance "

Print "  Number of Years for 2012 DA14 to complete [1] Orbit = [";:Print using(a$,Travelyrs);"] "

Print "  Travelling at [";ASP;" km/Hour]"

'Rem Initiate Subroutine for Kilometres Travelled.

Gosub [Travelhrs]

Print "  Number of Hours of [1] Orbit Cycle = [";Travelhrs;"] " 'Rem Travel of [1] Orbit Cycle

Print "  Travelling at Velocity of [";ASP;" km/Hour]"

Print "  Orbit Distance = Orbit Hours [";Travelhrs;"] multiply by Comet Velocity = [";ASP;"] km/Hour ]"

Print "  The Above Distance Equation of 2012 DA14 is Calculated at [";:Print using(b$,Travelkms);"]"

Print "  The Distance Calculated in kms of [1] Orbit Cycle = [";:Print using(b$,Travelkms);"] Kilometres "

Gosub [Travelkms]

Print "  Distance in Kilometres Verified by Division = [1] Orbit Cycle "

Print "  Equation = [ HRkm = (((;:Print Using(b$,Travelkms)/ASP)/365)/24) = Distance in Kilometres "

Print "  Distance kms = [";HRkm;" = (((";:Print using(b$,Travelkms)"; / ";ASP;") / ";365;") / ";24;") ] Orbit = km "

Gosub [Alreadytrav]  'Rem Distance already Travelled from Current Date 

Print "  Days already accumulated since Flyby Sighting [February 2nd 2013] = [";Currentdate;"] "

Print "  Current Hours Travelled since Flyby Sighting [February 2nd 2013] = [";Currenthrs;"] "

Print "  Current distance Travelled = Current Hours [";Currenthrs;"] x Comet Velocity/hr = [";ASP;"] "

Print "  Above equation for Current Distance Travelled in Kms = [";:Print using(b$,Currenttrav);"] "

Print "  Equates to 668 Billion, 215 Million and 872 Thousand Kilometres Travelled to Date "

End ' Rem End Program

[Orbitdays]                                'Rem Variable Calculus for Orbit Days of Comet

CD = Date$("02/15/2013")            'Rem Flyby Date of Comet to Earth

RET = Date$(02/15/2046")            'Rem Return Flyby Date of Comet to Earth

TT = RET-CD                               'Rem TT = No. of Days for [1] Orbit Cycle of Comet

Travelyrs = TT/365                       'Rem Calculating Years of [1] Orbit Cycle

Return                                        'Rem Return Control to Program

[Travelhrs]                                   'Rem Calculus Subroutine for [1] Orbit Cycle in Hours

Travelhrs = TT*24                          'Rem Orbit Days Multiply by 24 Hrs = Total Orbit Hours

Travelkms = Travelhrs*ASP             'Rem Kilometres of Orbit Cycle = Total Hours Multiply by Velocity

HRkm = (((Travelkms/ASP)/365/24) 'Rem Verify Orbit Kilometres

Return

[Alreadytrav]                                  ' rem Subroutine Distance Traversed to Date

Currentdate = Date$(Calculusdate$)   'Rem Current Date for Calculus

Contact = Date$('02/15/2013")            'Rem Contact Date of Flyby

Currentdays = Currentdate - Contact  'Rem Current Days Calculated

Currenthrs = Currentdays * 24           'Rem Calculating Current Hours

Currenttrav = ASP * Currenthrs          'Rem Calculating Current Distance Travelled

Return

[Calculusdate]   'Rem Calculus Date Input Subroutine Computations 

Print chr$(7);:Input "  Enter Date Value for Asteroid Calculus of given Scenarios ";Calculusdate$

if Calculusdate$ = "" then Calculusdate$ = "11/01/15"

'Rem if Calculusdate$ = Null String$ [Enter Key is Pressed] Then Default to [Nov 1st 2015]

Return