Curvas e Superfícies Paramétricas em Scheme

"Primeiro os procedimentos básicos, construtor de vetor, adição, multiplicação por escalar e produtos (interno, vetorial, misto)."
(define (vetor x y z) (list x y z))
(define (getx v) (car v))
(define (gety v) (cadr v))
(define (getz v) (caddr v))
(define (addvec u v) (vetor (+ (getx u) (getx v)) (+ (gety u) (gety v)) (+ (getz u) (getz v))))
(define (scalevec t v) (vetor (* t (getx v)) (* t (gety v)) (* t (getz v))))
(define (dotvec u v) (+ (* (getx u) (getx v)) (* (gety u) (gety v)) (* (getz u) (getz v))))



"Uma reta é unidimensional e portanto parametrizada por um único parâmetro, neste caso t. AP=t*v ou P-A=t*v ou P=A+t*v."
(define (reta A v) (lambda (t) (addvec A (scalevec t v))))





"Em construção..."