资源描述：
《实验构造地质学_实习指导书》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、《实验构造地质学》实习指导书刘立林曾佐勋编（中国地质大学武汉）2006年5月一、陈氏网格法1．实验目的及要求通过该实验，使学生掌握以下内容：1）学会使用构造模拟实验机；2）能独立进行陈氏网格法实验；3）会对实验数据进行计算机处理。2．实验仪器、工具及材料实验仪器为液压多功能构造模拟实验机，工具有照相机、幻灯机、游标卡尺、计时器、温度计等；材料有坐标纸、铅笔、记录纸、透明胶纸、高分子流变材料等。3．实验步骤1）设计模型几何形状及尺寸；2）将高分子流变材料置于构造模拟实验机加载装置上并压实，以免产生不必要的滑动；3）将网格印到或画到
2、模型表面，并在不产生变形的地方做出明显标志；4）用照相机记录变形前网格形状及周边环境；5）加载，并用照相机记录变形后的网格位形，同时记录当时的温度及载荷；6）冲洗胶卷，必要时冲冼照片；7）用幻灯机将变形前及各变形阶段的网格放大（注意对准不变形标志）；8）分别读取并记录变形前、后网格角点坐标；9）将数据输入计算机进行处理；10）对计算结果进行分析。4．计算机处理1）陈氏网格法计算机源程序REMTHEPROGRAMOFCHEN‘SGRIDMETHODINPUT“pleaseinputm,p,k”;m,p,kDIMx0(m),y0(m
3、),x(m),y(m),u(m),v(m),zj(m),no(m),exx(m),exy(m),eyy(m)INPUT“Inputdatafileofcoordinateatunderformedstate:”n1$INPUT“Inputdatafileofcoordinateatderformedstate:”n2$OPENn1$FORINPUTAS#1OPENn1$FORINPUTAS#2OPEN“uv”FORINPUTAS#3PRINT#3“XYUV”FORi=1TOmINPUT#1,x0(i),y0(i):INPUT#2
4、,x(i),y(i)LETu(i)=x(i)-x0(i):LETv(i)=y(i)-y0(i)PRINT#3x0(i),y0(i),u(i),v(i)NEXTiCLOSE#3：CLOSE#2：CLOSE#1OPEN“lwg”FOROUTPUTAS#4:OPEN“lzj”FOROUTPUTAS#5OPEN“lex”FOROUTPUTAS#6:OPEN“ley”FOROUTPUTAS#7OPEN“lexy”FOROUTPUTAS#8PRINT$4,“NO.XOYOX1Y1U”;PRINT#4“vzjExxEyyExy”FORj=2T
5、OpFORj=(i-1)*k+1TOi*k-1LETsxx=x(j+1)-x1(j):LETsyy=y(j+1)-yl(j)LETsyy=y(j-1)-y1(j):LETsyx=y(j-k)-xl(j)LETdsx=SQR(sxx*sxx+sxy*sxy)LETdsy=SQR(syy*syy+syx*syx)LETszj={[v(j+1)-v(j)]/dsx-[(j-k)-u(j)]/dsy}/2LETczj=SQR[ABS(1-szj*szj)]:LETb=ATN(szj/czj)LETzj(j)=b*180/(3.41529
6、#):LETa=1-czjLETexx(j)=[u(j+1)-u(j)]/dsx+aLETeyy(j)=[v(j-k)-v(j)]/dxy+aLETeyy(j)={[v(j+1)-v(j)]/dsx+[u(j-k)-u(j)]/dsx}2LETno(j)=jPRINT#4USING“#############”no(j)；x0(j)；y0(j)PRINT#4USING“###############”x(j)；y(j)；u(j)PRINT#4USING“#####################”v(j)；zj(j)；exx(j
7、)PRINT#4USING“################”eyy(j)；exy(j)PRINT#5x(j)；y(j)；zj(j):RINT#6x(j)；y(j)；exx(j)PRINT#7x(j)；y(j)；eyy(j):RINT#8x(j)；y(j)；exy(j)NRXTjNRXTiCLOSE#4:CLOSE#5:CLOSE#6:CLOSE#7:CLOSE#8END2)数据准备I控制信息m（总的网格角点数），p（网线总行数），k（网线总列数）II变形前各角点的坐标x0(1),y0(1)……x0(i),y0(i)III变形后
8、各角点的坐标x(1),y(1)………x(i),y(i)3)计算结果输出I各角点x、y方向位移，保存在文件uv中II所有输入、输出信息存在文件lwg中III整旋角保存在文件lzj中IV三个应变分量分别保存在文件lex,ley,lexy中4）由输出结果作出所需等值线
