surfer 8.0使用指南(不断整理中……)

      科研工具 2005-7-25 8:58:00
问题1:如何用surfer画断层
答:Grid -> Advanced options -> Breaklines and Faults (.bln文件要含Z值)
*.bln文件的格式(注意和白化文件有所不同):
点数,1 or 0
x,y,z
.......
*.bln 的生成方法有两种:
⑴直接制作断层.bln文件。此文件只要求断层几个节点的x.y坐标。在网格数据形成网格文件时选用最小曲率法,然后打开“高级”选项选择“断层与折断”,在断层对话栏打开断层的bln 文件,按“确定”。回到网格对话栏,再按“确定“,形成网格化文件。按“等值图“既可绘出带断层的等值线图
⑵选择等值图,按地图.数字化,然后手动在等值图上画断层。此时在等值图左部出现一窗口,上有手动画断层的各个节点坐标值。注意画断层时是用鼠标在等值图上点离散的点。画完后保存左边的断层文件,断层文件就形成了

问题2:在surfer 8使用中,从Excel中拷贝数据特别是带有中文字符时出错怎么办?
答:打开相应的Excel文件,选择文件-另存为 Microsoft Excel 5.0/95 工作簿。然后在surfer 8 的worksheet 中直接打开相应的Excel 文件即可~!在网络化文件中,此法同样适用~

问题3:在surfer中如何画断层?
答:这个问题在第一问已经作了部分讲述。不过还有一个问题,就是通常那样我们只画出一个断裂面。即如果按上一问中所讲的方法有时我们可能看不到“Breakline and Faults”或“断层与拆断”菜单。这是为什么?我们再回过头去看“surfer help”,发现如下说明:
To reach the Breaklines and Faults page, click the Advanced Options button in the Grid Data dialog, then click the Breaklines and Faults tab. The Breaklines and Faults page contains two fields for entering the file names of the faults and breaklines to use when gridding. If faults are not available with the selected gridding method, only breaklines are available (Breaklines page).请注意红色部分的文字!
再往下看,则可发现支持断层的Grid方法只有:
·Inverse Distance to a Power
·Minimum Curvature
·Nearest Neighbor
·Data Metrics
由于我们网络化时通常用克里格(Kriging),它并不支持断层,所以就有上述看不到菜单的结果~至于哪一种网格化结果最好,我还不知道,还要继续观察,此外还有一个问题是关于正断层与逆断层……To be continued!

问题4.如果grd生成了srf文件后,grd丢了,那么下面这个脚本代码将帮你找回Grd文件

代码(不括———):
—————————————————————————————————————
    'GridExtractFromMap.bas extracts the grid file from a SRF file.
' Select the map, then run the script.
' TB - 11 Nov 03.

Sub Main
    Debug.Print "----- ";Time;" -----"
    Set surf = GetObject(,"surfer.application")
    Set plotdoc1 = surf.ActiveDocument
    Set shapes1 = plotdoc1.Shapes
    Set mapframe1 = plotdoc1.Selection(1)
    For Each ovrly In mapframe1.Overlays
        'Vector map Not included. srfShapeVectorMap = 23.
        Debug.Print ovrly.Type;InStr(" 15 16 19 20 22", ovrly.Type)
        If InStr(" 15 16 19 20 22",ovrly.Type) <> 0 Then _
        ovrly.Grid.SaveFile(GetFilePath(ovrly.Grid.FileName,"grd", _
            "c:\incoming\","Save GRD File",3),Surfer.srfGridFmtS7)
    Next ovrly
    End

End Sub
—————————————————————————————————————
代码源于Golden Softwae~
打开相应的Srf文件,选中相应的等值线,运行脚本即可~
更多的脚本可在surfer 的FTP下载~

 中文手册下载
最后更新时间:2005年11月24日
标签集:TAGS:
回复Comments() 点击Count()
喜欢就顶一下

回复Comments

{commentauthor}
{commentauthor}
{commenttime}
{commentnum}
{commentcontent}
作者:
{commentrecontent}