菜鸟求些FORTRAN程序

purple霞 · 发表于 2012-4-10 19:26:51

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

这个公式用FORTRAN语言写怎么写哇？

求指导

lotina · 发表于 2012-4-10 19:43:41

do j=1,m
sum=sum+avex(j,k)
end do
do k=1,......
  do j=1,m
   x2(i,k)=avex(j,k)-sum/m
  end do
end do

搞不明白你的这I,J,K是什么？
每个公式都有它的意义，最好说清楚。
提问要说明白你的问题，别人也好回答

lotina · 发表于 2012-4-10 19:43:59

do j=1,m
sum=sum+avex(j,k)
end do
do k=1,......
  do j=1,m
   x2(i,k)=avex(j,k)-sum/m
  end do
end do

搞不明白你的这I,J,K是什么？
每个公式都有它的意义，最好说清楚。
提问要说明白你的问题，别人也好回答

purple霞 · 发表于 2012-4-10 19:55:54

本帖最后由 purple霞于 2012-4-10 19:57 编辑

lotina 发表于 2012-4-10 19:43

登录/注册后可看大图

do j=1,m
sum=sum+avex(j,k)
end do

i 是年序 j是月序 k是站号

purple霞 · 发表于 2012-4-10 20:22:18

lotina 发表于 2012-4-10 19:43

登录/注册后可看大图

do j=1,m
sum=sum+avex(j,k)
end do

这个是具体说明

lotina · 发表于 2012-4-10 22:39:38

上面的程序应该没有问题了。
但是我是觉得哈，那个X2应该是J么，是不是书上弄错了啊！
它说是某月的多年平均值与多年平均值的差，那么那个i也就是表示月份了，那怎么又不用J了呢？

mofangbao · 发表于 2012-4-11 08:45:02

最好自己先写，有问题再来讨论，否则你永远是菜鸟

=。。= · 发表于 2012-4-12 08:48:13

先对月份求平均，再对月份求距平
do j=1,m
do k=1,k
ave(j,k)=ave(j,k)+x(j,k)
end do
av(j,k)=av(j,k)/K
enddo
do k=1,K
  do j=1,m
   avavx(j,k)=avavx(j,k)+av(j,k)
  end do
avavx(j,k)=avavx(j,k)/m
do i=1,n
avav(i,k)=av(j,k)-avav(j,k)
enddo
end do

purple霞 · 发表于 2012-4-13 10:14:29

mofangbao 发表于 2012-4-11 08:45

登录/注册后可看大图

最好自己先写，有问题再来讨论，否则你永远是菜鸟

我写了没好意思贴出来都是错。。。。。怕丢人

purple霞 · 发表于 2012-4-13 10:14:52

=。。= 发表于 2012-4-12 08:48

登录/注册后可看大图

先对月份求平均，再对月份求距平
do j=1,m
do k=1,k

谢谢哦我试试看

		自动登录	找回密码
密码			立即注册

[求助] 菜鸟求些FORTRAN程序

登录后查看更多精彩内容~

评分