57 lines
1.9 KiB
Common Lisp
Executable file
57 lines
1.9 KiB
Common Lisp
Executable file
#blocage mouvement solide
|
|
N_SO_arriere UY
|
|
N_SO UX
|
|
N_S UX
|
|
N_SE UX
|
|
N_arriere UZ
|
|
|
|
N_dpiUX 'UX= 4.'
|
|
|
|
condition_limite_lineaire_
|
|
|
|
#--- delacement identique en x
|
|
N_O enu= UX
|
|
refs_associe= N_E fin_list_refs_associe_
|
|
val_condi_lineaire= 0. coefficients= 1. 0. 0. -1. 0. 0. fin_list_coefficients_
|
|
|
|
#--- delacement identique en y
|
|
N_NO enu= UX
|
|
refs_associe= N_SO fin_list_refs_associe_
|
|
val_condi_lineaire= 0. coefficients= 0. 1. 0. 0. -1. 0. fin_list_coefficients_
|
|
|
|
N_N enu= UX
|
|
refs_associe= N_S fin_list_refs_associe_
|
|
val_condi_lineaire= 0. coefficients= 0. 1. 0. 0. -1. 0. fin_list_coefficients_
|
|
|
|
N_NE enu= UX
|
|
refs_associe= N_SE fin_list_refs_associe_
|
|
val_condi_lineaire= 0. coefficients= 0. 1. 0. 0. -1. 0. fin_list_coefficients_
|
|
|
|
N_SE enu= UX
|
|
refs_associe= N_SO fin_list_refs_associe_
|
|
val_condi_lineaire= 0. coefficients= 0. 1. 0. 0. -1. 0. fin_list_coefficients_
|
|
|
|
N_O enu= UX
|
|
refs_associe= N_E fin_list_refs_associe_
|
|
val_condi_lineaire= 0. coefficients= 0. 1. 0. 0. -1. 0. fin_list_coefficients_
|
|
|
|
#--- delacement identique en z
|
|
N_N_avant enu= UX
|
|
refs_associe= N_S_avant fin_list_refs_associe_
|
|
val_condi_lineaire= 0. coefficients= 0. 0. 1. 0. 0. -1. fin_list_coefficients_
|
|
|
|
N_NE_avant enu= UX
|
|
refs_associe= N_SE_avant fin_list_refs_associe_
|
|
val_condi_lineaire= 0. coefficients= 0. 0. 1. 0. 0. -1. fin_list_coefficients_
|
|
|
|
N_NO_avant enu= UX
|
|
refs_associe= N_SO_avant fin_list_refs_associe_
|
|
val_condi_lineaire= 0. coefficients= 0. 0. 1. 0. 0. -1. fin_list_coefficients_
|
|
|
|
N_O_avant enu= UX
|
|
refs_associe= N_E_avant fin_list_refs_associe_
|
|
val_condi_lineaire= 0. coefficients= 0. 0. 1. 0. 0. -1. fin_list_coefficients_
|
|
|
|
N_SE_avant enu= UX
|
|
refs_associe= N_SO_avant fin_list_refs_associe_
|
|
val_condi_lineaire= 0. coefficients= 0. 0. 1. 0. 0. -1. fin_list_coefficients_
|