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

 
Previous Post 소수를 분수로 변환하기 표, 0.01에서 10.0까지; Frac Table나눗셈 계산기, 나머지값 구하기, 몫이란? 나머지란? 뜻 의미; q r나누기 계산기; 나눗셈의 몫 나머지 값 구하기; Remainder Calc당근 사진, 채소 고화질 이미지; Carrot Photo비만도 측정, 신체 질량 지수 계산기, BMI 지수 구하기; Calc누룽지 국? 죽? 사진, 벽바운스 촬영; 韓国おこげ画像; Baked Rice Soup2008년은 무슨 띠 해? 무자년은 무슨띠? 60간지에서60갑자 계산기; 기원전 서기까지 육십간지로 변환기; Calc호박고구마 사진, 군고구마 이미지, 껍질 제거, 은박지 포장; Roasted Sweet P...범용 TV 리모콘 구입 사진, 삼성 LG 소니 필립스 파나소닉 도시바 리모컨 Remote ...

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

Thursday, December 27, 2007

매스매티카 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} ]



0 Comments:

Post a Comment

<< Home RSS 2.0 feed

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