vb計算程序課程設(shè)計--用最小二乘法求擬合曲線-資料下載頁
2025-01-18 12:15本頁面
【正文】 ElseIf ymax = ymin Then (xmin * (xmax xmin), ymax * )(xmax + * (xmax xmin), ymin * ) zbz xmin * (xmax xmin), ymax * , xmax + * (xmax xmin), ymin * (xmin * (xmax xmin), ymax)(xmax + * (xmax xmin), ymin), vbBlue Else (xmin * (xmax xmin), ymax + * (ymax ymin))(xmax + * (xmax xmin), ymin * (ymax ymin)) zbz xmin * (xmax xmin), ymax + * (ymax ymin), xmax + * (xmax xmin), ymin * (ymax ymin) (xmin * (xmax xmin), b * (xmin * (xmax xmin)) + a)(xmax + * (xmax xmin), b * (xmax + * (xmax xmin)) + a), vbBlue End If End SubPrivate Sub Command4_Click() = = True = False = False = FalseEnd SubPrivate Sub Command5_Click() EndEnd SubPrivate Sub Form_Activate() Dim s As Integer, l As Single Dim p1 As Single, p2 As Single p1 = ScaleWidth: p2 = ScaleHeight l = 255 / p1 For s = 0 To p1 Line (s, 0)(s, p2), RGB(255 s * l, 255 s * l, 255 s * l) Next sEnd SubPrivate Sub Form_Load() = False = False = False = TrueEnd SubFunction zbz(ByVal x1 As Single, y1 As Single, x2 As Single, y2 As Single)For i = x1 + (x2 x1) / 5 To x2 Step (x2 x1) / 5 (i, y2 + 100 * (y1 y2) / )(i, y2) = i 250 * (x2 x1) / = y2 + 350 * (y1 y2) / iNextFor i = y2 + (y1 y2) / 5 To y1 Step (y1 y2) / 5 (x1, i)(x1 + 100 * (x2 x1) / , i) = x1 + 150 * (x2 x1) / = i + 80 * (y1 y2) / iNextEnd Function第 17 頁 共 17 頁
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1