1 2倍角の公

以下の2倍角の公式を、数値計算により、確認せよ。

$$\cos(2\theta)=\cos^2(\theta)-\sin^2(\theta)$$ (1)

• $\theta=0$〜$2\pi$を360等分して、式(1)の 両辺を計算すること。
• 出力は、教科書のP.104と同じようにすること。

このプログラムは、教科書の例題5.1(P.103)とほとんど同じである。組み込み 関数の三角関数を使う問題である。三角関数の実引数の単位は、ラジアン (rad)であることに注意すれば、後は簡単である。通常、自然科学で三角関数 を使うときは、その単位はラジアン(rad)である。度(degree)になることは、 滅多に無い。プログラムは、以下のようになる。

      PROGRAM EX_1_1_1
      REAL R,U,V,X

      WRITE(6,600)
  600 FORMAT('    X      R',5X,'COS(2*R)',5X,'COS(R)**2-SIN(R)**2')
	
      X=0.0

    1 R=X*3.1415924/180.0
      U=COS(2*R)
      V=COS(R)**2-SIN(R)**2
      WRITE(6,601)X,R,U,V
  601 FORMAT(F5.1,2X,F5.3,E16.8,2X,E16.8)
      X=X+1.0
      IF(X.LE.360)GO TO 1

      STOP
      END

ホームページ: Yamamoto's laboratory
著者: 山本昌志