#Dayoon Kim, 2024-2-4, HW1

###HW1. Maple Book
#Chapter 6
p1:=plot(sin(x),x=-2*Pi..2*Pi);
p2:=plot(sec(x),x=-Pi..2*Pi,y=-5..5);
p3:=plot([cos(t),1/2*sin(t),t=0..2*Pi]);

with(plots):
display(p1,p2,p3);
polarplot(cos(5*t),t=0..2*Pi);
implicitplot(x^2+4*y^2=1,x=-1..1,y=-1/2..1/2);

Points:=[[0,0],[1,1],[2,2],[2,3],[4,5],[4,-1]];
plot(Points);
plot(Points,style=point, title=`Hello`);
p4:=textplot([[360,16,`y=sec(x)`],[130,10,`y=sin(x)`]]):
display(p1,p2,p4);

plot3d(exp(-(x^2+y^2-1)^2),x=-2..2,y=-2..2);
spacecurve([cos(t),sin(t),t],t=0..4*Pi,numpoints=200);
contourplot3d(exp(-(x^2+y^2-1)^2),x=-(1.3)..(1.3),y=-(1.3)..(1.3),filled=true, coloring=[blue,red]);
animate(1/(1+x^t),x=0..10,t=0..1,frames=10,title=`Animation`);
animate3d([r*cos(t+a),r*sin(t+a),r^2*cos(2*t)+sin(a)],r=0..1,t=0..2*Pi,a=0..2*Pi,frames=10,style=patch,title=`The Flying Pizza`);

#Chapter 7
with(linalg):
v:=vector([1,2,3]);
A:=matrix(2,3,[a,b,c,d,e,f]);
v;
print(v);
op(A);
eval(A);

B:=matrix(2,2);
entermatrix(B);

f:=(i,j)->x^(i*j);
F:=matrix(4,4,f);
factor(det(A));