Mathematica在大学物理教学当中的应用

Mathematica在高中物理教学中的应用秦江川摘要：本文从高中物理实验教学和课堂教学两方面着手研究,针对常用教学工具如Powerpoint制作的教学课件难以演示的一些典型实例，借助Mathematica的功能来实现。将Mathematica应用于一些物理实验数据的处理和物理模型的模拟，可以使高中物理教学更加形象、生动，从而取得更加良好的教学效果；同时进一步推动基础物理教学方法的现代化进程。关键词：Mathematica；演示；模拟；教学效果引言在目前中学物理的课堂教学中，教学课件尤其是Powerpoint的应用已经非常广泛并且能够取得比较好的教学效果，但是对于一些物理问题的最终结果不能给出形象的演示，基于此可以借助Mathematica强大的函数分析能力、图象模拟能力，将其应用于多媒体教学当中，从而在高中物理课堂教学活动当中，能够更生动形象地向学生表达出抽象的物理含义、详细的物理过程。此外，在实验教学当中，通过对Mathematica软件的应用，借助它强大的数据处理能力，能够相对高精确度地对实验数据作出处理，从而使得Mathematica在实验教学当中作为教学辅助工具而得到广泛的推广和应用。在科技高速发展的今天，教师仅凭借讲解和板书的方式来给学生们灌输一些物理模型已显得捉襟见肘了，而我们应用Mathematica和计算机多媒体的结合使用，充分弥补了这一不足。1Mathematica在课堂教学中对物理模型的模拟1.1粒子在非匀强磁场中运动轨迹的描绘一根竖直放置的无限长载流直导线，使其通过Ｉ＝0.5Ａ电流，其方向向上。现有一质子在距离其载流导线0r＝10m处沿平行于载流直导线的方向向上以初速smv1000的速度开始运动。对于质子在非匀强磁场中的运动轨迹，传统教学中我们只能靠想象来描绘，而应用Mathematica的图象模拟功能，我们可以化抽象思维为形象思维，形象地展示出质子的运动轨迹。首先根据题意，取载流导线与0r的交点为坐标原点，建立坐标系（如图1.1所示），质子处于无限载流直导线所产生的非匀强磁场当中。在质子的运动过程中，质子受到洛伦兹力jBqviBqvBvvkjiqBvqFzxZyzyx000（1.1）根据牛顿第二定律可知：xzyyzxvmqBdtdvvmqBdtdv即：图1.1dtdxmqBdtyddtdymqBdtxdzz2222（1.2）再有无限长载流直导线周围的磁场分布情况为：xIBz20（1.3）对以上公式、数据，应用Mathematica对其进行编程如下：;][2B(-27);10^*1.67m(-19);10^*1.6q^4;5.00z0txiij=x''[t]==-qzB/m*y'[t];k=y''[t]==qzB/m*x'[t];r=x[0]==10;s=y[0]==0;p=x'[0]==0;n=y'[0]==100;f=NDSolve[{j,k,r,p,s,n},{x[t],y[t]},{t,0,3}];ParametricPlot[Evaluate[{x[t],y[t]}/.f],{t,0,3},PlotRangeAll,FrameTrue]应用程序，可得到质子在非匀强磁场中的运动轨迹图形，如图1.2所示。此图形象地演示出了粒子在无限载流直导线所产生的非匀强磁场中的运动轨迹。可见，借助Mathematica，可以直观形象地给出粒子的运动情况，将其运用于课堂教学中，能够更形象直观地向学生讲解物理过程。1.2静止点电荷系所产生的电场线的图象描绘现有三个点电荷所组成的静止点电荷系统。三个点电荷所带的电量分别为-q、-q、+2q，对其适当选取坐标，三个点电荷在其坐标平面上的位置如图1.3所示，其中一个点电荷-q位于坐标原点，另一个点0246810050100150200250图1.2电荷-q位于y轴上的a点处，最后一个点电荷＋2q位于y轴的-a点处。对于点电荷系周围的电场分布情况，一般的教学软件是难以将其图象模拟出来的。对此，我们应用Mathematica来对其图象作出模拟。因在x-o-y平面内，任一点的电场强度为:ixayqxxyqxxayqxyxE232202322023220)(4)(4)(42),(jxayayqxyqyxayayq232202322023220])[(4)()(4])[(4)(2其中任意一条电场线应满足：),(),(yxEyxEdxdyxy（1.4）求解（1.4）式可得：Cxayayxyyxayay212221222122])[()(])[()(2（1.5）此式即是电场线应满足的方程，常数C取不同值时将会得到不同的电场线，上式是一个超越方程，由此式直接解出)(xfy的表达式再编程作图是很困难的。为此我们将各式的分子、分母同除a可得：Caxayayaxayayaxayay212221222122111)1(2(1.6)对（1.6）作代换：yayxax,应用Mathematica对其进行编程如下：Graphics`ImplicitPlot`m=;)1()1()1()1(2222222xyyxyyxyyk=Table[m==c,{c,0,3,0.1}];ImplicitPlot[k,{x,-5,5},{y,-5,5},FrameTrue]系统将自动生成如下：图1.3-4-2024-4-2024图1.4此图形象地展示出了点电荷系周围的磁场分布情况，此图形用Powerpoint是难以完成的。而应用Mathematica却能够方便、简单地模拟出其图形情况，从而使物理课堂教学更加的直观、形象。1.3电偶极子振荡辐射过程中，所产生电场线的图象的描绘电偶极子振荡在电磁波辐射理论中有着重要的作用,对此我们要清楚了解其振荡辐射的电场线的规律。注：电偶极子的电偶极矩为：zwteepp10对其采用球面坐标、可得到任意时刻t、任意空间处r的辐射电场：30320211coscos()cos()4()()2rpkEwtkrwtkrkrkr)2cos()(1)cos(1)(1sin423030krwtkrkrwtkrkrkpE0E辐射的电场线应满足方程：EErddrr（1.7）解(1.7)式可得:Ckrkrwtkr)]arctan(cos[sin1)(12212（1.8）此式即为辐射电场线所满足的方程,C取不同值时就会得到不同的辐射电场线。将kr写成:212222zxrkr（1.9）而22sinyxxrx（1.10）对(1.8)式的变量r、t作无量纲化处理、并将(1.9)、(1.10)式代入(1.8)式得:CzxzxTtzxxzx222122222212222arctan22cos141(1.11)对（1.11）式作代换：yzxx,,1Tt应用Mathematica对以上数据进行编程如下：Graphics`ImplicitPlot`m=]];2[22[**1)(412222222222yxArcTanyxCosyxxyxk=Table[m==c,{c,-1,1,0.2}];ImplicitPlot[k,{x,-1,1},{y,-1,1},FrameTrue]系统将自动生成如下：-1-0.500.51-1-0.500.51图1.5图1.5形象地模拟出电偶极子振荡所辐射的电场线的情况，应用Mathematica，任意一条电场线在辐射过程中随时间演化的进程都能够形象地展示出来。至于电场线的演化进程，我们可以在（1.11）式中，取C=0.4，Ttr分别取0，0.25，0.50，0.75，1.00，就可以得到这条电场线的辐射进程。应用Mathematica编程如下：Graphics`ImplicitPlot`m=5}];{r,0,1,0.2,4.0]]2[2*2[**1)(41[2222222222yxArcTanyxrCosyxxyxTableImplicitPlot[m,{x,-1,1},{y,-1,1},FrameTrue]则系统会自动生成如下：-1-0.500.51-1-0.500.51图1.6形象地展示出了一条电场线的辐射进程。将图1.5、图1.6引入课堂教学当中，从而更形象地向学生们展示出电偶极子振荡所辐射的电场线分布情况。2Mathematica在实验教学中对实验数据的处理在传统物理实验教学中，我们在对实验数据的图形化处理中，误差相对来说比较大，而通过Mathematica软件的应用，它能对实验数据作出较精确的拟合。2.1＂载流圆线圈中心轴线上的磁场＂实验数据的处理通过亥姆霍兹线圈仪，利用95A型集成霍尔传感器测量半径为10㎝,相距为5㎝或10cm的两个完全相同的载流圆线圈中心轴线上的磁感应强度值B。实验时取电流值I=400mA。相距每厘米记录一磁感应强度。实验数据记录如下:R为5cm时的数据记录：{-9,0.834},{-8,0.960},{-7,1.095},{-6,1.245},{-5,1.378},{-4,1.512},{-3,1.626},{-2,1.712},{-1,1.781},{0,1.806},{1,1.796},{2,1.752},{3,1.675},{4,1.563},{5,1.435},{6,1.299},{7,1.154},{8,1.013},{9,0.881}R为10cm时的数据记录：{-9,0.970},{-8,1.087},{-7,1.183},{-6,1.271},{-5,1.340},{-4,1.385},{-3,1.410},{-2,1.421},{-1,1.423},{0,1.423},{1,1.422},{2,1.420},{3,1.413},{4,1.392},{5,1.355},{6,1.294},{7,1.212},{8,1.111},{9,1.005}应用Mathematica对以上数据进行编程如下：图1.6j={{-9,0.834},{-8,0.960},{-7,1.095},{-6,1.245},{-5,1.378},{-4,1.512},{-3,1.626},{-2,1.712},{-1,1.781},{0,1.806},{1,1.796},{2,1.752},{3,1.675},{4,1.563},{5,1.435},{6,1.299},{7,1.154},{8,1.013},{9,0.881}};k={{-9,0.970},{-8,1.087},{-7,1.183},{-6,1.271},{-5,1.340},{-4,1.385},{-3,1.410},{-2,1.421},{-1,1.423},{0,1.423},{1,1.422},{2,1.420},{3,1.413},{4,1.392},{5,1.355},{6,1.294},{7,1.212},{8,1.111},{9,1.005}};True];True];u=ListPlot[j,PlotJoiTrue,FrameTrue];True];Show[r