网站原创计算机应用已渗透到各个领域,应用前景日益广泛,那么能否用来模拟物理实验呢?本文就这一想法,利用计算机实现了物理实验的模拟演示,这样与实物演示有机结合,可以提高对物理现象的分析能力,有助于学生对物理规律的掌握.本文用BASIC语言模块演示系统已实现如下物理实验：
1.平抛运动
2.简谐振动曲线
3.利萨如图形
今将系统程序列出,请各位同仁指正.
10CLS
20DIMD$（3）：T等于1
30D$（1）等于“1.平抛运动”：D$（2）等于“2.简谐振动曲线”：D$（3）等于
3.利萨如图形"
50GOSUB120
60K$等于INKEY$：IFK$<>CHR$（0）+CHR$（72）ANDK$<>CHR$（0）+CHR$（80）ANDK$<>CHR$（13）THEN60
70IFK$<>CHR$（13）THENONTGOSUB1000,2000,3000
| 有关论文范文主题研究: | 关于参考文献的论文范文素材 | 大学生适用: | 大学毕业论文、硕士学位论文 |
|---|---|---|---|
| 相关参考文献下载数量: | 75 | 写作解决问题: | 写作技巧 |
| 毕业论文开题报告: | 标准论文格式、论文题目 | 职称论文适用: | 期刊目录、职称评副高 |
| 所属大学生专业类别: | 写作技巧 | 论文题目推荐度: | 最新题目 |
80IFK$<>CHR$（0）+CHR$（80）THENT=T+1：IFT>3THENT等于T-3：GOTO50
90IFK$<>CHR$（0）+CHR$（72）THENT=T-1：IFT<1THENT=T+3：GOTO50
100GOTO50
105CLS
110END
120COLOR15
130FORI等于1GO3：LOCATEI+3,13：PRINTD$（1）：NEXTI
140COLOR10
150LOCATET+3,13：PRINTD$（T）
160COLOR14
170RETURN
1000REMSUB1000-1230
1010KEYOFF：SCREEN1,0：COLOR1,0：CLS
1020FORI等于0TO240
1030FORJ等于0TO320
1040PRESET（J,I）,0
1050NEXTJ
1060LOCATE1,3
1070PRINT“平抛运动曲线”
1080LINE（0,20）-（320,20）,2
1090LINE（0,20）-（0,240）,2
1100FORT等于0TO6.5STEP.001
1110X等于47*T
1120Y等于20+1/2*9.8*T^2
1130PSET（X,20）,4
1140PSET（0,Y）,4
1150PSET（X,Y）,4
1160PRESET（X-1,20）,0
1170PRESET（0,Y-1）,0
1180PSET（X-3,20）,2
1190PSET（0,Y-3）,2
1200NEXTT
1210IFINKEY$等于""THEN1210
1220SCREEN0,0：WIDTH80：KEYON
1230RETURN
2000REMSUB2000-2110
2010KEYOFF：SCREEN1,0：COLOR1,0：CLS
2015LOCATE1,43：PRINT“简谐振动曲线”
2020LINE（0,100）-（319,100）,2
2030LINE（0,150）-（0,50）,2
2040FORI等于0TO20*3.1415926STEP.01
2050T等于5*I
2060X等于100-50*COS（I）
2070PSET（T,X）,3
2080NEXTI
2090IFINKEY$等于""THEN2090
2100SCREEN0,0：WIDTH80：KEYON
2110RETURN
3000REMSUB3000-3110
3010KEYOFF：SCREEN1,0：COLOR1,0：CLS
3020LOCATE1,43：PRINT"利萨如图形"
3030INPUT"输入圆频率ω1和：ω2"；ω1,ω2
3040FORI等于0TO20*3.1415926STEP.01
3050X等于140+80*COS（ω1*T）
3060Y等于80-80*SIN（ω2*T）
3070PSET（X,Y）,4
3080NEXTI