ルート（平方根）の計算って
1:ルート（平方根）の計算って
がしまる 06/06 16:48
はじめまして。

ITOS時代からCOBOLでシステム開発をしておりますが

（現在はA-VX�検�

COBOLではルート（平方根）の計算はできないでしょうか？

現在は自分で作ったルーチンで計算させておりますが、

いまいち頼りない感じです・・・(泣）



なにか、良い方法ってありますかね？


2:Re:ルート（平方根）の計算って
温泉好きのうさぎ 06/07 13:39
べき乗を使って、

ＣＯＭＰＵＴＥ　Ａ　＝　Ｂ　＊＊　０．５

とすればいいんじゃないでしょうか。



ただし、ＲＯＵＮＤＥＤの指定がないと、Ｂ＝４のときに、

Ａ＝１．９９９９９９９　　になってしまいます。
3:Re:ルート（平方根）の計算って
がしまる 07/04 17:02




>
> �T
> �U瘋


��A-VX
0
BA1

�T-2
��0

4:Re:ルート（平方根）の計算って
Tama 07/04 20:38
一つ確認していただきたいのですが、Ａ，Ｂは 9V9(7)　のように

小数点以下も定義されているでしょうか？
5:Re:ルート（平方根）の計算って
がしまる 08/16 11:13
> 一つ確認していただきたいのですが、Ａ，Ｂは 9V9(7)　のように

> 小数点以下も定義されているでしょうか？



はい。定義しています。しかしながら、前述のようにうまく計算されません。

困って、オフコンの購入元の大塚商会に確認しましたら、平方根の計算はA-VXのCOBOLはサブプログラム等を作成しないと出来ないそうです。
6:Re:ルート（平方根）の計算って
bluelion 08/18 09:26


> 困って、オフコンの購入元の大塚商会に確認しましたら、平方根の計算はA-VXのCOBOLはサブプログラム等を作成しないと出来ないそうです。

　勉強になりました

　ＮＥＣもFORTRANあるんだから、標準でサブルーチン化して提供すればと思うのは私だけでしょうか？

　
7:Re:ルート（平方根）の計算って
苦労人 02/09 16:32
>困って、オフコンの購入元の大塚商会に確認しましたら、
>平方根の計算はA-VXのCOBOLはサブプログラム等を作成しないと
>出来ないそうです。


確かに私もプログラムで対応しました。
下記のロジックで限りなく良い結果が出た気がします。



********************************************************** 
*****　　ルート計算　　　　　    　　　　　   　     ***** 
********************************************************** 
 A-ROOT-RTN.                                                
     DIVIDE  2  INTO  WK-INPUT  GIVING  WK-SYO         
                                REMAINDER  WK-AMARI.    
     MOVE  WK-SYO               TO  WK-ROOTCNT.           
     IF  WK-AMARI  NOT =  ZERO                           
         ADD  1                    TO  WK-ROOTCNT.       
     MOVE  WK-INPUT             TO  WK-Z  WK-Y.           
     PERFORM                                              
         VARYING  WK-TS4  FROM  1  BY  1                 
         UNTIL    WK-TS4  >  WK-ROOTCNT                  
             COMPUTE  WK-Z = (WK-Z + WK-Y / WK-Z) / 2    
     END-PERFORM.                                        
     MOVE  WK-Z                    TO  WK-OUTPUT.       
 A-ROOT-EXT.                                              
     EXIT.

前次1-新書板
BluesBB ©Sting_Band