バスの発車のプログラムです。

　　バスの発車のプログラムです。 zyam56 2006/11/04 08:34:09 
　　├こんどは、バスが減速していくようすを示し... zyam56 2006/11/04 08:50:51 
　　│├白く印字する手法 山中和義 2006/11/04 11:01:24 
　　│└!白く印字したあと、数字がチラつくとき、 SECOND 2006/11/04 19:34:20 
　　│　└山中さん、SECONDさん、ありがとうございま... zyam56 2006/11/04 23:34:24 
　　│　　├USING$で不要な少数以下を。xbgiveup. SECOND 2006/11/05 06:40:16 
　　│　　├実際に１０秒後につくように、、、 山中和義 2006/11/05 09:25:05 
　　│　　└ありがとうございます。 zyam56 2006/11/05 12:09:23 
　　├教えていただいたプログラムを切り貼りして... zyam56 2006/11/05 18:36:02 
　　│├２３０～２８０行の文字出力について 山中和義 2006/11/05 20:03:01 
　　│└!よろしければ、上書御免。 SECOND 2006/11/06 03:00:17 
　　│　└訂正 SECOND 2006/11/06 03:44:21 
　　└これは、バスの停車のようすです。 zyam56 2006/11/05 18:42:54

　　バスの発車のプログラムです。 zyam56 2006/11/04 08:34:09  ツリーへ

バスの発車のプログラムです。 返事を書く

zyam56 2006/11/04 08:34:09

中３の関数分野の教材に作りました。生徒はおもしろがってやって
います。学校のPCサーバーに十進BASICをインストールするよう要請したらことわられましたのでFDによる運用です。
**********************************************************
10 REM バスが停留所から発車して１０秒間で５０ｍの距離を加速
して進むようすを示すグラフ。
20 SET WINDOW -2,30,-3,60
30 DRAW GRID
40 REM**************************************
50 DEF f(x)=0.5*x^2
60 DEF h(x)=0
70 FOR X=0 TO 10 STEP 0.0002
80 SET LINE width 3
90 SET LINE COLOR "black"
100 PLOT LINES:x,f(x);x+0.01,f(x)+0.02
110 SET LINE COLOR "blue"
120 PLOT LINES:x,h(0);x,h(x)+0.01
130 SET LINE COLOR "red"
140 PLOT LINES :0,f(x);0+0.03,f(x)
141 REM%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
142 IF x=4 THEN GOTO 143 ELSE GOTO 144
143 PLOT TEXT ,AT 4,5 :"←停留所から発車したバスは徐々に速度を増していく"
144 IF x=7 THEN GOTO 145 ELSE GOTO 146
145 PLOT TEXT ,AT 5,3:"一定の割合で速度を増しながら、速度
を増していく＝等加速度運動"
146 IF x=9 THEN GOTO 147 ELSE GOTO 150
147 PLOT TEXT ,AT 5,1:"一定の割合で速度が増す＝等加速
度；ここでは１m/秒/秒"
149 REM%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
150 NEXT x
160 PLOT TEXT ,AT 10.5,49.5 :"←ここで毎秒１０ｍの速度に達す
る（時速36km）"
165 PLOT TEXT ,AT 11.5,47.5 :"放物線の式は　y=1/2ｘ^2（0=<x=<10）"
170 END

　　├こんどは、バスが減速していくようすを示し... zyam56 2006/11/04 08:50:51  ツリーへ

Re: バスの発車のプログラムです。 返事を書く

zyam56 2006/11/04 08:50:51

こんどは、バスが減速していくようすを示したいのですが、１４５行目の記述によってバス停までの距離（ｍ）をカウントし表示するにはどうすればよいでしょうか。
***************************************************
10 REM%%バスがブレーキをかけて１０秒で５０ｍ進んで停留所に止
まるグラフ。
20 SET WINDOW -2,30,-3,60
30 DRAW GRID
40 REM**************************************
50 DEF f(x)=0.5*x^2-10*x+50
60 DEF h(x)=0
61 REM**************************************
62 PLOT TEXT ,AT 0.5,49.5 :"←ここまで毎秒１０ｍの速さで走ってきたバスが、"
63 PLOT TEXT ,AT 1,47.5 :"バス停の手まえ50メートルでブレーキをかけはじめる。"
64 PLOT TEXT ,AT 1,45.5 :"等加速度運動（マイナスの加速度＝減速）"
65 REM**************************************
70 FOR X=0 TO 10 STEP 0.0005
80 SET LINE width 3
90 SET LINE COLOR "black"
100 PLOT LINES:x,f(x);x+0.01,f(x)+0.01
110 SET LINE COLOR "blue"
120 PLOT LINES:x,h(0);x,h(x)+0.01
130 SET LINE COLOR "red"
140 PLOT LINES :0,f(x);0+0.03,f(x)
145 PLOT TEXT ,AT 10,3: "停留所までのあと="&STR$(f(x))
150 NEXT x
160 PLOT TEXT ,AT 10.5,1 :"停留所に着いて止まった。"
170 END

　　│├白く印字する手法 山中和義 2006/11/04 11:01:24  ツリーへ

Re: こんどは、バスが減速していくようすを示し... 返事を書く

山中和義 2006/11/04 11:01:24

白く印字する手法

背景が白なので、印字した文字を白色で再印字します。そうすると、消えます。
ただし、グラフがその部分白く消えてしまいます。

140 PLOT LINES :0,f(x);0+0.03,f(x)
SET TEXT COLOR 0
PLOT TEXT ,AT 10,3: "停留所までのあと="&old_fx$
SET TEXT COLOR 1
145 PLOT TEXT ,AT 10,3: "停留所までのあと="&STR$(f(x))
LET old_fx$=STR$(f(x))
150 NEXT x

その他、全体を再描画する手法もあります。

　　│└!白く印字したあと、数字がチラつくとき、 SECOND 2006/11/04 19:34:20  ツリーへ

Re: こんどは、バスが減速していくようすを示し... 返事を書く

SECOND 2006/11/04 19:34:20

!白く印字したあと、数字がチラつくとき、
!上書き御免。

10 REM%%バスがブレーキをかけて１０秒で５０ｍ進んで停留所に止まるグラフ。
20 SET WINDOW -2,30,-3,60
30 DRAW GRID
40 REM**************************************
50 DEF f(x)=0.5*x^2-10*x+50
60 DEF h(x)=0
61 REM**************************************
62 PLOT TEXT ,AT 0.5,49.5 :"←ここまで毎秒１０ｍの速さで走ってきたバスが、"
63 PLOT TEXT ,AT 1,47.5 :"バス停の手まえ50メートルでブレーキをかけはじめる。"
64 PLOT TEXT ,AT 1,45.5 :"等加速度運動（マイナスの加速度＝減速）"
65 REM**************************************
70 FOR X=0 TO 10 STEP 0.1
IF x=0 THEN 144
!---
SET LINE width 3
110 SET LINE COLOR "blue"
120 PLOT LINES:xb,h(xb) ;x,h(x)
130 SET LINE COLOR "red"
140 PLOT LINES :0,f(xb) ;0,f(x)
!---
SET LINE width 2
SET LINE COLOR "black"
PLOT LINES:xb,f(xb) ;x,f(x)
!---
SET TEXT COLOR "white"
PLOT TEXT ,AT 10,3: "　　　　　　　　 "&STR$(f(xb))
144 SET TEXT COLOR "black"
145 PLOT TEXT ,AT 10,3: "停留所までのあと="&STR$(f(x))
!---
WAIT DELAY 0.1
LET xb=x
150 NEXT x
160 PLOT TEXT ,AT 10.5,1 :"停留所に着いて止まった。"
170 END

　　│　└山中さん、SECONDさん、ありがとうございま... zyam56 2006/11/04 23:34:24  ツリーへ

Re: !白く印字したあと、数字がチラつくとき、 返事を書く

zyam56 2006/11/04 23:34:24

山中さん、SECONDさん、ありがとうございます。
とりあえず、下記のようなプログラムを書きました。
実際に１０秒後につくようにCPUのクロックにあわせて
FOR x=0 to 10 STEP 0.0015 の刻みを変更していくと
到着距離が0にならないような現象が生ずることも分かりました。
考えてみれば、10秒を割り切らないSTEPの刻みを設定しているのですからこれは当然のことですよね。イヤ、なかなか難しいものですね。
**********************************************************
10 REM%%バスがブレーキをかけて１０秒で５０ｍ進んで停留所に止まるグラフ。
20 SET WINDOW -2,30,-3,60
30 DRAW GRID
40 REM**************************************
50 DEF f(x)=0.5*x^2-10*x+50
60 DEF h(x)=0
61 REM**************************************
62 PLOT TEXT ,AT 0.5,49.5 :"←ここまで毎秒１０ｍの速さで走ってきたバスが、"
63 PLOT TEXT ,AT 1,47.5 :"バス停の手まえ50メートルでブレーキをかけはじめる。"
64 PLOT TEXT ,AT 1,45.5 :"等加速度運動（マイナスの加速度＝減速）"
65 REM**************************************
70 FOR X=0 TO 10 STEP 0.0011
80 SET LINE width 3
90 SET LINE COLOR "black"
100 PLOT LINES:x,f(x);x+0.01,f(x)+0.01
110 SET LINE COLOR "blue"
120 PLOT LINES:x,h(0);x,h(x)+0.01
130 SET LINE COLOR "red"
140 PLOT LINES :0,f(x);0+0.03,f(x)
141 REM**************************************************
142 PLOT TEXT ,AT 10,3: "停留所までの距離、あと"
143 PLOT TEXT ,AT 23,3: "メートル"
144 SET TEXT COLOR 0
145 PLOT TEXT ,AT 18,3: old_fx$
146 SET TEXT COLOR 1
147 PLOT TEXT ,AT 18,3: STR$(f(x))
148 LET old_fx$=STR$(f(x))
149 REM**************************************************
150 NEXT x
160 PLOT TEXT ,AT 10.5,1 :"停留所に着いて止まった。"
170 END

　　│　　├USING$で不要な少数以下を。xbgiveup. SECOND 2006/11/05 06:40:16  ツリーへ

Re: 山中さん、SECONDさん、ありがとうございま... 返事を書く

SECOND 2006/11/05 06:40:16

USING$ で不要な少数以下を。xb give up.

10 REM%%バスがブレーキをかけて１０秒で５０ｍ進んで停留所に止まるグラフ。
20 SET WINDOW -2,30,-3,60
30 DRAW GRID
40 REM**************************************
50 DEF f(x)=0.5*x^2-10*x+50
60 DEF h(x)=0
61 REM**************************************
62 PLOT TEXT ,AT 0.5,49.5 :"←ここまで毎秒１０ｍの速さで走ってきたバスが、"
63 PLOT TEXT ,AT 1,47.5 :"バス停の手まえ50メートルでブレーキをかけはじめる。"
64 PLOT TEXT ,AT 1,45.5 :"等加速度運動（マイナスの加速度＝減速）"
65 REM**************************************
70 FOR X=0 TO 10 STEP 0.0015
80 SET LINE width 3
90 SET LINE COLOR "black"
100 PLOT LINES:x,f(x);x+0.01,f(x)+0.01
110 SET LINE COLOR "blue"
120 PLOT LINES:x,h(0);x,h(x)+0.01
130 SET LINE COLOR "red"
140 PLOT LINES :0,f(x);0+0.03,f(x)
141 REM**************************************************
142 PLOT TEXT ,AT 10,3: "停留所までの距離、あと"
143 !
144 SET TEXT COLOR 0
145 PLOT TEXT ,AT 20,3: old_fx$
146 SET TEXT COLOR 1
147 PLOT TEXT ,AT 20,3: USING$("###.###",f(x)) & " メートル"
148 LET old_fx$= USING$("###.###",f(x))
149 REM**************************************************
150 NEXT x
160 PLOT TEXT ,AT 10.5,1 :"停留所に着いて止まった。"
170 END

　　│　　├実際に１０秒後につくように、、、 山中和義 2006/11/05 09:25:05  ツリーへ

Re: 山中さん、SECONDさん、ありがとうございま... 返事を書く

山中和義 2006/11/05 09:25:05

実際に１０秒後につくように、、、
CPUに依存しないように時間に応じた処理をする必要があります。
また、文字出力がずれる補正もしてあります。

10 REM%%バスがブレーキをかけて１０秒で５０ｍ進んで停留所に止まるグラフ。
20 SET WINDOW -2,30,-3,60
30 DRAW GRID
40 REM**************************************
50 DEF f(x)=0.5*x^2-10*x+50
60 DEF h(x)=0
61 REM**************************************
62 PLOT TEXT ,AT 0.5,49.5 :"←ここまで毎秒１０ｍの速さで走ってきたバスが、"
63 PLOT TEXT ,AT 1,47.5 :"バス停の手まえ50メートルでブレーキをかけはじめる。"
64 PLOT TEXT ,AT 1,45.5 :"等加速度運動（マイナスの加速度＝減速）"
65 REM**************************************
LET t=TIME !開始時間
LET x=0 !経過時間
LET xb=0 !以前
DO WHILE ABS(f(x))>0.001 !距離が０になるまで
LET x=TIME-t
80 SET LINE width 3
90 SET LINE COLOR "black"
100 PLOT LINES: xb,f(xb); x,f(x)
110 SET LINE COLOR "blue"
SET LINE width 1
120 PLOT LINES: xb,0; x,0
130 SET LINE COLOR "red"
SET LINE width 3
140 PLOT LINES: 0,f(xb); 0,f(x)
141 REM**************************************************
142 PLOT TEXT ,AT 10,3: "停留所までの距離、あと"
ASK TEXT WIDTH("停留所までの距離、あと") wd
144 SET TEXT COLOR 0
PLOT TEXT ,AT 10+wd,3: old_fx$
146 SET TEXT COLOR 1
LET old_fx$=USING$("###.###",f(x))
PLOT TEXT ,AT 10+wd,3: old_fx$
ASK TEXT WIDTH(old_fx$) wd2
PLOT TEXT ,AT 10+wd+wd2,3: "メートル"
LET xb=x
149 REM**************************************************
LOOP
160 PLOT TEXT ,AT 10.5,1: "停留所に着いて止まった。"
170 END

　　│　　└ありがとうございます。 zyam56 2006/11/05 12:09:23  ツリーへ

Re: 山中さん、SECONDさん、ありがとうございま... 返事を書く

zyam56 2006/11/05 12:09:23

ありがとうございます。
ごく簡単なプログラムしか書けない初心者ですのでこうしてネット上で教えて頂くことができたいへんたすかりました。

　　├教えていただいたプログラムを切り貼りして... zyam56 2006/11/05 18:36:02  ツリーへ

Re: バスの発車のプログラムです。 返事を書く

zyam56 2006/11/05 18:36:02

教えていただいたプログラムを切り貼りして何とか教室で使えそうな状態になりました。
アルゴリズムやコマンドについては？？なところ多々ですが、結果オーライということでしょうか。
**********************************************************
10 REM%%バスがアクセル踏んで１０秒加速し５０ｍ進んで等速度に移るグラフ。
20 SET WINDOW -2,30,-3,60
30 DRAW GRID
40 REM**************************************
50 DEF f(x)=0.5*x^2
60 DEF h(x)=0
61 DEF v(x)=x
62 REM**************************************
63 REM**************************************
70 LET t=TIME !開始時間
80 LET x=0 !経過時間
90 LET xb=0 !以前
100 REM*********************************************
110 DO WHILE ABS(f(x))<50 !距離が５０になるまで
120 LET x=TIME-t
130 SET LINE width 4
140 SET LINE COLOR "black"
150 PLOT LINES: xb,f(xb); x,f(x)
160 SET LINE COLOR "blue"
170 SET LINE width 4
180 PLOT LINES: xb,0; x,0
190 SET LINE COLOR "red"
200 SET LINE width 4
210 PLOT LINES: 0,f(xb); 0,f(x)
220 REM%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
229 SET TEXT COLOR 1
230 IF x=5 THEN GOTO 240 ELSE GOTO 250
240 PLOT TEXT ,AT 5,9 :"←停留所から発車したバスは徐々に速度を増していく"
250 IF x=7 THEN GOTO 260 ELSE GOTO 270
260 PLOT TEXT ,AT 6,14:"一定の割合で速度を増しながら、速度を増していく＝等加速度運動"
270 IF x=9 THEN GOTO 280 ELSE GOTO 300
280 PLOT TEXT ,AT 7,20:"一定の割合で速度が増す＝等加速度；ここでは１m/秒/秒"
290 REM**************************************************
300 SET TEXT COLOR 2
310 PLOT TEXT ,AT 10,3: "停留所からの距離　"
320 ASK TEXT WIDTH("停留所からの距離") wd
330 SET TEXT COLOR 0
340 PLOT TEXT ,AT 10+wd,3: old_fx$
350 SET TEXT COLOR 4
360 LET old_fx$=USING$("###.##",f(x))
370 PLOT TEXT ,AT 10+wd,3: old_fx$
380 ASK TEXT WIDTH(old_fx$) wd2
390 PLOT TEXT ,AT 10+wd+wd2,3: "メートル"
400 LET xb=x
410 REM**************************************************
420 SET TEXT COLOR 2
430 PLOT TEXT ,AT 10,6: "バスの速さ"
440 ASK TEXT WIDTH("バスの速さ") wd
450 SET TEXT COLOR 0
460 PLOT TEXT ,AT 10+wd,6: old_vx$
470 SET TEXT COLOR 4
480 LET old_vx$=USING$("###.#",v(x))
490 PLOT TEXT ,AT 10+wd,6: old_vx$
500 ASK TEXT WIDTH(old_vx$) wd2
510 PLOT TEXT ,AT 10+wd+wd2,6: "ｍ／秒"
520 LET xb=x
530 REM *************************************************
540 LOOP
541 SET TEXT COLOR 1
550 PLOT TEXT ,AT 10.5,50: "等速度運動に移った。"
560 END

　　│├２３０～２８０行の文字出力について 山中和義 2006/11/05 20:03:01  ツリーへ

Re: 教えていただいたプログラムを切り貼りして... 返事を書く

山中和義 2006/11/05 20:03:01

２３０～２８０行の文字出力について
ｘは時間ですが、正確な値、たとえば５．０００～（ジャスト５秒）のような値になりません。
したがって、ＣＰＵによっては表示できない場合があります。
２３０、２５０、２７０の判断文を次のようにするのがよいでしょう。

整数化して
230 IF INT(x)=5 THEN GOTO 240 ELSE GOTO 250
240 PLOT TEXT ,AT 5,9 :"←停留所から発車したバスは徐々に速度を増していく"
250 IF INT(x)=7 THEN GOTO 260 ELSE GOTO 270
260 PLOT TEXT ,AT 6,14:"一定の割合で速度を増しながら、速度を増していく＝等加速度運動"
270 IF INT(x)=9 THEN GOTO 280 ELSE GOTO 300
280 PLOT TEXT ,AT 7,20:"一定の割合で速度が増す＝等加速度；ここでは１m/秒/秒"

または、区分分けして
230 IF x<5 THEN GOTO 250
240 PLOT TEXT ,AT 5,9 :"←停留所から発車したバスは徐々に速度を増していく"
250 IF x<7 THEN GOTO 270
260 PLOT TEXT ,AT 6,14:"一定の割合で速度を増しながら、速度を増していく＝等加速度運動"
270 IF x<9 THEN GOTO 300
280 PLOT TEXT ,AT 7,20:"一定の割合で速度が増す＝等加速度；ここでは１m/秒/秒"

どちらも二重書きになる可能性はありますが、表示結果に影響しません。

　　│└!よろしければ、上書御免。 SECOND 2006/11/06 03:00:17  ツリーへ

Re: 教えていただいたプログラムを切り貼りして... 返事を書く

SECOND 2006/11/06 03:00:17

!よろしければ、上書御免。

10 REM%%バスがアクセル踏んで１０秒加速し５０ｍ進んで等速度に移るグラフ。
20 SET WINDOW -2,30,-3,60
30 DRAW GRID
40 REM**************************************
50 DEF f(x)=0.5*x^2
60 DEF h(x)=0
61 DEF v(x)=x
62 REM**************************************
63 REM**************************************
70 LET t=TIME !開始時刻
80 LET x=0 !経過時間
90 !
100 REM*********************************************
110 DO WHILE f(x)<50 !距離が５０になるまで
LET xb=x !-----この場合は、この位置の方が？
120 LET x=TIME-t
IF 50<x THEN LET x=50
160 SET LINE COLOR "blue"
170 SET LINE width 4
180 PLOT LINES: xb,0; x,0
190 SET LINE COLOR "red"
200 SET LINE width 4
210 PLOT LINES: 0,f(xb); 0,f(x)
!-----主曲線は、他の下敷きにならない様、最後に描画
SET LINE COLOR "black"
SET LINE width 4
PLOT LINES: xb,f(xb); x,f(x)
220 REM%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
229 SET TEXT COLOR 1
230 IF x<5 THEN 300
240 PLOT TEXT ,AT 5.5,12:"←停留所から発車したバスは徐々に速度を増していく"
250 IF x<7 THEN 300
260 PLOT TEXT ,AT 7.5,24:"一定の割合で速度を増しながら、速度を増していく＝等加速度運動"
270 IF x<9 THEN 300
280 PLOT TEXT ,AT 9.5,40:"一定の割合で速度が増す＝等加速度；ここでは１m/秒/秒"
290 REM**************************************************
300 SET TEXT COLOR 2
310 PLOT TEXT ,AT 10,3: "停留所からの距離　"
320 ASK TEXT WIDTH("停留所からの距離") wd
330 SET TEXT COLOR 0
340 PLOT TEXT ,AT 10+wd,3: old_fx$
350 SET TEXT COLOR 4
360 LET old_fx$=USING$("###.##",f(x))
370 PLOT TEXT ,AT 10+wd,3: old_fx$ & "メートル"
380 !
390 !
400 !
410 REM**************************************************
420 SET TEXT COLOR 2
430 PLOT TEXT ,AT 10,6: "バスの速さ"
440 ASK TEXT WIDTH("バスの速さ") wd
450 SET TEXT COLOR 0
460 PLOT TEXT ,AT 10+wd,6: old_vx$
470 SET TEXT COLOR 4
480 LET old_vx$=USING$("###.#",v(x))
490 PLOT TEXT ,AT 10+wd,6: old_vx$ & "ｍ／秒"
500 !
510 !
520 !
530 REM *************************************************
540 LOOP
541 SET TEXT COLOR 1
550 PLOT TEXT ,AT 10.5,50: "等速度運動に移った。"
560 END

　　│　└訂正 SECOND 2006/11/06 03:44:21  ツリーへ

Re: !よろしければ、上書御免。 返事を書く

SECOND 2006/11/06 03:44:21

訂正
１２０行の次の
IF 50<x THEN LET x=50　は、間違いで、
IF 10<x THEN LET x=10　です。
動作環境が変わっても
終了を１０秒、５０ｍ丁度に命中させるためですが、
距離を変えたりする際に、煩雑なので
外した方がいいかも知れません。

　　└これは、バスの停車のようすです。 zyam56 2006/11/05 18:42:54  ツリーへ

Re: バスの発車のプログラムです。 返事を書く

zyam56 2006/11/05 18:42:54

これは、バスの停車のようすです。
****************************************************
10 REM%%バスがブレーキをかけて１０秒で５０ｍ進んで停留所に止まるグラフ。
20 SET WINDOW -2,30,-3,60
30 DRAW GRID
40 REM**************************************
50 DEF f(x)=0.5*x^2-10*x+50
60 DEF h(x)=0
61 DEF v(x)=10-x
62 REM**************************************
63 PLOT TEXT ,AT 0.5,49.5 :"←ここまで毎秒１０ｍの速さで走ってきたバスが、"
64 PLOT TEXT ,AT 1,47.5 :"バス停の手まえ50メートルでブレーキをかけはじめる。"
65 PLOT TEXT ,AT 1,45.5 :"等加速度運動（マイナスの加速度＝減速）"
66 REM**************************************
70 LET t=TIME !開始時間
71 LET x=0 !経過時間
72 LET xb=0 !以前
73 REM*********************************************
74 DO WHILE ABS(f(x))>0.001 !距離が０になるまで
75 LET x=TIME-t
80 SET LINE width 4
90 SET LINE COLOR "black"
100 PLOT LINES: xb,f(xb); x,f(x)
110 SET LINE COLOR "blue"
120 SET LINE width 4
130 PLOT LINES: xb,0; x,0
140 SET LINE COLOR "red"
150 SET LINE width 4
160 PLOT LINES: 0,f(xb); 0,f(x)
170 REM**************************************************
180 SET TEXT COLOR 2
190 PLOT TEXT ,AT 10,3: "停留所までの距離、あと"
200 ASK TEXT WIDTH("停留所までの距離、あと") wd
210 SET TEXT COLOR 0
220 PLOT TEXT ,AT 10+wd,3: old_fx$
230 SET TEXT COLOR 4
240 LET old_fx$=USING$("###.##",f(x))
250 PLOT TEXT ,AT 10+wd,3: old_fx$
260 ASK TEXT WIDTH(old_fx$) wd2
270 PLOT TEXT ,AT 10+wd+wd2,3: "メートル"
280 LET xb=x
290 REM**************************************************
300 SET TEXT COLOR 2
310 PLOT TEXT ,AT 10,6: "バスの速さ"
320 ASK TEXT WIDTH("バスの速さ") wd
330 SET TEXT COLOR 0
340 PLOT TEXT ,AT 10+wd,6: old_vx$
350 SET TEXT COLOR 4
360 LET old_vx$=USING$("###.#",v(x))
370 PLOT TEXT ,AT 10+wd,6: old_vx$
380 ASK TEXT WIDTH(old_vx$) wd2
390 PLOT TEXT ,AT 10+wd+wd2,6: "ｍ／秒"
400 LET xb=x
410 REM *************************************************
420 LOOP
430 PLOT TEXT ,AT 10.5,1: "停留所に着いて止まった。"
440 END

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

バスの発車のプログラムです。	返事を書く
zyam56 2006/11/04 08:34:09
中３の関数分野の教材に作りました。生徒はおもしろがってやっています。学校のPCサーバーに十進BASICをインストールするよう要請したらことわられましたのでFDによる運用です。 ******************************************************** 10 REM バスが停留所から発車して１０秒間で５０ｍの距離を加速して進むようすを示すグラフ。 20 SET WINDOW -2,30,-3,60 30 DRAW GRID 40 REM************************************ 50 DEF f(x)=0.5*x^2 60 DEF h(x)=0 70 FOR X=0 TO 10 STEP 0.0002 80 SET LINE width 3 90 SET LINE COLOR "black" 100 PLOT LINES:x,f(x);x+0.01,f(x)+0.02 110 SET LINE COLOR "blue" 120 PLOT LINES:x,h(0);x,h(x)+0.01 130 SET LINE COLOR "red" 140 PLOT LINES :0,f(x);0+0.03,f(x) 141 REM%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 142 IF x=4 THEN GOTO 143 ELSE GOTO 144 143 PLOT TEXT ,AT 4,5 :"←停留所から発車したバスは徐々に速度を増していく" 144 IF x=7 THEN GOTO 145 ELSE GOTO 146 145 PLOT TEXT ,AT 5,3:"一定の割合で速度を増しながら、速度を増していく＝等加速度運動" 146 IF x=9 THEN GOTO 147 ELSE GOTO 150 147 PLOT TEXT ,AT 5,1:"一定の割合で速度が増す＝等加速度；ここでは１m/秒/秒" 149 REM%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 150 NEXT x 160 PLOT TEXT ,AT 10.5,49.5 :"←ここで毎秒１０ｍの速度に達する（時速36km）" 165 PLOT TEXT ,AT 11.5,47.5 :"放物線の式は　y=1/2ｘ^2（0=<x=<10）" 170 END

Re: バスの発車のプログラムです。	返事を書く
zyam56 2006/11/04 08:50:51
こんどは、バスが減速していくようすを示したいのですが、１４５行目の記述によってバス停までの距離（ｍ）をカウントし表示するにはどうすればよいでしょうか。 ************************************************* 10 REM%%バスがブレーキをかけて１０秒で５０ｍ進んで停留所に止まるグラフ。 20 SET WINDOW -2,30,-3,60 30 DRAW GRID 40 REM************************************ 50 DEF f(x)=0.5x^2-10x+50 60 DEF h(x)=0 61 REM************************************ 62 PLOT TEXT ,AT 0.5,49.5 :"←ここまで毎秒１０ｍの速さで走ってきたバスが、" 63 PLOT TEXT ,AT 1,47.5 :"バス停の手まえ50メートルでブレーキをかけはじめる。" 64 PLOT TEXT ,AT 1,45.5 :"等加速度運動（マイナスの加速度＝減速）" 65 REM************************************ 70 FOR X=0 TO 10 STEP 0.0005 80 SET LINE width 3 90 SET LINE COLOR "black" 100 PLOT LINES:x,f(x);x+0.01,f(x)+0.01 110 SET LINE COLOR "blue" 120 PLOT LINES:x,h(0);x,h(x)+0.01 130 SET LINE COLOR "red" 140 PLOT LINES :0,f(x);0+0.03,f(x) 145 PLOT TEXT ,AT 10,3: "停留所までのあと="&STR$(f(x)) 150 NEXT x 160 PLOT TEXT ,AT 10.5,1 :"停留所に着いて止まった。" 170 END

Re: こんどは、バスが減速していくようすを示し...	返事を書く
山中和義 2006/11/04 11:01:24
白く印字する手法背景が白なので、印字した文字を白色で再印字します。そうすると、消えます。ただし、グラフがその部分白く消えてしまいます。 140 PLOT LINES :0,f(x);0+0.03,f(x) SET TEXT COLOR 0 PLOT TEXT ,AT 10,3: "停留所までのあと="&old_fx$ SET TEXT COLOR 1 145 PLOT TEXT ,AT 10,3: "停留所までのあと="&STR$(f(x)) LET old_fx$=STR$(f(x)) 150 NEXT x その他、全体を再描画する手法もあります。

Re: こんどは、バスが減速していくようすを示し...	返事を書く
SECOND 2006/11/04 19:34:20
!白く印字したあと、数字がチラつくとき、 !上書き御免。 10 REM%%バスがブレーキをかけて１０秒で５０ｍ進んで停留所に止まるグラフ。 20 SET WINDOW -2,30,-3,60 30 DRAW GRID 40 REM************************************** 50 DEF f(x)=0.5x^2-10x+50 60 DEF h(x)=0 61 REM************************************ 62 PLOT TEXT ,AT 0.5,49.5 :"←ここまで毎秒１０ｍの速さで走ってきたバスが、" 63 PLOT TEXT ,AT 1,47.5 :"バス停の手まえ50メートルでブレーキをかけはじめる。" 64 PLOT TEXT ,AT 1,45.5 :"等加速度運動（マイナスの加速度＝減速）" 65 REM************************************ 70 FOR X=0 TO 10 STEP 0.1 IF x=0 THEN 144 !--- SET LINE width 3 110 SET LINE COLOR "blue" 120 PLOT LINES:xb,h(xb) ;x,h(x) 130 SET LINE COLOR "red" 140 PLOT LINES :0,f(xb) ;0,f(x) !--- SET LINE width 2 SET LINE COLOR "black" PLOT LINES:xb,f(xb) ;x,f(x) !--- SET TEXT COLOR "white" PLOT TEXT ,AT 10,3: "　　　　　　　　 "&STR$(f(xb)) 144 SET TEXT COLOR "black" 145 PLOT TEXT ,AT 10,3: "停留所までのあと="&STR$(f(x)) !--- WAIT DELAY 0.1 LET xb=x 150 NEXT x 160 PLOT TEXT ,AT 10.5,1 :"停留所に着いて止まった。" 170 END

Re: !白く印字したあと、数字がチラつくとき、	返事を書く
zyam56 2006/11/04 23:34:24
山中さん、SECONDさん、ありがとうございます。とりあえず、下記のようなプログラムを書きました。実際に１０秒後につくようにCPUのクロックにあわせて FOR x=0 to 10 STEP 0.0015 の刻みを変更していくと到着距離が0にならないような現象が生ずることも分かりました。考えてみれば、10秒を割り切らないSTEPの刻みを設定しているのですからこれは当然のことですよね。イヤ、なかなか難しいものですね。 ******************************************************** 10 REM%%バスがブレーキをかけて１０秒で５０ｍ進んで停留所に止まるグラフ。 20 SET WINDOW -2,30,-3,60 30 DRAW GRID 40 REM************************************ 50 DEF f(x)=0.5x^2-10x+50 60 DEF h(x)=0 61 REM************************************ 62 PLOT TEXT ,AT 0.5,49.5 :"←ここまで毎秒１０ｍの速さで走ってきたバスが、" 63 PLOT TEXT ,AT 1,47.5 :"バス停の手まえ50メートルでブレーキをかけはじめる。" 64 PLOT TEXT ,AT 1,45.5 :"等加速度運動（マイナスの加速度＝減速）" 65 REM********************************** 70 FOR X=0 TO 10 STEP 0.0011 80 SET LINE width 3 90 SET LINE COLOR "black" 100 PLOT LINES:x,f(x);x+0.01,f(x)+0.01 110 SET LINE COLOR "blue" 120 PLOT LINES:x,h(0);x,h(x)+0.01 130 SET LINE COLOR "red" 140 PLOT LINES :0,f(x);0+0.03,f(x) 141 REM********************************************** 142 PLOT TEXT ,AT 10,3: "停留所までの距離、あと" 143 PLOT TEXT ,AT 23,3: "メートル" 144 SET TEXT COLOR 0 145 PLOT TEXT ,AT 18,3: old_fx$ 146 SET TEXT COLOR 1 147 PLOT TEXT ,AT 18,3: STR$(f(x)) 148 LET old_fx$=STR$(f(x)) 149 REM************************************************ 150 NEXT x 160 PLOT TEXT ,AT 10.5,1 :"停留所に着いて止まった。" 170 END

Re: 山中さん、SECONDさん、ありがとうございま...	返事を書く
SECOND 2006/11/05 06:40:16
USING$ で不要な少数以下を。xb give up. 10 REM%%バスがブレーキをかけて１０秒で５０ｍ進んで停留所に止まるグラフ。 20 SET WINDOW -2,30,-3,60 30 DRAW GRID 40 REM************************************** 50 DEF f(x)=0.5x^2-10x+50 60 DEF h(x)=0 61 REM************************************ 62 PLOT TEXT ,AT 0.5,49.5 :"←ここまで毎秒１０ｍの速さで走ってきたバスが、" 63 PLOT TEXT ,AT 1,47.5 :"バス停の手まえ50メートルでブレーキをかけはじめる。" 64 PLOT TEXT ,AT 1,45.5 :"等加速度運動（マイナスの加速度＝減速）" 65 REM********************************** 70 FOR X=0 TO 10 STEP 0.0015 80 SET LINE width 3 90 SET LINE COLOR "black" 100 PLOT LINES:x,f(x);x+0.01,f(x)+0.01 110 SET LINE COLOR "blue" 120 PLOT LINES:x,h(0);x,h(x)+0.01 130 SET LINE COLOR "red" 140 PLOT LINES :0,f(x);0+0.03,f(x) 141 REM********************************************** 142 PLOT TEXT ,AT 10,3: "停留所までの距離、あと" 143 ! 144 SET TEXT COLOR 0 145 PLOT TEXT ,AT 20,3: old_fx$ 146 SET TEXT COLOR 1 147 PLOT TEXT ,AT 20,3: USING$("###.###",f(x)) & " メートル" 148 LET old_fx$= USING$("###.###",f(x)) 149 REM************************************************ 150 NEXT x 160 PLOT TEXT ,AT 10.5,1 :"停留所に着いて止まった。" 170 END

Re: 山中さん、SECONDさん、ありがとうございま...	返事を書く
山中和義 2006/11/05 09:25:05
実際に１０秒後につくように、、、 CPUに依存しないように時間に応じた処理をする必要があります。また、文字出力がずれる補正もしてあります。 10 REM%%バスがブレーキをかけて１０秒で５０ｍ進んで停留所に止まるグラフ。 20 SET WINDOW -2,30,-3,60 30 DRAW GRID 40 REM************************************** 50 DEF f(x)=0.5x^2-10x+50 60 DEF h(x)=0 61 REM************************************ 62 PLOT TEXT ,AT 0.5,49.5 :"←ここまで毎秒１０ｍの速さで走ってきたバスが、" 63 PLOT TEXT ,AT 1,47.5 :"バス停の手まえ50メートルでブレーキをかけはじめる。" 64 PLOT TEXT ,AT 1,45.5 :"等加速度運動（マイナスの加速度＝減速）" 65 REM********************************** LET t=TIME !開始時間 LET x=0 !経過時間 LET xb=0 !以前 DO WHILE ABS(f(x))>0.001 !距離が０になるまで LET x=TIME-t 80 SET LINE width 3 90 SET LINE COLOR "black" 100 PLOT LINES: xb,f(xb); x,f(x) 110 SET LINE COLOR "blue" SET LINE width 1 120 PLOT LINES: xb,0; x,0 130 SET LINE COLOR "red" SET LINE width 3 140 PLOT LINES: 0,f(xb); 0,f(x) 141 REM********************************************** 142 PLOT TEXT ,AT 10,3: "停留所までの距離、あと" ASK TEXT WIDTH("停留所までの距離、あと") wd 144 SET TEXT COLOR 0 PLOT TEXT ,AT 10+wd,3: old_fx$ 146 SET TEXT COLOR 1 LET old_fx$=USING$("###.###",f(x)) PLOT TEXT ,AT 10+wd,3: old_fx$ ASK TEXT WIDTH(old_fx$) wd2 PLOT TEXT ,AT 10+wd+wd2,3: "メートル" LET xb=x 149 REM************************************************ LOOP 160 PLOT TEXT ,AT 10.5,1: "停留所に着いて止まった。" 170 END

Re: 山中さん、SECONDさん、ありがとうございま...	返事を書く
zyam56 2006/11/05 12:09:23
ありがとうございます。ごく簡単なプログラムしか書けない初心者ですのでこうしてネット上で教えて頂くことができたいへんたすかりました。

Re: バスの発車のプログラムです。	返事を書く
zyam56 2006/11/05 18:36:02
教えていただいたプログラムを切り貼りして何とか教室で使えそうな状態になりました。アルゴリズムやコマンドについては？？なところ多々ですが、結果オーライということでしょうか。 ******************************************************** 10 REM%%バスがアクセル踏んで１０秒加速し５０ｍ進んで等速度に移るグラフ。 20 SET WINDOW -2,30,-3,60 30 DRAW GRID 40 REM************************************ 50 DEF f(x)=0.5x^2 60 DEF h(x)=0 61 DEF v(x)=x 62 REM*********************************** 63 REM********************************** 70 LET t=TIME !開始時間 80 LET x=0 !経過時間 90 LET xb=0 !以前 100 REM***************************************** 110 DO WHILE ABS(f(x))<50 !距離が５０になるまで 120 LET x=TIME-t 130 SET LINE width 4 140 SET LINE COLOR "black" 150 PLOT LINES: xb,f(xb); x,f(x) 160 SET LINE COLOR "blue" 170 SET LINE width 4 180 PLOT LINES: xb,0; x,0 190 SET LINE COLOR "red" 200 SET LINE width 4 210 PLOT LINES: 0,f(xb); 0,f(x) 220 REM%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 229 SET TEXT COLOR 1 230 IF x=5 THEN GOTO 240 ELSE GOTO 250 240 PLOT TEXT ,AT 5,9 :"←停留所から発車したバスは徐々に速度を増していく" 250 IF x=7 THEN GOTO 260 ELSE GOTO 270 260 PLOT TEXT ,AT 6,14:"一定の割合で速度を増しながら、速度を増していく＝等加速度運動" 270 IF x=9 THEN GOTO 280 ELSE GOTO 300 280 PLOT TEXT ,AT 7,20:"一定の割合で速度が増す＝等加速度；ここでは１m/秒/秒" 290 REM********************************************** 300 SET TEXT COLOR 2 310 PLOT TEXT ,AT 10,3: "停留所からの距離　" 320 ASK TEXT WIDTH("停留所からの距離") wd 330 SET TEXT COLOR 0 340 PLOT TEXT ,AT 10+wd,3: old_fx$ 350 SET TEXT COLOR 4 360 LET old_fx$=USING$("###.##",f(x)) 370 PLOT TEXT ,AT 10+wd,3: old_fx$ 380 ASK TEXT WIDTH(old_fx$) wd2 390 PLOT TEXT ,AT 10+wd+wd2,3: "メートル" 400 LET xb=x 410 REM********************************************** 420 SET TEXT COLOR 2 430 PLOT TEXT ,AT 10,6: "バスの速さ" 440 ASK TEXT WIDTH("バスの速さ") wd 450 SET TEXT COLOR 0 460 PLOT TEXT ,AT 10+wd,6: old_vx$ 470 SET TEXT COLOR 4 480 LET old_vx$=USING$("###.#",v(x)) 490 PLOT TEXT ,AT 10+wd,6: old_vx$ 500 ASK TEXT WIDTH(old_vx$) wd2 510 PLOT TEXT ,AT 10+wd+wd2,6: "ｍ／秒" 520 LET xb=x 530 REM *********************************************** 540 LOOP 541 SET TEXT COLOR 1 550 PLOT TEXT ,AT 10.5,50: "等速度運動に移った。" 560 END

Re: 教えていただいたプログラムを切り貼りして...	返事を書く
山中和義 2006/11/05 20:03:01
２３０～２８０行の文字出力についてｘは時間ですが、正確な値、たとえば５．０００～（ジャスト５秒）のような値になりません。したがって、ＣＰＵによっては表示できない場合があります。２３０、２５０、２７０の判断文を次のようにするのがよいでしょう。整数化して 230 IF INT(x)=5 THEN GOTO 240 ELSE GOTO 250 240 PLOT TEXT ,AT 5,9 :"←停留所から発車したバスは徐々に速度を増していく" 250 IF INT(x)=7 THEN GOTO 260 ELSE GOTO 270 260 PLOT TEXT ,AT 6,14:"一定の割合で速度を増しながら、速度を増していく＝等加速度運動" 270 IF INT(x)=9 THEN GOTO 280 ELSE GOTO 300 280 PLOT TEXT ,AT 7,20:"一定の割合で速度が増す＝等加速度；ここでは１m/秒/秒" または、区分分けして 230 IF x<5 THEN GOTO 250 240 PLOT TEXT ,AT 5,9 :"←停留所から発車したバスは徐々に速度を増していく" 250 IF x<7 THEN GOTO 270 260 PLOT TEXT ,AT 6,14:"一定の割合で速度を増しながら、速度を増していく＝等加速度運動" 270 IF x<9 THEN GOTO 300 280 PLOT TEXT ,AT 7,20:"一定の割合で速度が増す＝等加速度；ここでは１m/秒/秒" どちらも二重書きになる可能性はありますが、表示結果に影響しません。

Re: 教えていただいたプログラムを切り貼りして...	返事を書く
SECOND 2006/11/06 03:00:17
!よろしければ、上書御免。 10 REM%%バスがアクセル踏んで１０秒加速し５０ｍ進んで等速度に移るグラフ。 20 SET WINDOW -2,30,-3,60 30 DRAW GRID 40 REM************************************** 50 DEF f(x)=0.5x^2 60 DEF h(x)=0 61 DEF v(x)=x 62 REM*********************************** 63 REM********************************** 70 LET t=TIME !開始時刻 80 LET x=0 !経過時間 90 ! 100 REM***************************************** 110 DO WHILE f(x)<50 !距離が５０になるまで LET xb=x !-----この場合は、この位置の方が？ 120 LET x=TIME-t IF 50<x THEN LET x=50 160 SET LINE COLOR "blue" 170 SET LINE width 4 180 PLOT LINES: xb,0; x,0 190 SET LINE COLOR "red" 200 SET LINE width 4 210 PLOT LINES: 0,f(xb); 0,f(x) !-----主曲線は、他の下敷きにならない様、最後に描画 SET LINE COLOR "black" SET LINE width 4 PLOT LINES: xb,f(xb); x,f(x) 220 REM%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 229 SET TEXT COLOR 1 230 IF x<5 THEN 300 240 PLOT TEXT ,AT 5.5,12:"←停留所から発車したバスは徐々に速度を増していく" 250 IF x<7 THEN 300 260 PLOT TEXT ,AT 7.5,24:"一定の割合で速度を増しながら、速度を増していく＝等加速度運動" 270 IF x<9 THEN 300 280 PLOT TEXT ,AT 9.5,40:"一定の割合で速度が増す＝等加速度；ここでは１m/秒/秒" 290 REM********************************************** 300 SET TEXT COLOR 2 310 PLOT TEXT ,AT 10,3: "停留所からの距離　" 320 ASK TEXT WIDTH("停留所からの距離") wd 330 SET TEXT COLOR 0 340 PLOT TEXT ,AT 10+wd,3: old_fx$ 350 SET TEXT COLOR 4 360 LET old_fx$=USING$("###.##",f(x)) 370 PLOT TEXT ,AT 10+wd,3: old_fx$ & "メートル" 380 ! 390 ! 400 ! 410 REM********************************************** 420 SET TEXT COLOR 2 430 PLOT TEXT ,AT 10,6: "バスの速さ" 440 ASK TEXT WIDTH("バスの速さ") wd 450 SET TEXT COLOR 0 460 PLOT TEXT ,AT 10+wd,6: old_vx$ 470 SET TEXT COLOR 4 480 LET old_vx$=USING$("###.#",v(x)) 490 PLOT TEXT ,AT 10+wd,6: old_vx$ & "ｍ／秒" 500 ! 510 ! 520 ! 530 REM *********************************************** 540 LOOP 541 SET TEXT COLOR 1 550 PLOT TEXT ,AT 10.5,50: "等速度運動に移った。" 560 END

Re: !よろしければ、上書御免。	返事を書く
SECOND 2006/11/06 03:44:21
訂正１２０行の次の IF 50<x THEN LET x=50　は、間違いで、 IF 10<x THEN LET x=10　です。動作環境が変わっても終了を１０秒、５０ｍ丁度に命中させるためですが、距離を変えたりする際に、煩雑なので外した方がいいかも知れません。

Re: バスの発車のプログラムです。	返事を書く
zyam56 2006/11/05 18:42:54
これは、バスの停車のようすです。 ************************************************** 10 REM%%バスがブレーキをかけて１０秒で５０ｍ進んで停留所に止まるグラフ。 20 SET WINDOW -2,30,-3,60 30 DRAW GRID 40 REM************************************ 50 DEF f(x)=0.5x^2-10x+50 60 DEF h(x)=0 61 DEF v(x)=10-x 62 REM************************************ 63 PLOT TEXT ,AT 0.5,49.5 :"←ここまで毎秒１０ｍの速さで走ってきたバスが、" 64 PLOT TEXT ,AT 1,47.5 :"バス停の手まえ50メートルでブレーキをかけはじめる。" 65 PLOT TEXT ,AT 1,45.5 :"等加速度運動（マイナスの加速度＝減速）" 66 REM********************************** 70 LET t=TIME !開始時間 71 LET x=0 !経過時間 72 LET xb=0 !以前 73 REM***************************************** 74 DO WHILE ABS(f(x))>0.001 !距離が０になるまで 75 LET x=TIME-t 80 SET LINE width 4 90 SET LINE COLOR "black" 100 PLOT LINES: xb,f(xb); x,f(x) 110 SET LINE COLOR "blue" 120 SET LINE width 4 130 PLOT LINES: xb,0; x,0 140 SET LINE COLOR "red" 150 SET LINE width 4 160 PLOT LINES: 0,f(xb); 0,f(x) 170 REM********************************************** 180 SET TEXT COLOR 2 190 PLOT TEXT ,AT 10,3: "停留所までの距離、あと" 200 ASK TEXT WIDTH("停留所までの距離、あと") wd 210 SET TEXT COLOR 0 220 PLOT TEXT ,AT 10+wd,3: old_fx$ 230 SET TEXT COLOR 4 240 LET old_fx$=USING$("###.##",f(x)) 250 PLOT TEXT ,AT 10+wd,3: old_fx$ 260 ASK TEXT WIDTH(old_fx$) wd2 270 PLOT TEXT ,AT 10+wd+wd2,3: "メートル" 280 LET xb=x 290 REM********************************************** 300 SET TEXT COLOR 2 310 PLOT TEXT ,AT 10,6: "バスの速さ" 320 ASK TEXT WIDTH("バスの速さ") wd 330 SET TEXT COLOR 0 340 PLOT TEXT ,AT 10+wd,6: old_vx$ 350 SET TEXT COLOR 4 360 LET old_vx$=USING$("###.#",v(x)) 370 PLOT TEXT ,AT 10+wd,6: old_vx$ 380 ASK TEXT WIDTH(old_vx$) wd2 390 PLOT TEXT ,AT 10+wd+wd2,6: "ｍ／秒" 400 LET xb=x 410 REM *********************************************** 420 LOOP 430 PLOT TEXT ,AT 10.5,1: "停留所に着いて止まった。" 440 END