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:

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
.....
Toutefois, si je veux imposer le chargement réel comme en expérimental (figure 2) je ne sais pas comment le faire.
Merci d'avance
Pouvez vous m'aider svp?Pièce jointe 203472Pièce jointe 203473Pièce jointe 203472Pièce jointe 203473