The TableForm[] is a trig table which shows sine, cosine and tangent values for integer angles from 0 degrees to 90 degrees in steps of 3 degrees.
I want to recreate the exact same table using Mathematica. I need to use TableForm[].
This is what I have so far:
TeXForm@TableForm[
Select[
Flatten[
Table[
{angle, sine, cosine, tangent},
{angle, 0, 90, 3},
{sine, N[Sin[0 Degree], 4], N[Sin[90 Degree], 4], angle},
{cosine, N[Cos[0 Degree], 4], N[Cos[90 Degree], 4], angle},
{tangent, N[Tan[0 Degree], 4], N[Tan[90 Degree], 4], angle}
],
1
],
IntegerQ[#[[3]]] && GCD[#[[1]], #[[2]]] == 1 &
]
]
I'm trying to manipulate code that I used for making another table so the last line:
IntegerQ[#[[3]]] && GCD[#[[1]], #[[2]]] == 1 &
Might be completely irrelevant. For the lines that show sine, cosine and tangent, I tried to start at 0 degrees, show 4 numbers (leading zeros don't count hence the values for angle 3 for sine and tangent), go up to 90 degrees, and I want it to go up in increments of 3 degrees.
Thank you for any help.