歌镇八荒 2021-11-23 22:12 采纳率: 100%
浏览 59
已结题

R语言建立矩阵计算双重积分求和

img

img

  • 写回答

1条回答 默认 最新

  • 技术专家团-Joel 2021-11-24 15:31
    关注

    你好同学,代码供参考,如有帮助还望题主给个宝贵的采纳支持答主答题哟,谢谢啦(づ ̄3 ̄)づ╭❤~

    constructMat<-function(n) {
      m<-matrix(0, ncol=n, nrow=n)#生成n行n列的0矩阵
      for (i in 1:n){
        for (j in 1:i){
            m[i,j]<-j*j/(10+4*i*i*i)#得到矩阵的每个元素
        }
      }
      return (m);#返回矩阵
    }
    a <- constructMat(5)
    print(a)
    fn <- sum(a)
    print(fn)#计算最终的fn
    

    输出结果

    > a <- constructMat(5)
    > print(a)
                [,1]        [,2]       [,3]       [,4]       [,5]
    [1,] 0.071428571 0.000000000 0.00000000 0.00000000 0.00000000
    [2,] 0.023809524 0.095238095 0.00000000 0.00000000 0.00000000
    [3,] 0.008474576 0.033898305 0.07627119 0.00000000 0.00000000
    [4,] 0.003759398 0.015037594 0.03383459 0.06015038 0.00000000
    [5,] 0.001960784 0.007843137 0.01764706 0.03137255 0.04901961
    > fn <- sum(a)
    > print(fn)#计算最终的fn
    [1] 0.5297454
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

    报告相同问题?

    问题事件

    • 系统已结题 12月3日
    • 已采纳回答 11月25日
    • 创建了问题 11月23日

    悬赏问题

    • ¥40 找同学帮敲Python代码
    • ¥15 MYSQL 订单的商品明细重复计算问题
    • ¥15 微信实时共享位置修改
    • ¥100 TG的session协议号转成直登号号后客户端登录几分钟后自动退出设备
    • ¥50 共模反馈回路的小信号增益
    • ¥15 arduino ssd1306函数与tone函数放歌代码不兼容问题
    • ¥70 0.96版本hbase的row_key里含有双引号,无法deleteall
    • ¥40 Ida Pro增加插件出现问题
    • ¥15 诊断性META分析合并效能的检验
    • ¥15 请问abb根据色块判断奇偶数并根据批次号放入仓储