用计算机模拟物理实验,物理实验计算机模拟系统

计算机应用已渗透到各个领域，应用前景日益广泛，那么能否用来模拟物理实验呢？本文就这一想法，利用计算机实现了物理实验的模拟演示，这样与实物演示有机结合，可以提高对物理现象的分析能力，有助于学生对物理规律的掌握。本文用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

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).

(作者单位 甘肃省古浪县第三中学)