formula1.dfm

使用4中计算相对湿度

object Form2: TForm2
  Left = 192
  Top = 144
  Width = 696
  Height = 480
  BorderIcons = []
  Caption = 'Form2'
  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 = 24
    Top = 16
    Width = 649
    Height = 385
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -23
    Font.Name = 'Times New Roman'
    Font.Style = []
    ImeName = '拼音加加集合版'
    Lines.Strings = (
      '//Tg和Ts分别为干球、湿球温度,单位：K'
      '//使用输入的温度值＋273.15即可得到'
      'dq1=166.31*pow((647.3-Ts),0.38)+1.01*(Tg-Ts);'
      'dq2=exp(23.1964-(3816.44)/(Ts-46.13));'
      'dq3=1.01*101300*(Tg-Ts);'
      'dq4=1.88*(Tg-Ts)+267.38*pow((647.3-Ts),0.38);'
      'dq5=101300-exp(23.1964-3816.44/(Ts-46.13));'
      'dq=(dq1*dq2-dq3)/(dq4*dq5);'
      'pq=101300*dq/(0.622+dq);'
      'pqb=exp(23.1964-(3816.44/(Tg-46.13)));'
      'RH=pq/pqb*100;'
      ''
      'CopyRight 2005，HuWenjin'
      'E-mail: [e-mail]')
    ParentFont = False
    TabOrder = 1
  end
  object Button1: TButton
    Left = 560
    Top = 344
    Width = 105
    Height = 49
    Caption = '返  回'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -27
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
end