Google
オフコン練習帳内を検索
インターネット全体を検索

NECオフコン関連
オフコン一般
情報

[掲示板に戻る]

Re:ルート（平方根）の計算って がしまる 2005-8-16 11:13
Re:ルート（平方根）の計算って bluelion 2005-8-18 9:26
Re:ルート（平方根）の計算って 苦労人 2006-2-9 16:32

5 Re:ルート（平方根）の計算って
がしまる 2005-8-16 11:13  [返信] [編集]

> 一つ確認していただきたいのですが、Ａ，Ｂは 9V9(7)　のように

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



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

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



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

　勉強になりました

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

　
7 Re:ルート（平方根）の計算って
苦労人 2006-2-9 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.

BluesBB ©Sting_Band