对于物理实验物理实验计算机模拟系统

更新时间:2024-02-27 点赞:14001 浏览:58697 作者:用户投稿原创标记本站原创

计算机应用已渗透到各个领域,应用前景日益广泛,那么能否用来模拟物理实验呢?本文就这一想法,利用计算机实现了物理实验的模拟演示,这样与实物演示有机结合,可以提高对物理现象的分析能力,有助于学生对物理规律的掌握。本文用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 源于:毕业设计论文格式www.618jyw.com
60 K$=INKEY $ :IF K$CHR$(0)+ CHR$(72) AND K$CHR$(0)+ CHR$(80) ANDK$ 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 COLOR14
170 RETURN
1000 REM SUB1000-1230
1010 KEY OFF:SCREEN 1,0:COLOR 1,0:CLS
1020 FOR I=0TO 240
1030 FOR J=0TO 320
1040 PRESET(J,I),0
1050 NEXTJ
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.5STEP .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=0TO 20*

3.1415926STEP.01

2050 T=5*I
2060 X=100-50*COS(I)
2070 PSET (T,X),3
2080 NEXTI
2090 IF INKEY$=" " THEN 2090
2100 SCREEN 0,0:WIDTH 80:KEY ON
2110 RETURN
3000 REMSUB 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=0TO 20*

3.1415926STEP.01

3050 X=140+80*COS(ω1 *T)
3060 Y=80-80*SIN(ω2 *T)
3070 PSET(X,Y),4
3080 NEXTI
参考文献:
漆安慎,杜婵英.力学基础.高等教育出版社,1982.
杨国俊.物理实验计算机模拟系统初探.甘肃教育学院学报,1996(1).
(作者单位 甘肃省古浪县第三中学)
相关文章
推荐阅读

 发表评论

共有3000条评论 快来参与吧~