For those who want to run the programs in an
emulator:
BLACKBODY RADIATION SLIDERULE I
Code:
001: 23 : LBL
002: 11 : A
003: 35 07 : g x<>y
004: 41 : ENTER
005: 41 : ENTER
006: 35 09 : g R^
007: 71 : x
008: 01 : 1
009: 04 : 4
010: 03 : 3
011: 08 : 8
012: 08 : 8
013: 35 07 : g x<>y
014: 81 : /
015: 32 : f-1
016: 07 : LN
017: 01 : 1
018: 51 : -
019: 71 : x
020: 71 : x
021: 71 : x
022: 71 : x
023: 71 : x
024: 03 : 3
025: 07 : 7
026: 04 : 4
027: 01 : 1
028: 05 : 5
029: 35 07 : g x<>y
030: 81 : /
031: 21 : DSP
032: 04 : 4
033: 24 : RTN
034: 23 : LBL
035: 12 : B
036: 41 : ENTER
037: 71 : x
038: 41 : ENTER
039: 71 : x
040: 01 : 1
041: 07 : 7
042: 06 : 6
043: 03 : 3
044: 07 : 7
045: 43 : EEX
046: 07 : 7
047: 81 : /
048: 21 : DSP
049: 04 : 4
050: 24 : RTN
051: 23 : LBL
052: 13 : C
053: 71 : x
054: 71 : x
055: 31 : f
056: 09 : SQRT
057: 01 : 1
058: 03 : 3
059: 04 : 4
060: 05 : 5
061: 06 : 6
062: 09 : 9
063: 43 : EEX
064: 06 : 6
065: 81 : /
066: 21 : DSP
067: 04 : 4
068: 24 : RTN
069: 23 : LBL
070: 14 : D
071: 02 : 2
072: 07 : 7
073: 03 : 3
074: 83 : .
075: 01 : 1
076: 05 : 5
077: 61 : +
078: 21 : DSP
079: 83 : .
080: 03 : 3
081: 24 : RTN
082: 23 : LBL
083: 15 : E
084: 03 : 3
085: 02 : 2
086: 51 : -
087: 05 : 5
088: 71 : x
089: 09 : 9
090: 81 : /
091: 14 : D
092: 24 : RTN
BLACKBODY RADIATION SLIDERULE II
Code:
001: 00 : 0
002: 33 03 : STO 3
003: 33 08 : STO 8
004: 61 : +
005: 33 02 : STO 2
006: 71 : x
007: 01 : 1
008: 04 : 4
009: 03 : 3
010: 08 : 8
011: 08 : 8
012: 35 07 : g x<>y
013: 81 : /
014: 33 01 : STO 1
015: 83 : .
016: 08 : 8
017: 35 22 : g x<=y
018: 22 : GTO
019: 01 : 1
020: 34 01 : RCL 1
021: 41 : ENTER
022: 71 : x
023: 01 : 1
024: 00 : 0
025: 05 : 5
026: 81 : /
027: 51 : -
028: 71 : x
029: 06 : 6
030: 51 : -
031: 71 : x
032: 01 : 1
033: 06 : 6
034: 61 : +
035: 71 : x
036: 71 : x
037: 71 : x
038: 04 : 4
039: 08 : 8
040: 81 : /
041: 22 : GTO
042: 02 : 2
043: 23 : LBL
044: 01 : 1
045: 35 : g
046: 83 : DSZ
047: 34 08 : RCL 8
048: 34 01 : RCL 1
049: 71 : x
050: 41 : ENTER
051: 41 : ENTER
052: 41 : ENTER
053: 03 : 3
054: 51 : -
055: 71 : x
056: 06 : 6
057: 61 : +
058: 71 : x
059: 06 : 6
060: 51 : -
061: 35 09 : g R^
062: 32 : f-1
063: 07 : LN
064: 71 : x
065: 34 08 : RCL 8
066: 41 : ENTER
067: 71 : x
068: 41 : ENTER
069: 71 : x
070: 81 : /
071: 33 : STO
072: 61 : +
073: 03 : 3
074: 43 : EEX
075: 06 : 6
076: 71 : x
077: 34 03 : RCL 3
078: 35 24 : g x>y
079: 22 : GTO
080: 01 : 1
081: 23 : LBL
082: 02 : 2
083: 42 : CHS
084: 34 02 : RCL 2
085: 41 : ENTER
086: 71 : x
087: 41 : ENTER
088: 71 : x
089: 71 : x
090: 01 : 1
091: 01 : 1
092: 04 : 4
093: 05 : 5
094: 04 : 4
095: 43 : EEX
096: 08 : 8
097: 81 : /
098: 21 : DSP
099: 04 : 4
100: 84 : R/S
BLACKBODY RADIATION SLIDERULE III
Code:
001: 23 : LBL
002: 11 : A
003: 35 07 : g x<>y
004: 41 : ENTER
005: 41 : ENTER
006: 35 09 : g R^
007: 71 : x
008: 01 : 1
009: 04 : 4
010: 03 : 3
011: 08 : 8
012: 08 : 8
013: 35 07 : g x<>y
014: 81 : /
015: 32 : f-1
016: 07 : LN
017: 01 : 1
018: 51 : -
019: 71 : x
020: 71 : x
021: 71 : x
022: 71 : x
023: 01 : 1
024: 08 : 8
025: 08 : 8
026: 03 : 3
027: 06 : 6
028: 05 : 5
029: 43 : EEX
030: 01 : 1
031: 08 : 8
032: 35 07 : g x<>y
033: 81 : /
034: 21 : DSP
035: 04 : 4
036: 24 : RTN
037: 23 : LBL
038: 12 : B
039: 41 : ENTER
040: 41 : ENTER
041: 71 : x
042: 71 : x
043: 01 : 1
044: 05 : 5
045: 02 : 2
046: 00 : 0
047: 04 : 4
048: 43 : EEX
049: 07 : 7
050: 71 : x
051: 21 : DSP
052: 04 : 4
053: 24 : RTN
054: 23 : LBL
055: 13 : C
056: 02 : 2
057: 03 : 3
058: 03 : 3
059: 07 : 7
060: 83 : .
061: 03 : 3
062: 81 : /
063: 21 : DSP
064: 04 : 4
065: 24 : RTN
066: 23 : LBL
067: 14 : D
068: 02 : 2
069: 07 : 7
070: 03 : 3
071: 83 : .
072: 01 : 1
073: 05 : 5
074: 61 : +
075: 21 : DSP
076: 83 : .
077: 03 : 3
078: 24 : RTN
079: 23 : LBL
080: 15 : E
081: 03 : 3
082: 02 : 2
083: 51 : -
084: 05 : 5
085: 71 : x
086: 09 : 9
087: 81 : /
088: 14 : D
089: 24 : RTN
BLACKBODY RADIATION SLIDERULE IV
Code:
001: 00 : 0
002: 33 03 : STO 3
003: 33 08 : STO 8
004: 61 : +
005: 33 02 : STO 2
006: 71 : x
007: 01 : 1
008: 04 : 4
009: 03 : 3
010: 08 : 8
011: 08 : 8
012: 35 07 : g x<>y
013: 81 : /
014: 33 01 : STO 1
015: 83 : .
016: 08 : 8
017: 07 : 7
018: 35 22 : g x<=y
019: 22 : GTO
020: 01 : 1
021: 34 01 : RCL 1
022: 41 : ENTER
023: 41 : ENTER
024: 41 : ENTER
025: 71 : x
026: 09 : 9
027: 00 : 0
028: 81 : /
029: 01 : 1
030: 51 : -
031: 71 : x
032: 08 : 8
033: 61 : +
034: 71 : x
035: 02 : 2
036: 04 : 4
037: 51 : -
038: 71 : x
039: 71 : x
040: 04 : 4
041: 08 : 8
042: 81 : /
043: 22 : GTO
044: 02 : 2
045: 23 : LBL
046: 01 : 1
047: 35 : g
048: 83 : DSZ
049: 34 08 : RCL 8
050: 34 01 : RCL 1
051: 71 : x
052: 41 : ENTER
053: 41 : ENTER
054: 01 : 1
055: 51 : -
056: 41 : ENTER
057: 71 : x
058: 01 : 1
059: 61 : +
060: 35 07 : g x<>y
061: 32 : f-1
062: 07 : LN
063: 71 : x
064: 34 08 : RCL 8
065: 41 : ENTER
066: 41 : ENTER
067: 71 : x
068: 71 : x
069: 81 : /
070: 33 : STO
071: 61 : +
072: 03 : 3
073: 43 : EEX
074: 06 : 6
075: 71 : x
076: 34 03 : RCL 3
077: 35 24 : g x>y
078: 22 : GTO
079: 01 : 1
080: 42 : CHS
081: 23 : LBL
082: 02 : 2
083: 34 02 : RCL 2
084: 41 : ENTER
085: 41 : ENTER
086: 71 : x
087: 71 : x
088: 71 : x
089: 06 : 6
090: 03 : 3
091: 02 : 2
092: 04 : 4
093: 02 : 2
094: 43 : EEX
095: 06 : 6
096: 71 : x
097: 21 : DSP
098: 04 : 4
099: 84 : R/S
SAMPLE PROBLEM 1 SOLUTION
1. Enter program card I
2. Compute \(H_{0-\infty}\)
1500 B
2.8704 01
3. Enter program card III
4. Compute \(Q_{0-\infty}\)
1500 B
5.1314 20
5. Compute \(E_{\lambda m}\)
1500 C
6.4177 -01
SAMPLE PROBLEM 2 SOLUTION
1. Enter program card II
2. Compute first integral
2 ENTER
1000 A
3.7830 -01
STO 4
10 ENTER
1000 A
5.1829 00
RCL 4
-
4.8046 00
3. Compute second integral
25 ENTER
1000 A
-4.4418 -02
STO 4
30 ENTER
1000 A
-2.6698 -02
RCL 4
-
1.7720 -02
SAMPLE PROBLEM 3 SOLUTION
1. Enter program card I
2. Compute \(t_c\) to \(T\)
600 D
873.150
3. Input \(R\)
EEX 7 ENTER
1.000000000 07
4. Input \(\Delta f\), compute \(V_n\), read answer
1.5 C
8.5044 -07
SAMPLE PROBLEM 4 SOLUTION
1. Enter program card IV
5 ENTER
2000 A
8.9964 20
STO 4
30 ENTER
2000 A
-1.3419 19
RCL 4
-
-9.1305 20
STO 4
2. Enter program card III
2000 B
1.2163 21
RCL 4
+
3.0327 20
As always thank you for posting the paper.
Cheers
Thomas
Search
Member List
Calendar
Help
/
(HP-65) A Program For Blackbody Radiation Calculations
