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

  • 로그인 없이 자유롭게 글을 읽고 쓸 수 있는 철학은 처음과 같이 계속됩니다.
  • Team Blog의 글을 이곳 게시판의 "정보글"로 모았습니다. Team blog는 기고자가 올린 글에 질문을 받는 부담을 줄이기 위하여 댓글을 허용하지 않았습니다. 그러나 이곳 게시판으로 모으면서 댓글을 달 수 있습니다. 게시물을 작성하실 때 댓글을 원하지 않으시면 댓글을 허용하시지 않으시기를 바랍니다. 또한 불필요한 소모성 댓글을 달지 않도록 주의하여 주시기를 바랍니다.
  • TeX과 관련된 질문이나 답변은 QnA 마당을 이용하십시오. TeX과 관련된 질문은 지웁니다
  • MathJax를 이용한 수식조판을 사용하실 수 있습니다. 여기를 참조하세요.
  • 스팸 글을 막기 위하여 짧은 시간 내에 다시 글이 등록되는 IP를 막거나, 광고 글을 막기 위하여 금지어로 .com, .net 등을 설정하고 있습니다. 다소간의 불편함이 있으시더라도 양해 바랍니다.
    • 금지어에서 stackexchange, stackoverflow.com ctan.org등은 해제하였습니다.
  • 사용하는 편집기는 CKeditor입니다. 편집기에서 [enter]를 누르면 <p> 태그가 들어가고, 문단으로 생각하고 한줄을 비웁니다. 글줄만 바꾸려면 shift-enter 를 누르시면 <BR>가 들어가므로 용도에 맞게 나누어 쓸 수 있습니다.

정보글 파이 구하기: 시각화 버전

2011.06.18 15:11

karnes 조회 수:3128

아래 김도현 교수님의 정수 연산 버전을 이용하였고 tikz로 그림을 그렸다. pdflatex으로는 될 수도. xelatex으로는 전혀 안 됨.


% !TEX TS-program = lualatex

\documentclass{oblivoir}


\usepackage{tikz}


\newcount\N   \N=1000                      % 총시행횟수. 10^n

\newcount\n   \n=0                            % 현재시행횟수

\newcount\hit \hit=0                          % Hit

\newcount\outhit

\newcount\rr  \rr\numexpr10000*10000\relax    % 상수 r^2

\newcount\p   \newcount\q                     % 난수 담을 변수

\def\rand#1{#1=\pdfuniformdeviate10001\relax} % 난수 발생기

\def\dmark#1{#1.}                


\begin{document}


\null\vfil


\begin{tikzpicture}[overlay,remember picture,scale=10]

\filldraw [fill=green!20,draw=red!60] (1,0) arc (0cm:90:1cm);

\filldraw [fill=green!20,draw=green!20] (0,0) -- (1,0) -- (0,1);

\draw [->] (-.2,0) -- (1.2,0);

\draw [->] (0,-.2) -- (0,1.2);

\draw [draw=blue!20] (1,0) -- (1,1);

\draw [draw=blue!20] (0,1) -- (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

\draw (\p/10000,\q/10000) circle (.05pt);

\repeat

\global\outhit=\hit

\end{tikzpicture}


\[

\pi \approx \expandafter\dmark\the\numexpr4*\outhit\relax

\]


\end{document}


screen-capture.png 


번호 제목 글쓴이 날짜 조회 수
공지 [공지] 2020 한국텍학회 제13차 정기총회 및 학술대회 [11] yihoze 2020.01.10 625
공지 KTUG 사설저장소 브라우저 베이드프즈 2017.07.16 69562
공지 장애 복구 안내 [9] 관리자 2017.05.04 73065
공지 TeX Live 2019 설치 안내 [9] 관리자 2016.06.05 111986
293 [공지] ko.TeX Live 2011 발표 [9] 관리자 2011.07.29 138611
292 TeXLive 2011 발표되었네요.. 양사장 2011.07.29 27110
291 noweb, dot, 그리고 LaTeX을 위한 dot2tex 양사장 2011.07.28 25037
290 상용로그표 : 루아텍 버전 DohyunKim 2011.07.14 3729
289 상용로그표 file karnes 2011.07.13 3652
288 Right to Left DohyunKim 2011.07.12 2934
287 windows에서 jbig2을 이용한 pdf만들기 file 샘처럼 2011.07.09 41413
286 XeLaTeX 한글 문서에서 한자와의 베이스라인 맞추기 karnes 2011.07.06 3912
285 \vsplit : 수직 박스 쪼개기 [6] DohyunKim 2011.07.06 4043
284 \unexpanded 와 etoolbox 패키지 DohyunKim 2011.07.05 2969
283 추억의 문서 <글쓰기와 병법> [1] file nova de hi 2011.07.04 28603
282 hcrnumbers를 oblivoir enumerate에서 쓰기 file karnes 2011.06.29 3011
281 함초롬의 nalt 속성을 이용해보자 file DohyunKim 2011.06.29 2983
280 추억의 문서 [생활한자] [5] nova de hi 2011.06.27 37438
279 \XeTeXinputnormalization DohyunKim 2011.06.27 2940
278 jbig2 사용법 file DohyunKim 2011.06.22 3431
277 graphicx 패키지 안 쓰고 이미지 삽입하기 DohyunKim 2011.06.22 3362
276 $$ 를 쓸까? \[ 를 쓸까? file DohyunKim 2011.06.21 2937
» 파이 구하기: 시각화 버전 file karnes 2011.06.18 3128
274 난수로 괘를 뽑아보았다 file karnes 2011.06.15 2947



XE Login