(42s) Lagrange L1, L2 and L3 points

10082021, 11:01 AM
(This post was last modified: 10122021 04:42 PM by Luigi Vampa.)
Post: #1




(42s) Lagrange L1, L2 and L3 points
Solver programs to calculate the Lagrange L1, L2 and L3 orbital points.
Comments included for Free42. 00 { 78Byte Prgm } 01 LBL "L1" @ LAGRANGE L1 POINT. WATCH YOUTUBE OV1z7srUYBM 02 MVAR "μ1" @ FIRST MASS' STANDARD GRAVITATIONAL PARAMETER 03 MVAR "μ2" @ SECOND MASS' STANDARD GRAVITATIONAL PARAMETER 04 MVAR "R21" @ DISTANCE OF SECOND MASS FROM FIRST MASS 05 MVAR "RS2" @ DISTANCE OF SATELLITE FROM SECOND MASS 06 RCL "μ1" 07 RCL "R21" 08 RCL "RS2" @ ADDITION IN CASE OF L2 09 X↑2 10 ÷ 11 RCL "μ2" 12 RCL "RS2" 13 X↑2 14 ÷ 15  @ ADDITION IN CASE OF L2 16 RCL "μ1" 17 RCL "R21" 18 X↑2 19 ÷ 20 1 21 RCL "RS2" 22 RCL÷ "R21" 23  @ ADDITION IN CASE OF L2 24 × 25  26 END 00 { 78Byte Prgm } 01 LBL "L2" @ LAGRANGE L2 POINT. WATCH YOUTUBE OV1z7srUYBM FOR L1 EXPLANATION 02 MVAR "μ1" @ FIRST MASS' STANDARD GRAVITATIONAL PARAMETER 03 MVAR "μ2" @ SECOND MASS' STANDARD GRAVITATIONAL PARAMETER 04 MVAR "R21" @ DISTANCE OF SECOND MASS FROM FIRST MASS 05 MVAR "RS2" @ DISTANCE OF SATELLITE FROM SECOND MASS 06 RCL "μ1" 07 RCL "R21" 08 RCL+ "RS2" @ SUBSTRACTION IN CASE OF L1 09 X↑2 10 ÷ 11 RCL "μ2" 12 RCL "RS2" 13 X↑2 14 ÷ 15 + @ SUBSTRACTION IN CASE OF L1 16 RCL "μ1" 17 RCL "R21" 18 X↑2 19 ÷ 20 1 21 RCL "RS2" 22 RCL÷ "R21" 23 + @ SUBSTRACTION IN CASE OF L1 24 × 25  26 END 00 { 72Byte Prgm } 01 LBL "L3" @ LAGRANGE L3 POINT. WATCH YOUTUBE OV1z7srUYBM FOR L1 EXPLANATION 02 MVAR "μ1" @ FIRST MASS' STANDARD GRAVITATIONAL PARAMETER 03 MVAR "μ2" @ SECOND MASS' STANDARD GRAVITATIONAL PARAMETER 04 MVAR "R21" @ DISTANCE OF SECOND MASS FROM FIRST MASS 05 MVAR "RS1" @ DISTANCE OF SATELLITE FROM FIRST MASS 06 RCL "μ1" 07 RCL "RS1" 08 X↑2 09 ÷ 10 RCL "μ2" 11 RCL "RS1" 12 RCL+ "R21 13 X↑2 14 ÷ 15 + 16 RCL "μ1" 17 RCL "RS1" 18 × 19 RCL "R21" 20 3 21 Y↑X 22 ÷ 23  24 END Saludos Saluti Cordialement Cumprimentos MfG BR + + + + + Luigi Vampa + Free42 '<3' I + + 

« Next Oldest  Next Newest »

User(s) browsing this thread: 1 Guest(s)