삼각함수 이야기 두번째 - 덧붙이는 말

한겨레 사이언스온 2011년 3월 9일 게재 http://scienceon.hani.co.kr/archives/16043

 

수학에 더 관심있는 사람들을 위한 코멘트.

 

진자의 주기

진자의 등시성은 참이 아닌데, 단진자의 주기와 타원적분 항목에서는 진폭에 따라 어떻게 주기가 달라지는지 계산을 살펴볼 수 있다.

 

단순조화진동자

해밀턴 역학에 의한 단순조화진동자(simple harmonic oscillator) 를 다루는 것은 고전역학에서의 적분가능 모형 에서의 관련부분을 참고.

 

소리합성

마지막 부분의 소리 역시 매쓰매티카를 통하여 합성하였다.

1970036/attachments/4713197

화면조정 1000Hz.wav

신호대기음 dial_tone.wav

통화연결음 ring_back.wav

통화중 busy_tone.wav

 

가령 통화중 소리를 합성하려면, 다음과 같은 매쓰매티카 코드를 사용하고, export 명령을 써서 wav 파일을 얻을 수 있다.

 

1. g[t_] := Piecewise[{{Sin[480*2 Pi t] + Sin[620*2 Pi t],
       0 <= t <= 0.5}, {0, 0.5 <= t <= 1}}]
   For[i = 0, i < 3, i++,
    EmitSound[Play[Sin[480*2 Pi t] + Sin[620*2 Pi t], {t, 0, 0.5}]];
    EmitSound[Play[0, {t, 0, 0.5}]]]
   f[t_] := g[t] + g[t - 1] + g[t - 2]
   Play[f[t], {t, 0, 3}]
   

 

 

용수철 그림

 

[/pages/1970036/attachments/4713229 shm.gif]

 

이런 그림은 매쓰매티카로 그려졌다. 여기서 스프링의 형태야 말로 사인함수의 그래프, 거기에 움직임을 통제하기 위해 또 하나의 사인함수가 필요하다.

 

그려보고 싶은 사람은 아래를 카피해서 실행

1. PY[t_] := {0, -Sin[ t]}
   f[t_] :=
    Graphics[{FaceForm[Opacity[0.1]],
      Rectangle[{-1.5, -1.5}, {1.5, 1.5}], PointSize[.03],
      ColorData["HTML", "SlateBlue"], Point[PY[t]] ,
      ParametricPlot[{0.1 Sin[8 x],
         1.2 - x/(2 \[Pi]) (1.2 + Sin[ t])}, {x, 0, 2 \[Pi]},
        PlotStyle -> Directive[Thick, GrayLevel[.2]], Axes -> None,
        AspectRatio -> 1]1}]
   T := Table[f[t], {t, -Pi/2, 3 Pi/2, 0.1 Pi}]
   ListAnimate[T]
   

Wolfram Demonstrations Project 의 Simple Harmonic Motion of a Spring 에 나오는 코드들을 적당하게 수정했다.