Проект для решения нелинейных уравнений методом половинного деления

@Машенька) · Регистрация: 13.12.2011

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

Нужно создать проект для решения нелинейных уравнений методом половинного деления, методом хорд и методом Ньютона(касательных) с заданной точностью на заданном интервале. Построить график на экранной форме и на листе Excel. например вот такое уравнение xlg(x+1)=1

@gaw · 13.12.2011, 18:41

Сообщение от Машенька)

Нужно создать проект

и в чем проблема

@Машенька) · 14.12.2011, 13:44 **[ТС]**

проблема в написании кода для этого проекта

@gaw · 14.12.2011, 15:37

как с вами связаться

Памирыч · 14.12.2011, 15:55

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

gaw, решайте вопросы на форуме, не нужно никого уводить в личку.

Машенька), или решается задача тут, или Вы готовы платить и тема переносится во фриланс

@Машенька) · 15.12.2011, 12:38 **[ТС]**

gaw, если вы готовы помочь безвозмездно,то сделайте это здесь, судя по правилам))

@gaw · 15.12.2011, 13:10

всегда готов

Сообщение от Машенька)

проблема в написании кода для этого проекта

и так, следует понимать, что форма уже сформирована
тогда приступайте к коду
первая строка рекомендуется Option Explicit
после желательно описать переменные, используемые ниже /dim i as Integer и т.д./
повкольку формы не вижу, то как то так:
кликаем дважды по ЭУ и пробуем кодить его действие выбрав предварительно необходимое событие

@Alex77755 · 15.12.2011, 16:31

Построить график на экранной форме и на листе Excel

И на форме и на листе Excel?
Задание в VB? Точно?

Добавлено через 5 минут

Не по теме:

Машенька),

если вы готовы помочь

Ты хоть шанс дай помочь тебе!! Начинай уже что-то делать!

Добавлено через 4 минуты
Принцип метода половинного деления: (функция, естественно другая - подставь свою)

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
Private Sub Комманда1_Click()
Dim X3
Dim X1
Dim X2
'X1 = -15
'X2 = 2.7
X1 = 0
X2 = 0.8
 
Do
  X3 = (X1 + X2) / 2
  If (F(X1) * F(X3) < 0) Then
   X2 = X3
  End If
  If (F(X3) * F(X2) < 0) Then
   X1 = X3
  End If
  DoEvents
  Loop While Abs(F(X1)) > 0.0001
  MsgBox "X = " & X1, 64, CDec(Abs(F(X1)))
  
End Sub
Function F(X)
'F = X ^ 5 - X ^ 4 - 1.1 * X ^ 3 - X ^ 2 + 2 * X - 10
F = Tan(X) - Tan(X / 3) ^ 3 + Tan(X / 5) ^ 5 - 0.5
End Function

@Машенька) · 16.12.2011, 13:52 **[ТС]**

Alex77755, большое спасибо за пример! =))там в конце решение должно выводиться на лист Excel

Добавлено через 46 минут
ох, всё таки не в VB, а в VBA

Новые блоги и статьи Все статьи Все блоги /
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. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Машенька) 0 / 0 / 0 Регистрация: 13.12.2011 Сообщений: 5

	Проект для решения нелинейных уравнений методом половинного деления 13.12.2011, 14:28. Показов 6755. Ответов 8 Метки нет (Все метки) Нужно создать проект для решения нелинейных уравнений методом половинного деления, методом хорд и методом Ньютона(касательных) с заданной точностью на заданном интервале. Построить график на экранной форме и на листе Excel. например вот такое уравнение xlg(x+1)=1 0

@Машенька) 0 / 0 / 0 Регистрация: 13.12.2011 Сообщений: 5
	14.12.2011, 13:44 [ТС]
	проблема в написании кода для этого проекта 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	14.12.2011, 15:37
	как с вами связаться 0

@Машенька) 0 / 0 / 0 Регистрация: 13.12.2011 Сообщений: 5
	15.12.2011, 12:38 [ТС]
	gaw, если вы готовы помочь безвозмездно,то сделайте это здесь, судя по правилам)) 0

@Машенька) 0 / 0 / 0 Регистрация: 13.12.2011 Сообщений: 5
	16.12.2011, 13:52 [ТС]
	Alex77755, большое спасибо за пример! =))там в конце решение должно выводиться на лист Excel Добавлено через 46 минут ох, всё таки не в VB, а в VBA 0