r<-function(x,n){  #x为方针，n为整数幂次
i<-1
t<-x
while(i<n){
t<-t%*%x
i<-i+1}
t}