+PROG AQUA urs:2
KOPF Zylinderschale
UNIT 5
NORM 'DIN' 'en199x-200x' COUN 49 WIND '2' SNOW '1' WCAT 'B' UNIT 5



MATE NR 1 E 2100000 MUE 0.300000



ENDE



 +prog sofimshc urs:1
kopf Zylinderschale



SYST RAUM GDIV -100 POSZ

STEU MESH 1   $ create quadrilateral elements
STEU HMIN 0.1 $ size of elements

$ define parameters
let#R1 2.0[m]         !Radius unten
let#R2 2.0[m]         !Radius oben
let#H  3.0[m]       !Höhe/Länge
let#t   0.05[m]     !Wanddicke



!#!Kapitel Strukturfläche
!Eingabe der linie die rotiert werden soll zu einer fläche
SLN 1
SLNB X1 +#R1 0 0  X2 +#R2 0 -#H



!#!Kapitel Flächen
SAR 1 T #t MNR 1 MCTL REGM H1 0.1
SARR TYP ROTA GID1 1  X 0 0 0 NZ 1.0 VMIN 0.0 VMAX 180.0 !GID2 2

SAR 2 T #t MNR 1 MCTL REGM H1 0.1
SARR TYP ROTA GID1 1 X 0 0 0 NZ 1.0 VMIN 0.0 VMAX -180.0  ! GID2 2




!#!Kapitel Lagerung
SLN 101
 SLNB X1 +#R1 0 0 XM 0 0 0 NZ 1.0
 SLNS KR POSZ  FIX pp       !CA 10000.0 CL 100.0


SLN 102
 SLNB X1 +#R2  0 -#H  XM 0 0 0 NZ 1.0

ENDE







+PROG SOFILOAD urs:9.1 $ Text Editor für Lasten
KOPF Text Editor für Lasten

LF 1   TYP NONE
line REf SLN NR  102 PROJ N TYP py P1 -1

ENDE






+PROG ASE urs:10 $ Berechnung Einzellastfälle
KOPF Berechnung von Schnittkräften
SEIT UNIE 0
STEU OPT WARP WERT 0
LF ALLE
ENDE




PROG WING urs:12.1 $ Interaktive Grafik
KOPF $ Membrankraft senkrecht zum Schnitt  LF:          1
UNIT 0 SET IN $ Standard-Einheitenset
STEU OPT GSTR WERT STAN
STEU OPT DARS WERT JA
$ DB   NR 1 BEZ "schale innendruck.cdb"
STEU OPT ACHS WERT STAN
$ Grafik    1 | Bild    1 | Layer    1 : Membrankraft senkrecht zum Schnitt  LF:          1
SEIT SPRA 0
SIZE DINA URS M 0 RAND NEIN TEIL '1*1'
SIZ2 TEIL STAN
KOPF Interaktive Grafiken
UND  POSI 1 POSL 0 POSR 100 POSU 0 POSO 100
SCHR H6 0.180000 ND 99
LF   NR 1 BEME 1
MOVE X DEL DTYP QSCH,ZUSC,ZWAN
BOX
BEOB TYP BLIC X 0 Y 0 Z 1 ACHS POSY DREH 0
AUSW NR 0
MOVE X 0 Y 0 Z 0 UNIT WC A 0 SCHR 0.300000 FAKB 0.700000 RAND -400 F 3001 FH -101 ALIG STAN EINF PAE BOX AUS GRNR 0 DTYP QSCH ABSZ 1.300000 ABST 0.600000 LANG 0.400000 BILD AUS SBOX AUS
DRAW X 3.013258 Y 0 Z 0 UNIT WC DTYP QSCH GRP NEIN MNR NEIN HINT NEIN DIST STAN
BOX
BEOB TYP BLIC X 0 Y -1 Z 0 ACHS POSZ DREH 0
VERS TYP NEIN EXPO 0 SMOV NEIN
BOX  XMIN 1.946709 YMIN -2.000021 ZMIN 0.109654 XMAX 2.231573 YMAX 2.000020 ZMAX -3.108507 TYP BFEN OPER UND BGRP 0
AUSW NR 0
DSGN TYP EINZ LANG 0
DSGN TYP LINE DTYP STAN
QUAD TYP NT UNIT -1000.086 SCHR JA STYP KNOT FILL NEIN DARS DCUT MITT NEIN
$ Grafik    2 | Bild    1 | Layer    1 : Querkraft |v-x|  LF:          1
SIZ2
UND  POSI 1 POSL 0 POSR 100 POSU 0 POSO 100
SCH2 RICH STAN
DSGN TYP EINZ LANG 0
QUAD TYP AVX UNIT -1000.086 SCHR JA STYP KNOT FILL NEIN DARS DCUT MITT NEIN
$ Grafik    3 | Bild    1 | Layer    1 : Querkraft in Schnittrichtung  LF:          1
SIZ2
UND  POSI 1 POSL 0 POSR 100 POSU 0 POSO 100
DSGN TYP EINZ LANG 0
QUAD TYP VN UNIT -1000.086 SCHR JA STYP KNOT FILL NEIN DARS DCUT MITT NEIN
$ Grafik    4 | Bild    1 | Layer    1 : Biegemoment in Schnittrichtung  LF:          1
SIZ2
UND  POSI 1 POSL 0 POSR 100 POSU 0 POSO 100
DSGN TYP EINZ LANG 0
QUAD TYP MN UNIT -1000.086 SCHR JA STYP KNOT FILL NEIN DARS DCUT MITT NEIN
$ Grafik    5 | Bild    1 | Layer    1 : Knotenverschiebung in global X  LF:          1
SIZ2
UND  POSI 1 POSL 0 POSR 100 POSU 0 POSO 100
DSGN TYP EINZ LANG 0
KNOT TYP UX UNIT -1000.086 SCHR JA FILL NEIN DARS DCUT
$ Grafik    6 | Bild    1 | Layer    1 : Knotenverdrehung um lokal z  LF:          1
SIZ2
UND  POSI 1 POSL 0 POSR 100 POSU 0 POSO 100
DSGN TYP EINZ LANG 0
KNOT TYP DZL UNIT -1000.086 SCHR JA FILL NEIN DARS DSCH
ENDE