物理實驗計算機模擬系統

計算機應用已滲透到各個領域，應用前景日益廣泛，那么能否用來模擬物理實驗呢？本文就這一想法，利用計算機實現了物理實驗的模擬演示，這樣與實物演示有機結合，可以提高對物理現象的分析能力，有助于學生對物理規律的掌握。本文用BASIC語言模塊演示系統已實現如下物理實驗：

1.平拋運動

2.簡諧振動曲線

3.利薩如圖形

今將系統程序列出，請各位同仁指正。

10 CLS

20 DIM D$（3）：T=1

30 D$（1）=“1.平拋運動”：D$（2）=“2.簡諧振動曲線”：D$（3）=

3.利薩如圖形\"

50 GOSUB 120

60 K$=INKEY $ ：IF K$<>CHR$（0）+ CHR$（72） AND K$<>CHR$（0）+ CHR$（80） AND K$<> CHR$（13） THEN 60

70 IF K$<> CHR$（13） THEN ON T GOSUB 1000，2000，3000

80 IF K$<>CHR$（0）+ CHR$（80） THENT=T+1：IF T>3 THEN T=T-3： GOTO 50

90 IF K$<>CHR$（0）+ CHR$（72） THEN T=T-1： IF T<1 THEN T=T+3： GOTO 50

100 GOTO 50

105 CLS

110 END

120 COLOR 15

130 FOR I=1 GO 3：LOCATEI+3，13：PRINT D$（1）：NEXT I

140 COLOR 10

150 LOCATE T+3，13：PRINT D$（T）

160 COLOR 14

170 RETURN

1000 REM SUB 1000-1230

1010 KEY OFF：SCREEN 1，0：COLOR 1，0：CLS

1020 FOR I=0 TO 240

1030 FOR J=0 TO 320

1040 PRESET（J，I），0

1050 NEXT J

1060 LOCATE 1，3

1070 PRINT“平拋運動曲線”

1080 LINE （0，20）-（320，20），2

1090 LINE （0，20）-（0，240），2

1100 FOR T=0 TO 6.5 STEP .001

1110 X=47*T

1120 Y=20+1/2*9.8*T^2

1130 PSET（X，20），4

1140 PSET（0，Y），4

1150 PSET（X，Y），4

1160 PRESET （X-1，20），0

1170 PRESET （0，Y-1），0

1180 PSET （X-3，20），2

1190 PSET （0，Y-3），2

1200 NEXT T

1210 IF INKEY$=\" \" THEN 1210

1220 SCREEN 0，0：WIDTH 80：KEY ON

1230 RETURN

2000 REM SUB 2000-2110

2010 KEY OFF：SCREEN 1，0：COLOR 1，0：CLS

2015 LOCATE 1，43：PRINT“簡諧振動曲線”

2020 LINE （0，100）-（319，100），2

2030 LINE （0，150）-（0，50），2

2040 FOR I=0 TO 20*3.1415926 STEP .01

2050 T=5*I

2060 X=100-50*COS（I）

2070 PSET （T，X），3

2080 NEXT I

2090 IF INKEY$=\" \" THEN 2090

2100 SCREEN 0，0：WIDTH 80：KEY ON

2110 RETURN

3000 REM SUB 3000-3110

3010 KEY OFF：SCREEN 1，0：COLOR 1，0：CLS

3020 LOCATE 1，43： PRINT \"利薩如圖形\"

3030 INPUT \"輸入圓頻率ω1和： ω2\"； ω1，ω2

3040 FOR I=0 TO 20*3.1415926 STEP .01

3050 X=140+80*COS（ω1 *T）

3060 Y=80-80*SIN（ω2 *T）

3070 PSET （X，Y），4

3080 NEXT I

參考文獻：

[1]漆安慎，杜嬋英.力學基礎.高等教育出版社，1982.

[2]楊國俊.物理實驗計算機模擬系統初探.甘肅教育學院學報，1996（1）.

（作者單位 甘肅省古浪縣第三中學）