The escape velocity from the surface of a planet (that is, the minimum velocity

Question

The escape velocity from the surface of a planet (that is, the minimum velocity a projectile
must achieve in order that it will never return to the planet’s surface, ignoring things such as
air resistance) is given by the expression:
Vesc =Square root(2GM)/R

where G is the gravitational constant (6.67x10^-11 m4/kg/s2), M is the mass of the planet (in kg)
and R is the planet’s radius (in metres)
Write a function that accepts the planetary mass and radius as its input and returns the
escape velocity. Use your function to compare the escape velocity from the Earth using the
following data:
Planet Mass (kg) Radius (m)
Earth 6.0x10^24 6.4x10^6

Program must be in fortran language.
I need really help with this question and also i have to do this homework to pass my lesson.

Explanation / Answer

program esp implicit none integer :: i,j real(kind=8) :: mass_planet,vel,radius_planet,G,Vesc write(*,*) "enter planet mass" read(*,*) mass_planet write(*,*) "enter planet radius" read(*,*) radius_planet G=6.670d-11 write(*,*) G Vesc=dsqrt(2*G*mass_planet/radius_planet) write(*,*) " planet escape velocity",Vesc end program esp After compiling : ./a.out enter planet mass 6.0d24 enter planet radius 6.4d6 6.66999999999999997E-011 planet escape velocity 11183.134623172520 Answer is in m/sec. --- converting it into km/sec gives 11.18 km/sec If you want to write the answer in km/sec, write this instead of line 17, write(*,*) " planet escape velocity",Vesc/1000

Related Questions

Navigate

• Browse (All)
• Browse T
• Subjects

---

---

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.