je mal connait le fortran
j'ai rédigé un code source de l’équation de propagation de la chaleur
mais il reste des erreurs de compilation
SVP je besoin de votre aide pour corriger
merci beaucoup
le voici
program equation de la chaleur
implicit none
parameter m, n, mmax=10, nmax=18
real : alpha, detax, deltat
common /temper/t(mmax,nmax)
m=11
n=18
alpha=4.d-6
deltax=1.d-2
deltat=1.d0
r=alpha*deltat/(detax)**2
do j=1,1
do i=1,m
t(i,j)=300
end do
end do
do j=2,n
do i=1,1
t(i,j)=350
end do
end do
do j=2,n
do i=m,m
t(i,j)=440
end do
end do
!methode explicite de resolution
do j=1,n
do i=2,m-1
t(i,j+1)=r*t(i-1,j)+(1-2*r)*t(i,j)+r*t(i+1,j)
end do
end do
do j=1,n
write(12,10)j, (t(i,j),i=1,m)
end do
stop
end program equation de la chaleur
Partager