Bonjour,
je travaille sur la simulation d'un essai de traction sous déformation imposée c.à.d j'impose un cycle triangulaire (charge-décharge) de déformation en fonction du temps (figure 1). Pour ce cycle j'ai pas trouvé un problème avec fortran de le programmer; je le programme de la façon suivante:
Toutefois, si je veux imposer le chargement réel comme en expérimental (figure 2) je ne sais pas comment le faire.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 PARAMETER (pente=1.34d-04,periode=1044.35d0,temp1=522.175d0) ... DO WHILE (temp.LE.periode) ! DEBUT BOUCLE TEMPS IF (temp.LE.temp1) THEN pendefo=pente ELSE IF (temp.GT.temp1) THEN pendefo=-pente END IF c Déformation totale IMPOSEE 'depstot' depstot=pendefo*deltat .....
Merci d'avance
Pouvez vous m'aider svp?Pièce jointe 203472Pièce jointe 203473Pièce jointe 203472Pièce jointe 203473
Partager