隧道锚杆支护受力分析FLAC

  • 格式:wps
  • 大小:55.00 KB
  • 文档页数:8

命令流;=============================================== -}P,_e4JF\J-`;建模型;===============================================new6wOv*Lzwo x-NJplot create model RG E+Z^\5a)S*Kplot set title text '模型图plot set back white 4QQ{:]$Q+jplot add sketch*xI$t#?-a(`6Enplot show s{t9tJB:P.l0QI:O0{def x_rad)P;r+cI%v\nQxrad=sqrt(6.19*6.19-2.19*2.19)fxrad=-xradend tt_` g%B4\.\wx_radgen zon cylinder p0 0 0 0 p1 xrad 0 -2.19 p2 add 0 1 0 p3 0 0 6.19 p4 xrad 1 -2.19 p5 0 1 6.19 size 7 1 10 rat 1 1 1 lh @:?]3`~gen zon wedge p0 0 0 -2.19 p1 xrad 0 -2.19 p2 add 0 1 0 p3 0 0 0 p4 xrad 1 -2.19 p5 0 1 0 p6 0 0 0 p7 0 1 0 &'RL9r-G`size 5 1 7 rat 1 1 1 #~@Onzjac'c_$i^ Rg7k"^gen zon reflect dip 90 dd 90 ori 0 0 0group nsoil !xk$Qge0X!F l2Y,\~7m{Ltgen zon radcyl p0 0 0 0 p1 36.19 0 -13.311021248234213556702313453022 p2 0 1 0 p3 0 0 21.19 p4 36.19 1 &!o5l^Ha,@ _E-13.311021248234213556702313453022 p5 0 1 21.19 &p6 36.19 0 21.19 p7 36.19 1 21.19 &y6r ~1Vsp8 xrad 0 -2.19 p9 0 0 6.19 p10 xrad 1 -2.19 p11 0 1 6.19 dim 6.19 6.19 6.19 6.19 &size 5 1 10 10 rat 1 1 1 1.2d,G@ P^/]^d9vgen zon brick p0 0 0 21.19 p1 36.19 0 21.19 p2 add 0 1 0 p3 0 0 46.19 size 5 1 5 rat 1 1 1 .WS%D7q8Wa$A|gen zon brick p0 36.19 0 21.19 p1 add 25 0 0 p2 add 0 1 0 p3 add 0 0 25 size 5 1 5 rat 1 1 1 q4E Dy/MZgen zon brick p0 36.19 0 -13.311021248234213556702313453022 p1 add 25 0 0 p2 add 0 1 0 &8q6KN*f[m4S6a(R:s({p3 36.19 0 21.19 size 5 1 5 rat 1 1 1 3G A(]0~9L+k wgen zon brick p0 0 0 -2.19 p1 0 0 -13.311021248234213556702313453022 p2 add 0 1 0 p3 add xrad 0 0 p4 0 1 -13.311021248234213556702313453022 &p5 add xrad 1 0 p6 36.19 0 -13.311021248234213556702313453022 p7 36.19 1 -13.311021248234213556702313453022 &%S?P lq[:u~Isize 10 1 5 rat 1.2 1 1 Ez K"_){QxQb q7wgen zon brick p0 0 0 -27.19 p1 add 36.19 0 0 p2 add 0 1 0 p3 add 0 0 13.87897875176578644329768654698 size 5 1 2 rat 1 1 1 7uX-S r9mFp}.M0P)V$jF6x^Jgen zon brick p0 36.19 0 -27.19 p1 add 25 0 0 p2 add 0 1 0 p3 add 0 0 13.87897875176578644329768654698 size 5 1 2 rat 1 1 1 M)G `+^Y6U?group wsoil range group nsoil notgen zon reflect dip 90 dd 90 ori 0 0 0 range group wsoil I4B?#r4X8Wpause;=============================================== B-K4P ~j q0g;初始应力计算程序W U r)_-m~3v;===============================================def derives_mod1=E_mod1/(2.0*(1.0+p_ratio1))b_mod1=E_mod1/(3.0*(1.0-2.0*p_ratio1))3hB Jl2a|]Rendset E_mod1=1.2e8 p_ratio1=0.43pF9\q3IvKderive z.Bz G[ HB7|lHN-Z eFg p.vsmo elas OKj^.a+FzFP qbprop bulk b_mod1 shear s_mod1 density 2000ini szz -92380 grad 0 0 2000ini syy -46190 grad 0 0 1000{9gMa2?bLTini sxx -46190 grad 0 0 1000fix x range x 61.18 61.20 }h5^UMfix x range x -61.20 -61.18 @(v6K7LfA-Mv#Gfix y range y -0.1 0.1 0M#ECv X"}fix y range y 0.9 1.1~(H }-zgBfix x y z range z -27.20 -27.18&c*Zi!}/xFfset grav 0 0 -10;===============================================;设置监测关键点n_*ab\lm;===============================================$N5{?*rpK-N`)ymhist id=1 unbal^5ZZiO2lGvhist id=2 gp zdis 0 0 6.19hist id=3 gp zdis 0 0 2.19hist id=4 gp zdis xrad 0 2.19hist id=5 gp zdis fxrad 0 2.19 ^Oik$?f @C!Y!UP-Whist id=6 gp zdis 6.19 0 0(d DXr z%C P'hhist id=7 gp zdis -6.19 0 0 TGKSN/n0[hist id=8 gp zdis 4.37699 0 4.37699Gq~%O-r&i4t?&q/Ox hist id=9 gp zdis -4.37699 0 4.37699T5r0F+@y!Thist id=12 zone smin 0 0 6.19hist id=13 zone smin 0 0 2.19dZ*o5I-F!c lhist id=14 zone smin xrad 0 2.19(K|| xr%l:l;G~hist id=15 zone smin fxrad 0 2.19 H%[4s*u'n6grhist id=16 zone smin 6.19 0 0&w'n)KI3U6\X1Yhist id=17 zone smin -6.19 0 0hist id=18 zone smin 4.37699 0 4.37699hist id=19 zone smin -4.37699 0 4.37699H@y vK Ghist id=22 zone ssi 0 0 6.19lYGZ2c ~"Ghist id=23 zone ssi 0 0 2.19 \9Sr cX R"yw#Ty:uyhist id=24 zone ssi xrad 0 2.19j-@VC$Mhist id=25 zone ssi fxrad 0 2.19hist id=26 zone ssi 6.19 0 0hist id=27 zone ssi -6.19 0 0hist id=28 zone ssi 4.37699 0 4.37699#w7E-X?$~:nhist id=29 zone ssi -4.37699 0 4.37699E7H P2t"Y"C8W-z3[:]H5fpkK;hist id=32 sel recover sres mx cid=19(v9I.d"BL1j5cT7@o#u O ;hist id=33 sel recover sres mx cid=20;hist id=34 sel recover sres mx cid=21O'sU H_C l?ed^X7l;hist id=35 sel recover sres mx cid=22;hist id=36 sel recover sres mx cid=3;hist id=37 sel recover sres mx cid=4&Zie/Dq$v;hist id=38 sel recover sres mx cid=6YbRM2Eg0S;hist id=39 sel recover sres mx cid=7hQFW HS!C`;hist id=42 sel recover sres qx 0 0 6.19;hist id=43 sel recover sres qx 0 0 2.19;hist id=44 sel recover sres qx xrad 0 2.19;hist id=45 sel recover sres qx fxrad 0 2.19;hist id=46 sel recover sres qx 6.19 0 0;hist id=47 sel recover sres qx -6.19 0 0%Q:h%Y-@BF R_T;hist id=48 sel recover sres qx 4.37699 0 4.37699;hist id=49 sel recover sres qx -4.37699 0 4.37699;=============================================== ;绘结果图;=============================================== plot create unbalplot set title text '不平衡力J M&p1p5D#v;`plot set back white G.f(r*N pR'@plot add hist 10Nm6M3Gm8{)t3a-\1Jplot create plastic @ A7D B@lAi"Mvplot set title text '塑性区plot set back white %A0]kdw.H({xplot block state now averageplot create z-displot set title text '位移云图Z{,W?1mx&aplot set back white u"a6S-d_1b^plot add con xdis outline on wgo nhZ] Y:cplot add con zdis outline onplot add con disp outline onplot create p-stressplot set title text '主应力云图E;t"? W@-D:@Oplot set back white z j#X nE2e#@*b]plot add con smax outline onplot add con smin outline on:dn n&l,f3Q/N!Vqmplot create stress F!A-l#rKdhplot set title text '应力云图plot set back white $O w4W5Z7M&bK @+O6kplot add con sxx outline on v,?z u'[Yplot add con szz outline on yAi%ED)P5MG.I-vplot add con sxz outline on E~W;E*{5d6K"Z|Uplot create strainplot set title text '应变云图plot set back white c?:dd'~^(kplot add con ssr outline on averageplot add con ssi outline on averageplot create cabelplot set title text '锚杆轴力plot set back white T*@;{6l!iM!h?%s;kplot add sel cable force range id=1plot add sel cable force range id=2plot add sel cable force range id=3plot add sel cable force range id=4e9i.`$eRY;p ] s#Y0A} plot add sel cable force range id=5;L9c0a:b8c2DYplot add sel cable force range id=61r4h*uCq!C6[plot add sel cable force range id=7plot add sel cable force range id=8(_+}!Yz4M0rj(|tIplot add sel cable force range id=9plot add sel cable force range id=10plot add sel cable force range id=11plot add sel cable force range id=12plot add sel cable force range id=13plot add sel cable force range id=14plot add sel cable force range id=15plot add sel cable force range id=16+w.mR L nqplot add sel cable force range id=17N@Q6{;Q)wplot add sel cable force range id=18plot add sel cable force range id=194uc9Uz Iplot add sel cable force range id=20Hji/J+P(@0ew,\plot add sel cable force range id=21plot add sel cable force range id=22plot add sel cable force range id=23M O:j&l7{-\Uplot add sel cable force range id=24plot add sel cable force range id=25&_ N"@(e {+nXr^plot create shellplot set title text '衬砌结构受力与变形图{ f"vu9Y:@7H_/Xa plot set back white V S$cK&{ ME oplot add sel recover sres mxplot add sel recover sres nx5Aa*d0i"^/tplot add sel recover sres qxplot add sel recover displaceplot create dis-step W)^'w.G!~8mB&Rplot set title text '监测点位移图plot set back whiteplot add his 2 3 4 5 6 7 8 9 vs step-yB{7?(y8S*lplot create p-stress-step;Bze v,~:Ef T0@plot set title text '监测点最大主应力plot set back white "Zk7Cikb,~plot add his 12 13 14 15 16 17 18 19 vs step?([~]tq,A'CEplot create shear-strain-step S8t+TPAk+g8S0_plot set title text '监测点剪应变u1G)h&i.[2`plot set back whiteplot add his 22 23 24 25 26 27 28 29 vs stepm-M&lQ3G;plot create moment-step;plot set title text '监测点弯矩"U+l\ h HME Sl;plot set back white;plot add his 32 33 34 35 36 37 38 39 vs step/d _ Q C,y m;plot create shear-step @xw7F)Th0S&u2Ld;plot set title text '监测点剪力RHS8fU0I Tm([ D@;plot set back white v5NnW ii0o*a;plot add his 42 43 44 45 46 47 48 49 vs step(~#_ c`C&w1WGE;=============================================== ;求解;=============================================== solvesave sd51.savrestore sd51.savplot block state now C d4k-Sn'i| Rn;--------------------------------------------------------A-cDG+hK$q;定义初期支护锚秆;--------------------------------------------------------def fen_jiao_chu#[s)O"C%M+C-i4^h=9.0;9=180/20N(Ur'a@ z3q0ux11=6.19*cos((-h)*degrad)z11=6.19*sin((-h)*degrad)x12=9.19*cos((-h)*degrad)z12=9.19*sin((-h)*degrad)fp'ml#E:z Lx21=6.19*cos((180+h)*degrad)z21=6.19*sin((180+h)*degrad)U"[4d9D TAx22=9.19*cos((180+h)*degrad)"vzVa*D`z22=9.19*sin((180+h)*degrad)x31=xradz31=-2.199nX9f6WD+Ox32=x31+3/(1.4142)z32=z31-3/(1.4142)x41=-xrad+T7k,j%k4mz41=-2.19x42=x41-3/(1.4142)}3F:B6h6a ?z42=z41-3/(1.4142)end Aw2r1m(H @H(J/`fen_jiao_chu A T!Y9D4aV6o5eLMD}/mdE;mv8Kdef cab_parm_chu X PLL0V v$xQarray x2_b(1,54),z2_b(1,54),x2_2b(1,54),z2_2b(1,54)loop n(1,21) WF pegpx2_b(1,n)=6.19*cos(h*(n-1)*degrad)Wfj6X%~^pTz2_b(1,n)=6.19*sin(h*(n-1)*degrad)/F%@~^0u1]x2_2b(1,n)=9.19*cos(h*(n-1)*degrad)z2_2b(1,n)=9.19*sin(h*(n-1)*degrad)R9m%J}2@+]end_loop8ZS4[o}B4d6?i2\endcab_parm_chu5Za%}@uxfK(ndef inip_chu @ Fl+M8f6L SnQx_d=x2_b(1,n)z_d=z2_b(1,n)x_d_2=x2_2b(1,n)nTT?:On `z_d_2=z2_2b(1,n)enddef ini_chu_mao \Q!]e?8\,xloop m(3,23)n=m-29S1kt$zD Zinip_chucommand Q:x6B kYi PHsel cable id m begin x_d,0.5,z_d end x_d_2,0.5, z_d_2 nseg 10 (c*o[2Q"I,R6]K'L a sel cable pro emod 2.1e10 xcarea 3.8e-4 &yten 2.5e5 gr_k 1.75e7 gr_c 2e5 range id mend_commandend_loop0K4j5fC!e1k Dend'P r `2i2jX%@,T-]0P$Rt7t%hr8R;--------------------------------------------------------%X:[/\-@c*E!H;开挖------安装初期支护锚杆7O8[$x-o{;--------------------------------------------------------;开挖ini xdis=0 ydis=0 zdis=0def derive1s_mod3=E_mod3/(2.0*(1.0+p_ratio3))b_mod3=E_mod3/(3.0*(1.0-2.0*p_ratio3))end AV&s B!C:{7CB-Hset E_mod3=1.2e8 p_ratio3=0.437A#d!ZlJ!|"tQ|derive1,G-Jx F5Tt sN:L bm m #xA|/IPvpro bulk b_mod3 shear s_mod3 density 2000 fric 22 coh 2.5e4 dil 30 2v9xbBI^Y7kC m n range group nsoil2vS%E7|0|&^l-r6L dstep 200pause;--------------------------------------------------------F8mZh-P[/p;安装初期支护锚杆和喷混凝土2A#Y/q tzini_chu_mao B5Nnz^5Lksel cable id 2 begin x11,0.5,z11 end x12,0.5, z12 nseg 10 `.?;~:v3QY_xisel cable pro emod 2.1e10 xcarea 3.79e-4 gr_per 1. &yten 2.2e5 gr_k 17.5e6 gr_c 20e4 range id 2sel cable id 1 begin x31,0.5,z31 end x32,0.5, z32 nseg 10 x-[ n:yxdrqsel cable pro emod 2.1e10 xcarea 3.79e-4 gr_per 1. &c?;f4\$Y,MEyten 2.2e5 gr_k 17.5e6 gr_c 20e4 range id 1sel cable id 24 begin x21,0.5,z21 end x22,0.5, z22 nseg 10sel cable pro emod 2.1e10 xcarea 3.79e-4 gr_per 1. &yten 2.2e5 gr_k 17.5e6 gr_c 20e4 range id 24sel cable id 25 begin x41,0.5,z41 end x42,0.5, z42 nseg 10 K&b J4[m kQY }-tsel cable pro emod 2.1e10 xcarea 3.79e-4 gr_per 1. &'R du&Y9KQ}-nFyten 2.2e5 gr_k 17.5e6 gr_c 20e4 range id 25sel shell id 55 range cyl end1 0 0 0 end2 0 1 0 rad 6.19 z -2.20 6.19H7A Z3e5Kb!i sel shell prop isotropic 3.0e10,0.2 thickness 0.35 density 2400 range id 55 pause7n^]!J#Asolveplot add sel recover dissave sdcable1.sav。