QBASICBOOK.ru: сайт про QB64

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

Циклоидальная кривая – плоская кривая, рисуемая точкой, находящейся на радиальной прямой окружности, катящейся по какой-либо кривой. Название происходит от греческого слова «круглый».

Рассмотрим исходный текст первой программы:

---

1. SCREEN 12
2. RANDOMIZE TIMER
3. CLS
4. RR1 = 150: RR2 = -50: RR3 = 30: K = 0.45: Q = 0.1
5. FOR R1 = RR1 TO 187 STEP 5
6.     FOR R2 = RR2 TO 240 STEP 5
7.         FOR R3 = RR3 TO 240 STEP 5
8.             COL = INT(RND * 15 + 1)
9.             FOR T = 0 TO 600 STEP Q
10.                 X = INT((R1 + R2) * COS(R2 * T / R1) - R3 * COS((R1 + R2) / R1 * T))
11.                 Y = INT((R1 + R2) * SIN(R2 * T / R1) - R3 * SIN((R1 + R2) / R1 * T))
12.                 PSET (X * K + 320, Y * K + 240), COL
13.             NEXT
14.         NEXT
15.         IF INKEY$ = CHR$(27) THEN GOTO M
16.         SLEEP 3
17.         CLS
18.     NEXT
19. NEXT
20. M:
21. END

---

 

Рисунок 1 – Исходный текст для построения циклоиды из первого примера

 

Рисунок 2 – Результат построения циклоиды из первого примера

Здесь R1 – радиус круга, по которому катится колесо, R2 – радиус колеса, катящегося по кругу, если с минусом, то внутри его и R3 – радиус, на котором лежит рисуемая точка на колесе. Т – счетчик цикла, он же полярный угол, на котором лежит центр колеса в данный момент. Q – глубина прорисовки.

Рассмотрим один пример исходного текста второй программы попроще:

---

1. SCREEN 12
2. CLS
3. R1 = 111: R2 = 16: R3 = 131: K = 0.85: Q = 0.01
4. FOR T = 0 TO 600 STEP Q
5.     X = INT((R1 + R2) * COS(R2 * T / R1) - R3 * COS((R1 + R2) / R1 * T))
6.     Y = INT((R1 + R2) * SIN(R2 * T / R1) - R3 * SIN((R1 + R2) / R1 * T))
7.     PSET (X * K + 320, Y * K + 240), 5
8. NEXT
9. END

---

 

Рисунок 3 – Исходный текст для построения циклоиды из второго примера

 

Рисунок 4 – Результат построения циклоиды из второго примера

Здесь R1 – радиус круга, по которому катится колесо, R2 – радиус колеса, катящегося по кругу, если с минусом, то внутри его и R3 – радиус, на котором лежит рисуемая точка на колесе. Т – счетчик цикла, он же полярный угол, на котором лежит центр колеса в данный момент. Q – глубина прорисовки.

Спасибо за прочтение этой статьи.