; HP-29 Mathematics Solutions

HP29C

PROGRAM 110
NAME CUBIC EQUATION

001  LBL 1
002  RCL 3
003  RCL 3
004  ABS
005  :
006  STO 6
007  LSTX
008  RCL 1
009  ABS
010  +
011  RCL 0
012  LBL 0
013  1
014  0
015  *
016  x<=y
017  GTO 0
018  STO 7
019  LBL 9
020  1
021  0
022  STO : 7
023  RCL 6
024  CHS
025  STO 6
026  LBL 8
027  RCL 7
028  RCL 6
029  *
030  RCL 4
031  +
032  STO 5
033  RCL 4
034  x=y
035  GTO 7
036  RCL 5
037  RCL 1
038  +
039  RCL 5
040  *
041  RCL 2
042  +
043  RCL 5
044  *
045  RCL 3
046  +
047  STO 8
048  ABS
049  RCL 0
050  x>y
051  GTO 7
052  RCL 5
053  STO 4
054  RCL 8
055  RCL 6
056  *
057  x<0
058  GTO 8
059  GTO 9
060  LBL 7
061  RCL 5
062  R/S
063  RCL 1
064  +
065  CHS
066  STO 1
067  2
068  :
069  ENTER
070  x^2
071  RCL 1
072  CHS
073  RCL 5
074  *
075  RCL 2
076  +
077  STO 3
078  -
079  R/S
080  SQRT
081  x<>y
082  ABS
083  +
084  RCL 1
085  ENTER
086  ABS
087  :
088  *
089  R/S
090  RCL 3
091  x<>y
092  :
093  RTN
094  LBL 2
095  CHS
096  SQRT
097  R/S
END

PROGRAM 111
NAME SYNTH.DIVISION

001  LBL 1
002  STO 5
003  ROLL
004  STO 6
005  ROLL
006  STO 7
007  ROLL
008  STO 8
009  R/S
010  STO 1
011  ROLL
012  STO 2
013  ROLL
014  STO 3
015  ROLL
016  STO 4
017  R/S
018  LBL 2
019  STO 9
020  7
021  STO 0
022  RCL 8
023  R/S
024  LBL 0
025  RCL 9
026  *
027  RCL i
028  +
029  R/S
030  DSZ
031  GTO 8
032  R/S
END

PROGRAM 112
NAME HYPERBOLIC

001  LBL 1
002  e^x
003  ENTER
004  1/x
005  -
006  2
007  :
008  RTN
009  LBL 2
010  e^x
011  ENTER
012  1/x
013  +
014  2
015  :
016  RTN
017  LBL 3
018  e^x
019  STO 1
020  ENTER
021  1/x
022  -
023  RCL 1
024  LSTX
025  +
026  :
027  RTN
028  LBL 4
029  1/x
030  RTN
031  LBL 5
032  ENTER
033  x^2
034  1
035  +
036  SQRT
037  +
038  LN
039  RTN
040  LBL 6
041  ENTER
042  x^2
043  1
044  -
045  SQRT
046  +
047  LN
048  RTN
049  LBL 7
050  ENTER
051  1
052  x<>y
053  +
054  1
055  LSTX
056  -
057  :
058  LN
059  2
060  :
061  RTN
062  R/S
END

PROGRAM 113
NAME POLYNOMIAL

001  LBL 1
002  ISZ
003  STO i
004  R/S
005  GTO 1
006  LBL 2
007  ENTER
008  ENTER
009  ENTER
010  RCL i
011  *
012  DSZ
013  LBL 0
014  RCL i
015  +
016  *
017  DSZ
018  GTO 0
019  x<>y
020  :
021  R/S
022  LBL 3
023  ->P
024  STO 1
025  x<>y
026  STO 2
027  0
028  ENTER
029  ENTER
030  ENTER
031  RTN
032  LBL 4
033  GSB 9
034  GTO 8
035  LBL 5
036  GSB 9
037  R/S
038  x<>y
039  R/S
040  LBL 8
041  ->P
042  RCL 1
043  *
044  x<>y
045  RCL 2
046  +
047  x<>y
048  ->R
049  RTN
050  LBL 9
051  x<>y
052  ROLL
053  +
054  ROLL
055  +
056  x<>y
057  ROLL
058  x<>y
059  RTN
060  R/S
END

PROGRAM 114
NAME ROOTS F(X)

001  LBL 1
002  RCL 1
003  GSB 0
004  STO 3
005  x=0
006  GSB 9
007  RCL 1
008  RCL 6
009  +
010  STO 2
011  STO 8
012  GSB 0
013  RCL 3
014  *
015  x<0
016  GTO 8
017  RCL 2
018  STO 1
019  RCL 6
020  +
021  STO 2
022  RCL 7
023  x<>y
024  x>y
025  R/S
026  GTO 1
027  LBL 6
028  RCL 4
029  STO 2
030  GTO 8
031  LBL 7
032  RCL 4
033  R/S
034  RCL 8
035  STO 1
036  GTO 1
037  LBL 9
038  RCL 1
039  R/S
040  RTN
041  LBL 8
042  RCL 1
043  RCL 2
044  +
045  2
046  :
047  STO 4
048  GSB 0
049  ABS
050  RCL 5
051  x>y
052  GTO 7
053  RCL 1
054  GSB 0
055  STO 3
056  RCL 4
057  GSB 0
058  RCL 3
059  *
060  x<0
061  GTO 6
062  RCL 4
063  STO 1
064  GTO 8
065  LBL 0
END

PROGRAM 115
NAME 3.3 MATRIX

001  LBL 0
002  *
003  *
004  RTN
005  LBL 1
006  RCL 1
007  RCL 5
008  RCL 9
009  GSB 0
010  RCL 2
011  RCL 6
012  RCL 7
013  GSB 0
014  +
015  RCL 3
016  RCL 4
017  RCL 8
018  GSB 0
019  +
020  RCL 3
021  RCL 5
022  RCL 7
023  GSB 0
024  -
025  RCL 2
026  RCL 4
027  RCL 9
028  GSB 0
029  -
030  RCL 1
031  RCL 6
032  RCL 8
033  GSB 0
034  -
035  R/S
036  STO .0
037  RCL 8
038  RCL 6
039  RCL 9
040  RCL 5
041  GSB 9
042  RCL 9
043  RCL 2
044  RCL 8
045  RCL 3
046  GSB 9
047  RCL 5
048  RCL 3
049  RCL 6
050  RCL 2
051  GSB 9
052  RCL 9
053  RCL 4
054  RCL 7
055  RCL 6
056  GSB 9
057  RCL 7
058  RCL 3
059  RCL 9
060  RCL 1
061  GSB 9
062  RCL 6
063  RCL 1
064  RCL 3
065  RCL 4
066  GSB 9
067  RCL 7
068  RCL 5
069  RCL 8
070  RCL 4
071  GSB 9
072  RCL 8
073  RCL 1
074  RCL 7
075  RCL 2
076  GSB 9
077  RCL 4
078  RCL 2
079  RCL 5
080  RCL 1
081  LBL 9
082  *
083  ROLL
084  *
085  x<>y
086  ROLL
087  -
088  RCL .0
089  :
090  R/S
091  RTN
END

PROGRAM 116
NAME BASE ARITHMETIC

001  LBL 9
002  CHS
003  GSB 0
004  x<>y
005  CHS
006  GSB 0
007  RTN
008  LBL 1
009  GSB 9
010  +
011  GSB 0
012  CHS
013  R/S
014  LBL 2
015  GSB 9
016  x<>y
017  -
018  x<0
019  GTO 6
020  GSB 0
021  CHS
022  R/S
023  LBL 6
024  CHS
025  GSB 0
026  R/S
027  LBL 3
028  GSB 9
029  *
030  GSB 0
031  CHS
032  R/S
033  LBL 4
034  GSB 9
035  x<>y
036  :
037  GSB 0
038  CHS
039  R/S
040  LBL 0
041  INT
042  RCL 7
043  CLRG
044  STO 5
045  STO 7
046  ROLL
047  STO 4
048  ROLL
049  STO 0
050  RCL 7
051  LOG
052  INT
053  1
054  STO 3
055  +
056  10^x
057  STO 1
058  RCL 4
059  x<0?
060  GTO 8
061  ROLL
062  STO 5
063  RCL 7
064  STO 1
065  LBL 8
066  RCL 4
067  LBL 7
068  RCL 1
069  :
070  STO 6
071  FRC
072  RCL 1
073  x
074  RCL 3
075  x
076  EEX
077  3
078  +
079  LSTX
080  -
081  STO + 2
082  RCL 5
083  STO x 3
084  RCL 6
085  INT
086  x!=0?
087  GTO 7
088  RCL 0
089  RCL 2
090  CHS
091  RTN
END

PROGRAM 117
NAME GAUSSIAN A-B

001  LBL 1
002  STO 8
003  STO 7
004  ROLL
005  STO + 7
006  STO - 8
007  0
008  STO 9
009  1
010  CHS
011  STO 0
012  LBL 0
013  GSB 9
014  RCL 1
015  RCL 2
016  STO 1
017  x<>y
018  STO 2
019  RCL 4
020  RCL 5
021  STO 4
022  x<>y
023  STO 5
024  GSB 9
025  RCL 1
026  RCL 3
027  STO 1
028  x<>y
029  STO 3
030  RCL 4
031  RCL 6
032  STO 4
033  x<>y
034  STO 6
035  GSB 9
036  RCL 0
037  x>0?
038  GTO 8
039  LBL 6
040  STO x 1
041  STO * 2
042  STO * 3
043  STO x 0
044  GTO 0
045  LBL 8
046  RCL 9
047  RCL 8
048  x
049  2
050  :
051  R/S
052  LBL 9
053  RCL 1
054  RCL 8
055  x
056  RCL 7
057  +
058  2
059  :
060  GSB 2
061  RCL 4
062  x
063  STO + 9
064  RTN
065  LBL 2
066  R/S
END

PROGRAM 118
NAME GAUSSIAN A-INF

001  LBL 8
002  RCL 8
003  2
004  :
005  R/S
006  LBL 1
007  ENT
008  1
009  CHS
010  STO 0
011  +
012  STO 7
013  0
014  STO 8
015  LBL 0
016  GSB 9
017  RCL 1
018  RCL 2
019  STO 1
020  x<>y
021  STO 2
022  RCL 4
023  RCL 5
024  STO 4
025  x<>y
026  STO 5
027  GSB 9
028  RCL 1
029  RCL 3
030  STO 1
031  x<>y
032  STO 3
033  RCL 4
034  RCL 6
035  STO 4
036  x<>y
037  STO 6
038  GSB 9
039  RCL 0
040  x>0?
041  GTO 8
042  LBL 6
043  STO * 0
044  STO * 1
045  STO * 2
046  STO * 3
047  GTO 0
048  LBL 9
049  2
050  RCL 1
051  1
052  +
053  :
054  STO 9
055  RCL 7
056  +
057  GSB 2
058  RCL 9
059  x^2
060  *
061  RCL 4
062  *
063  STO + 8
064  RTN
065  LBL 2
END

PROGRAM 119
NAME BESSEL J

001  LBL 1
002  STO 1
003  ROLL
004  STO 5
005  EEX
006  CHS
007  9
008  9
009  STO 6
010  0
011  STO 3
012  STO 4
013  RCL 1
014  6
015  1/x
016  y^x
017  ENT
018  ENT
019  9
020  x
021  x
022  LSTX
023  SQRT
024  +
025  1
026  +
027  RCL 1
028  RCL 5
029  x>y?
030  x<>y
031  ROLL
032  +
033  INT
034  LBL 9
035  STO 8
036  RCL 5
037  x=y?
038  GSB 0
039  RCL 8
040  x=0?
041  GTO 7
042  2
043  :
044  FRC
045  x=0?
046  GSB 8
047  RCL 3
048  RCL 8
049  2
050  RCL 1
051  :
052  x
053  RCL 6
054  STO 3
055  x
056  x<>y
057  -
058  STO 6
059  RCL 8
060  1
061  -
062  GTO 9
063  LBL 7
064  RCL 7
065  RCL 4
066  2
067  x
068  RCL 6
069  +
070  :
071  R/S
072  LBL 0
073  RCL 6
074  STO 7
075  RTN
076  LBL 8
077  RCL 6
078  STO + 4
079  RTN
END

PROGRAM 120
NAME GAMMA

001  LBL 1
002  STO 0
003  9
004  +
005  ENT
006  1/x
007  x^2
008  ent
009  x^2
010  3
011  .
012  5
013  :
014  -
015  3
016  0
017  :
018  1
019  -
020  x<>y
021  1
022  2
023  x
024  :
025  +
026  x<>y
027  ENT
028  LN
029  x
030  -
031  x<>y
032  Pi
033  :
034  2
035  :
036  SQRT
037  LN
038  +
039  CHS
040  e^x
041  STO 1
042  CLX
043  9
044  -
045  LBL 0
046  STO / 1
047  1
048  +
049  x!=y?
050  GTO 0
051  RCL 1
052  R/S
END

PROGRAM 121
NAME SIN COS EXP

001  LBL 1
002  STO 3
003  x^2
004  CHS
005  STO 1
006  1
007  STO 2
008  RCL 3
009  LBL 0
010  RCL 1
011  RCL 2
012  1
013  +
014  :
015  LSTX
016  1
017  +
018  STO 2
019  :
020  RCL 3
021  x
022  STO 3
023  RCL 2
024  :
025  +
026  x!=y?
027  GTO 0
028  R/S
029  LBL 2
030  x^2
031  CHS
032  STO 1
033  1
034  STO 3
035  0
036  STO 2
037  LSTX
038  LN
039  RCL .0
040  +
041  STO 0
042  LBL 3
043  STO 1
044  1
045  STO 3
046  0
047  STO 2
048  RCL 1
049  LN
050  RCL .0
051  +
052  LBL 9
053  RCL 1
054  RCL 2
055  1
056  +
057  STO 2
058  :
059  RCL 3
060  x
061  STO 3
062  RCL 2
063  :
064  +
065  x!=y?
066  GTO 9
067  R/S
END
