Code development platform for open source projects from the European Union institutions

Skip to content
Snippets Groups Projects
Commit aad73146 authored by Terry Burns's avatar Terry Burns Committed by Kostis ANAGNOSTOPOULOS
Browse files

HVAC DOC 

git-tfs-id: [http://tfs00.element.root.com:8080/tfs/TFSCollection]$/VECTO;C1722
parent bc29595c
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 119 additions and 104 deletions
VECTOAux/VectoAuxiliaries/AdvancedAuxiliaries.vb
+ 0
− 4
View file @ aad73146
......@@ -20,10 +20,6 @@ Public Class AdvancedAuxiliaries
Implements IAdvancedAuxiliaries
Private auxConfig As AuxiliaryConfig
......
VECTOAux/VectoAuxiliaries/Hvac/HVACConstants.vb
+ 1
− 6
View file @ aad73146
......@@ -11,16 +11,11 @@
Namespace Hvac
Public Class HVACConstants
Public Class HVACConstants
End Class
End Namespace
......
VECTOAux/VectoAuxiliaries/Hvac/HVACSteadyStateModel.vb
+ 13
− 16
View file @ aad73146
......@@ -13,31 +13,29 @@ Imports System.IO
Namespace Hvac
Public Class HVACSteadyStateModel
Public Class HVACSteadyStateModel
Implements IHVACSteadyStateModel
Public Property HVACElectricalLoadPowerWatts As Single Implements IHVACSteadyStateModel.HVACElectricalLoadPowerWatts
Public Property HVACFuellingLitresPerHour As Single Implements IHVACSteadyStateModel.HVACFuellingLitresPerHour
Public Property HVACMechanicalLoadPowerWatts As Single Implements IHVACSteadyStateModel.HVACMechanicalLoadPowerWatts
Public Property HVACElectricalLoadPowerWatts As Single Implements IHVACSteadyStateModel.HVACElectricalLoadPowerWatts
Public Property HVACFuellingLitresPerHour As Single Implements IHVACSteadyStateModel.HVACFuellingLitresPerHour
Public Property HVACMechanicalLoadPowerWatts As Single Implements IHVACSteadyStateModel.HVACMechanicalLoadPowerWatts
Public Sub New()
'Constructors
Public Sub New()
End Sub
Public Sub New(elecPowerW As Single, mechPowerW As Single, fuellingLPH As Single)
Public Sub New(elecPowerW As Single, mechPowerW As Single, fuellingLPH As Single)
HVACElectricalLoadPowerWatts = elecPowerW
HVACFuellingLitresPerHour = mechPowerW
HVACFuellingLitresPerHour = mechPowerW
HVACMechanicalLoadPowerWatts = fuellingLPH
End Sub
Public Function SetValuesFromMap( ByVal filePath As String, byref message As String ) As Boolean Implements IHVACSteadyStateModel.SetValuesFromMap
'Implementation
Public Function SetValuesFromMap( ByVal filePath As String, byref message As String ) As Boolean Implements IHVACSteadyStateModel.SetValuesFromMap
Dim myData As String
......@@ -113,9 +111,8 @@ Public Function SetValuesFromMap( ByVal filePath As String, byref message As Str
End Function
End Class
......
VECTOAux/VectoAuxiliaries/Hvac/HVACUserInputsConfig.vb
+ 8
− 8
View file @ aad73146
......@@ -18,18 +18,18 @@ Namespace Hvac
Public Class HVACUserInputsConfig
Implements IHVACUserInputsConfig
'Constructor
Public Sub new (ssm As IHVACSteadyStateModel, ssmFilePath As string)
Public Property SteadyStateModel As IHVACSteadyStateModel Implements IHVACUserInputsConfig.SteadyStateModel
Public Property SSMFilePath As String Implements IHVACUserInputsConfig.SSMFilePath
Public Sub new (ssm As IHVACSteadyStateModel, ssmFilePath As string)
SteadyStateModel = ssm
Me.SSMFilePath = ssmFilePath
SteadyStateModel = ssm
Me.SSMFilePath = ssmFilePath
End Sub
'Implementation
Public Property SteadyStateModel As IHVACSteadyStateModel Implements IHVACUserInputsConfig.SteadyStateModel
Public Property SSMFilePath As String Implements IHVACUserInputsConfig.SSMFilePath
End Class
End Namespace
......
VECTOAux/VectoAuxiliaries/Hvac/IHVACSteadyStateModel.vb
+ 33
− 14
View file @ aad73146
......@@ -11,23 +11,42 @@
Namespace Hvac
Public Interface IHVACSteadyStateModel
Function SetValuesFromMap( byval filePath As String , ByRef message As string) As Boolean
Property HVACMechanicalLoadPowerWatts As Single
Property HVACElectricalLoadPowerWatts As Single
Property HVACFuellingLitresPerHour As single
Public Interface IHVACSteadyStateModel
''' <summary>
''' Initialised Values From Map
''' </summary>
''' <param name="filePath"></param>
''' <param name="message"></param>
''' <returns>True if successfull, and False if not.</returns>
''' <remarks></remarks>
Function SetValuesFromMap( byval filePath As String , ByRef message As string) As Boolean
''' <summary>
''' HVAC Mechanical Load Power (W)
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Property HVACMechanicalLoadPowerWatts As Single
''' <summary>
''' HVAC Electrical Load Power (W)
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Property HVACElectricalLoadPowerWatts As Single
''' <summary>
''' HVAC Fuelling (L/H)
''' </summary>
''' <value></value>
''' <returns>Liters per hour</returns>
''' <remarks></remarks>
Property HVACFuellingLitresPerHour As single
End Interface
End Namespace
VECTOAux/VectoAuxiliaries/Hvac/IHVACUserInputsConfig.vb
+ 14
− 8
View file @ aad73146
......@@ -15,19 +15,25 @@ Imports VectoAuxiliaries.Hvac
Namespace Hvac
Public Interface IHVACUserInputsConfig
Public Interface IHVACUserInputsConfig
''' <summary>
''' Contains HVACSteadyStateModel
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Property SteadyStateModel As IHVACSteadyStateModel
''' <summary>
''' PathName of the Steady State Model File
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Property SSMFilePath As string
End Interface
End Namespace
VECTOAux/VectoAuxiliaries/Hvac/IM1_AverageHVACLoadDemand.vb
+ 26
− 10
View file @ aad73146
......@@ -11,16 +11,32 @@
Namespace Hvac
Public Interface IM1_AverageHVACLoadDemand
Function AveragePowerDemandAtCrankFromHVACMechanicalsWatts() As Single
Function AveragePowerDemandAtAlternatorFromHVACElectricsWatts() As Single
Function AveragePowerDemandAtCrankFromHVACElectricsWatts() As Single
Function HVACFuelingLitresPerHour() As Single
Public Interface IM1_AverageHVACLoadDemand
''' <summary>
''' Average Power Demand At Crank From HVAC Mechanicals (W)
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Function AveragePowerDemandAtCrankFromHVACMechanicalsWatts() As Single
''' <summary>
''' Average Power Demand At Alternator From HVAC Electrics (W)
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Function AveragePowerDemandAtAlternatorFromHVACElectricsWatts() As Single
''' <summary>
''' Average Power Demand At Crank From HVAC Electrics (W)
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Function AveragePowerDemandAtCrankFromHVACElectricsWatts() As Single
''' <summary>
''' HVAC Fueling (L/H)
''' </summary>
''' <returns>Litres Per Hour</returns>
''' <remarks></remarks>
Function HVACFuelingLitresPerHour() As Single
End Interface
......
VECTOAux/VectoAuxiliaries/Hvac/M1_AverageHVACLoadDemand.vb
+ 24
− 37
View file @ aad73146
......@@ -15,19 +15,18 @@ Imports VectoAuxiliaries.Pneumatics
Namespace Hvac
Public Class M1_AverageHVACLoadDemand
Implements IM1_AverageHVACLoadDemand
Private _m0 As IM0_NonSmart_AlternatorsSetEfficiency
Private _alternatorGearEfficiency As Single
Private _compressorGearEfficiency As Single
Private _signals As ISignals
Private _powernetVoltage As Single
Private _steadyStateModel As IHVACSteadyStateModel
Public Sub New(m0 As IM0_NonSmart_AlternatorsSetEfficiency, altGearEfficiency As Single, compressorGearEfficiency As Single, powernetVoltage As Single, signals As ISignals, ssm As IHVACSteadyStateModel)
Implements IM1_AverageHVACLoadDemand
Private _m0 As IM0_NonSmart_AlternatorsSetEfficiency
Private _alternatorGearEfficiency As Single
Private _compressorGearEfficiency As Single
Private _signals As ISignals
Private _powernetVoltage As Single
Private _steadyStateModel As IHVACSteadyStateModel
'Constructor
Public Sub New(m0 As IM0_NonSmart_AlternatorsSetEfficiency, altGearEfficiency As Single, compressorGearEfficiency As Single, powernetVoltage As Single, signals As ISignals, ssm As IHVACSteadyStateModel)
'Sanity Check - Illegal operations without all params.
If m0 Is Nothing Then Throw New ArgumentException("Module0 as supplied is null")
......@@ -53,43 +52,31 @@ Namespace Hvac
End Sub
Public Function AveragePowerDemandAtCrankFromHVACMechanicalsWatts() As Single Implements IM1_AverageHVACLoadDemand.AveragePowerDemandAtCrankFromHVACMechanicalsWatts
End Sub
'Public Methods - Implementation
Public Function AveragePowerDemandAtCrankFromHVACMechanicalsWatts() As Single Implements IM1_AverageHVACLoadDemand.AveragePowerDemandAtCrankFromHVACMechanicalsWatts
Return _steadyStateModel.HVACMechanicalLoadPowerWatts / _compressorGearEfficiency
End Function
End Function
Public Function AveragePowerDemandAtAlternatorFromHVACElectricsWatts() As Single Implements IM1_AverageHVACLoadDemand.AveragePowerDemandAtAlternatorFromHVACElectricsWatts
Return _steadyStateModel.HVACElectricalLoadPowerWatts
End Function
Return _steadyStateModel.HVACElectricalLoadPowerWatts
Public Function AveragePowerDemandAtCrankFromHVACElectricsWatts() As Single Implements IM1_AverageHVACLoadDemand.AveragePowerDemandAtCrankFromHVACElectricsWatts
End Function
Public Function AveragePowerDemandAtCrankFromHVACElectricsWatts() As Single Implements IM1_AverageHVACLoadDemand.AveragePowerDemandAtCrankFromHVACElectricsWatts
Return _steadyStateModel.HVACElectricalLoadPowerWatts / _m0.AlternatorsEfficiency() / _alternatorGearEfficiency
Return _steadyStateModel.HVACElectricalLoadPowerWatts / _m0.AlternatorsEfficiency() / _alternatorGearEfficiency
End Function
Public Function HVACFuelingLitresPerHour() As Single Implements IM1_AverageHVACLoadDemand.HVACFuelingLitresPerHour
End Function
Public Function HVACFuelingLitresPerHour() As Single Implements IM1_AverageHVACLoadDemand.HVACFuelingLitresPerHour
Return _steadyStateModel.HVACFuellingLitresPerHour
End Function
End Class
End Namespace
\ No newline at end of file
VECTOAux/VectoAuxiliaries/VectoAuxiliaries.vbproj
+ 0
− 1
View file @ aad73146
......@@ -119,7 +119,6 @@
<Compile Include="Electrics\IElectricalConsumerList.vb" />
<Compile Include="Hvac\HVACSteadyStateModel.vb" />
<Compile Include="Hvac\HVACUserInputsConfig.vb" />
<Compile Include="Hvac\HVACMapParameter.vb" />
<Compile Include="Hvac\IHVACSteadyStateModel.vb" />
<Compile Include="Hvac\IHVACUserInputsConfig.vb" />
<Compile Include="Hvac\IM1_AverageHVACLoadDemand.vb" />
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

For further information about the platform and support, please see https://code.europa.eu/info/about