Hermite曲线.doc

Hermite曲线实验报告 0915403024周海媚 实验目的 1、了解服装CAD中的常用曲线。 2、掌握Hermite曲线的基本原理和方法，了解Hermite曲线的特点。 3、运用Visual Basic 6.0软件编写程序实现曲线的成功绘制。 实验原理 三次Her mite曲线的一般表达式为：A+ B+ C+ D 已知曲线端点0(= 0)和1(= 1)，及该曲线在两个端点处的切线矢量，(= 0)，(= 1)，则可得下面结果： (0) = D=0 (1) = A + B+ C + D=1 (0) = C = (1) = 3A + 2B+ C = 解该方程组得： A = 2(0－1) ++ B = 3(0－1) －2－ C = D =0 将上面结果中的系数A、B、C、D代入一般表达式，并整理成如下表达式： 写成矩阵形式： ·· 实验程序 Private pt() As mypoint Private Sub Form_Load() ReDim pt(1) End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Dim s As Integer pt(UBound(pt)).x = x pt(UBound(pt)).y = y Picture1.Circle (x, y), 1 s = Val(UBound(pt)) Select Case s Case 1 Picture1.Print P0 Case 2 Picture1.Print P1 Case 3 Picture1.Print P01 曲线在P0点处的切线矢量 Picture1.Line (pt(1).x, pt(1).y)-(pt(3).x, pt(3).y) Case 4 Picture1.Print P11 曲线在P1点处的切线矢量 Picture1.Line (pt(2).x, pt(2).y)-(pt(4).x, pt(4).y) End Select ReDim Preserve pt(UBound(pt) + 1) End Sub Private Sub Command1_Click() Dim Ax, Bx, Cx, Dx, Ay, By, Cy, Dy As Single Dim P01x!, P11y! Dim j%, t As Single P01x = 2 * (pt(3).x - pt(1).x) P01y = 2 * (pt(3).y - pt(1).y) P11x = 2 * (pt(2).x - pt(UBound(pt) - 1).x) P11y = 2 * (pt(2).y - pt(UBound(pt) - 1).y) Ax = 2 * (pt(1).x - pt(2).x) + P01x + P11x Ay = 2 * (pt(1).y - pt(2).y) + P01y + P11y Bx = 3 * (pt(2).x - pt(1).x) - 2 * P01x - P11x By = 3 * (pt(2).y - pt(1).y) - 2 * P01y - P11y Cx = P01x Cy = P01y Dx = pt(1).x Dy = pt(1).y For j = 1 To 1000 t = j / 1000 x = Ax * t ^ 3 + Bx * t ^ 2 + Cx * t + Dx y = Ay * t ^ 3 + By * t ^ 2 + Cy * t + Dy Picture1.PSet (x, y) Next j End Sub Private Sub Command2_Click() Picture1.Cls ReDim pt(1) pt(1)为第一个点P0 End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Activate()