function epicycloid_plot ( k, s, x, y, filename ) %*****************************************************************************80 % %% EPICYCLOID_PLOT plots points along an epicycloid. % % Licensing: % % This code is distributed under the GNU LGPL license. % % Modified: % % 11 February 2016 % % Author: % % John Burkardt % % Parameters: % % Input, real K, the ratio between the large and small circles. % % Input, real S, the number of times the small circle rotates around % the large circle. % % Input, real X(*), Y(*), the coordinates of points along the epicycloid. % % Input, string FILENAME, the name for the PNG file to be created. % plot ( x, y ); axis equal w = sprintf ( 'Ratio R/r = %g, Revolutions = %d', k, s ); title ( w ); print ( '-dpng', filename ); return end