formula3.dfm

使用4中计算相对湿度

object Form4: TForm4
  Left = 210
  Top = 170
  Width = 647
  Height = 421
  BorderIcons = []
  Caption = 'Form4'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 120
  TextHeight = 16
  object Memo1: TMemo
    Left = 32
    Top = 16
    Width = 585
    Height = 345
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -23
    Font.Name = 'Times New Roman'
    Font.Style = []
    ImeName = '中文 (简体) - 拼音加加3.11'
    Lines.Strings = (
      'lnPs=C1/Ts+C2+C3Ts+C4Ts^2+C5Ts^3+C6ln(Ts)'
      'lnPg=C1/Tg+C2+C3Tg+C4Tg^2+C5Tg^3+C6ln(Tg)'
      'Pq=Ps-AB(Tg-Ts)'
      'RH=(Pq/Pg)*100%'
      'A=0.000667'
      'B=101300'
      'C1=-5800.2206'
      'C2=1.3914993'
      'C3=-0.04860239'
      'C4=0.000041764768'
      'C5=-0.000000014452093'
      'C6=6.5459673'
      '')
    ParentFont = False
    TabOrder = 0
  end
  object Button1: TButton
    Left = 512
    Top = 304
    Width = 97
    Height = 49
    Caption = '返 回'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -27
    Font.Name = '隶书'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
end