From: Rainer Joswig
Subject: Re: need help with this
Date:
Message-ID: <rainer.joswig-6E2A67.13084220022000@news.is-europe.net>
In article <·················@rocketmail.com>, munir
<·········@rocketmail.com> wrote:
> (defun line (x1 y1 x2 y2 z1 v1 z2 v2)
>
> ;(if (zerop (- x1 x2)) (
> (setf b 1)
> (setf a (/ (* (* -1 b) (- y1 y2)) (- x1 x2)))
>
> (setf b (/ (* (* -1 a) (- x1 x2)) (- y1 y2)))
>
> (setf c (- (* -1 (* a x1)) (* b y1)))
> (format t"~% a1 is:~a." a)
> (format t"~% b1 is:~a." b)
> (format t"~% c1 is:~a." c)
> ; )
> ;(if (zerop (- z1 z2)) (
> (setf b2 1)
> (setf a2 (/ (* (* -1 b2) (- v1 v2)) (- z1 z2)))
>
> ;(setf b2 (/ (* (* -1 a) (- x1 x2)) (- y1 y2))) (setf
> c2 (- (* -1 (* a2 z1)) (* b2 v1)))
> (format t"~% a2 is:~a." a2)
> (format t"~% b2 is:~a." b2)
> (format t"~% c2 is:~a." c2)
>
> (setf aside (+(* -1 a2) a))
> (setf cside (+(* -1 c) c2))
> (if (not (zerop aside)) (
> (setf x (/ cside aside))
> (setf y (+ (* x a) c))
>
> (format t"~% cross point X is:~a." x)
> (format t"~% cross point Y is:~a." y))
> (format t"~%Divition by zero Choose another points thank you."))
> )
>
Hey, this is really a weird message, congratulations. ;-)
Rainer Joswig, ISION Internet AG, Harburger Schlossstrasse 1,
21079 Hamburg, Germany, Tel: +49 40 77175 226
Email: ·············@ision.de , WWW: http://www.ision.de/