-
Notifications
You must be signed in to change notification settings - Fork 7
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Showing
25 changed files
with
423 additions
and
60 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
|
|
@@ -17,3 +17,4 @@ obj | |
| /DTLTest3/bin/Release | ||
| /DWSIM/bin/Release | ||
| *.suo | ||
| /.vs/DTL/v15/Server/sqlite3 | ||
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Binary file not shown.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,63 @@ | ||
| Imports DTL.DTL.SimulationObjects.PropertyPackages | ||
| Imports System.Linq | ||
| Module test | ||
| Sub Main() | ||
| Dim dtlc As New DTL.Thermodynamics.Calculator() | ||
| dtlc.Initialize() | ||
| dtlc.SetDebugLevel(0) | ||
| 'Peng-Robinson Property Package | ||
| Dim prpp As PropertyPackage = dtlc.GetPropPackInstance("Peng-Robinson (PR)") | ||
| Dim FlashAlg As Integer = 2 'Nested loops VLE | ||
| Dim compounds As String() = New String() {"Methane", "Isobutane", "N-decane"} | ||
| Dim molefractions As Double() = New Double() {0.8, 0.1, 0.1} | ||
| Dim P As Double = 80 'bar | ||
| Dim T As Double = 30 'C | ||
| prpp.SetParameterValue(Parameter.FlashAlgorithmFastMode, 0) | ||
| Dim result As Auxiliary.FlashAlgorithms.FlashCalculationResult | ||
| result = dtlc.CalcEquilibrium(DTL.Thermodynamics.Calculator.FlashCalculationType.PressureTemperature, | ||
| FlashAlg, P * 101325, T + 273.15, prpp, compounds, molefractions, Nothing, 0) | ||
| If result.ResultException Is Nothing Then | ||
| Dim vmolefractions() As Double | ||
| Dim lmolefractions() As Double | ||
| Dim fv As Double | ||
| Console.Write("Vapor mole fraction ") | ||
| fv = result.GetVaporPhaseMoleFraction | ||
| Console.Write(fv) | ||
| Console.Write(vbCrLf) | ||
| 'Vapor Phase compound mole fractions: | ||
| Console.Write("Vapor compound mole fractions ") | ||
| vmolefractions = result.GetVaporPhaseMoleFractions | ||
| For count = 0 To UBound(vmolefractions) | ||
| Console.Write(vmolefractions(count) & " ") | ||
| Next | ||
| Console.Write(vbCrLf) | ||
| 'Liquid Phase 1 compound mole fractions: | ||
| Console.Write("Liquid compound mole fractions ") | ||
| lmolefractions = result.GetLiquidPhase1MoleFractions | ||
| For count = 0 To UBound(lmolefractions) | ||
| Console.Write(lmolefractions(count) & " ") | ||
| Next | ||
| Console.Write(vbCrLf) | ||
| Dim PropValues As Object | ||
| PropValues = dtlc.CalcProp(prpp, "viscosity", "mole", "Vapor", compounds, T + 273.15, P * 101325, vmolefractions) | ||
| Console.Write("Vapor viscosity ") | ||
| Console.Write(PropValues(0).ToString & vbTab) | ||
| Console.Write(vbCrLf) | ||
| PropValues = dtlc.CalcProp(prpp, "viscosity", "mole", "Liquid", compounds, T + 273.15, P * 101325, lmolefractions) | ||
| Console.Write("Liquid viscosity ") | ||
| Console.Write(PropValues(0).ToString & vbTab) | ||
| Console.Write(vbCrLf) | ||
| Console.Write("Surface Tension ") | ||
| PropValues = dtlc.CalcTwoPhaseProp(prpp, "surfaceTension", "UNDEFINED", "Vapor", "Liquid", compounds, T + 273.15, P * 101325, vmolefractions, lmolefractions) | ||
| Console.Write(PropValues(0).ToString & vbTab) | ||
| Console.Write(vbCrLf) | ||
| Else | ||
| Console.Write(vbCrLf) | ||
| Console.WriteLine("Error calculating flash: " & result.ResultException.Message.ToString) | ||
| Console.Write(vbCrLf) | ||
| End If | ||
| Console.Write(vbCrLf) | ||
| Console.WriteLine("Press any key to continue...") | ||
| Console.ReadKey(True) | ||
| End Sub | ||
| End Module |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,68 @@ | ||
| <?xml version="1.0" encoding="utf-8" ?> | ||
| <Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> | ||
| <PropertyGroup> | ||
| <!-- --> | ||
| <!-- ILMerge project-specific settings. Almost never need to be set explicitly. --> | ||
| <!-- for details, see http://research.microsoft.com/en-us/people/mbarnett/ilmerge.aspx --> | ||
| <!-- --> | ||
| <!-- *** set this file to Type=None, CopyToOutput=Never *** --> | ||
|
|
||
| <!-- If True, all copy local dependencies will also be merged from referenced projects whether they are referenced in the current project explicitly or not --> | ||
| <ILMergeTransitive>true</ILMergeTransitive> | ||
|
|
||
| <!-- Extra ILMerge library paths (semicolon-separated). Dont put your package dependencies here, they will be added automagically --> | ||
| <ILMergeLibraryPath></ILMergeLibraryPath> | ||
|
|
||
| <!-- The solution NuGet package directory if not standard 'SOLUTION\packages' --> | ||
| <ILMergePackagesPath></ILMergePackagesPath> | ||
|
|
||
| <!-- The merge order file name if differs from standard 'ILMergeOrder.txt' --> | ||
| <ILMergeOrderFile></ILMergeOrderFile> | ||
|
|
||
| <!-- The strong key file name if not specified in the project --> | ||
| <ILMergeKeyFile></ILMergeKeyFile> | ||
|
|
||
| <!-- The assembly version if differs for the version of the main assembly --> | ||
| <ILMergeAssemblyVersion></ILMergeAssemblyVersion> | ||
|
|
||
| <!-- added in Version 1.0.4 --> | ||
| <ILMergeFileAlignment></ILMergeFileAlignment> | ||
|
|
||
| <!-- added in Version 1.0.4, default=none --> | ||
| <ILMergeAllowDuplicateType></ILMergeAllowDuplicateType> | ||
|
|
||
| <!-- If the <see cref="CopyAttributes"/> is also set, any assembly-level attributes names that have the same type are copied over into the target assembly --> | ||
| <ILMergeAllowMultipleAssemblyLevelAttributes></ILMergeAllowMultipleAssemblyLevelAttributes> | ||
|
|
||
| <!-- See ILMerge documentation --> | ||
| <ILMergeAllowZeroPeKind></ILMergeAllowZeroPeKind> | ||
|
|
||
| <!-- The assembly level attributes of each input assembly are copied over into the target assembly --> | ||
| <ILMergeCopyAttributes></ILMergeCopyAttributes> | ||
|
|
||
| <!-- Creates a .pdb file for the output assembly and merges into it any .pdb files found for input assemblies, default=true --> | ||
| <ILMergeDebugInfo></ILMergeDebugInfo> | ||
|
|
||
| <!-- Target assembly will be delay signed --> | ||
| <ILMergeDelaySign></ILMergeDelaySign> | ||
|
|
||
| <!-- Types in assemblies other than the primary assembly have their visibility modified --> | ||
| <ILMergeInternalize></ILMergeInternalize> | ||
|
|
||
| <!-- The path name of the file that will be used to identify types that are not to have their visibility modified --> | ||
| <ILMergeInternalizeExcludeFile></ILMergeInternalizeExcludeFile> | ||
|
|
||
| <!-- XML documentation files are merged to produce an XML documentation file for the target assembly --> | ||
| <ILMergeXmlDocumentation>true</ILMergeXmlDocumentation> | ||
|
|
||
| <!-- External assembly references in the manifest of the target assembly will use full public keys (false) or public key tokens (true, default value) --> | ||
| <ILMergePublicKeyTokens></ILMergePublicKeyTokens> | ||
|
|
||
| <!-- Types with the same name are all merged into a single type in the target assembly --> | ||
| <ILMergeUnionMerge></ILMergeUnionMerge> | ||
|
|
||
| <!-- The version of the target framework, default 40 (works for 45 too) --> | ||
| <ILTargetPlatform></ILTargetPlatform> | ||
|
|
||
| </PropertyGroup> | ||
| </Project> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| # this file contains the partial list of the merged assemblies in the merge order | ||
| # you can fill it from the obj\CONFIG\PROJECT.ilmerge generated on every build | ||
| # and finetune merge order to your satisfaction |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.