; HP-34 Mathematics Applications
HP34

PROGRAM 77
NAME LINEAR EQU.

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

PROGRAM 78
NAME 3.3 MATRIX

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

PROGRAM 79
NAME INTEGRATION

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

PROGRAM 80
NAME DIFF. EQU. 1

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

PROGRAM 81
NAME DIFF. EQU. 2

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

PROGRAM 82
NAME VECTOR OPER.

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

PROGRAM 83
NAME TRIANGLE

001  LBL 1
002  STO 5
003  ROLL
004  STO 3
005  ROLL
006  STO 1
007  RCL 3
008  ->P
009  x^2
010  RCL 5
011  x^2
012  -
013  RCL 1
014  RCL 3
015  *
016  2
017  *
018  :
019  COS-1
020  STO 2
021  GTO 0
022  LBL 2
023  STO 2
024  ROLL
025  STO 1
026  ROLL
027  STO 6
028  SIN
029  RCL 2
030  RCL 6
031  +
032  SIN
033  :
034  RCL 1
035  *
036  STO 3
037  GTO 0
038  LBL 3
039  STO 4
040  ROLL
041  STO 2
042  ROLL
043  STO 1
044  RCL 4
045  RCL 2
046  +
047  SIN
048  RCL 4
049  SIN
050  :
051  RCL 1
052  *
053  STO 3
054  GTO 0
055  LBL 5
056  STO 4
057  ROLL
058  STO 3
059  ROLL
060  STO 1
061  RCL 3
062  RCL 4
063  SIN
064  RCL 1
065  :
066  *
067  SIN-1
068  RCL 4
069  +
070  GSB 9
071  STO 2
072  GSB 0
073  RCL 1
074  RCL 3
075  x<=y
076  GTO 8
077  LBL 7
078  2
079  PSE
080  GTO 7
081  LBL A
082  RCL 6
083  GSB 9
084  STO 6
085  RCL 4
086  +
087  GSB 9
088  STO 2
089  GTO 0
090  LBL 4
091  STO 3
092  ROLL
093  STO 2
094  ROLL
095  STO 1
096  LBL 0
097  RCL 2
098  RCL 1
099  ->R
100  RCL 3
101  x<>Y
102  -
103  ->P
104  STO 5
105  x<>y
106  STO 4
107  RCL 2
108  +
109  GSB 9
110  STO 6
111  SIN
112  *
113  RCL 1
114  *
115  2
116  :
117  STO 0
118  RTN
119  LBL 9
120  COS
121  CHS
122  COS-1
123  RTN
124  LBL 8
125  1
126  PSE
127  GTO 8
END

PROGRAM 84
NAME COORD TRANS.

001  LBL 0
002  STO 1
003  ROLL
004  STO 0
005  R/S
006  STO 4
007  1
008  STO 5
009  R/S
010  LBL A
011  RCL 1
012  -
013  x<>y
014  RCL 0
015  -
016  ->P
017  RCL 5
018  *
019  x<>y
020  RCL 4
021  -
022  x<>y
023  ->R
024  R/S
025  x<>y
026  R/S
027  LBL B
028  x<>y
029  ->P
030  RCL 5
031  :
032  x<>y
033  RCL 4
034  +
035  x<>y
036  ->R
037  RCL 0
038  +
039  r/S
040  x<>y
041  RCL 1
042  +
END

PROGRAM 85
NAME CIRCLE 3 PT

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

PROGRAM 86
NAME COMPLEX OP.

001  LBL 0
002  STO I
003  ROLL
004  GSB I
005  R/S
006  LBL A
007  CF 0
008  DEG
009  RCL 4
010  STO 2
011  ROLL
012  STO 4
013  ROLL
014  RCL 5
015  STO 3
016  ROLL
017  STO 5
018  RTN
019  LBL 2
020  SF 0
021  LBL 1
022  RCL 3
023  RCL 5
024  F? 0
025  CHS
026  +
027  STO 5
028  R/S
029  RCL 2
030  RCL 4
031  F? 0
032  CHS
033  +
034  STO 4
035  CF 0
036  RTN
037  LBL 3
038  GSB 7
039  LBL 9
040  x<>y
041  ROLL
042  +
043  x<>y
044  ROLL UP
045  *
046  LBL 8
047  ->R
048  STO 5
049  R/S
050  x<>y
051  STO 4
052  DEG
053  RTN
054  LBL 4
055  GSB 7
056  x<>y
057  CHS
058  x<>y
059  1/x
060  GTO 9
061  LBL B
062  STO I
063  ROLL
064  GSB I
065  R/S
066  LBL 5
067  RAD
068  RCL 4
069  RCL 5
070  e^x
071  GTO 8
072  LBL 2
073  GSB 1
074  x<>y
075  CHS
076  x<>y
077  1/x
078  GTO 8
079  LBL 3
080  STO 0
081  GSB 1
082  RCL 0
083  y^x
084  x<>y
085  RCL 0
086  *
087  x<>y
088  GTO 8
089  LBL 4
090  STO 0
091  3
092  6
093  0
094  x<>y
095  :
096  STO 1
097  GSB 1
098  RCL 0
099  1/x
100  y^x
101  x<>y
102  RCL 0
103  :
104  x<>y
105  RCL 0
106  STO I
107  ROLL
108  LBL 6
109  GSB 8
110  R/S
111  DSE
112  GTO 5
113  RTN
114  LBL 5
115  x<>y
116  ->P
117  x<>y
118  RCL 1
119  +
120  x<>y
121  GTO 6
122  LBL 7
123  RCL 2
124  RCL 3
125  ->P
126  LBL 1
127  RCL 4
128  RCL 5
129  ->P
END

PROGRAM 87
NAME BASE CONVERS

001  LBL 0
002  1
003  0
004  STO 8
005  ROLL
006  STO .0
007  ROLL
008  STO 9
009  R/S
010  LBL B
011  CF 0
012  STO 3
013  RCL 9
014  STO 2
015  RCL .0
016  GTO 2
017  LBL A
018  CF 0
019  STO 3
020  RCL .0
021  STO 2
022  RCL 9
023  LBL 2
024  STO 1
025  GSB 5
026  F? 0
027  GTO 3
028  RCL 2
029  GSB 5
030  F? 0
031  GTO 3
032  RCL 2
033  STO I
034  RCL 1
035  RCL 8
036  x<=y
037  x^2
038  STO 2
039  GSB 3
040  STO 3
041  RCL I
042  STO 2
043  RCL 8
044  x<>y
045  x^2
046  STO 1
047  LBL 3
048  RCL 3
049  RCL 1
050  STO 5
051  RCL 2
052  STO 6
053  0
054  STO 0
055  STO 4
056  EEX
057  1
058  2
059  STO 7
060  RCL 3
061  LBL 9
062  1
063  x>y
064  GTO 8
065  STO + 0
066  CLX
067  RCL 6
068  :
069  STO 3
070  GTO 9
071  LBL 8
072  RCL 6
073  RCL 3
074  *
075  STO 3
076  GSB 7
077  RCL 4
078  RCL 5
079  *
080  +
081  STO 4
082  RCL 3
083  GSB 7
084  RCL 3
085  -
086  ABS
087  STO 3
088  1
089  STO - 0
090  RCL 4
091  RCL 7
092  x<=y
093  GTO 6
094  RCL 3
095  x!=0
096  GTO 8
097  LBL 6
098  RCL 5
099  RCL 0
100  y^x
101  RCL 4
102  *
103  STO 4
104  RTN
105  LBL 7
106  EEX
107  4
108  +
109  EEX
110  4
111  -
112  INT
113  RTN
114  LBL 5
115  RCL 8
116  x=y
117  SF 0
118  x^2
119  x=y
120  SF 0
121  RTN
END
