架空线(分裂导线)
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
FINISH
/CLEAR
/FILNAME,DAOXIAN
/PREP7
/UNITS,SI
ET,1,LINK167
ET,2,LINK167
ET,3,LINK167
ET,4,LINK167
ET,5,LINK167
ET,6,LINK160
EDMP,CABLE,1 !定义材料1
MP,EX,1,6.5E10 ！定义材料弹性模量
MP,NUXY,1,0.3 ！定义材料泊松比
MP,DENS,1,12689.2 !四分裂，定义材料密度
EDMP,CABLE,2 !定义材料2
MP,EX,2,6.5E10
MP,NUXY,2,0.3
MP,DENS,2,3172
EDMP,RIGI,3,7,7 !定义材料3
MP,EX,3,2E11
MP,NUXY,3,0.3
MP,DENS,3,2000
!导地线实常数
R,1,2.1262E-3,0.00778 !导线实常数
*DO,I,-49,51,1
K,I+50+10100,(I-1)*5+250,3281*(EXP((I-1)*5/3281)+EXP(-(I-1)*5/3281))/2-3281-9.5291+55,0 *ENDDO
*DO,J,10101,10103,1
L,J,J+1
*ENDDO
LATT,1,1,1,,,
LESIZE,ALL,,,1
LMESH,ALL
!定义断线处PART2（第三个单元上）间隔棒长度为0.4米，删除part2/3/4/5
K,1,15,53.690,0.2 ！定义关键点
K,2,20,53.336,0.2
L,1,2 ！通过2个关键点定线
LATT,2,1,2,,,
LESIZE,ALL,,,1
LMESH,ALL
K,3,15,53.690,-0.2
K,4,20,53.336,-0.2
L,3,4
LATT,2,1,3,,,
LESIZE,ALL,,,1
LMESH,ALL
K,5,15,54.090,0.2
K,6,20,53.736,0.2
L,5,6
LATT,2,1,4,,,
LESIZE,ALL,,,1
LMESH,ALL
K,7,15,54.090,-0.2
K,8,20,53.736,-0.2
L,7,8
LATT,2,1,5,,,
LESIZE,ALL,,,1
LMESH,ALL
*DO,J,10105,10200,1
L,J,J+1
*ENDDO
LATT,1,1,1,,,
LESIZE,ALL,,,1
LMESH,ALL
! 建立间隔棒（刚体）
L,1,7
L,3,5
L,2,8
L,4,6
LATT,3,1,6,,,
LESIZE,ALL,,,1
LMESH,ALL
! 建立PART
EDPART,CREATE !已不同材料、实常数、单元类型建立的部件!施加架空线约束
CSYS,0
NSEL,S,LOC,X,-1,1
NSEL,R,LOC,Z,-21,21
D,ALL,,0,,,,,UX,UY,UZ,,,
NSEL,S,LOC,X,499,501
NSEL,R,LOC,Z,-21,21
D,ALL,,0,,,,,UX,UY,UZ,,,
ALLSEL,ALL
NUMCUMP,ALL
FINISH
/SOLU
NSEL,S,LOC,Y,-200,200
CM,BODY,NODE !!!!建立组元
*DIM,TIME,ARRAY,2,1,1,,, !!!!定义时间数组
*SET,TIME(1,1,1),0.0
*SET,TIME(2,1,1),5.0
*DIM,GY,ARRAY,2,1,1,,,
*SET,GY(1,1,1),9.8 !!!!定义加速度数组
*SET,GY(2,1,1),9.8
EDLOAD,ADD,ACL Y,0,BODY,TIME,GY !!!!向节点组元BODY施加重力加速度TIME,5.0, !!!!设置求解时间
EDOPT,ADD,,LSDYNA !!!!设置结果文件类型
EDRST,300, !!!!设置结果文件输出步数
EDHTIME,1, !!!!设置时间历程文件输出步数
EDDUMP,1,
EDWRITE,LSDYNA,XIAOLOU9,K !!!!输出关键字文件
/SOLU
EDSTART,2,
NSEL,S,LOC,Y,-200,200
CM,BODY,NODE !!!!建立组元
*DIM,TIME,ARRAY,2,1,1,,, !!!!定义时间数组
*SET,TIME(1,1,1),0.0
*SET,TIME(2,1,1),20.0
*DIM,GY,ARRAY,2,1,1,,,
*SET,GY(1,1,1),9.8 !!!!定义加速度数组
*SET,GY(2,1,1),9.8
EDLOAD,ADD,ACL Y,0,BODY,TIME,GY !!!!向节点组元BODY施加重力加速度TIME,5.1,
EDOPT,ADD,,LSDYNA !!!!设置结果文件类型
EDRST,300, !!!!设置结果文件输出步数
EDHTIME,1, !!!!设置时间历程文件输出步数
EDWRITE,LSDYNA,XIAOLOU10,K !!!!输出关键字文件
/SOLU
EDSTART,2,
NSEL,S,LOC,Y,-200,200
CM,BODY,NODE !!!!建立组元
*DIM,TIME,ARRAY,2,1,1,,, !!!!定义时间数组
*SET,TIME(1,1,1),0.0
*SET,TIME(2,1,1),20.0
*DIM,GY,ARRAY,2,1,1,,,