FLAC3D命令流.docx
- 文档编号:1080913
- 上传时间:2022-10-16
- 格式:DOCX
- 页数:36
- 大小:33.53KB
FLAC3D命令流.docx
《FLAC3D命令流.docx》由会员分享,可在线阅读,更多相关《FLAC3D命令流.docx(36页珍藏版)》请在冰豆网上搜索。
FLAC3D命令流
命令流
1
genzonebrip0000pl1000p20100p30010&
p415150p501515p615010p720
2020&
size101010rat1.00.91.1groupbrick_1
genzonebrip02000p1add1000p2add0200p3add0015&
size101010rat1.00.91.1groupbrick_2
genzonebrip04000edge10size101010rat1.00.9
1.1groupbrick_3
plotsur
2-1
new
genzonbrisize333
modelelas
propbulk3e8shear1e8
inidens2000
fixzranz-.1.1
fixxranx-.1.1
fixxranx2.93.1
fixyrany-.1.1
fixyrany2.93.1
setgrav00-10
solve
appnstress-10e4ranz3x12y12
histgpvel003
histgpvel033
plohist1red
ploaddhist2blue
solve
3-1
;工程信息
;ProjectRecordTreeexport
;Title:
Simpletest
;计算第一步
;...STATE:
STATE1....
config
grid10,10
modelelastic
group'User:
Soil'notnull
modelelasticnotnullgroup'User:
Soil'
propdensity=1500.0bulk=3E6shear=1E6notnullgroup
'User:
Soil'
fixxyj1
fixxi1
fixxi11
setgravity=9.81
history999unbalaneed
solve
savestate1.sav
;计算第二步
;...STATE:
STATE2....
initialxdisp0ydisp0
initialxvel0yvel0
modelnulli47j810
group'null'i47j810
groupdelete'null'
history1xdispi=4,j=11
solve
savestate2.sav
;绘图命令
;***plotcommands****
;plotname:
syy
plotholdgridsyyfill
;plotname:
Unbalaneedforce
plotholdhistory999
;plotname:
grid
plotholdgridmagnify20.0lredgriddisplacement
;plotname:
Xdis-A
plotholdhistory1line
5-1
new
;定义球体半径和半径方向上单元网格数defparmrad=10.0rad_size=5endparm;建立八分之一球体外接立方体网格
genzonepyramidp0rad00p1rad0radp2radrad0p3000&
p4radradradsizerad_sizerad_sizerad_sizegroup1genzonepyramidp00rad0p1radrad0p20radradp3000&
p4radradradsizerad_sizerad_sizerad_sizegroup2genzonepyramidp000radp10radradp2rad0radp3000&
p4radradradsizerad_sizerad_sizerad_sizegroup3;利用FISH语言将内部立方体节点调整到球面
J
defmake_sphere
p_gp=gp_head
loopwhilep_gp#null
;获取节点点坐标值:
P=(px,py,pz)px=gp_xpos(p_gp)py=gp_ypos(p_gp)pz=gp_zpos(p_gp)dist=sqrt(px*px+py*py+pz*pz)
ifdist>0then
;节点位置调整
maxp=max(px,max(py,pz))k=(maxp/rad)*(rad/dist)gp_xpos(p_gp)=k*pxgp_ypos(p_gp)=k*pygp_zpos(p_gp)=k*pz
end_if
p_gp=gp_next(p_gp)
end_loop
end
;利用镜像生成完整球体网格
make_spheregenzoneref
genzonerefdip90
genzonerefdip90dd90
J
;显示球体网格
plotsurfplsetbackwhplblgr
5-3
n
genzonbrisize112groupsoilranz11grouprockranz01expgrid1.flac3d
6-1
genzonbrisize333
modelmohr
propbu3e6sh1e6coh10e3fric15
fixzranz-.1.1
fixxranx-.1.1
fixxranx2.93.1
fixyrany-.1.1fixyrany2.93.1inidens2000histunbalsetgrav10solveelasticsave6-1.sav
6-2
rest6-1.sav
inixd0yd0zd0xv0yv0zv0
appnstress-100e3ranz2.93.1x12y12solve
save6-2.sav
6-3
rest6-1.sav
inixd0yd0zd0xv0yv0zv0
appnstress-100e3ranz2.93.1x12y12
histid=2gpzdis113
histid=3gpzdis112
histid=4gpxdis113
histid=5gpxdis113
histid=6zoneszz113
histid=7zoneszz1.51.52.5
histid=8zonesxz1.51.52.5
solvesave6-3.sav
6-4rest6-3.savsetlogonsetlogfile6-2.logprintzonestressprintgpdissetlogoff
6-5rest6-1.savinixd0yd0zd0xv0yv0zv0appnstress-100e3ranz2.93.1x12y12plotsetrot20030plotconszzouonmagf10plotaddhist1
setmovieavistep1file6-5.avimoviestartsolvemoviefinish
7-1ngenzonbrisize112modelelaspropbulk3e7shear1e7fixzranz0fixxranx0fixxranx1fixyrany0fixyrany1inidens2000setgrav00-10solveploconsz
7-2ngenzonbrisize112
modelmohr
propbulk3e7shear1e7c1e10f15tension1e10fixzranz0
fixxranx0fixxranx1fixyrany0fixyrany1inidens2000setgrav00-10solvepropbulk3e7shear1e7c10e3f15ten0solveploconsz
7-3ngenzonebricksize112modelmohrpropbulk3e7shear1e7coh10e3fri15ten0fixzranz0fixxranx0fixxranx1fixyrany0fixyrany1inidens2000setgrav00-10solveelasploconsz
7-4newgenzonebricksize112modelmohrpropbulk3e7shear1e7coh10e3fri15ten0fixzranz0fixxranx0fixxranx1fixyrany0fixyrany1inidens2000
iniszz-40e3grad0020e3ranz02inisyy-20e3grad0010e3ranz02inisxx-20e3grad0010e3ranz02
setgrav00-10solveploconsz
setgrav00-10solveploconsz
7-5
n
genzonbrisize112
modelm
propbulk3e7shear1e7c10e10f15ten1e10fixzranz0
fixxranx0
fixxranx1
fixyrany0
fixyrany1
inidens2000ranz01
inidens1500ranz12
iniszz-35e3grad0020e3ranz01inisyy-17.5e3grad0010e3ranz01inisxx-17.5e3grad0010e3ranz01iniszz-15e3grad0015e3ranz12
inisyy-7.5e3grad007.5e3ranz12i
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- FLAC3D 命令