哪位高人提供一个用Fortran语言编写的jacobi点迭代程序?答:INTEGER n,np,nrot,NMAX REAL a(np,np),d(np),v(np,np)PARAMETER (NMAX=500)INTEGER i,ip,iq,j REAL c,g,h,s,sm,t,tau,theta,tresh,b(NMAX),z(NMAX)do 12 ip=1,n do 11 iq=1,n v(ip,iq)=0.11 continue v(ip,ip)=1.12 continue do 13 ip=1,n b(ip)=a(i...