[HOME]  [全部表示 会議室風]  [全部表示 保存用]  [HOME]  [リストへもどる]

一括表示


  TurboBasicで素数を表示カウントする PRIME2.EXE - konno 24/03/05-00:40 No.11135
 ┣ Re: TurboBasicで素数を表示カウントする PRIME2.EXE - としき 24/03/05-13:22 No.11137
 ┃ ┗ Re^2: TurboBasicで素数を表示カウントする PRIME2.EXE - konno 24/03/05-15:56 No.11140
 ┃ ┗ Re^3: TurboBasicで素数を表示カウントする PRIME2.EXE - としき 24/03/07-02:18 No.11147
 ┃ ┃ ┗ Re^4: TurboBasicで素数を表示カウントする PRIME2.EXE - konno 24/03/07-22:28 No.11149
 ┃ ┃ ┗ Re^5: TurboBasicで素数を表示カウントする PRIME2.EXE - としき 24/03/12-12:32 No.11160
 ┃ ┃  ┣ Re^6: TurboBasicで素数を表示カウントする PRIME2.EXE - konno 24/03/12-23:45 No.11162
 ┃ ┃  ┗ Re^6: TurboBasicで素数を表示カウントする PRIME2.EXE - としき 24/03/17-17:26 No.11164
 ┃ ┃   ┗ Re^7: TurboBasicで素数を表示カウントする PRIME2.EXE - としき 24/03/22-23:15 No.11170
 ┃ ┃    ┗ Re^8: N88-BASICで素数を表示カウントする PRIME88.BAS - としき 24/03/24-15:59 No.11172
 ┃ ┃     ┣ Re^9: N88-BASICで素数を表示カウントする PRIME88.BAS - konno 24/03/25-02:00 No.11173
 ┃ ┃     ┃┃┣ Re^10: N88-BASICで素数を表示カウントする PRIME88.BAS - としき 24/03/25-23:13 No.11174
 ┃ ┃     ┃┃┗ PRIME88.BAS で 「169=素数?」問題 - konno 24/03/26-20:11 No.11175
 ┃ ┃     ┃┃┃┃┣ Re: PRIME88.BAS で 「169=素数?」問題解決か - konno 24/03/27-22:56 No.11177
 ┃ ┃     ┃┃┃ ┗ Re: PRIME88.BAS で 「169=素数?」問題 - としき 24/04/05-02:07 No.11192
 ┃ ┃     ┃┃┃ ┗ Re^2: PRIME88.BAS で 「169=素数?」問題 - konno 24/04/06-02:05 No.11195
 ┃ ┃     ┃┃┃  ┣ Re^3: PRIME88.BAS で 「169=素数?」問題 - としき 24/04/06-11:27 No.11198
 ┃ ┃     ┃┃┃  ┗ Re^3: PRIME88.BAS で 「169=素数?」問題 - としき 24/04/06-14:51 No.11199
 ┃ ┃     ┃┃┃   ┗ Re^4: PRIME88.BAS で 「169=素数?」問題 - としき 24/04/06-23:09 No.11200
 ┃ ┃     ┃┃┃    ┗ Re^5: PRIME88.BAS で 「169=素数?」問題 - としき 24/04/07-01:17 No.11202
 ┃ ┃     ┃┃┃     ┗ Re^6: PRIME88.BAS で 「169=素数?」問題 - konno 24/04/07-20:41 No.11203
 ┃ ┃     ┃┃┃      ┗ Re^7: PRIME88.BAS で 「169=素数?」問題 - konno 24/04/08-01:46 No.11204
 ┃ ┃     ┃┃┃       ┗ Re^8: PRIME88.BAS で 「169=素数?」問題 - としき 24/04/08-12:28 No.11205
 ┃ ┃     ┃┃┃        ┗ SQRの単精度と倍精度の表示検証ソース - konno 24/04/08-23:33 No.11206
 ┃ ┃     ┃┃┃         ┗ Re: SQRの単精度と倍精度の表示検証ソース - としき 24/04/09-15:06 No.11207
 ┃ ┃     ┃┃┃          ┗ Re^2: SQRの単精度と倍精度の表示検証ソース - konno 24/04/09-22:44 No.11208
 ┃ ┃     ┃┃┃           ┗ Re^3: SQRの単精度と倍精度の表示検証ソース - としき 24/04/10-17:44 No.11209
 ┃ ┃     ┃┃┃            ┣ Re^4: SQRの単精度と倍精度の表示検証ソース - konno 24/04/10-21:56 No.11210
 ┃ ┃     ┃┃┃            ┃ ┗ Re^5: SQRの単精度と倍精度の表示検証ソース - としき 24/04/10-23:25 No.11211
 ┃ ┃     ┃┃┃            ┃ ┗ Re^6: SQRの単精度と倍精度の表示検証ソース - konno 24/04/11-20:13 No.11213
 ┃ ┃     ┃┃┃            ┗ Re^4: SQRの単精度と倍精度の表示検証ソース - としき 24/04/13-01:13 No.11215
 ┃ ┃     ┃┃┃             ┗ Re^5: SQRの単精度と倍精度の表示検証ソース - konno 24/04/13-22:03 No.11216
 ┃ ┃     ┃┃┃              ┗ Re^6: SQRの単精度と倍精度の表示検証ソース - としき 24/04/14-12:14 No.11218
 ┃ ┃     ┃┃┃               ┗ Re^7: SQRの単精度と倍精度の表示検証ソース - konno 24/04/15-01:15 No.11219
 ┃ ┃     ┃┃┃                ┗ Re^8: SQRの単精度と倍精度の表示検証ソース - としき 24/04/15-13:56 No.11220
 ┃ ┃     ┃┃┃                 ┗ Re^9: SQRの単精度と倍精度の表示検証ソース - konno 24/04/16-00:04 No.11221
 ┃ ┃     ┃┃┃                  ┗ Re^10: SQRの単精度と倍精度の表示検証ソース - としき 24/04/16-12:22 No.11222
 ┃ ┃     ┃┃┃                   ┗ Re^11: SQRの単精度と倍精度の表示検証ソース - konno 24/04/16-23:58 No.11223
 ┃ ┃     ┃┃┃                    ┗ Re^12: SQRの単精度と倍精度の表示検証ソース - としき 24/04/17-02:14 No.11224
 ┃ ┃     ┃┃┃                     ┗ Re^13: SQRの単精度と倍精度の表示検証ソース - konno 24/04/17-23:21 No.11225
 ┃ ┃     ┃┃┣ Re^10: N88-BASICで素数を表示カウントする PRIME88.BAS - konno 24/03/27-00:26 No.11176
 ┃ ┃     ┃┃┣ Re^11: N88-BASICで素数を表示カウントする PRIME88.BAS - としき 24/03/28-00:43 No.11178
 ┃ ┃     ┃┃┃ ┗ SQRの計算式 - konno 24/03/30-15:58 No.11179
 ┃ ┃     ┃┃┃ ┗ Re: SQRの計算式 - としき 24/03/30-23:41 No.11180
 ┃ ┃     ┃┃┃  ┗ Re^2: SQRの計算式 - konno 24/03/31-22:26 No.11184
 ┃ ┃     ┃┃┗ Re^11: N88-BASICで素数を表示カウントする PRIME88.BAS - としき 24/03/31-15:48 No.11182
 ┃ ┃     ┃ ┗ Re^10: N88-BASICで素数を表示カウントする PRIME88.BAS - としき 24/03/31-14:09 No.11181
 ┃ ┃     ┗ Re^9: N88-BASICで素数を表示カウントする PRIME88.BAS - としき 24/03/31-16:08 No.11183
 ┃ ┃      ┗ Re^10: N88-BASICで素数を表示カウントする PRIME88.BAS - konno 24/04/01-00:27 No.11185
 ┃ ┃       ┣ T98-NEXT でN88BASIC検証 - konno 24/04/02-00:16 No.11186
 ┃ ┃       ┗ Re^11: N88-BASICで素数を表示カウントする PRIME88.BAS - としき 24/04/03-16:20 No.11187
 ┃ ┃        ┗ Re^12: N88-BASICで素数を表示カウントする PRIME88.BAS - konno 24/04/04-01:01 No.11189
 ┃ ┃         ┗ Re^13: N88-BASICで素数を表示カウントする PRIME88.BAS - としき 24/04/04-12:15 No.11191
 ┃ ┃          ┗ Re^14: N88-BASICで素数表示の問題 - konno 24/04/06-01:40 No.11194
 ┃ ┃           ┗ Re^15: N88-BASICで素数表示の問題 - としき 24/04/06-11:26 No.11197
 ┗ オリジナルの prime.bas のソース - konno 24/03/07-22:43 No.11150
  ┗ Re: オリジナルの prime.bas のソース - としき 24/03/10-18:50 No.11156
   ┣ Re^2: オリジナルの prime.bas のソース - konno 24/03/11-00:45 No.11158
   ┃ ┗ Re^3: オリジナルの prime.bas のソース - としき 24/03/12-02:16 No.11159
   ┃ ┗ MOD と ¥ の有効範囲 - konno 24/03/12-22:45 No.11161
   ┃  ┗ Re: MOD と ¥ の有効範囲 - konno 24/03/18-00:36 No.11165
   ┃   ┗ Re^2: MOD と ¥ の有効範囲 - としき 24/03/20-01:44 No.11166
   ┃    ┗ Re^3: MOD と ¥ の有効範囲 - konno 24/03/21-00:00 No.11167
   ┃     ┗ Re^4: MOD と ¥ の有効範囲 - としき 24/03/21-11:14 No.11168
   ┃      ┗ Re^5: MOD と ¥ の有効範囲 - konno 24/03/24-00:08 No.11171
   ┗ Re^2: オリジナルの prime.bas のソース - としき 24/03/17-17:09 No.11163
    ┗ Re^3: オリジナルの prime.bas のソース - としき 24/03/22-23:02 No.11169

(11135) 11135TurboBasicで素数を表示カウントする PRIME2.EXE  投稿者:konno   2024/03/05(火) 00:40
   コメント数 2

TurboBasicで素数を表示、カウントするプログラム PRIME2.EXE です。
元にしたのは、十進BASIC に入っていた サンプルソースです。

https://hp.vector.co.jp/authors/VA008683/
ここのダウンロードページの Windowsアーカイブ版の中の
 BASIC7868.zip (1,292,876バイト)を落として展開すると
Mathフォルダがあり、その中にある
PRIME.BAS  319bytes
を Turbo Basic で動くように改造しました。

特徴は、処理が非常に速く、桁数の制限がほぼ無いことです。
DOSVAXJ3 や MS-DOS Player の JP モードで動きます。

自己流で改造したので間違いがある可能性はあります。
指定範囲は20から 1億までにしました。
起動時オプションで動作変更できます。


PRIME.ZIP サイズ 30299bytes  24-03-01 new!

  PRIME2.EXE Ver.240301

・DOSVAXJ3 の VGAで動く 素数表示テストです。
・DOSVAXJ3 を起動したら、chev jp でVGAモードにして、PRIME2.EXE を起動してください。
・MS-DOS Player では、chej jp でVGAモードにすれば動作します。
・VTDOS では動作しません。
・ソースも付けます。
・20000000までは実行できると思います。
・数字や時間情報を SOSU.DAT に追加出力します。
・起動時オプション 1 で P000.DAT に素数を出力します。
・起動時オプション 2 で 表示もファイル出力もしません。カウントのみ。
・起動時オプション 100以上で 指定した数字で間欠カウント表示。若干速くなるかも。
・数字が大きくなると時間が掛かるので、初めは 1000くらいから始めてください。

・更新履歴
2024-03-03 V2 バグ取りやファイル出力やオプション追加など。
2024-02-27 V1 とりあえず作成

 動作保証はでき無いので実行は自己責任で。  
http://tamaneko.world.coocan.jp/execom.htm

      - No.11135 -    このTreeへ           [リストへもどる] soft

(11135) 11137Re: TurboBasicで素数を表示カウントする PRIME2.EXE  投稿者:としき   2024/03/05(火) 13:22
参照先:http://toshiki.la.coocan.jp/
    11135 番 konno さんへのコメント    コメント数 1

> 自己流で改造したので間違いがある可能性はあります。

プログラムの中身はぜんぜん読めていませんが。

> ・起動時オプション 1 で P000.DAT に素数を出力します。
> ・起動時オプション 2 で 表示もファイル出力もしません。カウントのみ。

ソースリスト冒頭のコメントで

' IF DSP=1 THEN print '画面出力
' IF DSP=1 THEN print out dat 'ファイル出力
' IF DSP=2 THEN no print 'カウントのみ

となっているのですが、これはコメントが間違っているのかな。

      - No.11137 -    このTreeへ    コメント元:11135 へ [リストへもどる] pre

(11135) 11140Re^2: TurboBasicで素数を表示カウントする PRIME2.EXE  投稿者:konno   2024/03/05(火) 15:56
    11137 番 としき さんへのコメント    コメント数 1

> ソースリスト冒頭のコメントで
> ' IF DSP=1 THEN print '画面出力
> ' IF DSP=1 THEN print out dat 'ファイル出力
> ' IF DSP=2 THEN no print 'カウントのみ
> となっているのですが、これはコメントが間違っているのかな。

コメントの間違いにコメントするなんて、鬼畜ですぅ。(;_;)
もちろん1行目は ゼロのつもりだったんですぅ。
日付や指定範囲などもおかしいような気がするけど気にしない。(^^;

      - No.11140 -    このTreeへ    コメント元:11137 へ [リストへもどる] pre

(11135) 11147Re^3: TurboBasicで素数を表示カウントする PRIME2.EXE  投稿者:としき   2024/03/07(木) 02:18
参照先:http://toshiki.la.coocan.jp/
    11140 番 konno さんへのコメント    コメント数 1

> コメントの間違いにコメントするなんて、鬼畜ですぅ。(;_;)

いや、なんとなく間違っていそうだとは思ったけど、確信がもてなかったのですよ。
だって、#11135

> ・起動時オプション 1 で P000.DAT に素数を出力します。
> ・起動時オプション 2 で 表示もファイル出力もしません。カウントのみ

とはあったけど、起動時オプション 0 があるとは書いてなかったもので。

> 日付や指定範囲などもおかしいような気がするけど気にしない。(^^;

日付や範囲指定については、まだ見てもいない。
それより気になった部分がいくつかあって。
例えば、表示する素数の数の入力を求めるプロンプト、日本語の部分がコメント
になっていますが、これはなぜそうしているのか、とか。
メインというか j のループからは結構強引な脱出をしているな、とか。
そのループのコメントの「i;:c=c+1」っていったいなんだろう、とか。
outputのコメント、なんで素数が1個でも10000000個でも時間が同じなのかな、
とか。もしかしたら違うのかもしれないけど、この表現ではそれ以外の意図は
読み取れない。
タイマーのサブルーチンの冒頭、謎のif文がコメントアウトされているけど、
これはいったいなんだろう、とか。

一般にコードの概要をつかむにはコメント文が有効のはずなんだけど、全く有効に
見えない気がする。

      - No.11147 -    このTreeへ    コメント元:11140 へ [リストへもどる] soft

(11135) 11149Re^4: TurboBasicで素数を表示カウントする PRIME2.EXE  投稿者:konno   2024/03/07(木) 22:28
    11147 番 としき さんへのコメント    コメント数 1

> だって、#11135
> > ・起動時オプション 1 で P000.DAT に素数を出力します。
> > ・起動時オプション 2 で 表示もファイル出力もしません。カウントのみ
> とはあったけど、起動時オプション 0 があるとは書いてなかったもので。

お察しの通りオプション 0 はありません。(^^;
あ、P000.DAT も S000.DAT の間違いですね。P000 は PRIME2 の方でした。(>_<)

> 例えば、表示する素数の数の入力を求めるプロンプト、日本語の部分がコメント
> になっていますが、これはなぜそうしているのか、とか。

最初日本語で書いたけどUSモードだと表示しないとか色々面倒なのでコメントにしてしまい
そのまま放置してました。(^^;

> メインというか j のループからは結構強引な脱出をしているな、とか。

これは良くない抜け方でしたね、気が向けば直します。(^^;

> そのループのコメントの「i;:c=c+1」っていったいなんだろう、とか。

これは元は PRINT文だったのを、PRINT1: というサブルーチンに変更したので

IF j>SQR(i) THEN gosub PRINT1 i;:c=c+1 ' 素数

IF j>SQR(i) THEN gosub PRINT1 'i;:c=c+1 ' 素数

こういうように、コメントで手抜きをしてました。(^^;
まあ、飛び先でやってることをコメントに残したとも言えなくもないし。(^^;

> outputのコメント、なんで素数が1個でも10000000個でも時間が同じなのかな、
> とか。もしかしたら違うのかもしれないけど、この表現ではそれ以外の意図は
> 読み取れない。

'Number.1 0: 0' 4 Prime Number = 9592
'Number.10000000 0: 0' 4 Prime Number = 9592

これですね、Prime Number が同じということでお察しください。(^^;
手抜きの残骸だったのかなんなのか、今はもうわからないです。(^^;

> タイマーのサブルーチンの冒頭、謎のif文がコメントアウトされているけど、
> これはいったいなんだろう、とか。

これも借り物のルーチンの残骸ですね。他人に見せることは全く意識してないのです。

> 一般にコードの概要をつかむにはコメント文が有効のはずなんだけど、全く有効に
> 見えない気がする。

私のソースはこんなのばっかりなので、元々は公開する気も無かったんですがねぇ。(^^;
出来る範囲で改善するようにします。m(__)m

      - No.11149 -    このTreeへ    コメント元:11147 へ [リストへもどる] pre

(11135) 11160Re^5: TurboBasicで素数を表示カウントする PRIME2.EXE  投稿者:としき   2024/03/12(火) 12:32
参照先:http://toshiki.la.coocan.jp/
    11149 番 konno さんへのコメント    コメント数 2

> これですね、Prime Number が同じということでお察しください。(^^;
> 手抜きの残骸だったのかなんなのか、今はもうわからないです。(^^;

いや、konnoさんがわからないくらいですから、私にも察することはできません。
それはさておき。
マジでN88-BASICに移植することを考えています。
で、まだ逐語的な変換には手をつけていないのですが。
気になったのがここ。

if dsp=1 then print#1,"":gosub 1010
if n>2000 then gosub 1000 'output

dsp=1 かつ n>2000 のときは2回出力されるようなんですが、これって仕様的に
なんとなく妙な気がします。これで正しいのですよね?
あと、変数 j2 と j3 も、何をやっているのかよくわからない。
この2つを足し算しているところもあるし。

      - No.11160 -    このTreeへ    コメント元:11149 へ [リストへもどる] pre

(11135) 11162Re^6: TurboBasicで素数を表示カウントする PRIME2.EXE  投稿者:konno   2024/03/12(火) 23:45
    11160 番 としき さんへのコメント

> マジでN88-BASICに移植することを考えています。
> で、まだ逐語的な変換には手をつけていないのですが。

私も気になったので、NP2 でやってみました。(^^;
N88BASIC.EXE は画面がピンクになって動かないみたいです。(>_<)
BASIC.COM がコンパイラなんですね。無事コンパイルしたのを実行したら、
入力した数字が素数かどうかを表示するのですね。(^^;

> 気になったのがここ。
> if dsp=1 then print#1,"":gosub 1010
> if n>2000 then gosub 1000 'output
> dsp=1 かつ n>2000 のときは2回出力されるようなんですが、これって仕様的に
> なんとなく妙な気がします。これで正しいのですよね?

もちろんまずいです。(^^; いい加減なだけでした。

> あと、変数 j2 と j3 も、何をやっているのかよくわからない。
> この2つを足し算しているところもあるし。

これですね。

810 if i<j2 then return 'dsp2でカウント表示
j2=j2+j3
820 LOCATE 5,1:PRINT i; '

j2 は表示するまでのカウント数かな?
j3 はオプションの数字で、カウントがこの数字以上になったら次の数字ぶん表示しない
という感じですかね。ほとんど意味がないようですが。(^^;

      - No.11162 -    このTreeへ    コメント元:11160 へ [リストへもどる] pre

(11135) 11164Re^6: TurboBasicで素数を表示カウントする PRIME2.EXE  投稿者:としき   2024/03/17(日) 17:26
参照先:http://toshiki.la.coocan.jp/
    11160 番 としき さんへのコメント    コメント数 1

> マジでN88-BASICに移植することを考えています。
> で、まだ逐語的な変換には手をつけていないのですが。

ぼちぼち、移植を始めています。

・コマンドラインオプションは取得できないので、プログラム冒頭で入力するように
 した
・まず真っ先にやったのは、locateのxとyの総入れ替え
・N88-BASICでは、実数型も倍精度型も扱える上限は 1.7*10^38 で差がないため、
 変数は全て単精度実数に変更
 →実は覚えていなかったけど、FOR文のカウントに使うループ変数に倍精度型は
  使えないのだとか。マニュアルに明記してあった
・私の趣味でファイル番号指定の「#1」の前には全て半角空白を入れた
 (たぶん、文法的には不要だと思うけど覚えていない)
#11160で私が指摘した謎の2つのif文はdsp=1のほうだけ残した
・ファイル出力の際に、ループ内でいちいちOPEN/CLOSEするのは非効率的だと思う
 ので、最初で開いて最後に閉じるだけにした

今の所はそんな感じ。
とりあえず、机上デバッグでどこまでできるか。
忘れていることが多すぎるなぁ。

      - No.11164 -    このTreeへ    コメント元:11160 へ [リストへもどる] soft

(11135) 11170Re^7: TurboBasicで素数を表示カウントする PRIME2.EXE  投稿者:としき   2024/03/22(金) 23:15
参照先:http://toshiki.la.coocan.jp/
    11164 番 としき さんへのコメント    コメント数 1

> ぼちぼち、移植を始めています。

ん〜、なんとなく動いているっぽい。
といいつつ、特にファイル書き込みの部分はろくに動作確認をしていないのだけど。

・N88-BASICだと、デフォルトは白黒モードなので、COLORでの色表示がうまくない。
 →おやくそくのCONSOLEでカラーモードにした。
・時間表示の部分、私の趣味で分と秒の間もコロンにした。
・エラー処理ルーチンの最後、CLSがあるとエラーで終わったことがわからなく
 なりそうだったので、これは除去した。

明示的にkonnoさんのコードに手を加えたのはこんなところかな。
あとは、各行にきちんと行番号をつけてやれば完成。
自宅に戻ったらアップロードしたいな。

      - No.11170 -    このTreeへ    コメント元:11164 へ [リストへもどる] soft

(11135) 11172Re^8: N88-BASICで素数を表示カウントする PRIME88.BAS  投稿者:としき   2024/03/24(日) 15:59
参照先:http://toshiki.la.coocan.jp/
    11170 番 としき さんへのコメント    コメント数 2

> 自宅に戻ったらアップロードしたいな。

アップロードしました。

tp://toshiki.la.coocan.jp/prime88.zip

期間限定。そのうちに削除します。

> といいつつ、特にファイル書き込みの部分はろくに動作確認をしていないのだけど。

こんな短いコードなのに、全ての条件分岐を網羅するホワイトボックステストは
行っていない。面倒になっちゃって。あぁ、横着。
とはいえ、画面表示とファイル出力の、最低限のチェックはしたので、少なくとも
一部はPC-98のDOS BASICで動作確認済み。
GOTOとGOSUBのジャンプはほとんどラベル化したので、行番号はなくても論理構造は
理解可能なはず。konnoさんのお持ちのTurboBasicなら、例えばcols.defのようなもの
を使って全ての行番号を削除しても、もしかしたらコンパイル可能かも。
ラベルの文法が違うからダメ、かな。

あと、もしかしたらほんのちょっとだけ高速化するかもしれない技術を一つ、導入
してみました。

1360 IF INT(I/2)*2 = I THEN *EXIT2
1380 WHILE (J<SQR(I)) AND (INT(I/J)*J<>I)

ここ、多くの処理系では割り算よりも掛け算のほうが速いと聞いたことがあるので、
割り算を2回するのではなく掛け算と割り算の組み合わせに変更してみました。
これでどのくらい早くなるかは測定していないからわからない。
処理系によっては、むしろ遅くなったりして。
konnoさんオリジナルのロジックよりは、使う変数も少なくなっている分だけ速く
なってるかもしれないけど、こんなもん、最近のコンパイラなら最適化してくれる
でしょ、という範囲かもしれない。
あとはまぁ、PC-88などの8ビットマシンならDMAを停めるとか、ナノピコ秒単位で
速度を稼ぐためにインデントを全て削除してマルチステートメント化するとか、
他にもいろいろと思いつく技はいくつかありますけどね。そこまではしていません。

      - No.11172 -    このTreeへ    コメント元:11170 へ [リストへもどる] pre

(11135) 11173Re^9: N88-BASICで素数を表示カウントする PRIME88.BAS  投稿者:konno   2024/03/25(月) 02:00
    11172 番 としき さんへのコメント    コメント数 3

> アップロードしました。
> tp://toshiki.la.coocan.jp/prime88.zip

早速落として NP2 で動かしてみました。
#11162
> BASIC.COM がコンパイラなんですね。
なんて書きましたが、正しくは BACICC.COM でした。
BASIC Compiler ということなのですね。(^^;

B.BAT
basicc %1.bas %1.exe %1.lib
%1.exe

これを見て間違いに気が付きました。(^^;

さて、実行してみてまず気が付いたのは、変数 MAX の表示が
1E+08
になっていました。浮動小数点の表示形式ですね。

1070 MAX=100000000#

えーと、定数の末尾に # を付けているのは倍精度指定なのですか?
変数 MAX は単精度のように思われます。

> > といいつつ、特にファイル書き込みの部分はろくに動作確認をしていないのだけど。

オプション指定 1 で ファイルがキチンと出来ました。
ただ、素数の個数が私のと違いますね。

p1000.DAT
Number.1000 0: 0' 0 Prime Number = 168

n1000.DAT  N88
Number.1000 0: 0: 1 Prime Number = 169

どちらかがカウント数を間違っているかと思い、VZで比較したら

p1000.DAT
167
173

n1000.DAT  N88
167
169 ※ この行が多い
173

169 は、13*13=169 なので、素数では無いと思います。
今日は眠いのでこれ以上の調査は明日以降ということで。(^^;

      - No.11173 -    このTreeへ    コメント元:11172 へ [リストへもどる] pre

(11135) 11174Re^10: N88-BASICで素数を表示カウントする PRIME88.BAS  投稿者:としき   2024/03/25(月) 23:13
参照先:http://toshiki.la.coocan.jp/
    11173 番 konno さんへのコメント    コメント数 1

> えーと、定数の末尾に # を付けているのは倍精度指定なのですか?
> 変数 MAX は単精度のように思われます。

おっしゃるとおりです。
変数を全て単精度指定に変更するときに修正をもらしたようです。
ただ、こちらは大勢に影響がありませんが

> 169 は、13*13=169 なので、素数では無いと思います。

こっちは大問題ですね。仕様どおりの挙動をしないのですから。
倍精度から単精度に精度を落としたことが悪いのか、それとも割り算と掛け算の
誤差の問題か。
いつ調査できるかわかりませんが、解決は図りたいと思います。

      - No.11174 -    このTreeへ    コメント元:11173 へ [リストへもどる] soft

(11135) 11175PRIME88.BAS で 「169=素数?」問題  投稿者:konno   2024/03/26(火) 20:11
    11174 番 としき さんへのコメント    コメント数 2

> > 169 は、13*13=169 なので、素数では無いと思います。
>
> こっちは大問題ですね。仕様どおりの挙動をしないのですから。
> 倍精度から単精度に精度を落としたことが悪いのか、それとも割り算と掛け算の
> 誤差の問題か。

私は当初 NP2 のCPUエミュレーション等のバグを疑いました。
それで、anex86 でも試したのですが、結果は同じ。98NEXT では固まってしまいました。

次に疑ったのが、BASICコンパイラが壊れていないか。
1988/08/24 00:00 61,440 BASICC.COM
中身が壊れているることもありうるので、98実機での結果が知りたいところですね。

条件を色々変えて試しても結果は変わらなかったのですが、ひとつだけ

N88P.BAS
100 INPUT N
110 IF N MOD 2=0 THEN 120 ELSE *ELSE1
120 IF N=2 THEN PRINT "素数" ELSE PRINT "合成数"
130 GOTO *ENDIF1
140 *ELSE1
150 I=3
160 WHILE (I<=SQR(N)) AND (N MOD I<>0)
170 I=I+2
180 WEND
190 IF I<=SQR(N) THEN PRINT "合成数" ELSE PRINT "素数"
200 *ENDIF1
202 input a
210 END

このプログラムでは、169 は「素数」と表示されます。
ところがオリジナルを若干修正した以下

PN88.BAS
100 'pn88.bas
110 defdbl a-z '倍精度指定
1000 INPUT n
1010 IF (n MOD 2)=0 THEN IF n=2 THEN PRINT "素数" ELSE PRINT "合成数"
1020 j!=sqr(n) 'ELSE
1030 FOR i!=3 TO SQR(n) STEP 2
1040 IF n MOD i!=0 THEN *EXIT1
1050 NEXT i!
1052 *EXIT1
1060 IF i!<=SQR(n) THEN PRINT "合成数";i!;j!
1062 IF i!>SQR(n) THEN PRINT "素数";i!;j!
1070 input a 'END IF
1080 END

このプログラムでは、169 は「合成数」と表示されます。
違いは、変数全体を倍精度にし、FOR 文の変数を単精度にしただけかな。
# うーん、これを反映させても改善しない。何故だー! (;_;)

      - No.11175 -    このTreeへ    コメント元:11174 へ [リストへもどる] pre

(11135) 11177Re: PRIME88.BAS で 「169=素数?」問題解決か  投稿者:konno   2024/03/27(水) 22:56
    11175 番 konno さんへのコメント

不具合の原因がわかりました。
SQR() 関数の結果判定に問題が有ったようです。

PRIME98.BAS

1320 *START
1330 TM$=TIME$
1340 I=2:GOSUB *PRINT1
1350 FOR I=3 TO N '
1360 i2=i/2:i3=int(i/2):IF i2=i3 THEN *EXIT2 ' 合成数
1370 j2=int(SQR(I)) '
1380 FOR J=3 TO j2 STEP 2 ' 偶数をスキップ
1390 I2=I/J:I3=INT(I/J):IF I2=I3 THEN *EXIT2 ' 合成数
1400 NEXT J
1410 IF J>SQR(I)+.0001 THEN GOSUB *PRINT1 '★
1420 *EXIT2
1430 NEXT I
1440 I=I-1

このように、SQR() に +0.0001 を足したら問題が解消されました。
計算精度の問題か、最小桁が切り捨てられているのでしょうか。
いくつ足せばいいのか桁を変えて試してみました。

1410 IF J>SQR(I)+.000001 THEN GOSUB *PRINT1 ng
Number.10000 0: 0:29 Prime Number = 1233
169 5041 6241 9409 ng

1410 IF J>SQR(I)+.00001 THEN GOSUB *PRINT1 ng
Number.10000 0: 0:30 Prime Number = 1232
5041 6241 9409 ng

1410 IF J>SQR(I)+.0001 THEN GOSUB *PRINT1 ok
Number.100000 0: 2:29 Prime Number = 9592

どうも N88BASIC の問題のような気がしますが、実機でどうなるか知りたいですね。

      - No.11177 -    このTreeへ    コメント元:11175 へ [リストへもどる] pre

(11135) 11192Re: PRIME88.BAS で 「169=素数?」問題  投稿者:としき   2024/04/05(金) 02:07
参照先:http://toshiki.la.coocan.jp/
    11175 番 konno さんへのコメント    コメント数 1

自分で実験できないのにあれこれ言って申し訳ありません。

> 条件を色々変えて試しても結果は変わらなかったのですが、ひとつだけ
> N88P.BAS
> ところがオリジナルを若干修正した以下
> PN88.BAS

N88P.BASとPN88.BAS、konnoさん的には「若干修正」かもしれませんが、内部的には
もしかしたら大幅な修正かもしれません。
そこで結果を教えていただきたいのが、

> PN88.BAS
> 110 defdbl a-z '倍精度指定

ここを単精度指定にしたらどうなるか、ということ。
とても興味があります。

      - No.11192 -    このTreeへ    コメント元:11175 へ [リストへもどる] pre

(11135) 11195Re^2: PRIME88.BAS で 「169=素数?」問題  投稿者:konno   2024/04/06(土) 02:05
    11192 番 としき さんへのコメント    コメント数 2

> > PN88.BAS
> > 110 defdbl a-z '倍精度指定
>
> ここを単精度指定にしたらどうなるか、ということ。
> とても興味があります。

丁度良いテストプログラムを作ったので上げます。

3000 ' SQR88.BAS
3010 'defdbl a-z
3012 defsng a-z
3020 'screen 0
3030 cls
3040 input s
3042 OPEN "SQR.dat" FOR OUTPUT AS #1
3046 cc=0
3050 x = s / 2.0 '; // Is there any better way to determine initial value?
3060 lastx = 0.0 '; // the value one before the last step
3070 'while ( x != lastx ) '// until the difference is not significant
3090 lastx = x
3100 x = (x + s / x) / 2.0
3112 cc=cc+1
3114 print x;lastx,cc
3116 print#1, x;lastx,cc
3110 if x < lastx then 3070
3120 print "SQR(";s;")=";x,lastx,cc
3122 print#1, "SQR(";s;")=";x,lastx,cc
3124 close
3130 input a
3140 end

このプログラムで、TurboBasic の結果は

単精度
43.25 84.5 1
23.57875633239746 43.25 2
15.37311267852783 23.57875633239746 3
13.18316555023193 15.37311267852783 4
13.00127220153808 13.18316555023193 5
13 13.00127220153808 6
13 13 7
SQR( 169 )= 13 13 7 回

倍精度
43.25 84.5 1
23.57875722543352 43.25 2
15.37311286945074 23.57875722543352 3
13.18316604902914 15.37311286945074 4
13.00127244856782 13.18316604902914 5
13.00000006226796 13.00127244856782 6
13 13.00000006226796 7
13 13 8
SQR( 169 )= 13 13 8 回

倍精度の方が収束するのに1回多く掛かっています。
どちらでも計算は倍精度でやっているのがわかります。
一方、N88BASIC の結果は

単精度
43.25 84.5 1
23.5788 43.25 2
15.3731 23.5788 3
13.1832 15.3731 4
13.0013 13.1832 5
13 13.0013 6
13 13 7
SQR( 169 )= 13 13 7 回

倍精度
43.25 84.5 1
23.57875722543353 43.25 2
15.37311286945074 23.57875722543353 3
13.18316604902914 15.37311286945074 4
13.00127244856782 13.18316604902914 5
13.00000006226796 13.00127244856782 6
13 13.00000006226796 7
13 13 8
13 13 9
SQR( 169 )= 13 13 9 回

おや、単精度の場合は SQR の計算も単精度なのか、それとも表示だけなのか?
倍精度では収束したのにさらにもう1回多く計算しています。???
この結果は、WHILE 文にしても同じでした。
そして、単精度の時だけ 169 が素数と誤判定しているのです。

このことから私は、「>」や「>=」などの比較式で単精度の時だけ誤差が出ていると疑ったのです。
V6.0に問題が有るかどうかは、実機で確認する以外にわからないと思います。

      - No.11195 -    このTreeへ    コメント元:11192 へ [リストへもどる] pre

(11135) 11198Re^3: PRIME88.BAS で 「169=素数?」問題  投稿者:としき   2024/04/06(土) 11:27
参照先:http://toshiki.la.coocan.jp/
    11195 番 konno さんへのコメント

> 3000 ' SQR88.BAS

これ、あとで私も検証してみます。最短で今日の午後。

> このプログラムで、TurboBasic の結果は

> どちらでも計算は倍精度でやっているのがわかります。

ダウト。

> 単精度
> 43.25 84.5 1
> 23.57875633239746 43.25 2

> 倍精度
> 43.25 84.5 1
> 23.57875722543352 43.25 2

もうここですでに値が異なります。
すなわち、表示だけ倍精度、という可能性が濃厚。

> おや、単精度の場合は SQR の計算も単精度なのか、それとも表示だけなのか?

N88の場合、仕様では、引数の型が結果の型、ということになっています。
このプログラムでは、2.0 という単精度型で割り算をしています。
ここを 2# としてみたら、もしかしたら違いが出てくる可能性があります。

      - No.11198 -    このTreeへ    コメント元:11195 へ [リストへもどる] pre

(11135) 11199Re^3: PRIME88.BAS で 「169=素数?」問題  投稿者:としき   2024/04/06(土) 14:51
参照先:http://toshiki.la.coocan.jp/
    11195 番 konno さんへのコメント    コメント数 1

実家に来ています。
うちの母、風邪気味だというのに買い物に行きたいのだとか。
母と同居しているうちの弟、免許すら持っていないので、その手の案件は私が対応。
ということで、まもなく連れ出されてしまいますが、その前に。

まず、うちのN88BASIC、コンパイラはありません。
タイムスタンプは以下。

N88BASIC EXE 161,280 87-10-30 0:00
N88BASIC LIB 178,176 86-08-14 13:51

ん〜、ライブラリのほう、もしかしたらバージョンが古いかも。
そして、この環境で

> 丁度良いテストプログラムを作ったので上げます。
> 3000 ' SQR88.BAS

このプログラムを load して list をみたら、

3050 X = S / 2! '; // Is there any better way to determine initial value?
3100 X = (X + S / X) / 2!

と、自動で変換されてしまっていました。
もしかしたらkonnoさんのところでも、この手の意図せざる自動変換が発生している
かもしれません。当然、コンパイラのほうでも。
一度、インタプリタのほうで list をたたいて、自動変換の有無を確認されたほうが
いいでしょう。

そして、読み込ませてすぐに run させたら、あれ?
konnoさんのところと実行結果が異なる。
何が異なるって、途中経過が一切表示されない。妙だな。
よくリストを見たら、結果表示がループの外に出ている。
こういうトリックはやめて欲しいけど、でも私も良くやるので人のことは言えない。
とりあえず、3110行の if 文を3123行に持ってきて、ここで時間切れ。

続きは帰宅後。
何時ぐらいになるかなぁ。

      - No.11199 -    このTreeへ    コメント元:11195 へ [リストへもどる] pre

(11135) 11200Re^4: PRIME88.BAS で 「169=素数?」問題  投稿者:としき   2024/04/06(土) 23:09
参照先:http://toshiki.la.coocan.jp/
    11199 番 としき さんへのコメント    コメント数 1

> 続きは帰宅後。

続きです。

> よくリストを見たら、結果表示がループの外に出ている。
> こういうトリックはやめて欲しいけど、でも私も良くやるので人のことは言えない。

違う。
結果表示が改行されず、同一行に上書きされているような感じ。
つまり、トリックは私が仕掛けた、ということで。
大変失礼しました。
そして、私が悪かったにもかかわらず

> とりあえず、3110行の if 文を3123行に持ってきて、ここで時間切れ。

こんなことをやったから、出力書式がめちゃくちゃ。
とりあえず、konnoさんと同じような書式にVzでそろえた結果です。

単精度2.0
43.25 84.5 1
23.5788 43.25 2
15.3731 23.5788 3
13.1832 15.3731 4
13.0013 13.1832 5
13 13.0013 6
13 13 7
SQR( 169 )= 13 13 7

倍精度2.0
43.25 84.5 1
23.57875722543353 43.25 2
15.37311286945074 23.57875722543353 3
13.18316604902914 15.37311286945074 4
13.00127244856782 13.18316604902914 5
13.00000006226796 13.00127244856782 6
13 13.00000006226796 7
13 13 8
13 13 9
SQR( 169 )= 13 13 9

念のため、2! のところを全て 2# にしてみたけど、結果は同じでした。

どうも、見たところ、結果は全て同じ。
収束したのに1回多くループを回っているところも同じ。
にもかかわらず、うちの環境では、169は素数にならない。
まだアップしたままのprime88.zipを再度落としてみて、ファイル比較して同じもので
あることも確認済み。そして、名前を変えて、新しく落としたほうを実行してみて
169が素数にならないことも確認済み。

何じゃこりゃ。

      - No.11200 -    このTreeへ    コメント元:11199 へ [リストへもどる] pre

(11135) 11202Re^5: PRIME88.BAS で 「169=素数?」問題  投稿者:としき   2024/04/07(日) 01:17
参照先:http://toshiki.la.coocan.jp/
    11200 番 としき さんへのコメント    コメント数 1

訂正、ではないような。
補足、かな。

> > よくリストを見たら、結果表示がループの外に出ている。
> > こういうトリックはやめて欲しいけど、でも私も良くやるので人のことは言えない。
>
> 違う。
> 結果表示が改行されず、同一行に上書きされているような感じ。
> つまり、トリックは私が仕掛けた、ということで。

結果表示が上書きのよう、というのはそのとおりなんですが。
結果表示がループの外、というトリックは、やっぱりkonnoさんだった。

#11195より

> 3070 'while ( x != lastx ) '// until the difference is not significant
> 3090 lastx = x
> 3100 x = (x + s / x) / 2.0
> 3112 cc=cc+1
> 3114 print x;lastx,cc
> 3116 print#1, x;lastx,cc
> 3110 if x < lastx then 3070
> 3120 print "SQR(";s;")=";x,lastx,cc
> 3122 print#1, "SQR(";s;")=";x,lastx,cc

これ、行番号順に並んでいないじゃないのよさ。
BASICの場合、行番号順に実行されるわけですから、実行時には

> 3070 'while ( x != lastx ) '// until the difference is not significant
> 3090 lastx = x
> 3100 x = (x + s / x) / 2.0
> 3110 if x < lastx then 3070
> 3112 cc=cc+1
> 3114 print x;lastx,cc
> 3116 print#1, x;lastx,cc
> 3120 print "SQR(";s;")=";x,lastx,cc
> 3122 print#1, "SQR(";s;")=";x,lastx,cc

となるわけでして。
まったくもう。
前にも書いたと思いますが、もうちょっと行番号の並びとかインデントに気を配って
プログラムを書いていただけないでしょうか。
バグが混入し易くなりますよ、と、繰り返しお伝えしていますよね。
こうやって、残り少ない人生を無駄にしてしまうわけですから。

でも、このプログラムだと、N88なら、ループ内での途中表示は全くないはず。
つまり、#11195の結果は出ないはず。
すると、あの結果はどうやって出したのだろう。
結果の出たあと、プログラムを書き換えてからアップした?
違う処理系での結果をN88での結果と間違えて書いた?



それはさておき。
ゆっくり入浴していたときにつらつらと思い出したこと。
大学時代の情報処理初級の授業で、丸め誤差と打切り誤差、桁落ち、情報落ちの
違い、なんてことをやったわけですよ。もはやほとんど覚えていませんがね。
そして、そういった誤差をなくすための方法として多倍長精度演算というのがある、
ということも思い出しました。こいつをやるとてきめんに遅くなるのですが、誤差も
非常に少なくなる。多倍長用のuBASICというのを知ったのは、確か私が大学を卒業
した直後ぐらいだったか。
多倍長っていうのは、例えば、1バイトに数字一桁しか格納しない、という方法。
実際の実装では、そんなことやっていたらメモリ効率が悪いので、1バイトに0から
99までの2桁の数字を格納する、なんていうのが多いかな。86のアセンブラにも
それようの命令があったんじゃないかな、BCD演算、というやつ。Z80にはあった
ような気がする。
そしてアセンブラにあるくらいだからBASICにもあるわけでして、もしかしたら上記
のuBASICがそうだったかもしれないけど、10進BASICという実装があったはず。

で、話を戻して、誤差。

> 3110 if x < lastx then 3070

こいつを

> 3110 if x < lastx then print "div=",lastx-x:goto 3070

とやってみたらどうでしょう。
1回多くループするところで、いったい何がおきているのか見えてくるかも。

      - No.11202 -    このTreeへ    コメント元:11200 へ [リストへもどる] pre

(11135) 11203Re^6: PRIME88.BAS で 「169=素数?」問題  投稿者:konno   2024/04/07(日) 20:41
    11202 番 としき さんへのコメント    コメント数 1

まとレスで失礼します。

> ダウト。
> > 23.57875633239746 43.25 2
> > 23.57875722543352 43.25 2
> もうここですでに値が異なります。
> すなわち、表示だけ倍精度、という可能性が濃厚。

うう、眠くてよく見てませんでした。(>_<)
表示だけ倍精度、が正解のようですね。(^^;

> N88の場合、仕様では、引数の型が結果の型、ということになっています。
> このプログラムでは、2.0 という単精度型で割り算をしています。
> ここを 2# としてみたら、もしかしたら違いが出てくる可能性があります。


> このプログラムを load して list をみたら、
> 3050 X = S / 2! '; // Is there any better way to determine initial value?
> 3100 X = (X + S / X) / 2!
> と、自動で変換されてしまっていました。

なんと! インタプリタでは精度指定の無い定数は自動的に単精度になるのですね。

> もしかしたらkonnoさんのところでも、この手の意図せざる自動変換が発生している
> かもしれません。当然、コンパイラのほうでも。
> 一度、インタプリタのほうで list をたたいて、自動変換の有無を確認されたほうが
> いいでしょう。

T-98NEXT で確認しました。やはり自動変換されます。

> よくリストを見たら、結果表示がループの外に出ている。
> 結果表示が上書きのよう、というのはそのとおりなんですが。
> 結果表示がループの外、というトリックは、やっぱりkonnoさんだった。

げげ、他のソースからコピペして行番号を変えるのを忘れてました。m(__)m
申し訳ないです。m(__)m

> 前にも書いたと思いますが、もうちょっと行番号の並びとかインデントに気を配って
> プログラムを書いていただけないでしょうか。
> バグが混入し易くなりますよ、と、繰り返しお伝えしていますよね。
> こうやって、残り少ない人生を無駄にしてしまうわけですから。

インタプリタを弄るのはもう何十年ぶりなもので、うっかりやらかしてしまいました。m(__)m
気を付けます。m(__)m

> でも、このプログラムだと、N88なら、ループ内での途中表示は全くないはず。
> つまり、#11195の結果は出ないはず。

3110番を 3118 に変更すれば正常に出力されると思うのですが
私が何か勘違いしている?

> > 3110 if x < lastx then print "div=",lastx-x:goto 3070
> とやってみたらどうでしょう。
> 1回多くループするところで、いったい何がおきているのか見えてくるかも。

重複部分は以下のようになりました。

div 6.226795723485168D-08 13 13 8
div 2.220446049250313D-16 13 13 9
SQR( 169 )= 13 13 9

比較はほぼ間違いなく単精度でしょうね。(^^;

      - No.11203 -    このTreeへ    コメント元:11202 へ [リストへもどる] pre

(11135) 11204Re^7: PRIME88.BAS で 「169=素数?」問題  投稿者:konno   2024/04/08(月) 01:46
    11203 番 konno さんへのコメント    コメント数 1

> 重複部分は以下のようになりました。
> div 6.226795723485168D-08 13 13 8
> div 2.220446049250313D-16 13 13 9

これ間違っていました。m(__)m  正しい数値を各社で比較します。

----- 単精度 -----
N88BASIC
div= 1.27316E-03 13 13.0013 6
TurboBasic
div= 1.272201538085938E-003 13 13.00127220153808 6
T-BASIC
div= 1.272201538085938E-003 13 13.00127220153808 6

N88BASICは精度もいまいちな感じですね。


----- 倍精度 -----
N88BASIC
div= 1.272386299866479D-03 13.00000006226796 13.00127244856782 6
div= 6.226795723485168D-08 13 13.00000006226796 7
div= 2.220446049250313D-16 13 13 8
div= 0 13 13 9

TurboBasic
div= 1.272386299866923E-003 13.00000006226796 13.00127244856782 6
div= 6.226795790098552E-008 13 13.00000006226796 7
div= 0 13 13 8

T-BASIC
div= 1.272386299866479D-03 13.00000006226796 13.00127244856782 6
div= 6.226795745689628D-08 13 13.00000006226796 7
div= 0 13 13 8

全部違うと思ったら、6回目の N88 と T が同じ数値ですね。
これでなにかわかるでしょうか。

      - No.11204 -    このTreeへ    コメント元:11203 へ [リストへもどる] pre

(11135) 11205Re^8: PRIME88.BAS で 「169=素数?」問題  投稿者:としき   2024/04/08(月) 12:28
参照先:http://toshiki.la.coocan.jp/
    11204 番 konno さんへのコメント    コメント数 1

いろいろと見えてきたようです。

> N88BASICは精度もいまいちな感じですね。

私が仕様を知っているのはN88だけですが、N88に関していえば、まさに仕様どおり。
N88の単精度は、6桁までしか表示されないのですよ。
そして、計算されるのは7桁目まで。
他の処理系の単精度は16桁も表示されるのですね。


> ----- 倍精度 -----
> これでなにかわかるでしょうか。

いくつかわかることがあります。
まず、N88から。
前回の単なる出力結果だと、x も lastx も13で等しいのに次のループに回っている
のが不思議に思えました。でも実際には 2.220446049250313D-16 だけの差があった
わけであり、次のループに回っているのが正当でした。一方で、あまりにも差が
少なすぎたのでしょう、表示は13で打ち切られてしまっている。
ここ、私が前に書いたように print using を使えば、もしかしたら表示されていた
可能性はあります。

つぎ、TurboBasic。
N88やT-BASICだと、単精度指数の表記はEですが、倍精度指数はDを使っています。
でも、TurboBasicは、倍精度でもEで表示されている。
なんか違和感。これが仕様なんだろうなぁ。
ちなみにEは指数(exponent)の略といわれています。Dは倍(double)の略らしい。
なお、表記は同じでも値は異なっているので、計算そのものはきちんと倍精度で
行われている模様。
ところで、Wikipediaによると、指数表示でEを使うのは国際規格らしい。
実際、Excelとかでもそうなっているし。
もしかしたら倍精度でDを使うって、日本のどこかが始めたことかも。
NECとかシャープとか。
昔のMS-BASICでそうだったのかもしれないけど。

そして、T-BASICを含めて、細かい桁数の計算ではいくらかの精度差が発生すること
がわかります。
今回の話題の出発点の169が素数になってしまうという問題も、konnoさんのところの
エミュ環境のN88で起こっている話ですから、うちの実機のPC98だと、konnoさんの
ところのN88とは結果が異なる可能性がありそう。
ということで、今回の結果を出した検証プログラム、#11195に載っているものと
大体同じものだと思いますが、念のため、もう一度示してください。重要なのは表示
でして、同じような表示にしたいので表示部は必須。
なにとぞよろしくお願いします。
      - No.11205 -    このTreeへ    コメント元:11204 へ [リストへもどる] soft

(11135) 11206SQRの単精度と倍精度の表示検証ソース  投稿者:konno   2024/04/08(月) 23:33
    11205 番 としき さんへのコメント    コメント数 1

> ということで、今回の結果を出した検証プログラム、#11195に載っているものと
> 大体同じものだと思いますが、念のため、もう一度示してください。重要なのは表示
> でして、同じような表示にしたいので表示部は必須。

DOSVAXJ3 の32ビット版をJ31モードにして TBasicインタプリタが起動できました。
結構互換性があるのね。
それで、ソースをリナンバーしてみました。
RENUM 3000
これで、3000 から始まる行番号にキチンと並べ替えられました。\(^^)/ ヤッタ-
ではそのソースを貼り付けます。

3000 ' SQR-3.BAS
3010 DEFDBL A-Z
3020 'defsng a-z
3030 'screen 0
3040 CLS
3050 INPUT S
3060 OPEN "SQR.dat" FOR OUTPUT AS #1
3070 CC=0
3080 X = S / 2! '; // Is there any better way to determine initial value?
3090 LASTX = 0! '; // the value one before the last step
3100 'while ( x != lastx ) '// until the difference is not significant
3110 LASTX = X
3120 X = (X + S / X) / 2!
3130 CC=CC+1
3140 PRINT "div=";LASTX-X, X,LASTX,CC
3150 PRINT#1,"div=";LASTX-X, X,LASTX,CC
3160 IF X < LASTX THEN 3100
3170 PRINT "SQR(";S;")=";X,LASTX,CC
3180 PRINT#1, "SQR(";S;")=";X,LASTX,CC
3190 CLOSE
3200 INPUT A
3210 END

このままで J31 と PC-98 で動くと思います。

      - No.11206 -    このTreeへ    コメント元:11205 へ [リストへもどる] pre

(11135) 11207Re: SQRの単精度と倍精度の表示検証ソース  投稿者:としき   2024/04/09(火) 15:06
参照先:http://toshiki.la.coocan.jp/
    11206 番 konno さんへのコメント    コメント数 1

> このままで J31 と PC-98 で動くと思います。

ありがとうございます。
次に実家に行ったときに、このコードを走らせたいと思います。
これをこのまま、といいたいところですが、おそらく、ファイル出力のところ、
OUTPUTはAPPENDに変更させていただく予定。

あと、もともとの#11175に立ち返って。

> 条件を色々変えて試しても結果は変わらなかったのですが、ひとつだけ
> N88P.BAS
> ところがオリジナルを若干修正した以下
> PN88.BAS

#11192にも書きましたが、内部的には若干の修正ではない可能性があります。
なので、しつこくてもうしわけありませんが

> PN88.BAS
> 110 defdbl a-z '倍精度指定
> ここを単精度指定にしたらどうなるか、

この結果を教えてください。
よろしくお願いいたします。

      - No.11207 -    このTreeへ    コメント元:11206 へ [リストへもどる] pre

(11135) 11208Re^2: SQRの単精度と倍精度の表示検証ソース  投稿者:konno   2024/04/09(火) 22:44
    11207 番 としき さんへのコメント    コメント数 1

> > 110  defdbl a-z                                 '倍精度指定
> > ここを単精度指定にしたらどうなるか、
> この結果を教えてください。
> よろしくお願いいたします。

もちろん 169 が素数と表示されます。
元々単精度でそういう表示になるところから始まった話題ですから。
色々試していった結果結構ソースが変わってしまいましたが。(^^;

ところで、USING を使ってみたら違いが表示されました。

1000 'pn88.bas
1010 ' defdbl a-z '倍精度指定
1020 'defdbl n '倍精度指定
1030 OPEN "SQR.dat" FOR OUTPUT AS #1
1040 INPUT N
1050 IF (N/2 <> INT(N/2))=0 THEN IF N=2 THEN PRINT "素数" ELSE PRINT "合成数"
1060 J!=SQR(N) 'ELSE
1070 FOR I!=3 TO SQR(N) STEP 2
1080 IF N/I! = INT(N/I!) THEN 1100 '*EXIT1
1090 NEXT I!
1100 ' *EXIT1
1110 PRINT USING " .##################";I!-SQR(N) '.14
1120 PRINT#1, USING " .##################";I!-SQR(N) '.14
1130 IF I!<=SQR(N) THEN PRINT "合成数";I!;J!
1140 IF I!<=SQR(N) THEN PRINT#1, "合成数";I!;J!
1150 IF I!>SQR(N) THEN PRINT "素数";I!;J!
1160 IF I!>SQR(N) THEN PRINT#1, "素数";I!;J!
1170 INPUT A
1180 END


この結果は

.000001907350000000
素数 13 13

このように単精度の時
I!-SQR(N)
で誤差が表示されました。
倍精度ではゼロになりました。

98実機ではどうなるでしょうね。

      - No.11208 -    このTreeへ    コメント元:11207 へ [リストへもどる] pre

(11135) 11209Re^3: SQRの単精度と倍精度の表示検証ソース  投稿者:としき   2024/04/10(水) 17:44
参照先:http://toshiki.la.coocan.jp/
    11208 番 konno さんへのコメント    コメント数 2

> もちろん 169 が素数と表示されます。

ちょっと残念というか、当然と思えることがおきなければそれも手がかりになる
かな、と思っていたわけですよ。
それで、しつこくお尋ねしていた次第。

> ところで、USING を使ってみたら違いが表示されました。

やっぱりそうでしたか。

> 98実機ではどうなるでしょうね。

とりあえず、試したいことリスト。
すでに試し済みのものもあるかも。

#11208のpn88.bas、倍精度と単精度
#11175のPN88.BASでNを単精度にしただけのもの
そして、#11175のN88P.BASの改造版、以下。

N88P0410.BAS
100 INPUT N
110 IF N MOD 2=0 THEN ELSE *ELSE1
120 IF N=2 THEN PRINT "素数" ELSE PRINT "合成数"
130 GOTO *ENDIF1
140 *ELSE1
150 I=3
160 WHILE (I<=SQR(N)) AND (N MOD I<>0)
165 PRINT I,SQR(N)
170 I=I+2
180 WEND
190 IF I<=SQR(N) THEN PRINT "合成数" ELSE PRINT "素数"
200 *ENDIF1
210 END

これも、Nを単精度と倍精度にしたものの2つ。
今のところ、思いつくのはこのくらい。
あ、そうだ、konnoさんのコードだとプログラム終了のところに必ずinputがあるの
ですが、これ、コンパイラだとあったほうがいいのですか?
それとも他の事情?
いえ、うちのインタプリタだと、必ず最後に入力プロンプトの「?」がはいるのが
うざいというかうっとうしくて。

      - No.11209 -    このTreeへ    コメント元:11208 へ [リストへもどる] pre

(11135) 11210Re^4: SQRの単精度と倍精度の表示検証ソース  投稿者:konno   2024/04/10(水) 21:56
    11209 番 としき さんへのコメント    コメント数 1

> そして、#11175のN88P.BASの改造版、以下。
> N88P0410.BAS

これ、実行してみました。NP2 では、169 は素数と表示されました。

> あ、そうだ、konnoさんのコードだとプログラム終了のところに必ずinputがあるの
> ですが、これ、コンパイラだとあったほうがいいのですか?

コンパイラでは終了すると画面が消えてしまい、表示の確認が出来ないのですよ。
インタプリタでは消えないんですが、ソース共通化のために入れています。

      - No.11210 -    このTreeへ    コメント元:11209 へ [リストへもどる] soft

(11135) 11211Re^5: SQRの単精度と倍精度の表示検証ソース  投稿者:としき   2024/04/10(水) 23:25
参照先:http://toshiki.la.coocan.jp/
    11210 番 konno さんへのコメント    コメント数 1

> これ、実行してみました。NP2 では、169 は素数と表示されました。

あ〜、いやいや、そこではなくて。
いや、そこなのか?
#どっちだよ

ループの最後というか、誤判定されるわけですよね。
その、最後とそのもうひとつ前というか、単精度型と倍精度型でどうなっているのか
見たいな、ということです。

プログラム最後のinputについては了解しました。
やはり、環境によって、こういう差異が発生するものなのですね。
想像はできても、実際にお話を聞けたことがありがたいというか。

      - No.11211 -    このTreeへ    コメント元:11210 へ [リストへもどる] soft

(11135) 11213Re^6: SQRの単精度と倍精度の表示検証ソース  投稿者:konno   2024/04/11(木) 20:13
    11211 番 としき さんへのコメント

> ループの最後というか、誤判定されるわけですよね。
> その、最後とそのもうひとつ前というか、単精度型と倍精度型でどうなっているのか
> 見たいな、ということです。

実行結果(数値はVTDOSの結果を張り付けたが表示は同じ)
? 169
3 13
5 13
7 13
9 13
11 13
素数

NP2の結果は単精度型は「素数」、倍精度型は「合成数」と表示だけ違います。

110番の THEN ELSE はこれでいいんでしょうか。
まあ 2 の表示を省いたのだと思うけど。

> 110 IF N MOD 2=0 THEN ELSE *ELSE1

      - No.11213 -    このTreeへ    コメント元:11211 へ [リストへもどる] pre

(11135) 11215Re^4: SQRの単精度と倍精度の表示検証ソース  投稿者:としき   2024/04/13(土) 01:13
参照先:http://toshiki.la.coocan.jp/
    11209 番 としき さんへのコメント    コメント数 1

> とりあえず、試したいことリスト。

試してきました。

> #11208のpn88.bas、倍精度と単精度

pn88単精度
.000000000000000000
合成数 13 13

pn88b倍精度
.000000000000000000
合成数 13 13

> #11175のPN88.BASでNを単精度にしただけのもの

合成数と出ました。

> そして、#11175のN88P.BASの改造版、以下。

単精度でも倍精度でも同じ、

3 13
5 13
7 13
9 13
11 13
合成数

と出ました。単精度でも倍精度でも同じです。
うむ、興味深いぞ。

> 190 IF I<=SQR(N) THEN PRINT "合成数" ELSE PRINT "素数"

Iも13、SQR(N)も13なのだから、合成数と表示されるのが正当。
そして実際、うちでは想定どおり動いています。
ところが、konnoさんのところでは、単精度型ではこの比較式が成り立たず、ELSEに
落ちてしまっている。そして、倍精度型ではきちんと動いている。
なんか、エミュの挙動がおかしいとしか思えない。
前にも書きましたが、N88BASICの仕様では、関数の結果は引数と同じ型になることに
なっています。つまり、Nが単精度ならSQR(N)の結果も単精度のはず。だから、小数点
以下の細かいところの値が出てくることがおかしい。
もしかしたら、次のような簡単なプログラムでも、実機とエミュで差が出たりして。

10 A#=1.23456789#
20 B!=A#
30 PRINT A#,B!

これ、実はN88のマニュアルに載っているサンプルです。
そして、仕様上のこの実行結果は

RUN
1.23456789 1.23457

となるべきなのだそうです。
もしエミュでこうならないとしたら、それはどこかがおかしい。
エミュの作者に調査を依頼してもいいかも。



追伸
#11213

> 110番の THEN ELSE はこれでいいんでしょうか。
> 110 IF N MOD 2=0 THEN ELSE *ELSE1

N88BASICでは、言語仕様として、THEN節に空文を許します。
つまり、THEN のときは、何もせずに、次の行に進むことになります。
これ、#11169で触れているとおりです。

      - No.11215 -    このTreeへ    コメント元:11209 へ [リストへもどる] pre

(11135) 11216Re^5: SQRの単精度と倍精度の表示検証ソース  投稿者:konno   2024/04/13(土) 22:03
    11215 番 としき さんへのコメント    コメント数 1

> これ、実はN88のマニュアルに載っているサンプルです。
> そして、仕様上のこの実行結果は
>
> 1.23456789 1.23457
>
> となるべきなのだそうです。

NP2でやってみた結果です。

1.23456789 1.23457

表示は全く同じですね。やっぱり表示と内部の数値がズレているのかなぁ。
他のエミュの結果は全て以下の数値でした。

1.23456789 1.234568

98エミュの表示が上の数値で内部的には下の数値だとしたら、計算が合わないのも合点ですね。
でも何故こうなるのかがわからないので、とっても気になります。

> もしエミュでこうならないとしたら、それはどこかがおかしい。
> エミュの作者に調査を依頼してもいいかも。

表示は全く同じなので、おかしくないということですね。(違う!)

> N88BASICでは、言語仕様として、THEN節に空文を許します。
> つまり、THEN のときは、何もせずに、次の行に進むことになります。
> これ、#11169で触れているとおりです。

なるほど、つまり想定どうりということですね。

      - No.11216 -    このTreeへ    コメント元:11215 へ [リストへもどる] pre

(11135) 11218Re^6: SQRの単精度と倍精度の表示検証ソース  投稿者:としき   2024/04/14(日) 12:14
参照先:http://toshiki.la.coocan.jp/
    11216 番 konno さんへのコメント    コメント数 1

> NP2でやってみた結果です。
> 他のエミュの結果は全て以下の数値でした。
> 表示は全く同じなので、おかしくないということですね。(違う!)

NP2と他のエミュで差が出る、というところは一つの突破口かも。
少なくともNP2以外のエミュは仕様どおりではないということで、バグ報告は可能
だと思います。おそらく、四捨五入するときの桁数を誤っていると想定されます。
仕様上は、有効桁7桁、出力のときは7桁目が四捨五入されて6桁で表示、という
ことになっているのですから。
なので、以後は、NP2と実機の差異をどうするか。
どうも、本来は7桁以上は格納してはいけないものを7桁以上格納している、その上
7桁以上で比較してはいけないものを7桁以上で比較している、というように見える
わけですよ。
print usingを使う以外に、何かいい方法はあるかなぁ。


実際、この程度の小数の誤差がどの程度影響するかはわかりませんがね。
でも、もしかしたら、昔からゲームなんかでも使われている可能性はあるわけで。
konnoさんは、例えばバルーンパンチなんてゲームを覚えておられませんかね。
シーソーに乗った人が交互にジャンプして上のほうで動いている風船を割っていく、
というゲームです。
このゲームで飛んでいる人間は、まるで重力で引かれるような感じで頂点に向かって
減速して、また落下するときは加速するわけです。このゲームに限らず、まるで重力
に引かれたような動きをする、だとか、慣性が働いているようになかなか加速しない
上に速度が乗ったらすぐには止まれない、といった動きをするようなゲームでは、
もしもそれなりに理論的なアルゴリズムを使うならば、物体の位置決定に二次関数を
使う必要があるわけです。実際に使っているアルゴリズムがどこまで理論的に正しい
ものになっているかはわかりませんけどね。
そして、二次関数を解くためにはSQR関数が必要。
あるいは、ゲームによっては三角関数を使っているものもあるかもしれない。
そして、画面のXとYの座標は当然整数。
ときどき、当たり判定がバグっているゲームというのが話題になることがありますが、
あれっていうのはもしかしたら、小数と整数の比較の際の誤差の問題かも。そして、
実機だと正常に動いていたのにエミュだとおかしい、というゲームなどがあった場合、
それこそこのような小数の誤差の可能性は高いかも。
もちろん、倍精度を使えば誤差は少なくなりますが、リアルタイムの計算の場合、
倍精度だとやっぱり重くなるので、たいていは単精度を使うでしょうし。

      - No.11218 -    このTreeへ    コメント元:11216 へ [リストへもどる] soft

(11135) 11219Re^7: SQRの単精度と倍精度の表示検証ソース  投稿者:konno   2024/04/15(月) 01:15
    11218 番 としき さんへのコメント    コメント数 1

> NP2と他のエミュで差が出る、というところは一つの突破口かも。
> 少なくともNP2以外のエミュは仕様どおりではないということで、バグ報告は可能
> だと思います。おそらく、四捨五入するときの桁数を誤っていると想定されます。
> 仕様上は、有効桁7桁、出力のときは7桁目が四捨五入されて6桁で表示、という
> ことになっているのですから。

もしかしたら誤解させてしまったかもしれません。
他のエミュとは、98エミュ以外の、J31とかDOS/V系のエミュのことです。
今回 NP2以外の98エミュは確認していません。同じ結果になると思ったので。

ということで、ANEX86 や T98-NEXT のN88コンパイラ、インタプリタでも確認しました。
結果は NP2と 表示は全く同じでした。

> どうも、本来は7桁以上は格納してはいけないものを7桁以上格納している、その上
> 7桁以上で比較してはいけないものを7桁以上で比較している、というように見える
> わけですよ。

これが実際どうなのかはわかりませんが、BASICのルーツは MSのGW-BASICだと思います。
T-BASICなどは漢字処理を覗けば恐らくほとんどそのままの互換性だと思っているのですが
NECのN88BASICは、あちこち変えているようですが、単精度の精度もわざと落としているように見えます。
その辺がエミュでの誤動作の原因になっているのではないかと愚考します。

> konnoさんは、例えばバルーンパンチなんてゲームを覚えておられませんかね。
> シーソーに乗った人が交互にジャンプして上のほうで動いている風船を割っていく、
> というゲームです。

私はこの手のゲームはあまりやっていないので覚えていません。

> ときどき、当たり判定がバグっているゲームというのが話題になることがありますが、
> あれっていうのはもしかしたら、小数と整数の比較の際の誤差の問題かも。そして、
> 実機だと正常に動いていたのにエミュだとおかしい、というゲームなどがあった場合、
> それこそこのような小数の誤差の可能性は高いかも。

今回のことを踏まえるとそう考えられますね。

> もちろん、倍精度を使えば誤差は少なくなりますが、リアルタイムの計算の場合、
> 倍精度だとやっぱり重くなるので、たいていは単精度を使うでしょうし。

N88BASICは8ビット時代の互換性重視ではないかと思いますが、8ビットの貧弱なCPUで
ゲームの速度を上げるためにわざと単精度の桁を落としたのではないかと思います。
そして、16ビット版になっても互換性のためにそこを変えることが出来なかったのかも。

      - No.11219 -    このTreeへ    コメント元:11218 へ [リストへもどる] soft

(11135) 11220Re^8: SQRの単精度と倍精度の表示検証ソース  投稿者:としき   2024/04/15(月) 13:56
参照先:http://toshiki.la.coocan.jp/
    11219 番 konno さんへのコメント    コメント数 1

> もしかしたら誤解させてしまったかもしれません。
> 他のエミュとは、98エミュ以外の、J31とかDOS/V系のエミュのことです。

はい、誤解しました。
続報をいただいたことで、誤解は氷解しました。

> NECのN88BASICは、あちこち変えているようですが、

うん、まぁ、その前のN-BASICからの互換性というのがありますからね。
そちらのほうでいろいろと変えていたところはあるかもしれません。

> 単精度の精度もわざと落としているように見えます。

こちらについてはどうなんだろう。
そうではないというわけではなく、根拠不足というか、これまでのところでは、私
にはそう思えるだけの挙動はないような気がしています。
ということで、ちょっと調べてみました。
まず、単精度は4バイトであらわす実数、倍精度は8バイトであらわす実数。
これは、調べた範囲では、どこも同じみたい。80年代の8ビットパソコンのBASIC
でも、21世紀の64ビットパソコンのCコンパイラでもおおむね一緒。
ところが、倍精度のほうが、最近の国際規格とN88BASICで異なるみたい。
#11164に書いたように、N88BASICでは倍精度の扱える上限は 1.7*10^38 ですが、
最近の規格では 1.8*10^308 まで扱えるらしい。
一方で単精度の方は最近の規格でも 1.7*10^38 で同じ。
内部表現についても、仮数部23ビット、指数部8ビット、符号1ビットという部分
に変化はない。
でも、だからN88の単精度では精度を落としていないかというといささか怪しいと
いうか断言はできない。
なにかというと、十進数との変換部分。
#11135にも書きましたが、仕様としては有効桁7桁、出力のときは7桁目が四捨五入
されて6桁で表示、となっているわけですよ。でも、他の処理系では例えば、有効桁
7桁で表示も7桁、となっているかもしれない。もしそうであれば少なくとも見かけ
の精度は落ちているわけです。あるいは、他の処理系では、7桁目で四捨五入では
なく切り捨て表示となっているかもしれないし。
ただ、あまりにも他のマシンと差があるようであれば、当時、大騒ぎになっている
のではないかなぁ。あの時代、ネットはなくてもパソコン雑誌はあったし、8ビット
のころはともかく16ビットの時代はパソコン通信もあったし。
ということで、とりあえず現時点では根拠不足としてkonnoさんのご意見に賛同は
しないでおきます。
#つまり、何かあればすぐに意見は変わる

ただ、エミュという意味では、よく言われる「バグまで再現した」というものが評価
が高いわけで、現状、実機と差異が出るエミュは、完成度としてはもう一歩、という
のが現実的な評価だと思われます。

      - No.11220 -    このTreeへ    コメント元:11219 へ [リストへもどる] soft

(11135) 11221Re^9: SQRの単精度と倍精度の表示検証ソース  投稿者:konno   2024/04/16(火) 00:04
    11220 番 としき さんへのコメント    コメント数 1

> 続報をいただいたことで、誤解は氷解しました。

紛らわしい表現で誤解させてしまい申し訳ないです。
とりあえずホッとしました。

> > 単精度の精度もわざと落としているように見えます。

考えてみたら、これは表示だけなのかもしれませんね。
N88BASICは、インタプリタもコンパイラも中間コードの LIB を使用しているように見えます。
ということは、そのバイナリコードは BIOS.ROM の中なのではないですか。

私の手持ちのNP2の BIOS.ROMは、実機のものではなく、互換BIOS かもしれません。
その互換BIOSを作る時、N88BASICの仕様に忠実に作るために、#11215

> 10 A#=1.23456789#
> 20 B!=A#
> 30 PRINT A#,B!
>
> これ、実はN88のマニュアルに載っているサンプルです。
> そして、仕様上のこの実行結果は
>
> RUN
> 1.23456789 1.23457
>
> となるべきなのだそうです。

この結果を忠実に再現するために、わざと内部数値まで桁落ちさせたのではないかと疑い始めました。
つまり、問題なのは、互換BIOS.ROM なのかもしれないと思うようになりました。

これは、実機を持たない人たちにとって無くてはならない非常にありがたい福音ですが
互換BIOS を作ったのは、著作権の問題回避の為なので、バイナリレベルで違うものでなければならないわけです。
もしかしたら、この部分がそのための直せない生贄だったりして。あくまで妄想ですが。

> ただ、エミュという意味では、よく言われる「バグまで再現した」というものが評価
> が高いわけで、現状、実機と差異が出るエミュは、完成度としてはもう一歩、という
> のが現実的な評価だと思われます。

NP2は、細部の再現性にこだわったエミュという評価があるようなのですが
先のサンプルプログラムの結果は忠実に再現していますね。(^^;

      - No.11221 -    このTreeへ    コメント元:11220 へ [リストへもどる] soft

(11135) 11222Re^10: SQRの単精度と倍精度の表示検証ソース  投稿者:としき   2024/04/16(火) 12:22
参照先:http://toshiki.la.coocan.jp/
    11221 番 konno さんへのコメント    コメント数 1

> ということは、そのバイナリコードは BIOS.ROM の中なのではないですか。

確かに .LIB のファイルのサイズが小さ目というところから、実際に LIB がやって
いることは ROM の中身の呼び出しのみ、という可能性は高そうです。

> この結果を忠実に再現するために、

ある意味、この結果「だけ」を忠実に再現している、という感じ。
もし「実機を忠実に再現」するのであれば、169は合成数と表示される必要がある。
この点がなされない限り、実機に対するエミュとしての完成度は今一歩、という
ところで終わってしまいそうです。
もっとも世の中には、既知のバグどころか未知のバグまで再現したエミュレータと
いうものもある模様。実機で新たなバグが発見されてから、エミュレータでも同じ
バグが発現した、なんて話もあるようで、とても不思議。こういうのが、いわゆる
「完璧なエミュレータ」というやつでしょう。なぜ作れるんだろう。

> 互換BIOS を作ったのは、著作権の問題回避の為なので、

これはそのとおりだと思いますが、その一方で、実数のバイナリ表現というものは
ある意味で規格化されているわけです。つまり、実数演算とかバイナリと十進数の
変換とかの部分は世の中にいくらでもサンプルコードとかライブラリとかのフリーで
使えるものが存在しているわけで、そしてそういうものを使えば少なくとも著作権の
問題は回避できるはず。さらに、その手のコードって世界中の人が見ているわけです
から、精度を落とす方向にいじることは少ないのではないかなぁ。というか、わざと
精度を落とす、なんてことに時間をかけるくらいならとっととリリースしてくれよ、
という気もする。
もちろん、そういうものを使わずに1からコードを書いていたら、十分な精度を確保
できていなくても不思議はないけど。
あ、でも、ありうるかな。
倍精度のほうが現在のありふれたものとは内部表現が異なっているようだから、そちら
のほうに合わせて、ということはあるかも。



実は私、実数演算についてはちょっとだけやかましい。
#2066とか#10367にも書いたけど、大昔、8ビットマシンの時代、実数演算のマシン語
ルーチンを書いてハンドアセンブルしていたもので。
といっても四則演算だけですけどね。

      - No.11222 -    このTreeへ    コメント元:11221 へ [リストへもどる] soft

(11135) 11223Re^11: SQRの単精度と倍精度の表示検証ソース  投稿者:konno   2024/04/16(火) 23:58
    11222 番 としき さんへのコメント    コメント数 1

> もっとも世の中には、既知のバグどころか未知のバグまで再現したエミュレータと
> いうものもある模様。実機で新たなバグが発見されてから、エミュレータでも同じ
> バグが発現した、なんて話もあるようで、とても不思議。こういうのが、いわゆる
> 「完璧なエミュレータ」というやつでしょう。なぜ作れるんだろう。

それはきっと、リバーs^ ・・・ いや、なんでもないです。(^^;

> 実は私、実数演算についてはちょっとだけやかましい。
> #2066とか#10367にも書いたけど、大昔、8ビットマシンの時代、実数演算のマシン語
> ルーチンを書いてハンドアセンブルしていたもので。
> といっても四則演算だけですけどね。

鶴亀算みたいなものでしたっけ? 結構面倒くさいんですよね。
丁度 DANNYさんの浮動小数演算ライブラリを目にしていたので見てみました。
ASMは1531行ありましたね。
バイナリは恐らく2千バイトくらいになるのかなぁ。

J3100用BASICコンパイラの続報も書かなくてはいけないのでこの辺で。

      - No.11223 -    このTreeへ    コメント元:11222 へ [リストへもどる] soft

(11135) 11224Re^12: SQRの単精度と倍精度の表示検証ソース  投稿者:としき   2024/04/17(水) 02:14
参照先:http://toshiki.la.coocan.jp/
    11223 番 konno さんへのコメント    コメント数 1

konnoさん、なんか他のものを連想している。

> 鶴亀算みたいなものでしたっけ? 結構面倒くさいんですよね。

鶴亀算は整数演算です。
何だろう、何と勘違いしたんだろう。おいらにはわからない。

      - No.11224 -    このTreeへ    コメント元:11223 へ [リストへもどる] soft

(11135) 11225Re^13: SQRの単精度と倍精度の表示検証ソース  投稿者:konno   2024/04/17(水) 23:21
    11224 番 としき さんへのコメント

> 鶴亀算は整数演算です。
> 何だろう、何と勘違いしたんだろう。おいらにはわからない。

あう、多分整数演算の事だと思います。(>_<)
私は算数も数学も苦手というか、数字の計算や記憶が全くダメなんですね。
だからパソコンにやらせようと思うのです。(^^;

      - No.11225 -    このTreeへ    コメント元:11224 へ [リストへもどる] soft

(11135) 11176Re^10: N88-BASICで素数を表示カウントする PRIME88.BAS  投稿者:konno   2024/03/27(水) 00:26
    11173 番 konno さんへのコメント    コメント数 2

> ここ、多くの処理系では割り算よりも掛け算のほうが速いと聞いたことがあるので、
> 割り算を2回するのではなく掛け算と割り算の組み合わせに変更してみました。
> これでどのくらい早くなるかは測定していないからわからない。
> 処理系によっては、むしろ遅くなったりして。

なるほど、そういうやり方もあるのですね。
このプログラムで 10000 指定の実行結果は

Number.10000 0: 0:30 Prime Number = 1233

このソースを私の FOR 文のに置き換えてみた結果は

Number.10000 0: 0: 8 Prime Number = 1233

実行時間が短縮されました。
コンパイラでは最適化でインタプリタと違う結果になるようです。
どこがどう効いたかわからないので、変更ソースを上げます。

1320 *START
1330 TM$=TIME$
1340 I=2:GOSUB *PRINT1
1350 FOR I=3 TO N '★
1360 ' IF INT(I/2)*2 = I THEN *EXIT2 '☆
1362 i2=i/2:i3=int(i/2):IF i2=i3 THEN goto *EXIT2 ' 合成数
1370 ' J=3 '☆
1380 ' WHILE (J<SQR(I)) AND (INT(I/J)*J<>I) '☆
1382 FOR J=3 TO int(SQR(I)) STEP 2 '★ 偶数をスキップ
1390 ' J=J+1 '☆
1392 I2=I/J:I3=INT(I/J):IF I2=I3 THEN GOTO *EXIT1 '★ 合成数
1400 ' WEND '☆
1402 NEXT J '★
1404 *EXIT1 '★
1406 ' if i=169 then print " 13 =";i;sqr(i);j:goto *exit2
1408 ' IF i=169 then if J=SQR(I) THEN *EXIT2
1410 IF SQR(I)<J THEN GOSUB *PRINT1
1420 *EXIT2
1430 NEXT I
1440 I=I-1

ちなみに、VGA版の結果は

Number.10000 0: 0' 1 Prime Number = 1229

結果の素数の数が 4 違いますね。

--- N88 ---
169 13*13
5041 71*71
6241 79*79
9409 97*97

10000 で 4 箇所 合成数が含まれています。
何が原因かわからないです。

      - No.11176 -    このTreeへ    コメント元:11173 へ [リストへもどる] pre

(11135) 11178Re^11: N88-BASICで素数を表示カウントする PRIME88.BAS  投稿者:としき   2024/03/28(木) 00:43
参照先:http://toshiki.la.coocan.jp/
    11176 番 konno さんへのコメント    コメント数 1

あ、これはまずい。

> このプログラムで 10000 指定の実行結果は
> Number.10000 0: 0:30 Prime Number = 1233
> このソースを私の FOR 文のに置き換えてみた結果は
> Number.10000 0: 0: 8 Prime Number = 1233
> 実行時間が短縮されました。

この差は大きすぎる。プログラムに間違いがあるから。

> 1382 FOR J=3 TO int(SQR(I)) STEP 2 '★ 偶数をスキップ
> 1390 ' J=J+1 '☆

ここのところ、STEP 2 なんだから、J=J+2 でなければならない。
単純にループ回数が2倍になってしまう。
ということで、おそらく、30秒は15秒ぐらいまで短縮できるはずだけど、それでも
やっぱり8秒までは縮まらないと思う。

SQR関数の精度のほうは、どうしようかな。

      - No.11178 -    このTreeへ    コメント元:11176 へ [リストへもどる] pre

(11135) 11179SQRの計算式  投稿者:konno   2024/03/30(土) 15:58
    11178 番 としき さんへのコメント    コメント数 1

SQRの計算を自前で出来ないか検索してみました。
「本の虫」のサイトの「平方根のアルゴリズム 」
https://cpplover.blogspot.com/2010/11/blog-post_20.html

ここがわかりやすかったのでここから引用します。
-----------------------------------------------------------

ここで使うのは、バビロニア人の方法(Babylonian method)と呼ばれている、歴史あるアルゴリズムである。
この方法は、手動でも、プログラミングでも、非常に簡単に計算できる、大変便利で汎用的なアルゴリズムである。
しかも、速度もそれほど遅くない。

double sqrt( double s )
{
double x = s / 2.0 ; // Is there any better way to determine initial value?
double last_x = 0.0 ; // the value one before the last step

while ( x != last_x ) // until the difference is not significant
{ // apply Babylonian method step
last_x = x ;
x = (x + s / x) / 2.0 ;
}

return x ;
}

-----------------------------------------------------------

これを TurboBasic に置き換えたテストが

3000 ' SQR1.BAS
3010 'defdbl a-z
3020 screen 0
3030 cls
3040 input s
3050 x = s / 2.0 '; // Is there any better way to determine initial value?
3060 lastx = 0.0 '; // the value one before the last step
3070 ' while ( x != lastx ) '// until the difference is not significant
3080 'loop1:
3090 lastx = x
3100 x = (x + s / x) / 2.0
3110 if x <> lastx then 3080 'loop1
3120 print "SQR(";s;")=";x,lastx
3130 input a
3140 end

3020行をコメントにすれば N88BASIC でも動作します。
これをサブルーチンにして PRIME88.BAS に貼り付けて

1320 *START
1330 TM$=TIME$
1340 I=2:GOSUB *PRINT1
1350 FOR I=3 TO N
1360 IF INT(I/2)*2 = I THEN *EXIT2
1370 J=3
1375 s=I:gosub 3050:s=xx '★
1380 WHILE (J<s) AND (INT(I/J)*J<>I) '★
1390 J=J+1 '★★
1400 WEND
1410 IF J>s THEN GOSUB *PRINT1 '★
1420 *EXIT2
1430 NEXT I
1440 I=I-1

この結果は
Number.10000 0: 0:14 Prime Number = 1229

おお、素数が合ってるし、時間が半分になりました。
SQR()関数を2回実行していたのをサブルーチン1回にしたのが効いたみたいです。

さらに、★★ のところを
1390 J=J+2 '★★
このように +2 に変更した結果
Number.10000 0: 0: 9 Prime Number = 1229

おお、時間がさらに短縮して、FOR文のループとほぼ同じになりました。
ちなみに FOR文のソースにこのサブルーチンを組み込んだら
Number.10000 0: 0:11 Prime Number = 1229

2〜3秒遅くなりましたね。これが関数とサブルーチンの速度差と思われます。
思ったよりも差が無いなぁ、というのが感想です。(^^;

素数のネタはこの辺でしまいにしたいところですね。

      - No.11179 -    このTreeへ    コメント元:11178 へ [リストへもどる] pre

(11135) 11180Re: SQRの計算式  投稿者:としき   2024/03/30(土) 23:41
参照先:http://toshiki.la.coocan.jp/
    11179 番 konno さんへのコメント    コメント数 1

> これを TurboBasic に置き換えたテストが

えと、whileのループをifのジャンプに変更したのはなぜでしょうか。
こちらのほうが速いのですか?

> 素数のネタはこの辺でしまいにしたいところですね。

そうですね。
明日、31日に実家へ行くので、時間が取れたら実機でいくつか試したいところ。
実は、父の命日が31日なんですよ。
ただ、日が近いということで、多くの場合、墓参りはお彼岸に集約されています。
天候だとか諸事情でお彼岸に墓参りできないときだけ命日に墓参り、と言う感じ
なのですが、まぁいろいろと存在しない事情をでっち上げて実家に顔を出すところ
まではアポイント済み。ただ、時間が取れるかどうかは別問題なんで。

      - No.11180 -    このTreeへ    コメント元:11179 へ [リストへもどる] soft

(11135) 11184Re^2: SQRの計算式  投稿者:konno   2024/03/31(日) 22:26
    11180 番 としき さんへのコメント

> えと、whileのループをifのジャンプに変更したのはなぜでしょうか。
> こちらのほうが速いのですか?

私は while文をあまり使わないので、無意識に 慣れた IF文に変えてしまってました。(^^;
オリジナルのソースに wend を入れるだけでしたね。(^^;

#11179 で書きましたが
> ちなみに FOR文のソースにこのサブルーチンを組み込んだら
> Number.10000 0: 0:11 Prime Number = 1229
> 2〜3秒遅くなりましたね。これが関数とサブルーチンの速度差と思われます。

同じ条件では、while文の方が速いと思われます。
そこで、このサブルーチンの while と FOR で比較してみました。

FOR文 Number.100000 0: 2:51 Prime Number = 9592
WHILE文 Number.100000 0: 2:47 Prime Number = 9592

10万で4秒の差でした。思ったよりも差が小さかったですね。
SQR 1回あたり7〜10回程度のループで済んでいるから差が小さいのでしょう。

> なのですが、まぁいろいろと存在しない事情をでっち上げて実家に顔を出すところ
> まではアポイント済み。ただ、時間が取れるかどうかは別問題なんで。

お手間を取らせて申し訳ないですが、よろしくお願いします。

      - No.11184 -    このTreeへ    コメント元:11180 へ [リストへもどる] pre

(11135) 11182Re^11: N88-BASICで素数を表示カウントする PRIME88.BAS  投稿者:としき   2024/03/31(日) 15:48
参照先:http://toshiki.la.coocan.jp/
    11176 番 konno さんへのコメント

続いて、先日上げたプログラムのまま、すなわち、SQR関数の部分もいじらず、
変数Jのカウントアップも1ずつのままで10000までの結果。

> Number.10000 0: 0' 1 Prime Number = 1229

素数の数は1229と出ました。やっぱりうちの環境では誤差がないみたい。
ちなみに、所要時間は、画面表示だと12秒、ファイル出力だと13秒。
これはいささか直感と記憶に反している。
記憶だと、画面表示のほうがスクロールアップに時間がとられるので遅くなったはず
なのですがね。ま、でも、誤差の範囲。

次、変数 J のカウントアップを J=J+2 としたら所要時間は7秒まで短縮。
やっぱりループ回数が2倍というのは大きかった模様。
素数の数は1229なので、計算誤差の問題もないですね。

ところで、うちのBASICインタープリタは1987年製のVer5.0というやつです。
konnoさんのところの版数とかはわかりますか?

      - No.11182 -    このTreeへ    コメント元:11176 へ [リストへもどる] pre

(11135) 11181Re^10: N88-BASICで素数を表示カウントする PRIME88.BAS  投稿者:としき   2024/03/31(日) 14:09
参照先:http://toshiki.la.coocan.jp/
    11173 番 konno さんへのコメント

実家に来ています。
まず、先日アップしたあのプログラムをそのまま実行したのですが

> Number.1000 0: 0' 0 Prime Number = 168

うちのN88-BASICでは、素数の数が168になりました。
169は素数としてカウントされませんでした。
どうやらSQR関数、うちの環境のほうが精度が高いらしい。
ちなみに、ファイル出力ではなく画面表示で、所要時間は0秒〜1秒くらい。
あまり違いはないですね。

とりあえず時間切れ、続きは後ほど。
      - No.11181 -    このTreeへ    コメント元:11173 へ [リストへもどる] pre

(11135) 11183Re^9: N88-BASICで素数を表示カウントする PRIME88.BAS  投稿者:としき   2024/03/31(日) 16:08
参照先:http://toshiki.la.coocan.jp/
    11172 番 としき さんへのコメント    コメント数 1

実家での検証、最後。

> ここ、多くの処理系では割り算よりも掛け算のほうが速いと聞いたことがあるので、
> 割り算を2回するのではなく掛け算と割り算の組み合わせに変更してみました。
> これでどのくらい早くなるかは測定していないからわからない。

メインのループを

1350 FOR I=3 TO N
1360 IF INT(I/2)*2 = I THEN *EXIT2
1370 J=3:I2=I/J:I3=INT(I/J)
1380 WHILE J<SQR(I) AND I2<>I3
1390 J=J+2:I2=I/J:I3=INT(I/J)
1400 WEND
1410 IF J>SQR(I) THEN GOSUB *PRINT1
1420 *EXIT2
1430 NEXT I

こうやって、割り算2回で20000までの素数を求めたら21秒で2262個。
元のままの、割り算と掛け算だと17秒、2262個。
うん、やっぱりうちでは、誤差というには差が大きいくらい、掛け算のほうが早い
模様。


以上、レス元が分散して申し訳ありませんが、実家での検証3連発でした。

      - No.11183 -    このTreeへ    コメント元:11172 へ [リストへもどる] pre

(11135) 11185Re^10: N88-BASICで素数を表示カウントする PRIME88.BAS  投稿者:konno   2024/04/01(月) 00:27
    11183 番 としき さんへのコメント    コメント数 2

ここにまとレスします。

> > Number.1000 0: 0' 0 Prime Number = 168
> うちのN88-BASICでは、素数の数が168になりました。
> 169は素数としてカウントされませんでした。
> どうやらSQR関数、うちの環境のほうが精度が高いらしい。

これは驚きです! ということは、98エミュの問題か、ファイルが壊れているかですね。

> ちなみに、所要時間は、画面表示だと12秒、ファイル出力だと13秒。
> これはいささか直感と記憶に反している。

TurboBasic でも同じような結果です。画面表示は遅いというのは思い込みなのでしょう。

> ところで、うちのBASICインタープリタは1987年製のVer5.0というやつです。
> konnoさんのところの版数とかはわかりますか?

88-BASIC(86) Compiler version 6.0
1988/08/24 00:00 61,440 BASICC.COM

うちで使用したコンパイラ版はこれですね。

> こうやって、割り算2回で20000までの素数を求めたら21秒で2262個。
> 元のままの、割り算と掛け算だと17秒、2262個。
> うん、やっぱりうちでは、誤差というには差が大きいくらい、掛け算のほうが早い
> 模様。

なるほど。やはり掛け算が速いのですね。

> 以上、レス元が分散して申し訳ありませんが、実家での検証3連発でした。

お忙しい中色々検証していただき、ありがたいです。
N88BASICの精度疑惑も晴れたので、98エミュの検証が必要そうですね。

      - No.11185 -    このTreeへ    コメント元:11183 へ [リストへもどる] pre

(11135) 11186T98-NEXT でN88BASIC検証  投稿者:konno   2024/04/02(火) 00:16
    11185 番 konno さんへのコメント

以前N88BASICが動かなかったT98-NEXT で再挑戦しました。
コンパイラ版が動かなかったのはメモリ不足だったようです。
ATOK8がメインメモリに居座っていたので削除したら動きました。(^^;
ただし、BATのオプションが効かなくて、ソースファイル名を手打ちしました。(^^;
結果はほかのエミュと同じで駄目でした。

インタプリタも、実機ROMにチェックを入れたら動きました。
結果はやっぱり駄目でした。
98エミュは全滅です。

うーむ、このバージョンの N88BASIC に問題がある可能性があるのでしょうか。

      - No.11186 -    このTreeへ    コメント元:11185 へ [リストへもどる] soft

(11135) 11187Re^11: N88-BASICで素数を表示カウントする PRIME88.BAS  投稿者:としき   2024/04/03(水) 16:20
参照先:http://toshiki.la.coocan.jp/
    11185 番 konno さんへのコメント    コメント数 1

> これは驚きです! ということは、98エミュの問題か、ファイルが壊れているか

エミュの問題、というのは考え易いところです。
が、ファイルの破壊となった場合、そんな精度に関係するところが絶妙に壊れる、
というのはなかなか考えにくい。
ただ、N88(86)では使っていない技術だとは思いますが、いくつかの処理系では、
関数の速度と精度向上のため、全てを計算で求めるのではなく、大きな定数表を
使う場合がある、と聞いたことはあります。とはいっても超巨大というほどの表
ではなく、引数のいくつかに分解して、それぞれの結果を足すとかかけるとかで
速度と精度を両立させます。
その場合は、その定数表の一部だけが間違っているとか精度が足りないことが発生
しうるわけです。でも、これって、三角関数とか対数関係の関数で使うワザだった
ような気がする。
平方根でも使うことがあるのかなぁ。

> 88-BASIC(86) Compiler version 6.0
> 1988/08/24 00:00 61,440 BASICC.COM

これ、頭のNが欠けているのは転記ミスですよね。
実は、私の記憶でも、88年のVer6が最終版、ということになっているからです。
そして私の手元には87年のVer5しかないわけですが、バージョンアップするかどうか
という判断に際して、どこが変わったかという情報がなくてバージョンアップを
しなかった、というおぼろげな記憶があります。
ところでkonnoさんのところでは、TurboBasicではなく、N88BASICのコンパイラと
インタプリタで同じ結果になります?
あと、インタプリタとコンパイラでバージョンは同じですか?

      - No.11187 -    このTreeへ    コメント元:11185 へ [リストへもどる] pre

(11135) 11189Re^12: N88-BASICで素数を表示カウントする PRIME88.BAS  投稿者:konno   2024/04/04(木) 01:01
    11187 番 としき さんへのコメント    コメント数 1

> その場合は、その定数表の一部だけが間違っているとか精度が足りないことが発生
> しうるわけです。でも、これって、三角関数とか対数関係の関数で使うワザだった
> ような気がする。
> 平方根でも使うことがあるのかなぁ。

原因が分かったような気がします。
N88BASIC(86) では、FOR文が倍精度では動かないので単精度でやって NG だったのですが
1030 defdbl A-Z と変数を倍精度にし、FOR文の I だけ I! で単精度でやってみました。

1340 I=2:GOSUB *PRINT1
1342 i=3
1350 FOR I!=3 TO N
1360 IF INT(I/2)*2 = I THEN *EXIT2
1370 J=3
1380 WHILE (J<SQR(I)) AND (INT(I/J)*J<>I)
1390 J=J+1
1400 WEND
1410 IF J>SQR(I) THEN GOSUB *PRINT1
1420 *EXIT2
1422 i=i+1
1430 NEXT I!
1440 I=I-1

他は変えていませんが、このプログラムでは 169 が表示されず、正常になりました。
# 汚れていたのは SQR(I) だったんです。(By now shika)

変数 I が倍精度だと数値の比較が正常なのに、単精度だと 表示は整数でも内部の計算がズレる模様。
想像ですが、例えば比較計算は倍精度で、表示は単精度に丸められているとか。

> > 88-BASIC(86) Compiler version 6.0
> > 1988/08/24 00:00 61,440 BASICC.COM
> これ、頭のNが欠けているのは転記ミスですよね。

はい、そうです。失礼しました。m(__)m

> ところでkonnoさんのところでは、TurboBasicではなく、N88BASICのコンパイラと
> インタプリタで同じ結果になります?

同じ結果になります。上の実験はインタプリタではしてないですが。

> あと、インタプリタとコンパイラでバージョンは同じですか?

同じだと思います。起動メッセージが同じなので。
日付は少し違いますね。

      - No.11189 -    このTreeへ    コメント元:11187 へ [リストへもどる] pre

(11135) 11191Re^13: N88-BASICで素数を表示カウントする PRIME88.BAS  投稿者:としき   2024/04/04(木) 12:15
参照先:http://toshiki.la.coocan.jp/
    11189 番 konno さんへのコメント    コメント数 1

「妙だな」というのは、どこぞの小学生のよく言うせりふですが、それはさておき。
#11164にも書きましたが、N88だと単精度でも倍精度でも上限は同じです。
また、演算速度が単精度の方が速いという理由から私は全て単精度でやっているの
ですが、konnoさんが倍精度を選ばれている理由は何ですか?
他のBASICだと上限が違うとかあるのでしょうか。

さて、私のコードでは全て単精度でやっています。なので、精度変換の問題は出ない
はず。実際、うちでは問題が出ていません。
でも、#11173では、同じコードで問題が出ているということです。
なので、これは精度変換の問題ではないと思われます。


> 他は変えていませんが、このプログラムでは 169 が表示されず、正常になりました。

このプログラムだと、単精度の I! と倍精度の I の両方でカウント処理が発生します。
倍精度の I だけ使って WHILE のループにしたほうがいいような気がします。


> 想像ですが、例えば比較計算は倍精度で、表示は単精度に丸められているとか。

N88のマニュアルでは、異なる型同士での演算の場合は高い精度のほうに合わせて
行われるとのこと。これは比較演算でも同じはず。

で、私の疑っていた、konnoさんのところのコンパイラとインタプリタのバージョン
違いという疑いは晴れたので、するとあとは、私のところのバージョンとkonnoさん
のところのバージョンが異なる、という問題は残ります。
とりあえず、出発点は#11173。同じコードなのに結果が異なる、ということ。
あ、重要な問題がある。
私がもしかしたら、アップしたのとは異なるコードを実行していた可能性。
実はこの可能性が一番高いかも。

      - No.11191 -    このTreeへ    コメント元:11189 へ [リストへもどる] soft

(11135) 11194Re^14: N88-BASICで素数表示の問題  投稿者:konno   2024/04/06(土) 01:40
    11191 番 としき さんへのコメント    コメント数 1

> #11164にも書きましたが、N88だと単精度でも倍精度でも上限は同じです。
> また、演算速度が単精度の方が速いという理由から私は全て単精度でやっているの
> ですが、konnoさんが倍精度を選ばれている理由は何ですか?

N88 は FOR文のカウントに倍精度が使えない制限があるようです。
それで単精度でやったら問題が出たので、倍精度でやり直してみたという経緯です。

> さて、私のコードでは全て単精度でやっています。なので、精度変換の問題は出ない
> はず。実際、うちでは問題が出ていません。
> でも、#11173では、同じコードで問題が出ているということです。
> なので、これは精度変換の問題ではないと思われます。

私は N88BASIC の特定のバージョン(V6.0)の問題なのではないかと疑っています。
もちろん 98エミュの問題の可能性も排除できないので実機で確認したいのです。

> > 他は変えていませんが、このプログラムでは 169 が表示されず、正常になりました。
> このプログラムだと、単精度の I! と倍精度の I の両方でカウント処理が発生します。
> 倍精度の I だけ使って WHILE のループにしたほうがいいような気がします。

私は while の入れ子は特に間違えやすいので、FOR文でやりました。
結果は同じになると思います。

> N88のマニュアルでは、異なる型同士での演算の場合は高い精度のほうに合わせて
> 行われるとのこと。これは比較演算でも同じはず。

なるほど、それで謎の挙動がわかったような気がします。
比較の実験結果をあげてみます。

      - No.11194 -    このTreeへ    コメント元:11191 へ [リストへもどる] soft

(11135) 11197Re^15: N88-BASICで素数表示の問題  投稿者:としき   2024/04/06(土) 11:26
参照先:http://toshiki.la.coocan.jp/
    11194 番 konno さんへのコメント

> N88 は FOR文のカウントに倍精度が使えない制限があるようです。

そです。
これはマニュアルにも明記されている仕様です。

> それで単精度でやったら問題が出たので、倍精度でやり直してみたという経緯です。

なるほど、いきさつが理解できました。

> 私は N88BASIC の特定のバージョン(V6.0)の問題なのではないかと疑っています。

現時点では、私もこの線が濃厚だと思っております。

> 私は while の入れ子は特に間違えやすいので、FOR文でやりました。

BASICを極めたいのならWHILEは避けて通れません。
私もかなり錆付いてはいますが、まだkonnoさんより私のほうが、BASICに関しては
一日の長がありそうな感じ。

> 結果は同じになると思います。

いや、結果の問題ではなく速度の問題。
加算するのはループカウンタだけでいいでしょう、ということです。

      - No.11197 -    このTreeへ    コメント元:11194 へ [リストへもどる] soft

(11135) 11150オリジナルの prime.bas のソース  投稿者:konno   2024/03/07(木) 22:43
    11135 番 konno さんへのコメント    コメント数 1

オリジナルの prime.bas のソースはこれだけです。

INPUT n
IF MOD(n,2)=0 THEN
IF n=2 THEN PRINT "素数" ELSE PRINT "合成数"
ELSE
FOR i=3 TO SQR(n) STEP 2
IF MOD(n,i)=0 THEN EXIT FOR
NEXT i
IF i<=SQR(n) THEN PRINT "合成数" ELSE PRINT "素数"
END IF
END


IF 〜 ELSE 〜 END IF をうまく使ってシンプルでエレガントですね。
TurboBasic で同じやり方はわからなかったので、自分なりに改造したのが以下

FOR i=2 TO n
IF i=2 THEN gosub PRINT i;:c=c+1 ' 2 素数
i2=i/2:i3=int(i/2):IF i2=i3 THEN goto EXIT2 ' 合成数
FOR j=3 TO SQR(i) STEP 2 ' 偶数をスキップ
i2=i/j:i3=int(i/j):IF i2=i3 THEN goto EXIT1 ' 合成数
NEXT j
EXIT1:
IF j>SQR(i) THEN gosub PRINT i;:c=c+1 ' 素数
EXIT2:
NEXT i:i=i-1

としきさんにループの抜け方が強引と言われたけど、うーむ・・・

IF MOD(n,i)=0 THEN EXIT FOR
ここは
i2=i/j:i3=int(i/j):IF i2=i3 THEN goto EXIT1 ' 合成数

i2=i/j:i3=int(i/j):IF i2=i3 THEN i=i+1 ' 合成数
にすればよかったのかな。
つい、EXIT という構文に引っ張られたような・・・(^^;

      - No.11150 -    このTreeへ    コメント元:11135 へ [リストへもどる] pre

(11135) 11156Re: オリジナルの prime.bas のソース  投稿者:としき   2024/03/10(日) 18:50
参照先:http://toshiki.la.coocan.jp/
    11150 番 konno さんへのコメント    コメント数 2

> オリジナルの prime.bas のソースはこれだけです。

なるほど、MODって関数なんですね。
N88-BASICでは演算子なんですけどね。

> INPUT n
> IF MOD(n,2)=0 THEN
> IF n=2 THEN PRINT "素数" ELSE PRINT "合成数"
> ELSE
> FOR i=3 TO SQR(n) STEP 2
> IF MOD(n,i)=0 THEN EXIT FOR
> NEXT i
> IF i<=SQR(n) THEN PRINT "合成数" ELSE PRINT "素数"
> END IF
> END

これをそのままN88-BASICに移植すると、こんな感じかなぁ。
実行していないので、そのまま動くかどうかはわかりません。

100 INPUT N
110 IF N MOD 2=0 THEN 120 ELSE *ELSE1
120 IF N=2 THEN PRINT "素数" ELSE PRINT "合成数"
130 GOTO *ENDIF1
140 *ELSE1
150 I=3
160 WHILE (I<=SQR(N)) AND (N MOD I<>0)
170 I=I+2
180 WEND
190 IF I<=SQR(N) THEN PRINT "合成数" ELSE PRINT "素数"
200 *ENDIF1
210 END

解説すると

・MODは演算子に変更した。
・110行目のTHENの行番号は省略できたかもしれない。
 つまり、NULLの行番号が許容されるのなら、その場合は単に次の行に制御が移る。
・ループの脱出条件が複数あるので、FORループからWHILEループに変更した。


> TurboBasic で同じやり方はわからなかったので、自分なりに改造したのが以下

TurboBasicって、MOD関数またはMOD演算子ってないんですか?
あと、NEXTの後ろの変数って省略できないんですか?
でもコンパイラ言語だからあんまり関係ないのか。
8ビットのBASICのころは、NEXTの後ろの変数を省略するとマイクロ秒の単位で速く
なると信じられていて、だから私も省略するのが癖になっているのですよ。
高速化といえば、最初のFORの直下のIF文。
これはループの中に入れておくのはもったいない。
だって、1回しか比較する必要がないものを何回も比較することになるわけだから。

> i=2:gosub PRINT i;:c=c+1 ' 2 素数
> FOR i=3 TO n

こんな感じで十分だと思う。

      - No.11156 -    このTreeへ    コメント元:11150 へ [リストへもどる] pre

(11135) 11158Re^2: オリジナルの prime.bas のソース  投稿者:konno   2024/03/11(月) 00:45
    11156 番 としき さんへのコメント    コメント数 1

> なるほど、MODって関数なんですね。
> N88-BASICでは演算子なんですけどね。

あう、MOD は演算子でしたね、失礼しました。

> これをそのままN88-BASICに移植すると、こんな感じかなぁ。
> 実行していないので、そのまま動くかどうかはわかりません。

> TurboBasicって、MOD関数またはMOD演算子ってないんですか?

もちろんありますが、32767以上は駄目みたいです。

> あと、NEXTの後ろの変数って省略できないんですか?
> でもコンパイラ言語だからあんまり関係ないのか。

省略できると思います。指定した方がわかりやすいと思うので。

> 8ビットのBASICのころは、NEXTの後ろの変数を省略するとマイクロ秒の単位で速く
> なると信じられていて、だから私も省略するのが癖になっているのですよ。

コンパイラ言語ではあんまり関係ないのかもしれないなと思います。

> 高速化といえば、最初のFORの直下のIF文。
> これはループの中に入れておくのはもったいない。
> だって、1回しか比較する必要がないものを何回も比較することになるわけだから。

これはその通りですね、最初の FOR文はいらなかったですね。
うっかりしていました。(^^;
SOSU のソースから切り貼りしたのをそのまま残してしまったのかなぁ。(^^;


      - No.11158 -    このTreeへ    コメント元:11156 へ [リストへもどる] pre

(11135) 11159Re^3: オリジナルの prime.bas のソース  投稿者:としき   2024/03/12(火) 02:16
参照先:http://toshiki.la.coocan.jp/
    11158 番 konno さんへのコメント    コメント数 1

> あう、MOD は演算子でしたね、失礼しました。

???
オリジナルの prime.bas では関数になっていますよね。
ということは、十進BASICでは関数である、ということだと思いますが?
もしかしたら演算子にもあるかもしれませんけどね。

> > TurboBasicって、MOD関数またはMOD演算子ってないんですか?
> もちろんありますが、32767以上は駄目みたいです。

N88-BASICのリファレンスでは、演算前に小数点以下は切り捨てられるとはあります
が、上限については記載がありません。試してみたいところではあります。

      - No.11159 -    このTreeへ    コメント元:11158 へ [リストへもどる] soft

(11135) 11161MOD と ¥ の有効範囲  投稿者:konno   2024/03/12(火) 22:45
    11159 番 としき さんへのコメント    コメント数 1

> オリジナルの prime.bas では関数になっていますよね。
> ということは、十進BASICでは関数である、ということだと思いますが?
> もしかしたら演算子にもあるかもしれませんけどね。

あうう、キチンと読んでいませんでした。
てっきり私がまた間違った言い方をしてしまったのかと。(^^;

> > > TurboBasicって、MOD関数またはMOD演算子ってないんですか?
> > もちろんありますが、32767以上は駄目みたいです。
> N88-BASICのリファレンスでは、演算前に小数点以下は切り捨てられるとはあります
> が、上限については記載がありません。試してみたいところではあります。

十進BASICで関数を使っているのは、MOD に制限があるからかも。
思いついて TurboBasicでテストプログラムを作ってみました。

'tmod.bas
screen 0
print " input ";:input a '
OPEN "mod.dat" FOR append AS#1 'ファイル出力
print " a MOD i ","2bytes "," Froat "," a / i"
for i=2 to 5
bb=int((a/i-int(a/i))*i+.5) ' MOD 代替式
print a;"mod";i,a mod i,bb,a/i
print#1, a;"mod";i,a mod i,bb,a/i '
next
print " a \ i","2bytes "," Froat "," a / i"
for i=2 to 5
cc=int(a/i) ' \ 代替式
print a;" \ ";i,a \ i,cc,a/i '
print#1,a;" \ ";i,a \ i,cc,a/i '
next

PRINT#1,""
CLOSE#1
100 '入力待ち
print " push eny key ";
a$=input$(1)
if a$="" then 100
end

結果

  a MOD/\ i 2bytes Froat a / i"
32767 mod 2 1 1 16383.5
32767 mod 3 1 1 10922.33333333333
32767 mod 4 3 3 8191.75
32767 mod 5 2 2 6553.4
32767 \ 2 16383 16383 16383.5
32767 \ 3 10922 10922 10922.33333333333
32767 \ 4 8191 8191 8191.75
32767 \ 5 6553 6553 6553.4

32768 mod 2 0 0 16384
32768 mod 3 -2 2 10922.66666666667
32768 mod 4 0 0 8192
32768 mod 5 -3 3 6553.6
32768 \ 2 -16384 16384 16384
32768 \ 3 -10922 10922 10922.66666666667
32768 \ 4 -8192 8192 8192
32768 \ 5 -6553 6553 6553.6

32769 mod 2 0 1 16384.5
32769 mod 3 -2 0 10923
32769 mod 4 0 1 8192.25
32769 mod 5 -3 4 6553.8
32769 \ 2 -16384 16384 16384.5
32769 \ 3 -10922 10923 10923
32769 \ 4 -8192 8192 8192.25
32769 \ 5 -6553 6553 6553.8

これを見るとやはり 32768 以上では MOD も ¥ も使えないようですね。
実は今 STIME のタイマーで計算がバグって困ってたんですが、これが原因だったようです。
テストプログラム作成は無駄ではなかった。(~~;

      - No.11161 -    このTreeへ    コメント元:11159 へ [リストへもどる] pre

(11135) 11165Re: MOD と ¥ の有効範囲  投稿者:konno   2024/03/18(月) 00:36
    11161 番 konno さんへのコメント    コメント数 1

MOD と \ の有効範囲テストを NP2 でやってみました。
結果は 32767 を超えると オーバーフローエラーになりました。
また、N88BASICでは行番号が必要で、タブは使えなかったので
以下のようにプログラムを修正しました。

10 'N88mod.bas
14 print " input ";
20 input a '
30 OPEN "mod.dat" FOR append AS#1 'ファイル出力
40 print " a MOD i ","2bytes "," Froat "," a / i"
50 for i=2 to 5
60 bb=int((a/i-int(a/i))*i+.5) ' MOD 代替式
70 print a;"mod";i,
72 if a>32767 then print "over! ", else print a mod i, '32767 over
74 print bb,a/i
80 print#1, a;"mod";i,
82 if a>32767 then print#1,"over! ", else print#1, a mod i, ' 32767 over
84 print#1, bb,a/i '
90 next i
100 print " a \ i","2bytes "," Froat "," a / i"
110 for i=2 to 5
120 cc=int(a/i) ' \ 代替式
130 print a;" \ ";i,
132 if a>32767 then print "over! ", else print a \ i, ' 32767 over
134 print cc,a/i '
140 print#1,a;" \ ";i,
142 if a>32767 then print#1,"over! ", else print#1, a \ i, ' 32767 over
144 print#1,cc,a/i '
150 next i
160 PRINT#1,""
170 CLOSE#1
180 '入力待ち
190 print " push eny key ";
200 a$=input$(1)
210 if a$="" then 180
220 end


エラーになるのと不正な結果になるのとどっちが良いかはともかく
MOD と \ の有効範囲は 普通は 32767 までのようですね。
だから素数のような桁数が多くなる計算は UBASIC などを使うのが良いのでしょうね。

      - No.11165 -    このTreeへ    コメント元:11161 へ [リストへもどる] pre

(11135) 11166Re^2: MOD と ¥ の有効範囲  投稿者:としき   2024/03/20(水) 01:44
参照先:http://toshiki.la.coocan.jp/
    11165 番 konno さんへのコメント    コメント数 1

> また、N88BASICでは行番号が必要で、タブは使えなかったので
> 以下のようにプログラムを修正しました。

うわぁ、ものすごく違和感がある見た目のプログラムになるんだな。
最大の理由は、おそらく、行番号のあるBASICにもかかわらず、コードが小文字だと
いうところからくるものだと思います。
行番号の不要なBASICなら小文字のコードでも全く違和感は感じないんですけどね。
どうやら、完全に、行番号のあるBASICは大文字、という感性に毒されている模様。
あと、もしかしたら些細かもしれないけど、行番号が等間隔ではないところにも、
まぁまぁ違和感を感じる。これは、同じN88であっても、インタプリタ型と違って
コンパイラ型の場合、テキストエディタでソースを書くことになるわけですから、
行番号の振り直しには手間がかかりますので、ある程度は仕方ないか。

ちょっとここで、行番号に関する昔話でも。
日本では、8ビットパソコンの草創期から、BASICのリストでは、行番号は10から
始まって10番ごと、というのがデファクト。なぜ10番ごとかというと、コードの追加
をする場合、その間の番号が使えるから、ということのようです。これは、日本に
BASICがやってくる前から、そういうのが普通だったらしい。
ただ、コードを追加すると当然、それは10番ごとにはならない。
そこで、BASICインタプリタにはRENUMというコマンドが用意されました。
renumberの略で、要するに行番号を振りなおしてくれるわけです。
これはNECのBASICにもシャープのBASICにもあったので、おそらく、東芝のBASICにも
あったのではないかなぁ。そしてたぶん、どこのものもほとんど同じだと思いますが、
NECの場合はデフォルトで、新しく付け直した行番号の開始番号は10からで、間隔も
10ごとに付け直してくれました。
コンパイラの場合は当然、こういう便利な機能があるわけではありませんから、番号
の振り直しは自前で人間がやらなければならないので、いろいろと面倒。

その後、BASICでもループなどをきちんとインデントするのが当たり前の時代になる
と、ここで問題になったのが、行番号の桁数。せっかくインデントを整えても、
90から100とか、990から1000といった行番号の桁数が変わるところでインデントが
崩れてしまう。そこでどうするかというと、例えば990行までに収まらないプログラム
なら1000行からはじめればよい、ということになりました。この部分、私ならなにも
10番間隔にこだわらず5番間隔でもいいじゃないか、それこそ最終的な完成形はもう
これ以上追加削除をしないということを強調する意味で1番間隔でいいのではないか、
と思うのですが、どうも世の中の大勢は10番間隔が好きみたい。
あと、間隔はいくつでもいいのですが、プログラムの最初から最後まで等間隔は
守るべき、というのも世間の多数派のようです。というか、RENUMコマンドを使えば
必然的に等間隔になるわけです。ここで例えば、いろいろとコードを追加した際に
その部分を追加したということを目立たせるためにあえて残すべき、という流派の
人もいたらしいですが、これはその後、少数派になりました。なぜかというと、
当時のBASICの編集画面だと、最近のテキストエディタと違い、それが何行目かと
いうことが表示されないわけです。ここで、例えば200行に GOTO 800 とあれば、
もし10番ごとの等間隔なら、ジャンプの飛び先はプログラムリスト上で60行先に
なるわけで、プリントアウトされた紙で追いかけやすい、という実利的な理由が
あったわけです。

と、いうことで。
もしBASICのプログラムをインタプリタに読み込ます機会があったら、RENUMコマンド
をかけた結果を保存しておくべきでしょう。

      - No.11166 -    このTreeへ    コメント元:11165 へ [リストへもどる] soft

(11135) 11167Re^3: MOD と ¥ の有効範囲  投稿者:konno   2024/03/21(木) 00:00
    11166 番 としき さんへのコメント    コメント数 1

> うわぁ、ものすごく違和感がある見た目のプログラムになるんだな。
> 最大の理由は、おそらく、行番号のあるBASICにもかかわらず、コードが小文字だと
> いうところからくるものだと思います。

なるほど、そう言われればそんな感じもしますが、私はもう気にしてなかったので。(^^;

> 行番号の不要なBASICなら小文字のコードでも全く違和感は感じないんですけどね。
> どうやら、完全に、行番号のあるBASICは大文字、という感性に毒されている模様。

私はbasic歴が長いので、他の言語が小文字なのに違和感を感じました。今は無いですね。

> そこで、BASICインタプリタにはRENUMというコマンドが用意されました。
> renumberの略で、要するに行番号を振りなおしてくれるわけです。
> これはNECのBASICにもシャープのBASICにもあったので、おそらく、東芝のBASICにも
> あったのではないかなぁ。そしてたぶん、どこのものもほとんど同じだと思いますが、
> NECの場合はデフォルトで、新しく付け直した行番号の開始番号は10からで、間隔も
> 10ごとに付け直してくれました。

TBasicインタプリタは、RENUM 開始行番号,旧行番号,増分 となっています。
開始行番号は、新しくつける先頭の行番号の数値を指定します。
旧行番号は、付け替える初めの行を指定します。
でも私は使ったおぼえが無いですね。試したことはあるかもですが。

私の場合、行番号を振り直すと逆に頭の中のソースのイメージが壊れて混乱してしまう
気がしたので使わなかったのかもですね。再印刷もなかなか出来なかったし。(^^;

> と、ここで問題になったのが、行番号の桁数。せっかくインデントを整えても、
> 90から100とか、990から1000といった行番号の桁数が変わるところでインデントが
> 崩れてしまう。そこでどうするかというと、例えば990行までに収まらないプログラム
> なら1000行からはじめればよい、ということになりました。

これ、私はインデントなどしてなかったので、全く気になりませんでしたね。(^^;
だから今回のテストプログラムも 10番から付けてしまったのです。(^^;

> 必然的に等間隔になるわけです。ここで例えば、いろいろとコードを追加した際に
> その部分を追加したということを目立たせるためにあえて残すべき、という流派の
> 人もいたらしいですが、これはその後、少数派になりました。

どうやら私は少数派のようですね。(^^;

> 当時のBASICの編集画面だと、最近のテキストエディタと違い、それが何行目かと
> いうことが表示されないわけです。ここで、例えば200行に GOTO 800 とあれば、
> もし10番ごとの等間隔なら、ジャンプの飛び先はプログラムリスト上で60行先に
> なるわけで、プリントアウトされた紙で追いかけやすい、という実利的な理由が
> あったわけです。

私がNCプログラムを書いていた当時は、紙にプログラムを手書きしてからタイプライタに打ち込む形でした。
それが面倒に感じたのでパソコンに直接打ち込むスタイルを私が始めたのです。
紙テープに出力、印刷する時は行番号を N001 の形に自動変換していたので
もしかしたら行番号は RENUM していたかもしれません。もう忘れてしまいました。
私にとっては行番号は飾りでした。
# 偉い人にはそれがわからんのですよ。

それで狭い画面で行番号を頼りに確認するのが煩わしくて、スクリーンエデイタを欲したのです。
当時スクリーンエデイタといえば、ワードマスターとか10万以上もするようなのしか無かったと思います。
それで、結局自作のBASICインタプリタ用スクリーンエデイタもどきを作ったのでした。
そのために買ったのが、パソピア7だったという。(^^;
それが J3100SL に変わったころ、PSE や VZエデイタが出てきたのでした。

> もしBASICのプログラムをインタプリタに読み込ます機会があったら、RENUMコマンド
> をかけた結果を保存しておくべきでしょう。

その機会があればやってみたいと思います。
NP2 では、BASIC.COM は動かないみたいですが、これがインタプリタなのですよね。

      - No.11167 -    このTreeへ    コメント元:11166 へ [リストへもどる] soft

(11135) 11168Re^4: MOD と ¥ の有効範囲  投稿者:としき   2024/03/21(木) 11:14
参照先:http://toshiki.la.coocan.jp/
    11167 番 konno さんへのコメント    コメント数 1

> 私はbasic歴が長いので、他の言語が小文字なのに違和感を感じました。

私もBASIC歴はそれなりに長いのですがね。
複数言語に触れたというのが大きな違いでしょうか。

> TBasicインタプリタは、RENUM 開始行番号,旧行番号,増分 となっています。

これはN88-BASICでもN-BASICでも同じです。

> でも私は使ったおぼえが無いですね。試したことはあるかもですが。

ここは逆というか、私は使いまくりでした。
特に便利に使っていたのが、GOTOの飛び先の行番号が実在しないときにはエラーを
表示してくれる機能。行の追加・削除を頻繁に行う場合には、これは必須という
くらいに便利でした。

> 私の場合、行番号を振り直すと逆に頭の中のソースのイメージが壊れて混乱してしまう
> 気がしたので使わなかったのかもですね。再印刷もなかなか出来なかったし。(^^;

この辺はよく理解できない。ということは、私の場合はあまり行番号に依存しないで
ソースをイメージしていたのかな。つまり、私にとっては、行番号なんて単なる飾り
だった、とか。
#私は偉くないから。

> これ、私はインデントなどしてなかったので、全く気になりませんでしたね。(^^;
> だから今回のテストプログラムも 10番から付けてしまったのです。(^^;

ここは私にとって大きな違い。
BASICでもバグの入りにくいコードを書こうと思っていたのでインデントしまくり。

> どうやら私は少数派のようですね。(^^;

別に少数派だからといって恥じる必要はさらさらありませんけどね。
ただ、多数派の言い分としては、そちらのほうがバグ取りがしやすい、というもの。
実際、私の経験からも、多数派のほうが正しそうな気がする。
ということで、バグ取りに悩まされたくないので、私も行番号をそろえていました。
あくまでも、実利優先、ということで。

      - No.11168 -    このTreeへ    コメント元:11167 へ [リストへもどる] soft

(11135) 11171Re^5: MOD と ¥ の有効範囲  投稿者:konno   2024/03/24(日) 00:08
    11168 番 としき さんへのコメント

> 別に少数派だからといって恥じる必要はさらさらありませんけどね。
> ただ、多数派の言い分としては、そちらのほうがバグ取りがしやすい、というもの。
> 実際、私の経験からも、多数派のほうが正しそうな気がする。
> ということで、バグ取りに悩まされたくないので、私も行番号をそろえていました。
> あくまでも、実利優先、ということで。

考えてみたら行番号必須のBASICインタプリタはプログラム言語全体では少数派なんですよね。
行番号付きのBASICインタプリタは作ったその場ですぐ実行できる初心者向きのお手軽な言語だと思います。
だから今でも教育用には使われているのでしょう。
本格的なプログラム言語には行番号は無いので、ラベルでジャンプしますよね。VZマクロも。

ということで、N88BASICなどと共用する場合を除いて行番号は無くす方向で行きたいと思います。
インデントは読みやすくなるのでなるべく心がけるようにします。

      - No.11171 -    このTreeへ    コメント元:11168 へ [リストへもどる] soft

(11135) 11163Re^2: オリジナルの prime.bas のソース  投稿者:としき   2024/03/17(日) 17:09
参照先:http://toshiki.la.coocan.jp/
    11156 番 としき さんへのコメント    コメント数 1

お彼岸の墓参りの相談で実家に顔を出してきました。
その折に、30分ほどですが、PC-98に触れて。

> これをそのままN88-BASICに移植すると、こんな感じかなぁ。
> 実行していないので、そのまま動くかどうかはわかりません。

動きました。
細かくはチェックしていませんが、概ね、一発完動。
一発完動教徒なら、このくらい当たり前、というかもしれませんけどね。

> ・110行目のTHENの行番号は省略できたかもしれない。
>  つまり、NULLの行番号が許容されるのなら、その場合は単に次の行に制御が移る。

あ、ここが省略できるかは確認してこなかった。
次に行ったときには確認してこよう。といいつつ、忘れそうだけど。

次の週末、金曜日から土曜日にかけて実家に泊まることになったので、それまでには
prime2.basのN88-BASICへの移植を終わらせたいなぁ。

      - No.11163 -    このTreeへ    コメント元:11156 へ [リストへもどる] soft

(11135) 11169Re^3: オリジナルの prime.bas のソース  投稿者:としき   2024/03/22(金) 23:02
参照先:http://toshiki.la.coocan.jp/
    11163 番 としき さんへのコメント

宿直の際にものすごく多忙で。
1時間半ぐらいしか仮眠を取れなかったのですが、帰宅後すぐに実家から墓参り。
墓までの往路はいささか危なかったのですが、それでもおおむね安全運転。
墓掃除その他もろもろですっかり眠気は取れて、実家への復路はほぼ問題なし。

それはさておき、現在、実家です。

> > ・110行目のTHENの行番号は省略できたかもしれない。
> あ、ここが省略できるかは確認してこなかった。

省略できることを確認しました。
これでまた少しコードサイズが節減。

      - No.11169 -    このTreeへ    コメント元:11163 へ [リストへもどる] soft