-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathloads.mac
83 lines (73 loc) · 1.37 KB
/
loads.mac
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
!----------------------
!Clamp left end of beam
!----------------------
nsel,s,loc,x,0 ! Clamp left end of bimorph
d,all,ux,0,,,,uy,uz ! Defines DOF constraints, clamp the end
nsel,all
!----------------------
!Define upper electrodes on piezos
!----------------------
!P1
asel,s,loc,z,Hb+H
asel,r,loc,x,L1,L1+L
nsla,s,1
*get,p1,node,0,num,min
cp,1,volt,all
d,p1,VOLT,0,0
allsel
!P2
asel,s,loc,z,Hb+H
asel,r,loc,x,L2,L2+L
nsla,s,1
*get,p2,node,0,num,min
cp,2,volt,all
d,p2,VOLT,0,0
allsel
!P3
asel,s,loc,z,Hb+H
asel,r,loc,x,L3,L3+L
nsla,s,1
*get,p3,node,0,num,min
!cp,3,volt,all
d,p3,VOLT,0,0
allsel
!P4
asel,s,loc,z,-H
asel,r,loc,x,L1,L1+L
nsla,s,1
*get,p4,node,0,num,min
!cp,4,volt,all
d,p4,VOLT,0,0
allsel
!----------------------
!Define lower electrodes on piezos (bonded side)
!----------------------
!P1
asel,s,loc,z,Hb
asel,r,loc,x,L1,L1+L
nsla,s,1
d,all,volt,0,0 ! Ground bottom electrode,
nsel,all
!P2
asel,s,loc,z,Hb
asel,r,loc,x,L2,L2+L
nsla,s,1
d,all,volt,0,0 ! Ground bottom electrode,
nsel,all
!P3
asel,s,loc,z,Hb
asel,r,loc,x,L3,L3+L
nsla,s,1
d,all,volt,0,0 ! Ground bottom electrode,
nsel,all
!P4
asel,s,loc,z,
asel,r,loc,x,L1,L1+L
nsla,s,1
d,all,volt,0,0 ! Ground bottom electrode,
nsel,all
!----------------------
!Define gravitational field
!----------------------
acel,0,-9.81,0
fini