SimWe仿真论坛's Archiver

COMSOL 2008年会圆满结束!

hishaw 发表于 2008-7-24 13:13

向高手求助:钢梁计算,PRERR命令的SEPC值很高,自适应分网也不行

现有一桥梁顶升用扁担梁,构造为顶、底、腹板及横隔板,均采用Q345钢板,顶板受均布面荷载作用。计算下来SEPC高达36%,改用自自适应分网也无法降下来。感觉不是一个复杂结构,可就是求解不出来,束手无策,请各位高手不吝赐教!命令流如下:

finish
/cle

/FILNAME, Sustaining_20080704_10:05, ON

/View,all,1,1,1
/VUP,all,Z
/ESHAPE,1,1

!units:kN,mm,kg,s
/prep7

!分析模式
ANTYPE,STATIC

csys,0
SMRT,OFF

MP,EX,1,206
MP,NUXY,1,0.3
MP,DENS,1,7.85E-6


!================================================================
!钢梁部分

!================================================================
!生成面

B=600     !顶板宽
L=6500   !顶板长
H=750  !腹板高度
 
B1=300   !腹板间距

B2=250   !抱柱箍宽度
H1=400   !抱柱箍高度
!========================

!底板

K,1001,2100-B/2,0,7000
K,1002,2100+B/2,0,7000
K,1003,2100+B/2,L/2,7000
K,1004,2100-B/2,L/2,7000

NUMSTR,area,1001
A,1001,1002,1003,1004

!第2象限
NUMSTR,area,2001
ARSYM,X,1001,1001,1,1000,0,0

!第3象限
NUMSTR,area,3001
ARSYM,Y,2001,2001,1,1000,0,0

!第4象限
NUMSTR,area,4001
ARSYM,X,3001,3001,1,1000,0,0

!========================

!顶板
K,1101,2100-B/2,0,7000+H
K,1102,2100+B/2,0,7000+H
K,1103,2100+B/2,1200,7000+H
K,1104,2100-B/2,1200,7000+H
K,1105,2100+B/2,L/2,7000+H
K,1106,2100-B/2,L/2,7000+H

NUMSTR,area,1101
A,1101,1102,1103,1104
A,1104,1103,1105,1106

!第2象限
NUMSTR,area,2101
ARSYM,X,1101,1102,1,1000,0,0

!第3象限
NUMSTR,area,3101
ARSYM,Y,2101,2102,1,1000,0,0

!第4象限
NUMSTR,area,4101
ARSYM,X,3101,3102,1,1000,0,0

!========================

!外腹板
K,1201,2100+B1/2,0,7000
K,1202,2100+B1/2,L/2,7000
K,1203,2100+B1/2,L/2,7000+H
K,1204,2100+B1/2,0,7000+H

NUMSTR,area,1201
A,1201,1202,1203,1204

!第2象限
NUMSTR,area,2201
ARSYM,X,1201,1201,1,1000,0,0


!第3象限
NUMSTR,area,3201
ARSYM,Y,2201,2201,1,1000,0,0

!第4象限
NUMSTR,area,4201
ARSYM,X,3201,3201,1,1000,0,0

!========================
!内腹板

K,1301,2100-B1/2,0,7000
K,1302,2100-B1/2,0,7000+H-H1
K,1303,2100-B1/2,L/2,7000+H-H1
K,1304,2100-B1/2,L/2,7000
K,1305,2100-B1/2,0,7000+H
K,1306,2100-B1/2,L/2,7000+H


NUMSTR,area,1301
A,1301,1302,1303,1304
A,1305,1306,1303,1302

!第2象限
NUMSTR,area,2301
ARSYM,X,1301,1302,1,1000,0,0


!第3象限
NUMSTR,area,3301
ARSYM,Y,2301,2302,1,1000,0,0

!第4象限
NUMSTR,area,4301
ARSYM,X,3301,3302,1,1000,0,0

!========================

!内横隔板
K,1401,2100-B/2,0,7000
K,1402,2100-(B-B1)/2,0,7000
K,1403,2100-(B-B1)/2,0,7000+H
K,1404,2100-B/2,0,7000+H

NUMSTR,area,1400
A,1401,1402,1403,1404

!第1象限

*Dim,DistStiffPlate,ARRAY,9,1,1,,,,0

DistStiffPlate(1)=275
DistStiffPlate(2)=300
DistStiffPlate(3)=325
DistStiffPlate(4)=350
DistStiffPlate(5)=262.5
DistStiffPlate(6)=262.5
DistStiffPlate(7)=300
DistStiffPlate(8)=325
DistStiffPlate(9)=350

NUMSTR,area,1401

DSP=0

*DO, NN,1,9,1

DSP=DSP+DistStiffPlate(NN)

AGEN,2,1400,1400+NN,NN,0,DSP,0,10*NN

*ENDDO

!第2象限

NUMSTR,area,2401
ARSYM,X,1401,1409,1,1000,0,0

!第3象限

NUMSTR,area,3400
ARSYM,X,1400,1400,1,2000,0,0

NUMSTR,area,3401
ARSYM,Y,2401,2409,1,1000,0,0

!第4象限

NUMSTR,area,4401
ARSYM,X,3401,3409,1,1000,0,0

!外横隔板

!第1象限
NUMSTR,area,1500
AGEN,2,1400,1409,1,(B+B1)/2,0,0,100

!第2象限
NUMSTR,area,2501
AGEN,2,2401,2409,1,-(B+B1)/2,0,0,100

!第3象限
NUMSTR,area,3500
AGEN,2,3400,3409,1,-(B+B1)/2,0,0,100

!第4象限
NUMSTR,area,4501
AGEN,2,4401,4409,1,(B+B1)/2,0,0,100

!========================

!抱柱箍底板

K,1601,2100-B1/2,600+B2,7000+H-H1
K,1602,2100-B1/2,600,7000+H-H1
K,1603,0,600,7000+H-H1
K,1604,0,600+B2,7000+H-H1

NUMSTR,area,1601
A,1601,1602,1603,1604

!第2象限
NUMSTR,area,2601
ARSYM,X,1601,1601,1,1000,0,0


!第3象限
NUMSTR,area,3601
ARSYM,Y,2601,2601,1,1000,0,0

!第4象限
NUMSTR,area,4601
ARSYM,X,3601,3601,1,1000,0,0

!========================

!抱柱箍顶板

K,1701,2100-B/2,600,7000+H
K,1702,2100-B/2,600+B2,7000+H
K,1703,0,600+B2,7000+H
K,1704,0,600,7000+H

NUMSTR,area,1701
A,1701,1702,1703,1704

!第2象限
NUMSTR,area,2701
ARSYM,X,1701,1701,1,1000,0,0


!第3象限
NUMSTR,area,3701
ARSYM,Y,2701,2701,1,1000,0,0

!第4象限
NUMSTR,area,4701
ARSYM,X,3701,3701,1,1000,0,0

!========================

!抱柱箍腹板

K,1801,2100-B1/2,600+B2,7000+H-H1
K,1802,0,600+B2,7000+H-H1
K,1803,0,600+B2,7000+H
K,1804,2100-B1/2,600+B2,7000+H

NUMSTR,area,1801
A,1801,1802,1803,1804

!第2象限
NUMSTR,area,2801
ARSYM,X,1801,1801,1,1000,0,0


!第3象限
NUMSTR,area,3801
ARSYM,Y,2801,2801,1,1000,0,0

!第4象限
NUMSTR,area,4801
ARSYM,X,3801,3801,1,1000,0,0

!========================
!面粘合

SAVE

ASEL,ALL
!APLOT,ALL

AGLUE,ALL

!==================================================================
!面属性分配

ET,1,SHELL63

T=40
HBB=T    !扁担梁底板厚度
HBT=T    !扁担梁顶板厚度
HBW=T   !扁担梁腹板厚度
HBD=T    !扁担梁横隔板厚度

HZB=16    !抱柱梁底板厚度
HZT=16    !抱柱梁顶板厚度
HZW=16   !抱柱梁腹板厚度

!=============================
!扁担梁底板

ASEL,S,LOC,X,2100-B/2,2100+B/2
ASEL,A,LOC,X,-(2100+B/2),-(2100-B/2)
ASEL,R,LOC,Y,-3250,3250
ASEL,R,LOC,Z,7000

R,101,HBB, HBB,HBB,HBB
AATT, 1, 101, 1, 0,0  
CM,BDbottom,AREA

!=============================
!扁担梁顶板

ASEL,S,LOC,X,2100-B/2,2100+B/2
ASEL,A,LOC,X,-(2100+B/2),-(2100-B/2)
ASEL,R,LOC,Y,-3250,3250
ASEL,R,LOC,Z,7000+H

R,102,HBT, HBT,HBT,HBT
AATT, 1, 102, 1, 0,0  
CM,BDtop,AREA

!=============================
!扁担梁外腹板

ASEL,S,LOC,X,2100+B1/2
ASEL,A,LOC,X,-(2100+B1/2)
ASEL,R,LOC,Y,-3250,3250
ASEL,R,LOC,Z,7000,7000+H

R,103,HBW, HBW,HBW,HBW
AATT, 1, 103, 1, 0,0  
CM,BDoweb,AREA

!=============================
!扁担梁内腹板

ASEL,S,LOC,X,2100-B1/2
ASEL,A,LOC,X,-(2100-B1/2)
ASEL,R,LOC,Y,-3250,3250
ASEL,R,LOC,Z,7000,7000+H

R,104,HBW, HBW,HBW,HBW
AATT, 1, 104, 1, 0,0  
CM,BDiweb,AREA

!=============================
!扁担梁横隔板

ASEL,S,LOC,X,2100-B/2,2100-B1/2
ASEL,A,LOC,X,2100+B1/2,2100+B/2
ASEL,A,LOC,X,-(2100-B1/2),-(2100-B/2)
ASEL,A,LOC,X,-(2100+B/2),-(2100+B1/2)
ASEL,R,LOC,Z,7000,7000+H
ASEL,R,LOC,Y,0

DSP=0
*DO, NN,1,9,1

DSP=DSP+DistStiffPlate(NN)

ASEL,A,LOC,Y,DSP
ASEL,A,LOC,Y,-DSP

*ENDDO

R,105,HBD, HBD,HBD,HBD
AATT, 1, 105, 1, 0,0  
CM,BDdiaphragm,AREA

!=============================
!抱柱箍底板

ASEL,S,LOC,Y,600,600+B2
ASEL,A,LOC,Y,-(600+B2),-600
ASEL,R,LOC,X,-(2100-B1/2),2100-B1/2
ASEL,R,LOC,Z,7000+H-H1

R,111,HZB, HZB,HZB,HZB
AATT, 1, 111, 1, 0,0  
CM,BZbottom,AREA

!=============================
!抱柱箍顶板

ASEL,S,LOC,Y,600,600+B2
ASEL,A,LOC,Y,-(600+B2),-600
ASEL,R,LOC,X,-(2100-B/2),2100-B/2
ASEL,R,LOC,Z,7000+H

R,112,HZT, HZT,HZT,HZT
AATT, 1, 112, 1, 0,0  
CM,BZtop,AREA

!=============================
!抱柱箍腹板

ASEL,S,LOC,Y,600+B2
ASEL,A,LOC,Y,-(600+B2)
ASEL,R,LOC,X,-(2100-B1/2),2100-B1/2
ASEL,R,LOC,Z,7000+H-H1,7000+H

R,113,HZW, HZW,HZW,HZW
AATT, 1, 113, 1, 0,0  
CM,BZweb,AREA

!==================================================================
!网格划分

ASEL,ALL

MSHAPE,0,2d
MSHKEY,0
!SMRTSIZE,3
!ESIZE,50

!ASEL,ALL
!AMESH,ALL



!==================================================================
!合并节点、单元、关键点

ALLSEL
NUMMRG,NODE
NUMMRG,ELEM
NUMMRG,KP

!==================================================================
!保存

ALLSEL
SAVE

FINISH

!================
!生成分网子程序

*CREATE,ADAPTMSH,MAC
C*** Subroutine ADAPTMSH.MAC - ZSF - NanPu Bridge

ASEL,ALL   
TYPE,1
ACLEAR,ALL
AMESH,ALL

*END

!================
!生成边界条件子程序

*CREATE,ADAPTBC,MAC
C*** Subroutine ADAPTBC.MAC - ZSF - NanPu Bridge

!支撑第1象限
NSEL,NONE

LOCAL,11,1,2100,1075,7000
NSEL,S,LOC,X,0,275
NSEL,R,LOC,Z,0

NSEL,A,LOC,X,0
NSEL,R,LOC,Z,0

CM,HptNode_1,NODE

D,HptNode_1,ALL

!================
NSEL,NONE

LOCAL,11,1,2100,2575,7000
NSEL,S,LOC,X,0,275
NSEL,R,LOC,Z,0

NSEL,A,LOC,X,0
NSEL,R,LOC,Z,0

CM,HptNode_2,NODE
D,HptNode_2,ALL


!支撑第2象限
NSEL,NONE

LOCAL,11,1,-2100,2575,7000
NSEL,S,LOC,X,0,275
NSEL,R,LOC,Z,0

NSEL,A,LOC,X,0
NSEL,R,LOC,Z,0

CM,HptNode_3,NODE
D,HptNode_3,ALL


!自重
ACEL,0,0,9.8e-3

!加载面荷载作用于扁担梁
ASEL,S,LOC,X,-2400,-1800
ASEL,A,LOC,X,1800,2400
ASEL,R,LOC,Y,-1200,1200
ASEL,R,LOC,Z,7000+H
CM,Loadsurface_1,Area
SFA,Loadsurface_1,2,PRES,4.5833e-3
SFTRAN

*END

!================
!生成求解子程序

*CREATE,ADAPTSOL,MAC
C*** Subroutine ADAPTSOL.MAC - ZSF - NanPu Bridge

/SOLU
SOLVE
FINISH

*END
!==================================================================
!自适应网格划分

ADAPT,,5,,,,,1

!*ULIB,ADAPTMSH.MAC
*USE,ADAPTMSH.MAC

!*ULIB,ADAPTBC.MAC
*USE,ADAPTBC.MAC

!*ULIB,ADAPTSOL.MAC
*USE,ADAPTSOL.MAC

!==================================================================
!后处理

/POST1


PLDISP      
PRERR

[[i] 本帖最后由 hishaw 于 2008-7-25 12:50 编辑 [/i]]

pfsr 发表于 2008-7-24 19:43

你的标题是不是可以修改一下?谢谢

页: [1]
 

Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.