求教个FORTRAN程序嗯,就是计算如下的式子:以下是我编的程序,在I,J均是正数的时候算出来的结果与MATLAB的计算结果吻合,但是当I,J出现负数的时候结果即发散,试了很多种写法,都有类似的问题,
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/09 22:42:14
![求教个FORTRAN程序嗯,就是计算如下的式子:以下是我编的程序,在I,J均是正数的时候算出来的结果与MATLAB的计算结果吻合,但是当I,J出现负数的时候结果即发散,试了很多种写法,都有类似的问题,](/uploads/image/z/9622110-30-0.jpg?t=%E6%B1%82%E6%95%99%E4%B8%AAFORTRAN%E7%A8%8B%E5%BA%8F%E5%97%AF%2C%E5%B0%B1%E6%98%AF%E8%AE%A1%E7%AE%97%E5%A6%82%E4%B8%8B%E7%9A%84%E5%BC%8F%E5%AD%90%EF%BC%9A%E4%BB%A5%E4%B8%8B%E6%98%AF%E6%88%91%E7%BC%96%E7%9A%84%E7%A8%8B%E5%BA%8F%2C%E5%9C%A8I%2CJ%E5%9D%87%E6%98%AF%E6%AD%A3%E6%95%B0%E7%9A%84%E6%97%B6%E5%80%99%E7%AE%97%E5%87%BA%E6%9D%A5%E7%9A%84%E7%BB%93%E6%9E%9C%E4%B8%8EMATLAB%E7%9A%84%E8%AE%A1%E7%AE%97%E7%BB%93%E6%9E%9C%E5%90%BB%E5%90%88%2C%E4%BD%86%E6%98%AF%E5%BD%93I%2CJ%E5%87%BA%E7%8E%B0%E8%B4%9F%E6%95%B0%E7%9A%84%E6%97%B6%E5%80%99%E7%BB%93%E6%9E%9C%E5%8D%B3%E5%8F%91%E6%95%A3%2C%E8%AF%95%E4%BA%86%E5%BE%88%E5%A4%9A%E7%A7%8D%E5%86%99%E6%B3%95%2C%E9%83%BD%E6%9C%89%E7%B1%BB%E4%BC%BC%E7%9A%84%E9%97%AE%E9%A2%98%2C)
求教个FORTRAN程序嗯,就是计算如下的式子:以下是我编的程序,在I,J均是正数的时候算出来的结果与MATLAB的计算结果吻合,但是当I,J出现负数的时候结果即发散,试了很多种写法,都有类似的问题,
求教个FORTRAN程序
嗯,就是计算如下的式子:
以下是我编的程序,在I,J均是正数的时候算出来的结果与MATLAB的计算结果吻合,但是当I,J出现负数的时候结果即发散,试了很多种写法,都有类似的问题,所以来求教.
DOUBLE PRECISION FUNCTION JSC(I,J)
\x05COMMON /COEF/ PI
\x05DOUBLE PRECISION PI
\x05DOUBLE PRECISION K
IF(I.NE.0)THEN
\x05 IF(I.NE.J)THEN
\x05 IF(I.NE.-J)THEN
K=(1.0D0-(-1.0D0)**(I+J))/(I+J)+(1.0D0-(-1.0D0)**(I-J))/(I-J)
\x05 ELSE
\x05 K=0.0D0
\x05 ENDIF
\x05ELSE
\x05K=0.0D0
\x05ENDIF
\x05ELSE
\x05K=0.0D0
\x05ENDIF
\x05JSC=K/2.0D0/PI
RETURN
END
求教个FORTRAN程序嗯,就是计算如下的式子:以下是我编的程序,在I,J均是正数的时候算出来的结果与MATLAB的计算结果吻合,但是当I,J出现负数的时候结果即发散,试了很多种写法,都有类似的问题,
请告知,
你的 I ,J 在什么情况下,出现什么错误?你预期的结果是什么?
在什么情况下,是符合你预期的计算的?
发散,这个词一般用于迭代过程.你这样简单的计算结果,要么是正确的,要么是不符合你的预期的,要么是 NaN,要么是 Infinity.
我不知道你说的发散是指什么?