R/DO.HALFSPACE.R

DO.HALFSPACE <-
function()
  {
    k = 1e-6
    T0 = 1000
    x = seq(0,20, length=1000)
    y =  heat.sol(x, T0, k, seq(from=0,to=1000*24*3600, by=100*24*3600))
  }

Try the geophys package in your browser

Any scripts or data that you put into this service are public.

geophys documentation built on May 1, 2019, 9:26 p.m.