code for table and triangles

> T1:=plot([[0,0],[1,0],[1,1],[0,0]],thickness=3, axes=none,scaling=constrained):
T2:=plot([[0,0],[1,0],[1,.5],[0,0]],thickness=3, axes=none,scaling=constrained):
T1one:= plots[textplot]([.5,.7,`1`], font=[TIMES,BOLD,16]):
T1sqrt2:=plots[textplot]([1.4,.5, `sqrt(2)/2`], font=[TIMES,BOLD,16]):
T1sqrt2a:=plots[textplot]([ .5,-.1, `sqrt(2)/2`], font=[TIMES,BOLD,16]):
T2sqrt3:=plots[textplot]([ .5,-.1, `sqrt(3)/2`], font=[TIMES,BOLD,16]):
T2half:=plots[textplot]([ 1.1,.25, `1/2`], font=[TIMES,BOLD,16]):
T2one:=plots[textplot]([.4,.3,`1`], font=[TIMES,BOLD,16]):
tri1:=plots[display]([T1,T1one,T1sqrt2,T1sqrt2a]):
tri1;
tri2:=plots[display]([T2,T2one,T2sqrt3,T2half]):tri2;

> MATRIX([[theta, sin(theta), cos(theta), tan(theta)], [1/6*Pi, 1/2, 1/2*sqrt(3), 1/3*sqrt(3)], [1/3*Pi, 1/2*sqrt(3), 1/2, sqrt(3)], [1/2*Pi, 1, 0, infinity], [2/3*Pi, 1/2*sqrt(3), -1/2, -sqrt(3)], [5/6*Pi, 1/2, -1/2*sqrt(3), -1/3*sqrt(3)], [Pi, 0, -1, 0], [7/6*Pi, -1/2, -1/2*sqrt(3), 1/3*sqrt(3)], [4/3*Pi, -1/2*sqrt(3), -1/2, sqrt(3)], [3/2*Pi, -1, 0, infinity], [5/3*Pi, -1/2*sqrt(3), 1/2, -sqrt(3)], [11/6*Pi, -1/2, 1/2*sqrt(3), -1/3*sqrt(3)], [2*Pi, 0, 1, 0]]);