수학] 매스매티카 Mathematica, 삼각함수 표 만들기 소스 코드; 사인 코사인 탄젠트; Sin Cos Tan Table
Wednesday, February 20, 2008
스폰서 링크매스매티카 Mathematica 에서 삼각함수 표를 만드는 소스 코드입니다. 0도~360도 즉 0라디안~2파이 라디안까지의 각도에서, SIN(사인; Sine), COS(코사인; Cosine), TAN(탄젠트; Tangent), CSC(코시컨트; Cosecant), SEC(시컨트; Secant), COT(코탄젠트; Cotangent)의 값을 각각 구하여 출력합니다.
아래 소스를 매스매티카의 노트북(하얀 빈 문서)에 붙여 넣거나 입력한 후, 키패드의 Enter키를 누르면 즉시 표가 출력됩니다.
매스매티카 노트북에 삼각함수 표가 나옵니다. 위의 출력을 조금 보기 좋게 다듬은 결과물이 다음 페이지에 있습니다: ▶▶ 삼각함수표; 삼각함수 값 목록; SINE COS TAN CSC SEC COT Table
삼각함수 계산기 (온라인 버전): ▶▶ 삼각함수 계산기, 사인 코사인 탄젠트 값 구하기; Trigonometric Function Calc
아래 소스를 매스매티카의 노트북(하얀 빈 문서)에 붙여 넣거나 입력한 후, 키패드의 Enter키를 누르면 즉시 표가 출력됩니다.
Do[
Print[
NumberForm[x, 3, NumberPadding -> {" ", " "}, NumberPoint -> ""], "도 = ",
x * (Pi/180), " rad",
" = (", NumberForm[N[x * (Pi/180), 64], {17, 16}], " rad)", " : ",
NumberForm[N[ Sin[x * (Pi/180)], 64], {7, 6}], " : ",
NumberForm[N[ Cos[x * (Pi/180)], 64], {7, 6}], " : ",
NumberForm[N[ Tan[x * (Pi/180)], 64], {7, 6}], " : ",
NumberForm[N[ Csc[x * (Pi/180)], 64], {7, 6}], " : ",
NumberForm[N[ Sec[x * (Pi/180)], 64], {7, 6}], " : ",
NumberForm[N[ Cot[x * (Pi/180)], 64], {7, 6}]
]
, {x, 0, 360, 45} ]
Print[
NumberForm[x, 3, NumberPadding -> {" ", " "}, NumberPoint -> ""], "도 = ",
x * (Pi/180), " rad",
" = (", NumberForm[N[x * (Pi/180), 64], {17, 16}], " rad)", " : ",
NumberForm[N[ Sin[x * (Pi/180)], 64], {7, 6}], " : ",
NumberForm[N[ Cos[x * (Pi/180)], 64], {7, 6}], " : ",
NumberForm[N[ Tan[x * (Pi/180)], 64], {7, 6}], " : ",
NumberForm[N[ Csc[x * (Pi/180)], 64], {7, 6}], " : ",
NumberForm[N[ Sec[x * (Pi/180)], 64], {7, 6}], " : ",
NumberForm[N[ Cot[x * (Pi/180)], 64], {7, 6}]
]
, {x, 0, 360, 45} ]
매스매티카 노트북에 삼각함수 표가 나옵니다. 위의 출력을 조금 보기 좋게 다듬은 결과물이 다음 페이지에 있습니다: ▶▶ 삼각함수표; 삼각함수 값 목록; SINE COS TAN CSC SEC COT Table
삼각함수 계산기 (온라인 버전): ▶▶ 삼각함수 계산기, 사인 코사인 탄젠트 값 구하기; Trigonometric Function Calc
더 보기:
☞ 매스매티카 Mathematica | 수학 Math더 보기:
☞ 학습 | Study
posted by mwultong @ 2:22 PM
Post a Comment
<< Home