求教个FORTRAN程序嗯,就是计算如下的式子:以下是我编的程序,在I,J均是正数的时候算出来的结果与MATLAB的计算结果吻合,但是当I,J出现负数的时候结果即发散,试了很多种写法,都有类似的问题,

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/09 05:40:08
求教个FORTRAN程序嗯,就是计算如下的式子:以下是我编的程序,在I,J均是正数的时候算出来的结果与MATLAB的计算结果吻合,但是当I,J出现负数的时候结果即发散,试了很多种写法,都有类似的问题,

求教个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.
我不知道你说的发散是指什么?

求教个FORTRAN程序嗯,就是计算如下的式子:以下是我编的程序,在I,J均是正数的时候算出来的结果与MATLAB的计算结果吻合,但是当I,J出现负数的时候结果即发散,试了很多种写法,都有类似的问题, 求fortran大神帮我编一个Fortran程序计算无理数π的1-100的小数位, 求相关系数fortran程序~求相关系数的fortran程序~. fortran程序求矩阵特征值, 龙贝格积分公式的Fortran程序代码用龙贝格求积算法计算下面的积分 只要有详细的过程和计算结果 不要Fortran程序也行 谢谢各位了 Fortran程序中,如何对一列数据每3000个为一组求平均? 使用fortran,编写程序将200个整数按照从小到大的顺序排列 fortran语言怎么转成matlab语言,程序不大 是计算l理想导体散射的 对于fortran的解读能力不够 希望能帮帮忙 fortran语言 转成matlab,程序不大 是计算l理想导体散射的 对于fortran的解读能力不够 希望能帮帮忙 fortran会的进,fortran计算器程序怎么写?我想做一个fortran计算器,就是键盘输入a和b两个数,然后回车,就输出a+b 的结果, fortran 如何减少重复计算 Microsoft Fortran 中均匀随机数发生器子程序 RANDOM 产生10000个 0-1 之间的随机数Microsoft Fortran 中 均匀随机数发生器子程序 RANDOM 产生10000个 0-1 之间的随机数 还有就是Microsoft Fortran 中产生的随机 求教 fortran 高手! 怎么用fortran语言编写程序 用来构建一个三维网格我需要对一个平板进传热分析,先用fortran构建一个三维网格,然后用tecplot360读出三维模型.现在我的困惑时不知道怎么编写fort fortran 各位fortran语言大侠们,求助!题目如下:有一个一维数组a,含10个整数元素,分别为5,6,3,9,12,18,1,10,25,21,编一个程序把它们按从小到大的顺序排列出来. 编写一个C程序 用于计算如下数学公式 求教C++程序的运行结果以及计算过程和思路有定义int**pp,*p,a=10,b=20;,当执行如下语句:pp=&p;p=&a;p=&b;cout 哪位大神帮忙写个Fortran的程序,有关有限元,只要能建立一个三节点平面单元(线弹性,各向同性).我们有限元课的作业,我用的Fortran软件时FTN95.