O/T: Monroe 324G Scientist Programmable « Next Oldest | Next Newest »

 ▼ Geoff Quickfall Unregistered Posts: 1,083 Threads: 126 Joined: Sep 2006 12-08-2007, 01:54 PM Wow, talk about barely portable. Just finished restoring this by completely dis-assembling the 4 boards from each other and cleaning all contacts. The interior looks like a modern day computer with plugs and jumpers attaching the boards together. Any way, just wrote two programs for it: Great Circle Bearing and Great Circle Distance. Load one on program side 1 and the other on program side 2. You can find the formulae on the web, would have printed them here but the formatting would not accept it. This is a key and learn programming language with the ability to accept two separate 80 line programs. There are no conditional tests so I have a workaround for that. The Bearing program may come up with the wrong heading by 180 degrees because one cannot test for a negative sin and work that into the program. What I did was to slip in a subroutine (E and F) at the end of the bearing program to calculate the sin, display, if negative, then press start again and the reciprocal of the bearing is displayed. In other words, you run the conditional test. All this about 4 years before the HP 65. Cheers, Geoff ```MONROE SCIENTIST 324G GREAT CIRCLE DISTANCE PROGRAM VARIABLE FORMULA EXAMPLE KEY KEY • Latitude initial LAT.I N 049.05’ HMS-DEC STO 0 • Longitude initial LON.I W 123.09’ HMS-DEC STO 1 • Latitude final LAT.F S 037.57’ HMS-DEC STO 2 • Longitude final LON.F E 151.11’ HMS-DEC STO 3 1. SET DISPLAY TO ZERO 2. CONVERT LATITUDES AND LONGITUDES TO DECIMAL BEFORE STORING 3. EAST LATITUDES AND SOUTH LONGITUDES ENTER AS NEGATIVE 4. RUN THIS PROGRAM FIRST, THEN COURSE PROGRAM PROGRAM LISTING RCL 3 - RCL 1 = A SIN/COS 2ND STO 4 RCL 0 SIN/COS 2ND B STO * 4 RCL 2 SIN/COS 2ND C STO * 4 RCL 0 SIN/COS * D RCL 2 SIN/COS = + RCL 4 = SIN-1/COS-1 E 2ND STO 5 * 60 F = STOP PROGRAM SECTION EXPLANATION A = COS(LON.I – LON.F) B = COS(LAT.I) C = COS(LAT.F) D = SIN(LAT.I) * SIN(LAT.F) + A * B * C E = ARCOS(D) F = DISTANCE NM USE IN PLACE OF 60 69 FOR SM 111.11 FOR KM VARIABLE REGISTERS LAT.I 0 LON.I 1 LAT.F 2 LON.F 3 A 4 A * B 4 A * B * C 4 DISTANCE ARC 5 MONROE SCIENTIST 326 GREAT CIRCLE BEARING PROGRAM 1. BEARING PROGRAM USES DATA GENERATED BY GREAT CIRCLE DISTANCE PROGRAM 2. DISTANCE PROGRAM MUST BE RUN FIRST TO SUPPLY GREAT CIRCLE DISTANCE ARC IN STORAGE REGISTER 5. 3. IF SIN (LON.I – LON.F) IS NEGATIVE, TRUE BEARING IS: 360 –- C 4. TO TEST FOR NEGATIVE SIGN RUN SECTION E 5. IF SIGN IS NEGATIVE THEN RUN SECTION F FOR BEARING PROGRAM LISTING RCL 0 SIN/COS 2ND * A RCL 5 SIN/COS = STO 6 RCL 0 SIN/COS * RCL 5 B SIN/COS 2ND = STO 7 RCL 2 SIN/COS C - RCL 7 / RCL 6 = SIN-1/COS-1 D 2ND STO 8 STOP RCL 1 - RCL 3 = E SIN STOP 360 - F RCL 8 = STOP PROGRAM SECTION EXPLANATION A = cos(LAT.I) * sin(DIST ARC) B = sin(LAT.I) * cos(DIST ARC) C = sin(LAT.F) - (sin(LAT.I) * cos(DIST ARC) D = COURSE E = TEST FOR NEGATIVE SIGN F = IF SIGN NEGATIVE EXECUTE F FOR BEARING VARIABLE REGISTERS LAT.I 0 LON.I 1 LAT.F 2 LON.F 3 DISTANCE ARC 5 BEARING FOR SIGN TEST 8 EXAMPLE: ON CALCULATOR LOAD: • GREAT CIRCLE DISTANCE PROGRAM IN MEMORY 1 • GREAT CIRCLE BEARING PROGRAM IN MEMORY 2 • ENTER LAT.I, CONVERT TO DECIMAL, STORE IN REGISTER 0 • ENTER LON.I, CONVERT TO DECIMAL, STORE IN REGISTER 1 • ENTER LAT.F, CONVERT TO DECIMAL, STORE IN REGISTER 2 • ENTER LON.F, CONVERT TO DECIMAL, STORE IN REGISTER 3 1. SELECT PROGRAM 1 AND START 2. DISTANCE IS SHOWN IN NAUTICAL MILES 3. SELECT PROGRAM 2 AND START 4. BEARING IS SHOWN IN DEGREES • PRESS START TO SEE IF THE SINE(LON.I – LON.F) IS NEGATIVE • IF NOT NEGATIVE THEN PREVIOUS BEARING IS CORRECT • IF NEGATIVE THEN PRESS START AGAIN TO SEE CORRECTED BEARING VANCOUVER N 49’05” W 123’09” SYDNEY S 37’57” E 151’.11” DISTANCE = 6911 BEARING = 240’ TRUE ``` Edited: 8 Dec 2007, 1:57 p.m. ▼ Maximilian Hohmann Unregistered Posts: 620 Threads: 14 Joined: Feb 2007 12-08-2007, 02:32 PM Hello! Quote:Wow, talk about barely portable. Well, not less portable than an hp-97! I really love these "Compucorpses", truely amazing machines. You probably have come across this text already, if not it is certainly worth reading: http://www.oldcalculatormuseum.com/d-compucorp.html Did you try the example from the manual for computing factorials? The only way to break the loop is to force the end of the program by generating an error condition (negative square root)! The later model 326 (from 1974) has some program control functions and a cassette recorder for storing programs. Strangely, these rare calculators are sold much cheaper than commonplace hp calculators like the 42S. Thanks to this disinterest of many collectors, I am now only missing the 360 "bond trader" and the 340 "statistician" from my collection, of all the other 300-series models I have at least one (320, 322, 324, 326+392 cassette tape, 342, 344 and 354 "Surveyor") :-) Greetings, Max ▼ Geoff Quickfall Unregistered Posts: 1,083 Threads: 126 Joined: Sep 2006 12-08-2007, 03:41 PM I also noticed a funny quirk, as you key in the program sequence it actually calculates the answer as you go. In other words you have to have the registers filled with the correct variables or the programming will generate an error! and prevent you from continuing with the programming. On the upside, once the program is in you can check the answer with the example and know there were no mistakes during the keying in phase. This really turns the eyes in the cockpit when I cross check our latitude and longitude distance and bearing between waypoints on the flight plan and onboard FMC (flight management computer) My backup is the HP 67 and my HP 01: thats the FMC (the green CRT on the central pedastal) Cheers, Geoff ▼ Stefan Vorkoetter Unregistered Posts: 217 Threads: 21 Joined: Aug 2007 12-08-2007, 06:07 PM Neat pic, but why isn't HP-67 on the console and the HP-01 on your wrist? Stefan ▼ Geoff Quickfall Unregistered Posts: 1,083 Threads: 126 Joined: Sep 2006 12-08-2007, 06:30 PM Well the hp 67 was in the flight bag to my right and the HP 01 was counting down the elapsed time / fuel remaining. Had to take the HP 01 off my wrist for the shot as the camera did not have a macro function. here's another shot of the HP 01 with the FMC in latitude/longitude mode. ▼ Don Shepherd Unregistered Posts: 1,392 Threads: 142 Joined: Jun 2007 12-08-2007, 07:49 PM Great picture Geoff! I see you were about to cross the International Date Line, where Sunday becomes Monday! Dave Shaffer (Arizona) Unregistered Posts: 776 Threads: 25 Joined: Jun 2007 12-08-2007, 10:41 PM Since I trundle around in Cessna 172s and don't recognize your console, what are you flying? ▼ Geoff Quickfall Unregistered Posts: 1,083 Threads: 126 Joined: Sep 2006 12-08-2007, 10:55 PM Not quite that new but still got a few more toys than the C-172. Got about 200 hours in the Skyhawk then moved on to the: ```c-185 on floats DHC2 Beaver on floats DHC3 Otter on floats Beech 18 on floats B-737-200 DC10-30 B767-200 & 300 and soon to be the B777-200 & 300 ``` Cheers, Geoff Edited: 8 Dec 2007, 10:55 p.m. ▼ Antoine M. Couëtte Unregistered Posts: 118 Threads: 17 Joined: Oct 2007 12-16-2007, 06:56 AM Hello Geoff, I was highly interested at reading your Post and - as you will see hereafter - I instantly recognized your B 767 Cockpit ... So, as my money back :-))) , and if you are interested in some Airborne Fuelcheck Software I just recently wrote for DC10-30, B767 ... - or ANY other Jet A/C since I had lately modified this Software into easily accepting ANY JET A/C - please have a look here. Once you have this software, you just need to enter 6 or 7 constants pertaining to your A/C ( MTOW, MLDW, ... , COMPANY FINAL RESERVE FUEL ... ) Ahhh ! And by the way this software also computes all your Actual Limitations in a very accurate and realistic way, much better than the classical load sheets computations which ALWAYS compute a too big last minute extra Payload because they just forget that carrying any extra Payload implies carrying extra Fuel ... It can ruin your day on a long haul flight ... And the free package comes complete with a free 30 page document I recently wrote on Transport Coefficients Computations which work extremely well on ANY long haul Aircraft trip. Friendly yours Antoine Katie Wasserman Unregistered Posts: 1,477 Threads: 71 Joined: Jan 2005 12-09-2007, 02:22 PM Max, I really like the 300 series Compucorp too, you forgot one model though the 360/65. I have that one and all the others except the plain 360. I hope we don't get into a bidding war on ebay over that! :) -Katie ▼ Eric Bjornson Unregistered Posts: 1 Threads: 0 Joined: Jan 1970 12-15-2007, 10:11 PM I own a Monroe 3180 Bond Trader. Do you know if the CompuCorp Bond Trader 360/65 or the Monroe equivalents have any patent numbers?? I can't find any patent numbers anywhere. ?? I've only found a few Monroe design patents... but no Utility patents in the late 70's - early 80's. Thank you! Eric Bjornson cell: 250.744.8751 eric@trading.tc bill platt Unregistered Posts: 2,448 Threads: 90 Joined: Jul 2005 12-08-2007, 11:56 PM That's a nice foto. I think Dave Hicks will be impressed.

 Possibly Related Threads… Thread Author Replies Views Last Post Computer-scientist functions on HP Prime? Michael O. Tjebben 12 3,564 08-22-2013, 06:59 PM Last Post: plivesey who uses programmable calculators? John Ioannidis 24 6,344 06-18-2013, 04:11 PM Last Post: Steve Simpkin HP85 Programmable ROM cardtridge 82929A-service ROM not working- inaki 2 1,858 04-25-2013, 08:08 AM Last Post: inaki Off topic: Scientist Mob Frank Boehm (Germany) 6 2,073 09-06-2012, 02:53 AM Last Post: BruceH TI Programmable 88 - What we missed... Joerg Woerner 22 5,495 03-08-2012, 12:08 AM Last Post: David Ramsey Local variables in RPN programmable? David Hayden 19 4,614 10-28-2011, 03:57 AM Last Post: Marcus von Cube, Germany Manual for vintage Russian MK-61 RPN programmable calculator? Cristian Arezzini 14 3,700 10-15-2011, 07:03 AM Last Post: Cristian Arezzini Finding prime factors on a "non-programmable" calculator Don Shepherd 6 2,124 09-05-2011, 10:11 AM Last Post: Allen CMT-300 Programmable Measurement System Jeff Davis 0 852 05-01-2011, 08:24 PM Last Post: Jeff Davis HP 65 programmable designnut 4 1,463 01-01-2011, 03:22 AM Last Post: Thomas Okken

Forum Jump: