/prep7
!单元类型
et,1,solid45

!c40混凝土
mp,ex,1,3.25e10 !c50混凝土
mp,prxy,1,0.167 !泊松比
mp,dens,1,2500 !密度

!对称轴
csys,0
n,1,30,7.156
n,2,30.11,7.156
n,3,30,7.5
n,4,61.8,7.156
n,5,61.825,7.156
n,6,61.8,8.1
n,7,93.6,7.156
n,8,94,7.156
n,9,93.6,8.1
n,11,30,7.156,1.6
n,12,30.11,7.156,1.6
n,13,30,7.5,1.6
n,14,30,7.156,3.2
n,15,30.11,7.156,3.2
n,16,30,7.5,3.2
n,17,30,7.156,4.8
n,18,30.11,7.156,4.8
n,19,30,7.5,4.8
cs,13,0,1,2,3
cs,14,0,4,5,6
cs,15,0,7,8,9
cs,16,0,11,12,13
cs,17,0,14,15,16
cs,18,0,17,18,19




!19关键点生成半跨
csys,0
k,1, -0.2785 , -0.1114 ,0.175
k,2, 15.0000 , 6.0000 ,0.175
k,3, 17.5000 , 6.4580 ,0.175
k,4, 20.0000 , 6.8330 ,0.175
k,5, 22.5000 , 7.1250 ,0.175
k,6, 25.0000 , 7.3330 ,0.175
k,7, 27.5000 , 7.4580 ,0.175
k,8, 30.0000 , 7.5 ,0.175
k,9, 30.0000 , 8.1000 ,0.175
k,10, 15, 8.1 , 0.175
k,11, -1.7500 , 8.1000 ,0.175
k,12, -1.7500 , 7.2500 ,0.175
k,13, 5.9692 , 7.2500 ,0.175
k,14, 6.8888 , 7.2500 ,0.175
k,15, 15.0 , 7.2500 ,0.175
k,16, 15.0000 , 7.0232 ,0.175
k,17, -0.6314 , 0.7706 ,0.175
k,18, -0.9759 , 1.2658 ,0.175
k,19, -0.5841 , 0.8114 ,0.175


l,1,2
*repeat,14,1,1
l,10,15
l,15,2
l,17,16
l,1,17
l,19,14
l,18,13
l,18,19


!生成面大面
a,1,2,16,17
a,2,3,4,5,6,7,8,9,10
a,10,11,12,15
a,13,14,19,18

!拖拉线
k,20,-1.7500 , 8.1000 ,-0.175
l,11,20
!拖拉生成体
vdrag,1,2,3,4,,,25

!横系梁
!局部坐标
kl,18,0.5
kl,32.0.5
k,,-0.45475,0.33,
kwplan,1,42,40,41
!横系梁点拱腿
wprota,0,90
vsbw,1
wpoffs,,-4.1
wprota,0,90,
vsbw,5,
vsbw,6,
wpoffs,,,4.1
vsbw,7,
vsbw,8,
wpoffs,,,4.1
vsbw,6,
vsbw,10,
!横系梁点拱肋
WPCSYS,-1 !将工作平面设为与总体笛卡儿坐标一致
wpoffs,-1.75,7.81
wprota,,90
vsbw,3
vsbw,2
wprota,,,-90
wpoffs,,,-4.017
vsbw,10
vsbw,13
wpoffs,,,-3.7
vsbw,2
vsbw,10
wpoffs,,,-3.7
vsbw,13
vsbw,18
wpoffs,,,-3.7
vsbw,10
vsbw,20
wpoffs,,,-3.7
vsbw,3
vsbw,14
wpoffs,,,-3.7
vsbw,20
vsbw,24
wpoffs,,,-3.7
vsbw,14
vsbw,26
wpoffs,,,-3.7
vsbw,24
vsbw,28
!较长那根
wpoffs,,,12.617
vsbw,23
vsbw,3
WPCSYS,-1 !将工作平面设为与总体笛卡儿坐标一致
!压缩一下编号
nummrg,all
numcmp,all