$ Technische Universität Berlin $ ============================================ $ FEM in der Anwendung $ Beispiel X: $ $ Stand: Ersteller: $ ============================================ !+!Kapitel Material und Querschnitte $ ================================== +PROG AQUA urs:1 KOPF Material ECHO MAT,QUER EXTR $liefert Bilder in Ursula !*!Label Norm $------------ NORM DC EN NDC 199X-200X-BRIDGE !*!Label Material $---------------- BETO NR 1 ART C FCN 50 ec 16190 fct 0.1 fctk 0.1 ARBL gebr let#fcr -0.85*50/1.5 $ C 50 : fcr=alphac*fc ARBL EPS SIG TYP 0 0 pol $------------- -1.75 #fcr pol $ -2.0 #fcr POL $ -3.5 #fcr POL $ Druckbereich -6.0 #fcr*0.80 POL -9.0 0 STAH NR 2 ART B fy 1650 FT 1650 ES 110000 epst 15 BEZ 'Schlaffe Bewehrung aus Carbon' STAH NR 12 ART Y fy 2546.7 FT 2546.7 ES 155000 epst 16.5 BEZ 'Spannglied aus Carbon' $stah nr 90 art S 450 es 9999999 gam 0 tmax 100 bez "Dummy steif" stah nr 90 art s 355 gam 0 tmax 100 bez "dummy" !*!Label Querschnitte $---------------- $QB NR 1 H 0.3[m] B 0.10[m] HO 0.08[m] BO 0.5[m] $$ $ SS 0.015[m] SO 0.015[m] SU 0.039[m] MNR 1 MBW 2 MBWL 2 $$ $ BTYP asym DASU 10 ASU 2.36[cm2] REF C prof nr 4 typ bar 12.13 mnr 12 $ Carbonlitze D = 15.2 mm prof nr 8 typ warm 30 8 mnr 90 $ Dummy Platte prof nr 9 typ warm 100 40 mnr 90 $ Dummyelement steif ENDE +PROG SOFIMSHA urs:2 KOPF System und Geometrie !*!Label Koordinatensystem SYST ART raum GDIV 100000 !*!Label Erzeugung der Quad Elemente Träger $ ------------------------------------------ KNOT NR X Y 1001 0 -0.25 2001 0 -0.15 3001 0 -0.05 4001 0 0 5001 0 0.05 6001 0 0.15 7001 0 0.25 1021 3 -0.25 2021 3 -0.15 3021 3 -0.05 4021 3 0 5021 3 0.05 6021 3 0.15 7021 3 0.25 $ GRUP NR 1 QUAD PROP MNR 1 MBW 2 LAGE UNTE QUAD FIT 1001 2001 2021 1021 M 1 N 20 T 0.08[m] QUAD FIT 2001 3001 3021 2021 M 1 N 20 T 0.08[m] QUAD FIT 5001 6001 6021 5021 M 1 N 20 T 0.08[m] QUAD FIT 6001 7001 7021 6021 M 1 N 20 T 0.08[m] GRUP NR 2 QUAD PROP MNR 1 MBW 2 T 0.22[m] LAGE UNTE QUAD FIT 3001 4001 4021 3021 M 1 N 20 T1 0.3[m] T2 0.3[m] T3 0.3[m] T4 0.3[m] QUAD FIT 4001 5001 5021 4021 M 1 N 20 T1 0.3[m] T2 0.3[m] T3 0.3[m] T4 0.3[m] $ Auflagerbedingungen KNOT 4001 FIX PPMX KNOT 4021 FIX PYPZMX !*!Label Erzeugung der Seilelemente $ --------------------------------- LET#L 3[m] $Abstand der Verankerungspunkte LET#f 0.141[m] $Durchhang ???? f=zsu-d-(hüllrohrduchmesser/6)=20.68-6.5-(5.6/6)?????=0.13m STO#n 20 $Anzahl der Elemente $ Seilverlauf $ ----------- $ y=-4f/L²*x²+4f/L*x !*!Label Knoten mit Hilfe von Schleifen $ ------------------------------------- LOOP#i #n+1 LET#x #i*#L/#n LET#z -4*#f/#L^2*#x^2+4*#f/#L*#x+0.093 KNOT NR #i+1 x #x z #z ENDLOOP GRUP NR 4 bez 'Seil unten' lOOP#i #n seil nr 1+#i KA 1+#i KE 2+#i QNR 4 ENDLOOP $ Dummy $ Koordinaten Unteres Seil loop#j #n+1 let#x #j*#L/#n let#z -4*#f/#L^2*#x^2+4*#f/#L*#x+0.093 knot nr #j+901 x #x z #z y 0 endloop $ Dummyelemente GRUP NR 8 bez 'Dummy platte' lOOP#j 19 stab nr 101+#j KA 7136+#j KE 7079+#j QNR 8 ENDLOOP stab nr ka ke qnr=8 124 4001 5001 125 4021 5021 lOOP#j 19 stab nr 201+#j KA 7136+#j KE 7060+#j QNR 8 ENDLOOP stab nr ka ke qnr=8 224 4001 3001 225 4021 3021 GRUP NR 9 bez 'Dummy Seil unten' lOOP#j 19 stab nr 1+#j KA 7136+#j KE 902+#j QNR 9 ENDLOOP stab nr ka ke qnr=9 24 4001 901 25 4021 921 grup 7 bez 'koppelelemente' knot 901 fix kp nr1 4001 $knot 901 fix kppx nr1 3001 $knot 901 fix kppx nr1 5001 knot 921 fix kp nr1 4021 $knot 921 fix kppx nr1 3021 $knot 921 fix kppx nr1 5021 $ Feder zwischen dummy seil unten und seil unten GRUP NR 20 BEZ 'Feder unten x' FEDE NR 1 KA 901 KE 1 DX 0.150 DY 0 DZ 0.027 CP 10000000 CM 1 CQ 999999 AR 1 FEDE NR 2 KA 902 KE 2 DX 0.3 DY 0 DZ 0.051 CP 0 CM 1 CQ 999999 AR 1 FEDE NR 3 KA 903 KE 3 DX 0.3 DY 0 DZ 0.045 CP 0 CM 1 CQ 999999 AR 1 FEDE NR 4 KA 904 KE 4 DX 0.3 DY 0 DZ 0.039 CP 0 CM 1 CQ 999999 AR 1 FEDE NR 5 KA 905 KE 5 DX 0.3 DY 0 DZ 0.034 CP 0 CM 1 CQ 999999 AR 1 FEDE NR 6 KA 906 KE 6 DX 0.3 DY 0 DZ 0.028 CP 0 CM 1 CQ 999999 AR 1 FEDE NR 7 KA 907 KE 7 DX 0.3 DY 0 DZ 0.022 CP 0 CM 1 CQ 999999 AR 1 FEDE NR 8 KA 908 KE 8 DX 0.3 DY 0 DZ 0.017 CP 0 CM 1 CQ 999999 AR 1 FEDE NR 9 KA 909 KE 9 DX 0.3 DY 0 DZ 0.012 CP 0 CM 1 CQ 999999 AR 1 FEDE NR 10 KA 910 KE 10 DX 0.3 DY 0 DZ 0.006 CP 0 CM 1 CQ 999999 AR 1 FEDE NR 11 KA 911 KE 11 DX 0.3 DY 0 DZ 0.000 CP 0 CM 1 CQ 999999 AR 1 FEDE NR 12 KA 912 KE 12 DX 0.3 DY 0 DZ -0.006 CP 0 CM 1 CQ 999999 AR 1 FEDE NR 13 KA 913 KE 13 DX 0.3 DY 0 DZ -0.012 CP 0 CM 1 CQ 999999 AR 1 FEDE NR 14 KA 914 KE 14 DX 0.3 DY 0 DZ -0.017 CP 0 CM 1 CQ 999999 AR 1 FEDE NR 15 KA 915 KE 15 DX 0.3 DY 0 DZ -0.022 CP 0 CM 1 CQ 999999 AR 1 FEDE NR 16 KA 916 KE 16 DX 0.3 DY 0 DZ -0.028 CP 0 CM 1 CQ 999999 AR 1 FEDE NR 17 KA 917 KE 17 DX 0.3 DY 0 DZ -0.034 CP 0 CM 1 CQ 999999 AR 1 FEDE NR 18 KA 918 KE 18 DX 0.3 DY 0 DZ -0.029 CP 0 CM 1 CQ 999999 AR 1 FEDE NR 19 KA 919 KE 19 DX 0.3 DY 0 DZ -0.045 CP 0 CM 1 CQ 999999 AR 1 FEDE NR 20 KA 920 KE 20 DX 0.3 DY 0 DZ -0.051 CP 0 CM 1 CQ 999999 AR 1 FEDE NR 21 KA 921 KE 21 DX 0.150 DY 0 DZ -0.027 CP 10000000 CM 1 CQ 999999 AR 1 Grup 21 BEZ 'Feder unten z' FEDE NR 22 KA 901 KE 1 DZ 1 DY 0 DX 0 CM 1 AR 1 $ aus Sofistik-Forum FEDE NR 23 KA 902 KE 2 DZ 1 DY 0 DX 0 CM 1 AR 1 FEDE NR 24 KA 903 KE 3 DZ 1 DY 0 DX 0 CM 1 AR 1 FEDE NR 25 KA 904 KE 4 DZ 1 DY 0 DX 0 CM 1 AR 1 FEDE NR 26 KA 905 KE 5 DZ 1 DY 0 DX 0 CM 1 AR 1 FEDE NR 27 KA 906 KE 6 DZ 1 DY 0 DX 0 CM 1 AR 1 FEDE NR 28 KA 907 KE 7 DZ 1 DY 0 DX 0 CM 1 AR 1 FEDE NR 29 KA 908 KE 8 DZ 1 DY 0 DX 0 CM 1 AR 1 FEDE NR 30 KA 909 KE 9 DZ 1 DY 0 DX 0 CM 1 AR 1 FEDE NR 31 KA 910 KE 10 DZ 1 DY 0 DX 0 CM 1 AR 1 FEDE NR 32 KA 911 KE 11 DZ 1 DY 0 DX 0 CM 1 AR 1 FEDE NR 33 KA 912 KE 12 DZ 1 DY 0 DX 0 CM 1 AR 1 FEDE NR 34 KA 913 KE 13 DZ 1 DY 0 DX 0 CM 1 AR 1 FEDE NR 35 KA 914 KE 14 DZ 1 DY 0 DX 0 CM 1 AR 1 FEDE NR 36 KA 915 KE 15 DZ 1 DY 0 DX 0 CM 1 AR 1 FEDE NR 37 KA 916 KE 16 DZ 1 DY 0 DX 0 CM 1 AR 1 FEDE NR 38 KA 917 KE 17 DZ 1 DY 0 DX 0 CM 1 AR 1 FEDE NR 39 KA 918 KE 18 DZ 1 DY 0 DX 0 CM 1 AR 1 FEDE NR 40 KA 919 KE 19 DZ 1 DY 0 DX 0 CM 1 AR 1 FEDE NR 41 KA 920 KE 20 DZ 1 DY 0 DX 0 CM 1 AR 1 FEDE NR 42 KA 921 KE 21 DZ 1 DY 0 DX 0 CM 1 AR 1 Grup 22 BEZ 'Feder unten y' FEDE NR 43 KA 901 KE 1 DZ 0 DY 1 DX 0 CM 1 AR 1 $ aus Sofistik-Forum FEDE NR 44 KA 902 KE 2 DZ 0 DY 1 DX 0 CM 1 AR 1 FEDE NR 45 KA 903 KE 3 DZ 0 DY 1 DX 0 CM 1 AR 1 FEDE NR 46 KA 904 KE 4 DZ 0 DY 1 DX 0 CM 1 AR 1 FEDE NR 47 KA 905 KE 5 DZ 0 DY 1 DX 0 CM 1 AR 1 FEDE NR 48 KA 906 KE 6 DZ 0 DY 1 DX 0 CM 1 AR 1 FEDE NR 49 KA 907 KE 7 DZ 0 DY 1 DX 0 CM 1 AR 1 FEDE NR 50 KA 908 KE 8 DZ 0 DY 1 DX 0 CM 1 AR 1 FEDE NR 51 KA 909 KE 9 DZ 0 DY 1 DX 0 CM 1 AR 1 FEDE NR 52 KA 910 KE 10 DZ 0 DY 1 DX 0 CM 1 AR 1 FEDE NR 53 KA 911 KE 11 DZ 0 DY 1 DX 0 CM 1 AR 1 FEDE NR 54 KA 912 KE 12 DZ 0 DY 1 DX 0 CM 1 AR 1 FEDE NR 55 KA 913 KE 13 DZ 0 DY 1 DX 0 CM 1 AR 1 FEDE NR 56 KA 914 KE 14 DZ 0 DY 1 DX 0 CM 1 AR 1 FEDE NR 57 KA 915 KE 15 DZ 0 DY 1 DX 0 CM 1 AR 1 FEDE NR 58 KA 916 KE 16 DZ 0 DY 1 DX 0 CM 1 AR 1 FEDE NR 59 KA 917 KE 17 DZ 0 DY 1 DX 0 CM 1 AR 1 FEDE NR 60 KA 918 KE 18 DZ 0 DY 1 DX 0 CM 1 AR 1 FEDE NR 61 KA 919 KE 19 DZ 0 DY 1 DX 0 CM 1 AR 1 FEDE NR 62 KA 920 KE 20 DZ 0 DY 1 DX 0 CM 1 AR 1 FEDE NR 63 KA 921 KE 21 DZ 0 DY 1 DX 0 CM 1 AR 1 ende !#!Kapitel Belastung +PROG SOFILOAD urs:4 KOPF steu warn 398 UNIT 5 $ Einheiten: Querschnitte in mm, Geometrie+Lasten in m ECHO ACT VOLL $ Bitte prüfen Sie die GAMU Werte ACT G_1 ACT P_4 ACT C ende +prog sofiload urs:20 kopf lf 1 fakg 1 bez 'Systemeigengewicht' lf 4 bez 'Punktlasten 4-Punkt-Biegeversuch' knot nr 7142,7148 typ pzz p1 1[kN] lf 9 bez 'Vorspannung_oben' seil grp 4 typ vx pa 147.9 ende +prog ase urs:5 kopf Einzellastfälle STEU WARN 827 lf alle ende !#!Kapitel CSM + SIR Check +PROG CSM URS:14 KOPF STEU EG AUTO STEU SPEI 1 $ BA 10 TYP G_1 BEZ 'G_1' BA 11 TYP P_4 BEZ 'Vorspannung' BA 15 TYP C_1 BEZ 'Kriechen 1' T 30 BA 25 TYP C_2 BEZ 'K+S bis t-unendlich' T 365*100 NKRI 3 $ GRUP NR IBA1 T0 PHIF=1 - 10 14 GRUP NR IBA1 FAK1 4 11 1E-10 $ to get VX prestress without loss ! LF 9 TYP B IBA1 11 $ prestress $ PHIP DEFQ 300[mm] ENDE +apply "$(NAME)_csm.dat" +prog feabench urs:19 kopf task chks ende +PROG SIR URS:15 KOPF Externe SIR Schnitte STEU AQBS 1 ECHO PLOT NEIN $ SIR-Schnitt-Definition SCHN NR XS XM YM ZM NX NY NZ SX SY SZ XMIN XMAX YMIN YMAX ZMIN ZMAX QNR let#x 0 ; 1 #x #x 0.0 0.0 1.0 0.0 0.0 0.0 1.0 0.0 -0.001 0.001 -0.9 0.9 -999. 999. 101 let#x 2 ; 1 #x #x == let#x 4 ; 1 #x #x == let#x 6 ; 1 #x #x == let#x 8 ; 1 #x #x == let#x 10 ; 1 #x #x == LF 5010 LF 5011 BAMI 11 $ Für die Differenz-Vorspannlastfälle muss BAMI eingegeben werden! LF 5015 LF 5020 LF 5025 LF 5026 LF 5027 #define loadcases= 5010,5011,5015,5020,5025,5026,5027 ENDE !+!Kapitel Vorspannung (dehnungslos) $=================================================== $+PROG ASE urs:16 $KOPF Vorspannung $ SYST PROB nonl $ GRUP NR alle WERT ja $ GRUP NR 4 FAKS 0.000001 vorx 147.9 $ LF NR 99 egz 1 BEZ 'Vorspannung' $ENDE +prog bemess urs:11 kopf Definition der Bemessungsparameter und Mindestbewehrung geom - ho 1[cm] hu 1[cm] dho 0.5[cm] dhu 0.5[cm] rich 0 0 PARA NRG 1 do=0 du=0 ASO 0[cm2/m] 0[cm2/m] ASU 0[cm2/m] 0[cm2/m] geom - ho 1[cm] hu 3.9[cm] dho 0.1[cm] dhu 0.1[cm] rich 0 0 PARA nrg 2 du 10 ASO 0[cm2/m] ASU 6.4[cm2/m] ende +PROG ASE urs:21 KOPF Eigengewicht und Vorspannung SYST PROB line LF NR 100 egz 1 BEZ 'EG+V linear' lc 9 1.0482 ENDE !#!Kapitel Laststufen +prog ase urs:17 kopf SYST PROB NONL ITER 120 TOL 0.01 NMAT JA $steu warn 333 $STEU WARN 640 lf 201 egz 1 bez 'GZT nonlinear_0' lc 4 0 lc 9 1.0482 ende +prog ase urs:6 kopf syst prob nonl nmat ja STEU BETO W5 525 $steu warn 333 $STEU WARN 640 lf 202 egz 1 bez 'GZT nonlinear_5' lc 4 5 lc 9 1.0482 ende +prog ase urs:8 kopf syst prob nonl nmat ja $steu warn 333 $STEU WARN 640 lf 203 egz 1 bez 'GZT nonlinear_10' lc 4 10 lc 9 1.0482 ende +prog ase urs:16 kopf syst prob nonl nmat ja $steu warn 333 $STEU WARN 640 lf 204 egz 1 bez 'GZT nonlinear_15' lc 4 15 lc 9 1.0482 ende +prog ase urs:9 kopf syst prob nonl nmat ja steu warn 333 lf 205 egz 1 bez 'GZT nonlinear_20' lc 4 20 lc 9 1.0482 ende +prog ase urs:10 kopf syst prob nonl nmat ja steu warn 333 lf 206 egz 1 bez 'GZT nonlinear_25' lc 4 25 lc 9 1.0482 ende +prog ase urs:3 kopf syst prob nonl nmat ja $syst post 1 tol8 -5.0 steu warn 333 steu warn 352 lf 207 egz 1 bez 'GZT nonlinear_30' lc 4 30 lc 9 1.0482 ende +prog ase urs:12 kopf syst prob nonl nmat ja steu warn 352 $STEU WARN 640 $steu warn 333 $syst post 1 tol8 -5.0 lf 208 egz 1 bez 'GZT nonlinear_35' lc 4 35 $trag alle lc 9 1.0482 ende +prog ase urs:13 kopf syst prob nonl nmat ja TOL8 -0.02 STEU BETO W5 525 steu warn 352 $steu warn 333 $syst post 1 tol8 -5.0 lf 209 egz 1 bez 'GZT nonlinear_40' lc 4 40 lc 9 1.0482 ende +prog aqb urs:18 kopf Spannungen im Spannglied stab typ seil lf 201,202,203,204,205,206,207,208,209 span e f ende +PROG WING -E URS:7 KOPF Bewehrung aus der SLS Bemessung SIZE LP M 0 ; SCHR 0.20 0.20 0.18 0.16 FAKB 0.65 RAST AMAX SIZH -4 $ -4 erzeugt ein Text-Raster, das 4* so groß ist wie $ die Schriftgröße, hier also 4*0.25cm= 1.00cm QUAD ASU 1 SCHR 0.14 ND 1 STYP KNOT QUAD ASO 1 SCHR 0.14 ND 1 STYP KNOT ; RAST NEIN HOEH TYP ASOQ FILL JA MOVE @KEY 10 0 ; LET#11 @7,@8,@10,@11 $ XMIN,YMIN,XMAX,YMAX Read out CDB LET#1 0.5*(#12+#14) $ SCHNITT IN X-RICHTUNG BEI Y=#1 M MOVE X -99 Y #1 UNIT WC A 0 SCHR .21 ; DRAW X 99 Y #1 UNIT WC F 3001 DTYP ZZ LET#1 0.5*(#11+#13) $ SCHNITT IN Y-RICHTUNG BEI X=#1 M MOVE X #1 Y -99 UNIT WC A 0 SCHR .21 ; DRAW X #1 Y 99 UNIT WC F 3001 DTYP ZZ MOVE X 5.50000 Y -99 Z 0 REF - UNIT WC A 0 $$ SCHR .29375 DRAW X 5.50000 Y 99 Z 0 REF - UNIT WC F 3001 $$ DTYP ZZ SCHN TYP ASU UNIT 5 UMIN 1 SCHR 0.25 DTYP PPLA ; UND SCHN TYP ASO UNIT 5 UMIN 1 SCHR 0.25 DTYP NPLA SCHN TYP ASUQ UNIT 5 UMIN 1 SCHR 0.25 DTYP PPLA ; UND SCHN TYP ASOQ UNIT 5 UMIN 1 SCHR 0.25 DTYP NPLA ENDE +PROG ASE URS:26 KOPF Grenzzustand der Gebrauchstauglichkeit mit SL STEU WARN 42 SYST PROB NONL ITER 90 TOL 0.002 NMAT JA BEWQ FAKT 1.0 LFBS 99 $ Bewehrung aus BEMESS LFB 1 incl. Mindestbewehrung $ Speicherung in LFB 99 nur zur graphischen Kontrolle der $ tatsächlich in ASE-NONL verwendeten Bewehrung $ (evtl. aus SOFICADB oder BEMESS-PARA-BSO Begrenzung) LF 301 FAKT 1.00 BEZ 'GZG Gebrauchstauglichkeit SL' LC 1 FAKT 1 DEHN KSV SL ENDE +PROG ASE URS:27 KOPF Mit Kriechen und Schwinden $ STEU SOLV 4 $ Bitte aktivieren wenn ISOL Lizenz vorhanden (paralleles Rechnen) STEU WARN 42 SYST PROB NONL ITER 90 TOL 0.002 NMAT JA KRIE 1 ; GRUP (0 199 1) PHI 2.0 EPS -220E-6 BEWQ FAKT 1.0 LFBS 99 $ Bewehrung aus BEMESS incl. Mindestbewehrung LF 302 FAKT 1.00 BEZ 'GZG+KS' LC 301 $ GZG DEHN KSV SL ENDE +PROG ASE URS:28 KOPF Grenzzustand der Tragfähigkeit STEU BETO W3 2.90 W4 0.01 SYST PROB NONL ITER 90 TOL 0.005 NMAT JA STEU WARN 42 STEU WARN 398 BEWQ FAKT 1.0 LFBS 99 $ Bewehrung aus BEMESS incl. Mindestbewehrung LF 401 FAKT 1.00 BEZ 'GZT Zustand II' LC 200 $ LF 200 enthält bereits die Lastsicherheitsfaktoren DEHN KSV CALD $ siehe Bemerkungen 1. AQUA-Lauf, $ siehe auch Ausgabe "Maximal erreichbare Betonspannungen" "Maximal possible concrete stress" ENDE +PROG WING URS:29 KOPF SIZE lp 0 ; SCHR FAKB 0.65 let#1 3000 ; FARB F5 #1 #1 #1 #1 #1 #1 BEOB STAN 3 5 -3 POSZ SICH HIDD LINE LF 200 ; VERS JA 100 ; STRU 0 0 LF 301 ; VERS JA 100 ; STRU 0 0 LF 302 ; VERS JA 100 ; STRU 0 0 LF 401 ; VERS JA 100 ; STRU 0 0 VERS NEIN SICH HIDD NEIN BEOB STAN 0 0 -1 POSY LF 301 BEME 99 QUAD ASU 100 SCHR 0 STYP QUAD ; UND QUAD ASU 1 SCHR 0.19 ND 1 STYP QUAD PRUE MAXW ABST 1.0 QUAD WRO SCHR 0 UNIT $ 0.1 QUAD WRU SCHR 0 UNIT $ 0.1 QUAD TYP SMO SCHR 0 QUAD TYP SMU SCHR 0 MOVE @KEY 10 0 ; let#11 @7,@8,@10,@11 $ xmin,ymin,xmax,ymax read from cdb LET#1 0.5*(#12+#14) $ CUT IN X DIRECTION AT Y=#1 M MOVE X -99 Y #1 UNIT WC A 0 SCHR .21 ; DRAW X 99 Y #1 UNIT WC F 3001 DTYP ZZ LET#1 0.5*(#11+#13) $ CUT IN X DIRECTION AT X=#1 M MOVE X #1 Y -99 UNIT WC A 0 SCHR .21 ; DRAW X #1 Y 99 UNIT WC F 3001 DTYP ZZ LET#1 5.50 $ CUT IN Y-DIRECTION AT X=#1 MOVE X #1 Y -99 UNIT WC A 0 SCHR .21 ; DRAW X #1 Y 99 UNIT WC F 3001 DTYP ZZ DSGN LINE PP ; QUAD TYP ASOH DARS DCUT UNIT 10 SCHR 0.3 ; UND DSGN LINE -PP ; QUAD TYP ASUH DARS DCUT UNIT 10 SCHR 0.3 DSGN LINE PP ; QUAD TYP ASOQ DARS DCUT UNIT 10 SCHR 0.3 ; UND DSGN LINE -PP ; QUAD TYP ASUQ DARS DCUT UNIT 10 SCHR 0.3 DSGN LINE PP ; QUAD TYP S2NO DARS DCUT UNIT 5. SCHR .3 DSGN LINE PP ; QUAD TYP S2NU DARS DCUT UNIT 5. SCHR .3 DSGN LINE PP ; QUAD TYP SMOM DARS DCUT UNIT 100 SCHR .3 DSGN LINE PP ; QUAD TYP SMUM DARS DCUT UNIT 100 SCHR .3 DSGN LINE PP ; QUAD TYP WOMX DARS DCUT UNIT - SCHR .3 ND 2 DSGN LINE PP ; QUAD TYP WUMX DARS DCUT UNIT - SCHR .3 ND 2 ENDE $ +PROG WING URS:30 KOPF SIZE lp 0 ; SCHR FAKB 0.65 let#1 3000 ; FARB F5 #1 #1 #1 #1 #1 #1 BEOB STAN 3 5 -3 POSZ MOVE @KEY 10 0 ; let#11 @7,@8,@10,@11 $ xmin,ymin,xmax,ymax read from cdb LET#1 0.5*(#12+#14) $ CUT IN X-DIRECTION AT Y=#1 M MOVE X -99 Y #1 UNIT WC A 0 SCHR .21 ; DRAW X 99 Y #1 UNIT WC F 3001 DTYP ZZ LET#1 0.5*(#11+#13) $ CUT IN Y-DIRECTION AT X=#1 M MOVE X #1 Y -99 UNIT WC A 0 SCHR .21 ; DRAW X #1 Y 99 UNIT WC F 3001 DTYP ZZ LET#1 5.50 $ CUT IN Y-DIRECTION AT X=#1 MOVE X #1 Y -99 UNIT WC A 0 SCHR .21 ; DRAW X #1 Y 99 UNIT WC F 3001 DTYP ZZ LF 301 BEME 99 DSGN LINE PP ; QUAD TYP WUMX DARS DCUT UNIT - SCHR .3 ND 2 QUAD WRU SCHR 0 UNIT $ 0.1 ENDE