C Überprüfung von Variablen und logische Abfragen
der Befehl txa
Für die Kontrollausgabe benutze ich gern:
txa Kontrollausgabe
txa Linien Knickpunkt Gradiente
let#lnnr #sln1+#i
let#np_1 #f3(#i)
let#np_2 #f3(#i+1)
txa Linie Nr. = #(#lnnr,10.0)
txa Knoten Nr. 1 = #(#np_1,10.0)
txa Knoten Nr. 2 = #(#np_2,10.0)
10.0 bedeutet: insgesamt 10 Stellen, davon 0 nach dem Komma.
In Schleifen mit Abfragen von Bedingungen kann man so eine Zwischenkontrolle durchführen:
let#knr 3000
let#knrref 1000
let#y 1.3
let#dx0 0
let#dx1 -0.191
loop#i 37
if (#i==0)
let#dx #dx1
elseif (#i==19-1)
let#dx #dx1
elseif (#i==37-1)
let#dx #dx1
else
let#dx #dx0
endif
txa dx = #(#dx,6.3)
spt nr #knr+1+#i x #x_a_n(#i+1)+#dx y #y z 0
sptp typ kf ref #knrref+1+#i grp 99
endloop
Man kann mit txa auch auf Felder zugreifen.
let#p_i(31:54) 0 $ Feld p_i definiert und alle Felder mit 0 belegt loop#1 6*4
let#p_i(31+#1) 31+#1 $ ab Index 31 die Ziffern 31,32,33... eintragen
txa index = #(#1+31,2.0) Ziffer = #(#p_i(31+#1),4.0)
endloop
Protokollieren mit prt oder dbg
Bei der Variante mit TXA erfolgt die Kontrollausgabe in den Report Browser.
Alternativ dazu kann man auch die Variante mit PRT nutzen:
prt#qnr_st(1)
Hierbei erfolgt die Ausgabe unter "Echo der Eingabe" und es werden evtl. unerwünschte Nachkommastellen angezeigt. Falls eine Variable eine ganzzahlige Zahl sein muss, so gibt man diese mit z.Bps. zwischen zwei Hochkomma ein:
sto#qnr_nt '0' '301' '201' '201' '101' '101' $ Querschnittsnummer
Alternativ kann man auch den ganzzahligen Anteile mit let#variable_neu div(#variable_alt,1) ermitteln. Auch ganze Felder kann derart protokollieren.
Mit einer Eingabe dbg#2 bekommt man evtl. hilfreiche Hinweise bei schwer zu erkennenden Fehlern.
Schleifen mit logischen Abfragen testen
Allgemeines
& - UND | - ODER
Bei logischen Abfragen ist es sehr wichtig, ganz streng zu "klammern"!!!
elseif ((#x<#l) & (#x>=(2*#a+#c)))
Das Programm liefert keine brauchbaren Fehlermeldungen, sonder macht irgendetwas. Es kann recht hilfreich sein, sich die Grenzwerte "i" in Variablen zu speichern. z. Bsp.:
- #i1: #a
- #i2: #a+#c
- #i3: 2*#a+#c
- #i4: #l
- #i5: #l+#a
- #i6: #l+#a+#c
- #i7: #l+2*#a+#c
Wenn man sich in der jeweiligen Abfrage mit: txa Fall 4: x>=l+2a+c & x<l txa lf #(#lf,4.0) txa x #(#x,7.3) den jeweiligen Status ausgeben lässt, so kommt man recht fix zu einer guten Kontrolle.😂
Klammersetzung
Hier ein weiteres Beispiel für die Notwendigkeit zu klammer! Ohne diese Klammersetzung passiert nix, und es kommt auch keine Fehlermeldung. Wenn #1=0 ODER #1=8 ODER #1=9...dann:
if (((#1==0)|(#1==8))|(#1==9))
Geradzahligkeit
Gelegentlich braucht man eine gerade ganze Zahl.
Das geht beispielsweise so:
$ Längsrichtung #ny
if (mod(div(#y/#hmin),2))>0
sto#ny div(#y/#hmin)+1
else
sto#ny div(#y/#hmin)
endif
- #ny ist unabhängibg von den Werten #y und #hmin immer eine gerade Ganzzahl.
Winkel
Gelegentlich möchte man z.Bsp. mit GON oder auch RAD als Winkeleinheit rechnen: geht ganz einfach!
let#xyz 0.5/sin(gon,67.21)
txa ergebnis #(#xyz,8.3)
Fehlermöglichkeiten
Das mit den Variablen hat so seine Tücken.
aktueller Fall:
Ich definiere im Template die globalen Variablen
sto#yl -1,07/2 $y_links
sto#yr -#yl.
Im Zuge der Projektbearbeitung möchte ich eine LAR definieren. Also gehe ich in einen entsprechenden älteren Datensatz und hole mir von dort mal fix die entsprechenden Eingabezeilen in's SOFiLOAD:
let#yr 1.85 😆
let#yl -#yr
lar nr 1 grp1 1 grp2 2 grp3 - m #hmin n #hmin t 1 x1 #x1 #yl 0 x2 #x8 #yl 0 x3 #x8 #yr 0 x4 #x1 #yr 0
Da die erneute lokale Definition (let) der Variablen die globale (sto) überschreibt...ist die LAR viel zu breit. 🙄 KONTROLLE, KONTROLLE, KONTROLLE
Ein weitere Fehlerquelle könnte die Verwendung einer veralteten STO - Variable sein. Man kann z.Bsp. sto#var1 definieren (oder aus einem Vorlageprojekt übernehmen) und dann doch die Variable sto#var2 defineren und benutzen.
Im alten Eingabesatz wird aber immernoch #var1 verwendet. Dieses verhindert man dadurch, dass man regelmäßig die Datenbank aufräumt.