数学应用软件实验报告（mathematica实验程序）1

徐州工程学院数理学院数学应用软件实验报告

课 程（实验序号） 实验地点、日期 主要仪器设备 使用的软件名称 数学应用软件实验 1 数学建模机房 2011 年 2 月 23 日 计算机 Mathematica 演示性实验 验证性实验 √ 综合性实验 设计性实验 研究性实验 姓名：孙娅 学号：20090402223 实验类型 班级： 一、实验题目名称：函数】变量和表达式 二、实验目的： 理解变量和算式、内核与前端处理器构成的人机对话系统，了解计算的精度问题个Mathematica使用中的几个问题。熟练掌握数的表示和计算、常用数学函数，会绘制简单函数的图形。通过上机初步了解数学应用软件，Mathematica的各种界面。 三、实验内容： 练 习 题1 1.计算下列各式的数值： (1) Log[2,10] Log[10]/Log[2] (2) Sqrt[Pi^2+1] (3) Log[10,3264] Log[3264]/Log[10] (4) 1?2E^E? ?/2 (5) Cos[135^0] Cos[1] (6) Sin[Pi^2/2] Sin[?2/2] (7) ArcSin[1/2] ?/6 (8) 200! 788657867364790503552363213932185062295135977687173263294742533244359449963403342920304284011984623904177212138919638830257642790242637105061926624952829931113462857270763317237396988943922445621451664240254033291864131227428294853277524242407573903240321257405579568660226031904170324062351700858796178922222789623703897374720000000000000000000000000000000000000000000000000 (9) Tan [0.2] 0.20271 (10) ArcTan[E*Pi] ArcTan[? ?] (11) Sqrt[E^(-I*Pi)+1] 0 (12) Sin[I*Pi]+0.1 0.1 +11.5487 ???2.计算下列各式到２０，５０，１００位精度： (1) N[E^,20] 27.028944477141255522 N[E^,50] 27.028944477141255521577956431681151958455966211657 N[E^,100] 27.02894447714125552157795643168115195845596621165710278696529650944712351446871377330372045381382290 (2) N[Log[6,],20] 0.46449571560274166890 N[Log[6,],50] 0.46449571560274166890337499506327267917626872513479 N[Log[6,],100] 0.4644957156027416689033749950632726791762687251347942316352599038136285649281232736836042255399202610 (3) N[E^(-I*Pi^2)-1,20] -1.9026853619330710662+0.4303012170000922665 ?? N[E^(-I*Pi^2)-1,50] -1.9026853619330710661604083033424539727776919081625+0.4303012170000922664576757059938998 460652783715357 ?? N[E^(-I*Pi^2)-1,100] -1.902685361933071066160408303342453972777691908162539434912928996783299436757627346093796057323583627+0.43030121700009226645767570599389984606527837153571546567834242297285798Pi^21Pi^21Pi^212Pi12Pi12Pi19811843627169886065434826784 ???3. 作e^sin x在[-2, 2] 上的图，作e^(-x^2-y^2)sin (10xy)在[-4, 4] 上的图，再作你感兴趣的其它图形。?? Plot[Sin[1/x], {x, -1, 1}] 1.00.51.00.50.51.00.51.0???? Plot[E^(Sin[x]),{x,-2,2}] 2.52.01.51.00.52112 Plot3D[E^(-x^2-y^2)*Sin[10*x*y],{x,-4,4},{y,-4,4}] Plot3D[Sin[x*y], {x, -Pi, Pi}, {y, -Pi, Pi}] 四、总结及心得体会： 刚开始学习 Mathematica需要多练习一些小题目，对一些比较基本的语句和命令要反复多做几次加深印象，实验操作的时候，应该多注意一些细节上的问题，如：输入法，大小写，符号等。写完程序时最好先检查一遍再运行，对于运行结果不满意的时候，可以反复多调试几次。 五、教师评语： 报告评分： 注：每份实验报告不少于3页。 指导教师签字：