[指数関数を使ってみる]

指数関数です。
普段使うことはないかもしれませんが・・・

【ソースコード】

[tips0019.vbs]
Option Explicit

Dim dblDeg2Rad  ' 度→ラジアン変換用
dblDeg2Rad = 4 * Atn(1) / 180

' 指数関数
WScript.Echo "Y=EXP(X) のとき X=LOG(Y)"
WScript.Echo "X = " & dblDeg2Rad * 30
WScript.Echo "Y = " & Exp(dblDeg2Rad * 30)
WScript.Echo "X = " & Log(Exp(dblDeg2Rad * 30))

【実行結果】

C:\> cscript //NoLogo tips0019.vbs
Y=EXP(X) のとき X=LOG(Y)
X = 0.523598775598299
Y = 1.68809179496447
X = 0.523598775598299