gauss.dfm

带有MathParser控件的高斯积分,可以计算各种复合函数的积分

object Form1: TForm1
  Left = 177
  Top = 103
  Width = 479
  Height = 355
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #39640#26031#31215#20998
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 336
    Top = 8
    Width = 20
    Height = 13
    Caption = 'F(x):'
  end
  object XYPlot: Tsp_XYPlot
    Left = 0
    Top = 8
    Width = 329
    Height = 313
    Hint = #28857#20987#21487#23454#29616#22270#20687#21644#32467#26524#30340#20999#25442#65292#38452#24433#37096#20998#20026#34394#32447#26102#34920#31034#38754#31215#20195#25968#21644#20026#36127
    Color = clBtnFace
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    Visible = False
    OnClick = XYPlotClick
    LeftAxis.Margin = 4
    LeftAxis.LineAttr.Color = clBlack
    LeftAxis.LineAttr.Visible = True
    LeftAxis.GridAttr.Color = clGray
    LeftAxis.GridAttr.Visible = True
    LeftAxis.LabelFormat = '###0.##'
    LeftAxis.SFlags = 193
    LeftAxis.SLinePos = (
      27
      291
      286)
    LeftAxis.fMin = 0.775000000000000000
    LeftAxis.fMax = 10.225000000000000000
    RightAxis.Margin = 4
    RightAxis.LineAttr.Color = clBlack
    RightAxis.LineAttr.Visible = True
    RightAxis.GridAttr.Color = clGray
    RightAxis.GridAttr.Visible = False
    RightAxis.LabelFormat = '###0.##'
    RightAxis.SFlags = 57
    RightAxis.SLinePos = (
      324
      291
      286)
    RightAxis.fMax = 10.000000000000000000
    BottomAxis.Margin = 4
    BottomAxis.LineAttr.Color = clBlack
    BottomAxis.LineAttr.Visible = True
    BottomAxis.GridAttr.Color = clGray
    BottomAxis.GridAttr.Visible = True
    BottomAxis.LabelFormat = '###0.##'
    BottomAxis.SFlags = 192
    BottomAxis.SLinePos = (
      28
      292
      295)
    BottomAxis.fMin = -0.225000000000000000
    BottomAxis.fMax = 9.225000000000000000
    TopAxis.Margin = 4
    TopAxis.LineAttr.Color = clBlack
    TopAxis.LineAttr.Visible = True
    TopAxis.GridAttr.Color = clGray
    TopAxis.GridAttr.Visible = False
    TopAxis.LabelFormat = '###0.##'
    TopAxis.SFlags = 56
    TopAxis.SLinePos = (
      28
      4
      295)
    TopAxis.fMax = 10.000000000000000000
    BorderStyle = bs_None
    FieldColor = clWhite
  end
  object formule: TComboBox
    Left = 336
    Top = 24
    Width = 129
    Height = 21
    ItemHeight = 13
    TabOrder = 0
  end
  object run: TButton
    Left = 344
    Top = 152
    Width = 113
    Height = 25
    Caption = 'Run'
    Default = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = runClick
  end
  object sg: TStringGrid
    Left = 336
    Top = 64
    Width = 126
    Height = 67
    ColCount = 2
    DefaultColWidth = 54
    DefaultRowHeight = 20
    RowCount = 3
    FixedRows = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
    TabOrder = 1
    ColWidths = (
      41
      80)
    RowHeights = (
      20
      20
      20)
  end
  object clear: TButton
    Left = 344
    Top = 192
    Width = 113
    Height = 25
    Caption = 'Clear'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = clearClick
  end
  object exit: TButton
    Left = 344
    Top = 272
    Width = 113
    Height = 25
    Caption = 'Exit'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = exitClick
  end
  object Memo: TMemo
    Left = 0
    Top = 0
    Width = 329
    Height = 321
    Hint = #28857#20987#21487#23454#29616#22270#20687#21644#32467#26524#30340#20999#25442
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Verdana'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ScrollBars = ssVertical
    ShowHint = True
    TabOrder = 5
    OnClick = MemoClick
  end
  object graph: TButton
    Left = 344
    Top = 232
    Width = 113
    Height = 25
    Caption = 'Graph'
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = graphClick
  end
  object MathParser: TMathParser
    OnGetVar = MathParserGetVar
    OnParseError = MathParserParseError
    Left = 376
    Top = 8
  end
  object func: Tsp_XYLine
    Plot = XYPlot
    LineAttr.Color = clBlack
    LineAttr.Width = 3
    LineAttr.Visible = True
    PointAttr.Kind = ptRectangle
    PointAttr.Visible = False
    Left = 176
    Top = 112
  end
  object shadow: Tsp_XYLine
    Plot = XYPlot
    LineAttr.Color = clBlack
    LineAttr.Visible = True
    PointAttr.Kind = ptRectangle
    PointAttr.Visible = False
    Left = 216
    Top = 112
  end
  object X_Axis: Tsp_XYLine
    Plot = XYPlot
    LineAttr.Color = clBlack
    LineAttr.Width = 2
    LineAttr.Visible = True
    PointAttr.Color = clBlack
    PointAttr.Kind = ptDiamond
    PointAttr.VSize = 9
    PointAttr.Visible = True
    Left = 256
    Top = 112
  end
end