+PROG AQUA
KOPF Materialien
NORM DC EN NDC 199X-200X
BETO NR 1 ART C FCN 30
STAH NR 2 ART B GUET 500B
ENDE

+PROG SOFIMSHC
KOPF Modell
SYST ART 3D GDIV 100 GDIR POSZ
STEU MESH 2
SPT NR 1 X 0 Y 0 Z 0
SPT NR 2 X 5 Y 0 Z 0 FIX PX
SPT NR 3 X 0 Y 2 Z 0 FIX PY
SPT NR 4 X 5 Y 2 Z 0 FIX PY
GAX ID 'AX1'
    GAXB R 10 X1 0 Y1 0 Z1 0 $$
            X2 5 Y2 0 Z2 0 $$
            NX 0 NY 0 NZ 1
SLN NR 1 REF 'AX1'
    SLNS DRX 0 DRY -1 DRZ 0 CL 10000 TYP RAND
SLN NR 2 NPA 3 NPE 4
SLN NR 3 NPA 1 NPE 3
SLN NR 4 NPA 2 NPE 4

SAR NR 1 MNR 1 MBW 2 MCTL REGM
    SARB TYP AUS NL 1
    SARB TYP AUS NL 3
    SARB TYP AUS NL 4
    SARB TYP AUS NL 2

ENDE

+PROG SOFIMSHA
KOPF Federn
SYST REST

FEDE NR FITL KA 3 KE 4 DZ 1 CP 10000

ENDE

+PROG SOFILOAD
KOPF Belastung
LF NR 1 BEZ 'Flächenlast'
AREA REF SAR NR 1 $$
     P1 5 X1 0 Y1 -1 $$
     P2 5 X2 GPT Y2 3 $$
     P3 30 X3 GPT Y3 4 $$
     P4 30 X4 5 Y4 -1
ENDE

+PROG ASE
KOPF Analyse
LF NR 1
ENDE

+PROG WING
KOPF Feder- und Randkräfte

LF NR 1

$ Belastung
SIZE DINA -4 TEIL "1*1"
BEOB STAN X -1 Y 1 Z -1
LAST TYP ALLE

$ Schnittgrößen und Verformungen
SIZE DINA -4 TEIL "3*1"
BEOB STAN X 0 Y 0 Z -1
QUAD TYP MX DARS DHOH
QUAD TYP MY DARS DHOH
KNOT TYP UZ DARS DHOH

SIZE DINA -4 TEIL "2*2"
BEOB STAN X -1 Y 1 Z -1
SCH3 HAUF .1

STAB TYP FP STYP FEDE DARS DLIN
$ Keine "federweise" Darstellung für Ränder

$ Auflagerkräfte als Knotensequenz
STAB TYP FP STYP FEDE DARS DEDG
UND
KNOT TYP RZ

$ Gemittelt als Konstante
STAB TYP FP STYP FEDE DARS DEDG RESU KONS
UND
KNOT TYP RZD RESU KONS

$ Summe über die Länge
STAB TYP FP STYP FEDE DARS DEDG RESU SUMM
UND
KNOT TYP SRZ


ENDE

+PROG TEMPLATE
KOPF Gemittelte Randkräfte

$ Gesamtwert für Rand 1, siehe Wing-Ausgabe
@KEY KWH BOUN_SUM KWL 1 SEL1 1
DEL#SUM
LET#SUM @(PZ)

$ Länge von Rand 1 als Achsenabschnitt
@KEY KWH GLN_REF KWL 1
DEL#L
LET#L @(SMAX)

LET#KONS #SUM/#L
PRT#KONS

ENDE