Построение графика функции

@igrovirus · Регистрация: 22.09.2013

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

Всем привет.
Есть функция r=h/L
h=v*t
Значения v и L заданы и они постоянны.(v=50;L=5)
Можно ли в Visual Basic построить график этой функции r от t,если значения t=0.05;0.1;0.15;0.2;1;10;100;1000.

@vodav · 23.09.2013, 14:35

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

Можно ли в Visual Basic построить график этой функции

Можно

@igrovirus · 24.09.2013, 00:48 **[ТС]**

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

Можно

Не подскажите как?

Добавлено через 6 часов 31 минуту

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
  
 v = 50
 t = Val(Text1.Text)
 h = v * t 
 Text2.Text = h
 L = 50
 r = h/L
 Text6.Text = r

Расчет переменно R уже сделал.А вот с графиком не могу
Поможет кто написать код программы для построения графика фуркции R от t.
Для t=0.05;0.1;0.15;0.2;1;10;100;1000.

Добавлено через 9 минут
Хотя бы для нескольких значений.
Остальное я сам додумаю.

SoftIce · 24.09.2013, 06:54

Тут по-моему 2 задачи - построить график функции и сделать "табулирование" для данных точек .

Так что ли?

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 r As Double, t As Double, arrT() As Variant, h As Double, i As Integer
    Const v As Integer = 50
    Const L As Integer = 5
    arrT = Array(0.05, 0.1, 0.15, 0.2, 1, 10, 100, 1000)
    Picture1.Scale (-100, 11000)-(1100, -1000)
    Picture1.Cls: Picture1.BackColor = vbWhite: Picture1.FillStyle = 0
    Picture1.AutoRedraw = True: Me.AutoRedraw = True
    Picture1.Line (-100, 0)-(1100, 0)
    Picture1.Line (0, -1000)-(0, 11000)
    
    For t = 0.05 To 1000 Step 0.1
            h = v * t
            r = h / L
            Picture1.PSet (t, r), vbBlue
    Next
    
    For i = 0 To UBound(arrT)
            t = arrT(i)
            h = v * t
            r = h / L
            Print "  t = " & t, "r = " & r
            Picture1.Circle (t, r), 12, vbRed
    Next
    
End Sub

SoftIce · 24.09.2013, 07:06

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

Поможет кто написать код программы для построения графика фуркции R от t.
Для t=0.05;0.1;0.15;0.2;1;10;100;1000.
Добавлено через 9 минут
Хотя бы для нескольких значений.
Остальное я сам додумаю.

Интересно было бы посмотреть как ты сделаешь график функции для одного значения

@igrovirus · 24.09.2013, 23:41 **[ТС]**

SoftIce спасибо огромное))
Но задача звучала на самом деле немного была сложней.
Вот что получилось с использованием вашей помощи:

PureBasic
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
Private Sub Command2_Click()
    Dim R As Double, t As Double, arrT() As Variant, h As Double, i As Integer, R0 As Double, L As Double, E As Double
    v = 50000
    L = Val(Text3.Text)
    E = Val(Text4.Text)
    R0 = Val(Text5.Text)
 
    arrT = Array(0.05, 0.1, 0.15, 0.2, 1, 10, 100, 1000)
    Picture1.Scale (-100, 11000)-(1100, -1000)
    Picture1.Cls: Picture1.BackColor = vbWhite: Picture1.FillStyle = 0
    Picture1.AutoRedraw = True: Me.AutoRedraw = True
    Picture1.Line (-100, 0)-(1100, 0)
    Picture1.Line (0, -1000)-(0, 11000)
    
    For t = 0.05 To 1000 Step 0.1
            h = v * t * 10 ^ (-6)
            R = ((h / L) * (((1 - E) ^ (-1.5)) - 1) + 1) * R0
            Picture1.PSet (t, R), vbBlue
    Next
    
    For i = 0 To UBound(arrT)
            t = arrT(i)
            h = v * t * 10 ^ (-6)
            R = ((h / L) * (((1 - E) ^ (-1.5)) - 1) + 1) * R0
            Print "  t = " & t, "r = " & R
            Picture1.Circle (t, R), 12, vbRed
    Next
    
End Sub

Значение v дано,значения L, E ,R0 вводим в текст окно (например L=1;E-0.5;R0=15)
h = v * t * 10 ^ (-6)
R = ((h / L) * (((1 - E) ^ (-1.5)) - 1) + 1) * R0
Все вроде бы нормально,только получается график прямой.Хотя график фукции R от t видно,что не прямая.
И если не сложно помогите,чтобы на осях эти рассчитанные значения,по которым мы строим график отображались.

@igrovirus · 24.09.2013, 23:47 **[ТС]**

Значение v дано,значения L, E ,R0 вводим в текст окно (например L=1;E=0.5;R0=15)
ошибся немного

morgann55 · 25.09.2013, 00:49

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

Все вроде бы нормально,только получается график прямой.Хотя график фукции R от t видно,что не прямая.

Как может быть график не прямой если r=t*10 ??

@igrovirus · 25.09.2013, 00:56 **[ТС]**

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

Как может быть график не прямой если r=t*10 ??

Вы не так поняли,
R = ((h / L) * (((1 - E) ^ (-1.5)) - 1) + 1) * R0
Значения L,E,R0 есть,а
h = v * t * 10 ^ (-6) (здесь 10 ^ (-6) я сделал для перевода мсек в сек,чтобы потом не запутаться с размерностью)
v=50000

morgann55 · 25.09.2013, 02:03

Пардон, ты ведь уже условие изменил

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@igrovirus 0 / 0 / 0 Регистрация: 22.09.2013 Сообщений: 11

	Построение графика функции 22.09.2013, 02:58. Показов 1945. Ответов 9 Метки нет (Все метки) Всем привет. Есть функция r=h/L h=v*t Значения v и L заданы и они постоянны.(v=50;L=5) Можно ли в Visual Basic построить график этой функции r от t,если значения t=0.05;0.1;0.15;0.2;1;10;100;1000. 0

@igrovirus 0 / 0 / 0 Регистрация: 22.09.2013 Сообщений: 11
	24.09.2013, 23:47 [ТС]
	Значение v дано,значения L, E ,R0 вводим в текст окно (например L=1;E=0.5;R0=15) ошибся немного 0

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	25.09.2013, 02:03
	Пардон, ты ведь уже условие изменил 0

Построение графика функции

Решение