Программирование циклов - Пример 3

Пример 3. Построить график функции: улитку Паскаля.

Улитка Паскаля задается следующим образом:

x=A*cos(t)+B*cos(t)

y=A*cos(t)sin(t)+B*sin(t), A>B, B>0, 0<=t<2*Pi

Решение.

1. Подготовить данные в электронной таблице

2. Ввести код программы.

Sub улитка_паскаля()

Dim a, b, Pi, t As Double

Dim i As Integer

a = Cells(1, 2)

b = Cells(2, 2)

Pi = 3.14

i = 2

t = 0

While t <= 2 * Pi

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

y = a * Cos(t) * Sin(t) + b * Sin(t)

Cells(3, i).Value = x

Cells(4, i).Value = y

t = t + 0.1

i = i + 1

Wend

End Sub

3. Построить график с помощью мастера диаграмм, выбрав точечную диаграмму.

4. Изменить данные a и b.

A=2

B=1

5. Перезапустить макрос.