;************************************************************************
;* [CMFAO] AME 6602 ACQUISITION DES DONNÉES SPATIALES
*
;* [GRCAO] Claude Parisel
*
;* Mars 1999
*
;************************************************************************
; GET-DEFORM
; saisie de déformation de la direction des axes OX,OY,OZ
;------------------------------------------------------------------------
; Retour:Matrice de déformation
;------------------------------------------------------------------------
(defun get-deform ( / b c d f h i)
(print "déformation en X: ")
(setq b (getreal "\nMultiplicateur en Y "))
(setq c (getreal "\nMultiplicateur en Z "))
(print "déformation en Y: ")
(setq d (getreal "\nMultiplicateur en X "))
(setq f (getreal "\nMultiplicateur en Z "))
(print "déformation en Z: ")
(setq h (getreal "\nMultiplicateur en X "))
(setq i (getreal "\nMultiplicateur en Y "))
(make-deform b c d f h i)
)
;------------------------------------------------------------------------
;
Exemple:
; Command: (get-deform)
; "déformation
en X: "
; Multiplicateur
en Y 1.2
;
Multiplicateur en Z 1.4
;
"déformation en Y: "
; Multiplicateur
en X 1.5
;
Multiplicateur en Z 0.8
;
"déformation en Z: "
; Multiplicateur
en X 0.5
;
Multiplicateur en Y 0.6
;
((1.0 1.2 1.4 0.0) (1.5 1.0 0.8 0.0) (0.5 0.6 1.0 0.0) (0.0 0.0 0.0
1.0))
;------------------------------------------------------------------------
|