; HP-29C Electrical Engineering Solutions

HP29C

PROGRAM 122
NAME RESISTIVE CIRCUIT

001  LBL 1
002  x
003  SQRT
004  GTO 0
005  LBL 2
006  x<>y
007  GSB 0
008  x^2
009  x<>y
010  :
011  R/S
012  LBL 3
013  x
014  GTO 0
015  LBL 4
016  x
017  GSB 0
018  1/x
019  R/S
020  LBL 5
021  1/x
022  LBL 6
023  x<>y
024  x^2
025  x
026  R/S
027  LBL 7
028  1/x
029  LBL 8
030  x
031  SQRT
032  R/S
033  LBL 0
034  2
035  x
036  PI
037  x
038  1/x
039  RTN
040  LBL 9
041  x
042  ENT
043  ENT
044  LSTX
045  :
046  LSTX
047  +
048  :
049  R/S
END

PROGRAM 123
NAME IMPEDANCE

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

PROGRAM 124
NAME T ATTENUATOR

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

PROGRAM 125
NAME PI ATTENUATOR

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

PROGRAM 126
NAME WYE DELTA

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

PROGRAM 127
NAME PI NETWORK

001  LBL 1
002  STO 4
003  ROLL
004  STO 3
005  ROLL
006  STO 2
007  ROLL
008  STO 1
009  ENG 4
010  RCL 4
011  RCL 1
012  :
013  GSB 0
014  RCL 2
015  RCL 1
016  :
017  RCL 4
018  x^2
019  1
020  +
021  STO 5
022  *
023  1
024  -
025  SQRT
026  RCL 2
027  :
028  STO 6
029  GSB 0
030  RCL 2
031  RCL 6
032  *
033  RCL 4
034  :
035  1
036  +
037  RCL 4
038  RCL 1
039  *
040  RCL 5
041  :
042  *
043  LBL 0
044  PI
045  2
046  *
047  RCL 3
048  *
049  :
050  R/S
051  RTN
052  R/S
END

PROGRAM 128
NAME ACTIVE FILTER

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

PROGRAM 129
NAME BUTTERWORTH

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

PROGRAM 130
NAME RESISTANCE

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

PROGRAM 131
NAME SMITH CHART

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