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

  • 로그인 없이 자유롭게 글을 읽고 쓸 수 있는 철학은 처음과 같이 계속됩니다.
  • Team Blog의 글을 이곳 게시판의 "정보글"로 모았습니다. Team blog는 기고자가 올린 글에 질문을 받는 부담을 줄이기 위하여 댓글을 허용하지 않았습니다. 그러나 이곳 게시판으로 모으면서 댓글을 달 수 있습니다. 게시물을 작성하실 때 댓글을 원하지 않으시면 댓글을 허용하시지 않으시기를 바랍니다. 또한 불필요한 소모성 댓글을 달지 않도록 주의하여 주시기를 바랍니다.
  • TeX과 관련된 질문이나 답변은 QnA 마당을 이용하십시오. TeX과 관련된 질문은 지웁니다
  • MathJax를 이용한 수식조판을 사용하실 수 있습니다. 여기를 참조하세요.
  • 스팸 글을 막기 위하여 짧은 시간 내에 다시 글이 등록되는 IP를 막거나, 광고 글을 막기 위하여 금지어로 .com, .net 등을 설정하고 있습니다. 다소간의 불편함이 있으시더라도 양해 바랍니다.
    • 금지어에서 stackexchange, stackoverflow, ctan, overleaf, , github, google.com, gmail.com, .org, .io, sil.org, wiki.com, tistory.com등은 해제하였습니다.
  • 사용하는 편집기는 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 으로 컴파일하면 된다.

번호 제목 글쓴이 날짜 조회 수
420 mediawiki 와 wiki2latex [2] file 불량양파 2013.09.26 18208
419 texlive 2013의 최근 tlmgr 업데이트 에러 [1] file nanim 2013.09.18 19197
418 개인적으로 진행하고있던 첫 TeX 작업을 끝냈습니다. [6] 불량양파 2013.08.04 20493
417 dhucs-nanumfont.sty file karnes 2013.09.26 4649
416 [질문과 의견 수렴] 텍 출판에서 궁금한 점 [8] Progress 2013.09.10 24056
415 [안내] 2013 공주대 문서작성 워크숍 Progress 2013.09.10 20188
414 오랜만에 설치했는 데, 역시 단번에 되네요. 감사합니다. 양사장 2013.08.16 20230
413 xetexko의 에러 메세지 gromov 2013.08.13 4500
412 palatino와 xltxtra [2] file yihoze 2011.09.19 13592
411 새삼 ktug에 감사드립니다. 불량양파 2013.08.02 18399
410 KTUG에 있어서 별 의미는 없겠습니다만... [5] file 불량양파 2013.07.14 16466
409 [공지] 한국텍학회 회비를 입금한 분들 중 회원 미등록자 분들께 [7] 관리자 2011.10.20 123267
408 늦게나마 가입 인사를 드립니다. [1] 修盡 2013.07.04 19171
407 책 부분 용어 [2] gromov 2013.07.13 18718
406 W3C 기술노트: 한국어 텍스트 레이아웃 및 타이포그래피 [6] DohyunKim 2013.06.13 18116
405 koTeX repository for TeXLive? [6] Emesscee 2013.04.30 17581
404 KTUG 여러분 [7] file Progress 2012.12.31 19495
403 2013 수학 달력 [9] file puzzlist 2013.01.04 19730
402 TeX Writer를 위한 cjk-ko 패키지, 주소 변경 DohyunKim 2013.05.06 23469
401 드디어 다시 열렸네요! Dennis 2013.05.03 15006



XE Login