Polinomial orbit adalah pendekatan fungsi polinomial untuk menggambarkan lintasan orbit suatu objek dalam ruang. pada kesempatan kali ini kita akan menggunakan paket pracma di R untuk menemukan polinomial orbit. yaitu sebagai berikut:

langkah pertama adalah kita memuat paket pracma sebagai berikut:

library(pracma)

x <- c(1, 2, 3, 4, 5)
y <- c(1, 4, 9, 16, 25)

koefisien <- polyfit(x, y,)
polinomial_orbit <- polyval(koefisien, x)

plot(x, y, pch = 16, col = "blue", xlab = "x", ylab = "y", main = "Polinomial Orbit")
lines(x, polinomial_orbit, col = "red")
legend("topleft", legend = c("Data Asli", "Polinomial Orbit"), col = c("blue", "red"), pch = c(16, NA))