OSTI Preprint With 41C Code
09-17-2015, 02:04 PM (This post was last modified: 09-18-2015 12:54 PM by Howard Owen.)
Post: #4
 Howard Owen Member Posts: 86 Joined: Dec 2013
RE: OSTI Preprint With 41C Code
Here's a transcription from the PDF. I made what I think are reasonable interpretations of the dodgy characters in the listing. Sample inputs and program, outputs appear after the listing. I have no idea if the sample inputs are reasonable for the application. The comments in the PDF make clear that the program is correcting measurement results for thermal expansion of various metals. That, combined with the idea that the environment involves nuclear power led me to use high values for the temperature. Since the temperature range goes over the melting point of aluminum, you can assume that this run was for iron or steel tape.

Code:
   01◆LBL "TAPE"  02 FIX 3  03 "BASE DEG C ?"  04 PROMPT  05 STO 00  06◆LBL 01  07 "TAPE FEET?"  08 PROMPT  09 12.00  10 *  11 STO 01  12 "TAPE INCHES?"  13 PROMPT  14 ST+ 01  15 "DIAL INCHES?"  16 PROMPT  17 STO 02  18 "TEMP DEG C ?"  19 PROMPT  20 RCL 00  21 -  22 STO 03  23 STO 04  24 STO 05  25 17.3 E-6  26 ST* 05  27 23.5 E-6  28 ST* 04  29 11.6 E-6  30 ST* 03  31 8.50  59 12.00  60 /  61 FRC  62 12.00  63 *  64 "INCHES="  65 ARCL X  66 AVIEW  67 STOP  68 GTO 01  69◆LBL 09  70 *  71 ST+ 01  72 .END. IN=600, 6, 5, 2, 920 FEET=6.000 INCHES=5.380

Regards,
Howard
 « Next Oldest | Next Newest »

 Messages In This Thread OSTI Preprint With 41C Code - Howard Owen - 09-16-2015, 08:37 PM RE: OSTI Preprint With 41C Code - Peter Murphy - 09-16-2015, 10:26 PM RE: OSTI Preprint With 41C Code - Thomas Klemm - 09-16-2015, 11:26 PM RE: OSTI Preprint With 41C Code - Howard Owen - 09-17-2015 02:04 PM RE: OSTI Preprint With 41C Code - Sylvain Cote - 09-18-2015, 08:18 AM RE: OSTI Preprint With 41C Code - Howard Owen - 09-18-2015, 01:19 PM RE: OSTI Preprint With 41C Code - Sylvain Cote - 09-18-2015, 02:41 PM

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