sali_pharm
Nombre de messages : 16
Age : 35
Localisation : Alger
Domaine d'étude : génie des procédés industriels,Master 1
Date d'inscription : 04/01/2010
 |  Sujet: aidez moi svp  Dim 10 Jan 2010, 23:07 | |
| bonsoir j'ai écris un programme pour trouver la valeur de y a chaque instant t voila le programme programm tp real k,z,y(500),x,Dt,Q,v,t k=0.0004 Q=0.023 v=50 z=0.0045 x=0.003 Dt=0.1 do t=0,45 y(t)=y(t)+((k*(z-(2*y))*(x-y)*Dt)/(v+(Q*t))) enddo if (t.le.45)then t=t+0.1 endif write(*,*)y(t) end sauf que il y a une erreur dans la formule de y mais je ne sais pas c'est quoi au juste  en plus ce programme me donne la dernière valeur c'est tout  merci | |
|
milan
Nombre de messages : 38
Age : 37
Localisation : barrigou
Domaine d'étude : IT
Date d'inscription : 14/09/2009
| | Sujet: Re: aidez moi svp Sam 16 Jan 2010, 01:20 | |
| slm 3alaykom
y est un tableau??
si si oui on peut pas ajouté une valeur a un tableau sauf qu'il se sont tab de la même dimension et en plus donné un valeur intial pour y y(t)=y(t)+((k*(z-(2*y))*(x-y)*Dt)/(v+(Q*t))) | |
|
milan
Nombre de messages : 38
Age : 37
Localisation : barrigou
Domaine d'étude : IT
Date d'inscription : 14/09/2009
| | Sujet: Re: aidez moi svp Dim 12 Sep 2010, 16:14 | |
| slm
bain essai en mettant write dans la boucle | |
|
