form2.frm

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

VERSION 5.00
Object = "{B6C10482-FB89-11D4-93C9-006008A7EED4}#1.0#0"; "TeeChart5.ocx"
Begin VB.Form Form2 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "图示"
   ClientHeight    =   4170
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5625
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4170
   ScaleWidth      =   5625
   StartUpPosition =   2  '屏幕中心
   Begin TeeChart.TeeCommander TeeCommander1 
      Height          =   495
      Left            =   120
      OleObjectBlob   =   "Form2.frx":0000
      TabIndex        =   1
      Top             =   0
      Width           =   5415
   End
   Begin TeeChart.TChart TChart1 
      Height          =   3495
      Left            =   120
      TabIndex        =   0
      Top             =   600
      Width           =   5415
      Base64          =   $"Form2.frx":004C
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim n As Single
Dim k As Single
Dim st As String
TeeCommander1.Chart = TChart1
TChart1.Series(0).Clear
TChart1.Series(1).Clear

m = UBound(x())
n = UBound(h())
For i = 0 To m
TChart1.Series(0).AddXY x(i), y(i), "", vbRed
Next i
If biaozi = 1 Then
For k = x(0) To x(m) Step (x(m) - x(0)) * 0.0001

TChart1.Series(1).AddXY k, duoxs(h(), n, k), "", vbBlue

Next k
st = ""
For i = 0 To n
If i = 0 Then
st = st & "Y=" & h(0) & " + "
ElseIf i > 0 And i < n Then
st = st & "(" & h(i) & ")X^" & i & "+"
ElseIf i = n Then
st = st & "(" & h(n) & ")X^" & i
End If
Next i
st = st & Chr(13) + Chr(10)

'st = st & "r=" & r
TChart1.Header.Text.Add (st)
ElseIf biaozi = 2 Then
Debug.Print h(0), h(1)
Debug.Print x(0), x(m)
For k = x(0) To x(m) Step (x(m) - x(0)) * 0.0001

TChart1.Series(1).AddXY k, cm(h(0), h(1), k), "", vbBlue

Next k
st = ""

st = st & "y=" & h(0) & "x^" & "(" & h(1) & ")"

'st = st & "r=" & r
TChart1.Header.Text.Add (st)
ElseIf biaozi = 3 Then
For k = x(0) To x(m) Step (x(m) - x(0)) * 0.0001

TChart1.Series(1).AddXY k, duis(h(0), h(1), k), "", vbBlue

Next k
st = ""

st = st & "y=" & h(1) & "Log(X)+" & "(" & h(0) & ")"

'st = st & "r=" & r
TChart1.Header.Text.Add (st)
ElseIf biaozi = 4 Then
For k = x(0) To x(m) Step (x(m) - x(0)) * 0.0001

TChart1.Series(1).AddXY k, zhis(h(0), h(1), k), "", vbBlue

Next k
st = ""

st = st & "y=" & h(0) & "Exp(" & h(1) & "X)"


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

'TChart1.Series(0).Clear
'TChart1.Series(1).Clear
End Sub