> # the gd, 24 Jan 2002
> # Test 1 is Tues. Bring id, ti89, 3x5, paper
> #
> # Problem from fall 2000 test1:
> # a:0;b=5;plot3d(x y + 3x^2,x=a..b,y:=3..-3,NUMPOINTS=99,title="oops I did it again");
> a:=0;b:=5;plot3d(x*y + 3*x^2,x=a..b,y=-3..3,numpoints=99,title="oops I did it again");
> #
> # For maple 2 due next Thurs
> with(plots):
> cone:=x^2+y^2=z^2;plane:=z=y+2;
> solve({cone,plane,x=t},{x,y,z});
> curve:=[t,t^2/4-1,t^2/4+1];
> coneplot:=implicitplot3d(cone,x=-3..3,y=-3..3,z=-3..3,title="GD's cone,plane,curve",style=PATCHCONTOUR,axes=boxed):coneplot;
> planeplot:=implicitplot3d(plane,x=-3..3,y=-3..3,z=-3..3):planeplot;
> display(coneplot,planeplot,title="cone and plane");
> curveplot:=spacecurve(curve,t=-3..3,thickness=3,color=green):
> display(coneplot,planeplot,curveplot);
> #
> spacecurve([cos(t),sin(t),t],t=0..6*Pi,title="Helix",numpoints=500);
> spacecurve([cos(exp(t)),sin(exp(t)),t],t=0..6,numpoints=10000);
> #
> with(plottools);
> #
> # Arrows and vectors
> # 
> with(plottools);
> a1:=arrow([0,0,0],[1,1,1],.2,.6,.2,color=red);
> display(a1);
> ax:=arrow([0,0,0],[1,0,0],.2,.6,.2,color=blue):
> ay:=arrow([1,0,0],[1,1,0],.2,.6,.2,color=blue):
> az:=arrow([1,1,0],[1,1,1],.2,.6,.2,color=blue):
> display(a1,ax,ay,az);
> #
> #
> # Not one but two Linear Algebra Choices.
> with(linalg);
> u:=vector([2,1,3]);
> v:=vector([4,-1,2]);
> dotprod(u,v);
> crossprod(u,v);
> norm(u,2);
> with(LinearAlgebra);
> u:=Vector([2,1,3]);
> v:=Vector([4,-1,2]);
> DotProduct(u,v);
> CrossProduct(u,v);
> VectorNorm(u,2);
>