【已找到临时方案解决问题】等间距的数据，批量处理某一列的间距 - 程序语言 - 其它

11楼2010-02-05 17:32:52

dedream

木虫 (正式写手)

应助: 4 (幼儿园)
金币: 6987.7
散金: 27
红花: 3
帖子: 651
在线: 330.8小时
虫号: 317450
注册: 2007-03-04
专业: 石油、天然气地质学

R倒是安装上了，R导论也下到了，但是还不会处理数据。
这种插值应该怎么操作呢？

请虫子们帮帮忙

数据处理的规则就是
其中一列数据是关键数据，它是等间距的，我现在想改变这列关键数据的间距大小，因此行数会发生改变，而其他列的数据也会因此发生改变，改变的规则是在原来的基础上插值。

最终的结果是在二维的图形上形状不发生改变。

实际上应该是插值算法，

比如我原来是  100.1 20 13 15
                     100.2 30 25 30
                     100.3 15  20 25
                     100.4 20  30 10
                     100.5 10  30 30
                     100.6    30 20 10
                        ...........

我现在要处理成
                  100.15 25    19 22.5
                     100.3    15 20 25
                     100.45 15 30    17.5
                    100.6    30 20 10
.                      ..........

[ Last edited by dedream on 2010-2-5 at 20:40 ]

从数据到结论

12楼2010-02-05 20:26:17

feichengxyz

铁杆木虫 (著名写手)

应助: 1 (幼儿园)
金币: 8538.5
散金: 60
红花: 4
帖子: 1162
在线: 908.2小时
虫号: 425858
注册: 2007-07-28
性别: GG
专业: 催化化学

★
jjdg(金币+1):辛苦了 2010-02-06 09:35
dedream(金币+10):origin 8.0?在7.5版本上没找到这个选项 2010-02-06 11:44

使用origin的线性插值

赞一下(1人)

13楼2010-02-06 08:31:01

dedream

木虫 (正式写手)

应助: 4 (幼儿园)
金币: 6987.7
散金: 27
红花: 3
帖子: 651
在线: 330.8小时
虫号: 317450
注册: 2007-03-04
专业: 石油、天然气地质学

jjdg:这应该是7.5的啊！ 2010-02-07 18:07

是不是origin8.0才有这个功能呀？
我用的7.5绿色版

赞一下(1人)

从数据到结论

14楼2010-02-06 15:22:42

feichengxyz

铁杆木虫 (著名写手)

应助: 1 (幼儿园)
金币: 8538.5
散金: 60
红花: 4
帖子: 1162
在线: 908.2小时
虫号: 425858
注册: 2007-07-28
性别: GG
专业: 催化化学

引用回帖:

Originally posted by dedream at 2010-02-06 15:22:42:
是不是origin8.0才有这个功能呀？
我用的7.5绿色版

是的，我用的origin8.0，设定好X列后，使用线性插值，可得到对应的Y列。

15楼2010-02-07 08:46:49

hakekill

木虫 (小有名气)

应助: 0 (幼儿园)
金币: 1709.3
帖子: 131
在线: 19小时
虫号: 246017
注册: 2006-04-29
性别: GG
专业: 水环境与生态水利

dedream(金币+50):我用excel解决了，思路是一样的 2010-02-07 18:04
dedream(金币+30):再次感谢 2010-02-07 18:08

以线性插值为例：
由
100.1 20 13 15
100.2 30 25 30
得出
100.15 25 19 22.5
这个自己编程思路是先读入现有数据，然后依据相同的间隔将x区域划分成一个新的x的数组，以上面为例
x_old[1]=100.1,x_old[2]=100.2;
x_new[1]=100.15
线性插值公式：
y_new[1] = y_old[1]+(y_old[2]-y_old[1])/([x_old[2]-x_old[1])*(x_new[1]-x_old[1])

当然在插值之前必须先用去查找x_new[1]的值落在那两个x_old,x_old[i+1]之间

16楼2010-02-07 09:20:52

dedream

木虫 (正式写手)

应助: 4 (幼儿园)
金币: 6987.7
散金: 27
红花: 3
帖子: 651
在线: 330.8小时
虫号: 317450
注册: 2007-03-04
专业: 石油、天然气地质学

jjdg:其实excel比我们想象的要强大 2010-02-07 18:08

问题解决，origin 8没来得及安装，我用excel暂时解决了

思路是一样的
查找x_new[1]的值的位置
线性插值
excel里用Trend+offset+match
3个函数解决

在excelhome求助，5分钟得到答案

汗啊，用好excel，足以笑傲江湖，这是我平时挂在嘴上的话~~

谢谢各位了

好想自己能编程实现，免得每次这么麻烦

[ Last edited by dedream on 2010-2-7 at 18:13 ]

赞一下(1人)

从数据到结论

17楼2010-02-07 18:05:49