[adsense:responsibe:9545213979]
x1<- c(rep(15,4),rep(20,3),rep(25,1),rep(15,1),rep(20,4),rep(25,7)); y1<- c(rep(5,4),rep(5,3),rep(5,1),rep(10,1),rep(10,4),rep(10,7)); x2<- (x1-15)/5; y2<- (y1-5)/5;
mx2<-mean(x2); mx2 [1] 1.15 my2<-mean(y2); my2 [1] 0.6 mx1<-mean(x1); mx1 [1] 20.75 my1<-mean(y1); my1 [1] 8 (mx1-15)/5 [1] 1.15 (my1-5)/5 [1] 0.6
x1 := Join[ConstantArray[15,4],ConstantArray[20,3], ConstantArray[25,1],ConstantArray[15,1],ConstantArray[20,4], ConstantArray[25,7]]; y1 := Join[ConstantArray[5,4],ConstantArray[5,3], ConstantArray[5,1],ConstantArray[10,1],ConstantArray[10,4], ConstantArray[15,7]];
x2:=(x1-15)/5; y2:=(y1-5)/5; mx1:=Mean[x1]; my1:=Mean[y1]; mx2:=Mean[x2]; my2:=Mean[y2]; N[mx1] N[my1] N[mx2] N[my2] N[(mx1-15)/5] N[(my1-5)/5] 20.75 9.75 1.15 0.95 1.15 0.95
Comentarios recientes