Povratak

 

;------------- POČETAK - PODNAPUTBINA ZA PRESJEK DVA PRAVCA S DVIE TOČKE U RAVNINI----------------------------------------------

;Ova radnja je storena uz Božju pomoć

;Ova radnja radi presjek u ravnini između dva pravca od kojih jedan prolazi točkama t1 i t2 a drugi točkama t3 i t4.

;izhod radnje je točka kano presjek dva pravca u ravnini.

(defun presjek_dva_pravca_u_ravnini (t1 t2 t3 t4 / y1 y2 y3 y4 x1 x2 x3 x4) ;t1 i t2 su točke jednog pravca, a t3 i t4 drugog pravca

  (setq y1 (nth 0 t1)) (setq y2 (nth 0 t2)) (setq y3 (nth 0 t3)) (setq y4 (nth 0 t4))

  (setq x1 (nth 1 t1)) (setq x2 (nth 1 t2)) (setq x3 (nth 1 t3)) (setq x4 (nth 1 t4))

  (if (and (/= (- x2 x1) 0) (/= (- x4 x3) 0)) (progn

    (setq xx (/ (- y3 y1 (* x3 (/ (- y4 y3) (- x4 x3))) (* x1 (/ (- y1 y2) (- x2 x1)))) (- (/ (- y2 y1) (- x2 x1)) (/ (- y4 y3) (- x4 x3)))))

    (setq yy (+ y1 (* (/ (- y2 y1) (- x2 x1)) (- xx x1))))

  ))

  (if (= (- x2 x1) 0) (progn  (setq xx x1)   (setq yy (+ y3 (* (/ (- y4 y3) (- x4 x3)) (- xx x3))))  ))

  (if (= (- x4 x3) 0) (progn  (setq xx x3)   (setq yy (+ y1 (* (/ (- y2 y1) (- x2 x1)) (- xx x1))))  ))

  (list yy xx 0)

) ;kraj defun podnaputbine

;------------- KRAJ - PODNAPUTBINA ZA PRESJEK DVA PRAVCA S DVIE TOČKE U RAVNINI----------------------------------------------

Free Web Hosting