Реферат: Разработка программы для построения кривых Серпинского i-го порядка
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
- 512Kb RAM
- 5 Kb свободного пространства на жестком диске