The Center of Gravity 重心计算的问题

Question

Problem Description
Everyone know the story that how Newton discovered the Universal Gravitation. One day, Newton walked
leisurely, suddenly, an apple hit his head. Then Newton discovered the Universal Gravitation.From then
on,people have sovled many problems by the the theory of the Universal Gravitation. What's more, wo also
have known every object has its Center of Gravity.
Now,you have been given the coordinates of three points of a triangle. Can you calculate the center
of gravity of the triangle?

Input
The first line is an integer n,which is the number of test cases.
Then n lines follow. Each line has 6 numbers x1,y1,x2,y2,x3,y3,which are the coordinates of three points.
The input is terminated by n = 0.

Output
For each case, print the coordinate, accurate up to 1 decimal places.

Sample Input
2
1.0 2.0 3.0 4.0 5.0 2.0
1.0 1.0 4.0 1.0 1.0 5.0
0

Sample Output
3.0 2.7
2.0 2.3

Answer 1

以下回答参考 皆我百晓生、券券喵儿 等免费微信小程序相关内容作答，并由本人整理回复。

# 读取数据
data <- read.table(text="n <- readLines(); for(i in 1:n) {x <- as.vector(strsplit(n[i], " ")[[1]]); y <- as.vector(strsplit(x, " ")[[1]]); c <- paste0(x[1], y[1], x[2], y[2], x[3], y[3]); c} ; data", header=TRUE)

# 计算重心
c <- data[1,]
for (i in 2:length(data)) {
  c <- c + data[[i]]
}
c / length(data)

这个代码首先读取输入的三角形顶点坐标，然后计算重心。