+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: HP-65/67/97 Software Library (/forum-12.html)
+--- Thread: (HP-65) A Program For Blackbody Radiation Calculations (/thread-12143.html)
(HP-65) A Program For Blackbody Radiation Calculations - SlideRule - 01-09-2019 02:36 PM
The INTRODUCTION to A Program For Blackbody Radiation Calculations, Electro Optical Industries, fully encapsulates the publication.
INTRODUCTION
This booklet includes 4 programs for the Hewlett Packard Model 65 programmable calculator. These programs transfer the calculation capability of 31 scales of the Electro Optical Industries Inc. blackbody radiation sliderule to the Model 65 but with 5 significant figure accuracy. A copy of the manual for the blackbody sliderule is included since it defines all terns and equations and provides useful examples of the use of the equations.
BEST!
SlideRule
RE: (HP-65) A Program For Blackbody Radiation Calculations - Thomas Klemm - 01-09-2019 08:21 PM
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 : RTNBLACKBODY 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/SBLACKBODY 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 : RTNBLACKBODY 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/SSAMPLE 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
RE: (HP-65) A Program For Blackbody Radiation Calculations - PedroLeiva - 01-09-2019 08:53 PM
(01-09-2019 08:21 PM)Thomas Klemm Wrote: For those who want to run the programs in an emulator:Very nice Thomas, but what about those who like to use HP67 (RPN 67 SD or PANAMATIK emulators)? Could you deliver a keytroking program, instructions and example for those APP?. The first has two advantages: a) not only 224 steps, but 999 and b) it can group numbers from single digits in one step; two clever ways to save program space. If we sum up the steps for the three HP65 programs they are near 290.
I agree with you about the efforts of SlideRule for sharing these developments
Pedro
RE: (HP-65) A Program For Blackbody Radiation Calculations - SlideRule - 01-09-2019 08:59 PM
Thanks for the response; additional references of interest?
a) Instructions for the use of a slide rule for radiation calculations
b) Blackbody radiation sliderule manual of instruction and information
c) A Program For Blackbody Radiation Calculations II (TI-59)
BEST!
SlideRule
RE: (HP-65) A Program For Blackbody Radiation Calculations - Thomas Klemm - 01-09-2019 11:01 PM
These brochures are beautiful!
RE: (HP-65) A Program For Blackbody Radiation Calculations - SlideRule - 01-09-2019 11:58 PM
(01-09-2019 08:53 PM)PedroLeiva Wrote: … what about those who like to use HP67 … Pedro
Try Users' Library Solutions - 31. Physics
PH01 - Black Body Thermal Radiation Calculates the wavelength of maximum emissive power for a given temperature download
BEST!
SlideRule
RE: (HP-65) A Program For Blackbody Radiation Calculations - PedroLeiva - 01-10-2019 02:33 AM
(01-09-2019 11:58 PM)SlideRule Wrote:Excellent, thank you very much. I had not realized that the program was in the collection. Pedro(01-09-2019 08:53 PM)PedroLeiva Wrote: … what about those who like to use HP67 … Pedro
Try Users' Library Solutions - 31. Physics
PH01 - Black Body Thermal Radiation Calculates the wavelength of maximum emissive power for a given temperature download
BEST!
SlideRule