Разработка программы на языке LISP для построения кривых Серпинского i-го порядка
| Категория реферата: Рефераты по математике
| Теги реферата: сообщение, скачать реферат бесплатно на тему
| Добавил(а) на сайт: Jakubovich.
Предыдущая страница реферата | 1 2 3 4 5 6 7 | Следующая страница реферата
( cond ( ( > k 0 )
( C ( - k 1 ) ) ( Line 5 h )
( D ( - k 1 ) ) ( Line 4 ( * 2 h ) )
( B ( - k 1 ) ) ( Line 3 h )
( C ( - k 1 ) )
) )
)
( defun D ( k )
( cond ( ( > k 0 )
( D ( - k 1 ) ) ( Line 7 h )
( A ( - k 1 ) ) ( Line 6 ( * 2 h ) )
( C ( - k 1 ) ) ( Line 5 h )
( D ( - k 1 ) )
) )
)
;;
;; Главная процедура
;; Параметры: - количество итераций
;;
( 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 ) ;Установка цвета для рисования
Рекомендуем скачать другие рефераты по теме: сочинение евгений онегин, сочинение 6.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 6 7 | Следующая страница реферата
Главная