Thursday, December 27, 2007
매스매티카 Mathematica] 소수를 분수로 바꾸는 표 출력 소스; Frac Table
매스매티카 Mathematica 에서, 소수를 분수로 변환한 표를 출력하는 소스 코드입니다. 아래의 소스를 매스매티카의 노트북(하얀 빈 문서)에 붙여 넣고, 키패드의 Enter키를 누르면 표가 자동으로 출력됩니다.
"윈도우용 Mathematica 6" 버전에서 테스트된 코드입니다.
위의 코드를 실행한 결과는 아래 페이지에 캡처되어 있습니다:
▶▶ 소수를 분수로 변환하기 표, 0.01에서 10.0까지; Frac Table
그런데 위의 코드는 분수가 "분자 나누기 분모" 형식으로 출력됩니다. 아래의 코드는 분수의 형태 그대로 나오는 것입니다.
"윈도우용 Mathematica 6" 버전에서 테스트된 코드입니다.
Do[
Print[
NumberForm[x, {4, 2}, NumberPadding->{" "," "}],
" = ",
Numerator[Rationalize[x]], "/", Denominator[Rationalize[x]],
" (", Denominator[Rationalize[x]], "분의",
Numerator[Rationalize[x]], ")"
]
, {x, 0.01, 10, 0.01} ]
Print[
NumberForm[x, {4, 2}, NumberPadding->{" "," "}],
" = ",
Numerator[Rationalize[x]], "/", Denominator[Rationalize[x]],
" (", Denominator[Rationalize[x]], "분의",
Numerator[Rationalize[x]], ")"
]
, {x, 0.01, 10, 0.01} ]
위의 코드를 실행한 결과는 아래 페이지에 캡처되어 있습니다:
▶▶ 소수를 분수로 변환하기 표, 0.01에서 10.0까지; Frac Table
그런데 위의 코드는 분수가 "분자 나누기 분모" 형식으로 출력됩니다. 아래의 코드는 분수의 형태 그대로 나오는 것입니다.
Do[
Print[
NumberForm[x, {4, 2}, NumberPadding->{" "," "}],
" = ",
Rationalize[x],
" (", Denominator[Rationalize[x]], "분의",
Numerator[Rationalize[x]], ")"
]
, {x, 0.01, 10, 0.01} ]
Print[
NumberForm[x, {4, 2}, NumberPadding->{" "," "}],
" = ",
Rationalize[x],
" (", Denominator[Rationalize[x]], "분의",
Numerator[Rationalize[x]], ")"
]
, {x, 0.01, 10, 0.01} ]
tag: mathematica
매스매티카 Mathematica | 수학 Math
<< Home