Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

[ Image Removed |../../index.htm#lansa/exponential.htm]
現在地:

...

9.67 EXPONENTIAL

Note

注意

...

 9.1

...

組み込み関数の規則     利用オプション

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

引数

番号

タイプ

必須/任意

記述 

最小長

最大長

最小小数桁数

最大小数桁数

1

N

必須

基数の整数部。小数部と13桁目を超える整数部は無視されます。

基数の整数部

小数部と13桁目を超える整数部は無視されます。

1

15

0

9

2

N

必須

基数の小数部。整数部と5桁目を超える小数部は無視されます。

基数の小数部

整数部と5桁目を超える小数部は無視されます。

1

15

0

9

3

N

必須

指数の整数部

指数の整数部。小数部と13桁目を超える整数部は無視されます。

小数部と13桁目を超える整数部は無視されます。

1

15

0

9

4

N

必須

指数の小数部

指数の小数部。整数部と5桁目を超える小数部は無視されます。

整数部と5桁目を超える小数部は無視されます。

1

15

0

9

5

A

任意

結果の丸めが必要

値:Y または N
デフォルト:N 

デフォルト:N
Note
注:小数第5位を丸める

注:小数第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        BUILTIN67乗を、小数点以下第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としてユーザーに表示します。 

     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)