formula2.dfm

使用4中计算相对湿度

object Form3: TForm3
  Left = 117
  Top = 138
  Width = 864
  Height = 536
  BorderIcons = []
  Caption = 'Form3'
  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 Button1: TButton
    Left = 688
    Top = 440
    Width = 97
    Height = 41
    Caption = '返  回'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -27
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object ComboBox1: TComboBox
    Left = 624
    Top = 8
    Width = 225
    Height = 26
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -18
    Font.Name = '宋体'
    Font.Style = []
    ImeName = '拼音加加集合版'
    ItemHeight = 18
    ParentFont = False
    TabOrder = 1
    Text = '干湿表系数'
    Items.Strings = (
      'Ai=0.662  ,未结冰'
      'Ai= 0.857 ,未结冰'
      'Ai= 0.815 ,未结冰'
      'Ai= 0.7947,未结冰'
      'Ai= 0.584 ,已结冰 '
      'Ai= 0.756 ,已结冰'
      'Ai= 0.719 ,已结冰'
      'Ai= 0.7947,已结冰'
      ' ')
  end
  object Memo1: TMemo
    Left = 8
    Top = 8
    Width = 601
    Height = 473
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    ImeName = '拼音加加集合版'
    Lines.Strings = (
      '1、饱和水汽压'
      
        '在一定温度下，空气中的水汽与相毗连的水或冰平面处于相变平衡时湿空' +
        '气中的水汽压。'
      '饱和水汽压采用世界气象组织推荐的戈夫-格雷奇（Goff-Gratch）公式。'
      '⑴ 纯水平液面饱和水汽压的计算公式'
      
        'logEW=10.79574*(1-T1/T)-5.02800log(T/T1)+1.50475*0.0001［1-10-8.' +
        '2969*(T/ '
      'T1-1))+0.42873*0.001*(104.76955(1-T1/T)-1))+0.78614'
      
        '式中，EW：纯水平液面饱和水汽压（hPa）；T1=273.16K（水的三相点温' +
        '度）；'
      'T=273.15+t℃(绝对温度K)。'
      '⑵ 纯水平冰面饱和水汽压的计算公式'
      
        'LogEi=-9.09685*(T1/(T-1))-3.56654*Log(T1/T)+0.87682*(1- T1/(T-1)' +
        ')+0.78614'
      '式中，Ei：水平冰面饱和水汽压（hPa）；T1和T同上。'
      '2、水汽压'
      '用干湿球温度求空气中水汽压的计算公式'
      '    e=Etw-APh(t-tw)'
      
        '中，e：水汽压（hPa）；Etw：湿球温度tw所对应的纯水平液面的饱和水' +
        '汽压，湿球结冰'
      
        '且湿球温度低于0℃时，为纯水平冰面的饱和水汽压；A：干湿表系数（℃' +
        '-1），由干湿表'
      
        '类型、通风速度及湿球结冰与否而定，其值见干湿表系数表；Ph：本站气' +
        '压（hPa）；t：'
      '干球温度（℃）；tW：湿球温度（℃）。'
      ''
      '附:  干湿表系数表'
      ' 干湿表类型及通风速度      '#9#9'     Ai×10-3(℃-1)'
      #9#9#9'  '#9#9'湿球未结冰  '#9'湿球结冰'
      '通风干湿表（通风速度2.5m/s） '#9#9'0.662'#9' '#9'0.584'
      '球状干湿表(通风速度0.4m/s)'#9#9'0.857 '#9#9'0.756'
      '柱状干湿表(通风速度0.4m/s)'#9#9'0.815'#9#9'0.719'
      '现用百叶箱球状干湿表(通风速度0.8m/s)   '#9'0.7947 '#9#9'0.7947'
      '3、相对湿度'
      '使用干湿球温度表测湿时，空气中相对湿度的计算公式:'
      ''
      '　　　　　U=（E/EW）×100%'
      ''
      
        '式中，U相对湿度（%）；E水汽压（hPa）；Ew干球温度t所对应的纯水平' +
        '液面（或冰面）'
      '饱和水汽压（hPa）。'
      ''
      '')
    ParentFont = False
    TabOrder = 2
  end
end