noah/CS-7863-Sci-Stat-Proj-4
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Adding correction for x0_orbiter

Browse Source
This commit is contained in:
Noah L. Schrick 2023-03-01 21:58:23 -06:00
parent a503e9fffe
commit 220038e604
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Schrick-Noah_Homework-4.R
View File

@ -385,7 +385,7 @@ orbiter.estimate <- findZeroRelax(orbiter.f, 1000000)
l <- orbiter.estimate[1]-r_earth l <- orbiter.estimate[1]-r_earth
x0_orbiter_tmp <- c(l, orbiter.f(l), 0)/1e3 # km x0_orbiter_tmp <- c(l, orbiter.f(l), 0)/1e3 # km
x0_orbiter <- x0_orbiter + x0_earth x0_orbiter <- x0_orbiter_tmp + x0_earth
y.init.orbiter <- c(x0_orbiter, v0_earth) y.init.orbiter <- c(x0_orbiter, v0_earth)
sunorbit.sol <- rk4sys(f=sunearth.f, a=0, b=365.25, y0=y.init.orbiter, n=365) sunorbit.sol <- rk4sys(f=sunearth.f, a=0, b=365.25, y0=y.init.orbiter, n=365)