Context Navigation

planetradius.m

Last change on this file was 25751, checked in by Eric.Larour, 5 years ago
CHG: new partition vector for solidearthsettings. New handling of rigid and elastic table precomputations. New Europa planet radius. New earth default in model constructor.
File size: 386 bytes

Rev	Line
[24776]	1	function radius=planetradius(planet)
	2	%PLANETRADIUS - return planet radius according to planetary body name.
	3	%
	4	% Usage:
	5	% radius=planetradius(planet);
	6	%
	7	% Examples:
[24902]	8	% earthradius=planetradius('earth');
[24776]	9
	10	if strcmpi(planet,'earth'),
	11	radius=6.371012*10^6;
[25751]	12	elseif strcmpi(planet,'europa'),
	13	radius=1.5008*10^6;
[24776]	14	else
	15	error(['planet type ' planet ' not supported yet!']);
	16	end

Note: See TracBrowser for help on using the repository browser.