; HP-29C Civil Engineering Solutions
HP29C

PROGRAM 122
NAME CIRCULAR SECTIONS

001  LBL 1
002  PI
003  :
004  SQRT
005  2
006  x
007  GTO 9
008  LBL 2
009  2
010  :
011  GTO 1
012  LBL 3
013  PI
014  :
015  GTO 9
016  LBL 4
017  x^2
018  4
019  :
020  LBL 9
021  STO 1
022  STO 2
023  STO * 1
024  4
025  STO : 1
026  x
027  SQRT
028  RCL 2
029  PI
030  STO * 1
031  x
032  RCL 1
033  2
034  x
035  RCL 1
036  R/S
END

PROGRAM 123
NAME RECT SECTIONS

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

PROGRAM 124
NAME ANNULAR SECTIONS

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

PROGRAM 125
NAME PRESSURE VESSELS

001  LBL 1
002  STO 4
003  ROLL
004  STO 3
005  ROLL
006  STO 2
007  ROLL
008  4
009  :
010  STO 1
011  x=0?
012  GTO 9
013  ROLL
014  x=0?
015  GTO 8
016  ROLL
017  x=0?
018  GTO 7
019  RCL 1
020  RCL 3
021  x
022  RCL 4
023  GTO 0
024  LBL 9
025  RCL 4
026  RCL 2
027  x
028  4
029  x
030  RCL 3
031  GTO 0
032  LBL 8
033  RCL 1
034  RCL 3
035  x
036  RCL 2
037  GTO 0
038  LBL 7
039  RCL 4
040  RCL 2
041  x
042  RCL 1
043  LBL 0
044  :
045  R/S
END
     
; unvollstndig