Фигура Лиссажу

@Asterl · Регистрация: 23.04.2015

Author24 — интернет-сервис помощи студентам

Построить фигуру Лиссажу, имея на вход две переменные a, b. Сделать, чтобы шарик(тело) двигался по траектории данной фигуры. Проблема с шариком. Может кто-нибудь помочь?

QBasic/QuickBASIC

INPUT "a = "; a
INPUT "b = "; b
 
CLS
SCREEN 9
VIEW (10, 10)-(300, 300), , 8
WINDOW (-10, 10)-(10, -10)
 
ax = .001
by = 90
n = 180
WHILE n > 45
    FOR X = -10 TO 10
        LINE (X, -10)-(X, 10), 7
        LINE (-10, X)-(10, X), 7
    NEXT X
    LINE (-10, 0)-(10, 0), 7
    LINE (0, -10)-(0, 10), 7
    IF n <> 180 THEN
        PSET (L, M), 2
    END IF
    ax = ax + .001
    by = by - .0001
    d = ((n - 1) / n * 180 / 2)
    X = a * SIN(ax + d)
    Y = b * SIN(by)
    PSET (X, Y), 2
    PSET (X, Y), 12
    n = n - .001
    L = X
    M = Y
WEND

Добавлено через 17 часов 20 минут
Изменится ли ситуация, если создать массив со всеми координатами точек, по которым строится фигура Лиссажу и сделать так, чтобы шарик двигался по этим координатам?

@Quiet Snow · 25.04.2015, 05:11

Разберитесь, что есть фигура Лиссажу. А потом уже беритесь за код.
Ваш код без комментов, если думаете, что в этой каше будет кто-то рыться и искать в википедиях
определения и формализацию - то сильно ошибаетесь.
Код я запустил, минут 5 рисовало одну завитушку. Выхода не предусмотрено.
Что означают a и b сам "лоссось" только знает.
С нормальной схемой и формулами эта прога пишется за пол часа.

@Quiet Snow 5001 / 1673 / 409 Регистрация: 25.04.2010 Сообщений: 4,623 Записей в блоге: 2
	25.04.2015, 05:11	2
	Разберитесь, что есть фигура Лиссажу. А потом уже беритесь за код. Ваш код без комментов, если думаете, что в этой каше будет кто-то рыться и искать в википедиях определения и формализацию - то сильно ошибаетесь. Код я запустил, минут 5 рисовало одну завитушку. Выхода не предусмотрено. Что означают a и b сам "лоссось" только знает. С нормальной схемой и формулами эта прога пишется за пол часа. 0