| Вопрос: Производная функций | Добавлено: 09.01.04 08:30 |
Автор вопроса:  dNW
|
| Ответы | Всего ответов: 19 |
|
Номер ответа: 16 Автор ответа:  dNW Вопросов: 30 Ответов: 683 |
Профиль | | #16 | Добавлено: 24.01.04 16:50 |
|
Хе-хе! Хитро и мудро! Признаю свое поражение
Похоже мне нужно объяснить зачем нужна мне эта производная, что бы ты все понял! Я пытаюсь написать что-то вроде FlatGraph. т.е программу, которая отображает графики функций. Я реализовал почти все - Увеличение , Смещение плоскости , сохранение изображения - кроме производнои. функций предусматриваются обычные ( y = f(x)) и переменная в них будет только X, а все остальное - числа, математические знаки и тригонометрические |
||
|
Номер ответа: 17 Автор ответа:  Cooler Вопросов: 0 Ответов: 1 |
Профиль | | #17 | Добавлено: 11.09.06 23:08 |
|
Помогите, пожалуйста, новичку исправить ошибки. Программа должна получить из TextBox формулу в виде F(x) и посчитать по ней внутри программы. Вот собственно код. Буду очень признателен.
Function obrabotka(d As Double) As Double
FX = Replace$(Form1.Text1, "x", d) obrabotka = Form1.ScriptControl1.Eval(FX) End Function Sub dihotomi() Dim f1#, f2#, x1#, x2#, a#, b#, e#, s# Dim i As Long a = Form1.Text2 b = Form1.Text3 e = Form1.Text4 i = 0 Do While Abs(b - a) > 2 * e x1 = (a + b - e) / 2 x2 = (a + b + e) / 2 f1 = obrabotka(x1) f2 = obrabotka(x2) If f1 >= f2 Then b = x2 If f2 > f1 Then a = x1 i = i + 1 Loop s = (b + a) / 2 Form1.Label10.Caption = s Form1.Label11.Caption = obrabotka(s) Form1.Label7.Caption = i End Sub |
||
|
Номер ответа: 18 Автор ответа:  ViperICQ: 249094859 Вопросов: 0 Ответов: 310 |
Профиль | | #18 | Добавлено: 12.09.06 11:17 |
| А где ошибка то всплывает? На каких значениях? Я не говорю о том, что код можно подкорректировать в лучшую сторону, путем введения явного определения типа переменных и кое-чего другого. По идее он и в этом виде рабочий на первый взгляд. | ||
|
Номер ответа: 19 Автор ответа: Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #19 | Добавлено: 12.09.06 14:45 |
|
Ух ты... пост №15...
Шарп однако в 2004 году имел ещё остатки "искалеченой паскалём психики" и употреб%ял слова типа "рекурсия" итд  хм а я не знааал
|
||