Mathematica实验报告

实验名称Mathematica综合实验

实验目的和要求：

通过本次综合实验，进一步熟练掌握Mathematica系统中进行程序设计的基本方法，熟练运用各种综合性语句，完成Mathematica绘图、计算和编程等常用操作，进一步熟练掌握其功能和语法。

实验内容和步骤:

1、用Mathematica编写20以内整数加法程序。

运行以下程序：

输出结果：

2、编写程序，列出9*9的乘法表来。

输入程序：

9*9乘法表

3、编写程序，输入两个正整数，用“辗转相除法”求它们的最大公约数。

辗转相除法：

(1) 以大数m作被除数，小数n做除数，相除后余数为r。

(2) 若r ≠ 0，则m ← n，n ← r，继续相除得到新的r。若仍有r ≠ 0，则重复此过

程，直到r = 0为止。

(3) 最后的n就是最大公约数。

Mathematica代码如下：

运行结果

4、统计一个班级某次考试个分数段的人数。

输入程序：

运行结果：

5、编写程序用切线法求方程的解。Mathematica语句和运行结果如下：

6、编写Mathematica程序显示二维码图像。输入程序：

二维码图像

7、用0~8这九个数字,组成一个二位数和一个三位数相乘使他们的积恰好是四位数.数字不能重复。即□□×□□□=□□□□

输入以下Mathematica程序：

输出结果：

8、用Mathematica编写程序绘制一个围棋棋盘.

输入以下程序：

围棋棋牌

9、假设新开辟的国家公园里没有兔子和狐狸，现引进兔子和狐狸个50只，n 个月后兔子和狐狸的数量分别记为n R 和n F ，

假定有⎩⎨

⎧+=-=++n

n n n n n F R F F R R 6.02.02.01.111

Mathematica 程序如下：

运行结果如下：

注释：在一段时间内，兔子和狐狸的数量均会减少，但最终均会趋于一个稳定值。

10、有一个木工、一个电工和一个油漆工，三人协商合作装修他们的房子，并达成如下协议：

a.每人总共工作10天（包括给自己家干活）；

b.每人日工资根据市场价确定在60 80 元之间；

c.每人的总支出与每人的总收入相等。表中是他们协商后制定出的工作天数分配方案。

木工 电工 油漆工

在木工家工作的天数 2 1 6 在电工家工作的天数 4 5 1 在油漆工家工作的天数 4 4 3 试确定三个工人各自的日工资数为多少？

解：设木工日工资为x ，电工日工资为y ，油漆工日工资为z ，

则有如下方程组：

⎪⎩

⎪

⎨⎧=---=---=---0344100541006210z y x z z y x y z y x x 解方程组得：

数学实验报告

10