9.67 EXPONENTIAL

注意: 9.1 組み込み関数の規則      利用オプション

基数を指数で累乗して指数計算を実行します。

 

引数

番号 タイプ 必須/任意 記述  最小長 最大長 最小小数桁数 最大小数桁数 1 N 必須 基数の整数部。小数部と13桁目を超える整数部は無視されます。 1 15 0 9 2 N 必須 基数の小数部。整数部と5桁目を超える小数部は無視されます。 1 15 0 9 3 N 必須 指数の整数部。小数部と13桁目を超える整数部は無視されます。 1 15 0 9 4 N 必須 指数の小数部。整数部と5桁目を超える小数部は無視されます。 1 15 0 9 5 A 任意 結果の丸めが必要 値：Y または N デフォルト：N 注：小数第5位を丸める 1 1

戻り値

番号 タイプ 必須/任意 記述 最小長 最大長 最小小数桁数 最大小数桁数 1 N 必須 結果の整数部。確かな値は13桁目まで 1 15 0 9 2 N 必須 結果の小数部。確かな値は5桁目まで 1 15 0 9 3 A 任意 戻りコード 値： Y = 正しい結果が戻された N = エラーが発生した 1 1

例

2.345の5.67乗を、小数点以下第5位までを確かな値として計算します。

USE        BUILTIN(EXPONENTIAL) WITH_ARGS(2  0.345   5  0.67)  
           TO_GET(#DIGITS #DECIMALS)
CHANGE     FIELD(#RESULT) TO('#DIGITS + #DECIMALS')
 

パック10進数(15,5)の基数およびパック10進数(5,2)の指数をワークステーションから読み取り、結果をパック10進数(15,5)としてユーザーに表示します。

DEFINE     FIELD(#BASE) TYPE(*DEC) LENGTH(15) DECIMALS(5) LABEL('Base :') EDIT_CODE(3)
DEFINE     FIELD(#EXPN) TYPE(*DEC) LENGTH(5) DECIMALS(2) LABEL('Exponent :') EDIT_CODE(3)
DEFINE     FIELD(#RDGT) TYPE(*DEC) LENGTH(10) DECIMALS(0)
DEFINE     FIELD(#RDEC) TYPE(*DEC) LENGTH(5) DECIMALS(5)
DEFINE     FIELD(#RSLT) TYPE(*DEC) LENGTH(15) DECIMALS(5) LABEL('Result   :') EDIT_CODE(3)
REQUEST    FIELDS(#BASE #EXPN)
USE        BUILTIN(EXPONENTIAL) WITH_ARGS(#BASE #BASE  #EXPN #EXPN) TO_GET(#RDGT #RDEC)
CHANGE     FIELD(#RSLT) TO('#RDGT + #RDEC')
DISPLAY    FIELDS(#BASE #EXPN #RSLT)