情報量の計算プログラム

　　情報量の計算プログラム 山口　司 2004/07/10 15:18:01 
　　├独自にフォーマット関数を定義する手があり... 白石　和夫 2004/07/10 18:18:01 
　　│└白石様 山口　司 2004/07/13 23:03:59 
　　└グラフィックスウィンドウに表示であれば 哲 2004/07/10 23:22:05 
　　　└哲様 山口　司 2004/07/13 23:12:29

　　情報量の計算プログラム 山口　司 2004/07/10 15:18:01  ツリーへ

情報量の計算プログラム 返事を書く

山口　司 2004/07/10 15:18:01

ことばや文章など個々の事象と事象系についての情報量を求めるプログラムを作りました。
詰めの作業として幾つか、知りたいことがあります。どなたかご指導をお願いします。
その（１）結果のデスプレイとしてマトリクス（例えば縦50横50などの数列）で数値を配置しますが、ゼロの場合の文字をプリントさせないようにしたいのです。[0]を[ ]の空白にしてマトリクス全体を見やすくするためです。初歩的な問題で、恥ずかしいのですが。
以前、N88BASICで作成したときに変換する方法で空白で表示していましたが、回りくどいのでその方法は取りたくありません。簡単な方法がありそうな気がしていますが、よろしくお願いします。

　　├独自にフォーマット関数を定義する手があり... 白石　和夫 2004/07/10 18:18:01  ツリーへ

Re: 情報量の計算プログラム 返事を書く

白石　和夫 2004/07/10 18:18:01

独自にフォーマット関数を定義する手があります。
たとえば，
100 FUNCTION Format$(n)
110 IF n=0 THEN
120 LET Format$=" "
130 ELSE
140 LET Format$=USING$("---%",n)
150 END IF
160 END FUNCTION
170 FOR x=-10 TO 10
180 PRINT Format$(x)
190 NEXT x
200 END
140行は好みで変更してください。

　　│└白石様 山口　司 2004/07/13 23:03:59  ツリーへ

Re: 独自にフォーマット関数を定義する手があり... 返事を書く

山口　司 2004/07/13 23:03:59

白石様
ご指導ありがとうございました。[0]の消去表示ができました
ので、マトリクスから[0]がなくなり、全体が見やすくなりました。取り敢えずお礼申し上げます。

　　└グラフィックスウィンドウに表示であれば 哲 2004/07/10 23:22:05  ツリーへ

Re: 情報量の計算プログラム 返事を書く

哲 2004/07/10 23:22:05

グラフィックスウィンドウに表示であれば
PLOT TEXT ,AT x,y : 式
で位置を指定して、必要な数値だけを表示できると思います。

ただし、この方法は数値を１個づつ出力するので（GUI処理は遅いため）処理が遅くなります。
表示処理を早くするには、やはり０を空白に変換して横１行を１文字列にして出力のした方が良いと思えます？

　　　└哲様 山口　司 2004/07/13 23:12:29  ツリーへ

Re: グラフィックスウィンドウに表示であれば 返事を書く

山口　司 2004/07/13 23:12:29

哲様
有難うございました。一応、文字列の表示で問題は解決いたしましたが、グラフィックス表示の必要もあるかと思います。そのときは参考にさせて頂きます。先ずはお礼まで。

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。

情報量の計算プログラム	返事を書く
山口　司 2004/07/10 15:18:01
ことばや文章など個々の事象と事象系についての情報量を求めるプログラムを作りました。詰めの作業として幾つか、知りたいことがあります。どなたかご指導をお願いします。その（１）結果のデスプレイとしてマトリクス（例えば縦50横50などの数列）で数値を配置しますが、ゼロの場合の文字をプリントさせないようにしたいのです。[0]を[ ]の空白にしてマトリクス全体を見やすくするためです。初歩的な問題で、恥ずかしいのですが。以前、N88BASICで作成したときに変換する方法で空白で表示していましたが、回りくどいのでその方法は取りたくありません。簡単な方法がありそうな気がしていますが、よろしくお願いします。

Re: 情報量の計算プログラム	返事を書く
白石　和夫 2004/07/10 18:18:01
独自にフォーマット関数を定義する手があります。たとえば， 100 FUNCTION Format$(n) 110 IF n=0 THEN 120 LET Format$=" " 130 ELSE 140 LET Format$=USING$("---%",n) 150 END IF 160 END FUNCTION 170 FOR x=-10 TO 10 180 PRINT Format$(x) 190 NEXT x 200 END 140行は好みで変更してください。

Re: 独自にフォーマット関数を定義する手があり...	返事を書く
山口　司 2004/07/13 23:03:59
白石様ご指導ありがとうございました。[0]の消去表示ができましたので、マトリクスから[0]がなくなり、全体が見やすくなりました。取り敢えずお礼申し上げます。

Re: 情報量の計算プログラム	返事を書く
哲 2004/07/10 23:22:05
グラフィックスウィンドウに表示であれば PLOT TEXT ,AT x,y : 式で位置を指定して、必要な数値だけを表示できると思います。ただし、この方法は数値を１個づつ出力するので（GUI処理は遅いため）処理が遅くなります。表示処理を早くするには、やはり０を空白に変換して横１行を１文字列にして出力のした方が良いと思えます？

Re: グラフィックスウィンドウに表示であれば	返事を書く
山口　司 2004/07/13 23:12:29
哲様有難うございました。一応、文字列の表示で問題は解決いたしましたが、グラフィックス表示の必要もあるかと思います。そのときは参考にさせて頂きます。先ずはお礼まで。