Построение графиков полярных кривых в Visual Basic

Август 26, 2022

Главная
Информатика
Построение графиков полярных кривых в Visual Basic

Содержание

2. Понятие полярной системы Полярный радиус r – отрезок, соединяющий полюс с заданной точкой А. Полярный угол
3. Переход от полярной системы координат к декартовой Формулы обратного перехода от декартовых координат к полярным: Формулы
4. Построение графиков полярных кривых в Visual Basic Задание Создать проект в среде Visual Basic для построения
5. Интерфейс проекта 4
6. Свойства элементов управления Option1(5) Option1(0) 5
7. Свойства элементов управления 6
8. Описание переменных Dim z, k As Integer, f, pi, a, r, b, q As Single, i
9. Процедура выбора типа кривой Анализируем значение свойства Value каждого переключателя. Private Sub Option1_Click(Index As Integer) ‘в
10. Процедура кнопки Пуск Private Sub Command1_Click() ‘шкала Picture1.Scale (-10, 10)-(10, -10) ‘оси координат Picture1.Line (-10, 0)-(10,
11. Кардиоида Параметрические уравнения r = a * (1 + Cos(f)) x = r * Cos(f) y
12. Построение графика кардиоиды If z = 0 Then a = 4: q = 4: f =
13. Построение графика кардиоиды ‘Вывод параметрических уравнений в текстовое поле Text1.Text = Text1.Text & "r = a
14. Процедура кнопки Сброс Private Sub Command3_Click() Picture1.Cls Picture1.Line (-10, 0)-(10, 0), QBColor(0) Picture1.Line (0, 10)-(0, -10),
15. Логарифмическая спираль Параметрические уравнения a = 0.2 b = 0.15 n = 5 r = a
16. Декартов лист Параметрические уравнения a = 4 r = 3 * a * Cos(f) * Sin(f)
17. Фигура Лиссажу Параметрические уравнения r = 5 x = r * Cos(3 * f) y =
18. K-лепестковая роза Параметрические уравнения При чётных значениях k получается 2*k-лепестковая роза, а при нечётных значениях –
19. Эпициклоида Параметрические уравнения x = (a + b) * Cos(f) - a * Cos((a + b)
20. 1. Добавьте в проект кнопку Движение (Command4). Реализовать движение объекта (окружности) по траектории окружности радиуса R.
21. Задания для самостоятельной работы 2. Добавьте в проект элемент управления ползунок Slider (Проект – Компоненты -
22. Задания для самостоятельной работы ‘процедура кнопки Скорость Private Sub Command5_Click() v= Slider1 .Value End Sub ‘переменную
24. Скачать презентацию

Слайд 2

Понятие полярной системы
Полярный радиус r – отрезок, соединяющий полюс с заданной

точкой А.
Полярный угол f - угол между полярной осью и полярным радиусом.

В полярной системе любой точке соответствует единственная пара полярных координат А(r, f), где r – полярный радиус, a – полярный угол.

Слайд 3

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

декартовых координат к полярным:

Формулы перехода от полярных координат к декартовым (параметрические уравнения):

f = arctg(y/x);

Нужно совместить полярную и декартову прямоугольную сиcтемы таким образом, чтобы начала их координат совпадали, а полярная ось совпадала с положительным направлением оси абсцисс X.

Слайд 4

Построение графиков полярных кривых в Visual Basic
Задание
Создать проект в среде Visual

Basic для построения графиков полярных кривых, заданных параметрическими уравнениями: кардиоиды, логарифмической спирали, декартова листа, фигуры Лиссажу, k-лепестковой розы, эпициклоиды

Слайд 5

Интерфейс проекта
4

Слайд 6

Свойства элементов управления
Option1(5)
Option1(0)
5

Слайд 7

Свойства элементов управления
6

Слайд 8

Описание переменных
Dim z, k As Integer, f, pi, a, r, b,

q As Single, i As Long, x, y As Single

x, y – координаты точки
r – радиус; f - угол
Pi –число Пи
a, b, q, k – коэффициенты в параметрических уравнениях
z - индекс выбранного переключателя
i – параметр цикла для задержки рисования на экране

Слайд 9

Процедура выбора типа кривой
Анализируем значение свойства Value каждого переключателя.
Private Sub Option1_Click(Index

As Integer)
‘в переменной z запоминаем индекс выбранного переключателя
For i = 0 To 5
If Option1(i).Value = True Then z = i
Next
End Sub

Слайд 10

Процедура кнопки Пуск
Private Sub Command1_Click()
‘шкала
Picture1.Scale (-10, 10)-(10, -10)

‘оси координат
Picture1.Line (-10, 0)-(10, 0), QBColor(0)
Picture1.Line (0, -10)-(0, 10), QBColor(0)
pi = 3.14154

Слайд 11

Кардиоида
Параметрические уравнения
r = a * (1 + Cos(f))
x = r *

Cos(f)
y = r * Sin(f)
f ∈ [0, 2*pi]

Слайд 12

Построение графика кардиоиды
If z = 0 Then
a = 4:

q = 4: f = 0
While f <= 2 * pi
r = a * (1 + Cos(f))
x = r * Cos(f)
y = r * Sin(f)
‘построение точки
Picture1.PSet (x, y), QBColor(2)
‘задержка рисования
For i = 1 To 100000: Next
f = f + 0.01
Wend

Слайд 13

Построение графика кардиоиды
‘Вывод параметрических уравнений в текстовое поле
Text1.Text = Text1.Text

& "r = a * (1 + Cos(f))" & Chr(13) & Chr(10)
Text1.Text = Text1.Text & "x = r * Cos(f)" & Chr(13) & Chr(10) & "y = r * Sin(f)"
End If
End Sub

Слайд 14

Процедура кнопки Сброс
Private Sub Command3_Click()
Picture1.Cls
Picture1.Line (-10, 0)-(10, 0), QBColor(0)

Picture1.Line (0, 10)-(0, -10), QBColor(0)
Label2.Caption = ""
Text1.Text = ""
End Sub

Слайд 15

Логарифмическая спираль
Параметрические уравнения
a = 0.2
b = 0.15
n = 5
r = a

* Exp(b * f)
x = r * Cos(f)
y = r * Sin(f)
f ∈ [0, 2*pi*n]

Слайд 16

Декартов лист
Параметрические уравнения
a = 4
r = 3 * a *

Cos(f) * Sin(f) / (Cos(f) ^ 3 + Sin(f) ^ 3)
x = r * Cos(f)
y = r * Sin(f)
f ∈ [0, 2*pi]

Слайд 17

Фигура Лиссажу
Параметрические уравнения
r = 5
x = r * Cos(3 * f)
y

= r * Sin(2 * f)
f ∈ [-pi, pi]

Слайд 18

K-лепестковая роза
Параметрические уравнения
При чётных значениях k получается 2*k-лепестковая роза, а

при нечётных значениях – k-лепестковая роза.
r = Sin(k * f)
x = 10 * r * Cos(f)
y = 10 * r * Sin(f)
f ∈ [-pi, pi]

Слайд 19

Эпициклоида
Параметрические уравнения
x = (a + b) * Cos(f) - a *

Cos((a + b) * f / a)
y = (a + b) * Sin(f) - a * Sin((a + b) * f / a)
f ∈ [0, 2*pi]
Значение b вводится с клавиатуры. Значение a примем равным a = b / 3.

Слайд 20

1. Добавьте в проект кнопку Движение (Command4). Реализовать движение объекта (окружности)

по траектории окружности радиуса R.

Параметрические уравнения окружности
x = r * Cos(f)
y = r * Sin(f)
f ∈ [0, 2*pi]

Задания для самостоятельной работы

Слайд 21

Задания для самостоятельной работы
2. Добавьте в проект элемент управления ползунок Slider (Проект

– Компоненты - Microsoft Windows Common Controls6), для регулировки скорости движения окружности, и кнопку Скорость (Command5). Установите свойство ползунка Min=1, Max=20.

Слайд 22

Задания для самостоятельной работы
‘процедура кнопки Скорость
Private Sub Command5_Click()
v= Slider1 .Value
End

Sub
‘переменную v используйте в цикле для задержки рисования
For i = 1 To 100000*v : Next

Построение графиков полярных кривых в Visual Basic

Содержание

Понятие полярной системыПолярный радиус r – отрезок, соединяющий полюс с заданной

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

Построение графиков полярных кривых в Visual BasicЗаданиеСоздать проект в среде Visual

Интерфейс проекта4

Свойства элементов управленияOption1(5)Option1(0)5

Свойства элементов управления6

Описание переменныхDim z, k As Integer, f, pi, a, r, b,

Процедура выбора типа кривойАнализируем значение свойства Value каждого переключателя.Private Sub Option1_Click(Index

Процедура кнопки ПускPrivate Sub Command1_Click() ‘шкала Picture1.Scale (-10, 10)-(10, -10)

КардиоидаПараметрические уравненияr = a * (1 + Cos(f))x = r *

Построение графика кардиоидыIf z = 0 Then a = 4:

Построение графика кардиоиды‘Вывод параметрических уравнений в текстовое поле Text1.Text = Text1.Text

Процедура кнопки СбросPrivate Sub Command3_Click() Picture1.Cls Picture1.Line (-10, 0)-(10, 0), QBColor(0)

Логарифмическая спиральПараметрические уравненияa = 0.2b = 0.15n = 5r = a

Декартов листПараметрические уравнения a = 4r = 3 * a *

Фигура ЛиссажуПараметрические уравненияr = 5x = r * Cos(3 * f)y

K-лепестковая розаПараметрические уравнения При чётных значениях k получается 2*k-лепестковая роза, а

ЭпициклоидаПараметрические уравненияx = (a + b) * Cos(f) - a *