[Tustep-Liste] Referenz

Michael Trauth trauth at uni-trier.de
Mon Mar 31 17:11:13 CEST 2008


Lieber Herr Brunschoen,

Ihre Frage war:

> eine in #RA erzeugte Referenz sieht z.B. so aus:
> Ursache 57,2 57,3
> soll aber diese Form haben:
> Ursache 57,2. 3
> Gibt es dafür einen Parameter in #RA?

Offengestanden weiss ich's nicht, und auf die Schnelle
finde ich einen entsprechenden Parameter auch nicht.
Aber solche Aufgaben lassen sich (wie so oft) ganz
einfach mit #ko erledigen. Das folgende (kommentierte!)
KOPIERE

======================================================
#ko,q,z,,+,*
        * Definieren des Referenzteils nach dem Komma:
<1s       :<>><1>/ :<>><1>/. :
        * Am Ende jedes DSatzes ein Hilfsblank ergaenzen,
        * damit Referenzteil 1 lt. Definition <1 auch
        * am Datensatzende als solcher erkannt wird:
erg   1   :: :
        * Pruefen, ob es auszutauschende Zflgg. gibt;
        * wenn nein ->  3 = Ausgabe
        * wenn ja   -> 12 = Austauschen (in xx 1)
zf+   1   :<>>/,<><1>=01,<1:
xx    1   :<>>/,<><1>=01,<1:>=(1-3)^^. <=01:
        * Eingefuegten Hilfspunkt (mit ^^ zwischen-
        * kodiert) einschliesslich des Blanks davor
        * in Punkt austauschen:
xx    2   : ^^.:.:
spn        3
sp2       22 11
        * Zum Schluss noch die Blanks am DSatzende
        * eliminieren:
blu        1  1
*eof
=====================================================

sorgt dafuer, dass aus der exemplarischen Eingabe

Q = 45,3 46,8 47,2 47,9 47,18 51,2 55,6 55,9 55,23

Z = 45,3 46,8 47,2. 9. 18 51,2 55,6. 9. 23

wird.

Ist es das, was Sie sich wuenschten?


Viele Gruesse reihum von

Michael Trauth

---------------------------------------------------------------
Dr. Michael Trauth                  e-mail: trauth at uni-trier.de
Rechenzentrum                       office: Tel. 0651-201-3413
der Universitaet                            Fax  0651-201-3921
Universitaetsring                secretary: Tel. 0651-201-3417
D-54286 Trier
---------------------------------------------------------------



More information about the Tustep-Liste mailing list