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
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 1无用
悬赏问题
- ¥50 comfyui下连接animatediff节点生成视频质量非常差的原因
- ¥20 有关区间dp的问题求解
- ¥15 多电路系统共用电源的串扰问题
- ¥15 slam rangenet++配置
- ¥15 有没有研究水声通信方面的帮我改俩matlab代码
- ¥15 对于相关问题的求解与代码
- ¥15 ubuntu子系统密码忘记
- ¥15 信号傅里叶变换在matlab上遇到的小问题请求帮助
- ¥15 保护模式-系统加载-段寄存器
- ¥15 电脑桌面设定一个区域禁止鼠标操作