Vulpes

thommagma

Jan 23rd, 2012
158
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
MatLab 1.06 KB | None | 0 0
  1. % the purpose of this is to determine if Thom can dig a straight line to me
  2. % without burning up inside the mantle. Goodluck Thom.
  3. r = 6378.1 % kilometers , radius of earth
  4. % thickness of the crust ranges between about 20 and 120 km.
  5. s = 5024.000 % km , arc_length
  6.  
  7. theta = s / r % radians
  8.  
  9. % isosceles triangle, earth_r, earth_r, secant_line
  10. phi = (pi-theta)/2
  11.  
  12. % x: r*cos(theta)+x*cos(phi) = r
  13. % y: r*sin(theta)-x*sin(phi) = 0
  14. % where x is 3rd leg in isosceles triangle
  15.  
  16. x1 = r*(1-cos(theta))/cos(phi) % irrelevant calculations
  17. x2 = r*sin(theta)/sin(phi) % irrelevant calculations
  18.  
  19. % octave-3.2.3:12> x1 = r*(1-cos(theta))/cos(phi)
  20. % x1 =  4895.1
  21. % octave-3.2.3:13> x2 = r*sin(theta)/sin(phi)
  22. % x2 =  4895.1
  23.  
  24. % right triangle consisting h=r, leg = x/2 & height(ultimate goal), angles phi(adjacent to x/2) & theta/2
  25. % sin(phi) = height/r
  26. height = r*sin(phi)
  27.  
  28. % octave-3.2.3:14> height = r*sin(phi)
  29. % height =  5889.8
  30.  
  31. % with r & height, your maximum depth would be:
  32. max_dep = r - height
  33.  
  34. % max_dep =  488.31
  35.  
  36. % you have definitely achieved magma  :S
Advertisement
Add Comment
Please, Sign In to add comment