Arctic explorer Jean-Claude Coulerre in anticipation of the sun's reappearance

Description

See "HP-15C Advanced Functions Handbook" page 13 ff. for the description of this example.

Pressing GSB 1 loads the coefficients into the corresponding storage registers:

a4 =  4.2725×10−8
a3 = -1.9931×0−5
a2 = 1.0229×10−3
a1 = 3.7680×10−1
a0 = -8.1806


Program Resources

Labels

Name Description
 A Calculate the date
 1 Load coefficients to storage registers

Storage Registers

Name Description
 0 a0
 1 a1
 2 a2
 3 a3
 4 a4

Program

Line Display Key Sequence Line Display Key Sequence Line Display Key Sequence
000 023 26 EEX 046 16 CHS
001 42.21.11 f LBL A 024 8 8 047 44 2 STO 2
002 45 4 RCL 4 025 16 CHS 048 3 3
003 20 × 026 44 4 STO 4 049 48 .
004 45 3 RCL 3 027 1 1 050 7 7
005 40 + 028 48 . 051 6 6
006 20 × 029 9 9 052 8 8
007 45 2 RCL 2 030 9 9 053 0 0
008 40 + 031 3 3 054 26 EEX
009 20 × 032 1 1 055 1 1
010 45 1 RCL 1 033 16 CHS 056 16 CHS
011 40 + 034 26 EEX 057 44 1 STO 1
012 20 × 035 5 5 058 2 2
013 45 0 RCL 0 036 16 CHS 059 48 .
014 40 + 037 44 3 STO 3 060 8 8
015 43 32 g RTN 038 1 1 061 8 8
016 42.21. 1 f LBL 1 039 48 . 062 0 0
017 4 4 040 0 0 063 6 6
018 48 . 041 2 2 064 16 CHS
019 2 2 042 2 2 065 44 0 STO 0
020 7 7 043 9 9 066 43 32 g RTN
021 2 2 044 26 EEX
022 5 5 045 3 3