ITP Zeitschel

if else endif

Beispiel

loop#nr #anz
        if #nr==3
                let#z -2
        else
                let#z 0
        endif
                spt     nr 501+#nr      x 0+#nr*2       y 10    z #z
endloop

korrekt abfragen

In Schleifen möchte man gelegentlich eine logische Abfrage durchführen. Da liegt es auf der Hand, den Schleifenindex zu benutzen. Das funktioniert aber nur, wenn man bei der Abfrage die logischen Operatoren == bzw. != benutzt.

Beispiel: unterschiedliche Querträger

Stahlbrücken haben gelegentlich unterschiedliche Querschnitte der Querträger. Die Endquerträger sind recht kräftig, dann gibt es wieder schwächere Profile.

Um nun alle Querträger in einer Schleife zu generieren, muss man in Abhängigkeit der Querachse die jeweilgen Querschnittsnummern auswählen:

!*!Label Querträger
let#grp11        11 $ Gruppe der großen Querträger
let#sln11        #grp11*#grpdiv

let#grp12        12 $ Gruppe der schwachen Querträger
let#sln12        #grp12*#grpdiv

#define QT_g $ großer Querträger
        let#grp #grp11
        let#qnr1  105
        let#qnr2  104
#enddef

#define QT_s $ schwacher Querträger
        let#grp #grp12
        let#qnr1  205
        let#qnr2  204
#enddef

loop#i  37
                let#achse #i+1
                let#np1 3000+#achse
                let#np2 4000+#achse
                let#np3 5000+#achse
                let#np4 6000+#achse
        $ Filterung der "starken" Achsen
        if     (#achse==1)
                #include QT_g
        elseif (#achse==6)
                #include QT_g
        elseif (#achse==8)
                #include QT_g
        elseif (#achse==10)
                #include QT_g
        elseif (#achse==12)
                #include QT_g
        elseif (#achse==14)
                #include QT_g
        elseif (#achse==19)
                #include QT_g
        elseif (#achse==24)
                #include QT_g
        elseif (#achse==26)
                #include QT_g
        elseif (#achse==28)
                #include QT_g
        elseif (#achse==30)
                #include QT_g
        elseif (#achse==32)
                #include QT_g
        elseif (#achse==37)
                #include QT_g
        else    $ alle "schwachen" Achsen
                #include QT_s
        endif

        if (#grp==#grp11)
                sln     nr                      npa     npe     qnr     styp='B'        sdiv=#hmin      grp=#grp
                        #sln11+(#achse*10)+1    #np1    #np2    #qnr1
                        #sln11+(#achse*10)+2    #np2    #np3    #qnr2
                        #sln11+(#achse*10)+3    #np3    #np4    #qnr1
        else
                sln     nr                      npa     npe     qnr     styp='B'        sdiv=#hmin      grp=#grp
                        #sln12+(#achse*10)+1    #np1    #np2    #qnr1
                        #sln12+(#achse*10)+2    #np2    #np3    #qnr2
                        #sln12+(#achse*10)+3    #np3    #np4    #qnr1
        endif
endloop

Letzte Änderung: Montag, 21.07.2014   |   Erstellt von TYPO3-Beratung.com, Nürtingen/Stuttgart