CGG和Focus之间速度转换程序.doc

CGG和Focus之间速度转换程序 CGG和Focus之间速度转换程序GeoRisc在使用资料处理软件CGG和Focus时经常会遇到其间速度格式的转换问题。这里提供了两个用C-shell编写的程序v_focus2cgg和 v_cgg2focus，利用它们可以实现从Focus的数据库速度到CGG的数据库速度以及到Focus的卡片格式的转换。（1）Focus数据库速度-CGG速度格式%v_focus2cgg project line vel velout.lv（2）CGG速度格式-Focus速度卡片%cat velout.lvi | v_cgg2focus velout.dat或者，%v_cgg2focus velout.dat（3）Focus数据库速度-Focus速度卡片%v_focus2cgg project line vel | v_cgg2focus velout.dat附录：（1）v_focus2cgg#!/bin/csh -f# GeoRisc,Dec-04-2004 #set bdir=dirname $0set project = $1set line = $2set vsdb = $3if ( $1 = | $2 = | $3 = ) thenecho Usage:$0 project line vsdbexitendifif ( $?PG_ROOT = 0 ) thenset PG_ROOT=/PG2.0endifset vfile=echo $line $vsdb | awk printf(dir /file %s.veldefn.%snquitn,$1,$2) | $PG_ROOT/bin/sdbutl $project | grep $projectif ( $vfile = ) thenecho $project:$line.VELDEFN.$vsdb not found.endifset awkfile=/var/tmp/v2_focus2cgg_$.awktail +32 $0 $awkfilechmod +x $awkfileif ( -e $awkfile ) then$awkfile $vfile/bin/rm -f $awkfileelseecho $awkfile not found.endifexit#!/usr/bin/awk -fBEGINoffset = 17;local = 34;count = 0;pcdp = 1;ncdp = 1;n = split(FILENAME,a,/);lname = an;n = split(lname,a,.);lname = a1;if ( NR = 3 ) handnum = $1;if ( NR = 4 ) total = $1;if ( NR = 5 ) pkeyname = $1;vtype = $2;printf(* LIBRI VI 1 TN ( 1-);if ( NR = local ) num = $1;if ( NR = local+1 ) pkey = $1;if ( NR local+offset+1 & NR 1)printf(n%s,$0);else printf(%s,$0); | sed -e s/=/ /g | sed -e s/,/ /g | awk if(NF=0)printf(*CALL VELDEF CDP VCGGn);elseprintf(HANDVEL %-8dn,$1);for(i=2;iNF;i+)k=match($i,V);l=length($i);time=substr($i,2,k-2);vel=substr($i,k