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>가 들어가므로 용도에 맞게 나누어 쓸 수 있습니다.

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

2011.06.18 15:11

karnes 조회 수:4713

아래 김도현 교수님의 정수 연산 버전을 이용하였고 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 


번호 제목 글쓴이 날짜 조회 수
298 텍관리자님 메일 문제 [2] z0nam 2011.11.15 27922
297 TeX의 아름다움을 느끼며.... [1] 2011.11.03 31533
296 KTUG 10주년을 기념하여, KTUG와 첫 인연이었던 글을 찾아보면? [3] file 샘처럼 2011.11.02 38802
295 사랑하는 progress님.. 아직도 삐치셨나.. ㅡ.ㅜ~ [1] 2011.11.03 37667
294 이쯤에서 다시 읽어보는 옛날 글 ^^ [2] nova de hi 2011.11.01 36060
293 TeXLive 2011 좀 간단하게 설치하고 쓰기 (Windows) karnes 2011.10.27 5255
292 [고전소설] 전운치전 [4] file nova de hi 2011.10.01 35474
291 KTUG 10주년 기념행사? [3] nova de hi 2011.10.10 36462
290 Windows 7 (64bit) ko.TeX Live 2011 Font cache problem [1] file nova de hi 2011.10.10 41800
289 ifthen, calc를 대신하는 etoolbox file karnes 2011.10.07 4493
288 naver에서 나눔글꼴 eco 를 공개하였습니다. file 샘처럼 2011.10.08 35539
287 [TIP] Sumatrapdf에서 texmaker로 inverse search karnes 2011.09.29 5099
286 텍에 관한 질문이 아니고 FAQ 사이트에 관한 글입니다. 맥사용자 2011.09.29 34562
285 lualatex 실행을 방해하는 이상한 truetype 폰트 karnes 2011.09.23 4593
284 팀 블로그에 대한 단상 [2] Progress 2011.09.06 28932
283 윈도우즈 8 dev preview에서 테스트해봤습니다. [2] 에드 2011.09.19 22569
282 pdfjam 사용법 몇가지 DohyunKim 2011.09.19 4528
281 [공지] ko.TeX Live 2010 발표 [11] 관리자 2010.11.07 189449
280 시 한 편 감상 file nova de hi 2011.09.07 24050
279 pdf의 특정 페이지를 그림으로 넣기 DohyunKim 2011.09.01 4514



XE Login