subplot_function(24)

clc;clear all;
%%a) circle (1,1) R=2
R=2;
X=[1 1];
fi=0:0.01:2*pi;
x=X(1)+R*cos(fi);
y=X(1)+R*sin(fi);

subplot(1,2,1);
plot(x,y,'r--');
title('$(x-1)^2+(y-1)^2=4$','Interpreter','latex');
xlabel('x');
ylabel('y');
hold on;


%%b)

x1=linspace(-1,1,1000);
y1=tan(1\(x1.*x1));

subplot(1,2,2);
plot(x1,y1,'g--');
title('$y=\tan{\frac{1}{x^2}}$','Interpreter','latex');
xlabel('x');
ylabel('y');
axis([-1 1 -500 2500]);