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
아래 김도현 교수님의 정수 연산 버전을 이용하였고 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}
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
274 | 게시판 질문을 위한 최소예제 만들기 | karnes | 2014.12.17 | 26573 |
273 | TeXML [3] | yihoze | 2010.03.04 | 26772 |
272 |
[공지] 최근 ko.TeX 및 oblivoir 업데이트 (2013. 9. 30)
[4] ![]() | Progress | 2013.09.30 | 26901 |
271 |
[잡담] 파이데이...
[6] ![]() | karnes | 2010.03.14 | 26938 |
270 |
TeX, ePub 그리고 수식
[10] ![]() | 에드 | 2012.02.05 | 27012 |
269 | MiKTeX 2.9에 ko.TeX이 패키징되었습니다 | nanim | 2013.11.02 | 27099 |
268 |
최현배 한글 풀어쓰기
[21] ![]() | Tzetachi | 2019.04.13 | 27378 |
267 |
[홈페이지] 설치 페이지에서
[1] ![]() | Progress | 2009.12.30 | 27500 |
266 | Pro Git책 PDF버전 | 에드 | 2012.04.09 | 27558 |
265 | TeX Live 2012 pretest [9] | ndh | 2012.05.15 | 27627 |
264 | KTUG Companion | 에드 | 2012.01.05 | 27727 |
263 | ibook author에 관련해서 .. | beavim | 2012.02.06 | 27778 |
262 |
[잡담] 옛날 글타래를 보다가...
[4] ![]() | Progress | 2010.03.16 | 27811 |
261 |
초보자용 연습문제
![]() | karnes | 2010.03.16 | 27861 |
260 | 텍관리자님 메일 문제 [2] | z0nam | 2011.11.15 | 27901 |
259 | TeXLive 2011 발표되었네요.. | 양사장 | 2011.07.29 | 27911 |
258 |
재미로 해보는 피보나치 수열
[14] ![]() | nanim | 2015.01.09 | 27960 |
257 | [요청] 관리자님께, 스팸 댓글 등에 관하여 [2] | karnes | 2010.04.29 | 28042 |
256 |
매뉴얼 스타일
[13] ![]() | yihoze | 2010.03.03 | 28223 |
255 | winedt 7 나왔나봅니다. [2] | beavim | 2012.03.21 | 28294 |