(15C) Solving a system of nonlinear equations 2.0

[Marcel]

Hi!
I upload this program for the HP 41CX and now this same program for the HP 15C!
The program can solve a system of five nonlinear equations with the Newton's Method and Jacobian matrix. This matrix is create by the program!
One iteration on my 41CX take about a minute but only a second on my 15C CE!
I don't have the original 15C so I don't know the time on this machine.

Have fun.

Marcel.

[Thomas Klemm]

Here's the listing of the program that can be used with this HP-15C simulator:

Code:

   001 { 42 21 11 } f LBL A
   002 {       48 } .
   003 {        0 } 0
   004 {        0 } 0
   005 {        0 } 0
   006 {        1 } 1
   007 {    44  0 } STO 0
   008 { 45 23 11 } RCL DIM A
   009 { 42 23 12 } f DIM B
   010 {       34 } X<=>Y
   011 {       36 } ENTER
   012 { 42 23 13 } f DIM C
   013 {        1 } 1
   014 {       26 } EEX
   015 {        3 } 3
   016 {       10 } /
   017 {        1 } 1
   018 {       40 } +
   019 {    44  6 } STO 6
   020 {    44  7 } STO 7
   021 { 42 21  6 } f LBL 6
   022 {    32 .5 } GSB 15
   023 { 43  4  1 } g SF 1
   024 { 43  5  2 } g CF 2
   025 { 43  5  3 } g CF 3
   026 {    32 .7 } GSB 17
   027 { 43  5  1 } g CF 1
   028 { 43  4  2 } g SF 2
   029 { 43  4  3 } g SF 3
   030 {    32 .7 } GSB 17
   031 { 45 16 12 } RCL MATRIX B
   032 {       16 } CHS
   033 { 45 16 13 } RCL MATRIX C
   034 { 42 26 12 } f RESULT B
   035 {       10 } /
   036 { 45 16 12 } RCL MATRIX B
   037 { 45 16 11 } RCL MATRIX A
   038 { 42 26 11 } f RESULT A
   039 {       40 } +
   040 {       31 } R/S
   041 {    22 11 } GTO A
   042 {    43 32 } g RTN
   043 { 42 21 .5 } f LBL 15
   044 {    45  7 } RCL 7
   045 {    44 25 } STO I
   046 { 42 21 .6 } f LBL 16
   047 {    45 25 } RCL I
   048 {    43 44 } g INT
   049 {        1 } 1
   050 { 45 43 11 } RCL g A
   051 {    44 24 } STO (i)
   052 { 42  6 25 } f ISG I
   053 {    22 .6 } GTO 16
   054 {    43 32 } g RTN
   055 { 42 21 .7 } f LBL 17
   056 {    45  6 } RCL 6
   057 {    44 25 } STO I
   058 { 42 21 .8 } f LBL 18
   059 {    32 25 } GSB I
   060 { 43  6  3 } g F? 3
   061 {    32 .9 } GSB 19
   062 {    45 25 } RCL I
   063 {    45  7 } RCL 7
   064 { 43  6  1 } g F? 1
   065 { 44 43 12 } STO g B
   066 { 43  6  2 } g F? 2
   067 { 44 43 13 } STO g C
   068 { 42  6 25 } f ISG I
   069 {    22 .8 } GTO 18
   070 { 43  6  1 } g F? 1
   071 {    43 32 } g RTN
   072 { 42  6  7 } f ISG 7
   073 {    22 .7 } GTO 17
   074 {    43 32 } g RTN
   075 { 42 21 .9 } f LBL 19
   076 {    32 .0 } GSB 10
   077 {    45  0 } RCL 0
   078 { 44 40 24 } STO + (i)
   079 {    32 .0 } GSB 10
   080 {    32 25 } GSB I
   081 {    44  8 } STO 8
   082 {    32 .0 } GSB 10
   083 {    45  0 } RCL 0
   084 {        2 } 2
   085 {       20 } *
   086 { 44 30 24 } STO - (i)
   087 {    32 .0 } GSB 10
   088 {    32 25 } GSB I
   089 { 44 30  8 } STO - 8
   090 {    45  0 } RCL 0
   091 {        2 } 2
   092 {       20 } *
   093 { 44 10  8 } STO / 8
   094 {    32 .0 } GSB 10
   095 {    45  0 } RCL 0
   096 { 44 40 24 } STO + (i)
   097 {    32 .0 } GSB 10
   098 {    45  8 } RCL 8
   099 {    43 32 } g RTN
   100 { 42 21 .0 } f LBL 10
   101 {    45  7 } RCL 7
   102 { 42  4 25 } f x<-> I
   103 {    44  7 } STO 7
   104 {    43 32 } g RTN
   105 { 42 21  1 } f LBL 1
   106 {    45  1 } RCL 1
   107 {        3 } 3
   108 {       20 } *
   109 {    45  2 } RCL 2
   110 {    45  3 } RCL 3
   111 {       20 } *
   112 {       24 } COS
   113 {       30 } -
   114 {       48 } .
   115 {        5 } 5
   116 {       30 } -
   117 {    43 32 } g RTN
   118 { 42 21  2 } f LBL 2
   119 {    45  1 } RCL 1
   120 {    43 11 } g x^2
   121 {    45  2 } RCL 2
   122 {       48 } .
   123 {        1 } 1
   124 {       40 } +
   125 {    43 11 } g x^2
   126 {        8 } 8
   127 {        1 } 1
   128 {       20 } *
   129 {       30 } -
   130 {    45  3 } RCL 3
   131 {       23 } SIN
   132 {       40 } +
   133 {        1 } 1
   134 {       48 } .
   135 {        0 } 0
   136 {        6 } 6
   137 {       40 } +
   138 {    43 32 } g RTN
   139 { 42 21  3 } f LBL 3
   140 {    45  1 } RCL 1
   141 {    45  2 } RCL 2
   142 {       20 } *
   143 {       16 } CHS
   144 {       12 } eX
   145 {    45  3 } RCL 3
   146 {        2 } 2
   147 {        0 } 0
   148 {       20 } *
   149 {       40 } +
   150 {    43 26 } g PI
   151 {        1 } 1
   152 {        0 } 0
   153 {       20 } *
   154 {        3 } 3
   155 {       30 } -
   156 {        3 } 3
   157 {       10 } /
   158 {       40 } +
   159 {    43 32 } g RTN

Related: (15C) Solving a system of nonlinear equations

[Marcel]

Hi Thomas,

Very nice collaboration!

Thank you.

Marcel.