下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、!低阻球體上沿X軸拉線的電測深曲線PROGRAMPS_CSIMPLICITNONEEXTERNALPS4REALX0,Y0,P1,P2,H0,r0,MN,AB,PS4!測點(diǎn)xy坐標(biāo),圍巖電阻率,球體電阻率,PARAMETER(P1=1,P2=10,H0=2,r0=1)!以下為測點(diǎn)在x軸上不同位置時的電測深數(shù)據(jù);*X0=0Y0=0OPEN(1,FILE=P-AB-x001.DAT,ACTION=WRITE)DOAB=0.1,12,0.5MN=AB/100WRITE(1,*)PS4(X0-AB/2,0.,X0-MN/2,0.,X0+MN/2,0.,X0+AB/2,0.&,P1,P2,r0,H0)/
2、P1,AB/2ENDDOCLOSE(1)*X0=0.5Y0=0OPEN(1,FILE=P-AB-x002.DAT,ACTION=WRITE)DOAB=0.1,12,0.5MN=AB/100WRITE(1,*)PS4(X0-AB/2,0.,X0-MN/2,0.,X0+MN/2,0.,X0+AB/2,0.&,P1,P2,r0,H0)/P1,AB/2ENDDOCLOSE(1)*X0=1Y0=0OPEN(1,FILE=P-AB-x003.DAT,ACTION=WRITE)DOAB=0.1,12,0.5MN=AB/100WRITE(1,*)PS4(X0-AB/2,0.,X0-MN/2,0.,X0+MN/
3、2,0.,X0+AB/2,0.&,P1,P2,r0,H0)/P1,AB/2ENDDOCLOSE(1)*X0=1.5Y0=0OPEN(1,FILE=P-AB-x004.DAT,ACTION=WRITE)DOAB=0.1,12,0.5MN=AB/100WRITE(1,*)PS4(X0-AB/2,0.,X0-MN/2,0.,X0+MN/2,0.,X0+AB/2,0.&,P1,P2,r0,H0)/P1,AB/2ENDDOCLOSE(1)*X0=2Y0=0OPEN(1,FILE=P-AB-x005.DAT,ACTION=WRITE)DOAB=0.1,12,0.5MN=AB/100WRITE(1,*)PS
4、4(X0-AB/2,0.,X0-MN/2,0.,X0+MN/2,0.,X0+AB/2,0.&,P1,P2,r0,H0)/P1,AB/2ENDDOCLOSE(1)*X0=3Y0=0OPEN(1,FILE=P-AB-x006.DAT,ACTION=WRITE)DOAB=0.1,12,0.5MN=AB/100WRITE(1,*)PS4(X0-AB/2,0.,X0-MN/2,0.,X0+MN/2,0.,X0+AB/2,0.&,P1,P2,r0,H0)/P1,AB/2ENDDOCLOSE(1)!以下為測點(diǎn)在X軸上時的電阻率斷面圖數(shù)據(jù)*OPEN(1,FILE=X-AB-001.DAT,ACTION=WRI
5、TE)Y0=0DOX0=-3,3,.05DOAB=0.1,15,0.5MN=AB/100WRITE(1,*)X0,AB/6,&PS4(X0-AB/2,0.,X0-MN/2,0.,X0+MN/2,0.,X0+AB/2,0.,P1,P2,r0,H0)/P1ENDDOENDDOCLOSE(1)!以下為測點(diǎn)在Y軸上不同位置時的電測深數(shù)據(jù)I*X0=0Y0=0OPEN(1,FILE=P-AB-y001.DAT,ACTION=WRITE)DOAB=0.1,12,0.5MN=AB/100WRITE(1,*)PS4(X0-AB/2,0.,X0-MN/2,0.,X0+MN/2,0.,X0+AB/2,0.&,P1,
6、P2,r0,H0)/P1,AB/2ENDDOCLOSE(1)*X0=0Y0=0.5OPEN(1,FILE=P-AB-y002.DAT,ACTION=WRITE)DOAB=0.1,12,0.5MN=AB/100WRITE(1,*)PS4(X0-AB/2,0.,X0-MN/2,0.,X0+MN/2,0.,X0+AB/2,0.&,P1,P2,r0,H0)/P1,AB/2ENDDOCLOSE(1)*X0=0Y0=1OPEN(1,FILE=P-AB-y003.DAT,ACTION=WRITE)DOAB=0.1,12,0.5MN=AB/100WRITE(1,*)PS4(X0-AB/2,0.,X0-MN/2
7、,0.,X0+MN/2,0.,X0+AB/2,0.&,P1,P2,r0,H0)/P1,AB/2ENDDOCLOSE(1)*X0=0Y0=1.5OPEN(1,FILE=P-AB-y004.DAT,ACTION=WRITE)DOAB=0.1,12,0.5MN=AB/100WRITE(1,*)PS4(X0-AB/2,0.,X0-MN/2,0.,X0+MN/2,0.,X0+AB/2,0.&,P1,P2,r0,H0)/P1,AB/2ENDDOCLOSE(1)*X0=0Y0=2OPEN(1,FILE=P-AB-y005.DAT,ACTION=WRITE)DOAB=0.1,12,0.5MN=AB/100WR
8、ITE(1,*)PS4(X0-AB/2,0.,X0-MN/2,0.,X0+MN/2,0.,X0+AB/2,0.&,P1,P2,r0,H0)/P1,AB/2ENDDOCLOSE(1)*X0=0Y0=3OPEN(1,FILE=P-AB-y006.DAT,ACTION=WRITE)DOAB=0.1,12,0.5MN=AB/100WRITE(1,*)PS4(X0-AB/2,0.,X0-MN/2,0.,X0+MN/2,0.,X0+AB/2,0.&,P1,P2,r0,H0)/P1,AB/2ENDDOCLOSE(1)!以下為測點(diǎn)在Y軸上時的電阻率斷面圖數(shù)據(jù)*OPEN(1,FILE=Y-AB-001.DAT,
9、ACTION=WRITE)X0=0DOY0=-3,3,.5DOAB=0.1,15,0.05MN=AB/100WRITE(1,*)Y0,AB/6,&PS4(X0-AB/2,0.,X0-MN/2,0.,X0+MN/2,0.,X0+AB/2,0.,P1,P2,r0,H0)/P1ENDDOENDDOCLOSE(1)ENDPROGRAMFUNCTIONPS2(XA,YA,XM,YM,P1,P2,r0,H0)implicitnoneREALPS2,XA,YA,XM,YM,P1,P2,r0,H0,RR,K,d,r,T,COS0RR=SQRT(XM-XA)*2+(YM-YA)*2)K=(P2-P1)/(P1+
10、2*P2)d=SQRT(XA*2+YA*2+H0*2)r=SQRT(XM*2+YM*2+H0*2)T=r0*3/(d*2*r*2)COS0=(d*2+r*2-RR*2)/(2*d*r)PS2=P1*(1+2*RR*k*T*COS0)ENDFUNCTIONFUNCTIONPS3(XA,YA,XM,YM,XN,YN,P1,P2,r0,H0)implicitnoneREALPS3,XA,YA,XM,YM,XN,YN,P1,P2,r0,H0,AN,AM,MN,PS2AN=SQRT(XN-XA)*2+(YN-YA)*2)AM=SQRT(XM-XA)*2+(YM-YA)*2)MN=SQRT(XN-XM)*2+(YN-YM)*2)PS3=ABS(AN*PS2(XA,YA,XM,YM,P1,P2,r0,H0)-&AM*PS2(XA,YA,XN,YN,P1,P2,r0,H0)/MNENDFUNCTIONFUNCTIONPS4(XA,YA,XM,YM,XN,YN,X
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 沙石料購銷合同模板
- 2023年直發(fā)器項(xiàng)目需求分析報(bào)告
- 2023年二位五通電磁閥項(xiàng)目分析評估報(bào)告
- 遼寧省本溪高中、沈陽二中、營口高中等2024屆高三下學(xué)期第2次月考綜合試題
- 二年級下冊心理健康教案-第十課 我的開心小秘方 遼大版
- 人教版高中物理必修一 第一章 運(yùn)動的描述 第一節(jié) 質(zhì)點(diǎn) 參考系和坐標(biāo)系 教學(xué)設(shè)計(jì)
- 介紹網(wǎng)走攻略
- 《2024年 當(dāng)下國產(chǎn)電影的類型化發(fā)展研究》范文
- 《2024年 嗶哩嗶哩盈利模式的財(cái)務(wù)評價(jià)》范文
- 《2024年 腰椎間盤突出癥椎間孔鏡下分型對腰椎間盤突出癥治療的臨床意義》范文
- 2023中國高血壓防治指南解讀
- XX醫(yī)院手術(shù)、麻醉授權(quán)管理培訓(xùn)記錄表
- 《食品衛(wèi)生與安全》食品的風(fēng)險(xiǎn)分析
- 新高考數(shù)學(xué)全國卷1第20題說題課件
- 2023“愛我國防”知識網(wǎng)絡(luò)競賽小學(xué)組題目及答案
- 我的家鄉(xiāng)福建南平PPT
- 傳感技術(shù)智慧樹知到課后章節(jié)答案2023年下哈爾濱工業(yè)大學(xué)
- 卷煙客戶經(jīng)理開口營銷的技巧范本
- 獸醫(yī)臨床診斷技術(shù)-消化系統(tǒng)檢查
- 數(shù)學(xué)湘教版七年級上有理數(shù)的乘方
- 學(xué)生資助政策宣傳主題班會PPT
評論
0/150
提交評論