PSETについて

　　PSETについて ろごきっと 2003/11/23 20:58:41 
　　├ヘルプによれば「PLOTx,y」は「PLOTLINES:x... 青木 2003/11/24 08:06:23 
　　│└青木さん，アドバイスをいただきましてあり... ろごきっと 2003/11/24 09:13:37 
　　│　└setwindowが必要です。 青木太一 2003/11/24 10:08:00 
　　│　　└丁寧なアドバイス，ありがとうござました。... ろごきっと 2003/11/24 11:05:25 
　　└PLOT文はプロの知恵を曇らせます。 賢者の知恵 2003/12/08 19:31:07

　　PSETについて ろごきっと 2003/11/23 20:58:41  ツリーへ

PSETについて 返事を書く

ろごきっと 2003/11/23 20:58:41

こんにちは，十進BASICプログラムに興味をもち，こちらの
サイトでいろいろ学ばせていただいております。

さて，N88-BASICのプログラムを十進BASIC用に移植してみ
たいと思っています。ヘルプで”PSET(x,y)を PLOT x,y，”
を見つけたのですが，”PSET (X,Y),C"の場合は，どうなる
のでしょうか？　よろしくお願いします。

　　├ヘルプによれば「PLOTx,y」は「PLOTLINES:x... 青木 2003/11/24 08:06:23  ツリーへ

Re: PSETについて 返事を書く

青木 2003/11/24 08:06:23

ヘルプによれば「PLOT x,y」は「PLOT LINES: x,y」と解釈するようなので、
set line color c
を使えばいいのではないでしょうか。

例：左上半分が青、右下半分が赤の正方形を描く
set bitmap size 100,100
set window 1,100,1,100
for x=1 to 100
for y=1 to 100
if x<y then
LET c=2
else
LET c=4
end if
set line color c
plot x,y
next y
next x
END

N88に詳しくないので、間違っているかもしれませが。

　　│└青木さん，アドバイスをいただきましてあり... ろごきっと 2003/11/24 09:13:37  ツリーへ

Re: ヘルプによれば「PLOTx,y」は「PLOTLINES:x... 返事を書く

ろごきっと 2003/11/24 09:13:37

青木さん，アドバイスをいただきましてありがとうございます。
お教えいただいたプログラムは，うまく作図できました。プログラムも分かりやすいのでこれからの参考になりました。
ところで，もとのプログラムは，以下の通りです。
LET XH=10
LET YH=10
FOR X=1 TO 639
FOR Y=0 TO 399
LET C=MOD( (5/X*100+Y) , 7 )
PSET (X,Y),C
NEXT
NEXT
END
これを実行すると，横縞模様ができます。お手数をおかけします
が，十進BASICに移植するにはどうしたらいいのでしょうか？
よろしくお願いします。

　　│　└setwindowが必要です。 青木太一 2003/11/24 10:08:00  ツリーへ

Re: 青木さん，アドバイスをいただきましてあり... 返事を書く

青木太一 2003/11/24 10:08:00

set window が必要です。
これでどうですか？求めている図が出るかわかりませんが...
あと、XH,YHはなにに使うのですか？
(おそらくforのstepなのでしょうが)

set window 1,639,1,399
LET XH=10
LET YH=10
FOR X=1 TO 639
FOR Y=0 TO 399
LET C=MOD( (5/X*100+Y) , 7 )
set line color c
plot X,Y
NEXT Y
NEXT X
END

　　│　　└丁寧なアドバイス，ありがとうござました。... ろごきっと 2003/11/24 11:05:25  ツリーへ

Re: setwindowが必要です。 返事を書く

ろごきっと 2003/11/24 11:05:25

丁寧なアドバイス，ありがとうござました。バッチリokでした。
ご指摘のXHとXYについては，横幅間隔と縦幅間隔を設定するつも
りでしたが，ここでは意味がありませんでした(^^;;

同じやり方で以下のプログラムも正常に動作しました。
set window 1,639,1,399
FOR X=0 TO 639
FOR Y=0 TO 399
LET C=MOD( (X^2/3+Y^2/5)/100 , 7 )
set line color c
plot X,Y
NEXT Y
NEXT X
END

　　└PLOT文はプロの知恵を曇らせます。 賢者の知恵 2003/12/08 19:31:07  ツリーへ

Re: PSETについて 返事を書く

賢者の知恵 2003/12/08 19:31:07

PLOT文はプロの知恵を曇らせます。
極力使用はさけて下さい。
ＴＲＳ-８０から使用されてきた、
PSET文を使用します。

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

PSETについて	返事を書く
ろごきっと 2003/11/23 20:58:41
こんにちは，十進BASICプログラムに興味をもち，こちらのサイトでいろいろ学ばせていただいております。さて，N88-BASICのプログラムを十進BASIC用に移植してみたいと思っています。ヘルプで”PSET(x,y)を PLOT x,y，” を見つけたのですが，”PSET (X,Y),C"の場合は，どうなるのでしょうか？　よろしくお願いします。

Re: PSETについて	返事を書く
青木 2003/11/24 08:06:23
ヘルプによれば「PLOT x,y」は「PLOT LINES: x,y」と解釈するようなので、 set line color c を使えばいいのではないでしょうか。例：左上半分が青、右下半分が赤の正方形を描く set bitmap size 100,100 set window 1,100,1,100 for x=1 to 100 for y=1 to 100 if x<y then LET c=2 else LET c=4 end if set line color c plot x,y next y next x END N88に詳しくないので、間違っているかもしれませが。

Re: ヘルプによれば「PLOTx,y」は「PLOTLINES:x...	返事を書く
ろごきっと 2003/11/24 09:13:37
青木さん，アドバイスをいただきましてありがとうございます。お教えいただいたプログラムは，うまく作図できました。プログラムも分かりやすいのでこれからの参考になりました。ところで，もとのプログラムは，以下の通りです。 LET XH=10 LET YH=10 FOR X=1 TO 639 FOR Y=0 TO 399 LET C=MOD( (5/X*100+Y) , 7 ) PSET (X,Y),C NEXT NEXT END これを実行すると，横縞模様ができます。お手数をおかけしますが，十進BASICに移植するにはどうしたらいいのでしょうか？よろしくお願いします。

Re: 青木さん，アドバイスをいただきましてあり...	返事を書く
青木太一 2003/11/24 10:08:00
set window が必要です。これでどうですか？求めている図が出るかわかりませんが... あと、XH,YHはなにに使うのですか？ (おそらくforのstepなのでしょうが) set window 1,639,1,399 LET XH=10 LET YH=10 FOR X=1 TO 639 FOR Y=0 TO 399 LET C=MOD( (5/X*100+Y) , 7 ) set line color c plot X,Y NEXT Y NEXT X END

Re: setwindowが必要です。	返事を書く
ろごきっと 2003/11/24 11:05:25
丁寧なアドバイス，ありがとうござました。バッチリokでした。ご指摘のXHとXYについては，横幅間隔と縦幅間隔を設定するつもりでしたが，ここでは意味がありませんでした(^^;; 同じやり方で以下のプログラムも正常に動作しました。 set window 1,639,1,399 FOR X=0 TO 639 FOR Y=0 TO 399 LET C=MOD( (X^2/3+Y^2/5)/100 , 7 ) set line color c plot X,Y NEXT Y NEXT X END

Re: PSETについて	返事を書く
賢者の知恵 2003/12/08 19:31:07
PLOT文はプロの知恵を曇らせます。極力使用はさけて下さい。ＴＲＳ-８０から使用されてきた、 PSET文を使用します。