J E Patterson - jepspectro.com - 20231119
Name | Description | |
---|---|---|
A | Bisection solve routine - needs two guesses in x and y | |
D | Recover root after program stop | |
E | Formula to Solve = 0 | |
1 | Bisection loop updates x2 and either x0 to x1 or x1 to x0 | |
2 | Store x0 to x1 and x2 to x2 | |
3 | Store x1 to x0 and x2 to x1 |
Name | Description | |
---|---|---|
.0 | x0 | |
.1 | x1 | |
.2 | x2 = (x0+x1)/2 | |
.3 | f(x0) | |
.4 | f(x2) |
Number | Description | |
---|---|---|
1 | If flag 1 is set x0 = x2 else x1 = x2 |
Line | Display | Key Sequence | Line | Display | Key Sequence | Line | Display | Key Sequence | |||
---|---|---|---|---|---|---|---|---|---|---|---|
000 | 019 | 32 3 | GSB 3 | 038 | 45 .1 | RCL . 1 | |||||
001 | 42,21,11 | f LBL A | 020 | 43, 6, 1 | g F? 1 | 039 | 43 32 | g RTN | |||
002 | 44 .0 | STO . 0 | 021 | 32 2 | GSB 2 | 040 | 42,21,15 | f LBL E | |||
003 | 33 | R⬇ | 022 | 45 .4 | RCL . 4 | 041 | 36 | ENTER | |||
004 | 44 .1 | STO . 1 | 023 | 43 34 | g RND | 042 | 36 | ENTER | |||
005 | 42,21, 1 | f LBL 1 | 024 | 43,30, 0 | g TEST x≠0 | 043 | 36 | ENTER | |||
006 | 43, 4, 1 | g SF 1 | 025 | 22 1 | GTO 1 | 044 | 6 | 6 | |||
007 | 45 .0 | RCL . 0 | 026 | 45 .2 | RCL . 2 | 045 | 30 | − | |||
008 | 32 15 | GSB E | 027 | 43 32 | g RTN | 046 | 20 | × | |||
009 | 44 .3 | STO . 3 | 028 | 42,21, 2 | f LBL 2 | 047 | 8 | 8 | |||
010 | 45 .1 | RCL . 1 | 029 | 45 .2 | RCL . 2 | 048 | 40 | + | |||
011 | 45,40, .0 | RCL + . 0 | 030 | 44 .0 | STO . 0 | 049 | 20 | × | |||
012 | 2 | 2 | 031 | 43 32 | g RTN | 050 | 4 | 4 | |||
013 | 10 | ÷ | 032 | 42,21, 3 | f LBL 3 | 051 | 20 | × | |||
014 | 44 .2 | STO . 2 | 033 | 45 .2 | RCL . 2 | 052 | 7 | 7 | |||
015 | 32 15 | GSB E | 034 | 44 .1 | STO . 1 | 053 | 48 | . | |||
016 | 44 .4 | STO . 4 | 035 | 43, 5, 1 | g CF 1 | 054 | 5 | 5 | |||
017 | 45,20, .3 | RCL × . 3 | 036 | 43 32 | g RTN | 055 | 30 | − | |||
018 | 43,30, 2 | g TEST x<0 | 037 | 42,21,14 | f LBL D | 056 | 43 32 | g RTN |