数学实验实验报告6.docVIP

徐州工程学院数理学院数学应用软件实验报告 课 程（实验序号） 数学应用软件实验 6 实验地点、日期 数学建模机房 2011 年 4 月 15 日 主要仪器设备 计算机 使用的软件名称 Mathematica 实验类型 演示性实验 验证性实验 综合性实验 √ 设计性实验 研究性实验 班级： 姓名： 学号 一、实验题目名称：表与表达式结构（一） 二、实验目的： 深刻理解Evern thing is a list;掌握表的生成（Range、Table、Array、NestList）；熟练掌握表的结构与表的操作；理解表作为一种表示结构；深刻理解表达式的结构；熟练掌握表达式的结构操作、判断、函数，纯函数缩写；了解其它的表达式的操作函数。本章内容涉及到Mathematica特有的结构，是学习编程的基础。 三、实验内容： 1. 输入NestList[Sin,1.,20] {1.,0.841471,0.745624,0.67843,0.627572,0.587181,0.554016,0.526107,0.502171,0.481329,0.462958,0.446597,0.431898,0.418596,0.406478,0.395377,0.385156,0.375703,0.366927,0.358749,0.351103} ?{RGBColor[1,0,0],RGBColor[0,1,0],RGBColor[0,0,1]}] 输出 2.输入d={{1,0,3,8},{1,2,3,5},{1,3,5,4},{1,6,6,1},{1,6,7,4},{1,9,9,4},{2.,10.},{2.4,15.}} ListPlot[d] 输出 {{1,0,3,8},{1,2,3,5},{1,3,5,4},{1,6,6,1},{1,6,7,4},{1,9,9,4},{2.,10.},{2.4,15.}} 3.输入Clear[a,b] A=Table[a[i,j],{i,5},{j,5}] B=Array[b,{5,5}] 输出 {{a[1,1],a[1,2],a[1,3],a[1,4],a[1,5]},{a[2,1],a[2,2],a[2,3],a[2,4],a[2,5]},{a[3,1],a[3,2],a[3,3],a[3,4],a[3,5]},{a[4,1],a[4,2],a[4,3],a[4,4],a[4,5]},{a[5,1],a[5,2],a[5,3],a[5,4],a[5,5]}} {{b[1,1],b[1,2],b[1,3],b[1,4],b[1,5]},{b[2,1],b[2,2],b[2,3],b[2,4],b[2,5]},{b[3,1],b[3,2],b[3,3],b[3,4],b[3,5]},{b[4,1],b[4,2],b[4,3],b[4,4],b[4,5]},{b[5,1],b[5,2],b[5,3],b[5,4],b[5,5]}} 输入p5=x^5-x+1;s5=Solve[p5?0] 输出{{x?Root[1-#1+#15,1]},{x?Root[1-#1+#15,2]},{x?Root[1-#1+#15,3]},{x?Root[1-#1+#15,4]},{x?Root[1-#1+#15,5]}} 5.输入 A={{1,2,3,4},{2,3,0,-5},{2,-1,1,1},{-2,2,0,-5}}; MatrixForm[A]; A[[3,2]] 输出 -1 输入 A[[2]] 输出 {2,3,0,-5} 输入 MatrixForm[A[[{2,4},{1,3}]]] 输出 输入 MatrixForm[A[[Range[2,4],Range[1,3]]]] 输出 四、总结及心得体会： 通过这一课的学习让我对表的生成（Range、Table、Array、NestList）,表的结构与表的操作、表作为一种表示结构，表达式的结构，表达式的结构操作、判断、函数，纯函数缩写以及其它的表达式的操作函数。线性代数的相关实验都有了一定的了解。 五、教师评语： 报告评分： 指导教师签字：