1 : C LISPPA SOURCE CHAT 05/01/13 01:23:16 5004 2 : SUBROUTINE LISPPA(QSI,W,SIGY,GA,GB,A,B,C,D,E,F) 3 : C======================================================================= 4 : C CALCULE DES PARAMETRES POUR LA PLASTICITE DU LINESPRING 5 : C ENTREES 6 : C QSI = RAPPORT PROFONDEUR DE FISSURE SUR EPAISSEUR 7 : C W = EPAISSEUR DE LA COQUE 8 : C SIGY = CONTRAINTE ULTIME 9 : C SORTIES 10 : C GA,GB = PARAMETRES POUR CALCULER LE CRITERE 11 : C A,B,C,D,E,F = PARAMETRES POUR CALCULER LA DERIVE DU CRITERE 12 : C 13 : C EBERSOLT AVRIL 86 14 : C======================================================================= 15 : IMPLICIT INTEGER(I-N) 16 : IMPLICIT REAL*8(A-H,O-Z) 17 : PARAMETER(UNDEMI= .5D0,TRDEMI=1.5D0,DEUX=2.D0,UN=1.D0) 18 : PARAMETER(QUATRE=4.D0) 19 : C 20 : C CALCUL D UN CERTAIN NOMBRE DE PARAMETRES 21 : C 22 : GA= TRDEMI*QSI - QSI*QSI 23 : GB= UNDEMI*QSI - QSI*QSI 24 : XX= UN / (SIGY * W ) 25 : YY= QUATRE / (SIGY * W * W ) 26 : C 27 : A = (DEUX/(UN-GA) + DEUX/(UN+GB))*XX*XX 28 : B = (DEUX/(UN-GA) - DEUX/(UN+GB))*XX*YY 29 : C = (DEUX/(UN-GA) - DEUX/(UN+GB))*XX*YY 30 : D = (DEUX/(UN-GA) + DEUX/(UN+GB))*YY*YY 31 : E = (DEUX*GA/(UN-GA) - DEUX*GB/(UN+GB))*XX 32 : F = (DEUX*GA/(UN-GA) + DEUX*GB/(UN+GB))*YY 33 : C 34 : RETURN 35 : END 36 :
© Cast3M 2003 - All rights reserved.
Disclaimer