C DYCHAM SOURCE BP208322 19/02/25 21:15:46 10120 IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) *--------------------------------------------------------------------* * * * Operateur DYNE : algorithme de Fu - de Vogelaere * * ________________________________________________ * * * * Calcul de la force de choc pour un choc elementaire. * * * * Parametres: * * * * e XDEP Valeur du d{placement. * * e XVIT Valeur de la vitesse. * * e XRAID Valeur de la raideur. * * e XJEU Valeur du jeu. * * e XAMO Valeur de l'amortissement. * * e IPERM =2 si liaison permanente * * s XFL Valeur de la force de choc. * * * * * * Auteur, date de cr{ation: * * * * Lionel VIVAN, le 21 aout 1989. * * * *--------------------------------------------------------------------* XFL = 0.D0 * IF (IPERM.EQ.2) THEN cbp IF (iannul.EQ.0) THEN XVAL = XDEP - XJEU XFL = - XRAID * XVAL - XAMO * XVIT cbp ENDIF ELSE IF ((XDEP.GE.XJEU).AND.(iannul.EQ.0)) THEN XVAL = XDEP - XJEU XFL = - XRAID * XVAL - XAMO * XVIT IF ( XFL.GT.0.D0) XFL = 0.D0 ENDIF ENDIF * * END
© Cast3M 2003 - Tous droits réservés.
Mentions légales