검색어 입력폼

[메스메디카] 원의 둘레 길이 구하기 (메스메디카)

등록일 2004.07.11 파일확장자기타파일 (nb) | 10페이지 | 가격 500원

*해당 문서는 미리보기가 지원되지 않습니다.

소개글

원의 둘레길이를 다각형의 둘레길이를 구하는 방식으로 무한 반복하여 오차를 구해낸다

목차

없음

본문내용

neo[d_, n_] :=
Module[{a, ny, er, w, p, q}, w[1] = d; r = 5; cy = 2 Pi r;
p = ParametricPlot[{r Cos[t], r Sin[t]}, {t, 0, 2Pi},
AspectRatio -> Automatic];
While[For[i = 1, i <= n, i++, w[i] = i + 2; a[i] = (2Pi)/w[i];
ny[i] = w[i](2^(1/2) r (1 - Cos[a[i]])^(1/2)); er[i] = N[cy - ny[i]];
q = Table[
Graphics[{Line[{{r Cos[a[i] (t - 1)],
r Sin[a[i] (t - 1)]}, {r Cos[a[i] (t)],
r Sin[a[i] (t)]}}]}], {t, 1, w[i]}]; Show[{p, q}]
]];
TableForm[Table[{w[i], ny[i], cy, er[i]}, {i, 1, n}],
TableHeadings -> {None, {"n", "근사값", "실면적", "오차"}}]]

참고 자료

없음
다운로드 맨위로