form3.frm

本程序提供了输入表达式计算、积分、微分、拟合、插值等多种数值计算

VERSION 5.00
Object = "{B6C10482-FB89-11D4-93C9-006008A7EED4}#1.0#0"; "TeeChart5.ocx"
Begin VB.Form Form3 
   Caption         =   "图示"
   ClientHeight    =   4140
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5595
   LinkTopic       =   "Form3"
   ScaleHeight     =   4140
   ScaleWidth      =   5595
   StartUpPosition =   2  '屏幕中心
   Begin TeeChart.TChart TChart1 
      Height          =   3495
      Left            =   120
      TabIndex        =   0
      Top             =   600
      Width           =   5415
      Base64          =   $"Form3.frx":0000
   End
   Begin TeeChart.TeeCommander TeeCommander1 
      Height          =   495
      Left            =   120
      OleObjectBlob   =   "Form3.frx":0556
      TabIndex        =   1
      Top             =   0
      Width           =   5415
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim m As Single
Dim k As Single
Dim i As Single
Dim st As String
Dim p As Single
TeeCommander1.Chart = TChart1
TChart1.Series(0).Clear
TChart1.Series(1).Clear
TChart1.Series(2).Clear
m = UBound(x())
k = UBound(xx1())
For i = 0 To m
TChart1.Series(0).AddXY x(i), y(i), "", vbRed
Next i
For i = 1 To k
TChart1.Series(2).AddXY xx1(i), yy1(i), "", vbGreen
Next i
If biaozi = 1 Then
For i = x(0) To x(m) Step (x(m) - x(0)) * 0.0001
Call ntcz(x(), y(), p, i, nn, m)
TChart1.Series(1).AddXY i, p, "", vbBlue

Next i
st = nn & "次多项式插值"



'st = st & "r=" & r
TChart1.Header.Text.Add (st)
ElseIf biaozi = 2 Then
For i = x(0) To x(m) Step (x(m) - x(0)) * 0.0001
Call yangt(1, x(), y(), d1, d2, i, p, m)
TChart1.Series(1).AddXY i, p, "", vbBlue

Next i
st = "样条插值"



'st = st & "r=" & r
TChart1.Header.Text.Add (st)
ElseIf biaozi = 3 Then
For i = x(0) To x(m) Step (x(m) - x(0)) * 0.0001
Call yangt(2, x(), y(), d1, d2, i, p, m)
TChart1.Series(1).AddXY i, p, "", vbBlue

Next i
st = "样条插值"



'st = st & "r=" & r
TChart1.Header.Text.Add (st)
End If
End Sub