flac3d工程实例
- 格式:ppt
- 大小:3.26 MB
- 文档页数:36
FLAC及FLAC3D基础与工程实例51-2FLAC及FLAC3D基础与工程实例51第1章FLAC、FLAC3D的功能与特性自R.W;数值模拟技术的优势在于有效延伸和扩展了分析人员的;本章重点:;?FLAC/FLAC3D 的主要特点;?FLAC/FLAC3D的不足之处;1.1FLAC/FLAC3D简介;FLAC (FastLagrangianAnaly;FLAC有二维和三维计算软件两个版本,即FLAC;1.2FLAC/FLAC3D的主要特点;F第1章FLAC、FLAC3D的功能与特性自R.W. Clough 1965年首次将有限元引入土石坝的稳定性分析以来,数值模拟技术在岩土工程领域获得了巨大的进步,并成功解决了许多重大工程问题。
特别是个人电脑的出现及其计算性能的不断提高,使得分析人员在室内进行岩土工程数值模拟成为可能,也使得数值模拟技术逐渐成为岩土工程研究和设计的主流方法之一。
数值模拟技术的优势在于有效延伸和扩展了分析人员的认知范围,为分析人员洞悉岩、土体内部的破坏机理提供了强有力的可视化手段。
因此,优秀的岩土工程数值模拟软件须在专业性、可视化及信息输出等方面做到相对完备,方能使分析人员专注于工程实际问题的研究、分析和解决。
FLAC 系列软件的出现,为岩土工程研究工作者提供了一款功能强大的数值模拟工具。
本章重点:FLAC/FLAC3D的主要特点FLAC/FLAC3D的不足之处1.1 FLAC/FLAC3D简介FLAC(Fast Lagrangian Analysis of Continua)是由Itasca公司研发推出的连续介质力学分析软件,是该公司旗下最知名的软件系统之一。
FLAC目前已在全球七十多个国家得到广泛应用,在国际土木工程(尤其是岩土工程)学术界和工业界享有盛誉。
FLAC有二维和三维计算软件两个版本,即FLAC2D(1984)和FLAC3D(1994)。
这里进行一下说明,本书在阐述软件系列时,以FLAC统一称谓FLAC2D和FLAC3D;分述FLAC2D和FLAC3D时,FLAC仅指代FLAC2D。
FLAC3D模拟实例循环开挖与支护nres ini.savset geometry=0.001ini ydis0ini xdis0ini zdis0ini yvel0ini xvel0ini zvel0m mprop bulk 4.0e9shear 2.5e9fri32coh 2.0e6& range grou diban-shayan;prop bulk 1.8e9shear 1.2e9fri25coh 1.0e6& range grou diban-niyan any grou hangdao any;prop bulk 1.2e9shear0.8e9fri22coh0.8e6& range grou diban-gentuyan;prop bulk 1.9e9shear 1.3e9fri24coh 1.0e6& range grou diban-tniyan;prop bulk0.7e9shear0.8e9fri21coh0.7e6& range grou mc any grou gzm any;prop bulk 3.0e9shear 2.5e9fri30coh 1.8e6& range grou dingban-fenshayan;prop bulk 1.5e9shear 1.2e9fri25coh 1.1e6& range grou dingban-niyan;prop bulk 3.5e9shear 2.5e9fri34coh 1.4e6& range grou dingban-shayan;添加接触面gen separate gzminterface1wrap mc gzminterface2wrap dingban-fenshayan gzm interface1prop kn20e9ks10e9tens1e9 interface2prop kn20e9ks10e9tens1e9set mech ratio=5e-4def excav_mcloop n(excav_p,excav_p_z+cut_liang);每次开挖量cut_0=excav_pcut_1=excav_p+cut_liang;开挖commandm null range grou gzm z cut_0cut_1step100end_commandn=excav_p+cut_Liangexcav_p=excav_p+cut_Liang;条件判断保存文件,这里判断条件必须和cut_liang对应上,否则不能得到想要的文件。
《FLA C/FLA C 3D基础与工程实例》全部命令流1gen zone bri p0 0 0 0 p1 10 0 0 p2 0 10 0 p3 0 0 10 &p4 15 15 0 p5 0 15 15 p6 15 0 10 p7 20 20 20 &size 10 10 10 rat 1.0 0.9 1.1 groupbrick_1gen zone bri p0 20 0 0 p1 add 10 0 0 p2 add 0 20 0 p3 add 0 0 15 & size 10 10 10 rat 1.0 0.9 1.1 groupbrick_2gen zone bri p0 40 0 0 edge 10 size 10 10 10 rat 1.0 0.9 1.1 groupbrick_3 plot surnewgen zon bri size 3 3 3modelelasprop bulk 3e8 shear1e8ini dens 2000fix z ran z -.1 .1fix x ran x -.1 .1fix x ran x 2.9 3.1fix y ran y -.1 .1fix y ran y 2.9 3.1set grav 0 0 -10solveapp nstres s -10e4 ran z 3 x 1 2 y 1 2 hist gp vel 0 0 3hist gp vel 0 3 3plo hist 1 redplo add hist 2 bluesolve;-------------------------------------工程信息;Projec t Record Tree export;Title:Simple test;---------------------------------计算第一步;... STATE: STATE1 ....configgrid 10,10modelelasti cgroup'User:Soil' notnul lmodelelasti c notnul l group'User:Soil'prop densit y=1500.0 bulk=3E6 shear=1E6 notnul l group'User:Soil' fix x y j 1fix x i 1fix x i 11set gravit y=9.81histor y 999 unbala ncedsolvesave state1.sav;----------------------------------计算第二步;... STATE: STATE2 ....initia l xdisp0 ydisp0initia l xvel 0 yvel 0modelnull i 4 7 j 8 10group'null' i 4 7 j 8 10groupdelete 'null'histor y 1 xdispi=4, j=11solvesave state2.sav;--------------------------------绘图命令;*** plot comman ds ****;plot name: syyplot hold grid syy fill;plot name: Unbala ncedforceplot hold histor y 999;plot name: gridplot hold grid magnif y 20.0 lred grid displa cemen t;plot name: Xdis-Aplot hold histor y 1 linenew; ===============================; 定义球体半径和半径方向上单元网格数; ===============================def parmrad=10.0rad_si ze=5endparm; ===============================; 建立八分之一球体外接立方体网格; ===============================gen zone pyrami d p0 rad 0 0 p1 rad 0 rad p2 rad rad 0 p3 0 0 0 & p4 rad rad rad size rad_si ze rad_si ze rad_si ze group1gen zone pyrami d p0 0 rad 0 p1 rad rad 0 p2 0 rad rad p3 0 0 0 & p4 rad rad rad size rad_si ze rad_si ze rad_si ze group2gen zone pyrami d p0 0 0 rad p1 0 rad rad p2 rad 0 rad p3 0 0 0 & p4 rad rad rad size rad_si ze rad_si ze rad_si ze group3; ==================================; 利用FISH语言将内部立方体节点调整到球面; ==================================def make_s pherep_gp=gp_hea dloop whilep_gp#null; 获取节点点坐标值:P=(px,py,pz)px=gp_xpo s(p_gp)py=gp_ypo s(p_gp)pz=gp_zpo s(p_gp)dist=sqrt(px*px+py*py+pz*pz)if dist>0 then; 节点位置调整maxp=max(px,max(py,pz))k=(maxp/rad)*(rad/dist)gp_xpo s(p_gp)=k*pxgp_ypo s(p_gp)=k*pygp_zpo s(p_gp)=k*pzend_ifp_gp=gp_nex t(p_gp)end_lo opendmake_s phere; ===============================; 利用镜像生成完整球体网格; =============================== gen zone refgen zone ref dip 90gen zone ref dip 90 dd 90; =============================== ; 显示球体网格; =============================== plot surfpl set back whpl bl grngen zon bri size 1 1 2 groupsoil ran z 1 1 grouprock ran z 0 1 expgri d 1.flac3dgen zon bri size 3 3 3modelmohrprop bu 3e6 sh 1e6 coh 10e3 fric 15 fix z ran z -.1 .1fix x ran x -.1 .1fix x ran x 2.9 3.1fix y ran y -.1 .1fix y ran y 2.9 3.1ini dens 2000hist unbalset grav 10solveelasti csave 6-1.savrest 6-1.savini xd 0 yd 0 zd 0 xv 0 yv 0 zv 0app nstres s -100e3ran z 2.9 3.1 x 1 2 y 1 2 solvesave 6-2.savrest 6-1.savini xd 0 yd 0 zd 0 xv 0 yv 0 zv 0app nstres s -100e3ran z 2.9 3.1 x 1 2 y 1 2 hist id=2 gp zdis 1 1 3hist id=3 gp zdis 1 1 2hist id=4 gp xdis 1 1 3hist id=5 gp xdis 1 1 3hist id=6 zone szz 1 1 3hist id=7 zone szz 1.5 1.5 2.5hist id=8 zone sxz 1.5 1.5 2.5solvesave 6-3.savrest 6-3.savset log onset logfil e 6-2.log printzone stress printgp disset log offrest 6-1.savini xd 0 yd 0 zd 0 xv 0 yv 0 zv 0app nstres s -100e3ran z 2.9 3.1 x 1 2 y 1 2 plot set rot 20 0 30plot con szz ou on magf 10plot add hist 1set movieavi step 1 file 6-5.avimoviestartsolvemoviefinishngen zon bri size 1 1 2 modelelasprop bulk 3e7 shear1e7 fix z ran z 0fix x ran x 0fix x ran x 1fix y ran y 0fix y ran y 1ini dens 2000set grav 0 0 -10solveplo con szngen zon bri size 1 1 2modelmohrprop bulk 3e7 shear1e7 c 1e10 f 15 tensio n 1e10 fix z ran z 0fix x ran x 0fix x ran x 1fix y ran y 0fix y ran y 1ini dens 2000set grav 0 0 -10solveprop bulk 3e7 shear1e7 c 10e3 f 15 ten 0solveplo con szngen zone bricksize 1 1 2modelmohrprop bulk 3e7 shear1e7 coh 10e3 fri 15 ten 0 fix z ran z 0fix x ran x 0fix x ran x 1fix y ran y 0fix y ran y 1ini dens 2000set grav 0 0 -10solveelasplo con sznewgen zone bricksize 1 1 2modelmohrprop bulk 3e7 shear1e7 coh 10e3 fri 15 ten 0 fix z ran z 0fix x ran x 0fix x ran x 1fix y ran y 0fix y ran y 1ini dens 2000ini szz -40e3 grad 0 0 20e3 ran z 0 2ini syy -20e3 grad 0 0 10e3 ran z 0 2ini sxx -20e3 grad 0 0 10e3 ran z 0 2set grav 0 0 -10solveplo con szngen zon bri size 1 1 2modelmprop bulk 3e7 shear1e7 c 10e10f 15 ten 1e10 fix z ran z 0fix x ran x 0fix x ran x 1fix y ran y 0fix y ran y 1ini dens 2000 ran z 0 1ini dens 1500 ran z 1 2ini szz -35e3 grad 0 0 20e3 ran z 0 1ini syy -17.5e3 grad 0 0 10e3 ran z 0 1ini sxx -17.5e3 grad 0 0 10e3 ran z 0 1ini szz -15e3 grad 0 0 15e3 ran z 1 2ini syy -7.5e3 grad 0 0 7.5e3 ran z 1 2ini sxx -7.5e3 grad 0 0 7.5e3 ran z 1 2ini pp 10e3 grad 0 0 -10e3 ran z 0 1set grav 0 0 -10solveplo con szngen zon bri size 1 1 2modelmprop bulk 3e7 shear1e7 c 10e10f 15 ten 1e10 fix z ran z 0fix x ran x 0fix x ran x 1fix y ran y 0fix y ran y 1ini dens 2000 ran z 0 2ini szz -50e3 grad 0 0 20e3 ran z 0 1ini syy -30e3 grad 0 0 10e3 ran z 0 1ini sxx -30e3 grad 0 0 10e3 ran z 0 1ini pp 30e3 grad 0 0 -10e3 ran z 0 2app nstres s -10e3 ran z 2set grav 0 0 -10solveplo con sznewgen zone brickp0 0 0 0 p1 60 0 0 p2 0 60 0 p3 0 0 90 & p4 60 60 0 p5 0 60 90 p6 60 0 150 p7 60 60 150 & size 6 6 10modelelaspro bulk 10e10she 10e10ini den 2500applysxx -1e9 grad 0 0 1.1111111e7 rangex -.1 .1 applysxx -1e9 grad 0 0 6.6666666e6 rangex 59.9 60.1 applysyy -1e9 grad 0 0 8.3333333e6 rangey -.1 .1 applysyy -1e9 grad 0 0 8.3333333e6 rangey 59.9 60.1 applyszz -1e8 grad 0 0 8.3333333e5 ran z 0 120set grav 0 0 -10step 30000ini xdisp0 ydisp0 zdisp0ini xvel 0 yvel 0 zvel 0plo cont szznewgen zone brickp0 0 0 0 p1 60 0 0 p2 0 60 0 p3 0 0 90 & p4 60 60 0 p5 0 60 90 p6 60 0 150 p7 60 60 150 & size 6 6 10modelelaspro bulk 10e10she 10e10ini den 2500ini sxx -1e9 grad 0 0 1.1111111e7 rangex -.1 .1ini sxx -1e9 grad 0 0 6.6666666e6 rangex 59.9 60.1ini syy -1e9 grad 0 0 8.3333333e6 rangey -.1 .1ini syy -1e9 grad 0 0 8.3333333e6 rangey 59.9 60.1ini szz -1e8 ran z -.1 .1fix x y z ran z -.1 .1set grav 0 0 -10solveini xdisp0 ydisp0 zdisp0ini xvel 0 yvel 0 zvel 0plo cont szznewgen zone brickp0 0 0 -50 p1 27.5 0 -50 p2 0 5 -50 p3 0 0 -10 size 8 1 10 groupclaygen zone brickp0 27.5 0 -50 p1 100 0 -50 p2 27.5 5 -50 p3 27.5 0 -10 ratio1.1 1 1 size 12 1 10 groupclaygen zone brickp0 0 0 -10 p1 27.5 0 -10 p2 0 5 -10 p3 0 0 0 ratio1 1 0.8 size 8 1 4 groupsoilgen zone brickp0 27.5 0 -10 p1 100 0 -10 p2 27.5 5 -10 p3 27.5 0 0 ratio1.1 1 0.8 size 12 1 4 groupsoilgen zone brickp0 0 0 0 p1 27.5 0 0 p2 0 5 0 p3 0 0 5 p4 27.5 5 0 &p5 0 5 5 p6 20 0 5 p7 20 5 5 size 8 1 5 groupdamfix x y z ran z -49.9 -50.1fix x ran x -.1 .1fix x ran x 99.9 100.1fix ymodelmohr ran z -50 0modelnull ran z 0 5prop bulk 7.8e6 shear3.0e6 coh 10e10tensio n 1e10 ran groupsoilini dens 1500 ran groupsoilprop bulk 3.91e6 shear1.5e6 coh 10e10tensio n 1e10 ran groupclayini dens 1800 ran groupclayset grav 0 0 -9.8hist id=1 unbalsolveprop bulk 7.8e6 shear3.0e6 coh 10e3 fric 15 ran groupsoilprop bulk 3.91e6 shear1.5e6 coh 20e3 fric 20 ran groupclaysolvesave elasti c.savini xdis 0 ydis 0 zdis 0 ;将节点位移清零ini xvel 0 yvel 0 zvel 0 ;将节点速度清零hist id=2 gp zdis 0 0 0 ;记录地基顶部中心点的沉降hist id=3 gp zdis 27.5 0 0 ;记录路基坡脚处的沉降hist id=4 gp xdis 27.5 0 0 ;记录路基坡脚处的水平位移model elasti c ran z 0 1 ; ;激活0 m ~ 1 m的单元prop bulk 7.8e6 shear3.0e6 ran z 0 1ini dens 1500 ran z 0 1solve;按软件默认精度求解save fill-1.savmodelelasti c ran z 1 2prop bulk 7.8e6 shear3.0e6 ran z 1 2ini dens 1500 ran z 1 2solvesave fill-2.savmodelelasti c ran z 2 3prop bulk 7.8e6 shear3.0e6 ran z 2 3ini dens 1500 ran z 2 3solvesave fill-3.savmodelelasti c ran z 3 4prop bulk 7.8e6 shear3.0e6 ran z 3 4ini dens 1500 ran z 3 4solvesave fill-4.savmodelelasti c ran z 4 5prop bulk 7.8e6 shear3.0e6 ran z 4 5ini dens 1500 ran z 4 5solvesave fill-5.savpau;plo bl gr;gen zone brickp0 0 0 0 p1 100 0 0 p2 0 5 0 p3 0 0 5 sizegen zone brickp0 0 0 -50 p1 27.5 0 -50 p2 0 5 -50 p3 0 0 -10 size 8 1 10 groupclay gen zone brickp0 27.5 0 -50 p1 100 0 -50 p2 27.5 5 -50 p3 27.5 0 -10 ratio1.1 1 1 size 12 1 10 groupclaygen zone brickp0 0 0 -10 p1 27.5 0 -10 p2 0 5 -10 p3 0 0 0 ratio1 1 0.8 size 8 1 4 groupsoilgen zone brickp0 27.5 0 -10 p1 100 0 -10 p2 27.5 5 -10 p3 27.5 0 0 ratio1.1 1 0.8 size 12 1 4 groupsoilgen zone brickp0 0 0 0 p1 27.5 0 0 p2 0 5 0 p3 0 0 5 p4 27.5 5 0 &p5 0 5 5 p6 20 0 5 p7 20 5 5 size 8 1 5 groupdamset log on ;打开log记录set logfil e 1.log ;设置记录文件名为:1.logrestore fill-1.sav ;调用保存的文件printgp dis rangei d 517 any id 533 any ;输出两个节点的变形值restor e fill-2.savprintgp dis rangeid 517 any id 533 anyrestor e fill-3.savprintgp dis rangeid 517 any id 533 anyrestor e fill-4.savprintgp dis rangeid 517 any id 533 anyrestor e fill-5.savprintgp dis rangeid 517 any id 533 anyset log off ;关闭log记录def abcabc = 1 + 2 * 3 abcd = 1.0 / 2.0 endabcprintfishdef abcif aa < 0 thenabc = 0.0 elseabc = 2.0 * aa endifendabcdef abcloop aa (1, 2.5) comman dprintaaendcom mand endloo pendnewgen zon bri size 3 3 3modelelasti cprop bu 3e7 sh 1e7ini dens 2000fix x y z ran z -.1 .1fix x ran x -.1 .1fix x ran x 2.9 3.1fix y ran y -.1 .1fix y ran y 2.9 3.1set grav 10solveini xd 0 yd 0 zd 0 xv 0 yv 0 zv 0save 8-4.sav8-5rest 8-4.savdef E_modi fyp_z = zone_h eadd_k = 704d_n = 0.38d_pa = 101325.0 ;//标准大气压loop whilep_z # nullsigma_3 = -1.0 * z_sig1(p_z)E_new= d_k * d_pa * (sigma_3 / d_pa) ^ d_n z_prop(p_z,'young') = E_newp_z = z_next(p_z)endloo pendE_modi fy8-6rest 8-5.savtable1 name load_s ettle mentdef add_lo adp_gp = gp_nea r(2,1,3)loop n (1,5)app_lo ad = n * (-1000e3)file_n ame = '7-6_add_step' + string(n) + '.sav' comman dapp nstres s app_lo ad ran z 2.9 3.1 x 1 2 y 1 2 s olves ave file_n ameendcom mandxtable(1,n) = -1.0 * app_lo adytable(1,n) = gp_zdi sp(p_gp)endloo pendadd_lo adsave 8-6.sav8-7rest 8-6.savdef find_m ax_di spp_gp = gp_hea dmaxdis p_val ue = 0.0maxdis p_gpi d = 0loop whilep_gp # nulldisp_g p = sqrt(gp_xdi sp(p_gp) ^ 2 + gp_ydi sp(p_gp) ^ 2 + gp_zdi sp(p_gp) ^ 2) if disp_g p > maxdis p_val uemaxdis p_val ue = disp_g pmaxdis p_gpi d = gp_id(p_gp)endifp_gp = gp_nex t(p_gp)endloo pendfind_m ax_di spprintmaxdis p_val ue maxdis p_gpi drest 8-6.savconfig zextra 1def get_si gma_d ifp_z = zone_h eadloop whilep_z # nullsigma_dif = z_sig3(p_z) - z_sig1(p_z)z_extr a(p_z,1) = sigma_difp_z = z_next(p_z)endloo pendget_si gma_d ifplot con zextra 1;---------------------------------------------------;; 移来移去法接触面的建立;---------------------------------------------------ngen zone radcyl p0 (0,0,0) p1 (8,0,0) p2 (0,0,-5) p3 (0,8,0) &p4 (8,0,-5) p5 (0,8,-5) p6 (8,8,0) p7 (8,8,-5) &p8 (.3,0,0) p9 (0,.3,0) p10 (.3,0,-5) p11 (0,.3,-5) & size 3 10 6 15 ratio1 1 1 1.15gen zone radcyl p0 (0,0,-5) p1 (8,0,-5) p2 (0,0,-8) p3 (0,8,-5) &p4 (8,0,-8) p5 (0,8,-8) p6 (8,8,-5) p7 (8,8,-8) &p8 (.3,0,-5) p9 (0,.3,-5) p10 (.3,0,-8) p11 (0,.3,-8) & size 3 6 6 15 ratio1 1 1 1.15 fillgen zone reflec t dd 270 dip 90groupclay;interf ace 1 face rangecylind er end1 (0,0,0) end2 (0,0,-5.1) radius .31 &cylind er end1 (0,0,0) end2 (0,0,-5.1) radius .29 notinterf ace 2 face rangecylind er end1 (0,0,-4.9) end2 (0,0,-5.1) radius .31;pausegen zone cyl p0 (0,0,6) p1 (.3,0,6) p2 (0,0,1) p3 (0,.3,6) &p4 (.3,0,1) p5 (0,.3,1) &size 3 10 6gen zone cyl p0 (0,0,6.1) p1 (.3,0,6.1) p2 (0,0,6) p3 (0,.3,6.1) &p4 (.3,0,6) p5 (0,.3,6) &size 3 1 6gen zone reflec t dd 270 dip 90 rangez 1 6.1grouppile rangez 1 6.1pauseini z add -6.0 rangegrouppilesave pile_g eom.sav;导来导去法;---------------------------------------------ngen zone bricksize 3 3 3group2 rangex 1 2 y 1 2 z 1 2group1 rangegr 2 notsave 1.savdel ran group2 notinterf ace 1 face rangex 1 y 1 2 z 1 2interf ace 1 face rangex 2 y 1 2 z 1 2interf ace 1 face rangex 1 2 y 1 z 1 2interf ace 1 face rangex 1 2 y 1 2 z 1interf ace 1 face rangex 1 2 y 1 2 z 2rest 1.savdel ran group2expgri d 1.fac3dimpgri d 1.flac3dmodelelafix x y z ran z 0ini den 2000set grav 0 0 -10interf ace 1 prop kn 20e6 ks 20e6 coh 10e3 fri 15 app nstr -200e3ran x 0 1 y 1 2 z 3solve;切割模型法;------------------------------ngen zone bricksize 3 3 3 group1 rangex 1 2 y 1 2 z 2 3 group2 rangegroup1 not gen separa te 1int 1 wrap 1 2int 1 maxedg e 0.5plo int red9-4; Create Materi al Zonesgen zone bricksize 5 5 5 &p0 (0,0,0) p1 (3,0,0) p2 (0,3,0) p3 (0,0,5) &p4 (3,3,0) p5 (0,5,5) p6 (5,0,5) p7 (5,5,5)gen zone bricksize 5 5 5 p0 (0,0,5) edge 5.0groupMateri al; Create Bin Zonesgen zone bricksize 1 5 5 &p0 (3,0,0) p1 add (3,0,0) p2 add (0,3,0) &p3 add (2,0,5) p4 add (3,6,0) p5 add (2,5,5) &p6 add (3,0,5) p7 add (3,6,5)gen zone bricksize 1 5 5 &p0 (5,0,5) p1 add (1,0,0) p2 add (0,5,0) &p3 add (0,0,5) p4 add (1,6,0) p5 add (0,5,5) &p6 add (1,0,5) p7 add (1,6,5)gen zone bricksize 5 1 5 &p0 (0,3,0) p1 add (3,0,0) p2 add (0,3,0) &p3 add (0,2,5) p4 add (6,3,0) p5 add (0,3,5) &p6 add (5,2,5) p7 add (6,3,5)gen zone bricksize 5 1 5 &p0 (0,5,5) p1 add (5,0,0) p2 add (0,1,0) &p3 add (0,0,5) p4 add (6,1,0) p5 add (0,1,5) &p6 add (5,0,5) p7 add (6,1,5)groupBin rangegroupMateri al not; Create namedrangesynony msrangename=Bin groupBinrangename=Materi al groupMateri al; Assign models to groupsmodelmohr rangeMateri almodelelas rangeBingen separa te Materi alinterf ace 1 wrap Materi al Bin rangeplaneori 0 0 0 normal 1 -1 0 aboveinterf ace 2 wrap Materi al Bin rangeplaneori 0 0 0 normal 1 -1 0 belowint 1 maxedg e 0.55int 2 maxedg e 0.55; Assign proper tiesprop shear1e8 bulk 2e8 fric 30 rangeMateri alprop shear1e8 bulk 2e8 r angeBinini den 2000int 1 prop ks 2e9 kn 2e9 fric 15int 2 prop ks 2e9 kn 2e9 fric 15; Assign Bounda ry Condit ionsfix x rangex -0.1 0.1 any x 5.9 6.1 any fix y rangey -0.1 0.1 any y 5.9 6.1 any fix z rangez -0.1 0.1 Bin; Monito r histor ieshist unbalhist gp zdisp(6,6,10)hist gp zdisp(0,0,10)hist gp zdisp(0,0,0); Settin gsset largeset grav 0,0,-10; Cyclin gstep 4000save bin.sav9-5;;------------------------------------------------------------------;rest pile_g eom.savgroupclaymodelmohr rangeprop bulk 8.333e7 shear3.846e7 coh 30000fric 0 rangegroupclay modelelas rangegrouppileprop bulk 8.333e7 shear3.846e7 rangegrouppileinterf ace 1 prop kn 1e8 ks 1e8 fric 20 coh 30000interf ace 2 prop kn 1e8 ks 1e8 fric 20 coh 30000;ini dens 1230 rangegroupclayini dens 1230 rangegrouppilemodelnull rangez -0.1 0.15;fix z rangez -8.1 -7.9fix x rangex -8.1 -7.9fix x rangex 7.9 8.1fix y rangey -.1 .1fix y rangey 7.9 8.1set grav 0 0 -10ini szz 0. grad 0 0 12300. rangez -5.5 0.ini szz 17600grad 0 0 15500rangez -8 -5.5ini sxx 0. grad 0 0 5271.4 rangez -5.5 0.ini sxx 7542.86 grad 0 0 6642.86 rangez -8 -5.5ini sxx add 31428.6 grad 0 0 5714.3 rangez -8 -5.5ini syy 0. grad 0 0 5271.4 rangez -5.5 0.ini syy 7542.86 grad 0 0 6642.86 rangez -8 -5.5ini syy add 31428.6 grad 0 0 5714.3 rangez -8 -5.5;waterdensit y 1000watertableorigin 0,0,-5.5 normal 0 0 -1ini dens 1550 rangez -8 -5.5hist unbal;solverat 1.e-6save pile0.sav;modelelas rangegrouppileprop bulk 13.9e9 shear10.4e9 rangegrouppileini dens 2500 rangegrouppilecall find_a dd.fissolverat 1.e-6save pile1.savrest pile1.sav ;调用保存文件ini state0ini xdis 0.0 ydis 0.0 zdis 0.0 ;位移清零applyszz -0.4e6 rangez 0.05 0.15 grouppile ;桩顶加第一级荷载solvesave app0.4.savprintgp disp rangei d 1 ;输出第一级荷载下的桩顶位移,假定桩顶中心的i d号为1 applyszz -0.6e6 rangez 0.05 0.15 grouppile ;桩顶加第二级荷载solvesave app0.6.savprintgp disp rangei d 1 ;输出第二级荷载下的桩顶位移…………………………………………;依次加载,直到桩破坏;--------------------------------------------------------------------;速度加载法rest pile1.savini state0ini xdis 0 ydis 0 zdis 0def zs_top;检测桩顶竖向荷载ad = top_he adzftot= 0.0loop whilead # nullgp_pnt = mem(ad+1)zf = gp_zfu nbal(gp_pnt)zftot= zftot+ zfad = mem(ad)endloo pzs_top = zftot/ 0.1414endfix z rangez 0.05 .15 grouppile ;固定桩顶速度,用速度来确定位移def rampwhile_stepp ingif step < ncut thenudapp= float(step) * udmax/ float(ncut)elseudapp= udmaxendifad = top_he adloop whilead # nullgp_pnt = mem(ad+1)gp_zve l(gp_pnt) = udappad = mem(ad)endloo pendhist gp zdis 0,0,0hist gp zvel 0,0,0hist zs_tophist zone szz 0,0,-.1set mech damp combset udmax= -1e-8 ncut 30000step 225000save pile2.sav;;------------------------------------------------------------------------;位移控制法def solve_stepsloop n (1,21)save_f ile = string(n) + '-step.sav'comman ds tep 40000s ave save_f ilepri zone stress ran id 2381 a id 2361 a id 2341 a ;输出桩顶网格单元的应力 endcom mandendloo pendsolve_steps;-----------------------------------------------------------------------------sel beam beg 0 0 0 end 2 0 0 nseg 2sel beam beg 2 0 0 end 4 0 -1 nseg 3sel beam id=2 beg 4 0 -1 end 5 0 -2 nseg 2 plot sel geo id on nod on scale0.04plot ad axsel node id=1 0 0 0sel node id=2 2 0 0sel node id=3 4 0 -1sel node id=4 5 0 -2sel beamse l id=1 cid=1 node 1 2 sel beamse l id=1 cid=2 node 2 3 sel beamse l id=1 cid=3 node 3 4 plot sel geo id on nod on scale0.04 plot ad axdef set_va lsptA = 25.0 * sin( 40.0*degrad )ptB = 25.0 * cos( 40.0*degrad )endset_va lsgen zone cylind er p0=( 0.0, 0.0, 0.0 ) &p1=( ptA, 0.0, ptB ) &p2=( 0.0, 25.0, 0.0 ) &p3=( 0.0, 0.0, 25.0 ) &p4=( ptA, 25.0, ptB ) &p5=( 0.0, 25.0, 25.0 ) &size=(1, 2, 2)sel shellid=5 rangecylind er end1=(0.0, 0.0,0.0) &e nd2=(0.0,25.0,0.0) radius=24.5 not plot blo groplot ad sel geom blackblackcid on scale=0.03plot ad axpaudelete ; delete all zonessel node init zpos add -25.0newgen zone bricksize 6 8 8modelmohrprop bulk 1e8 shear0.3e8 fric 35prop coh 1e10 tens 1e10set grav 0 0 -9.81ini dens 1000fix x rangex -0.1 0.1fix x rangex 5.9 6.1fix y rangey -0.1 0.1fix y rangey 7.9 8.1fix z rangez -0.1 0.1hist n 5hist unbalset mech force50solvesave beam-brace0.sav;prop coh 1e3 tens 1e3modelnull rangex 2 4 y 2 6 z 5 10set largeini xdis 0 ydis 0 zdis 0sel beam begin=( 2, 4, 8) end=( 4, 4, 8) nseg=2sel beam prop emod=2.0e11 nu=0.30sel beam prop XCArea=6e-3 XCIz=200e-6 XCIy=200e-6 XCJ=0.0 hist gp zdisp4 4 8solvesave beam-brace1.sav;plot create GravVplot set planedip 90 dd 0 origin 3 4 0plot set rot 15 0 20plot set center 2.5 4.2 4.0plot set cap size 25plot add cont disp planebehind shadeonplot add sel beam forcefxplot add sel geom blackblacknode=off shrink fac=0.0plot add axesplot show;非全长锚固、预紧力锚杆(锚索)模拟;方法1、通过删除-建立link链接来模拟托盘gen zone radtun p0 0,0,0 p1 25,0,0 p2 0,50, 0 p3 0,0,25 size 4 25 4 10 dim 4 4 4 4 ratio1 1 1 1.1 fillgen zone reflec t normal 1 0 0 ori 0 0 0gen zone reflec t normal0 0 1 ori 0 0 0mo mohrpro bulk 2.2e9 she 1.3e9 fric 30 coh 1.3e6 ten 1.5e5ini dens 2000fix x rangex -25.1,-24.9fix x rangex 24.9 25.1fix y rangey 49.9 50.1fix z rangez -25.1 -24.9fix z rangez 24.9 25.1sel cableid=1 beg 0, 0, 0 end 0 ,29, 0 nseg 10sel cableid=1 beg 0,29,0 end 0,35,0 nseg 6sel cableid=1 prop emod 2e10 ytensi on 310e3xcarea 0.0004906 &gr_coh 1 gr_k 1 gr_per 0.0785 rangecid 1,10sel cableid=1 prop emod 2e10 ytensi on 310e3xcarea 0.0004906 &gr_coh 10e5 gr_k 2e7 rangecid 11,17sel delete link rangeid 1sel link id=100 1 target zonesel link attach xdir=rigidydir=rigidzdir=rigidxrdir=rigidyrdir=rigidzrdir=rigidrangeid 100sel cableid=1 preten sion60e3 rangecid 1,10step 2000sav 10-5.sav;非全长锚固、预紧力锚杆(锚索)模拟;方法2、通过设置极大锚固剂参数模拟托盘gen zone radtun p0 0,0,0 p1 25,0,0 p2 0,50, 0 p3 0,0,25 size 4 25 4 10 dim 4 4 4 4 ratio1 1 1 1.1 fillgen zone reflec t normal 1 0 0 ori 0 0 0gen zone reflec t normal0 0 1 ori 0 0 0mo mohrpro bulk 2.2e9 she 1.3e9 fric 30 coh 1.3e6 ten 1.5e5ini dens 2000fix x rangex -25.1,-24.9fix x rangex 24.9 25.1fix y rangey 49.9 50.1fix z rangez -25.1 -24.9fix z rangez 24.9 25.1sel cableid=1 beg 0, 0, 0 end 0 ,29, 0 nseg 10sel cableid=1 beg 0,29,0 end 0,35,0 nseg 6sel cable prop emod 2e10 ytensi on 310e3xcarea 0.0004906 &gr_coh 1 gr_k 1 gr_per 0.0785 rangecid 2,10sel cable prop emod 2e10 ytensi on 310e3xcarea 0.0004906 &gr_coh 10e5 gr_k 2e7 rangecid 11,17sel cable prop emod 2e10 ytensi on 310e3xcarea 0.0004906 &gr_coh 10e8 gr_k 2e10 rangecid 1,1sel cableid=1 preten sion60e3 rangecid 1,10step 2000sav 10-6.sav;非全长锚固、预紧力锚杆(锚索)模拟;方法3、借助别的结构单元(如liner单元)来模拟托盘gen zone radtun p0 0,0,0 p1 25,0,0 p2 0,50, 0 p3 0,0,25 size 4 25 4 10 dim 4 4 4 4 ratio1 1 1 1.1 fillgen zone reflec t normal 1 0 0 ori 0 0 0gen zone reflec t normal0 0 1 ori 0 0 0mo mohrpro bulk 2.2e9 she 1.3e9 fric 30 coh 1.3e6 ten 1.5e5ini dens 2000fix x rangex -25.1,-24.9fix x rangex 24.9 25.1fix y rangey 49.9 50.1fix z rangez -25.1 -24.9fix z rangez 24.9 25.1sel cableid=1 beg 0, 0, 0 end 0 ,29, 0 nseg 10sel cableid=1 beg 0,29,0 end 0,35,0 nseg 6sel cableid=1 prop emod 2e10 ytensi on 310e3xcarea 0.0004906 &gr_coh 1 gr_k 1 gr_per 0.0785 rangecid 1,10sel cableid=1 prop emod 2e10 ytensi on 310e3xcarea 0.0004906 &gr_coh 10e5 gr_k 2e7 rangecid 11,17sel linerrangey=-.1, .1 x=-1,1 z=-1,1sel linerPROP iso=( 25e9, 0.15) thick=0.1 ; concre tesel linerPROP cs_nk=8e8 cs_sk=8e8 &cs_ncu t=0.0 cs_sco h=0.0 cs_sco hres=0.0 cs_sfr ic=0.0sel delete link rangeid 1sel link id=100 1 target node tgt_nu m 18sel link attach xdir=rigidydir=rigidzdir=rigidxrdir=rigidyrdir=rigidzrdir=rigidrangeid 100sel cableid=1 preten sion60e3 rangecid 1,10step 2000sav 10-7.savntitleStruct ure_d ynami c_ana lysis_lake waterconfig dynsel pile id=1 beg 0 0 0 end 0 0 1sel pile prop dens 2400 &Emod 1.0e10 Nu 0.3 XCArea 0.3 &XCJ 0.16375XCIy 0.00625XCIz 0.01575&Per 2.8 &CS_sK1.3e11 CS_sCo h 0.0 CS_sFr ic 10.0 &CS_nK1.3e11 CS_nCo h 0.0 CS_nFr ic 0.0 CS_nGa p offdef f1whiles teppi ngf0=10000*sin(10*dytime)np = nd_hea dloop whilenp # nullif nd_pos(np,1,3)=1nd_app ly(np,1)=f0endifnp = nd_nex t(np)endloo pendsel node fix x y z xr yr zr ran id=1sel set damp combin edplo cre pileplo curren t pileplo set back blackfore whitemag 0.8plo add sel geo id on sca .04 magf 1e3plo add sel fapp lgreen magf 1e3plo add sel pile mom my lbluelred magf 1e3 axe yelset movieavi step 100 file pile.avimoviestartsol age 1moviefinishnewconf dyn ;打开动力计算功能gen zone bricksize 10 5 10mod elasmod null rangex=0,5 z=5,10 ;删除部分网格fix z rangex=-.1 .1 z=.1 10.1 ;设置静力边界条件fix z rangex=9.9,10.1 z=.1 10.1fix y rangey=-.1 .1fix y rangey=4.9 5.1prop bulk 2e8 shear 1e8 ;设置土体参数prop bulk 4e9 shear 2e9 rangex=5,6 z=5,10 ;设置墙体参数(土体参数的20倍)ini dens 2000 ;设置密度def setup;动荷载中的变量赋值freq = 1.0omega= 2.0 * pi * freqold_ti me = clockendsetup;执行变量赋值def wave ;定义动荷载函数wave = sin(omega* dytime) ;定义动荷载变量endapplyxvel = 1 hist wave rangez=-.1 .1 ;施加动荷载applyzvel = 0 r angez=-.1 .1hist gp xvel 5,2,0hist gp xvel 5,2,10hist gp zvel 5,2,10hist dytimedef tim ;估算程序运行的时间tim = 0.01 * (clock- old_ti me)endset dyn multi on ;设置动态多步solveage 1.0print tim ;输出计算时间printdyn ;输出动力计算相关信息save mult1.savnewconfig dyngen zone bricksize 1,1,50modelelasprop shear1e7 bulk 2e7ini dens 1000def setupomega= 2.0 * pi * freqpulse= 1.0 / freqendset freq=4.0setupdef waveif dytime > pulsewave = 0.0elsewave = 0.5 * (1.0 - cos(omega* dytime))endifendrangename bottom z=-.1 .1fix z rangez=.5 55 ;将上部网格都施加数值向约束applydquiet squiet rangebottomapplysxz -2e5 hist wave syz 0.0 szz 0.0 rangebottom;-2e5的系数来源于的值applynvel 0 planenorm 0,0,1 rangebottomhist gp xvel 0,0,0hist gp xvel 0,0,25hist gp xvel 0,0,50hist dytimehist waveplot create hhhplot add hist 1 2 3 vs 4plot showsolveage 2。
flac3d基础与工程实例第二版英文回答:FLAC3D is a numerical modeling software widely used in geotechnical engineering and rock mechanics. It is capable of simulating various types of geotechnical problems, such as slope stability analysis, tunneling, excavation, and underground mining. The software is based on the finite difference method and can handle both 2D and 3D problems.One of the key features of FLAC3D is its ability to model the behavior of materials under complex loading conditions. It can simulate the response of rocks and soils to different types of loads, including static, dynamic, and cyclic loading. This makes it a valuable tool for studying the stability of slopes and underground excavations.In addition to its modeling capabilities, FLAC3D also offers a wide range of analysis tools. It can calculate the stress and strain distributions within a model, as well asthe displacement and deformation of the material. This allows engineers to assess the safety and stability of a structure or excavation and make informed decisions about design and construction.Furthermore, FLAC3D provides a user-friendly interface that allows engineers to easily build and modify models. It supports both graphical and command-line input, giving users the flexibility to choose the method that suits them best. The software also offers a range of visualization options, allowing engineers to easily interpret and present their results.中文回答:FLAC3D是一种广泛应用于岩土工程和岩石力学领域的数值建模软件。
《FLAC3D基础与工程实例》全部命令流《FLAC/FLAC 3D基础与工程实例》全部命令流1gen zone bri p0 0 0 0 p1 10 0 0 p2 0 10 0 p3 0 0 10 &p4 15 15 0 p5 0 15 15 p6 15 0 10 p7 20 20 20 &size 10 10 10 rat 1.0 0.9 1.1 group brick_1gen zone bri p0 20 0 0 p1 add 10 0 0 p2 add 0 20 0 p3 add 0 0 15 &size 10 10 10 rat 1.0 0.9 1.1 group brick_2gen zone bri p0 40 0 0 edge 10 size 10 10 10 rat 1.0 0.9 1.1 group brick_3 plot surnewgen zon bri size 3 3 3model elasprop bulk 3e8 shear 1e8ini dens 2000fix z ran z -.1 .1fix x ran x -.1 .1fix x ran x 2.9 3.1fix y ran y -.1 .1fix y ran y 2.9 3.1set grav 0 0 -10solveapp nstress -10e4 ran z 3 x 1 2 y 1 2 hist gp vel 0 0 3hist gp vel 0 3 3plo hist 1 redplo add hist 2 bluesolve;-------------------------------------工程信息;Project Record Tree export;Title:Simple test;---------------------------------计算第一步;... STATE: STATE1 ....configgrid 10,10model elasticgroup 'User:Soil' notnullmodel elastic notnull group 'User:Soil'prop density=1500.0 bulk=3E6 shear=1E6 notnull group 'User:Soil' fix x y j 1fix x i 1fix x i 11set gravity=9.81history 999 unbalancedsolvesave state1.sav;----------------------------------计算第二步;... STATE: STATE2 ....initial xdisp 0 ydisp 0initial xvel 0 yvel 0model null i 4 7 j 8 10group 'null' i 4 7 j 8 10group delete 'null'history 1 xdisp i=4, j=11solvesave state2.sav;--------------------------------绘图命令;*** plot commands ****;plot name: syyplot hold grid syy fill;plot name: Unbalanced forceplot hold history 999;plot name: gridplot hold grid magnify 20.0 lred grid displacement;plot name: Xdis-Aplot hold history 1 linenew; ===============================; 定义球体半径和半径方向上单元网格数; ===============================def parmrad=10.0rad_size=5endparm; ===============================; 建立八分之一球体外接立方体网格; ===============================gen zone pyramid p0 rad 0 0 p1 rad 0 rad p2 rad rad 0 p3 0 0 0 & p4 rad rad rad size rad_size rad_size rad_size group 1gen zone pyramid p0 0 rad 0 p1 rad rad 0 p2 0 rad rad p3 0 0 0 & p4 rad rad rad size rad_size rad_size rad_size group 2gen zone pyramid p0 0 0 rad p1 0 rad rad p2 rad 0 rad p3 0 0 0 & p4 rad rad rad size rad_size rad_size rad_size group 3; ==================================; 利用FISH语言将内部立方体节点调整到球面; ==================================def make_spherep_gp=gp_headloop while p_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)if dist>0 then; 节点位置调整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*pzend_ifp_gp=gp_next(p_gp)end_loopendmake_sphere; ===============================; 利用镜像生成完整球体网格; =============================== gen zone refgen zone ref dip 90gen zone ref dip 90 dd 90; =============================== ; 显示球体网格; =============================== plot surf pl set back whpl bl grngen zon bri size 1 1 2 group soil ran z 1 1 group rock ran z 01 expgrid 1.flac3dgen zon bri size 3 3 3model mohrprop bu 3e6 sh 1e6 coh 10e3 fric 15 fix z ran z -.1 .1fix x ran x -.1 .1fix x ran x 2.9 3.1fix y ran y -.1 .1fix y ran y 2.9 3.1ini dens 2000hist unbalset grav 10solve elasticsave 6-1.savrest 6-1.savini xd 0 yd 0 zd 0 xv 0 yv 0 zv 0app nstress -100e3 ran z 2.9 3.1 x 1 2 y 1 2 solvesave 6-2.savrest 6-1.savini xd 0 yd 0 zd 0 xv 0 yv 0 zv 0app nstress -100e3 ran z 2.9 3.1 x 1 2 y 1 2 hist id=2 gp zdis 1 1 3hist id=3 gp zdis 1 1 2hist id=4 gp xdis 1 1 3hist id=5 gp xdis 1 1 3hist id=6 zone szz 1 1 3hist id=7 zone szz 1.5 1.5 2.5hist id=8 zone sxz 1.5 1.5 2.5solvesave 6-3.savrest 6-3.savset log onset logfile 6-2.log print zone stress print gp disset log offrest 6-1.savini xd 0 yd 0 zd 0 xv 0 yv 0 zv 0app nstress -100e3 ran z 2.9 3.1 x 1 2 y 1 2 plot set rot 20 0 30plot con szz ou on magf 10plot add hist 1set movie avi step 1 file 6-5.avimovie startsolvemovie finishngen zon bri size 1 1 2 model elasprop bulk 3e7 shear 1e7 fix z ran z 0fix x ran x 0fix x ran x 1fix y ran y 0fix y ran y 1ini dens 2000set grav 0 0 -10solveplo con szngen zon bri size 1 1 2model mohrprop bulk 3e7 shear 1e7 c 1e10 f 15 tension 1e10 fix z ran z 0fix x ran x 0fix x ran x 1fix y ran y 0fix y ran y 1ini dens 2000set grav 0 0 -10solveprop bulk 3e7 shear 1e7 c 10e3 f 15 ten 0solveplo con szngen zone brick size 1 1 2model mohrprop bulk 3e7 shear 1e7 coh 10e3 fri 15 ten 0 fix z ran z 0 fix x ran x 0fix x ran x 1fix y ran y 0fix y ran y 1ini dens 2000set grav 0 0 -10solve elasplo con sznewgen zone brick size 1 1 2model mohrprop bulk 3e7 shear 1e7 coh 10e3 fri 15 ten 0 fix z ran z 0 fix x ran x 0fix x ran x 1fix y ran y 0fix y ran y 1ini dens 2000ini szz -40e3 grad 0 0 20e3 ran z 0 2ini syy -20e3 grad 0 0 10e3 ran z 0 2ini sxx -20e3 grad 0 0 10e3 ran z 0 2set grav 0 0 -10solveplo con szngen zon bri size 1 1 2model mprop bulk 3e7 shear 1e7 c 10e10 f 15 ten 1e10 fix z ran z 0 fix x ran x 0fix x ran x 1fix y ran y 0fix y ran y 1ini dens 2000 ran z 0 1ini dens 1500 ran z 1 2ini szz -35e3 grad 0 0 20e3 ran z 0 1ini syy -17.5e3 grad 0 0 10e3 ran z 0 1ini sxx -17.5e3 grad 0 0 10e3 ran z 0 1ini szz -15e3 grad 0 0 15e3 ran z 1 2ini syy -7.5e3 grad 0 0 7.5e3 ran z 1 2ini sxx -7.5e3 grad 0 0 7.5e3 ran z 1 2ini pp 10e3 grad 0 0 -10e3 ran z 0 1set grav 0 0 -10solveplo con szngen zon bri size 1 1 2model mprop bulk 3e7 shear 1e7 c 10e10 f 15 ten 1e10 fix z ran z 0fix x ran x 0fix x ran x 1fix y ran y 0fix y ran y 1ini dens 2000 ran z 0 2ini szz -50e3 grad 0 0 20e3 ran z 0 1ini syy -30e3 grad 0 0 10e3 ran z 0 1ini sxx -30e3 grad 0 0 10e3 ran z 0 1ini pp 30e3 grad 0 0 -10e3 ran z 0 2app nstress -10e3 ran z 2set grav 0 0 -10solveplo con sznewgen zone brick p0 0 0 0 p1 60 0 0 p2 0 60 0 p3 0 0 90 & p4 60 60 0 p5 0 60 90 p6 60 0 150 p7 60 60 150 & size 6 6 10model elaspro bulk 10e10 she 10e10ini den 2500apply sxx -1e9 grad 0 0 1.1111111e7 range x -.1 .1 apply sxx -1e9 grad 0 0 6.6666666e6 range x 59.9 60.1 apply syy -1e9 grad 0 0 8.3333333e6 range y -.1 .1 apply syy -1e9 grad 0 0 8.3333333e6 range y 59.9 60.1 apply szz -1e8 grad 0 0 8.3333333e5 ran z 0 120set grav 0 0 -10step 30000ini xdisp 0 ydisp 0 zdisp 0ini xvel 0 yvel 0 zvel 0plo cont szznewgen zone brick p0 0 0 0 p1 60 0 0 p2 0 60 0 p3 0 0 90 & p4 60 60 0 p5 0 60 90 p6 60 0 150 p7 60 60 150 & size 6 6 10model elaspro bulk 10e10 she 10e10ini den 2500ini sxx -1e9 grad 0 0 1.1111111e7 range x -.1 .1ini sxx -1e9 grad 0 0 6.6666666e6 range x 59.9 60.1ini syy -1e9 grad 0 0 8.3333333e6 range y -.1 .1ini syy -1e9 grad 0 0 8.3333333e6 range y 59.9 60.1ini szz -1e8 ran z -.1 .1fix x y z ran z -.1 .1set grav 0 0 -10solveini xdisp 0 ydisp 0 zdisp 0ini xvel 0 yvel 0 zvel 0plo cont szz。
FLAC3D的实例应用分析首先是岩土工程领域。
FLAC3D可以用于模拟岩土体的力学行为,预测在不同荷载作用下的岩土体变形和破坏,为设计和施工提供依据。
例如在基岩边坡稳定性分析中,FLAC3D可以模拟边坡在自然的和工程加载下的变形和破坏,评估边坡的稳定性,并优化边坡设计。
另外,FLAC3D还可以用于模拟土体动力响应,预测地震荷载下土体的动力特性和地震响应,为抗震设计提供参考。
其次是矿产资源开发领域。
FLAC3D可以模拟矿山开采过程中岩体的破坏和变形,评估开采对周围环境的影响,提供合理的采矿方案。
比如在隧道开挖中,FLAC3D可以模拟隧道的开挖和支护过程,评估围岩的稳定性,指导隧道支护设计和施工。
此外,FLAC3D还可以用于矿山坍塌、局部塌陷和裂隙水压力分布等现象的模拟与分析。
第三是地下空间开发领域。
FLAC3D可以模拟地下空间的开挖、支护和使用过程,预测开挖对周围建筑物的影响,评估地下空间的稳定性和安全性。
例如在地铁隧道施工中,FLAC3D可以模拟盾构掘进和地面沉降过程,评估地下水位、水压及地表沉降对周围土体的影响,指导施工方案的调整与优化。
最后是地质灾害研究领域。
FLAC3D可以模拟地质灾害的发生过程,了解其机理和演化规律,评估灾害对人类和环境的影响,提出相应的防灾措施。
例如在滑坡研究中,FLAC3D可以模拟土体的滑动过程,预测滑坡位置、速度和影响范围,为滑坡防治提供科学依据。
此外,FLAC3D还可以用于模拟地震、火山喷发和地下水位变化等灾害事件的发生和演化。
综上所述,FLAC3D在岩土工程、矿产资源开发、地下空间开发和地质灾害研究等领域有着广泛的应用。
它的模拟能力和计算精度使其成为解决实际问题的重要工具,为工程设计和决策提供准确、可靠的技术支持。
FLAC3D工程实例之MILESFIND_ADDCONT_EXCAVPROCAV1、FLAC3D工程实例之MILES.dat(calculate and store Von Mises stress in zone extension1)config zextra 1def mises; --- calculate and store Von Mises stress in zone extension 1 ---p_z = zone_headmax_mises = 0.0loop while p_z # nullmstr = (sxx(p_z) + syy(p_z) + szz(p_z)) / 3.dsxx = sxx(p_z) - mstrdsyy = syy(p_z) - mstrdszz = szz(p_z) - mstrdsxy = sxy(p_z)dsxz = sxz(p_z)dsyz = syz(p_z)vmstr2 = 1.5 * (dsxx*dsxx + dsyy*dsyy + dszz*dszz)vmstr2 = vmstr2 + 3. * (dsxy*dsxy + dsxz*dsxz + dsyz*dsyz) if vmstr2 > 0.0 thenz_extra(p_z,1) = sqrt(vmstr2)elsez_extra(p_z,1) = 0.0endifmax_mises = max(max_mises,z_extra(p_z,1))p_z = z_next(p_z)end_loopendmisesplot cont zextra 1 alias 'Von Mises Stress' averageprint max_mises2、FLAC3D工程实例之FIND_ADD.dat(find gridpoints at pile cap); find gridpoints at pile cap;def find_addtop_head = nullgp_pnt = gp_headloop while gp_pnt # nullif gp_zpos(gp_pnt) > 0.05 thennew = get_mem(2)mem(new) = top_headmem(new+1) = gp_pnttop_head = newendifgp_pnt = gp_next(gp_pnt)endloopendfind_add3、FLAC3D工程实例之CONT_EX.dat(完成当前开挖继续以下开挖); finishes stepping for the current excavation step; and continues following excavation steps;def cont_excavrest_step = 3000*(step/3000+1)-stepif rest_step = 3000 thenrest_step = 0end_ifcommandstep rest_stepend_command;store displacements in tablesxtable(1,cut) = 3.0 * cutytable(1,cut) = zdisp(ipt_surf)xtable(2,cut) = 3.0 * cutytable(2,cut) = zdisp(ipt_crown)xtable(3,cut) = 3.0 * cutytable(3,cut) = zdisp(ipt_spring)commandsave m1.savend_commandif cut=10 thencommandsave m1_30.savend_commandend_ifexcavend4、FLAC3D工程实例之cav.pro(剑桥模型介质的圆柱形空腔膨胀排水结果);-----------------------------------------------------------; cav.pro; results from undrained cylindrical cavity expansion; in Cam-Clay medium;-----------------------------------------------------------res cav.sav; table 10 : pore pressure; table 11 : radial-component of effective stress (xx-stress); table 12 : axial-component of effective stress (yy-stress); table 13 : tangential-component of effective stress (zz-stress) ; rval : ln(r/a0)def b_tablepnt = zone_headloop while pnt # nullxval = xcen(pnt)yval = ycen(pnt)rval = 0.5*ln(xval*xval+yval*yval)c_pp = z_pp(pnt)table(10,rval) = c_pptable(11,rval) = -(sxx(pnt)*cc+syy(pnt)*ss+sxy(pnt)*sc) - c_pp table(12,rval) = -(sxx(pnt)*ss+syy(pnt)*cc-sxy(pnt)*sc) - c_pp table(13,rval) = -szz(pnt) - c_pppnt = z_next(pnt)end_loopendb_table; results ---plot his 9 vs 4 ; Fig 9.3plot his -2 3 vs 4 ; Fig 9.4plot table 10 line 11 line 12 line 13 line ; Fig 9.5ret5、FLAC3D工程实例之CAV(剑桥模型介质的圆柱形空腔膨胀排水);----------------------------------------------------------- ; cav.dat; Undrained cylindrical cavity expansion in Cam-Clay medium;----------------------------------------------------------- title Undrained cylindrical cavity expansion in Cam-Clay medium config fluid; --- model geometry ---gen zone brick p0 1.0 0.0 1.0 p1 200.0 0.0 1.0 &p2 1.0 0.0 0.0 p4 200.0 0.0 0.0 &p3 0.9877 0.1564 1.0 p6 197.5377 31.2869 1.0 &p5 0.9877 0.1564 0.0 p7 197.5377 31.2869 0.0 &size 31 1 1 ratio 1.1 1 1def find_idpnt1 = gp_near(1.,0.,1.)pnt2 = gp_near(1.,0.,0.)pnt3 = gp_near(0.9877,0.1564,1.)pnt4 = gp_near(0.9877,0.1564,0.)id1 = gp_id(pnt1)id2 = gp_id(pnt2)id3 = gp_id(pnt3)id4 = gp_id(pnt4)pntz = z_near(1.,0.07,0.5)cc = cos(4.5*degrad)ss = sin(4.5*degrad)sc = 2.*cc*sscc = cc*ccss = ss*ssb_vel= 1.e-5b_vx = 0.9877*b_velb_vy = 0.1564*b_velendfind_idrange name out cyl end1 0 0 -10 end2 0 0 10 rad 197.5377not range name in cyl end1 0 0 -10 end2 0 0 10 rad 1.001 ; --- model properties ---mo cam-clayprop shear 74.prop mm 1.2 lambda 0.15 kappa 0.03 mp1 1.0 mv_l 2.3mo fl_iso; --- boundary conditions ---fix y z range y -.001 .001apply nvel 0.0 plane dip 90.0 dd -9.0 origin 0.0 0.0 0.0 &range in not y 0.07 200.0apply dvel 0.0 plane dip 90.0 dd -9.0 origin 0.0 0.0 0.0 &range in not y 0.07 200.0apply nstress -1.65 range outfix x y z range inini xvel b_vel range id id1 id1ini xvel b_vel range id id2 id2ini xvel b_vx yvel b_vy range id id3 id3ini xvel b_vx yvel b_vy range id id4 id4ini sxx -1.65 syy -1.65 szz -3.; model settings ---set fluid biot onset fluid offset large; --- fish functions ---; ... initial specific volume, tangent bulk modulus, porosity ... def set_proppnt = zone_heads1 = -z_sxx(pnt)s2 = -z_syy(pnt)s3 = -z_szz(pnt)p0 = (s1 + s2 + s3) / 3.q0 = sqrt(((s1-s2)*(s1-s2)+(s2-s3)*(s2-s3)+(s3-s1)*(s3-s1))*0.5) e0 = q0 / (z_prop(pnt,'mm') * p0)pc = p0 * (1. + e0 * e0)p1 = z_prop(pnt,'mp1')vc = z_prop(pnt,'mv_l') - z_prop(pnt,'lambda') * ln(pc/p1) v0 = vc - z_prop(pnt,'kappa') * ln(p0/pc)b0 = v0 * p0 / z_prop(pnt,'kappa')n0 = (v0 - 1.) / v0bb = 10. * b0bi = 100. * b0commandprop mpc pc bulk_bound bbini biot_mod biend_commandend; ... numerical variables ...def pathsrad = z_sxx(pntz)*cc+z_syy(pntz)*ss+z_sxy(pntz)*scp_fl = z_pp(pntz)c_tp = -(z_sxx(pntz)+z_syy(pntz)+z_szz(pntz)) / 3.c_ep = z_prop(pntz,'cp')c_q = z_prop(pntz,'cq')c_cq = c_ep * z_prop(pntz,'mm')c_v = z_prop(pntz,'cv')c_a = 1. + gp_xdisp(pnt2)c_b = z_prop(pntz,'bulk')c_pc = z_prop(pntz,'mpc')end; --- histories ---hist nstep 500 hist pathhist sradhist p_flhist c_ahist c_ephist c_cqhist c_tphist c_vhist c_qhist c_bhist c_pchist unbal; --- test --- set_prop step 100000 save cav.sav。
《FLACFLAC3D基础与工程实例》阅读札记目录一、FLACFLAC3D软件概述 (2)1. 软件背景与简介 (3)1.1 FLACFLAC3D的发展历程 (4)1.2 软件的应用领域及特点 (5)2. 软件安装与运行环境 (6)2.1 系统要求 (7)2.2 安装步骤 (8)2.3 运行环境配置 (10)二、FLACFLAC3D基础知识 (11)1. 基本概念与术语 (13)1.1 有限元分析原理 (14)1.2 离散元法简介 (14)1.3 FLACFLAC3D中的相关术语解释 (15)2. 软件操作界面及功能模块 (17)2.1 操作界面介绍 (18)2.2 主要功能模块说明 (20)2.3 菜单功能详解 (20)三、工程实例分析 (22)1. 地质工程实例 (23)1.1 工程背景及问题定义 (25)1.2 模型建立与参数设置 (26)1.3 结果分析与讨论 (27)2. 土木工程实例 (29)2.1 工程概况与建模目的 (30)2.2 建模过程及计算步骤 (31)2.3 结果展示与工程应用 (32)四、FLACFLAC3D应用技巧与注意事项 (33)1. 建模技巧与优化方法 (34)1.1 建模策略及优化思路 (35)1.2 网格划分与模型简化技巧 (36)1.3 参数设置与模型验证方法 (38)2. 数据分析与处理方法 (40)2.1 数据采集与整理方法 (41)2.2 结果分析与图表展示技巧 (42)一、FLACFLAC3D软件概述3D是一种广泛使用的岩土力学与有限元分析软件。
它是一套专门用来分析连续介质中的物理力学现象的强大工具,主要应用于土木、矿山、隧道等领域,能针对各种复杂的工程问题进行数值建模和模拟分析。
3D以其高效、灵活的数值分析能力,为工程师提供了强大的技术支持。
其主要特点包括:多功能:3D能够模拟多种物理过程,包括应力分析、稳定性分析、流体流动分析等,适用于多种工程场景。
利用FLAC3D对山西某电厂单桩静载试验模拟近年来,随着我国经济的不息进步和工业化进程的推行,电厂建设变得越来越重要。
山西某电厂作为该地区的重要能源供应单位,对电厂的建设质量和安全性有着严格的要求,尤其是电厂的地基承载能力。
为了准确评估电厂基础的承载能力,单桩静载试验成为不行或缺的一环。
本文将介绍利用FLAC3D软件对山西某电厂单桩静载试验进行模拟的探究。
一、探究背景山西某电厂的单桩静载试验旨在评估桩基的承载能力和变形状况,为后续的设计和施工提供依据。
传统的现场试验方法费时费劲,而且存在一定的风险,因此利用数值模拟方法进行试验模拟成为一种重要的探究手段。
二、试验方案设计山西某电厂的试验方案设计如下:1. 试验桩径为1m,桩长为30m,桩身接受混凝土浇筑;2. 试验载荷沿桩长方向逐渐增加,并保持静载;3. 在试验过程中对桩体的应力、变形等参数进行监测和记录。
三、FLAC3D软件建模基于FLAC3D软件的数值模拟方法可以对试验的力学行为进行准确的猜测和分析。
以下是FLAC3D建模的步骤:1. 导入电厂的工程地质资料,包括土层厚度、强度参数等;2. 对土体力学参数进行划分,将地层分为不同的单元;3. 设定桩的几何外形和材料特性,并与土体单元互相毗连;4. 在桩顶施加试验载荷,并监测各关键位置的应力和变形。
四、数值模拟结果分析通过FLAC3D软件的数值模拟,可以得出以下结果:1. 桩身变形特征:随着试验载荷的增加,桩身会发生不同程度的弯曲和沉降,呈现出非线性的变形特征;2. 桩身应力分布:试验载荷导致桩身上下部分产生不同的应力分布,载荷较大的位置应力集中;3. 土体响应变化:土体受到桩身载荷的作用,会发生一定的变形和应力分布,但相对桩身而言,土体的变形较小。
五、结果验证和谈论与现场试验结果对比显示,FLAC3D软件模拟的单桩静载试验具有较高的模拟精度。
桩身的变形和应力分布与实际试验数据吻合较好,验证了数值模拟的可行性。
FLAC3D案例之混凝土桩的轴向和侧向荷载一、问题描述:计算单个混凝土桩基础在轴向和横向荷载下的荷载-挠度响应。
首先对桩施加100kN 的轴向载荷,然后桩的顶部最大水平位移为4cm。
确定桩体轴向荷载与极限承载力的关系,计算桩身侧向荷载-位移曲线。
桩身直径0.6米,长度5米,嵌在均匀的粘土层中。
地下水位为5.5米。
混凝土桩和粘土的性能如表1所示。
二、建模过程:通过桩轴的垂直平面是本模型的对称平面。
FLAC3D模型的坐标轴位于桩顶原点处,z轴沿桩轴向上。
模型网格如图1所示。
模型的顶部z=0处是一个自由曲面,模型底部z=-8m处为z向固定,模型两侧|x|=8m处为滚动边界,y=8m处为滚动边界。
桩的轴向承载力是桩身表面摩阻力和桩端承载力的函数。
通过在桩墙和粘土之间设置一个界面来模拟桩墙的表面摩擦阻力。
界面的摩擦和粘聚特性代表了混凝土与粘土之间的摩擦阻力。
对于这个示例,摩擦20°角和凝聚力30 kPa被假定为接口的属性。
在桩顶和粘土之间设置第二个界面。
Figure 1: FLAC3D grid for vertical and lateral loading of a concrete pile in clay.为模拟更加真实的工程环境,采用了两种不同的界面:一种在桩壁上,另一种在桩基础上。
在前面的命令中,区域面是分开的,这样两个通用的网格点也会分开。
在桩身安装前,首先将模型引入重力荷载作用下的平衡应力状态。
在z=-5.5m处创建一个水平的地下水位,粘土的湿密度被分配到地下水位以下的区域。
在下一步的分析中,模型在桩身安装完成后进入平衡状态。
通过将桩带的性质由代表粘土材料的性质改为代表混凝土桩材料的性质来模拟安装。
平衡状态下竖向应力分布,包括桩身重量,如图2所示。
Figure 2: Contours of vertical stress at the initial stress-state, including the weight of the pile.通过在桩顶施加竖向速度计算桩的轴向极限承载力。
FLAC3D实例分析教程假设我们要分析一个简单的边坡稳定性问题。
下面是具体的步骤:1.建立几何模型:首先,我们需要建立一个几何模型,包括边坡的形状和岩土层的属性。
在FLAC3D中,我们可以通过在网格上定义顶点和连线来创建边坡的形状。
然后,我们可以设置每个区域的岩土层属性,如密度、强度和摩擦角等。
确保模型的几何和岩土层属性与实际情况相符。
2.设定边界条件:接下来,我们需要设定边界条件,即模拟中的约束和加载条件。
在边坡稳定性问题中,我们可以设定边坡底部的约束条件,如水平位移和垂直位移。
此外,我们还可以为边坡施加水平和垂直方向的荷载,模拟边坡于不同加载条件下的行为。
3.运行模拟:在完成模型和边界条件的设置后,我们可以开始运行模拟。
FLAC3D使用多线程计算,能够利用多核处理器的能力来进行快速计算。
我们可以选择设置时间步长和计算精度等参数。
模拟运行完毕后,FLAC3D将输出边坡在不同加载条件下的应力、位移和变形等结果。
4.结果分析:最后,我们需要对模拟结果进行分析和解释。
FLAC3D 提供了丰富的结果显示和分析功能。
我们可以通过绘制曲线图、生成动画和查看计算网格等方式来可视化和分析结果。
根据模拟结果,我们可以评估边坡的稳定性,并提出针对性的建议和改进方案。
在实际应用中,我们还可以使用FLAC3D的其他高级功能来进一步分析和优化边坡设计。
例如,我们可以引入土体的非线性行为模型,模拟地下水流和渗流等复杂的工程问题。
此外,FLAC3D还支持参数化建模和优化分析,可以帮助工程师迅速评估不同方案的可行性和性能。
总结起来,FLAC3D是一个强大的岩土工程分析软件,可以用于解决各种实际问题。
通过学习和应用FLAC3D的基本使用方法和分析技巧,工程师可以更好地理解和评估岩土工程问题,为工程设计和施工提供有力支持。
FLAC3D实例分析教程2FLAC3D实例分析教程2实例说明:在一个地下隧道工程中,我们需要分析围岩的稳定性。
隧道的尺寸为10mx6mx20m,围岩由砂岩组成,其物理特性如下:- 密度:2.5g/cm³-弹性模量:40GPa-泊松比:0.25我们将在FLAC3D中建立一个三维模型,并进行围岩的稳定性分析。
步骤1:建立模型在FLAC3D中,首先需要创建一个新的项目文件。
点击“File”-“New”-“Project”来创建一个新的项目文件,并保存为适当的文件名。
然后,点击“Grid”-“Generate”来生成一个新的网格。
在对话框中,输入隧道的尺寸,并选择合适的网格密度。
点击“Apply”来生成网格。
步骤2:定义围岩属性在FLAC3D中,可以通过定义不同的材料属性来模拟不同的岩石类型。
点击“Model”-“Material”-“New”来定义一个新的材料,并设置其物理特性。
在对话框中,输入材料的密度、弹性模量和泊松比。
点击“OK”来保存材料属性。
步骤3:生成围岩在FLAC3D中,可以通过定义不同的围岩属性来模拟围岩中的不同部分。
点击“Grid”-“Approval”来选择需要定义材料的单元,并在对话框中选择刚刚定义的材料。
点击“Apply”来应用材料属性。
步骤4:施加边界条件在FLAC3D中,可以通过定义不同的边界条件来模拟不同的荷载情况。
在本实例中,我们将施加一个围压荷载,并固定隧道的底部。
点击“Model”-“Boundary Condition”来定义边界条件。
在对话框中,选择围压荷载并输入荷载大小。
点击“Apply”来应用边界条件。
步骤5:运行模拟在FLAC3D中,可以通过点击“Model”-“Run”来运行模拟。
在运行模拟之前,可以选择运行的时间步长、计算方法和收敛准则。
点击“OK”来开始运行模拟。
步骤6:结果分析在FLAC3D中,可以通过查看不同的结果图来分析模拟结果。
点击“Post”-“Plot”来选择需要查看的结果图,并选择合适的结果类型。
FLAC及FLAC3D基础与工程实例51第1章FLAC、FLAC3D的功能与特性自R.W;数值模拟技术的优势在于有效延伸和扩展了分析人员的;本章重点:;?FLAC/FLAC3D的主要特点;?FLAC/FLAC3D的不足之处;1.1FLAC/FLAC3D简介;FLAC (FastLagrangianAnaly;FLAC有二维和三维计算软件两个版本,即FLAC;1.2FLAC/FLAC3D的主要特点;F第1章 FLAC、FLAC3D的功能与特性 自R.W. Clough 1965年首次将有限元引入土石坝的稳定性分析以来,数值模拟技术在岩土工程领域获得了巨大的进步,并成功解决了许多重大工程问题。
特别是个人电脑的出现及其计算性能的不断提高,使得分析人员在室内进行岩土工程数值模拟成为可能,也使得数值模拟技术逐渐成为岩土工程研究和设计的主流方法之一。
数值模拟技术的优势在于有效延伸和扩展了分析人员的认知范围,为分析人员洞悉岩、土体内部的破坏机理提供了强有力的可视化手段。
因此,优秀的岩土工程数值模拟软件须在专业性、可视化及信息输出等方面做到相对完备,方能使分析人员专注于工程实际问题的研究、分析和解决。
FLAC 系列软件的出现,为岩土工程研究工作者提供了一款功能强大的数值模拟工具。
本章重点:? FLAC/FLAC3D的主要特点? FLAC/FLAC3D的不足之处1.1 FLAC/FLAC3D简介FLAC(Fast Lagrangian Analysis of Continua)是由Itasca公司研发推出的连续介质力学分析软件,是该公司旗下最知名的软件系统之一。
FLAC目前已在全球七十多个国家得到广泛应用,在国际土木工程(尤其是岩土工程)学术界和工业界享有盛誉。
FLAC有二维和三维计算软件两个版本,即FLAC2D(1984)和FLAC3D(1994)。
这里进行一下说明,本书在阐述软件系列时,以FLAC统一称谓FLAC2D和FLAC3D;分述FLAC2D和FLAC3D时,FLAC仅指代FLAC2D。
作一个盾构隧道开挖,地下水位设为z=12.6m,(隧道中心线设为z=0m)。
分了7层土,给定初始条件的代码如下:config fluid(建模过程省)model fl_isotropicprop perm 1e-12 poro 0.48 range z 9.1 12.6prop perm 1e-12 poro 0.55 range z -0.9 9.1prop perm 1e-12 poro 0.5 range z -7.4 -0.9prop perm 1e-12 poro 0.5 range z -11.4 -7.4prop perm 1e-12 poro 0.45 range z -18.4 -11.4prop perm 1e-12 poro 0.45 range z -30.4 -18.4ini fdens 1e3ini fmod 8.5e7ini sat 0 range z 12.6 15.1ini sat 1 range z -30.4 12.6ini pp 0 grad 0 0 -1e4 range z -30.4 12.6fix pp range x -.1 .1fix pp range x 39.9 40.1fix pp range y -.1 .1fix pp range y 119.9 120.1fix pp range z 12.5 12.7fix pp range z -30.5 -30.3;material mechanic parametersmodel mohrdef derives_mod1=E_mod1/(2.0*(1.0+p_ratio1))b_mod1=E_mod1/(3.0*(1.0-2.0*p_ratio1)) s_mod2=E_mod2/(2.0*(1.0+p_ratio2))b_mod2=E_mod2/(3.0*(1.0-2.0*p_ratio2))s_mod3=E_mod3/(2.0*(1.0+p_ratio3))b_mod3=E_mod3/(3.0*(1.0-2.0*p_ratio3))s_mod4=E_mod4/(2.0*(1.0+p_ratio4))b_mod4=E_mod4/(3.0*(1.0-2.0*p_ratio4))s_mod5=E_mod5/(2.0*(1.0+p_ratio5))b_mod5=E_mod5/(3.0*(1.0-2.0*p_ratio5))s_mod6=E_mod6/(2.0*(1.0+p_ratio6))b_mod6=E_mod6/(3.0*(1.0-2.0*p_ratio6))s_mod7=E_mod7/(2.0*(1.0+p_ratio7))b_mod7=E_mod7/(3.0*(1.0-2.0*p_ratio7))endset E_mod1=2.40e6 p_ratio1=0.25 E_mod2=5.0e6 p_ratio2=0.30 E_mod3=11.0e6 p_ratio3=0.25 &E_mod4=8.5e6 p_ratio4=0.25 E_mod5=11.5e6 p_ratio5=0.27 E_mod6=9.25e6 p_ratio6=0.22 &E_mod7=12.40e6 p_ratio7=0.2deriveprop bulk b_mod5 shear s_mod5 cohe 18.0e3 fric 18.0 ten 55.398e3range z 12.6 15.1prop bulk b_mod3 shear s_mod3 cohe 6.3e3 fric 21.0 ten 16.412e3 range z 9.1 12.6prop bulk b_mod1 shear s_mod1 cohe 13.2e3 fric 10.0 ten 74.861e3 range z 0 9.1prop bulk b_mod1 shear s_mod1 cohe 13.2e3 fric 10.0 ten 74.861e3 range z -0.9 0prop bulk b_mod2 shear s_mod2 cohe 15.3e3 fric 10.0 ten 86.771e3 range z -7.4 -0.9prop bulk b_mod4 shear s_mod4 cohe 22.0e3 fric 20.0 ten 60.445e3 range z -11.4 -7.4prop bulk b_mod6 shear s_mod6 cohe 3.0e3 fric 25.0 ten 6.434e3 range z -18.4 -11.4prop bulk b_mod7 shear s_mod7 cohe 3.0e3 fric 25.0 ten 6.434e3 range z -30.4 -18.4;boundary conditionsfix x range x -0.1 0.1fix x range x 39.9 40.1fix y range y -0.1 0.1fix y range y 119.9 120.1fix x range z -30.5 -30.3fix y range z -30.5 -30.3fix z range z -30.5 -30.3interface 1 prop kn 3e9 ks 1e9 fric 20 coh 3e5 interface 2 prop kn 3e9 ks 1e9 fric 20 coh 3e5;stress conditionsset grav 0 0 -10ini dens 1.87e3 range z 12.6 15.1ini dens 1.87e3 range z 9.1 12.6ini dens 1.76e3 range z 0 9.1ini dens 1.76e3 range z -0.9 0ini dens 1.84e3 range z -7.4 -0.9ini dens 2.0e3 range z -11.4 -7.4ini dens 1.89e3 range z -18.4 -11.4ini dens 1.93e3 range z -30.4 -18.4ini szz -28.237e4 grad 0 0 1.87e4 range z 12.6 15.1 ini szz -28.237e4 grad 0 0 1.87e4 range z 9.1 12.6ini szz -27.236e4 grad 0 0 1.76e4 range z 0 9.1ini szz -27.236e4 grad 0 0 1.76e4 range z -0.9 0ini szz -27.164e4 grad 0 0 1.84e4 range z -7.4 -0.9 ini szz -25.98e4 grad 0 0 2.0e4 range z -11.4 -7.4ini szz -27.234e4 grad 0 0 1.89e4 range z -18.4 -11.4 ini szz -26.498e4 grad 0 0 1.93e4 range z -30.4 -18.4ini sxx -28.237e4 grad 0 0 1.87e4 range z 12.6 15.1 ini sxx -28.237e4 grad 0 0 1.87e4 range z 9.1 12.6 ini sxx -27.236e4 grad 0 0 1.76e4 range z 0 9.1ini sxx -27.236e4 grad 0 0 1.76e4 range z -0.9 0ini sxx -27.164e4 grad 0 0 1.84e4 range z -7.4 -0.9 ini sxx -25.98e4 grad 0 0 2.0e4 range z -11.4 -7.4ini sxx -27.234e4 grad 0 0 1.89e4 range z -18.4 -11.4 ini sxx -26.498e4 grad 0 0 1.93e4 range z -30.4 -18.4ini syy -14.905e4 grad 0 0 9.871e3 range z 12.6 15.1 ini syy -13.597e4 grad 0 0 8.833e3 range z 9.1 12.6ini syy -16.834e4 grad 0 0 1.239e4 range z 0 9.1ini syy -16.834e4 grad 0 0 1.239e4 range z -0.9 0ini syy -16.783e4 grad 0 0 1.296e4 range z -7.4 -0.9ini syy -19.117e4 grad 0 0 9.806e3 range z -11.4 -7.4ini syy -21.550e4 grad 0 0 7.672e3 range z -18.4 -11.4ini syy -21.252e4 grad 0 0 7.834e3 range z -30.4 -18.4(取控制点省)solvesave iniconditions.sav初始平衡后的PP如下图。