mwultong Blog ... 프로그래밍 / 계산기

컴퓨터 엑셀 워드 포토샵 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
Thursday, December 27, 2007

매스매티카 Mathematica] 소수를 분수로 바꾸는 표 출력 소스; Frac Table


매스매티카 Mathematica 에서, 소수를 분수로 변환한 표를 출력하는 소스 코드입니다. 아래의 소스를 매스매티카의 노트북(하얀 빈 문서)에 붙여 넣고, 키패드의 Enter키를 누르면 표가 자동으로 출력됩니다.

"윈도우용 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} ]


위의 코드를 실행한 결과는 아래 페이지에 캡처되어 있습니다:
▶▶ 소수를 분수로 변환하기 표, 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} ]





tag: mathematica
매스매티카 Mathematica | 수학 Math

0 Comments:

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Previous Posts
Monthly Archives
Top