download PDF (41MB) - Mike Schilli
download PDF (41MB) - Mike Schilli
download PDF (41MB) - Mike Schilli
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
SERIE 40<br />
GEW + POP<br />
Gewichtsberechnung einfacher Korper und Unterdriicken des letzten RTN<br />
von Gunter Schapka<br />
SIZE 009, HP-41 CX, CCD, Rambox<br />
Mit dem Programm GEW lassen sich<br />
kubische und zylindrische Korper be<br />
rechnen, z.B. Bleche, Stabe und Rohre.<br />
Variablen sind: Spezifisches Gewicht, Brei<br />
te und Hohe (bzw. AuBen- und innendurchmesser),<br />
Lange und Gewicht. Gleichgiiltig,<br />
welche der vier Variablen einge<br />
geben werden, die letzte, 5. wird berech<br />
net.<br />
Da das Programm nicht andauernd in<br />
Benutzung ist, wurde es iiber AVIEW<br />
und GETKEYX gesteuert (Meniianzeige)<br />
und nicht iiber z.B. lokale Alpha-<br />
Labels. Somit ist es selbsterklarend und<br />
bestehendeTastenzuordnungenbleiben<br />
erhalten.<br />
Fur das spezifische Gewicht (hier mit m<br />
angezeigt) sind bereits drei Werte (fiir<br />
Stahl, Blei und Aluminium) im Programm<br />
eingebaut, die Auswahl erfolgt bei LBL<br />
11 durch drucken der zugehorigen Buchstabentaste.<br />
Bei Taste M kann ein Wert<br />
manuell eingegeben werden, bei Taste R<br />
wird das spezifische Gewicht berechnet<br />
(Dimension in kg/Liter).<br />
Das Hauptmenii bei LBL 16 fragt die<br />
Variablen ab. Die moglichen Werte ste<br />
hen iiber den Tasten in der oberen Rei<br />
he. Driickt man zuerst n, dann kann, wie<br />
bereits vorher beschrieben, ausgewahlt<br />
werden (hier berechnen zu wollen ist na<br />
turlich Unsinn!). Der gewahlte oder eingegebene<br />
Wert wird als ji mit Index S, A,<br />
B oder M angezeigt. Pfeil oder Doppelpunktdahinterfordern<br />
bereits zur Einga<br />
be des nachsten Zahlenwertes auf. Nach<br />
Drucken von Taste R/S kann der Wert<br />
bei Anzeige des Hauptmeniis seiner Va<br />
riablen zugeordnet werden: Breite [mm]<br />
auf Taste B, Hohe [mm] auf D, oder<br />
Gewicht [kg] auf E. Wird als erste Taste<br />
eine andere Taste als n gedruckt, er<br />
scheint in der Anzeige vorlaufig die Va<br />
riable mit dem Wert 0.<br />
Nach Eingabe von B oder H ist Flag 1 ge<br />
setzt, bei D oder d geloscht, damit wird<br />
jeweils die richtige Gleichung angesteuert.<br />
Fiir die test eingegebenen n-Werte und<br />
die Konstante 0.25*PI*E-6 ist in den Zei<br />
len 42 und 43 das Alpha-Register komplett<br />
belegt (Reg. M,N,0 und P). Wird<br />
zwischen den Zeilen 42 und 44 im SST-<br />
Modus durchgetastet, dann gehen die<br />
ersten 4 Bytes von P (25-28 des Alpha-<br />
Registers) verloren und die Konstante ist<br />
verkehrt.<br />
LBL 05 (Zeile 60) enthalt die Gleichungen zur Berechnung des spezifischen<br />
Gewichts:<br />
^ M = _ f ± g ± PE I 6 * | ( * F( 0D1 = 20 -) d o2 d) e r 4 * G * PEI 6 * * L p * ' B * H * 4 M<br />
LBL 06 (Zeile 162) enthalt die Gleichungen zur Berechnung von D oder B<br />
D<br />
' r+d2 (FOMO) oder B=<br />
R02=D£<br />
G ± P | ( F 0 1 = 1 ) o d e r<br />
"\| K*(j*L<br />
K*M*L*4*H RQ2=B<br />
LBL 07 (Zeile 174) enthalt die Gleichungen zur Berechnung von d oder H:<br />
d = +D (FOMO) oder H^<br />
~\J K*u*L<br />
G*PI<br />
K*u*L*4*B<br />
R03=d;<br />
(FOM1) oder<br />
R03=H<br />
LBL 08 (Zeile 201) enthalt die Gleichungen zur Berechnung von L:<br />
G<br />
-2—g- (FOMO) oder L=<br />
(FOM1) R04=L<br />
K * M * ( D 2 - d z ) K * p * B * H<br />
LBL 09 (Zeile 211) enthalt die Gleichungen zur Berechnung von G:<br />
G=K*u*L*(D2-d2) (FOMO) oder G= K*M*L*H*B*PI RQ5=G<br />
4<br />
Weitere Register sind wie folgt belegt:<br />
R06= K ' W,:A R08=<br />
Nach Eingabe alter Werte und Berech<br />
nung des Ergebnisses konnen einzelne<br />
Variablen verandert und'lhre Auswirkung<br />
auf das Ergebnis untersucht werden. Ein<br />
Zwischenergebnis kann vom Hauptmenu<br />
nach Drucken der STO-Taste (LBL<br />
33) zur spateren Weiterverwendung in<br />
R00 gespeichert werden.<br />
Erfolgt innerhalb 99 Sekunden keine<br />
Eingabe ins Hauptmenii, schaltet der<br />
Rechner mit gesetzter Flag 11 ab. Beim<br />
Einschalten erscheint wieder das Haupt<br />
menii.<br />
Programm-Ausstieg mit R/S aus dem<br />
Hauptmenii. Der Rechner schaltet ab,<br />
bleibt aber am Programmende stehen<br />
und kann von da aus iiber erneutes R/S<br />
wieder von vorn beginnen.<br />
Noch einige Programmdetails:<br />
Solange noch kein Gewichtswert bekannt<br />
ist (entweder durch Eingabe oder Rechnung)<br />
bleibt bei LBL 10 auch Register 06<br />
Null. Wird aus dem Hauptmenii eine Taste<br />
der oberen Reihe ohne Dateneingabe<br />
gedruckt, dann veranlaBt dies normaler<br />
weise Berechnung des zugehorigen<br />
Wertes. Im Unterprogramm 19 wird in<br />
diesem Fall die RTN-Adresse (XEQ POP)<br />
geloscht, direkt zum Aufruf der Berech<br />
nung zuriickverzweigt und fiir diesen Wert<br />
PI<br />
4*E6<br />
Null gespeichert (Soil z.B. fiir Rundstabmaterial<br />
anstelte von Rohr gerechnet<br />
werden, dann muB fiir d Null gespeichert<br />
werden!).<br />
Die GETKEYX-Ansteuerung im Haupt<br />
menii wurde bereits von Michael Kamp<br />
im Programm RAMED (PRISMA 87.7.24)<br />
veroffentlicht.<br />
Das Unterprogramm mit POP wurde im<br />
PPC-Journal V12 N5 P47 von Robert<br />
Swanson veroffentlicht, siehe auch gesonderten<br />
Artikel mit einer MCODE-Version.<br />
POP<br />
Das Programm POP unterdriickt den<br />
letzten RTN-Befehl im Register b, alle<br />
anderen RTN werden im RTN-Stack um<br />
eine Ebene heruntergeschoben.<br />
Die synthetische Version wurde bereits<br />
im PPC-Journal V12 N5 P47 von Robert<br />
Swanson veroffentlicht, sie benotigt eine<br />
Unterprogrammebene.<br />
Als ersten MCODE-Gehversuch habe ich<br />
eine MCODE-Version geschrieben, die<br />
keine Unterprogrammebene belegt.<br />
Ein beigefiigtes Testprogramm TST arbeitet<br />
erst normal (Flag 01=1, F00=0),<br />
34 PRISMA 6/89 Computerclub Deutschland e.V