!#!Chapter Geometry
!! From GH:

+APPLY GL33A_Base_Shell.dat

!#!Chapter  Testing loads
-prog ase urs:2
head

SYST PROB NONL
CTRL WARN 448  !Spring looking downwards
LC 1000   TITL 'ONLY PT'
    lcc 4 fact  -1618
end

!#!Chapter  Testing loads
+prog ase urs:9
head

SYST PROB NONL
CTRL WARN 448  !Spring looking downwards
LC 1001
    lcc 1 fact  0
    lcc 2 fact  15000
    lcc 3 fact  40000
    lcc 4 fact  -1618
end
-prog ase urs:3
head

SYST PROB NONL
CTRL WARN 448  !Spring looking downwards

LC 1002
    lcc 1 fact  0
    lcc 2 fact  0
    lcc 3 fact  0
    lcc 4 fact  -1618

end
!#!Chapter NL Analysis of Loads from General Model

-prog template urs:8
head Loads

STO#NxULS -5103.8 -20472 -10575.9 -10463.3 -18348.5 -7661.4 -10581.9 -10459 -15705.7 -9377.3 -9994.2 -11046.8 -5046.7 -20085.9 -10341.4 -10285.4 -18106.3 -7532 -10322.7 -10347.1 -14305.6 -9730.1 -9826.7 -10803.8
STO#MyULS 9733.31 22034.24 14439.61 12661.68 18287.45 13949.3 14442.94 12659.34 34510.68 -4650.63 13587.17 13515.11 8725.55 17228.36 11745.07 10405.66 8904.11 17509.98 11642.49 10862.17 34947.52 -11267.91 10672.28 11494.59
STO#MzULS -6014.53 412.49 6802.65 -10366.18 797.04 -6920.57 6796.15 -10361.61 -8058.31 1852.02 6896.02 -10461.48 -4925.16 482.27 5846.6 -8614.16 914 -5840.43 5856.41 -8640.65 -6110.27 1862.19 5893.44 -8665.27
STO#NxFAT 2822.4 -4220.3 -890.5 -294.3 -4109.4 2710.5 -890.5 -294.3 -970.2 -148.1 -890.5 -294.3 2732.8 -4156 -934.6 -284.8 -4035.3 2617.4 -934.6 -284.8 -774.1 -379 -934.6 -284.8
STO#MyFAT 4037.55 3183.55 -1088.14 8047.88 2837.44 4380.12 -1088.14 8047.88 8471.38 -1585.06 -1088.14 8047.88 6917.72 1254.85 -1924.31 9902.27 869.56 7285.96 -1924.31 9902.27 10128.62 -2201.14 -1924.31 9902.27
STO#MzFAT -4524.44 831.92 1318.26 -4983.49 973.99 -4663.44 1318.26 -4983.49 -4811.66 1145.71 1318.26 -4983.49 -3784.97 724.15 1104.2 -4144.49 852.99 -3908.13 1104.2 -4144.49 -4089.3 1050.92 1104.2 -4144.49

end

!! PT is included as LC 4
-prog ase urs:1
head  ULS Load Cases PT Min



loop#i NxULS
    SYST PROB NONL
    CTRL WARN 448  !Spring looking downwards

    LC 101+#i  TITL 'PT min'
        lcc 1 fact  #NxULS(#i)
        lcc 2 fact  #MzULS(#i)
        lcc 3 fact  #MyULS(#i)
        lcc 4 fact  -1618*0.90
    end
    endloop
end

-prog ase urs:5
head  ULS Load Cases PT Max

SYST PROB NONL
CTRL WARN 448  !Spring looking downwards

loop#i NxULS
    SYST PROB NONL
    CTRL WARN 448  !Spring looking downwards

    LC 201+#i  TITL 'PT max'
        lcc 1 fact  #NxULS(#i)
        lcc 2 fact  #MzULS(#i)
        lcc 3 fact  #MyULS(#i)
        lcc 4 fact  -1618*1.1
    end
    endloop
end

-prog ase urs:6
head  Fatigue 1+2 Load Cases

loop#i NxFAT

    LC 301+#i  TITL 'FAT'
        lcc 1 fact  #NxFAT(#i)
        lcc 2 fact  #MzFAT(#i)
        lcc 3 fact  #MyFAT(#i)
        lcc 4 fact  -1618
    end
    endloop
end



!#!Chapter Combination of results

-prog maxima urs:4
head Combination   ULS

LET#COMB 500
COMB NO #COMB EXTR STAN TYPE NONE BASE #COMB Titl "ULS"

    LOOP#I NxULS
    LC NO 101+#i TYPE AG1  FACT 1.0    !PT X0.90
    ENDLOOP
    LOOP#I NxULS
    LC NO 201+#i TYPE AG1  FACT 1.0    !PT X1.10
    ENDLOOP

    SUPP COMB   ETYP      EXTR    FROM    TO      TYPE
         #COMB  'QUAD'    MAMI    GRP     52,51    M
         #COMB  'QUAD'    MAMI    GRP     52,51    vx
         #COMB  'QUAD'    MAMI    GRP     52,51    vy
         #COMB  'QUAD'    MAMI    GRP     52,51    SXT
         #COMB  'QUAD'    MAMI    GRP     52,51    SYT
         #COMB  'QUAD'    MAMI    GRP     52,51    SXYT
         #COMB  'QUAD'    MAMI    GRP     52,51    VMIT
         #COMB  'QUAD'    MAMI    GRP     52,51    SXB
         #COMB  'QUAD'    MAMI    GRP     52,51    SYB
         #COMB  'QUAD'    MAMI    GRP     52,51    SXYB
         #COMB  'QUAD'    MAMI    GRP     52,51    VMIB
         #COMB  'QBED'    MAMI    GRP     52,51    P
         #COMB  'SPRI'    MAMI    GRP     71       P
end

-prog maxima urs:7
head Combination Fatigue 1+2

LET#COMB 600
COMB NO #COMB EXTR STAN TYPE NONE BASE #COMB Titl "FAT_1+2"

    LOOP#I NxFAT
    LC NO 301+#i TYPE AG1  FACT 1.0
    ENDLOOP

    SUPP COMB   ETYP      EXTR    FROM    TO      TYPE
         #COMB  'QUAD'    MAMI    GRP     52,51    M
         #COMB  'QUAD'    MAMI    GRP     52,51    vx
         #COMB  'QUAD'    MAMI    GRP     52,51    vy
         #COMB  'QUAD'    MAMI    GRP     52,51    SXT
         #COMB  'QUAD'    MAMI    GRP     52,51    SYT
         #COMB  'QUAD'    MAMI    GRP     52,51    SXYT
         #COMB  'QUAD'    MAMI    GRP     52,51    VMIT
         #COMB  'QUAD'    MAMI    GRP     52,51    SXB
         #COMB  'QUAD'    MAMI    GRP     52,51    SYB
         #COMB  'QUAD'    MAMI    GRP     52,51    SXYB
         #COMB  'QUAD'    MAMI    GRP     52,51    VMIB
         #COMB  'QBED'    MAMI    GRP     52,51    P
         #COMB  'SPRI'    MAMI    GRP     71       P
end