-
Notifications
You must be signed in to change notification settings - Fork 101
/
Copy pathrun.fbl
88 lines (70 loc) · 1.1 KB
/
run.fbl
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
84
85
86
87
88
valu lx 50
valu ly 25
valu lz 2
pnt ! 0 0 0
swep all new tra lx 0 0
swep all new tra 0 ly 0
copy all new mir x
copy all new mir y
merg p all
merg l all
swep all new tra 0 0 lz
asgn n 2
div all auto 2
div all mult 0.5
elty all he8i
mesh all
seta nodes n all
enq nodes fix rec _ _ 0 0.01
seta nodes n all
enq nodes load rec _ _ lz 0.01
comp load do
# create reference nodes at cg of the surfaces
stack on
area load
valu xr pop 2
valu yr pop
valu zr pop
node 1 xr yr zr
seta rload n 1
# sets for paths
enq nodes pathx rec _ 0 0 0.01
enq nodes pathy rec 0 _ 0 0.01
send all abq
send all abq nam
send load abq surf
rot z
view elem
ulin pathx (mag.), pathy (red)
plot f all n
plus n pathx m 6
plus n pathy r 6
frame
hcpy png Refs/mesh
sys ccx solve
read solve.frd nom
ulin Moment about x
ds 2 e 3
frame
hcpy png Refs/mx
asgn graph off
graph pathy length
ulin Moment about y
ds 5 e 3
frame
hcpy png Refs/my
graph pathx length
ulin Moment about z
ds 8 e 24
frame
hcpy png Refs/mz
graph pathx length
rot -z
frame
ulin Moment about z
view disp
scal d 100000
ds 8 e 24
frame
hcpy png Refs/mz-disp
sys gnuplot path.plt