Интегрирование и экстраполирование функций

@Екатерина Некр · Регистрация: 12.12.2012

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

Помогите пожалуйста расставить точки на рисунке в программе,соответственно заданным значениям!Срочно!!Программа загружена в архиве!!Пожалуйста!!!

@gaw · 21.02.2013, 20:19

Сообщение от Екатерина Некр

соответственно заданным значениям

где

@Екатерина Некр · 21.02.2013, 20:36 **[ТС]**

Почему-то при загрузке архива,вся программа пропадает..подскажите пожалуйста,как сделать,что бы программа не исчезла

SoftIce · 21.02.2013, 21:25

Что куда расставить?

@gaw · 21.02.2013, 21:46

я уже где то видел эту работу, там надо вписать другие исходные данные и соотв. внести корр.

@Екатерина Некр · 21.02.2013, 21:47 **[ТС]**

В самой программе...нужно правильно расставить точки на рисунке!!Вот эти координаты:rx(1) = 0.24
rx(2) = 0.26
rx(3) = 0.27
rx(4) = 0.29
rx(5) = 0.3
rx(6) = 0.32
rx(7) = 0.37
rx(8) = 0.38
rx(9) = 0.42
rx(10) = 0.49
rx(11) = 0.59
ry(1) = 0.2423
ry(2) = 0.2629
ry(3) = 0.2733
ry(4) = 0.2941
ry(5) = 0.3045
ry(6) = 0.3255
ry(7) = 0.3785
ry(8) = 0.3892
ry(9) = 0.4325
ry(10) = 0.5098
ry(11) = 0.6248
x1(1) = 0.51
x1(2) = 0.3

@gaw · 21.02.2013, 21:53

Сообщение от Екатерина Некр

В самой программе...нужно правильно расставить точки на рисунке!!

нужно писать программу так, что б она сама расставляла (а то зачем такая программа

)

@Екатерина Некр · 21.02.2013, 22:05 **[ТС]**

Ну напишите,пожалуйста!!!!

SoftIce · 21.02.2013, 22:39

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
 
Private Sub Form_activate()
    Dim i As Integer, X As Single
    Picture1.Print "Узлы интерполирования функций:"
    Picture1.Scale (-0.1, 0.8)-(0.8, -0.1)
    Picture1.DrawStyle = 0: Picture1.DrawWidth = 3
    Picture1.Line (-0.1, 0)-(0.75, 0)
    Picture1.Line (0, -0.1)-(0, 0.75)
    Picture1.Circle (0, 0), 0.005
    Picture1.DrawStyle = 2: Picture1.DrawWidth = 1
    For X = 0 To 0.7 Step 0.1
           Picture1.Line (X, 0)-(X, 0.7)
           Picture1.CurrentY = -0.02: Picture1.Print X
           Picture1.Line (0, X)-(0.7, X)
           Picture1.CurrentX = -0.05: If X > 0 Then Picture1.Print X
    Next X
    Picture1.DrawStyle = 0: Picture1.DrawWidth = 3: Picture1.FillStyle = 0
    Picture1.CurrentX = -0.03: Picture1.CurrentY = 0.7: Picture1.Print "Y"
    Picture1.CurrentX = 0.7: Picture1.CurrentY = -0.03: Picture1.Print "X"
End Sub
Private Sub Выполнить_Click()
Dim rx, ry, i As Integer
 rx = Array(0, 0.24, 0.26, 0.27, 0.29, 0.3, 0.32, 0.37, 0.38, 0.42, 0.49, 0.59)
 ry = Array(0, 0.2423, 0.2629, 0.2733, 0.2941, 0.3045, 0.3255, 0.3785, 0.3892, 0.4325, 0.5098, 0.6248)
    For i = 1 To 11
      Picture1.Circle (rx(i), ry(i)), 0.003, vbRed
    Next i
End Sub

@Екатерина Некр · 22.02.2013, 00:00 **[ТС]**

Можете точки более крупнее и точнее сделать.Пожалуйста..

Dragokas · 22.02.2013, 00:12

Если их сделать крупнее - точнее от этого не станет ))

Куда уж точнее. На глаз вроде все верно.

SoftIce · 22.02.2013, 07:15

Крупнее так

27-я строка

Visual Basic
1
Picture1.Circle (rx(i), ry(i)), 0.008, vbRed

А что значит "точнее", я тоже не понимаю?

Они стоят там, где должны.

Может быть, изменить масштаб (шкалу),?

@Екатерина Некр · 22.02.2013, 08:12 **[ТС]**

Ну да.По больше немного сделать

SoftIce · 22.02.2013, 11:39

Сообщение от Екатерина Некр

По больше немного сделать

У Вас точки расположены близко, если увеличивать масштаб,
то начало координат придётся убирать.

@Екатерина Некр · 25.02.2013, 21:00 **[ТС]**

Можете сделать так,что бы у меня выводилось уравнение с результатом...Пожалуйста..

@Екатерина Некр · 26.02.2013, 17:47 **[ТС]**

Помогите пожалуйста расставить точки на графике,согласно выводимому результату и чтобы они проходили по линии!!Срочно!!!!Пожалуйста!!:Y(1)=0.388 481965061448; Y(2)=0.469953634495376...Вот эта программа:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
Option Explicit
Dim rx(11) As Double, ry(11) As Single, X, Y As Integer, x1(2), y1(2) As Double, i, j, n As Integer, z, k As Double
Private Sub Form_activate()
Picture1.CurrentX = 0
Picture1.CurrentY = 0
Picture1.Print "Узлы интегрирования функций:"
Picture1.Print " "
For X = 495 To 515
Picture1.Line (X, 500)-(X, 5500)
X = X + 1
Next X
Picture1.Line (420, 500)-(620, 500)
Picture1.Line (420, 500)-(520, 250)
Picture1.Line (620, 500)-(520, 250)
For Y = 5500 To 5515
Picture1.Line (500, Y)-(8000, Y)
Y = Y + 1
Next Y
Picture1.Line (8000, 5400)-(8000, 5600)
Picture1.Line (8000, 5400)-(8250, 5500)
Picture1.Line (8000, 5600)-(8250, 5500)
 
Picture1.CurrentX = 300
Picture1.CurrentY = 650
Picture1.Print "Y"
Picture1.CurrentX = 8000
Picture1.CurrentY = 5600
Picture1.Print "X"
Picture1.CurrentX = 500
Picture1.CurrentY = 5500
Picture1.Print "0"
Picture1.FillStyle = vbSolid
Picture1.FillColor = vbBlack
Picture1.Circle (500, 5500), 80, vbBlack
Сетка
НадписиТочки
End Sub
Private Sub Form_mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Выполнить.Width = 1455
Выход.Width = 855
End Sub
Private Sub Выполнить_Click()
Picture1.FontSize = 12
rx(1) = 0.24
rx(2) = 0.26
rx(3) = 0.27
rx(4) = 0.29
rx(5) = 0.3
rx(6) = 0.32
rx(7) = 0.37
rx(8) = 0.38
rx(9) = 0.42
rx(10) = 0.49
rx(11) = 0.59
ry(1) = 0.2423
ry(2) = 0.2629
ry(3) = 0.2733
ry(4) = 0.2941
ry(5) = 0.3045
ry(6) = 0.3255
ry(7) = 0.3785
ry(8) = 0.3892
ry(9) = 0.4325
ry(10) = 0.5098
ry(11) = 0.6248
x1(1) = 0.51
x1(2) = 0.3
Ôóíêöèÿ
Picture1.CurrentX = 100
Picture1.CurrentY = 5650
Picture1.Print "Результат:"
  For n = 1 To 2
  k = 0
  For i = 1 To 11
  z = 1
  For j = 1 To 11
  If i <> j Then
  z = z * (x1(n) - rx(j)) / (rx(i) - rx(j))
  End If
  Next j
  k = k + z * ry(i)
  Next i
  y1(n) = k
  Picture1.Print "Y" + "(" + Str(n) + ") = " + "0"; Str(y1(n))
  Next n
  Picture1.FillColor = vbYellow
  Picture1.Circle (2600, 3650), 80, vbBlack
  Picture1.Circle (3600, 2950), 80, vbBlack
End Sub
Private Sub Выполнить_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Выполнить.MousePointer = 11
 
End Sub
Private Sub Сетка()
For X = 500 To 8000
Picture1.Line (X, 5500)-(X, 800)
X = X + 500
Next X
For Y = 5000 To 900 Step -500
Picture1.Line (100, Y)-(8000, Y)
Next Y
End Sub
Private Sub Надписи()
Picture1.FontSize = 10
z = 0.25
For X = 1000 To 6900
Picture1.CurrentX = X
Picture1.CurrentY = 5100
Picture1.Print "0" + Str(z)
z = z + 0.05
X = X + 500
Next X
z = 0.25
For Y = 5000 To 500 Step -500
Picture1.CurrentX = 20
Picture1.CurrentY = Y
Picture1.Print "0" + Str(z)
z = z + 0.05
Next Y
End Sub
Private Sub Точки()
Picture1.FillStyle = vbSolid
Picture1.FillColor = vbRed
Picture1.Circle (1000, 5150), 80, vbBlack
Picture1.Circle (1600, 4400), 80, vbBlack
Picture1.Circle (2100, 4100), 80, vbBlack
Picture1.Circle (2400, 3800), 80, vbBlack
Picture1.Circle (2800, 3500), 80, vbBlack
Picture1.Circle (3300, 3200), 80, vbBlack
Picture1.Circle (3700, 2800), 80, vbBlack
Picture1.Circle (4100, 2500), 80, vbBlack
Picture1.Circle (4900, 1900), 80, vbBlack
Picture1.Circle (5100, 1750), 80, vbBlack
Picture1.Circle (5600, 1400), 80, vbBlack
End Sub
Private Sub Функция()
Picture1.DrawWidth = 5
Picture1.Line (500, 5500)-(1000, 5150), vbBlue
Picture1.Line (1000, 5150)-(1600, 4400), vbBlue
Picture1.Line (1600, 4400)-(2100, 4100), vbBlue
Picture1.Line (2100, 4100)-(2400, 3800), vbBlue
Picture1.Line (2400, 3800)-(2800, 3500), vbBlue
Picture1.Line (2800, 3500)-(3300, 3200), vbBlue
Picture1.Line (3300, 3200)-(3700, 2800), vbBlue
Picture1.Line (3700, 2800)-(4100, 2500), vbBlue
Picture1.Line (4100, 2500)-(4900, 1900), vbBlue
Picture1.Line (4900, 1900)-(5100, 1750), vbBlue
Picture1.Line (5100, 1750)-(5600, 1400), vbBlue
Picture1.Line (5600, 1400)-(5700, 1350), vbBlue
End Sub
Private Sub Выход_Click()
End
End Sub
Private Sub Выход_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Выход.Width = 1355
End Sub

Комментарий модератора

Екатерина Некр, тему свою потеряли? (перемещено)

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .

@Екатерина Некр 0 / 0 / 0 Регистрация: 12.12.2012 Сообщений: 12
	21.02.2013, 20:36 [ТС]
	Почему-то при загрузке архива,вся программа пропадает..подскажите пожалуйста,как сделать,что бы программа не исчезла 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	21.02.2013, 21:25
	Что куда расставить? Миниатюры 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	21.02.2013, 21:46
	я уже где то видел эту работу, там надо вписать другие исходные данные и соотв. внести корр. 0

@Екатерина Некр 0 / 0 / 0 Регистрация: 12.12.2012 Сообщений: 12
	21.02.2013, 21:47 [ТС]
	В самой программе...нужно правильно расставить точки на рисунке!!Вот эти координаты:rx(1) = 0.24 rx(2) = 0.26 rx(3) = 0.27 rx(4) = 0.29 rx(5) = 0.3 rx(6) = 0.32 rx(7) = 0.37 rx(8) = 0.38 rx(9) = 0.42 rx(10) = 0.49 rx(11) = 0.59 ry(1) = 0.2423 ry(2) = 0.2629 ry(3) = 0.2733 ry(4) = 0.2941 ry(5) = 0.3045 ry(6) = 0.3255 ry(7) = 0.3785 ry(8) = 0.3892 ry(9) = 0.4325 ry(10) = 0.5098 ry(11) = 0.6248 x1(1) = 0.51 x1(2) = 0.3 0

@Екатерина Некр 0 / 0 / 0 Регистрация: 12.12.2012 Сообщений: 12
	21.02.2013, 22:05 [ТС]
	Ну напишите,пожалуйста!!!! 0

@Екатерина Некр 0 / 0 / 0 Регистрация: 12.12.2012 Сообщений: 12
	22.02.2013, 00:00 [ТС]
	Можете точки более крупнее и точнее сделать.Пожалуйста.. Миниатюры 0

Dragokas 18033 / 7736 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	22.02.2013, 00:12
	Если их сделать крупнее - точнее от этого не станет )) Куда уж точнее. На глаз вроде все верно. 1

@Екатерина Некр 0 / 0 / 0 Регистрация: 12.12.2012 Сообщений: 12
	22.02.2013, 08:12 [ТС]
	Ну да.По больше немного сделать 0

@Екатерина Некр 0 / 0 / 0 Регистрация: 12.12.2012 Сообщений: 12
	25.02.2013, 21:00 [ТС]
	Можете сделать так,что бы у меня выводилось уравнение с результатом...Пожалуйста.. 0