Как автоматизировать интерполяцию данных

@dilloYa · Регистрация: 03.09.2012

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

Есть такая таблица

h. m	t ммп1, оС
0,0	1,9
1,0	1,5
2,0	-1,0
3,0	-3,5
4,0	-4,6
5,0	-5,0
6,0	-5,0
7,0	-4,9
9,0	-4,7
10,0	-4,7
11,0	-4,7
13,0	-4,8
15,0	-5,0
17,0	-5,2
19,0	-5,4
21,0	-5,5
23,0	-5,6
25,0	-5,7
27,0	-5,8

А мне требуется, допустим, шкалу глубины разбить через 0,1 и соответственно проинтерполировать значения температуры для этих значений. Заранее спасибо, кто подскажет как это сделать

@~~Апострофф~~ · 26.11.2012, 10:26

dilloYa, линейная интерполяция по соседним точкам подойдёт?
Или требуется сглаживание (что-то типа сплайна)?

@dilloYa · 26.11.2012, 10:44 **[ТС]**

Сообщение от Апострофф

dilloYa, линейная интерполяция по соседним точкам подойдёт?
Или требуется сглаживание (что-то типа сплайна)?

линейная вполне сгодится

@~~Апострофф~~ · 26.11.2012, 11:11

Visual Basic

Sub main()
Dim r As Long, i As Double, c As Long
c = 2
For r = 2 To 19
  Cells(c, 3) = Cells(r, 1)
  Cells(c, 4) = Cells(r, 2)
  c = c + 1
  For i = Cells(r, 1) + 0.1 To Cells(r + 1, 1) - 0.05 Step 0.1
    Cells(c, 3) = Cells(c - 1, 3) + 0.1
'    Cells(c, 4) = Cells(r, 2) + (Cells(r + 1, 2) - Cells(r, 2)) * (i - Cells(r, 1))
    Cells(c, 4) = Cells(r, 2) + (Cells(r + 1, 2) - Cells(r, 2)) * (i - Cells(r, 1)) / (Cells(r + 1, 1) - Cells(r, 1))
    c = c + 1
  Next i
Next r
Cells(c, 3) = Cells(r, 1)
Cells(c, 4) = Cells(r, 2)
End Sub

@dilloYa · 26.11.2012, 12:40 **[ТС]**

Спасибо большое, кажется то, что надо

@Казанский · 26.11.2012, 15:14

Апострофф, у тебя где-то косяк!
Я сделал формулами, и график полученных точек совпадает с исходным.
А график твоих точек дает "пилу".

@~~Апострофф~~ · 26.11.2012, 15:54

Да, поспешил

10-я строка не

Visual Basic

1	Cells(c, 4) = Cells(r, 2) + (Cells(r + 1, 2) - Cells(r, 2)) * (i - Cells(r, 1))

а

Visual Basic

1	Cells(c, 4) = Cells(r, 2) + (Cells(r + 1, 2) - Cells(r, 2)) * (i - Cells(r, 1)) / (Cells(r + 1, 1) - Cells(r, 1))

@dilloYa · 26.11.2012, 17:28 **[ТС]**

спасибо еще раз, теперь уже не кажется

, а именно то. и Казанскому, что обратил внимание

@~~Апострофф~~ Заблокирован
	26.11.2012, 10:26	2
	dilloYa, линейная интерполяция по соседним точкам подойдёт? Или требуется сглаживание (что-то типа сплайна)? 0

@dilloYa 12 / 12 / 0 Регистрация: 03.09.2012 Сообщений: 44
	26.11.2012, 10:44 [ТС]	3
	Сообщение от Апострофф dilloYa, линейная интерполяция по соседним точкам подойдёт? Или требуется сглаживание (что-то типа сплайна)? линейная вполне сгодится 0

@dilloYa 12 / 12 / 0 Регистрация: 03.09.2012 Сообщений: 44
	26.11.2012, 12:40 [ТС]	5
	Спасибо большое, кажется то, что надо 0

@dilloYa 12 / 12 / 0 Регистрация: 03.09.2012 Сообщений: 44
	26.11.2012, 17:28 [ТС]	8
	спасибо еще раз, теперь уже не кажется , а именно то. и Казанскому, что обратил внимание 0

Опции темы