《计算机绘图》2010(A)

诚信应考,考试作弊将带来严重后果！华南理工大学期末考试《计算机绘图》试卷 （A 卷）注意事项：1. 考前请将密封线内填写清楚；2. 所有答案请直接答在答卷上，答在其它地方无效； 3．试卷与答卷同时提交，答卷才有效； 4．考试形式：闭卷；5. 本试卷共 六 大题，满分100分， 考试时间120分钟。

一、填空题。

（每空2分，共20分）1. 在VB2005中的控件坐标系中，X 坐标方向为水平向________，Y 坐标方向为水平向___________。

2. 对世界坐标系的平移、旋转、缩放（或翻转）可以通过调用Graphics 对象的相应方法来完成，它们分别为_______________、________________、________________。

3.二维图形变换中的三个基本变换分别为______变换、________变换、_______变换。

为了满足这三个基本变换都能通过矩阵乘法来实现，引入了_______坐标来表示几何元素。

4.下列代码欲完成窗体上绘制直线，试补全下划线上空缺的代码。

Dim g As Graphics g = _________________g.DrawLine(Pens.Black, 10, 10, 100, 100)三、已知一四边形⎥⎥⎥⎥⎦⎤⎢⎢⎢⎢⎣⎡→→→→11040130301302011010D C B A ，按顺序执行下列图形变换： 1. 绕点P （60,40）顺时针旋转30°； 2. 向左平移20,向上平移10； 3. 将图形放大1.5倍。

（20分） 要求：1. 计算出总的变换矩阵，在下图画出变换后的图形。

_____________ ________姓名 学号学院 专业 座位号( 密 封 线 内 不 答 题 ) …………………………密………………………………………………封………………………………………线……………………………………2. 以矩阵形式写出变换步骤及总变换矩阵，并指出变换矩阵的含义。

四、读懂下面的程序，并在画出程序的运行结果。

（20分）Imports System.MathPublic Class Form1Const pi = 3.1415926Dim mypen As PenDim g As GraphicsPrivate Sub Form1_Paint(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.PaintEventArgs) Handles Me.PaintDim r As Integer = 100Dim xc As Integer = 320, yc As Integer = 240Dim i As Integerg = Me.CreateGraphicsmypen = New Pen(Color.Black, 1)mypen.DashStyle = Drawing2D.DashStyle.DashDotg.DrawEllipse(mypen, 220, 140, 200, 200)mypen.DashStyle = Drawing2D.DashStyle.Solidmypen.Width = 2For i = 1 To 6Call draw_poly(xc + r * Cos(i * pi / 3), yc - r * Sin(i * pi / 3), 30, 6, 0) g.DrawEllipse(mypen, CInt(xc + r * Cos(i * pi / 3) - 30), CInt(yc - r * Sin(i * pi / 3)) - 30, 60, 60)NextEnd SubPrivate Sub draw_poly(ByVal xc As Integer, ByVal yc As Integer, ByVal r As Integer, ByVal n As Integer, ByVal th As Double)Dim xs, ys, xe, ye As IntegerDim i As IntegerDim dq As DoubleDim newPen As PennewPen = New Pen(Color.Black, 2)th = th * pi / 180dq = 2 * pi / nxs = xc + r * Cos(th)ys = yc - r * Sin(th)For i = 1 To nxe = xc + r * Cos(th + dq * i)ye = yc - r * Sin(th + dq * i)g.DrawLine(newPen, xs, ys, xe, ye)xs = xe : ys = yeNextEnd SubEnd Class五、将极坐标曲线方程ρ=6sin(4θ) 转换为直角坐标下的参数方程，并编写该方程的绘图程序。

（20分）六、根据提供的子函数，编程绘制一组正多边形，边数N＝6,5,4,3。

要求每个多边形外接圆是前一多边形的内切圆。

（20分）‘绘制多边形的子函数Private Sub draw_poly(ByVal xc As Integer, ByVal yc As Integer, ByVal r As Integer, ByVal n As Integer, ByVal th As Double)Dim xs, ys, xe, ye As SingleDim i As IntegerDim dq As DoubleDim newPen As PennewPen = New Pen(Color.Black, 2)th = th * PI / 180dq = 2 * PI / nxs = xc + r * Cos(th)ys = yc - r * Sin(th)g = Me.CreateGraphicsFor i = 1 To nxe = xc + r * Cos(th + dq * i)ye = yc - r * Sin(th + dq * i)g.DrawLine(newPen, xs, ys, xe, ye)xs = xe : ys = yeNextEnd Sub诚信应考,考试作弊将带来严重后果！华南理工大学期末考试《计算机绘图》答卷注意事项：1. 考前请将密封线内填写清楚；2. 所有答案请直接答在答卷上，答在其它地方无效； 3．试卷与答卷同时提交，答卷才有效； 4．考试形式：闭卷；5. 本试卷共 六 大题，满分100分， 考试时间120分钟。

题 号 一 二 三四五六总分得 分评卷人一、填空题（每空2分，共20分）1. ① ， ② 。

2. ③ ， ④ ， ⑤ 。

3 . ⑥ ， ⑦ ， ⑧ ， ⑨ 。

4. ⑩ 。

二、图形变换题（20分） 1. 画出图形变换后的图形。

_____________ ________姓名 学号学院 专业 座位号( 密 封 线 内 不 答 题 ) …………………………密………………………………………………封………………………………………线………………………………………………2. 以矩阵形式写出变换步骤及总变换矩阵，并在括号中填写变换矩阵的类型，矩阵计算数据精确到小数点后一位。

10101203013030140101⎡⎤⎡⎤⎡⎤⎡⎤⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎣⎦⎣⎦⎣⎦⎣⎦（原图形矩阵） ( ) ( ) ( )⎡⎤⎡⎤⎡⎤⎢⎥⎢⎥⎢⎥⎢⎥=⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎣⎦⎣⎦⎣⎦( ) ( ) (变换后图形) 四、读程序绘图题。

（20分）Imports System.mathPublic Class Form1Const pi = 3.1415926Dim g As GraphicsDim myPen As PenDim ox, oy As IntegerPrivate Sub Form1_load(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paintg = Me.CreateGraphicsmyPen = New Pen(Color.Black, 3)ox = 200 : oy = 150 '坐标系原点g.DrawLine(Pens.Black, 20, oy, 280, oy)g.DrawLine(Pens.Black, ox, 20, ox, 280)End SubPrivate Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickEnd SubEnd ClassImports System.mathPublic Class Form1Dim g As GraphicsDim myPen As PenConst pi = 3.1415926‘绘制多边形的子程序Private Sub draw_poly(ByVal xc As Integer, ByVal yc As Integer, ByVal r As Integer, ByVal n As Integer, ByVal th As Double)Dim xs, ys, xe, ye As SingleDim i As IntegerDim dq As DoubleDim newPen As PennewPen = New Pen(Color.Black, 2)th = th * PI / 180dq = 2 * PI / nxs = xc + r * Cos(th)ys = yc - r * Sin(th)g = Me.CreateGraphicsFor i = 1 To nxe = xc + r * Cos(th + dq * i)ye = yc - r * Sin(th + dq * i)g.DrawLine(newPen, xs, ys, xe, ye)xs = xe : ys = yeNextEnd SubPrivate Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.PaintEnd Sub End Class《计算机绘图》试卷 （A 卷）-答案一、填空题（每空2分，共20分）1. 右，下2. TranslateTransform RotateTransform ScaleTransform3. 平移，旋转，比例，齐次4. ME.CreateGraphcis二、图形变换题（20分）1010127.573.51100cos(30)sin(30)0100100 1.500203010.5921010sin(30)cos(30)00100100 1.503030113.584.516040100160401201010014010111-⎡⎤-︒-︒⎡⎤⎡⎤⎡⎤⎡⎤⎡⎤⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥--︒-︒=⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥--⎢⎥⎣⎦⎣⎦⎣⎦⎣⎦⎣⎦⎣⎦.5511⎡⎤⎢⎥⎢⎥⎢⎥⎢⎥⎣⎦原图 平移 旋转 反平移 平移 缩放 结果图形变换矩阵5个，2分/个，共10分结果矩阵1分文字说明4个，1分/个，共4分画图形5分三、读程序画图（20分）定位圆4分，六个小圆8分，六个正六边形8分四、曲线编程（20分）Dim xs, ys, xe, ye As SingleDim r As DoubleDim t As DoubleDim stepLength As Double = 2 * pi / 100For t = 0 To 2 * pi + stepLength Step stepLengthr = 6 * Sin(4 * t)xe =20* r * Cos(t)ye = 20 * r * Sin(t)If t = 0 Thenxs = xe : ys = yeElseg.DrawLine(myPen, ox + xs, oy - ys, ox + xe, oy - ye)xs = xe : ys = yeEnd IfNext变量申明及定义4’使用For循环4’第1点处理2’极坐标转换为直角坐标4’画线DrawLine 4’版面2’五、看图写程序（20分）Dim rn, r As SingleDim i As IntegerDim th As Doublern = 100Call draw_poly(150, 150, 100, 6, 0)r = 100 * Cos(pi / 6)e.Graphics.DrawEllipse(Pens.Black, 150 - r, 150 - r, 2 * r, 2 * r)For i = 5 To 3 Step -1If i = 4 Thenth = 45Elseth = -90End Ifrn = rn * Cos(pi / (i + 1))Call draw_poly(150, 150, rn, i, th)If i > 3 Thenr = rn * Cos(pi / i)e.Graphics.DrawEllipse(Pens.Black, 150 - r, 150 - r, 2 * r, 2 * r) End IfNext变量申明及定义4’使用For循环4’调用子函数4’其他8’。