График выдает переполнение

@user2021_407 · Регистрация: 13.06.2021

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

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Command1_Click()
Dim i As Integer
Dim y As Double
Dim x As Single
Picture1.Scale (-20, 20)-(20, -20)
Picture1.Line (-50, 0)-(50, -0), vbBlue
For i = -50 To 50
Picture1.PSet (i, 0), vbRed
Picture1.Print i
Next i
Picture1.Line (0, -80)-(0, 80), vbBlue
For i = -80 To 80
Picture1.PSet (0, i), vbRed
Picture1.Print i
Next i
For x = -9 To 9 Step 0.005
y = ((Cos(x + 8) ^ 3) * (Cos(x + 8) ^ 3) + 3 * Sin(x + 7)) / ((Abs(((1 + 2 * x) ^ 3))) ^ 1 / 2)
Picture1.PSet (x, y), vbRed
Next
End Sub

@Argus19 · 13.06.2021, 13:06

Сообщение от user2021_407

При запуске приложения график выдает переполнение

В каком месте и что именно переполняется?

Добавлено через 25 минут
Если установить изменение х до нуля, получается вот такой рост "y":
5,70949368184351
6,47956427178891
7,38789813346797
8,47048748517059
9,77617686821111
11,3727186382357
13,35650286891
15,8687920959709
19,1240398113821
23,4619819529227
29,4498707025663
38,1000237513994
51,3836368993
73,6270991809918
116,152023161448
218,519371262666
632,583432059922
4,10499621972191E+20
вот и переполнение. Формула точно правильная?

@Catstail · 13.06.2021, 13:28

user2021_407, очевидно, что при x=-0.5 будет деление на нуль

@Catstail · 13.06.2021, 13:39

Функция довольно дикая...

@user2021_407 · 13.06.2021, 13:53 **[ТС]**

Формулу к работе давали в учебном заведении, но почему-то через онлайн график все работает

@user2021_407 · 13.06.2021, 14:05 **[ТС]**

вот что выделяет программа при работе

@Argus19 · 13.06.2021, 14:26

Сообщение от user2021_407

вот что выделяет программа при работе

Правильно. Я же вам привёл числа.
Поставьте перед этой командой

Visual Basic
1
Debug.Print y

и увидите, когда произойдёт переполнение

@user2021_407 · 13.06.2021, 14:33 **[ТС]**

Что сделать чтобы этого переполнения избежать? как изменить код?

I can · 13.06.2021, 14:36

on error resume next
напиши перед строкой с ошибкой
надеюсь, более опытные товарищи меня не прибьют

@Argus19 · 13.06.2021, 14:56

Сообщение от user2021_407

как изменить код?

Показать преподавателю. Сказать, что у функции PSet есть ограничение в виде размера PictureBox и при выходе за его пределы получаем ошибку.

Добавлено через 9 минут
Переполнение наступает при y = 4E+9, а у вас оно аж в 20 степени.

Добавлено через 9 минут
Чтобы избежать переполнения и всё-таки получить график, следует изменить код так:

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
Option Explicit
 
Private Sub Command1_Click()
Dim i As Integer
Dim y As Double
Dim x As Single
Picture1.Scale (-20, 20)-(20, -20)
Picture1.Line (-50, 0)-(50, -0), vbBlue
For i = -50 To 50
Picture1.PSet (i, 0), vbRed
Picture1.Print i
Next i
Picture1.Line (0, -80)-(0, 80), vbBlue
For i = -80 To 80
Picture1.PSet (0, i), vbRed
Picture1.Print i
Next i
For x = -9 To 9 Step 0.005
y = ((Cos(x + 8) ^ 3) * (Cos(x + 8) ^ 3) + 3 * Sin(x + 7)) / ((Abs(((1 + 2 * x) ^ 3))) ^ 1 / 2)
    If y < 4000000000# Then
Picture1.PSet (x, y), vbRed
    End If
Next
End Sub
 
Private Sub Form_Load()
Picture1.DrawWidth = 5  'Размер точек
End Sub

@Catstail · 13.06.2021, 15:19

user2021_407, о, да я не "добил" до конца формулу!

@Argus19 · 13.06.2021, 17:22

Так красившее

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
Option Explicit
 
Private Sub Command1_Click()
Dim i As Integer
Dim y, y1 As Double
Dim x, x1 As Single
Picture1.Scale (-20, 20)-(20, -20)
Picture1.Line (-50, 0)-(50, -0), vbBlue
For i = -50 To 50
Picture1.PSet (i, 0), vbRed
Picture1.Print i
Next i
Picture1.Line (0, -80)-(0, 80), vbBlue
For i = -80 To 80
Picture1.PSet (0, i), vbRed
Picture1.Print i
    x1 = -9
    y1 = 0
Next i
For x = -9 To 9 Step 0.005
y = ((Cos(x + 8) ^ 3) * (Cos(x + 8) ^ 3) + 3 * Sin(x + 7)) / ((Abs(((1 + 2 * x) ^ 3))) ^ 1 / 2)
    If y < 400000000# Then
Picture1.Line (x1, y1)-(x, y), vbRed
x1 = x
y1 = y
    End If
Next
End Sub
 
Private Sub Form_Load()
Picture1.DrawWidth = 2  'Размер точек
End Sub

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@Catstail Супер-модератор 38190 / 21125 / 4307 Регистрация: 12.02.2012 Сообщений: 34,732 Записей в блоге: 14
	13.06.2021, 13:28
	user2021_407, очевидно, что при x=-0.5 будет деление на нуль 0

@Catstail Супер-модератор 38190 / 21125 / 4307 Регистрация: 12.02.2012 Сообщений: 34,732 Записей в блоге: 14
	13.06.2021, 13:39
	Функция довольно дикая... Миниатюры 0

@user2021_407 0 / 0 / 0 Регистрация: 13.06.2021 Сообщений: 4
	13.06.2021, 13:53 [ТС]
	Формулу к работе давали в учебном заведении, но почему-то через онлайн график все работает Миниатюры 0

@user2021_407 0 / 0 / 0 Регистрация: 13.06.2021 Сообщений: 4
	13.06.2021, 14:05 [ТС]
	вот что выделяет программа при работе Миниатюры 0

@user2021_407 0 / 0 / 0 Регистрация: 13.06.2021 Сообщений: 4
	13.06.2021, 14:33 [ТС]
	Что сделать чтобы этого переполнения избежать? как изменить код? 0

I can fly 4950 / 4634 / 844 Регистрация: 13.04.2015 Сообщений: 9,816
	13.06.2021, 14:36
	on error resume next напиши перед строкой с ошибкой надеюсь, более опытные товарищи меня не прибьют 0

@Catstail Супер-модератор 38190 / 21125 / 4307 Регистрация: 12.02.2012 Сообщений: 34,732 Записей в блоге: 14
	13.06.2021, 15:19
	user2021_407, о, да я не "добил" до конца формулу! Миниатюры 0