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

Compare commits

base: noah:4f39845b57f219b527a5d25824773b1907acb3d9
Branches Tags
noah:main
...
compare: noah:717e29c9f74a871337d10f83b36d695e69f5b558
Branches Tags
noah:main

2 Commits
4f39845b57 ... 717e29c9f7

Author SHA1 Message Date
noah
717e29c9f7 Merge branch 'main' of https://git.theschricks.com/noah/CS-7863-Sci-Stat-Proj-4 
"Typo correction"
 2023-03-01 21:59:22 -06:00
noah
220038e604 Adding correction for x0_orbiter 2023-03-01 21:58:23 -06:00
1 changed files with 1 additions and 1 deletions
Show Stats 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)