clc
clear
x1=-2:0.01:2;
y1=(1-(abs(x1)-1).^2).^(1/2);
plot(x1,y1,'r');
hold on
x2=-2:0.01:2;
y2=acos(1-abs(x2))-pi;
figure(1);
plot(x2,y2,'r');
axis([-2.7,2.7,-3.5,1.5]);
clear
x=-1.57:0.00001:1.57;
y=((4-x.^2).^0.01).*((cos(x)).^0.5.*cos(500.*x)+(abs(x)).^0.5-0.7);
figure(2);
plot(x,y,'r');
axis([-2,2,-1.8,1.2]);
clear
x1=0.1:0.01:10;
y1=1./x1;
figure(3);
subplot(1,4,1);
plot(x1,y1,'r','linewidth',3);
axis([0,10,0,10]);
x2=-3:0.01:3;
y21=(9-x2.^2).^0.5;
y22=-(9-x2.^2).^0.5;
subplot(1,4,2);
plot(x2,y21,'g','linewidth',3);
hold on
plot(x2,y22,'g','linewidth',3);
axis([-3,3,-3,3]);
x3=-3:0.01:3;
y3=2*abs(x3);
subplot(1,4,3);
plot(x3,y3,'b','linewidth',3);
axis([-3,3,0,6]);
y4=-pi:0.01:pi;
x4=-3*abs(sin(y4));
subplot(1,4,4);
plot(x4,y4,'y','linewidth',3);
axis([-3,0,-pi,pi]);