Salome HOME
projects
/
tools
/
eficas.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
update version
[tools/eficas.git]
/
Tests
/
testcomm7
/
param1.comm
1
2
DEBUT()
3
TEMP_MOY=50.
4
coef0 = 1.E-3
5
6
A0=DEFI_FONCTION( NOM_PARA='TEMP',
7
PROL_DROITE='EXCLU',
8
PROL_GAUCHE='EXCLU',
9
VALE=(
10
20. ,14.7 *coef0,
11
50. ,15.2 *coef0,
12
100. ,15.8 *coef0,
13
150. ,16.7 *coef0,
14
200. ,17.2 *coef0,
15
250. ,18. *coef0,
16
300. ,18.6 *coef0,
17
350. ,19.3 *coef0,
18
400. ,20. *coef0,
19
450. ,20.5 *coef0,
20
500. ,21.1 *coef0,
21
550. ,21.7 *coef0,
22
600. ,22.2 *coef0,
23
650. ,22.7 *coef0,
24
700. ,23.2 *coef0,
25
750. ,23.7 *coef0,
26
800. ,24.1 *coef0,
27
950. ,26.67 *coef0,
28
1150. ,29.24 *coef0,
29
1370. ,32.06 *coef0,
30
))
31
32
DEFI_MATERIAU( ELAS=_F( RHO = 1.E08,
33
NU = 0.3,
34
E = A0(TEMP_MOY)))
35
36
FIN()