Fossil figure of the Moon


moon_ff

It has been known for centuries that the lunar rotational and tidal bulges are much larger than expected. The excess deformation is thought to arise due to a fossil figure established when the Moon orbited much closer to Earth than it does today. However, previous investigations of this possibility assumed infinite material rigidity after the fossil figure was established, which precludes the application of the approach to investigations of planetary bodies. To remedy this, I developed a generalized model characterized by finite rigidity, and demonstrated, in application to the Moon, that an interior with a rigidity typical of rocks can preserve a fossil figure capable of explaining the present rotational and tidal bulges (Matsuyama, 2013). However, explaining the observed figure also required an initially highly eccentric or non-synchronous orbit, contrary to current views of lunar formation and evolution. In a subsequent paper, my graduate student (James Keane) and I investigated whether impact basins, volcanic plains, and other lunar gravity anomalies could contribute to the observed excess deformation (Keane and Matsuyama 2014). We found that a single impact basin—the giant South Pole-Aitken basin—could explain a large fraction of the excess deformation. Accounting for the signal associated with this basin, we found that the lunar fossil figure was consistent with a low-eccentricity, synchronous orbit. Image credit: James Keane.

Relevant publications:
  • Keane, J. T., & Matsuyama, I. (2014). Evidence for Lunar True Polar Wander, and a Past Low-Eccentricity, Synchronous Lunar Orbit. Geophysical Research Letters, 41. http://doi.org/10.1002/2014GL061195
  • Matsuyama, I. (2013). Fossil figure contribution to the lunar figure. Icarus, 1–4. doi:10.1016/j.icarus.2012.10.025
library(scholar) library(tidyverse) library(glue) # escape some special chars, german umlauts, ... char2html <- function(x){ dictionary <- data.frame( symbol = c("ä","ö","ü","Ä", "Ö", "Ü", "ß"), html = c("ä","ö", "ü","Ä", "Ö", "Ü","ß")) for(i in 1:dim(dictionary)[1]){ x <- gsub(dictionary$symbol[i],dictionary$html[i],x) } x } # my google scholar user id from my profile url # https://scholar.google.com/citations?user=b8bWNkUAAAAJ&hl=en thackl <- "b8bWNkUAAAAJ" # pull from google html_1 <- get_publications(thackl) # convert to htlm table - the ugly way ;) html_2 <- html_1 %>% as_tibble %>% arrange(desc(year)) %>% mutate( # author=str_replace_all(author, " (\\S) ", "\\1 "), author=str_replace_all(author, "([A-Z]) ([A-Z]) ", "\\1\\2 "), author=str_replace_all(author, ", \\.\\.\\.", " et al."), author=str_replace_all(author, "T Hackl", "T Hackl") # make my name fat ) %>% split(.$year) %>% map(function(x){ x <- x %>% glue_data('{author} ({year}) {title}, {journal}, {number}') %>% str_replace_all("(, )+

", "

") %>% char2html() x <- c('', x, '
') return(x); }) %>% rev html_3 <- map2(names(html_2) %>% paste0("

", ., "

"), html_2, c) %>% unlist html_4 <- c( paste0('

Last updated ', format(Sys.Date(), format="%B %d, %Y"), '– Pulled automatically from my Google Scholar profile. See this post for how it works.

'), html_3) # write the html list to a file writeLines(html_4, "../_includes/publications.html")