Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата



defun SierpinskiCurve ( Count )

( InitGraph ) ;Установка графического режима

( setq h ( div *SquareSize* 4 ) ) ;Вычисление длины линии

( setq x0 ( div *MaxX* 2 ) ) ;Вычисление начальной точки

( setq y0 ( + ( div *MaxY* 2 ) h ) ) ;для рисования

( ;Основной цикл

do (( i 1 )) ;Инициализация счетчика

(( eql i ( + Count 1 ) ) 'Done ) ;Условие завершения

( setq x0 ( - x0 h ) ) ;Вычисление координат начальной

( setq h ( div h 2 ) ) ;точки для рисования и

( setq y0 ( + y0 h ) ) ;единичной длины линии

( setq Px x0 Py y0 ) ;Установка пера

( color i ) ;Установка цвета для рисования

( A i ) ( Line 1 h ) ;Рисование

( B i ) ( Line 3 h )

( C i ) ( Line 5 h )

( D i ) ( Line 7 h )

( pause 1.0 ) ;Задержка

( setq i ( + i 1 )) ;Инкримент счетчика

) ;Конец основного цикла

)

( print Try (SierpinskiCurve 4) ) ;Подсказка

Руководство пользователя Требования к системе: x86 персональный компьютер (386 минимум; 486, Pentium, или Pentium Pro рекомендуется) Microsoft DOS 3.30 или выше Microsoft Windows 3.1, Microsoft Windows for Workgroups, Microsoft Windows 95, Microsoft Windows NT 3.51 или 4.0 512 Kb RAM 5 Kb свободного пространства на жестком диске Установленный интерпретатор XLisp версии 2.1 или выше

Для запуска программы необходимо:

Включить компьютер Загрузить интерпретатор XLisp c параметром “Sierpins.lsp”: C:XLISPXLISP.EXE SIERPINS.LSPÃ В ответ на приглашение XLisp ввести: (SierpinskiCurve 4)Ã Тест программы

Тест проводился на рабочей станции со следующей конфигурацией:

Pentium 166 32 Mb RAM SyncMaster 17Glsi S3 Trio64V+ Windows 95 Интерпретатор XLisp был запущен в окне MS-DOS.

Программа тестировалась при значениях параметра Count от 1 до 4. В результате тестов были получены следующие изображения на экране монитора:

Рекомендуем скачать другие рефераты по теме: оформление доклада титульный лист, рефераты.

Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата