Програмування на visual basic побудова спіралі Архімеда

Нехай (CenterX. CenterY) - координати центру кола, R - радіус кола, a - кут повороту радіуса.
Тоді координати (x. Y) будь-якої точки, що знаходиться на колі, обчислюються за формулами:

x = CenterX + R * cos (a)
y = CenterY + R * sin (a)

Для побудови спіралі нам потрібно, щоб кут a і радіус R змінювалися з невеликим кроком. Для кожного значення a і R обчислюємо x і y і малюємо точку (вірніше, еліпс) в координатах (x. Y)

По клавіші F7 переходимо у вікно коду програми. Побудова спіралі Архімеда будемо виконувати в процедурі Form1_Paint. Щоб додати цю процедуру в код програми, для Подій Form1 вибираємо подія Paint:

І реалізуємо все те, що ми тільки що обговорили

Можете прямо блоком скопіювати цю програму у вікно коду, і все буде чудово працювати.

Спробуйте тепер змінити приріст a і r. наприклад ось так:

Цікава вийде картинка:

А тепер введемо масив, в який запишемо декілька кистей (штук 5). При малюванні еліпсів будемо ці кисті використовувати по черзі.
Якщо в масиві 5 елементів, то індекс масиву може змінюватися від 0 до 4; треба перевіряти, щоб індекс не вийшов за межі масиву.

Спробуйте зробити a - = 0.01 - ще краще буде

Спіраль Архімеда - не єдиний вид спіралі. Знайдіть у Вікіпедії статтю "евольвент колу" і прочитайте її внімательненько. Все зрозуміло? Ваші дідусі креслили евольвенти вручну, олівцем; як правило, це було потрібно при виконанні курсових робіт. А ми маємо чудову можливість написати програму в кілька рядків, - і евольвента готова.

Можна підібрати r і a так, що евольвента практично співпаде зі спіраллю Архімеда, як на наступній картинці. Спіраль Архімеда тут кольорова, а евольвента - чорна.