Attribute VB_Name = "Module1"
Option Explicit

Public Q(1 To 8, 1 To 4) As Double
Public I As Integer
Public J As Integer
Public Z(1 To 8, 1 To 5) As Double
Public t As Double
Public k As Double
'煤耗曲線線性化子程序
 Sub linear(A As Double, B As Double, C As Double, xmin As Double, xmax As Double)
 Dim ymin As Double
 Dim ymax As Double
 
 ymin = A * xmin * xmin + B * xmin + C
 ymax = A * xmax * xmax + B * xmax + C
 t = (ymax - ymin) / (xmax - xmin)
 k = (ymin * xmax - ymax * xmin) / (xmax - xmin)
End Sub