интерполяция

@jesvi · Регистрация: 14.04.2013

Author24 — интернет-сервис помощи студентам

у меня в excel две таблицы. например :

r / g
9 / 0.09
11 / 0.06

r2 / g2
9.5 / 0.098
13 / 0.12

можно ли в vba занести эти данные из листа в массив и потом проверять поподает ли значение из 2й таблицы (9.5) в интервал из соседних чисел первой таблицы (между 9 и 11) и с помощью интерполяции найти значение g для r=9.5 (в первой таблице)

Скрипт · 10.05.2013, 18:16

jesvi, сам язык программирования "VBA" не делает интерполяции. Программист должен сам написать код, который будет делать интерполяцию. Т.е. вам нужно знать, как делать интерполяцию без программирования, а затем уже начинать писать код на "VBA".

В программе "Excel" есть различные инструменты для расчётов, можно попробовать ими воспользоваться. Но для этого нужно знать, какие инструменты использовать: функции, надстройки или ещё что-то. Если вы знаете, чем можно воспользоваться в программе "Excel" без программирования, то можно попробовать написать код.

Может быть есть какие-нибудь специальные инструменты (в программировании такие инструменты называются "библиотека объектов"), которые можно подключить к макросу. Но надо искать в интернете инструменты для интерполяции.

@Казанский · 10.05.2013, 23:26

А зачем VBA? В Excel это легко сделать функцией листа.
В ст. С - основная формула, в ст. D - с проверкой попадания в интервал.
При необходимости функции листа можно использовать в VBA.

@jesvi · 11.05.2013, 04:50 **[ТС]**

у меня на самом деле очень большая таблица. если мне подскажут как решить этот легкий пример в в.б.а. то я решу свой более сложный пример

SoftIce · 11.05.2013, 07:27

Сообщение от jesvi

с помощью интерполяции найти значение g для r=9.5 (в первой таблице)

Visual Basic

Option Explicit
 
 
Private Sub Command1_Click()
   Dim r, g, r2 As Single
   
   r = Array(9, 11)
   g = Array(0.09, 0.06)
   r2 = 9.5
   
   MsgBox LinearInterpolation(r2, r(0), g(0), r(1), g(1))
   
End Sub
 
 
Public Function LinearInterpolation(ByVal x As Double, ByVal x1 As Double, ByVal fx1 As Double, _
                                    ByVal x2 As Double, ByVal fx2 As Double) As Double
    If (x2 - x1) <> 0 Then LinearInterpolation = fx1 + ((fx2 - fx1) / (x2 - x1)) * (x - x1)
End Function

Скрипт · 11.05.2013, 07:31

Удалил сообщение.

@jesvi -1 / 0 / 0 Регистрация: 14.04.2013 Сообщений: 11
		1
	интерполяция 10.05.2013, 16:22. Показов 3517. Ответов 5 Метки нет (Все метки) у меня в excel две таблицы. например : r / g 9 / 0.09 11 / 0.06 r2 / g2 9.5 / 0.098 13 / 0.12 можно ли в vba занести эти данные из листа в массив и потом проверять поподает ли значение из 2й таблицы (9.5) в интервал из соседних чисел первой таблицы (между 9 и 11) и с помощью интерполяции найти значение g для r=9.5 (в первой таблице) 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	10.05.2013, 18:16	2
	jesvi, сам язык программирования "VBA" не делает интерполяции. Программист должен сам написать код, который будет делать интерполяцию. Т.е. вам нужно знать, как делать интерполяцию без программирования, а затем уже начинать писать код на "VBA". В программе "Excel" есть различные инструменты для расчётов, можно попробовать ими воспользоваться. Но для этого нужно знать, какие инструменты использовать: функции, надстройки или ещё что-то. Если вы знаете, чем можно воспользоваться в программе "Excel" без программирования, то можно попробовать написать код. Может быть есть какие-нибудь специальные инструменты (в программировании такие инструменты называются "библиотека объектов"), которые можно подключить к макросу. Но надо искать в интернете инструменты для интерполяции. 0

@jesvi -1 / 0 / 0 Регистрация: 14.04.2013 Сообщений: 11
	11.05.2013, 04:50 [ТС]	4
	у меня на самом деле очень большая таблица. если мне подскажут как решить этот легкий пример в в.б.а. то я решу свой более сложный пример 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	11.05.2013, 07:31	6
	Удалил сообщение. 0