KTUG마당은 KTUG를 방문하는 모든 이용자가 대화를 나누고 소식을 전하는 곳입니다.

  • 로그인 없이 자유롭게 글을 읽고 쓸 수 있는 철학은 처음과 같이 계속됩니다.
  • Team Blog의 글을 이곳 게시판의 "정보글"로 모았습니다. Team blog는 기고자가 올린 글에 질문과 답을 받는 부담을 줄이기 위하여 댓글을 허용하지 않았습니다. 그러나 이곳 게시판으로 모으면서 댓글을 달 수 있습니다. 게시물을 작성하실 때 댓글을 원하지 않으시면 댓글을 허용하시지 않으시기를 바랍니다. 또한 불필요한 소모성 댓글을 달지 않도록 주의하여 주시기를 바랍니다.
  • TeX과 관련된 질문이나 답변은 QnA 마당을 이용하십시오. TeX과 관련된 질문은 지웁니다
  • MathJax를 이용한 수식조판을 사용하실 수 있습니다. 여기를 참조하세요.
  • 최근 스팸글의 등록 빈도가 높아 졌습니다. 이를 막기위하여 짧은 시간내에 다시 글이 등록되는 IP를 막거나, 광고글을 막기위하여 금지어로 .com, .net등을 설정하고 있습니다. 다소간의 불편함이 있으시더라도 양해 바랍니다.
  • 사용하는 편집기를 스마트에디터에서 CKeditor로 변경하였습니다. 편집기에서 [enter]를 누르면 <p> 태그가 들어가고, 문단으로 생각하고 한줄을 비웁니다. 글줄만 바꾸려면 shift-enter 를 누르시면 <BR>가 들어가므로 용도에 맞게 나누어 쓸 수 있습니다.
\newcount\N   \N=1000000                      % 총시행횟수. 10^n
\newcount\n   \n=0                            % 현재시행횟수
\newcount\hit \hit=0                          % Hit
\newcount\rr  \rr\numexpr10000*10000\relax    % 상수 r^2
\newcount\p   \newcount\q                     % 난수 담을 변수
\def\rand#1{#1=\pdfuniformdeviate10001\relax} % 난수 발생기
\def\dmark#1{#1.}                             % 소수점 찍기
\loop
  \rand\p \rand\q
  \ifnum\numexpr\p*\p+\q*\q\relax>\rr\else\advance\hit by1\fi
  \ifnum\n<\N\advance\n by1
\repeat
$$
\pi \approx \expandafter\dmark\the\numexpr4*\hit\relax
$$
\bye

아래 도은이아빠 글을 보고 자원 소모가 많은 소수점 연산을 안 써도 얼추 가능할 거 같아서 간단히 작성해봤다.


첫줄의 \N 은 10의 제곱수라야 한다. 이 값을 증가시키면 파이 값이 더 정확해진다.

위의 예처럼 1백만 번까지는 그럭저럭 즐겁게 컴파일할 수 있지만 0을 하나 더 붙여 1천만 번을 돌리면 기다리기가 사뭇 지겹다.


굳이 레이텍으로 만들 이유가 없기에 플레인텍으로 작성했다. pdftex 으로 컴파일하면 된다.

번호 제목 글쓴이 날짜 조회 수
공지 2019 한국텍학회 제12차 정기총회 및 학술대회 [2] yihoze 2019.01.04 52759
공지 KTUG 사설저장소 브라우저 베이드프즈 2017.07.16 55796
공지 장애 복구 안내 [9] 관리자 2017.05.04 59310
공지 TeX Live 2016 설치 안내 [7] 관리자 2016.06.05 93123
611 큰 인라인 수식이 있는 글의 행간격에 관하여 예전에 썼던 글 karnes 2011.05.25 3302
610 \pdfstrcmp DohyunKim 2011.05.26 3163
609 Sorting within TeX karnes 2011.05.26 2627
608 최신 ConTeXt매뉴얼 [2] 에드 2011.05.27 39289
607 \XeTeXglyph file DohyunKim 2011.05.29 2662
606 이단조판에서 끝 페이지 하단 정렬하기 DohyunKim 2011.06.01 29968
605 SSD로 TeX를 돌리다 [4] dynamics 2011.06.05 34252
604 tl-portable DohyunKim 2011.06.07 2846
603 MacTeX의 TeX Distribution switching file karnes 2011.06.07 2857
602 하단 면주에 쪽번호 위치 설정하기 에드 2011.06.10 3833
601 \pdfuniformdeviate file DohyunKim 2011.06.13 2709
600 "a unit of 65536" karnes 2011.06.14 2708
» 몬테카를로 기법으로 파이 구하기: 정수 연산 버전 DohyunKim 2011.06.15 3016
598 난수로 괘를 뽑아보았다 file karnes 2011.06.15 2694
597 파이 구하기: 시각화 버전 file karnes 2011.06.18 2907
596 $$ 를 쓸까? \[ 를 쓸까? file DohyunKim 2011.06.21 2655
595 graphicx 패키지 안 쓰고 이미지 삽입하기 DohyunKim 2011.06.22 3157
594 jbig2 사용법 file DohyunKim 2011.06.22 3221
593 \XeTeXinputnormalization DohyunKim 2011.06.27 2654
592 추억의 문서 [생활한자] [5] nova de hi 2011.06.27 37173



XE Login