zzu数学 实验零入门测试

zzu数学 实验零入门测试

入门练习代码

版本一
Animate[Clear[d, a, t];(*清除变量*)
a = Graphics[Line[{{-1, 2}, {0, 0}, {2, 4}}]];(*绘制两根初始线段*)
l = {-1, 2}/n; r = {2, 4}/n;(*将两线段n等分*)
t = Table[{ i*l, (n - i + 1)*r}, {i, 1, n }];(*生成n个点对用于画n条线段*)
d = Array[f, n ];(*定义数组存放图形*)
For[i = 1, i <= n , i++,
d[[i]] = Graphics[Line[t[[i]]]]];(*绘制n条线段*)
Show[a, d], {n, 0, 50, 1}](*将所有图元显示*)

版本二
Manipulate[
g1 = Graphics[Line[{{r1, r2}, {0, 0}, {r3, r4}}]];
l = {r1, r2}/n; r = {r3, r4}/n;
g2 = Graphics[Line[Table[{i*l, (n - i + 1)*r}, {i, 1, n}]]];
Show[g1, g2], {n, 0, 50}, {r1, -10, 0}, {r2, 0, 10}, {r3, 0,
10}, {r4, 0, 10}]

Graphics[Line[
Table[{{0, 10 - i}, {i, 0}, {0, 0}, {0, 10 - i}}, {i, 1, 9}]]]
供数统兄弟姐妹参考

第一次实验报告

实验报告

1、 问题

绘制两条相接线段，并找出n等分点（分点包括外端点）。将一条线段最靠内的分点连接另一条线段最靠外的分点，如此依次向外连接处n条线段。

2、 方法

使用line函数任意画两条相接线段（为了方便将交点定于原点）；

输入等分数n；

将两线段外端点坐标除n，得到一等分的坐标；

使用table函数生成以点对形式的表；

利用for循环绘制每条线段，并将结果放入数组中；

使用show函数将所有线段画出；

利用manipulate函数控制n的滚动输入。

3、 程序

Manipulate[Clear[d, a, t];(*清除变量*)
a = Graphics[Line[{{-1, 2}, {0, 0}, {2, 4}}]];(*绘制两根初始线段*)
l = {-1, 2}/n; r = {2, 4}/n;(*将两线段n等分*)
t = Table[{ i*l, (n - i + 1)*r}, {i, 1, n }];(*生成n个点对用于画n条线段*)
d = Array[f, n ];(*定义数组存放图形*)
For[i = 1, i <= n , i++, d[[i]] = Graphics[Line[t[[i]]]]];(*绘制n条线段*)
Show[a, d], {n, 0, 50, 1}](*将所有图元显示*)

4、 结果



姓名：陆嵩

学号：20132120215

班级：信计（2）班