SlideServe
Menu
Préférences
© SlideServe · v2026

do j=0,jmax-1 x=dx*j psi(j)=(ar/(dsqrt(sigma)*sspi))*

shaw avatar
5 diapositives · 231 Views · Sep 06, 2014

Set the problem up, initialize wave function, Q matrix. do j=0,jmax-1 x=dx*j psi(j)=(ar/(dsqrt(sigma)*sspi))* * dexp(-(x-x0)**2/(2.0d0*sigma**2))* * (ar*dcos(k0*x)+ai*dsin(k0*x)) write(6,100) x,real(psi(j)),imag(psi(j)) enddo

do j=0,jmax-1 x=dx*j psi(j)=(ar/(dsqrt(sigma)*sspi))* - slide 1
01 / 5do j=0,jmax-1 x=dx*j psi(j)=(ar/(dsqrt(sigma)*sspi))*
1 / 17

Télécharger la présentation

do j=0,jmax-1 x=dx*j psi(j)=(ar/(dsqrt(sigma)*sspi))*
Une image / un lien ci-dessous est fourni (tel quel) pour télécharger la présentation

Politique de téléchargement : le contenu du site vous est fourni TEL QUEL pour votre information et votre usage personnel ; il ne peut être vendu, concédé sous licence ni partagé sur d’autres sites sans l’accord de son auteur.Le contenu vous est fourni TEL QUEL, pour votre information et votre usage personnel uniquement. Téléchargez la présentation en cliquant sur ce lien. Lors du téléchargement, si vous ne parvenez pas à télécharger une présentation, l’éditeur a peut-être supprimé le fichier de son serveur.Pendant le téléchargement, si vous ne parvenez pas à obtenir une présentation, le fichier a peut-être été supprimé par l’éditeur.

F I N

Plus de contenu associé

Transcription de la présentation
  1. Set the problem up, initialize wave function, Q matrix do j=0,jmax-1 x=dx*j psi(j)=(ar/(dsqrt(sigma)*sspi))* * dexp(-(x-x0)**2/(2.0d0*sigma**2))* * (ar*dcos(k0*x)+ai*dsin(k0*x)) write(6,100) x,real(psi(j)),imag(psi(j)) enddo do j=0,jmax-1 a(j)=-ai*alpha/8.0d0 b(j)=ar*0.5d0+ai*alpha/4.0d0 c(j)=-ai*alpha/8.0d0 enddo a(0)=0.0d0 ; c(0)=0.0d0

  2. Then integrate in time, output wave function at end do nt=1,ntmax call tridag(a,b,c,psi,chi,jmax) psi=chi-psi enddo do j=0,jmax-1 x=dx*j write(6,100) x,real(psi(j)),imag(psi(j)) enddo 100 format(f8.4,2f12.6) stop end