radToDeg関数

本ページには広告が含まれています。

弧度法(Radian)を度数法(Degree)に変換します。度数法を弧度法に変換するにはdegToRad関数 (自作関数)を使います。

構文
  1. Double = radToDeg( 数値 )
引数
数値 必須
角度(弧度法)
戻り値
弧度法から度数法に変換します。

プログラム

UWSC
//////////////////////////////////////////////////
// 【引数】
//   数値 : 角度(弧度法)
// 【戻り値】
//   弧度法から度数法に変換します。
//////////////////////////////////////////////////
FUNCTION radToDeg(rad)
	WITH Decimal
		pr = .precision
		.precision = 12
		RESULT = .times(rad, .dividedBy("180", .PI))
		.precision = pr
	ENDWITH
FEND

解説

    3行目
    UWSC
    現在の精度(precision)をprに代入
    4行目
    UWSC
    精度(precision)を25桁に変更
    5行目
    UWSC
    radに\(\frac{180}{\pi}\)を掛けて弧度法を度数法に変換した値をRESULTに代入
    6行目
    UWSC
    精度を元々設定していた値に戻す

弧度法から度数法への変換式

弧度法で表された角度[°]を度数法へ変換するには、以下に表す式のようになります。

\[\theta[\rm{°}] = \theta[\rm{rad}] \times \frac{180}{\pi}\]

使い方

弧度法の\(\frac{\pi}{2}\)ラジアンを度数法に変換します。

円周率はDecimalモジュール (自作関数)に定義されています。

UWSC
PRINT radToDeg(Decimal.PI / 2)
結果
プレーンテキスト
90

弧度法の\(\pi\)ラジアンを度数法に変換します。

UWSC
PRINT radToDeg(Decimal.PI)
結果
プレーンテキスト
180

弧度法の\(1\)ラジアンを度数法に変換します。

UWSC
PRINT radToDeg(1)
結果
プレーンテキスト
57.2957795131

関連記事

degToRad関数 (自作関数)
度数法から弧度法に変換します。
ARCCOS関数 (スクリプト関数)
引数の逆余弦を求めます。
ARCSIN関数 (スクリプト関数)
引数の逆正弦を求めます。
ARCTAN関数 (スクリプト関数)
引数の逆正接を求めます。
normalizeAngle関数 (自作関数)
度単位の角度を0~360度に正規化します。
decToHex関数 (自作関数)
10進数を16進数に変換します。負数・小数の値にも対応しています。
binToHex関数 (自作関数)
2進数を16進数に変換します。負数・小数の値にも対応しています。
hexToBin関数 (自作関数)
16進数を2進数に変換します。負数・小数の値にも対応しています。
decToBin関数 (自作関数)
10進数を2進数に変換します。負数・小数の値にも対応しています。
COS関数 (スクリプト関数)
引数の余弦を求めます。