-PROG AQUA urs:2
HEAD MATERIALS
ECHO FULL FULL

NORM  DC EN 199X-200X
STEE 11 S 500 FT 500 FYC 1 Ftc 1 $ REINFORCEMENT

CONC NO 1 type C 80  typr c
SSLA ulti 1.00
SSLA    EPS     SIG     TYPE
 0.00000       0.00000
-0.25000      -7.62177
-0.50000      -14.86206
-0.75000      -21.72089
-1.00000      -28.19824
-1.50000      -40.00854
-1.75000      -45.34149
-2.00000      -50.29297
-2.50000      -59.05151
-2.75000      -62.85858
-3.00000      -66.28418
-3.50000      -71.99097
-4.00000      -76.17188
-4.50000      -78.82690
-4.75000      -79.58221
-5.00000      -79.95605
-5.25000      -80.00000
-5.50000      -80.00000   SPL
-31.2500      -80.00000   SPL
-41.5000      -80.00000   SPL




END


+PROG SOFIMSHa urs:1
HEAD GEOMETRY

SYST 3D  GDIV 99999  GDIR NEGZ
grp 1
sTO#DimHor 22
sTO#DimVer 22



   NODE (1    #DimVer 1) X 0 z (0.  0.05) y (0)
   loop#1 #DimHor
        NODE (101+#1*100 ((100+#DimVer)+#1*100) 1) X 0.05+0.05*#1 z (0 0.05) y (0)
   endloop


LOOP#J #DimHor-1
LOOP#I #DimVer-1
        GRP NO 2
 QUAD NO #I+1+(#J)*100  MNO 1 MRF 11 T 200[mm]  $$
                         N1 #I+1+(#J+0)*100     $$
                         N2 #I+1+(#J+1)*100     $$
                         N3 #I+2+(#J+1)*100     $$
                         N4 #I+2+(#J+0)*100

ENDLOOP
ENDLOOP

LET#1 1
loop  #DimHor-2
SPRI NO 1+#1*100   NA 1+#1*100   DX 0 DY 0 DZ 1  CP 10e7
SPRI NO 2+#1*100   NA 1+#1*100   DX 1 DY 0 DZ 0  CP 10
SPRI NO 3+#1*100   NA 1+#1*100   DX 0 DY 1 DZ 0  CP 10
LET#1 1+#1
ENDLOOP

LET#1 0
SPRI NO 1+#1*100   NA 1+#1*100   DX 0 DY 0 DZ 1  CP 10e7*0.5
SPRI NO 2+#1*100   NA 1+#1*100   DX 1 DY 0 DZ 0  CP 10*0.5
SPRI NO 3+#1*100   NA 1+#1*100   DX 0 DY 1 DZ 0  CP 10*0.5

LET#1 #DimHor-1
SPRI NO 1+#1*100   NA 1+#1*100   DX 0 DY 0 DZ 1  CP 10e7*0.5
SPRI NO 2+#1*100   NA 1+#1*100   DX 1 DY 0 DZ 0  CP 10*0.5
SPRI NO 3+#1*100   NA 1+#1*100   DX 0 DY 1 DZ 0  CP 10*0.5


let#1  (#DimHor/2)
SPRI NO 5+#1*100   NA 1+#1*100   DX 1 DY 0 DZ 0  Cm 10e7

END

+PROG BEMESS URS:24
HEAD Armadura

GEOM - HA 50 DHA 20 HB 50 DHB 20
DIRE  90 90
PARA NOG - DU 20 ASU 12.5*2[cm2/m] ASU2 12.5*2[cm2/m] ASL 12.5*2[cm2/m] ASL2 12.5*2[cm2/m]

GEOM - HA 50 DHA 20 HB 50 DHB 20
DIRE  90 90
PARA NOG 1 DU 20 ASU 20[cm2/m] ASU2 20[cm2/m] ASL 20[cm2/m] ASL2 20[cm2/m]


END

+PROG SOFILOAD urs:54
HEAD LOADS


LC 1 TITL 'Pvert'
let#p 355
let#1 1
loop  #DimHor-2
node no  #DimVer+#1*100  p1 #p  type pg
let#1 1+#1
ENDLOOP

node no  #DimVer+0*100        p1 #p/2  type pg
node no  #DimVer+(#DimHor-1)*100  p1 #p/2  type pg


END

+PROG ASE urs:3
head  LINEAR

LC 1
 grp all
end


+PROG ASE urs:17
Head NON LINEAR, MAT LINEAR

STO#FACT 1.96

CTRL CONC V3 0.1 V4 0.1   $The concrete tensile strength can be changed temporarily with CTRL CONC V3 V4
CTRL ITER VAL 3           $Metodo iteracion

SYST PROB NONL ITER 4000 TOL 0.0001 $NMAT YES $En shell NMAT YES QUAD ELEMENTS  para no linealidad de material   TH3 PARA NO LINEALIDAD GEMETRICA

GRP NO    all VAL FULL

LC 90 FACD 0.9 TITL 'NON LINEAR, MAT LIN '
 LCC 1 FACT 1.0*#FACT

$NSTR KSV ULD KSB ULD
END



+PROG ASE urs:35
Head NON LINEAR, MAT NMAT

STO#FACT 1.975

CTRL CONC V3 0.1 V4 0.1   $The concrete tensile strength can be changed temporarily with CTRL CONC V3 V4
CTRL ITER VAL 3           $Metodo iteracion

SYST PROB NONL ITER 2000 TOL 0.0001 NMAT YES $En shell NMAT YES QUAD ELEMENTS  para no linealidad de material   TH3 PARA NO LINEALIDAD GEMETRICA

GRP NO    all VAL FULL
LC 100 FACD 0.9 TITL 'NON LINEAR, MAT NMAT ULD'
 LCC 1 FACT 1.0*#FACT

NSTR KSV ULD KSB ULD
END

+PROG ASE urs:4
Head NON LINEAR, MAT NMAT

$CTRL CONC V3 0.1 V4 0.1   $The concrete tensile strength can be changed temporarily with CTRL CONC V3 V4
$CTRL ITER VAL 3           $Metodo iteracion

SYST PROB NONL ITER 2000 TOL 0.0001 NMAT YES $En shell NMAT YES QUAD ELEMENTS  para no linealidad de material   TH3 PARA NO LINEALIDAD GEMETRICA

GRP NO    all VAL FULL
LC 101 FACD 0.9 TITL 'NON LINEAR, MAT NMAT UL'
 LCC 1 FACT 1.0*2.0

NSTR KSV SL KSB SL
END