J E Patterson - jepspectro.com - 20231119
Name | Description | |
---|---|---|
A | Secant solve routine - needs two guesses in x and y | |
D | Recover root after program stop | |
E | Formula to Solve = 0 | |
1 | Iteration loop | |
2 | If two guesses are the same, add 1E-7 to R.1. |
Name | Description | |
---|---|---|
.0 | x0 | |
.1 | x1 | |
.2 | x0-x1 | |
.3 | f(x0) | |
.4 | f(x1) | |
.5 | x2 |
Line | Display | Key Sequence | Line | Display | Key Sequence | Line | Display | Key Sequence | |||
---|---|---|---|---|---|---|---|---|---|---|---|
000 | 022 | 42 36 | f RAN # | 044 | 42,21,14 | f LBL D | |||||
001 | 42,21,11 | f LBL A | 023 | 10 | ÷ | 045 | 45 .1 | RCL . 1 | |||
002 | 44 .0 | STO . 0 | 024 | 30 | − | 046 | 43 32 | g RTN | |||
003 | 34 | x↔y | 025 | 44 .5 | STO . 5 | 047 | 42,21,15 | f LBL E | |||
004 | 43,30, 5 | g TEST x=y | 026 | 45 .1 | RCL . 1 | 048 | 36 | ENTER | |||
005 | 32 2 | GSB 2 | 027 | 44 .0 | STO . 0 | 049 | 36 | ENTER | |||
006 | 44 .1 | STO . 1 | 028 | 45 .4 | RCL . 4 | 050 | 36 | ENTER | |||
007 | 42 36 | f RAN # | 029 | 44 .3 | STO . 3 | 051 | 6 | 6 | |||
008 | 44 .3 | STO . 3 | 030 | 45 .5 | RCL . 5 | 052 | 30 | − | |||
009 | 42,21, 1 | f LBL 1 | 031 | 44 .1 | STO . 1 | 053 | 20 | × | |||
010 | 45 .0 | RCL . 0 | 032 | 45 .4 | RCL . 4 | 054 | 8 | 8 | |||
011 | 45,30, .1 | RCL − . 1 | 033 | 43 34 | g RND | 055 | 40 | + | |||
012 | 44 .2 | STO . 2 | 034 | 43,30, 0 | g TEST x≠0 | 056 | 20 | × | |||
013 | 45 .1 | RCL . 1 | 035 | 22 1 | GTO 1 | 057 | 4 | 4 | |||
014 | 32 15 | GSB E | 036 | 45 .1 | RCL . 1 | 058 | 20 | × | |||
015 | 44 .4 | STO . 4 | 037 | 43 32 | g RTN | 059 | 7 | 7 | |||
016 | 45 .1 | RCL . 1 | 038 | 42,21, 2 | f LBL 2 | 060 | 48 | . | |||
017 | 45 .4 | RCL . 4 | 039 | 26 | EEX | 061 | 5 | 5 | |||
018 | 45,20, .2 | RCL × . 2 | 040 | 16 | CHS | 062 | 30 | − | |||
019 | 45 .3 | RCL . 3 | 041 | 7 | 7 | 063 | 43 32 | g RTN | |||
020 | 45,30, .4 | RCL − . 4 | 042 | 40 | + | ||||||
021 | 43 20 | g x=0 | 043 | 43 32 | g RTN |