课堂笔记3

#第三节课
#找出向量中的偶数下标
vec<-5:8
which(vec %% 2 ==0)#[1]
which(vec==100)[1]

#寻找水仙花数
nums <- 100:999
first.num<-nums%/%100
second.num<-(nums%%100)%/%10
third.num<-nums%%10
nums[(first.num^3+second.num^3+third.num^3)==nums]

#四页玫瑰数
nums <- 1000:9999
first.num<-nums%/%1000
second.num<-(nums%%1000)%/%100
third.num<-(nums%%100)%/%10
forth.num<-nums%%10
nums[(first.num^4+second.num^4+third.num^4+forth.num^4)==nums]
#练习：求一个数的所以因子
num<-6
vec<-1:6
vec[6%%vec==0]

#作业：判断一个数是否是完数。
nums <- 1:(6/2)
sum(nums[6%%nums==0])==6

#创建一个矩阵找出第二列元素能被三整除且大于5的元素所在的行的元素

m<-matrix(1:12,nrow = 4)
m
second.col<-m[,2]
second.col
m[second.col %% 3 ==0 & m[,2]>5,]
#矩阵删除元素
m<-matrix(1:12,nrow = 4)
m
m[-1,]
m[,-1]
m[-1,-1]

#改变矩阵的值
m<-matrix(1:12,nrow = 4)
m
m.value <- matrix(rep(0,6),nrow=2)
m.value
m[c(1,3),]
m[c(1,3),]<- m.value
#将矩阵的第一列和第三列的值设置为大于1000的不同值
m<-matrix(1:12,nrow = 4)
m
m.value <- matrix(rep(0,6),nrow=2)
m.value
m[c(1,3),]
m[c(1,3),]<- m.value

m<-matrix(1:12,nrow = 4)
m
m.values<-sample(1000:1500,3,replace = T)
m.values
m.[,1]<-m.values
m.[,3]<-m.values
m