clc
clear

t = linspace(-20*pi, 20*pi, 5000);
x = sin(t) .* (exp(cos(t)) - 2*cos(4*t) + (sin(t/12)).^5);
y = cos(t) .* (exp(cos(t)) - 2*cos(4*t) + (sin(t/12)).^5);
plot(x, y, 'b', 'LineWidth', 1.5);


title('Final Exam Problem No. 2, Kimberly Randle')
xlabel('x');
ylabel('y');

legend('Astroid Curve');
grid on;
axis equal;