HP Forums / HP Software Libraries / HP-65/67/97 Software Library v / (HP-65) A Program For Blackbody Radiation Calculations

Post Reply 
(HP-65) A Program For Blackbody Radiation Calculations
01-09-2019, 02:36 PM
Post: #1
SlideRule Offline
Senior Member
 		Posts: 1,533
Joined: Dec 2013
(HP-65) A Program For Blackbody Radiation Calculations
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
Find all posts by this user
Quote this message in a reply
01-09-2019, 08:21 PM
Post: #2
Thomas Klemm Offline
Senior Member
 		Posts: 2,303
Joined: Dec 2013
RE: (HP-65) A Program For Blackbody Radiation Calculations
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
Find all posts by this user
Quote this message in a reply
01-09-2019, 08:53 PM
Post: #3
PedroLeiva Offline
Member
 		Posts: 230
Joined: Jun 2014
RE: (HP-65) A Program For Blackbody Radiation Calculations
(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
Find all posts by this user
Quote this message in a reply
01-09-2019, 08:59 PM
Post: #4
SlideRule Offline
Senior Member
 		Posts: 1,533
Joined: Dec 2013
RE: (HP-65) A Program For Blackbody Radiation Calculations
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
Find all posts by this user
Quote this message in a reply
01-09-2019, 11:01 PM
Post: #5
Thomas Klemm Offline
Senior Member
 		Posts: 2,303
Joined: Dec 2013
RE: (HP-65) A Program For Blackbody Radiation Calculations
These brochures are beautiful!
Find all posts by this user
Quote this message in a reply
01-09-2019, 11:58 PM
Post: #6
SlideRule Offline
Senior Member
 		Posts: 1,533
Joined: Dec 2013
RE: (HP-65) A Program For Blackbody Radiation Calculations
(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
Find all posts by this user
Quote this message in a reply
01-10-2019, 02:33 AM
Post: #7
PedroLeiva Offline
Member
 		Posts: 230
Joined: Jun 2014
RE: (HP-65) A Program For Blackbody Radiation Calculations
(01-09-2019 11:58 PM)SlideRule Wrote:  
(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
Excellent, thank you very much. I had not realized that the program was in the collection. Pedro
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 2 Guest(s)

Contact Us | The Museum of HP Calculators | Return to Top | Return to Content | Lite (Archive) Mode | RSS Syndication