# ARTIFEX/PLUS STAIRS (1-4) # File:d:\Premium\Data\sbw\wps\WCOXTREP.WPS # Date: 20-11-2009 # # Merge d:\Premium\Data\sbw\wps\TR_RAND.WPS OK # ----- # |-------------------------------------------------------------------- # | # | Treppenmacro: tr_rand.wps # | zeichnet einen Rand und den entpsechenden # | Plankopf # | Einfügepunkt rechts unten # |-------------------------------------------------------------------- # Variablenbelegung Anfang ------------------------------------------ # Integervariablen --------------------------------------------------- name(i1,"xmast"); xmast = 10; # Maszstab 1:10 name(i4,"betg"); betg = 25; # Betonguete B25 name(i5,"bstg"); bstg = 500; # Betonstahlguete BSt500 name(i11,"einbew"); einbew = 0; # Art der Bewehrung name(i12,"zwebew"); zwebew = 0; # Art der Bewehrung name(i13,"drebew"); drebew = 0; # Art der Bewehrung name(i14,"viebew"); viebew = 0; # Art der Bewehrung name(i15,"funbew"); funbew = 0; # Art der Bewehrung name(i16,"secbew"); secbew = 0; # Art der Bewehrung name(i17,"siebew"); siebew = 0; # Art der Bewehrung name(i18,"achbew"); achbew = 0; # Art der Bewehrung name(i19,"neubew"); neubew = 0; # Art der Bewehrung name(i20,"zehbew"); zehbew = 0; # Art der Bewehrung name(i21,"elfbew"); elfbew = 0; # Art der Bewehrung # Realvariablen ------------------------------------------------------ name(r1,"betdu"); betdu = 2.5; # Betondeckung unten name(r2,"betdo"); betdo = 2.5; # Betondeckung oben # Stringvariablen ---------------------------------------------------- name(s3,"erst"); # erstellt von [Name] name(s4,"baut"); # Bauteil fuer Plankopf name(s5,"bauh"); # Bauherr fuer Plankopf name(s6,"bauh"); # Bauherr fuer Plankopf name(s7,"bauv"); # Bauvorhaben fuer Plankopf name(s8,"xposnr"); # Positionsnummer fuer Plankopf # Punktvariablen ----------------------------------------------------- name(p1,"einfp"); # Einfuegepunkt Rahmen rechts unten # Variablenbelegung Ende -------------------------------------------- # -------------------------------------------------------------------- # Auswahl des Plankopfes # i2 entpricht der Art des Plankopfes # -------------------------------------------------------------------- newslid(); fillslid("Plankopf Baustoffe Heidenau"); fillslid("Plankopf Fertigteilwerk Köhler"); doslid(i2); # -------------------------------------------------------------------- # Auswahl der Blattgroesse: A0 - A3 # i3 entpricht der gewaehlten Blattgroesze # -------------------------------------------------------------------- newslid(); fillslid("Blattgröße A2"); fillslid("Blattgröße A1"); fillslid("Blattgröße A0"); doslid(i3); # -------------------------------------------------------------------- gsl_type(0); # Linientyp auf ausgezogen setzen # -------------------------------------------------------------------- # Planrand zeichnen (A3 - A0)------------------------------------------ # -------------------------------------------------------------------- # Einfügepunkt angeben------------------------------------------------ write("Geben Sie den rechten unteren Einfügepunkt für der Rahmen ein:"); read(einfp); p1 = einfp; # -------------------------------------------------------------------- # -------------------------------------------------------------------- # Anfang: Planrand und Plankopf --> Baustoffe Heidenau # -------------------------------------------------------------------- if (i2 = 1) then begin # Einfügepunkt angeben------------------------------------------------ write("Geben Sie den rechten unteren Einfügepunkt für der Rahmen ein:"); read(einfp); p1 = einfp; # -------------------------------------------------------------------- # -------------------------------------------------------------------- # Maskeneingabe Plankopf # Typ: Baustoffe Heidenau Koehler # -------------------------------------------------------------------- newmask("Plankopf"); maskinfo(1,1, "Tragen Sie hier die Daten fuer den Plankopf ein"); fillmask(-1,3, "Betonguete (z.B. B25) : ",betg,9); fillmask(-1,4, "Betonstahlguete (z.B. BSt500): ",bstg,9); fillmask(-1,5, "Maszstab M1: ",xmast,3); fillmask(-1,7, "erstellt : ",erst,50); fillmask(-1,8, "Bauteil : ",baut,50); fillmask(-1,9, "Bauherr : ",bauh,50); fillmask(-1,10, "Bauvorhaben : ",bauv,50); domask(); # Blattgroesse A2 -------------- if (i3 = 1) then begin string_copy(s2,"DIN A2"); p2 = p1; p2.x = p2.x - 59.4 * xmast; p3 = p2; p3.y = p3.y + 42.0 * xmast; p4 = p3; p4.x = p3.x + 59.4 * xmast; end # Blattgroesse A1 -------------- if (i3 = 2) then begin string_copy(s2,"DIN A1"); p2 = p1; p2.x = p2.x - 84.0 * xmast; p3 = p2; p3.y = p3.y + 59.4 * xmast; p4 = p3; p4.x = p3.x + 84.0 * xmast; end # Blattgroesse A0 -------------- if (i3 = 3) then begin string_copy(s2,"DIN A0"); p2 = p1; p2.x = p2.x - 118.8 * xmast; p3 = p2; p3.y = p3.y + 84.0 * xmast; p4 = p3; p4.x = p3.x + 118.8 * xmast; end # Rahmenlinien zeichnen setcolor(4); line(p1,p2); line(p2,p3); line(p3,p4); line(p4,p1); # Plankopf einfuegen insert("WCOBHB","ARTIFEX",p1,xmast,xmast,0.0); # -------------------------------------------------------------------- # Plankopf beschriften # -------------------------------------------------------------------- gst_rotation(0); gst_color(4); # Textfarbe cyan gst_height(0.35 * xmast); p22 = p1; p22.x = p22.x - 14.62 * xmast; p22.y = p22.y + 8.46 * xmast; text(p22,betdo); p22.y = p1.y + 7.94 * xmast; text(p22,betdu); p22 = p1; p22.x = p22.x - 9.55 * xmast; p22.y = p22.y + 8.19 * xmast; text(p22,betg); p22.x = p1.x - 3.02 * xmast; text(p22,bstg); p22 = p1; p22.x = p22.x - 15.98 * xmast; p22.y = p22.y + 6.56 * xmast; text(p22,"M 1:"); p22.x = p22.x + 0.9 * xmast; text(p22,xmast); p22 = p1; p22.x = p22.x - 10.11 * xmast; p22.y = p22.y + 6.56 * xmast; project(s1,"DATE"); text(p22,s1); p22 = p1; p22.x = p22.x - 4.23 * xmast; p22.y = p22.y + 6.56 * xmast; text(p22,erst); p22 = p1; p22.x = p22.x - 16.62 * xmast; p22.y = p22.y + 5.43 * xmast; text(p22,baut); p22 = p1; p22.x = p22.x - 15.74 * xmast; p22.y = p22.y + 3.33 * xmast; text(p22,bauh); p22.y = p1.y + 2.61 * xmast; text(p22,bauv); end # -------------------------------------------------------------------- # End: Planrand und Plankopf --> Baustoffe Heidenau # -------------------------------------------------------------------- # -------------------------------------------------------------------- # Anfang: Planrand und Plankopf --> Fertigteilwerk Koehler # -------------------------------------------------------------------- if (i2 = 2) then begin # Einfügepunkt angeben------------------------------------------------ writeln(" "); write("Geben Sie den rechten unteren Einfügepunkt für der Rahmen ein:"); read(einfp); p1 = einfp; # -------------------------------------------------------------------- # -------------------------------------------------------------------- # Maskeneingabe Plankopf # Typ: Fertigteilwerk Koehler # -------------------------------------------------------------------- newmask("Plankopf"); maskinfo(1,1, "Tragen Sie hier die Daten fuer den Plankopf ein"); fillmask(-1,3, "Positionsnummer Pos.T",xposnr,15); fillmask(-1,4, "Maszstab M1:",xmast,3); domask(); # Blattgroesse A2 -------------- if (i3 = 1) then begin string_copy(s2,"DIN A2"); p2 = p1; p2.x = p2.x - 59.4 * xmast; p3 = p2; p3.y = p3.y + 42.0 * xmast; p4 = p3; p4.x = p3.x + 59.4 * xmast; end # Blattgroesse A1 -------------- if (i3 = 2) then begin string_copy(s2,"DIN A1"); p2 = p1; p2.x = p2.x - 84.0 * xmast; p3 = p2; p3.y = p3.y + 59.4 * xmast; p4 = p3; p4.x = p3.x + 84.0 * xmast; end # Blattgroesse A0 -------------- if (i3 = 3) then begin string_copy(s2,"DIN A0"); p2 = p1; p2.x = p2.x - 118.8 * xmast; p3 = p2; p3.y = p3.y + 84.0 * xmast; p4 = p3; p4.x = p3.x + 118.8 * xmast; end # Rahmenlinien zeichnen setcolor(4); line(p1,p2); line(p2,p3); line(p3,p4); line(p4,p1); # -------------------------------------------------------------------- # Plankopf zeichnen ---------------------------------------------- # -------------------------------------------------------------------- p5 = p1; p5.x = p5.x - 1.5 * xmast; p5.y = p5.y + 1.5 * xmast; p6 = p5; p6.x = p6.x - 8.0 * xmast; p7 = p6; p7.y = p7.y + 4.2 * xmast; p8 = p7; p8.x = p5.x; p9 = p6; p9.y = p9.y + 1.0 * xmast; p10 = p9; p10.x = p5.x; p11 = p9; p11.y = p11.y + 1.2 * xmast; p12 = p11; p12.x = p5.x; p13 = p11; p13.y = p13.y + 1.0 * xmast; p14 = p13; p14.x = p5.x; p15 = p5; p15.x = p5.x - 4.0 * xmast; p16 = p15; p16.y = p16.y + 1.0 * xmast; # -------------------------------------------------------------------- # Rahmenlinie Plankopf zeichnen -------------------------- # -------------------------------------------------------------------- setcolor(3); # Rahmenfarbe gruen line(p5,p6); line(p6,p7); line(p7,p8); line(p8,p5); # -------------------------------------------------------------------- # Plankopf - Trennlinien zeichnen ------------------------ # -------------------------------------------------------------------- setcolor(2); # Trennlinien gelb line(p9,p10); line(p11,p12); line(p13,p14); line(p15,p16); # -------------------------------------------------------------------- # Plankopf beschriften --------------- # -------------------------------------------------------------------- p17 = p13; p17.y = p17.y + 0.15 * xmast; p17.x = p17.x + 0.2 * xmast; gst_color(6); # Textfarbe magenta gst_height(0.6 * xmast); text(p17,"Pos.T"); p17.x = p17.x + 1.8 * xmast; text(p17,xposnr); p18 = p11; p18.y = p18.y + 0.2 * xmast; p18.x = p18.x + 0.2 * xmast; gst_color(4); # Textfarbe cyan gst_height(0.4 * xmast); text(p18,"Schal- und Bewehrungsplan"); p19 = p11; p19.x = p19.x + 0.2 * xmast; p19.y = p19.y - 0.5 * xmast; gst_height(0.3 * xmast); text(p19,"Betondeckung: unten"); p20 = p19; p20.x = p19.x + 3.8 * xmast; text(p20,betdu); p21 = p20; p21.x = p21.x + 0.8 * xmast; text(p21,"cm"); p19.y = p19.y - 0.5 * xmast; text(p19,"Betondeckung: oben "); p20 = p19; p20.x = p19.x + 3.8 * xmast; text(p20,betdo); p21 = p20; p21.x = p21.x + 0.8 * xmast; text(p21,"cm"); p22 = p6; p22.x = p22.x + 0.3 * xmast; p22.y = p22.y + 0.25 * xmast; gst_height(0.4 * xmast); project(s1,"DATE"); text(p22,s1); p22 = p15; p22.x = p22.x + 1.0 * xmast; p22.y = p22.y + 0.25 * xmast; text(p22,"M 1:"); p22.x = p22.x + 0.9 * xmast; text(p22,xmast); end # -------------------------------------------------------------------- # End: Planrand und Plankopf --> Fertigteilwerk Koehler # -------------------------------------------------------------------- # -------------------------------------------------------------------- # Drucken der Blattgroesze ueber der Zeichnung # -------------------------------------------------------------------- gst_color(6); gst_height(2.0 * xmast); distance(p3,p4,r10); polar(p3,0,(r10 / 3.0),p28); p28.y = p28.y + (2.0 * xmast); text(p28,s2); p28.x = p28.x + (20.0 * xmast); text(p28,"M 1:"); p28.x = p28.x + (5.0 * xmast); text(p28,xmast); # Zwischenspeicherung von p2 auf p39 fuer spaeteren Einfuegepunkt # der vermaszten Stahlauszuege p39 = p2; # Merge d:\Premium\Data\sbw\wps\TR_M_01U.WPS OK # ----- # |-------------------------------------------------------------------- # | # | Treppenmacro: tr_m_01u.wps # | Beschreibung: Maskeneingabe fuer Treppenantritt unten # | Typ: Auflagerausbildung lang # |-------------------------------------------------------------------- # Integervariablen -------------------------------------------- name(i8,"anzh"); anzh = 2; # Anzahl der Huellwellrohre name(i9,"schal"); schal = 1; # Hilfsvariable name(i11,"einbew"); einbew = 1; # Art der Bewehrung # Realvariablen ----------------------------------------------- name(r3,"last"); last = 3.5; # Belastung name(r4,"lfbr"); lfbr = 80.0; # Laufbreite name(r5,"lfst"); lfst = 16.0; # Laufstaerke name(r6,"lantr"); lantr = 10.601; # Laenge Antritt (min.!) name(r7,"dantr"); dantr = 18.33; # Steigung Antritt name(r8,"dauflu"); dauflu = 10.0; # Dicke Auflager unten name(r9,"tauflu"); tauflu = 10.0; # Auflagertiefe unten name(r10,"dpodu"); dpodu = 20.0; # Dicke Podest unten name(r19,"durh"); durh = 40.0; # Durchm. Huellwellrohre name(r20,"abstq"); # Abstand von aussen name(r21,"abstl"); abstl = 8.0; # Abstand vom Anf. der Treppe # -------------------------------------------------------------------- # Maskeneingabe Treppenabmessung fuer Treppenantritt # -------------------------------------------------------------------- newmask("Treppenantritt: Auflagerausbildung lang"); fillmask(-1,1, "Belastung [kN/m2]:",last,5); fillmask(-1,2, "Treppenlaufbreite [cm]:",lfbr,5); fillmask(-1,3, "Laufstärke [cm]:",lfst,5); fillmask(-1,5, "Steigung Antritt [cm]:",dantr,5); fillmask(-1,6, "Länge Antritt (min!) [cm]:",lantr,5); fillmask(-1,7, "Dicke Podest unten [cm]:",dpodu,5); fillmask(-1,8, "Dicke Auflager unten [cm]:",dauflu,5); fillmask(-1,9, "Tiefe Auflager unten [cm]:",tauflu,5); domask(); # -------------------------------------------------------------------- # Bestimmung der Randabstaende der Huellwellrohre # -------------------------------------------------------------------- abstq = lfbr / 4.0; abstl = tauflu / 2.0; # -------------------------------------------------------------------- # Auswahl, ob am Antritt Hüllwellrohre gesetzt weren # -------------------------------------------------------------------- newslid(); fillslid("Hüllwellrohre am Antritt: JA"); fillslid("Hüllwellrohre am Antritt: NEIN"); doslid(i7); if (i7 = 1) then begin newmask("Daten für Hüllwellrohre"); fillmask(1,1, "Durchmesser [mm]:",durh); fillmask(1,2, "Abstand von außen [cm]:",abstq); fillmask(1,3, "Abst. von Anfang Treppe [cm]:",abstl); domask(); end # Merge d:\Premium\Data\sbw\wps\TR_M_04O.WPS OK # ----- # |-------------------------------------------------------------------- # | # | Treppenmacro: tr_m_04o.wps # | Beschreibung: Maskeneingabe fuer Treppenaustritt # | Typ: durchgehende Bewehrung # |-------------------------------------------------------------------- # Integervariablen ----------------------------------------------- name(i19,"neubew"); neubew = 1; # Art der Bewehrung # Realvariablen ----------------------------------------------- name(r11,"daustr"); daustr = 18.33; # Steigung Austritt name(r14,"dpodo"); dpodo = 20.0; # Dicke Podest oben name(r15,"laustr"); laustr = 46.2; # Laenge Austritt # -------------------------------------------------------------------- # Maskeneingabe Treppenabmessung fuer Treppenaustritt # -------------------------------------------------------------------- newmask("Treppenaustritt: durchg. Bewehrung"); fillmask(-1,1, "Steigung Austritt [cm]:",daustr,5); fillmask(-1,2, "Länge Austritt (min!) [cm]:",laustr,5); fillmask(-1,3, "Dicke Podest oben [cm]:",dpodo,5); domask(); # Merge d:\Premium\Data\sbw\wps\TR_M_MIT.WPS OK # ----- # |-------------------------------------------------------------------- # | # | Treppenmacro: tr_m_mit.wps # | Beschreibung: Maskeneingabe fuer Treppenlauf # |-------------------------------------------------------------------- # Integervariablen ----------------------------------------------- name(i6,"anzst"); anzst = 7; # Anz. Steiungen name(i21,"elfbew"); elfbew = 1; # Art der Bewehrung # Realvariablen ----------------------------------------------- name(r16,"stg"); stg = 18.33; # Steigung name(r17,"auftr"); auftr = 26.0; # Auftritt name(r18,"trw"); # Treppenwinkel name(r98,"pi"); pi = 3.141592654; name(r99,"pihalb"); pihalb = 1.570796327; # -------------------------------------------------------------------- # Maskeneingabe Treppenabmessung fuer Treppenlauf # -------------------------------------------------------------------- newmask("Treppenlauf"); fillmask(-1,1, "Anzahl Steigungen:",anzst,5); fillmask(-1,2, "Steigung [cm]:",stg,5); fillmask(-1,3, "Auftritt [cm]:",auftr,5); domask(); # -------------------------------------------------------------------- # Bestimmung des Treppenwinkels # -------------------------------------------------------------------- p99.x = 0.0; p99.y = 0.0; p99.z = 0.0; p98 = p99; p98.y = p98.y + (stg * xmast); p97 = p98; p97.x = p97.x + (auftr * xmast); angle(p99,p97,trw); # -------------------------------------------------------------------- # Merge d:\Premium\Data\sbw\wps\TR_Z_01U.WPS OK # ----- # |-------------------------------------------------------------------- # | # | Treppenmacro: tr_z_01u.wps # | Beschreibung: Schalplan fuer Treppenantritt # | Typ: Auflagerausbildung lang # |-------------------------------------------------------------------- for i98=1 to 2 do begin if (schal < 2) then begin p1 = p3; p1.x = p1.x + (anzst * auftr); p1.y = p1.y - (anzst * stg * 2.0); end if (schal = 2) then p1.x = p1.x + (anzst * auftr * 3.0); gsl_type(0); # Linietyp ausgezogen # -------------------------------------------------------------------- # Treppenpunkte am Antritt berechnen # -------------------------------------------------------------------- p2 = p1; p2.x = p2.x + lantr; p3 = p2; p3.y = p3.y + dantr; p12 = p1; p12.y = p12.y - dauflu; p11 = p12; p11.x = p11.x + tauflu; p10 = p1; p10.x = p11.x; p10.y = p1.y - dpodu; # -------------------------------------------------------------------- # Hilfslinien bestimmen: p15 -- p16 # -------------------------------------------------------------------- p15 = p10; p15.x = p15.x - 300.0; p16 = p10; p16.x = p16.x + 600.0; # -------------------------------------------------------------------- # Hilfslinien bestimmen: p17 -- p18 # -------------------------------------------------------------------- polar(p2,(trw-pihalb),lfst,p17); polar(p17,trw,-500.0,p17); polar(p17,trw,1000.0,p18); # -------------------------------------------------------------------- inters(p15,p16,p17,p18,p9); line(p3,p2); line(p2,p1); line(p1,p12); line(p12,p11); line(p11,p10); line(p10,p9); # -------------------------------------------------------------------- # -------------------------------------------------------------------- # Nur beim Ersten Durchgang zeichnen # -------------------------------------------------------------------- if (schal = 1) then begin # -------------------------------------------------------------------- # Treppe im Grundrisz fuer Schalplan zeichnen # -------------------------------------------------------------------- p21 = p1; p21.y = p21.y - (15.0 * xmast); p22 = p21; p22.y = p22.y - lfbr; p23 = p21; p23.x = p23.x + tauflu; p24 = p23; p24.y = p22.y; p25 = p21; p25.x = p25.x + lantr; p26 = p25; p26.y = p22.y; line(p21,p22); gsl_type(1); # Linientyp gestrichelt line(p23,p24); gsl_type(0); # Linietyp ausgezogen line(p25,p26); line(p21,p25); line(p22,p26); # -------------------------------------------------------------------- # Treppe in der Seitenansicht bemaszen # -------------------------------------------------------------------- # Hoehenbemaszung p31 = p10; p31.x = p31.x - (2.5 * xmast); p32 = p31; p32.y = p32.y + dpodu; bemassen(p31,p32); p31 = p32; p31.y = p31.y + dantr; bemassen(p32,p31); # Auflager bemaszen p33 = p10; p33.x = p33.x - (1.5 * xmast); p34 = p33; p34.y = p11.y; bemassen(p33,p34); p33 = p34; p33.y = p1.y; bemassen(p34,p33); # horizontale Bemaszung oben p35 = p10; p35.y = p3.y + (anzst * stg) + (0.5 * xmast); p35.x = p35.x - tauflu; p36 = p35; p36.x = p36.x + lantr; bemassen(p35,p36); # horizontale Bemaszung unten p37 = p1; p37.y = p37.y + (0.5 * xmast); p38 = p37; p38.x = p38.x + abstl; bemassen(p37,p38); p37 = p1; p37.y = p10.y - (1.5 * xmast); p38 = p37; p38.x = p10.x; bemassen(p37,p38); # p38.y = p38.y - (1.5 * xmast); p37 = p38; p37.x = p9.x; bemassen(p38,p37); # -------------------------------------------------------------------- # Treppe im Grundrisz bemaszen # -------------------------------------------------------------------- if (i7 = 1) then begin p40 = p21; p40.x = p40.x - (1.0 * xmast); p41 = p40; p41.y = p41.y - abstq; bemassen(p40,p41); p40 = p41; p40.y = p22.y + abstq; bemassen(p41,p40); p41 = p40; p41.y = p22.y; bemassen(p40,p41); end # -------------------------------------------------------------------- # Huellwellrohre am Antritt zeichnen # -------------------------------------------------------------------- # Draufsicht if (i7 = 1) then begin p29 = p21; p29.x = p29.x + abstl; p29.y = p29.y - abstq; circle(p29,(durh/20.0)); p29.y = p29.y - lfbr + (abstq * 2.0); circle(p29,(durh/20.0)); # Im Schnitt zeichnen ------------------------- p29 = p1; p29.x = p29.x + abstl - (durh/20.0); p30 = p29; p30.y = p30.y - dauflu; gsl_type(1); line(p29,p30); p29.x = p29.x + (durh/20.0); p30.x = p30.x + (durh/20.0); gsl_type(0); line(p29,p30); p29.x = p29.x + (durh/20.0); p30.x = p30.x + (durh/20.0); gsl_type(1); line(p29,p30); gsl_type(0); end end # endif schal=1 # -------------------------------------------------------------------- # Nur beim Zweiten Durchgang zeichnen # -------------------------------------------------------------------- if (schal = 2) then begin # -------------------------------------------------------------------- # Hilfslinien fuer Bewehrungsformen bestimmen # -------------------------------------------------------------------- # Hilfslinie p43 -- p44 parallel zu p1 -- p2 # -------------------------------------------------------------------- p43 = p1; p43.y = p43.y - betdo; p43.x = p43.x - 500.0; p44 = p43; p44.x = p1.x + 500.0; # line(p43,p44); # -------------------------------------------------------------------- # Hilfslinie p45 -- p46 parallel zu p12 -- p11 # -------------------------------------------------------------------- p45 = p12; p45.y = p45.y + betdu; p45.x = p45.x - 500.0; p46 = p45; p46.x = p1.x + 500.0; # line(p45,p46); # -------------------------------------------------------------------- # Hilfslinie p47 -- p48 parallel zu p9 -- p10 # -------------------------------------------------------------------- p47 = p10; p47.y = p47.y + betdu; p47.x = p47.x - 500.0; p48 = p47; p48.x = p9.x + 500.0; # line(p47,p48); # -------------------------------------------------------------------- # Hilfslinie p49 -- p50 parallel zu p10 -- p11 # -------------------------------------------------------------------- p49 = p10; p49.x = p49.x + betdu; p49.y = p49.y - 500.0; p50 = p49; p50.y = p11.y + 500.0; # line(p49,p50); end # endif schal=2 # Merge d:\Premium\Data\sbw\wps\TR_Z_MIT.WPS OK # ----- # |-------------------------------------------------------------------- # | # | Treppenmacro: tr_z_mit.wps # | Beschreibung: Schal- und Bewehrungsplan # | fuer Treppenlauf # |-------------------------------------------------------------------- # -------------------------------------------------------------------- # Treppenpunkte fuer Treppenlauf berechnen und zeichnen # -------------------------------------------------------------------- for i99=0 to (anzst - 3) do begin p4 = p3; p4.x = p4.x + auftr; line(p3,p4); p3=p4; p3.y = p3.y + stg; line(p4,p3); end if (schal = 1) then begin # -------------------------------------------------------------------- # Treppenpunkte fuer Treppe im Grundrisz berechnen und zeichnen # -------------------------------------------------------------------- for i99=0 to (anzst - 3) do begin p27 = p25; p27.x = p27.x + auftr; p28 = p27; p28.y = p26.y; line(p25,p27); line(p26,p28); line(p27,p28); p25 = p27; p26 = p28; end # -------------------------------------------------------------------- # Treppe in der Seitenansicht bemaszen # -------------------------------------------------------------------- for i97=0 to (anzst - 3) do begin p32 = p31; p32.y = p32.y + stg; bemassen(p31,p32); p31 = p32; end # horizontale Bemassung for i97=0 to (anzst - 2) do begin p35 = p36; p35.x = p35.x + auftr; bemassen(p35,p36); p36 = p35; end end # Merge d:\Premium\Data\sbw\wps\TR_Z_04O.WPS OK # ----- # |-------------------------------------------------------------------- # | # | Treppenmacro: tr_z_04o.wps # | Beschreibung: Schalplan fuer Treppenaustritt # | Typ: durchg. Bewehrung # |-------------------------------------------------------------------- if (schal < 2) then begin p4 = p3; p99 = p3; end if (schal = 2) then p99.x = p99.x + (anzst * auftr * 3.0); # -------------------------------------------------------------------- # Treppenpunkte am Austritt berechnen und zeichnen # -------------------------------------------------------------------- p4= p3; p4.x = p4.x + auftr; line(p3,p4); p5 = p4; p5.y = p5.y + daustr; p6 = p5; p6.x = p6.x + laustr; p7 = p6; p7.y = p7.y - dpodo; # -------------------------------------------------------------------- # Hilfslinien bestimmen: p19 -- p20 # -------------------------------------------------------------------- p19 = p7; p19.x = p19.x - 300.0; p20 = p7; p20.x = p20.x + 600.0; # -------------------------------------------------------------------- inters(p19,p20,p17,p18,p8); line(p4,p5); line(p5,p6); line(p7,p8); # Unterkante der Laufplatte zeichnen line(p8,p9); # -------------------------------------------------------------------- # Nur beim ersten Durchgang zeichnen # -------------------------------------------------------------------- if (schal = 1) then begin # -------------------------------------------------------------------- # Treppenpunkte im Grundrisz berechnen und zeichnen # -------------------------------------------------------------------- p27 = p25; p27.x = p27.x + auftr; p28 = p26; p28.x = p28.x + auftr; line(p25,p27); line(p26,p28); line(p27,p28); p25 = p27; p25.x = p25.x + laustr; p26 = p28; p26.x = p26.x + laustr; line(p27,p25); line(p28,p26); # -------------------------------------------------------------------- # Treppe in der Seitenansicht bemaszen # -------------------------------------------------------------------- p32 = p31; p32.y = p32.y + daustr; bemassen(p31,p32); # Gesamthoehenmasz links bemaszen **************************** p33 = p31; p33.x = p33.x - (1.0 * xmast); p33.y = p1.y; p34 = p33; p34.y = p34.y + dantr + daustr + (anzst -2) * stg; bemassen(p33,p34); # Gesamthoehenmasz rechts bemaszen **************************** p33 = p6; p33.x = p33.x + (1.0 * xmast); p34 = p33; p34.y = p34.y - dpodo; bemassen(p33,p34); p33 = p34; p33.y = p7.y; bemassen(p34,p33); p33 = p34; p33.y = p9.y; bemassen(p34,p33); # Gesamthoehe rechts bemaszen **************************** p33 = p6; p33.x = p33.x + (2.0 * xmast); p34 = p33; p34.y = p9.y; bemassen(p33,p34); # Geamtbreite der Treppe bemaszen (oben) ***************** p35 = p1; p35.y = p36.y + (1.0 * xmast); if (i96 = 1) then begin p35 = p2; p35.y = p36.y + (1.0 * xmast); i96 = 0; end p36 = p35; p36.x = p5.x; bemassen(p35,p36); # Geamtbreite der Treppe bemaszen (unten) ****************** p37 = p9; p37.y = p37.y - (1.5 * xmast); p38 = p37; p38.y = p9.y - (1.5 * xmast); p38.x = p8.x; bemassen(p37,p38); # Unterkante der Laufplatte bemaszen *********************** polar(p9,(trw-pihalb),lfst,p37); polar(p8,(trw-pihalb),lfst,p38); bemassen(p37,p38); # -------------------------------------------------------------------- # Treppe im Grundrisz bemaszen # -------------------------------------------------------------------- p40 = p25; p40.x = p40.x + (1.5 * xmast); p41 = p40; p41.y = p41.y - lfbr; bemassen(p40,p41); end # -------------------------------------------------------------------- # Nur beim Zweiten Durchgang zeichnen # -------------------------------------------------------------------- if (schal = 2) then begin # -------------------------------------------------------------------- # Hilfslinien fuer Bewehrungsformen bestimmen # -------------------------------------------------------------------- # Hilfslinie p51 -- p52 parallel zu p5 -- p6 # -------------------------------------------------------------------- p51 = p5; p51.x = p51.x - 500.0; p51.y = p51.y - betdo; p52 = p51; p52.x = p5.x + 500.0; # line(p51,p52); # -------------------------------------------------------------------- # Hilfslinie p55 -- p56 parallel zu p8 -- p7 # -------------------------------------------------------------------- p55 = p8; p55.x = p55.x - 500.0; p55.y = p55.y + betdo; p56 = p55; p56.x = p7.x + 500.0; # line(p55,p56); # -------------------------------------------------------------------- # Hilfslinie p59 -- p60 parallel zu p4 -- p5 # -------------------------------------------------------------------- p59 = p5; p59.x = p59.x + betdo; p59.y = p59.y + 500.0; p60 = p59; p60.y = p4.y - 500.0; # line(p59,p60); # -------------------------------------------------------------------- # Hilfslinie p61 -- p62 parallel zur Unterkante der Laufplatte # im Abstand betdu # -------------------------------------------------------------------- polar(p17,(trw+pihalb),betdu,p61); polar(p18,(trw+pihalb),betdu,p62); # line(p61,p62); # -------------------------------------------------------------------- # Hilfslinie p63 -- p64 parallel zu den Stufen im Abstan betdo: # -------------------------------------------------------------------- polar(p17,(trw+pihalb),(lfst-betdo),p63); polar(p18,(trw+pihalb),(lfst-betdo),p64); # line(p63,p64); end # endif schal=2 # Merge d:\Premium\Data\sbw\wps\TR_Z_BEW.WPS OK # ----- # |-------------------------------------------------------------------- # | # | Treppenmacro: tr_z_bew.wps # | Beschreibung: Bewehrung fuer alle Varianten # |-------------------------------------------------------------------- # Integervariablen ******************* name(i30,"aecku"); aecku = 0; # bwf8 Anzahl Ecken unten name(i31,"aecko"); aecko = 0; # bwf8 Anzahl Ecken oben # ******* Punktevorbelegung fuer die Biegeform bwf8 *********** p89.x = 0.0; p89.y = 0.0; p89.z = 0.0; p90.x = 0.0; p90.y = 0.0; p90.z = 0.0; p91.x = 0.0; p91.y = 0.0; p91.z = 0.0; p92.x = 0.0; p92.y = 0.0; p92.z = 0.0; p93.x = 0.0; p93.y = 0.0; p93.z = 0.0; p94.x = 0.0; p94.y = 0.0; p94.z = 0.0; p95.x = 0.0; p95.y = 0.0; p95.z = 0.0; p96.x = 0.0; p96.y = 0.0; p96.z = 0.0; # -------------------------------------------------------------------- # Nur beim zweiten Durchlauf die Bewehrung zeichnen # -------------------------------------------------------------------- # # Punkte berechnen fuer die Bewehrung # Treppenantritt Typ: Auflagerausbildung lang # # -------------------------------------------------------------------- if ( (schal = 2) AND (einbew = 1) ) then begin if (lantr <= 75) then begin # ---------------------------------------------------------------- # Biegeform bwf1 # ---------------------------------------------------------------- inters(p43,p44,p61,p62,p65); p66 = p1; p66.x = p66.x + betdo; p66.y = p66.y - betdo; p67 = p12; p67.x = p66.x; p67.y = p67.y + betdu; inters(p45,p46,p61,p62,p68); polar(p68,trw,70,p69); distance(p65,p66,r22); i10 = r22; distance(p66,p67,r23); i22 = r23; distance(p67,p68,r24); i23 = r24; distance(p68,p69,r25); cos(trw,r26); r27 = r25 * r26; sin(trw,r26); r28 = r25 * r26; # ********** Modelldaten fuer Biegeform bwf1 ******************* BWFORM("X2"); bogen = 0; anzahl = 6; durchm = 12; abstand = lfbr / anzahl; anzeck = 5; para_a = -i10; para_b = 0; para_c = 0; para_d = -i22; para_e = i23; para_f = 0; para_g = r27; para_h = r28; hakenhint = 0; hakenvorn = 0; stabmod() ; # ********** Geometriedaten fuer Biegeform bwf1 *************** stabanf = p1; stabanf.x = stabanf.x + betdo; stabanf.y = stabanf.y - betdo; lageposnr.x = stabanf.x - 20.0; lageposnr.y = stabanf.y + 30.0; polar(p66,0,(r22/2.0),vtlendpkt); vlposzei = 3; posdrewi = 0.0; stabeiwi = 0.0; verlegewinkel = 0; ansicht = 3; stabzei = 5; stabspieg = 0; verteilzei = 0; stabecke = 2; posnrzei = 6; posnrli = 1; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf1 ****************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabanf = p9; stabanf.x = stabanf.x - 100; stabanf.y = stabanf.y - 100; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); end if (lantr > 75) then begin # ---------------------------------------------------------------- # Biegeform bwf2 # ---------------------------------------------------------------- p66 = p1; p66.x = p66.x + betdo; p66.y = p66.y - betdo; p67 = p12; p67.x = p66.x; p67.y = p67.y + betdu; p65 = p66; p65.x = p65.x + 60.0; p68 = p67; p68.x = p68.x + 60.0; # ********** Modelldaten fuer Biegeform bwf2 ******************* BWFORM("A3"); bogen = 0; anzahl = 6; durchm = 12; abstand = lfbr / anzahl; anzeck = 3; para_a = 60.0; para_b = dauflu - betdu - betdo; para_c = 60.0; hakenhint = 0; hakenvorn = 0; stabmod(); # ********** Geometriedaten fuer Biegeform bwf2 *************** stabanf = p66; polar(p67,pihalb,(para_b/2.0),vtlendpkt); polar(vtlendpkt,(1.5 * pihalb),30.0,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = -90.0; stabspieg = 0; verlegewinkel = 0; ansicht = 3; posnrli = 1; stabzei = 5; verteilzei = 0; stabecke = 2; posnrzei = 6; posnrli = 1; stabspieg = 0; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf2 *************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabanf = p1; stabanf.x = stabanf.x - 100; stabanf.y = stabanf.y - 100; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); # ---------------------------------------------------------------- # Biegeform bwf3 # ---------------------------------------------------------------- inters(p49,p50,p43,p44,p70); inters(p49,p50,p47,p48,p71); p69 = p70; p69.x = p69.x + 60.0; p72 = p71; p72.x = p72.x + 60.0; # ********** Modelldaten fuer Biegeform bwf3 ******************* BWFORM("A3"); bogen = 0; anzahl = 6; durchm = 12; abstand = lfbr / anzahl; anzeck = 3; para_a = 60.0; para_b = dpodu - betdu - betdo; para_c = 60.0; hakenhint = 0; hakenvorn = 0; stabmod(); # ********** Geometriedaten fuer Biegeform bwf3 *************** stabanf = p70; polar(p71,pihalb,(para_b/2.0),vtlendpkt); polar(vtlendpkt,(-1.5 * pihalb),30.0,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = -90.0; stabspieg = 0; verlegewinkel = 0; ansicht = 3; posnrli = 1; stabzei = 5; verteilzei = 0; stabecke = 2; posnrzei = 6; posnrli = 1; stabspieg = 0; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf3 *************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabanf = p1; stabanf.y = stabanf.y - 100; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); # ---------------------------------------------------------------- # Biegeform bwf11 # ---------------------------------------------------------------- inters(p43,p44,p61,p62,p19); polar(p19,trw,60.0,p20); p18 = p1; p18.x = p18.x + betdo; p18.y = p18.y - betdo; distance(p18,p19,r29); i24 = r29; distance(p19,p20,r30); cos(trw,r26); r31 = r30 * r26; sin(trw,r26); r32 = r30 * r26; # ********** Modelldaten fuer Biegeform bwf11 ******************* BWFORM("C1"); bogen = 0; anzahl = 6; durchm = 12; abstand = lfbr / anzahl; anzeck = 3; para_a = i24; para_b = r31; para_c = r32; hakenhint = 0; hakenvorn = 0; stabmod(); # ********** Geometriedaten fuer Biegeform bwf11 *************** stabanf = p19; polar(p18,0,(r29/3.0),vtlendpkt); polar(vtlendpkt,pihalb,20.0,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = 180.0; stabspieg = 1; verlegewinkel = 0; ansicht = 3; stabzei = 5; verteilzei = 0; stabecke = 2; posnrzei = 6; posnrli = 1; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf11 ****************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabecke = 1; stabanf = p9; stabanf.x = stabanf.x + 200 - (para_a / 2.0); stabanf.y = stabanf.y - 235; lageposnr = stabanf; lageposnr.y = lageposnr.y - 15; stabgeo(); # ---------------------------------------------------------------- # Biegeform bwf12 # ---------------------------------------------------------------- inters(p47,p48,p63,p64,p22); polar(p22,trw,60.0,p23); p21 = p10; p21.x = p21.x + betdu; p21.y = p21.y + betdu; distance(p21,p22,r33); i25 = r33; distance(p22,p23,r34); cos(trw,r26); r35 = r34 * r26; sin(trw,r26); r36 = r34 * r26; # ********** Modelldaten fuer Biegeform bwf12 ******************* BWFORM("C1"); bogen = 0; anzahl = 6; durchm = 12; abstand = lfbr / anzahl; anzeck = 3; para_a = i25; para_b = r35; para_c = r36; hakenhint = 0; hakenvorn = 0; stabmod(); # ********** Geometriedaten fuer Biegeform bwf12 *************** stabanf = p22; polar(p21,0,(r33/3.0),vtlendpkt); polar(vtlendpkt,-pihalb,20,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = 180.0; stabspieg = 1; verlegewinkel = 0; ansicht = 3; stabzei = 5; verteilzei = 0; stabecke = 2; posnrzei = 6; posnrli = 0; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf12 ****************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabecke = 2; stabanf = p9; stabanf.x = stabanf.x - 100; stabanf.y = stabanf.y - 300; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); end # ---------------------------------------------------------------- # Biegeform bwf8: Punkte fuer Antritt # ---------------------------------------------------------------- aecku = 4; inters(p43,p44,p49,p50,p90); inters(p49,p50,p61,p62,p91); p92 = p91; inters(p47,p48,p49,p50,p15); if (p91.y <= p15.y) then begin inters(p49,p50,p47,p48,p91); inters(p47,p48,p61,p62,p92); end end # e_einbew=1 # -------------------------------------------------------------------- # Punkte berechnen fuer die Bewehrung fuer # Treppenaustritt Typ: Auflagerausbildung lang # -------------------------------------------------------------------- if ( (schal = 2) AND (secbew = 1) ) then begin if (laustr <= 75) then begin # ---------------------------------------------------------------- # Biegeform bwf4 # ---------------------------------------------------------------- p73 = p6; p73.x = p73.x - betdu; p73.y = p73.y - betdo; p74 = p5; p74.x = p74.x + betdo; p74.y = p74.y - betdo; p75 = p74; p75.y = p13.y + betdu; p76 = p75; p76.x = p73.x; p76.y = p75.y; distance(p73,p74,r37); distance(p74,p75,r38); # ********** Modelldaten fuer Biegeform bwf4 ******************* BWFORM("B1"); bogen = 0; anzahl = 6; durchm = 8; abstand = lfbr / anzahl; anzeck = 2; hakenhint = 1; hakenvorn = 1; para_a = r37; para_b = r38; stabmod(); # ********** Geometriedaten fuer Biegeform bwf4 *************** stabanf = p74; polar(p73,pi,5.0,vtlendpkt); polar(vtlendpkt,trw,30.0,lageposnr); vlposzei = 3; stabspieg = 0; posdrewi = 0.0; verlegewinkel = 0; stabeiwi = 0.0; ansicht = 3; stabzei = 5; verteilzei = 0; stabecke = 1; posnrzei = 6; posnrli = 0; stabspieg = 1; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf4 *************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabanf = p1; stabanf.x = stabanf.x + 100; stabanf.y = stabanf.y - 100; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); end if ( (laustr > 40) and (laustr <= 75) ) then begin # ---------------------------------------------------------------- # Biegeform bwf5 # ---------------------------------------------------------------- inters(p61,p62,p59,p60,p81); inters(p51,p52,p59,p60,p80); inters(p57,p58,p51,p52,p79); inters(p57,p58,p55,p56,p78); inters(p59,p60,p55,p56,p77); distance(p77,p78,r39); i26 = r39; distance(p78,p79,r40); i27 = r40; distance(p79,p80,r41); i28 = r41; distance(p80,p81,r42); i29 = r42; # ********** Modelldaten fuer Biegeform bwf5 ******************* BWFORM("A4"); bogen = 0; anzahl = 6; durchm = 8; abstand = lfbr / anzahl; hakenhint = 0; hakenvorn = 0; anzeck = 3; para_a = 0.0; para_b = i26; para_c = i27; para_d = i28; para_e = i29; stabmod(); # ********** Geometriedaten fuer Biegeform bwf5 *************** stabanf = p79; polar(p79,pi,(r41/2.0),vtlendpkt); polar(vtlendpkt,pihalb,20.0,lageposnr); vlposzei = 3; posdrewi = 0.0; stabspieg = 0; stabeiwi = 90.0; verlegewinkel = 0; ansicht = 3; stabzei = 5; verteilzei = 0; stabecke = 4; posnrzei = 6; posnrli = 1; stabspieg = 0; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf5 *************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabecke = 5; stabanf = p1; stabanf.x = stabanf.x + 200; stabanf.y = stabanf.y - 100; lageposnr = stabanf; lageposnr.x = lageposnr.x + 15; lageposnr.y = lageposnr.y - 30; stabgeo(); end if (laustr > 75) then begin # ---------------------------------------------------------------- # Biegeform bwf6 # ---------------------------------------------------------------- p83 = p6; p83.x = p83.x - betdu; p83.y = p83.y - betdo; p82 = p83; p82.x = p82.x - 60.0; p84 = p14; p84.x = p84.x - betdu; p84.y = p84.y + betdu; p85 = p84; p85.x = p85.x - 60.0; distance(p82,p83,r43); distance(p83,p84,r44); distance(p84,p85,r45); # ********** Modelldaten fuer Biegeform bwf6 ******************* BWFORM("A3"); bogen = 0; anzahl = 6; durchm = 8; abstand = lfbr / anzahl; hakenhint = 0; hakenvorn = 0; anzeck = 3; para_a = r43; para_b = r44; para_c = r45; stabmod(); # ********** Geometriedaten fuer Biegeform bwf6 *************** stabanf = p83; polar(p83,-pihalb,(r44/2.0),vtlendpkt); polar(vtlendpkt,(pihalb/2),30.0,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = 90.0; stabspieg = 1; verlegewinkel = 0; ansicht = 3; posnrli = 0; stabzei = 5; verteilzei = 0; stabecke = 2; posnrzei = 6; posnrli = 0; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf6 *************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabecke = 1; stabanf = p1; stabanf.x = stabanf.x + 200; stabanf.y = stabanf.y - 100; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); # ---------------------------------------------------------------- # Biegeform bwf7 # ---------------------------------------------------------------- inters(p57,p58,p51,p52,p87); inters(p57,p58,p55,p56,p88); p86 = p87; p86.x = p86.x - 60.0; p24 = p88; p24.x = p24.x - 60.0; distance(p86,p87,r46); distance(p87,p88,r47); distance(p88,p24,r48); # ********** Modelldaten fuer Biegeform bwf7 ******************* BWFORM("A3"); bogen = 0; anzahl = 6; durchm = 8; abstand = lfbr / anzahl; hakenhint = 0; hakenvorn = 0; anzeck = 3; para_a = r46; para_b = r47; para_c = r48; stabmod(); # ********** Geometriedaten fuer Biegeform bwf7 *************** stabanf = p88; polar(p88,pihalb,(r47/3.0),vtlendpkt); polar(vtlendpkt,(-pihalb/2),30.0,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = 90.0; stabspieg = 1; verlegewinkel = 0; ansicht = 3; posnrli = 0; stabzei = 5; verteilzei = 0; stabecke = 3; posnrzei = 6; posnrli = 0; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf7 *************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabecke = 1; stabanf = p1; stabanf.x = stabanf.x + 300; stabanf.y = stabanf.y - 100; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); end if (laustr <= 40) then begin # ---------------------------------------------------------------- # Biegeform bwf8: Punkte fuer Austritt # ---------------------------------------------------------------- aecko = 4; inters(p61,p62,p57,p58,p93); inters(p57,p58,p51,p52,p94); inters(p51,p52,p59,p60,p95); inters(p59,p60,p61,p62,p96); end if ( (laustr > 40) AND (laustr <= 75) ) then begin # ---------------------------------------------------------------- # Biegeform bwf8: Punkte fuer Austritt # ---------------------------------------------------------------- inters(p61,p62,p57,p58,p93); inters(p61,p62,p51,p52,p16); if (p16.x <= p93.x) then begin aecko = 2; inters(p61,p62,p51,p52,p93); inters(p51,p52,p57,p58,p94); end if (p16.x > p93.x) then begin aecko = 1; inters(p61,p62,p57,p58,p93); end end if (laustr > 75) then begin # ---------------------------------------------------------------- # Biegeform bwf8: Punkte fuer Austritt # ---------------------------------------------------------------- aecko = 2; inters(p61,p62,p51,p52,p93); inters(p57,p58,p51,p52,p94); end # ---------------------------------------------------------------- # Biegeform bwf9 # ---------------------------------------------------------------- if (laustr > 75) then begin inters(p57,p58,p51,p52,p99); inters(p51,p52,p63,p64,p98); polar(p98,trw,-60.0,p97); distance(p97,p98,r49); distance(p98,p99,r50); cos(trw,r26); r51 = r49 * r26; sin(trw,r26); r52 = r49 * r26; # ********** Modelldaten fuer Biegeform bwf9 ******************* BWFORM("C1"); bogen = 0; anzahl = 6; durchm = 12; abstand = lfbr / anzahl; anzeck = 3; para_a = r50; para_b = r51; para_c = -r52; hakenhint = 0; hakenvorn = 0; stabmod(); # ********** Geometriedaten fuer Biegeform bwf9 *************** stabanf = p98; polar(p98,trw,(-r49/3.0),vtlendpkt); polar(vtlendpkt,(trw+pihalb),45.0,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = 180.0; stabspieg = 0; verlegewinkel = 0; ansicht = 3; stabzei = 5; verteilzei = 0; stabecke = 2; posnrzei = 6; posnrli = 1; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf9 ****************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabanf = p9; stabanf.x = stabanf.x - 100; stabanf.y = stabanf.y - 200; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); # ---------------------------------------------------------------- # Biegeform bwf10 # ---------------------------------------------------------------- inters(p55,p56,p63,p64,p16); polar(p16,trw,-60,p15); inters(p55,p56,p57,p58,p17); distance(p15,p16,r49); distance(p16,p17,r50); cos(trw,r26); r51 = r49 * r26; sin(trw,r26); r52 = r49 * r26; # ********** Modelldaten fuer Biegeform bwf10 ******************* BWFORM("C1"); bogen = 0; anzahl = 6; durchm = 12; abstand = lfbr / anzahl; anzeck = 3; para_a = r50; para_b = r51; para_c = -r52; hakenhint = 0; hakenvorn = 0; stabmod(); # ********** Geometriedaten fuer Biegeform bwf10 *************** stabanf = p16; polar(p15,trw,(r49/3.0),vtlendpkt); polar(vtlendpkt,(trw+pihalb),45.0,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = 180.0; stabspieg = 0; verlegewinkel = 0; ansicht = 3; stabzei = 5; verteilzei = 0; stabecke = 2; posnrzei = 6; posnrli = 1; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf10 ****************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabanf = p9; stabanf.x = stabanf.x + 50; stabanf.y = stabanf.y - 200; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); end end #e_secbew=1 # ******************************************************************** # Punkte berechnen fuer die Bewehrung fuer # Treppenantritt Typ: Auflagerausbildung kurz # ******************************************************************** if ( (schal = 2) AND (zwebew = 1) ) then begin # ---------------------------------------------------------------- # Biegeform bwf1 # ---------------------------------------------------------------- inters(p43,p44,p61,p62,p65); p66 = p1; p66.x = p66.x + betdo; p66.y = p66.y - betdo; p67 = p12; p67.x = p66.x; p67.y = p67.y + betdu; inters(p45,p46,p61,p62,p68); polar(p68,trw,70,p69); distance(p65,p66,r22); i10 = r22; distance(p66,p67,r23); i22 = r23; distance(p67,p68,r24); i23 = r24; distance(p68,p69,r25); cos(trw,r26); r27 = r25 * r26; sin(trw,r26); r28 = r25 * r26; # ********** Modelldaten fuer Biegeform bwf1 ******************* BWFORM("X2"); bogen = 0; anzahl = 6; durchm = 12; abstand = lfbr / anzahl; anzeck = 5; para_a = -i10; para_b = 0; para_c = 0; para_d = -i22; para_e = i23; para_f = 0; para_g = r27; para_h = r28; hakenhint = 0; hakenvorn = 0; stabmod() ; # ********** Geometriedaten fuer Biegeform bwf1 *************** stabanf = p1; stabanf.x = stabanf.x + betdo; stabanf.y = stabanf.y - betdo; lageposnr.x = stabanf.x - 20.0; lageposnr.y = stabanf.y + 30.0; polar(p66,0,(r22/2.0),vtlendpkt); vlposzei = 3; posdrewi = 0.0; stabeiwi = 0.0; verlegewinkel = 0; ansicht = 3; stabzei = 5; stabspieg = 0; verteilzei = 0; stabecke = 2; posnrzei = 6; posnrli = 1; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf1 ****************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabanf = p1; stabanf.x = stabanf.x - 100; stabanf.y = stabanf.y - 100; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); # ----------------------------------------- ----------------------- # Biegeform bwf8: Punkte fuer Antritt # ---------------------------------------------------------------- aecku = 4; inters(p43,p44,p49,p50,p90); inters(p49,p50,p61,p62,p91); p92 = p91; inters(p47,p48,p49,p50,p15); if (p91.y <= p15.y) then begin inters(p49,p50,p47,p48,p91); inters(p47,p48,p61,p62,p92); end end # e_zwebew=1 # ******************************************************************** # Punkte berechnen fuer die Bewehrung fuer # Treppenaustritt Typ: Auflagerausbildung kurz # ******************************************************************** if ( (schal = 2) AND (siebew = 1) ) then begin # ---------------------------------------------------------------- # Biegeform bwf8 fuer Auflagerausbildung kurz # ---------------------------------------------------------------- aecko = 4; inters(p61,p62,p57,p58,p93); inters(p57,p58,p51,p52,p94); inters(p51,p52,p59,p60,p95); inters(p59,p60,p61,p62,p96); # ---------------------------------------------------------------- # Biegeform bwf4 # ---------------------------------------------------------------- p73 = p6; p73.x = p73.x - betdu; p73.y = p73.y - betdo; p74 = p5; p74.x = p74.x + betdo; p74.y = p74.y - betdo; p75 = p74; p75.y = p13.y + betdu; p76 = p75; p76.x = p73.x; p76.y = p75.y; distance(p73,p74,r37); distance(p74,p75,r38); # ********** Modelldaten fuer Biegeform bwf4 ******************* BWFORM("B1"); bogen = 0; anzahl = 6; durchm = 8; abstand = lfbr / anzahl; anzeck = 2; hakenhint = 1; hakenvorn = 1; para_a = r37; para_b = r38; stabmod(); # ********** Geometriedaten fuer Biegeform bwf4 *************** stabanf = p74; polar(p73,pi,5.0,vtlendpkt); polar(vtlendpkt,trw,30.0,lageposnr); vlposzei = 3; stabspieg = 0; posdrewi = 0.0; verlegewinkel = 0; stabeiwi = 0.0; ansicht = 3; stabzei = 5; verteilzei = 0; stabecke = 1; posnrzei = 6; posnrli = 0; stabspieg = 1; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf4 *************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabanf = p1; stabanf.x = stabanf.x + 100; stabanf.y = stabanf.y - 100; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); end # e_siebew=1 # ******************************************************************** # Punkte berechnen fuer die Bewehrung fuer # Treppenantritt Typ: Tronsole und Fuszausbildung # ******************************************************************** if (schal = 2) then begin if ( (drebew = 1) OR (funbew = 1) ) then begin if (lantr <= 65.0) then begin # ---------------------------------------------------------------- # Biegeform bwf8 fuer Tronsole -- Antritt # ---------------------------------------------------------------- aecku = 4; inters(p43,p44,p61,p62,p89); inters(p43,p44,p49,p50,p90); inters(p49,p50,p61,p62,p91); p92 = p91; inters(p47,p48,p49,p50,p15); if (p91.y <= p15.y) then begin inters(p49,p50,p47,p48,p91); inters(p47,p48,p61,p62,p92); end end if (lantr > 65.0) then begin # ---------------------------------------------------------------- # Biegeform bwf3 # ---------------------------------------------------------------- inters(p49,p50,p43,p44,p70); inters(p49,p50,p47,p48,p71); p69 = p70; p69.x = p69.x + 60.0; p72 = p71; p72.x = p72.x + 60.0; # ********** Modelldaten fuer Biegeform bwf3 ******************* BWFORM("A3"); bogen = 0; anzahl = 6; durchm = 12; abstand = lfbr / anzahl; anzeck = 3; hakenhint = 0; hakenvorn = 0; para_a = 60.0; para_b = dpodu - betdu - betdo; para_c = 60.0; stabmod(); # ********** Geometriedaten fuer Biegeform bwf3 *************** stabanf = p70; polar(p71,pihalb,(para_b/2.0),vtlendpkt); polar(vtlendpkt,(-1.5 * pihalb),30.0,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = -90.0; stabspieg = 0; verlegewinkel = 0; ansicht = 3; posnrli = 1; stabzei = 5; verteilzei = 0; stabecke = 2; posnrzei = 6; posnrli = 0; stabspieg = 0; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf3 *************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabanf = p1; stabanf.y = stabanf.y - 100; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); # ---------------------------------------------------------------- # Biegeform bwf8 fuer Tronsole -- Antritt # ---------------------------------------------------------------- aecku = 4; p89.x = 0.0; p89.y = 0.0; p89.z = 0.0; p90.x = 0.0; p90.y = 0.0; p90.z = 0.0; inters(p49,p50,p61,p62,p91); p92 = p91; inters(p47,p48,p49,p50,p15); if (p91.y <= p15.y) then begin inters(p49,p50,p47,p48,p91); inters(p47,p48,p61,p62,p92); end # ---------------------------------------------------------------- # Biegeform bwf11 # ---------------------------------------------------------------- inters(p43,p44,p61,p62,p19); polar(p19,trw,60.0,p20); p18 = p1; p18.x = p18.x + betdo; p18.y = p18.y - betdo; distance(p18,p19,r29); i24 = r29; distance(p19,p20,r30); cos(trw,r26); r31 = r30 * r26; sin(trw,r26); r32 = r30 * r26; # ********** Modelldaten fuer Biegeform bwf11 ******************* BWFORM("C1"); bogen = 0; anzahl = 6; durchm = 12; abstand = lfbr / anzahl; anzeck = 3; hakenhint = 0; hakenvorn = 0; para_a = i24; para_b = r31; para_c = r32; stabmod(); # ********** Geometriedaten fuer Biegeform bwf11 *************** stabanf = p19; polar(p18,0,(r29/3.0),vtlendpkt); polar(vtlendpkt,pihalb,20.0,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = 180.0; stabspieg = 1; verlegewinkel = 0; ansicht = 3; stabzei = 5; verteilzei = 0; stabecke = 2; posnrzei = 6; posnrli = 1; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf11 ****************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabecke = 1; stabanf = p9; stabanf.x = stabanf.x + 200 - (para_a / 2.0); stabanf.y = stabanf.y - 235; lageposnr = stabanf; lageposnr.y = lageposnr.y - 15; stabgeo(); # ---------------------------------------------------------------- # Biegeform bwf12 # ---------------------------------------------------------------- inters(p47,p48,p63,p64,p22); polar(p22,trw,60.0,p23); inters(p49,p50,p47,p48,p21); distance(p21,p22,r33); i25 = r33; distance(p22,p23,r34); cos(trw,r26); r35 = r34 * r26; sin(trw,r26); r36 = r34 * r26; # ********** Modelldaten fuer Biegeform bwf12 ******************* BWFORM("C1"); bogen = 0; anzahl = 6; durchm = 12; abstand = lfbr / anzahl; anzeck = 3; hakenhint = 0; hakenvorn = 0; para_a = i25; para_b = r35; para_c = r36; stabmod(); # ********** Geometriedaten fuer Biegeform bwf12 *************** stabanf = p22; polar(p21,0,(r33/3.0),vtlendpkt); polar(vtlendpkt,-pihalb,20,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = 180.0; stabspieg = 1; verlegewinkel = 0; ansicht = 3; stabzei = 5; verteilzei = 0; stabecke = 2; posnrzei = 6; posnrli = 0; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf12 ****************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabecke = 2; stabanf = p9; stabanf.x = stabanf.x - 100; stabanf.y = stabanf.y - 300; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); end end # e_drebew=1 und e_funbew=1 end # e_schal=2 # ******************************************************************** # Punkte berechnen fuer die Bewehrung fuer # Treppenaustritt Typ: Tronsole und Fuszausbildung # ******************************************************************** if (schal = 2) then begin if ( (achbew = 1) OR (zehbew = 1) ) then begin if (laustr <= 40) then begin if (laustr > 30) then begin # ---------------------------------------------------------------- # Biegeform bwf4 # ---------------------------------------------------------------- p73 = p6; p73.x = p73.x - betdu; p73.y = p73.y - betdo; p74 = p5; p74.x = p74.x + betdo; p74.y = p74.y - betdo; inters(p55,p56,p59,p60,p75); inters(p55,p56,p57,p58,p76); # p75 = p74; p75.y = p13.y + betdu; # p76 = p75; p76.x = p73.x; p76.y = p75.y; distance(p73,p74,r37); distance(p74,p75,r38); # ********** Modelldaten fuer Biegeform bwf4 ******************* BWFORM("B1"); bogen = 0; anzahl = 6; durchm = 8; abstand = lfbr / anzahl; anzeck = 2; hakenhint = 1; hakenvorn = 1; para_a = r37; para_b = r38; stabmod(); # ********** Geometriedaten fuer Biegeform bwf4 *************** stabanf = p74; polar(p73,pi,5.0,vtlendpkt); polar(vtlendpkt,trw,30.0,lageposnr); vlposzei = 3; stabspieg = 0; posdrewi = 0.0; verlegewinkel = 0; stabeiwi = 0.0; ansicht = 3; stabzei = 5; verteilzei = 0; stabecke = 1; posnrzei = 6; posnrli = 0; stabspieg = 1; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf4 *************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabanf = p1; stabanf.x = stabanf.x + 100; stabanf.y = stabanf.y - 100; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); end # ---------------------------------------------------------------- # Biegeform bwf8: Punkte fuer Austritt -- Tronsole # ---------------------------------------------------------------- aecko = 4; inters(p61,p62,p57,p58,p93); inters(p57,p58,p51,p52,p94); inters(p51,p52,p59,p60,p95); inters(p59,p60,p61,p62,p96); end if ( (laustr > 40) AND (laustr <= 75) ) then begin # ---------------------------------------------------------------- # Biegeform bwf5 # ---------------------------------------------------------------- inters(p61,p62,p59,p60,p81); inters(p51,p52,p59,p60,p80); inters(p57,p58,p51,p52,p79); inters(p57,p58,p55,p56,p78); inters(p59,p60,p55,p56,p77); distance(p77,p78,r39); i26 = r39; distance(p78,p79,r40); i27 = r40; distance(p79,p80,r41); i28 = r41; distance(p80,p81,r42); i29 = r42; # ********** Modelldaten fuer Biegeform bwf5 ******************* BWFORM("A4"); bogen = 0; anzahl = 6; durchm = 8; abstand = lfbr / anzahl; hakenhint = 0; hakenvorn = 0; anzeck = 3; para_a = 0.0; para_b = i26; para_c = i27; para_d = i28; para_e = i29; stabmod(); # ********** Geometriedaten fuer Biegeform bwf5 *************** stabanf = p79; polar(p79,pi,(r41/2.0),vtlendpkt); polar(vtlendpkt,pihalb,20.0,lageposnr); vlposzei = 3; posdrewi = 0.0; stabspieg = 0; stabeiwi = 90.0; verlegewinkel = 0; ansicht = 3; stabzei = 5; verteilzei = 0; stabecke = 4; posnrzei = 6; posnrli = 1; stabspieg = 0; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf5 *************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabecke = 5; stabanf = p1; stabanf.x = stabanf.x + 200; stabanf.y = stabanf.y - 100; lageposnr = stabanf; lageposnr.x = lageposnr.x + 15; lageposnr.y = lageposnr.y - 30; stabgeo(); # ---------------------------------------------------------------- # Biegeform bwf8: Punkte fuer Austritt -- Tronsole # ---------------------------------------------------------------- inters(p61,p62,p57,p58,p93); inters(p61,p62,p51,p52,p16); if (p16.x <= p93.x) then begin aecko = 2; inters(p61,p62,p51,p52,p93); inters(p51,p52,p57,p58,p94); end if (p16.x > p93.x) then begin aecko = 1; inters(p61,p62,p57,p58,p93); end end if (laustr > 75) then begin # ---------------------------------------------------------------- # Biegeform bwf7 # ---------------------------------------------------------------- inters(p57,p58,p51,p52,p87); inters(p57,p58,p55,p56,p88); p86 = p87; p86.x = p86.x - 60.0; p24 = p88; p24.x = p24.x - 60.0; distance(p86,p87,r46); distance(p87,p88,r47); distance(p88,p24,r48); # ********** Modelldaten fuer Biegeform bwf7 ******************* BWFORM("A3"); bogen = 0; anzahl = 6; durchm = 8; abstand = lfbr / anzahl; hakenhint = 0; hakenvorn = 0; anzeck = 3; para_a = r46; para_b = r47; para_c = r48; stabmod(); # ********** Geometriedaten fuer Biegeform bwf7 *************** stabanf = p88; polar(p88,pihalb,(r47/3.0),vtlendpkt); polar(vtlendpkt,(-pihalb/2),30.0,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = 90.0; stabspieg = 1; verlegewinkel = 0; ansicht = 3; posnrli = 0; stabzei = 5; verteilzei = 0; stabecke = 3; posnrzei = 6; posnrli = 0; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf7 *************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabecke = 1; stabanf = p1; stabanf.x = stabanf.x + 300; stabanf.y = stabanf.y - 100; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); # ---------------------------------------------------------------- # Biegeform bwf9 # ---------------------------------------------------------------- inters(p57,p58,p51,p52,p99); inters(p51,p52,p63,p64,p98); polar(p98,trw,-60.0,p97); distance(p97,p98,r49); distance(p98,p99,r50); cos(trw,r26); r51 = r49 * r26; sin(trw,r26); r52 = r49 * r26; # ********** Modelldaten fuer Biegeform bwf9 ******************* BWFORM("C1"); bogen = 0; anzahl = 6; durchm = 12; abstand = lfbr / anzahl; anzeck = 3; para_a = r50; para_b = r51; para_c = -r52; hakenhint = 0; hakenvorn = 0; stabmod(); # ********** Geometriedaten fuer Biegeform bwf9 *************** stabanf = p98; polar(p98,trw,(-r49/3.0),vtlendpkt); polar(vtlendpkt,(trw+pihalb),45.0,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = 180.0; stabspieg = 0; verlegewinkel = 0; ansicht = 3; stabzei = 5; verteilzei = 0; stabecke = 2; posnrzei = 6; posnrli = 1; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf9 ****************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabanf = p9; stabanf.x = stabanf.x - 100; stabanf.y = stabanf.y - 200; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); # ---------------------------------------------------------------- # Biegeform bwf10 # ---------------------------------------------------------------- inters(p55,p56,p63,p64,p16); polar(p16,trw,-60,p15); inters(p55,p56,p57,p58,p17); distance(p15,p16,r49); distance(p16,p17,r50); cos(trw,r26); r51 = r49 * r26; sin(trw,r26); r52 = r49 * r26; # ********** Modelldaten fuer Biegeform bwf10 ******************* BWFORM("C1"); bogen = 0; anzahl = 6; durchm = 12; abstand = lfbr / anzahl; anzeck = 3; para_a = r50; para_b = r51; para_c = -r52; hakenhint = 0; hakenvorn = 0; stabmod(); # ********** Geometriedaten fuer Biegeform bwf10 *************** stabanf = p16; polar(p15,trw,(r49/3.0),vtlendpkt); polar(vtlendpkt,(trw+pihalb),45.0,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = 180.0; stabspieg = 0; verlegewinkel = 0; ansicht = 3; stabzei = 5; verteilzei = 0; stabecke = 2; posnrzei = 6; posnrli = 1; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf10 ****************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabanf = p9; stabanf.x = stabanf.x + 50; stabanf.y = stabanf.y - 200; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); # ---------------------------------------------------------------- # Biegeform bwf8: Punkte fuer Austritt -- Tronsole # ---------------------------------------------------------------- aecko = 2; inters(p61,p62,p51,p52,p93); inters(p57,p58,p51,p52,p94); end end # e_achbew=1 und e_zehbew=1 end # e_schal=2 # ******************************************************************** # Punkte berechnen fuer die Bewehrung fuer # Treppenantritt Typ: durchgehende Bewehrung # ******************************************************************** if ( (schal = 2) AND (viebew = 1) ) then begin # ---------------------------------------------------------------- # Biegeform bwf8 fuer Tronsole -- Antritt # ---------------------------------------------------------------- aecku = 4; p89.x = 0.0; p89.y = 0.0; p89.z = 0.0; inters(p47,p48,p61,p62,p92); p91 = p10; p91.x = p91.x - 60.0; p91.y = p92.y; p90 = p91; # Bedingung, damit die Schleife ausgefuehrt wird p15.y = p91.y + 10.0; # ---------------------------------------------------------------- # Biegeform bwf11 # ---------------------------------------------------------------- inters(p43,p44,p61,p62,p19); polar(p19,trw,60.0,p20); p18 = p1; p18.x = p18.x - 60.0; p18.y = p19.y; distance(p18,p19,r29); i24 = r29; distance(p19,p20,r30); cos(trw,r26); r31 = r30 * r26; sin(trw,r26); r32 = r30 * r26; # ********** Modelldaten fuer Biegeform bwf11 ******************* BWFORM("C1"); bogen = 0; anzahl = 6; durchm = 12; abstand = lfbr / anzahl; anzeck = 3; para_a = i24; para_b = r31; para_c = r32; hakenhint = 0; hakenvorn = 0; stabmod(); # ********** Geometriedaten fuer Biegeform bwf11 *************** stabanf = p19; polar(p18,0,(r29/3.0),vtlendpkt); polar(vtlendpkt,pihalb,20.0,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = 180.0; stabspieg = 1; verlegewinkel = 0; ansicht = 3; stabzei = 5; verteilzei = 0; stabecke = 2; posnrzei = 6; posnrli = 1; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf11 ****************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabecke = 1; stabanf = p9; stabanf.x = stabanf.x + 200 - (para_a / 2.0); stabanf.y = stabanf.y - 235; lageposnr = stabanf; lageposnr.y = lageposnr.y - 15; stabgeo(); # ---------------------------------------------------------------- # Biegeform bwf12 # ---------------------------------------------------------------- inters(p47,p48,p63,p64,p22); polar(p22,trw,60.0,p23); p21 = p10; p21.x = p21.x + betdu; p21.y = p21.y + betdu; distance(p21,p22,r33); i25 = r33; distance(p22,p23,r34); cos(trw,r26); r35 = r34 * r26; sin(trw,r26); r36 = r34 * r26; # ********** Modelldaten fuer Biegeform bwf12 ******************* BWFORM("C1"); bogen = 0; anzahl = 6; durchm = 12; abstand = lfbr / anzahl; anzeck = 3; para_a = i25; para_b = r35; para_c = r36; hakenhint = 0; hakenvorn = 0; stabmod(); # ********** Geometriedaten fuer Biegeform bwf12 *************** stabanf = p22; polar(p21,0,(r33/3.0),vtlendpkt); polar(vtlendpkt,-pihalb,20,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = 180.0; stabspieg = 1; verlegewinkel = 0; ansicht = 3; stabzei = 5; verteilzei = 0; stabecke = 2; posnrzei = 6; posnrli = 0; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf12 ****************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabecke = 2; stabanf = p9; stabanf.x = stabanf.x - 100; stabanf.y = stabanf.y - 300; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); end # e_viebew # ******************************************************************** # Punkte berechnen fuer die Bewehrung fuer # Treppenaustritt Typ: durchgehende Bewehrung # ******************************************************************** if ( (schal = 2) AND (neubew = 1) ) then begin # ---------------------------------------------------------------- # Biegeform bwf8: Punkte fuer Austritt -- Tronsole # ---------------------------------------------------------------- aecko = 2; inters(p61,p62,p51,p52,p93); p94 = p6; p94.x = p94.x + 60.0; p94.y = p93.y; # ---------------------------------------------------------------- # Biegeform bwf9 # ---------------------------------------------------------------- inters(p51,p52,p63,p64,p98); p99 = p6; p99.y = p99.y - betdo; polar(p98,trw,-60.0,p97); distance(p97,p98,r49); distance(p98,p99,r50); cos(trw,r26); r51 = r49 * r26; sin(trw,r26); r52 = r49 * r26; # ********** Modelldaten fuer Biegeform bwf9 ******************* BWFORM("C1"); bogen = 0; anzahl = 6; durchm = 12; abstand = lfbr / anzahl; anzeck = 3; para_a = r50; para_b = r51; para_c = -r52; hakenhint = 0; hakenvorn = 0; stabmod(); # ********** Geometriedaten fuer Biegeform bwf9 *************** stabanf = p98; polar(p98,trw,(-r49/3.0),vtlendpkt); polar(vtlendpkt,(trw+pihalb),45.0,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = 180.0; stabspieg = 0; verlegewinkel = 0; ansicht = 3; stabzei = 5; verteilzei = 0; stabecke = 2; posnrzei = 6; posnrli = 1; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf9 ****************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabanf = p9; stabanf.x = stabanf.x - 100; stabanf.y = stabanf.y - 200; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); # ---------------------------------------------------------------- # Biegeform bwf10 # ---------------------------------------------------------------- inters(p55,p56,p63,p64,p16); polar(p16,trw,-60,p15); p17 = p7; p17.x = p17.x + 60.0; p17.y = p16.y; distance(p15,p16,r49); distance(p16,p17,r50); cos(trw,r26); r51 = r49 * r26; sin(trw,r26); r52 = r49 * r26; # ********** Modelldaten fuer Biegeform bwf10 ******************* BWFORM("C1"); bogen = 0; anzahl = 6; durchm = 12; abstand = lfbr / anzahl; anzeck = 3; para_a = r50; para_b = r51; para_c = -r52; hakenhint = 0; hakenvorn = 0; stabmod(); # ********** Geometriedaten fuer Biegeform bwf10 *************** stabanf = p16; polar(p15,trw,(r49/3.0),vtlendpkt); polar(vtlendpkt,(trw+pihalb),45.0,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = 180.0; stabspieg = 0; verlegewinkel = 0; ansicht = 3; stabzei = 5; verteilzei = 0; stabecke = 2; posnrzei = 6; posnrli = 1; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf10 ****************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabanf = p9; stabanf.x = stabanf.x + 50; stabanf.y = stabanf.y - 200; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); end # e_neubew # ******************************************************************** # Modell- und Geometriedaten fuer saemtliche Treppenformen # Obere Bewehrung im Abstand betdo # Biegeform bwf13 # ******************************************************************** if (schal = 2) then begin # Punkte bestimmen (Kontroll- und Bewehrungspunkte) # ***** Punkte unten ************************************ inters(p47,p48,p63,p64,p27); inters(p49,p50,p63,p64,p28); if (p27.y <= p28.y) then inters(p49,p50,p63,p64,p25); if (p27.y > p28.y) then inters(p47,p48,p63,p64,p25); # ***** Punkte oben ************************************* inters(p51,p52,p63,p64,p26); distance(p25,p26,r53); # Modelldaten fuer Biegeform bwf13 BWFORM("A1"); bogen = 0; anzahl = 6; hakenhint = 0; hakenvorn = 0; durchm = 12; abstand = lfbr / anzahl; anzeck = 1; para_a = r53; stabmod(); # Geometriedaten fuer Biegeform bwf13 stabanf = p25; polar(p25,trw,(r53/3),vtlendpkt); polar(vtlendpkt,(trw+pihalb),45,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = (trw * 180 / pi); stabspieg = 0; verlegewinkel = 0; ansicht = 3; posnrli = 1; stabzei = 5; verteilzei = 0; stabecke = 1; posnrzei = 6; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf13 ****************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabspieg = 0; stabanf = p9; stabanf.x = stabanf.x + 100; stabanf.y = stabanf.y - 450; lageposnr = stabanf; lageposnr.x = lageposnr.x + 30; lageposnr.y = lageposnr.y + 10; stabgeo(); end # ******************************************************************** # Modell- und Geometriedaten fuer saemtliche Treppenformen # Buegel in der Laufplatte # Biegeform bwf14 # ******************************************************************** if (schal = 2) then begin # Punkte bestimmen (Kontroll- und Bewehrungspunkte) inters(p43,p44,p61,p62,p27); inters(p55,p56,p61,p62,p28); distance(p27,p28,r54); # Modelldaten fuer Biegeform bwf14 BWFORM("B1"); bogen = 0; i80 = r54 / 20.0; anzahl = i80 + 1; durchm = 6; abstand = 20.0; anzeck = 2; hakenhint = 1; hakenvorn = 1; para_a = lfbr - (2.0 * betdo); para_b = lfst - betdo - betdu; stabmod(); # Geometriedaten fuer Biegeform bwf14 stabanf = p27; polar(p27,0,50,lageposnr); posdrewi = 0.0; verlegewinkel = trw * 180 / pi; vlposzei = 1; stabspieg = 1; stabeiwi = -90.0; ansicht = 1; stabzei = 1; verteilzei = 31; vtlabst = -15; stabecke = 1; posnrzei = 6; posnrli = 0; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf14 ****************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabeiwi = 0; verlegewinkel = 0; ansicht = 3; stabanf = p1; stabanf.x = stabanf.x - (para_a / 2.0); stabanf.y = stabanf.y + 150; lageposnr = stabanf; lageposnr.y = lageposnr.y - 30; stabgeo(); end # ******************************************************************** # Modell- und Geometriedaten fuer saemtliche Treppenformen # Buegel im Podest unten # Biegeform bwf14 # ******************************************************************** # Modelldaten fuer Biegeform bwf14 if ( (schal = 2) AND (lantr > 50) ) then begin # Punkte bestimmen (Kontroll- und Bewehrungspunkte) p27 = p10; p27.x = p27.x + 10.0; p27.y = p27.y + betdu; inters(p47,p48,p61,p62,p28); distance(p27,p28,r54); # Modelldaten bwf14 BWFORM("B1"); bogen = 0; i80 = r54 / 20.0; anzahl = i80 + 1; durchm = 6; abstand = 20.0; anzeck = 2; hakenhint = 1; hakenvorn = 1; para_a = lfbr - (2.0 * betdu); para_b = dpodu - betdu - betdo; stabmod(); # Geometriedaten fuer Biegeform bwf14 stabanf = p27; polar(p27,-pihalb,40,lageposnr); polar(lageposnr,pi,40,lageposnr); vlposzei = 1; stabspieg = 1; posdrewi = 0.0; posnrli = 0; verlegewinkel = 0; vtlabst = -40; stabeiwi = -90.0; ansicht = 1; stabzei = 1; verteilzei = 3; stabecke = 1; posnrzei = 6; stabgeo(); end # ******************************************************************** # Modell- und Geometriedaten fuer saemtliche Treppenformen # Buegel im Podest oben # Biegeform bwf14 # ******************************************************************** # Modelldaten fuer Biegeform bwf14 if ( (schal = 2) AND (laustr > 75) ) then begin # Punkte bestimmen (Kontroll- und Bewehrungspunkte) inters(p61,p62,p55,p56,p27); p28 = p7; p28.x = p28.x - 10.0; p28.y = p28.y + betdu; distance(p27,p28,r54); # Modelldaten bwf14 BWFORM("B1"); bogen = 0; i80 = r54 / 20.0 anzahl = i80 + 1; durchm = 6; abstand = 20.0; anzeck = 2; hakenhint = 1; hakenvorn = 1; para_a = lfbr - (2.0 * betdu); para_b = dpodo - betdu - betdo; stabmod(); # Geometriedaten bwf14 stabanf = p27; polar(p28,-pihalb,40,lageposnr); polar(lageposnr,0,20,lageposnr); vlposzei = 1; posnrli = 0; stabspieg = 1; posdrewi = 0.0; verlegewinkel = 0; stabeiwi = 90.0; vtlabst = -40.0; ansicht = 1; stabzei = 1; verteilzei = 3; stabecke = 2; posnrzei = 6; stabgeo(); end # ******************************************************************** # Modell- und Geometriedaten fuer saemtliche Treppenformen # Biegeform bwf8 # ******************************************************************** # Modelldaten fuer Biegeform bwf8 if (schal = 2) then begin BWFORM("X2"); bogen = 0; anzahl = 6; durchm = 12; abstand = lfbr / anzahl; hakenhint = 0; hakenvorn = 0; anzeck = aecku + aecko; para_a = 0; para_b = 0; if ( (drebew = 1) OR (funbew = 1) ) then begin para_a = p90.x - p89.x; para_b = p90.y - p89.y; end para_c = p91.x - p90.x; para_d = p91.y - p90.y; if (lantr > 65) then begin para_c = 0; para_d = 0; end if (p91.y <= p15.y) then begin para_e = p92.x - p91.x; para_f = p92.y - p91.y; para_g = p93.x - p92.x; para_h = p93.y - p92.y; end if (p91.y > p15.y) then begin para_e = p93.x - p91.x; para_f = p93.y - p91.y; para_g = 0; para_h = 0; end para_i = p94.x - p93.x; para_j = p94.y - p93.y; para_k = p95.x - p94.x; para_l = p95.y - p94.y; para_m = p96.x - p95.x; para_n = p96.y - p95.y; distance(p92,p93,r51); stabmod() ; # ********** Geometriedaten fuer Biegeform bwf8 *************** stabanf = p91; polar(p93,trw,(-r51/2.0),vtlendpkt); polar(vtlendpkt,(trw-pihalb),45,lageposnr); vlposzei = 3; posdrewi = 0.0; stabeiwi = 0.0; verlegewinkel = 0; ansicht = 3; stabzei = 5; verteilzei = 0; posnrzei = 6; posnrli = 0; stabspieg = 0; stabecke = 3; stabgeo(); # ********** Stahlauszug fuer Biegeform bwf8 ****************** posnrzei = 5; verteilzei=-2; posnrli = 0; stabspieg = 0; stabanf = p9; stabanf.x = stabanf.x - 150; stabanf.y = stabanf.y - 450; lageposnr = stabanf; lageposnr.y = lageposnr.y + 30; stabgeo(); end schal = schal + 1; end # end for i98 END.