Rotational stability of planets


moon_tpw

The spin axis orientation of planetary bodies can change due to a variety of processes such as internal convection, glaciation or impacts. Mass redistribution associated with these processes perturbs the inertia tensor of the planet, forcing it to reorient to a new minimum rotational energy state. This reorientation is commonly referred to as true polar wander (TPW) and manifestations of it provide constraints on the interior structure of planetary bodies. Despite their diversity, many solar system bodies appear to have undergone reorientation, underlying the universality of the physical processes driving TPW. I have developed new theoretical treatments for investigating TPW that take into account a suite of previously ignored driving mechanisms. These theoretical formulations are sufficiently general to provide the foundation of any future study of TPW and I have led in their application to a diverse set of planetary studies. Image credit: James Keane.

Relevant publications:
  • Matsuyama, I., Nimmo, F., & Mitrovica, J. X. (2014). Planetary Reorientation. Annual Review of Earth and Planetary Sciences, 42, 605–634. http://doi.org/10.1146/annurev-earth-060313-054724
  • Bouley, S., Baratoux, D., Matsuyama, I., Forget, F., Séjourné, A., Turbet, M., & Costard, F. (2016). Late Tharsis formation and implications for early Mars. Nature, 531, 344–347. http://doi.org/10.1038/nature17171
  • Siegler, M. A., Miller, R. S., Keane, J. T., Laneuville, M., Paige, D. A., Matsuyama, I., et al. (2016). Lunar true polar wander inferred from polar hydrogen. Nature, 531, 480–484. http://doi.org/10.1038/nature17166
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")