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