Fortran Coder

标题: 数组求和 [打印本页]

作者: Shiev 时间: 2015-3-1 09:08
标题: 数组求和
本帖最后由 Shiev 于 2015-3-1 09:31 编辑

各位大大，有没有一种方法可以直接用sum求一个数组中的某几项和，比如说一个数列a, 里面有10个数，我想求第1,3,9个数的和

sum(a(j=1,3,9))? 貌似不行, 但是用循环完成起来好麻烦啊.

或者说a里面有十个数，除了第五个数不算，算其余九个数的和，要怎么实现啊？？拜托拜托啦

作者: vvt 时间: 2015-3-1 11:33

[Fortran] 纯文本查看 复制代码

Program www_fcode_cn

  Implicit None

  real :: a(9) = [1.,2.,3.,4.,5.,6.,7.,8.,9.]

  write(*,*) sum( a( [1,3,9] ) ) !// 1，3，9 求和

  write(*,*) sum( a(1:4) )   !// 1到4求和

  write(*,*) sum( a ) - a(5) !// 除了5，其余求和

End Program www_fcode_cn

作者: Shiev 时间: 2015-3-1 18:21
追问一下，sum（a）-a（5）实质上还是算了a（5）的，我想不算a（5），而是直接出求和的值，因为在我的程序里，a(5)算不出来，当序数等于5的时候，分母得0

作者: Shiev 时间: 2015-3-1 18:28
本帖最后由 Shiev 于 2015-3-1 18:54 编辑

也就是说在sum里能不能叠加条件判断的语句，如果能就方便多啦，因为我的程序中是二维数组，对两个序数之和有要求（i，j），比如说，i+j=5，然后 i 从 1 增加，j 相应减少

作者: vvt 时间: 2015-3-1 19:06
sum 可以加条件，但条件是对 a 的值求取的，而不能对角标（序数）求取条件。

例如：

[Fortran] 纯文本查看 复制代码

write(*,*) sum( a , mask = ( a > 3.0 ) ) !// 大于 3.0 的值参与求和

你这样的情况，我建议你还是自己写循环实现吧。

作者: Shiev 时间: 2015-3-1 19:25
本帖最后由 Shiev 于 2015-3-1 19:29 编辑

再问个问题，比如说我有一个数组，1,2,3 ，我可不可以去掉中间的某一项，比如说把这个数组变成 1,2

作者: vvt 时间: 2015-3-1 20:27
real :: a(100)
a(5:99)=a(6:100)
这样就行了。你使用时就使用 a(:99)

作者: Shiev 时间: 2015-3-8 03:42
谢谢啦！！

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)