Важная информация
Показано с 1 по 4 из 4

Тема: Координатная сетка, синусоида, касательная к ней и асимптота

  1. #1 Координатная сетка, синусоида, касательная к ней и асимптота 
    Новичок
    Регистрация
    26.05.2011
    Сообщений
    2
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    надо нарисовать координатную сетку, синусоиду, касательную к ней и асимптоту...
    желательно все с разъяснениями
    очень надо помогите пожалуйста вопрос жизни и смерти
    Ответить с цитированием  
     

  2. #2  
    Новичок
    Регистрация
    26.05.2011
    Сообщений
    2
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    SCREEN 12
    x0 = 320
    y0 = 240
    a = 50
    FOR t = -8 TO 8 STEP .05
    FOR u = -6 TO 6 STEP .5
    x = x0 + t * a
    y = y0 + u * a
    PSET (x, y)
    NEXT u, t
    FOR t = -8 TO 8 STEP .5
    FOR u = -6 TO 6 STEP .05
    x = x0 + t * a
    y = y0 + u * a
    PSET (x, y)
    NEXT u, t
    CIRCLE (x0, y0), 3, 3
    PAINT (x0, y0), 3, 3
    a = 100
    FOR t = -11 TO 11 STEP .01
    u = SIN(t)
    x = x0 + t * a
    y = y0 - u * a

    CIRCLE (x, y), 1
    NEXT t

    вот программу написала, на подобии примеров, но особо ничего не поняла, особенно начиная с синусоиды(((((((
    Ответить с цитированием  
     

  3. #3  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    А вот попробуйте посмотреть с моим патентованным замедлителем! Только надо обладать хорошим терпением!
    Код :
    SCREEN 12
    x0 = 320
    y0 = 240
    a = 50
    FOR t = -8 TO 8 STEP .05
        FOR u = -6 TO 6 STEP .5
            x = x0 + t * a
            y = y0 + u * a
            PSET (x, y)
            T1! = TIMER
            WHILE TIMER - T1! < 0.0001
            WEND
        NEXT u
    NEXT t
    FOR t = -8 TO 8 STEP .5
        FOR u = -6 TO 6 STEP .05
            x = x0 + t * a
            y = y0 + u * a
            PSET (x, y)
            T1! = TIMER
            WHILE TIMER - T1! < 0.001
            WEND
        NEXT u
    NEXT t
    CIRCLE (x0, y0), 3, 3
    PAINT (x0, y0), 3, 3
    a = 100
    FOR t = -11 TO 11 STEP .01
        u = SIN(t)
        x = x0 + t * a
        y = y0 - u * a
     
        CIRCLE (x, y), 1
        T1! = TIMER
        WHILE TIMER - T1! < 0.001
        WEND
    NEXT t
    Да! я переоформил окончания циклов, они так лучше читаются.
    Ответить с цитированием  
     

  4. #4  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Не знаю актуально, ли данное задание? Я немного модифицировал программу и теперь она выглядит как положено.
    Код :
    SCREEN 12
    x0 = 320
    y0 = 240
    a = 1
    b = 200
    FOR t = -x0 TO x0 STEP 3
        FOR u = -y0 TO y0 STEP 20
            x = x0 + t * a
            y = y0 + u * a
            PSET (x, y)
        NEXT u
    NEXT t
    FOR t = -x0 TO x0 STEP 20
        FOR u = -y0 TO y0 STEP 3
            x = x0 + t * a
            y = y0 + u * a
            PSET (x, y)
        NEXT u
    NEXT t
    CIRCLE (x0, y0), 3, 3
    PAINT (x0, y0), 3, 3
    FOR t = -x0 TO x0 STEP 2
        u = SIN(t / 101.8591)
        x = x0 + t * a
        y = y0 - u * a * b
     
        CIRCLE (x, y), 1
        T1! = TIMER
        WHILE TIMER - T1! < 0.01
        WEND
    NEXT t
    Итак SCREEN 12 устанавливаем графический экран разрешением 640х480, далее x0,y0 сдвиг начала координат относительно экрана. Далее "а" (и я добавил еще "b") это масштаб представления, "а" для сетки, "b" для вертикального масштаба синусойды. Далее идет 2 вложенных цикла для отрисовки горизонтальных линий сетки, после чего два вложенных цикла для отрисовки вертикальных линий сетки (я бы для скорости нарисовал их просто прямыми, но конечно так красивше!). После этого в начале координат рисуется окружность и заливается полностью цветом. после всего последний цикл рисования синусойды. Синусойда рисуется маленькими окружностями. Если что непонятно спрашивайте...
    Последний раз редактировалось Dimon012; 27.05.2011 в 10:04.
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •