Aspen Touch Solutions ATM-123R Series Specifikace Strana 49

  • Stažení
  • Přidat do mých příruček
  • Tisk
  • Strana
    / 374
  • Tabulka s obsahem
  • KNIHY
  • Hodnocené. / 5. Na základě hodnocení zákazníků
Zobrazit stránku 48
Automation 2-35
2-35
Example:
Dim x As Variant
Dim intI As Integer
Dim bsCompBasisVarType As String
Dim bsTargetDistType As String
Dim vtTargetTemps(6) As Double
Dim vtTargetYields(6) As Double
Dim vtTargetLEcomp(37) As Double
Dim vtTargetLEcompId(37) As Double
bsCompBasisVarType = "VolFrac"
bsTargetDistType = "dtTBP"
// these are TBP temperatures in C
vtTargetTemps(0) = 100.01
vtTargetTemps(1) = 200.01
vtTargetTemps(2) = 350.01
vtTargetTemps(3) = 500#
vtTargetTemps(4) = 650
vtTargetTemps(5) = 800
vtTargetTemps(6) = 900
// these are Vol% yield corresponding to above temperatures
vtTargetYields(0) = 10
vtTargetYields(1) = 25
vtTargetYields(2) = 50
vtTargetYields(3) = 70
vtTargetYields(4) = 80
vtTargetYields(5) = 90
vtTargetYields(6) = 100
For intI = 0 To 37
vtTargetLEcomp(intI) = 0
Next
vtTargetLEcomp(4) = 0.0001 ‘ Methane
vtTargetLEcomp(6) = 0.0002 ‘ Ethane
// these are light ends component ids
vtTargetLEcompId(0) = 20 ‘ Hydrogen
vtTargetLEcompId(1) = 13 ‘ Nitrogen
vtTargetLEcompId(2) = 21 ‘ CO
vtTargetLEcompId(3) = 28 ‘ O2
vtTargetLEcompId(4) = 1 ‘ Methane
vtTargetLEcompId(5) = 23 ‘ Ethylene
Zobrazit stránku 48
1 2 ... 44 45 46 47 48 49 50 51 52 53 54 ... 373 374

Komentáře k této Příručce

Žádné komentáře