END
END
+PROG AQUA urs:1
HEAD LM71
UNIT 5
NORM 'EN' '1993-2005' COUN 0 CAT 'D' SNOW '1' UNIT 5
STEE 1    S '355' TITL "=S 355 (EN 1993)"
SSLA EPS SERV SIG 1[-]
SSLA EPS ULTI SIG 1.100000[-] TYPE  EXT
HMAT 1 TYPE FOUR NSP 0 A 1
CONC 2    C '20' TYPR    B TITL "=C 20/25 (EN 1992)"
SSLA EPS SERV SIG 1.500000[-] TYPE  LIM
SSLA EPS ULTI SIG 1.500000[-]
SSLA EPS CALC SIG -1.500000[-]
HMAT 2 TYPE FOUR NSP 0.030000 A 1
STEE 3    B '500B' TMAX 32 TITL "=B 500 B (EN 1992)"
SSLA EPS SERV SIG 1.150000[-]
SSLA EPS ULTI SIG -1.150000[-] TYPE  EXT
SSLA EPS CALC SIG -1.150000[-] TYPE  EXT
HMAT 3 TYPE FOUR NSP 0 A 1
CTRL
CTRL RFCS 0
CTRL FACE -1
CTRL REFD 0
CTRL STYP  FEM
CTRL SCUT 17
CTRL PLAS 1
SECT 1 MNO 2 MRF 3 FSYM NONE BTYP BEAM TITL "BeamSec"
SV   IT 100[o/o]
POLY TYPE    O MNO 2
VERT '0200' Y 2123.711 Z 387.6289 EXP 1
VERT '0201' Y 2000 Z 400 R 200 TYPE  OTP EXP 1
VERT '0202' Y 1700 Z 1200 R 200 TYPE  OTP EXP 1
VERT '0203' Y 1561.400 Z 1200 EXP 1
VERT '0204' Y  4.44089E-13 Z 1200 EXP 0
VERT '0205' Y -2.22045E-13 Z 1000 EXP 1
VERT '0206' Y 1561.400 Z 1000 R 200 TYPE  OTP EXP 1
VERT '0207' Y 1861.400 Z 200 R 200 TYPE  OTP EXP 1
VERT '0208' Y 1572.800 Z 200 EXP 0
VERT '0209' Y  2.22045E-13 Z 200 EXP 0
VERT '0210' Y 0 Z  2.77556E-14 EXP 1
VERT '0211' Y 4000 Z 0 EXP 1
VERT '0213' Y 3909.950 Z 209.0050 EXP 1
VERT '0200' Y 2123.711 Z 387.6289 EXP 1
POLY TYPE    O MNO 2
VERT '0100' Y -1956.346 Z 516.4117 EXP 1
VERT '0101' Y -2000 Z 400 R 200 TYPE  OTP EXP 1
VERT '0103' Y -4000 Z 109.5012 EXP 1
VERT '0104' Y -4000 Z 0 EXP 1
VERT '0105' Y 0 Z 0 EXP 0
VERT '0106' Y  2.22045E-13 Z 200 EXP 1
VERT '0107' Y -1861.400 Z 200 R 200 TYPE  OTP EXP 1
VERT '0108' Y -1561.400 Z 1000 R 200 TYPE  OTP EXP 1
VERT '0109' Y -1422.800 Z 1000 EXP 0
VERT '0110' Y -2.22045E-13 Z 1000 EXP 0
VERT '0111' Y  2.22045E-13 Z 1200 EXP 1
VERT '0112' Y -1700 Z 1200 R 200 TYPE  OTP EXP 1
VERT '0113' Y -1748.666 Z 1070.225 EXP 1
VERT '0100' Y -1956.346 Z 516.4117 EXP 1
CUT  'ZS' ZB 'S' NS 0 MS 0 MNO 2 MRF 3 LAY 1 TYPE  WEB INCL 90
END
END
$ Exported by SOFIMSHC     Version  20.09-70
PROG SOFIMSHC urs:2
HEAD LM71
UNIT 5
SYST SPAC GDIV 10000 GDIR NEGZ
CTRL TOPO 0
CTRL TOLG VAL 0.010000[m]
CTRL MESH 1
CTRL EDRL 1
CTRL HMIN VAL 3.125000[m]
CTRL FINE VAL -0.325000
CTRL PROG VAL 1.238000
CTRL EFAC VAL 1.398600

GAX  'A001' TYPC BEZI TITL "A001"
GAXN       0.0 DEGR 1
GAXN   25.0000
GAXC X       0.0       0.0       0.0
GAXC X   25.0000       0.0       0.0
SPT       1 X       0.0       0.0       0.0 FIX PPMX NX 0 0 -1 SX 1 0 0 TITL "Point"
SPT       2 X   25.0000       0.0       0.0 FIX XPMX NX 0 0 -1 SX 1 0 0 TITL "Point"
SLN       1 GRP 1 STYP 'B' SNO 1 DRX 0 0 -1
SLNB X1          0.0          0.0          0.0 X2   25.0000000          0.0          0.0
END

+PROG ASE urs:3
HEAD GET_MATRIX
LC 1 FACD 1.0 TITL 'SW'
END


+PROG SOFILOAD urs:10 $ Traffic Loader
HEAD POSITIONAL VARIANTS OF LOAD TRAINS
PAGE UNII 0

LANE A001 TYPE EN WL -3 WR 3 YLA -4 YRA 4

ECHO LANE FULL

$
LC NO 1200 TYPE none TITL 'LM 71 (UIC)'
TRAI LM71 P1 0 P2 250 P3 80 P4 100 P5 0 P8 20 PFAC 1 WIDT -1.435
$
END

+PROG ELLA urs:10.1 $ Traffic Loader
HEAD AUTOMATIC EVALUATION OF LOAD TRAINS
PAGE UNII 0

SIZE URS 0 HDIV 3 $ 0.30

ECHO FULL NO $ no output of text lists

SHOW SNO A001 TYPE BEAM NO 0 ETYP ALL

LSEL A001 INT 0 DZ 0.1 $ RSEL GRP 0
CALC N LMAX 2 LMIN 1
CALC VY LMAX 4 LMIN 3
CALC VZ LMAX 6 LMIN 5
CALC MT LMAX 8 LMIN 7
CALC MY LMAX 10 LMIN 9
CALC MZ LMAX 12 LMIN 11
APPL FULL

SAVE LCB 100 TYPE G_1 TITL 'GR1'
CASE 1 GRP ALL
   POSL A001.1 TRAI 1200 FACT 1 YEX 0 P 0 SYNC OFF PLON VAR PTRA VAR FUGA CODE IMPA ON EXCE FIX EXTR ALL OPT FREE
   POSL A001.2 TRAI 1200 FACT 1 YEX 0 P 0 SYNC OFF PLON VAR PTRA VAR FUGA CODE IMPA ON EXCE FIX EXTR ALL OPT FREE

END