基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 1 元　

支付宝支付

微信支付

   源码介绍

---

在地震资料处理中，常常用到promax的速度表转化为CGG软件中的速度格式，包括二维或三维的转化，我用PERL语言编写的速度转化程序展示如下，

($vf,$vs,$vt)=qw(T V VF5500);
$linecdp=$ENV{LCDP};
$prl=-1;
foreach $i (0..@buf-1) {
$ln=int($buf[$i][0]/$linecdp);
$lid='';
if($ln!=$prl) {
if($i>1) {
@tmp=@{$buf[$i-1]};
$tmp[0]=($prl 1)*$linecdp-1;
&tvprint(*tmp);
}