2015－2016年度第二学期 《计算物理》期末考查试题
班级： 应物13-2 学号： 31313350207 姓名： 赖宁
1. 编程求解量子力学习题1.1，5?xexe?1x，根据不同的计算精
度（精确到3位、4位、5位有效数字），算出X的值（给出程序和计算结果）。
program t1
implicit none real :: x,s
do x=3,5,0.001
s= (x*exp(x)) / (exp(x)-1) if(abs(s-5) =< 0.001)
Print *,x endif end do end program
3位：4.964832 4位：4.965020 5位：4.965107
2. 两个相互垂直方向的简谐振动，其运动方程为：
?x?A1cos(?1t??1)y?A2cos(?2t??2)，
画出两个频率不同（满足?1/?2?3/2），振幅相等、相互垂直而相位差分别为0、?/8、?/4下的质点轨迹曲线（利萨如图。注：其中振幅、频率和初相位由自己选定）。
1
相位差0：
y1.00.50.0y-0.5-1.0-1.0-0.50.00.51.0x相位差：π/8
y1.00.50.0y-0.5-1.0-1.0-0.50.00.51.0x
相位差：π/4
2
y1.00.50.0y-0.5-1.0-1.0-0.50.00.51.0x
3. 对圆盘轴线上一点电场强度E的大小可以表示为
?xE?2?0?R0rdr采用解析法和矩形、梯形积分法编程223/2，(x?r)计算E的大小，其中??0.5，x?0.01米，分别取R为0.01，0.1，10米，观察E随R的变化（给出程序和计算结果，注：积分程序要求自己编写）。 梯形法：
program T3
implicit none
real :: r,x,a,b,dx,s,x1,x2,y1,y2 integer :: i
a = 8.9E-12 b = 0.5 x = 0.01 s = 0 r = 10
dx = r/1000
do i = 0,1000 x1 = dx*i x2 = dx*(i+1) if(x2 < r)then
3
y1 = (b*x*x1)/(2*a*sqrt((x**2+x1**2)**3)) y2 = (b*x*x2)/(2*a*sqrt((x**2+x2**2)**3)) s = s+(y1+y2)*dx/2 endif end do print *, s
end program
结果：0.01时：8.217409E+09
0.1时： 2.529181E+10 10时： 2.526753E+10
4．在某电路实验中，测得电压V与电流I的一组数据如下表： Vi Ii 1 15.3 2 20.5 3 27.4 4 36.6 5 49.1 6 65.6 7 87.8 8 117.6 试拟合电流I随电压的变化函数关系（给出拟合结果并图示）。
4
5
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库计算物理期末试题与答案在线全文阅读。
相关推荐：