Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть 

Яндекс.Метрика

Презентация на тему Построение графиков полярных кривых

Содержание

Понятие полярной системыПолярный радиус r – отрезок, соединяющий полюс с заданной точкой А.Полярный угол f - угол между полярной осью и полярным радиусом. В полярной системе любой точке соответствует единственная пара полярных координат А(r, f), где
Построение графиков полярных кривых  в Visual Basic Г.В.Гибадулина, 2012КОГОБУ СПО «Кировский Понятие полярной системыПолярный радиус r – отрезок, соединяющий полюс с заданной точкой Переход от полярной системы координат к декартовой Формулы обратного перехода от декартовых Построение графиков полярных кривых в Visual BasicЗаданиеСоздать проект в среде Visual Basic Интерфейс проекта4 Свойства элементов управленияOption1(5)Option1(0)5 Свойства элементов управления6 Описание переменныхDim z, k As Integer, f, pi, a, r, b, q Процедура выбора типа кривойАнализируем значение свойства Value каждого переключателя.Private Sub Option1_Click(Index As Процедура кнопки ПускPrivate Sub Command1_Click()  ‘шкала Picture1.Scale (-10, 10)-(10, -10) ‘оси КардиоидаПараметрические уравненияr = a * (1 + Cos(f))x = r * Cos(f)y Построение графика кардиоидыIf z = 0 Then   a = 4: Построение графика кардиоиды‘Вывод параметрических уравнений в текстовое поле Text1.Text = Text1.Text & Процедура кнопки СбросPrivate Sub Command3_Click() Picture1.Cls Picture1.Line (-10, 0)-(10, 0), QBColor(0) Picture1.Line Логарифмическая спиральПараметрические уравненияa = 0.2b = 0.15n = 5r = a * Декартов листПараметрические уравнения a = 4r = 3 * a * Cos(f) Фигура ЛиссажуПараметрические уравненияr = 5x = r * Cos(3 * f)y = K-лепестковая розаПараметрические уравнения При чётных значениях k получается 2*k-лепестковая роза, а при ЭпициклоидаПараметрические уравненияx = (a + b) * Cos(f) - a * Cos((a 1. Добавьте в проект кнопку Движение (Command4). Реализовать движение объекта (окружности) по Задания для самостоятельной работы2. Добавьте в проект элемент управления ползунок Slider (Проект Задания для самостоятельной работы‘процедура кнопки СкоростьPrivate Sub Command5_Click()  v= Slider1 .ValueEnd Процедура кнопки ДвижениеОткрыть проект22Private Sub Command4_Click() 'движение pi = 3.1415: r =
Слайды презентации

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

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

полюс с заданной точкой А.

Полярный угол f - угол

между полярной осью и полярным радиусом.

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

1


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

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

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

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

f = arctg(y/x);

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

2


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

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

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

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

3


Слайд 5 Интерфейс проекта
4

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

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

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

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

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

Слайд 8 Описание переменных
Dim z, k As Integer, f, pi,

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

a, r, b, q As Single, i As Long,

x, y As Single

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

7


Слайд 9 Процедура выбора типа кривой
Анализируем значение свойства Value каждого

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

переключателя.

Private Sub Option1_Click(Index As Integer)
‘в переменной z запоминаем индекс

выбранного переключателя
For i = 0 To 5
If Option1(i).Value = True Then z = i
Next
End Sub

8


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

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

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

0), QBColor(0)
Picture1.Line (0, -10)-(0, 10), QBColor(0)
pi = 3.14154

9


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

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

= r * Cos(f)
y = r * Sin(f)
f 

[0, 2*pi]

10


Слайд 12 Построение графика кардиоиды
If z = 0 Then

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


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

11


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

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

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

12


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

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

0)-(10, 0), QBColor(0)
Picture1.Line (0, 10)-(0, -10), QBColor(0)
Label2.Caption

= ""
Text1.Text = ""
End Sub

13


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

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

5
r = a * Exp(b * f)
x = r

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

14


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

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

* a * Cos(f) * Sin(f) / (Cos(f) ^

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

15


Слайд 17 Фигура Лиссажу
Параметрические уравнения
r = 5
x = r *

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

Cos(3 * f)
y = r * Sin(2 * f)
f

 [-pi, pi]

16


Слайд 18 K-лепестковая роза
Параметрические уравнения

При чётных значениях k получается

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

2*k-лепестковая роза, а при нечётных значениях – k-лепестковая роза.

r

= Sin(k * f)
x = 10 * r * Cos(f)
y = 10 * r * Sin(f)
f  [-pi, pi]

17


Слайд 19 Эпициклоида
Параметрические уравнения

x = (a + b) * Cos(f)

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

- 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.

18


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

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

движение объекта (окружности) по траектории окружности радиуса R.
Параметрические

уравнения окружности

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

19

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


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

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

ползунок Slider (Проект – Компоненты - Microsoft Windows Common

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

20


Слайд 22 Задания для самостоятельной работы
‘процедура кнопки Скорость

Private Sub Command5_Click()

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

v= Slider1 .Value
End Sub
‘переменную v используйте в цикле для

задержки рисования
For i = 1 To 100000*v : Next

21


  • Имя файла: postroenie-grafikov-polyarnyh-krivyh.pptx
  • Количество просмотров: 117
  • Количество скачиваний: 0
- Предыдущая джозефгринберг
Следующая - Лев Кассиль