qq_33894726 2017-06-09 01:20 采纳率: 100%
浏览 1044
已采纳

r语言上机题,关于优劣度的排序,一直等于0,快疯了

x<-matrix(sample(1:10,size=36,replace=T),6,6)
max=numeric(6)
min=numeric(6)
for(k in 1:6){
max[k]=max(x[k,])
min[k]=min(x[k,])
}
sum1=0
sum2=0
for(i in 1:6)
{
for(j in 1:6)
{
if(j==1||j==3||j==6)
{
sum1=sum1+(x[i][j]-max[i])^2
sum2=sum2+(x[i][j]-min[i])^2
}
else
{
sum1=sum1+(x[i][j]-min[i])^2
sum2=sum2+(x[i][j]-max[i])^2
}
}
js=numeric(6)
sum1=sqrt(sum1)
sum2=sqrt(sum2)
js[i]=as.double(sum2)/(sum1+sum2)
sum1=0
sum2=0
}
输出结果js全是000000,做的实验是比较无纲量化处理再比较优劣度

  • 写回答

2条回答 默认 最新

  • Watch_dou 2017-06-11 06:30
    关注

    你前面的
    max=numeric(6)
    min=numeric(6)
    for(k in 1:6){
    max[k]=max(x[k,])
    min[k]=min(x[k,])
    }
    已经错了,应该输出每行的最值,而这样的结果全是0。
    最简单的还是apply():
    max_byrow=apply(x,1,max)
    min_byrow=apply(x,1,min)

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?

悬赏问题

  • ¥15 有没有能解决微信公众号,只能实时拍照,没有选择相册上传功能,我不懂任何技术,,有没有给我发个软件就能搞定的方法
  • ¥15 Pythontxt文本可视化
  • ¥15 如何基于Ryu环境下使用scapy包进行数据包构造
  • ¥15 springboot国际化
  • ¥15 搭建QEMU环境运行OP-TEE出现错误
  • ¥15 Minifilter文件保护
  • ¥15 有限元软件终止时间超过设定值
  • ¥15 onvif框架引用一直报错
  • ¥50 C#和C++混合编程,使用CLR托管,报错System.Runtime.InteropServices.SEHException
  • ¥30 .NET使用sqlite发布后报错