Страница: 1 |
Страница: 1 |
Вопрос: Табулирвоание функции
Добавлено: 11.01.07 20:02
Автор вопроса: max
Разработать макет формы и написать программный код для табулирования функции f(x) на отрезке [x0; xk] с шагом h
Это что такое???
Ответы
Всего ответов: 9
Номер ответа: 1
Автор ответа:
GSerg
Вопросов: 0
Ответов: 1876
Профиль | | #1
Добавлено: 11.01.07 23:45
Если ты не понял даже что это такое, то будет справедливо, если ты получишь двойку, ИМХО.
Номер ответа: 2
Автор ответа:
HACKER
Разработчик Offline Client
Вопросов: 236
Ответов: 8362
Профиль | | #2
Добавлено: 12.01.07 01:39
... но за 20 WMZ тут многие готовы помочь
Номер ответа: 3
Автор ответа:
Viper
ICQ: 249094859
Вопросов: 0
Ответов: 310
Профиль | | #3
Добавлено: 12.01.07 11:24
и здесь он успел отметится... куда девацца?
Номер ответа: 4
Автор ответа:
Djon
Вопросов: 61
Ответов: 471
Web-сайт:
Профиль | | #4
Добавлено: 12.01.07 11:26
А я за 10 WMZ сделаю.
Номер ответа: 5
Автор ответа:
Sharp
Лидер форума
ICQ: 216865379
Вопросов: 106
Ответов: 9979
Web-сайт:
Профиль | | #5
Добавлено: 12.01.07 17:33
Табулирование функции - это вычисление некоторого количества значений функции с аргументами в указанном отрезке с заданным шагом. Т.е. если, например, функция синус, отрезок 0..1, шаг 0.2, то табулирование заключается в выводе sin(0), sin(0.2), ..., sin(0.8), sin(1)
Номер ответа: 6
Автор ответа:
Artyom
Разработчик
Вопросов: 130
Ответов: 6602
Профиль | | #6
Добавлено: 12.01.07 17:37
Sharp, демпингуешь однако!
Номер ответа: 7
Автор ответа:
Sharp
Лидер форума
ICQ: 216865379
Вопросов: 106
Ответов: 9979
Web-сайт:
Профиль | | #7
Добавлено: 12.01.07 20:13
Это пиар-ход, не волнуйся, я честный игрок рынка
Номер ответа: 8
Автор ответа:
max
Вопросов: 2
Ответов: 5
Профиль | | #8
Добавлено: 14.01.07 01:29
так?
Function Func(ByVal x As Single)
If x > 0 Then
f = Exp(-(x ^ 2 + 2.4)) + Log(Tan(x / 6))
Else
If (x + 2) >= 0 Then
f = (Sqr(Abs(x * (x + 2) ^ (1 / 3))) - 3 * x) / (x - 1)
Else
f = (Sqr(Abs((-1) * x * (-(x + 2)) ^ (1 / 3))) - 3 * x) / (x - 1)
End If
End If
Func = y
End Function
Private Sub Form_Resize()
Refresh
End Sub
Private Sub Command1_Click()
Form1.BackColor = &H80000009
DrawWidth = 2
Scale (-10, 200)-(10, -200)
Form1.ForeColor = &H0&
Line (-10, 0)-(10, 0)
Line (0, -200)-(0, 200)
DrawWidth = 1
Form1.ForeColor = &HFF&
For x = -3 To 3 Step 0.5
Line -(x, Func(x))
Next
End Sub
Номер ответа: 9
Автор ответа:
Djon
Вопросов: 61
Ответов: 471
Web-сайт:
Профиль | | #9
Добавлено: 16.01.07 00:01
Смотря какая у тебя функция.