+PROG  AQUA urs:1
HEAD
CTRL  FACE  NEG
UNIT  5  DIG  3  SET  OUT
ECHO  SECT  EXTR
NORM  GB 50010-2010
STEE  NO  TYPE  ES  ALFA
1  S  3e1  6.5e-6
SVAL  NO  MNO  A
       1   1  1e3
END

+PROG  SofimshC urs:2
HEAD
SYST  3D  GDIR  NEGZ  GDIV  -1000
CTRL  MESH  1
SPT  NO  X  Y  Z  FIX
1  100  0  30  PP
2  0  0  90  PP
SLN  NO  NPA  NPE  SDIV  STYP  SNO  GRP
1  1  2  -20  CE  1  1
END

+PROG  SOFILOAD urs:3
HEAD
LC  NO
1
CABL  from grp 1  TYPE PZP  PA -1
LC  NO
2
CABL  FROM grp 1  TYPE dt  PA -100
LC  NO
3
CABL  FROM grp 1  TYPE dt  PA 100
LC  NO
END



+PROG  ASE urs:5
Head FormFinding
CTRL  CABL  0;
CTRL ITER 3 V2 1
SYST  PROB  TH3  ITER 1000 tol -0.01
$grp - facs 0.05 EPS $Prex 0.1
len0 etyp cabl l0 100/20 type tota grp 1
LC  99
END
+PROG  ASE urs:4
Head DEAD
SYST  PROB  TH3  ITER 1000 tol -0.01 plc 99
CTRL  CABL  0;
CTRL ITER 3 V2 1
LC  100
LCC 1 1
END
+PROG  ASE urs:6
Head DEAD+T(+100)
SYST  PROB  TH3  ITER 1000 tol -0.01 plc 100
CTRL  CABL  0; CTRL ITER 3 V2 1
LC  101
lcc 1 1
lcc 3 1 plc new
END