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

Skip to content
Snippets Groups Projects
Commit bb30d144 authored by Markus Quaritsch's avatar Markus Quaritsch
Browse files

code formatting

parent db47155a
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
VECTOAux/VectoAuxiliaries/Pneumatics/M4_AirCompressor.vb
+ 160
− 164
View file @ bb30d144
...@@ -10,168 +10,164 @@ ...@@ -10,168 +10,164 @@
' See the LICENSE.txt for the specific language governing permissions and limitations. ' See the LICENSE.txt for the specific language governing permissions and limitations.
Namespace Pneumatics Namespace Pneumatics
Public Class M4_AirCompressor
Implements IM4_AirCompressor
Public Class M4_AirCompressor
Private Const MinRatio As Single = 1
Implements IM4_AirCompressor Private Const MaxRatio As Single = 10
Private Const MinEff As Single = 0
Private Const MinRatio As Single = 1 Private Const MaxEff As Single = 1
Private Const MaxRatio As Single = 10
Private Const MinEff As Single = 0 Private _pulleyGearRatio As Single
Private Const MaxEff As Single = 1 Private _pulleyGearEfficiency As Single
Private _map As ICompressorMap
Private _pulleyGearRatio As Single Private _signals As ISignals
Private _pulleyGearEfficiency As Single
Private _map As ICompressorMap
Private _signals As ISignals ''' <summary>
''' Ratio of Gear or Pulley used to drive the compressor
''' </summary>
''' <summary> ''' <value></value>
''' Ratio of Gear or Pulley used to drive the compressor ''' <returns></returns>
''' </summary> ''' <remarks></remarks>
''' <value></value> Public Property PulleyGearRatio() As Single Implements IM4_AirCompressor.PulleyGearRatio
''' <returns></returns> Get
''' <remarks></remarks> Return _pulleyGearRatio
Public Property PulleyGearRatio() As Single Implements IM4_AirCompressor.PulleyGearRatio End Get
Get Set(value As Single)
Return _pulleyGearRatio If (value < MinRatio OrElse value > MaxRatio) Then
End Get Throw _
Set(value As Single) New ArgumentOutOfRangeException(
If (value < MinRatio OrElse value > MaxRatio) Then String.Format("Invalid value, should be in the range {0} to {1}", MinRatio, MaxRatio), value)
Throw New ArgumentOutOfRangeException(String.Format("Invalid value, should be in the range {0} to {1}", MinRatio, MaxRatio), value) Else
Else _pulleyGearRatio = value
_pulleyGearRatio = value End If
End If End Set
End Set End Property
End Property
''' <summary>
''' <summary> ''' Efficiency of the Pulley or Gear used to drive the compressor
''' Efficiency of the Pulley or Gear used to drive the compressor ''' </summary>
''' </summary> ''' <value></value>
''' <value></value> ''' <returns></returns>
''' <returns></returns> ''' <remarks></remarks>
''' <remarks></remarks> Public Property PulleyGearEfficiency() As Single Implements IM4_AirCompressor.PulleyGearEfficiency
Public Property PulleyGearEfficiency() As Single Implements IM4_AirCompressor.PulleyGearEfficiency Get
Get Return _pulleyGearEfficiency
Return _pulleyGearEfficiency End Get
End Get Set(value As Single)
Set(value As Single) If (value < MinEff OrElse value > MaxEff) Then
If (value < MinEff OrElse value > MaxEff) Then Throw _
Throw New ArgumentOutOfRangeException(String.Format("Invalid value, should be in the range {0} to {1}", MinEff, MaxEff), value) New ArgumentOutOfRangeException(String.Format("Invalid value, should be in the range {0} to {1}", MinEff, MaxEff),
Else value)
_pulleyGearEfficiency = value Else
End If _pulleyGearEfficiency = value
End Set End If
End Property End Set
End Property
'''<summary>
''' Creates a new instance of the AirCompressor Class '''<summary>
''' </summary> ''' Creates a new instance of the AirCompressor Class
''' <param name="map">map of compressor values against compressor rpm</param> ''' </summary>
''' <param name="pulleyGearRatio">Ratio of Pulley/Gear</param> ''' <param name="map">map of compressor values against compressor rpm</param>
''' <param name="pulleyGearEfficiency">Efficiency of Pulley/Gear</param> ''' <param name="pulleyGearRatio">Ratio of Pulley/Gear</param>
''' <remarks></remarks> ''' <param name="pulleyGearEfficiency">Efficiency of Pulley/Gear</param>
Public Sub New(ByVal map As ICompressorMap, byref pulleyGearRatio As Single, byref pulleyGearEfficiency As Single, signals As ISignals) ''' <remarks></remarks>
Public Sub New(ByVal map As ICompressorMap, ByRef pulleyGearRatio As Single, ByRef pulleyGearEfficiency As Single,
_map = map signals As ISignals)
_pulleyGearRatio = pulleyGearRatio
_pulleyGearEfficiency = pulleyGearEfficiency _map = map
_signals = signals _pulleyGearRatio = pulleyGearRatio
_pulleyGearEfficiency = pulleyGearEfficiency
End Sub _signals = signals
End Sub
''' <summary>
''' Initialises the AirCompressor Class ''' <summary>
''' </summary> ''' Initialises the AirCompressor Class
''' <returns></returns> ''' </summary>
''' <remarks></remarks> ''' <returns></returns>
Public Function Initialise() As Boolean Implements IM4_AirCompressor.Initialise ''' <remarks></remarks>
Return _map.Initialise() Public Function Initialise() As Boolean Implements IM4_AirCompressor.Initialise
End Function Return _map.Initialise()
End Function
'Queryable Compressor Methods
' 'Queryable Compressor Methods
'Compressor ( Speed ) Flow Rate '
'Power @ Crank From Pnumatics compressor off ( A ) 'Compressor ( Speed ) Flow Rate
'Power @ Crank From Pnumatics compressor On ( B ) 'Power @ Crank From Pnumatics compressor off ( A )
'Power Delta ( A ) vs ( B ) 'Power @ Crank From Pnumatics compressor On ( B )
'Power Delta ( A ) vs ( B )
'Return Average Power Demand Per Compressor Unit Flow Rate
'Return Average Power Demand Per Compressor Unit Flow Rate
''' <summary>
''' Returns the flow rate [litres/second] of compressor for the given engine rpm ''' <summary>
''' </summary> ''' Returns the flow rate [litres/second] of compressor for the given engine rpm
''' <returns></returns> ''' </summary>
''' <remarks></remarks> ''' <returns></returns>
Public Function GetFlowRate() As Single Implements IM4_AirCompressor.GetFlowRate ''' <remarks></remarks>
Dim compressorRpm As Single = _signals.EngineSpeed * PulleyGearRatio Public Function GetFlowRate() As Single Implements IM4_AirCompressor.GetFlowRate
Dim compressorRpm As Single = _signals.EngineSpeed * PulleyGearRatio
''Flow Rate in the map is Litres/min so divide by 60 to get Units per second.
Return _map.GetFlowRate(compressorRpm) / 60 ''Flow Rate in the map is Litres/min so divide by 60 to get Units per second.
Return _map.GetFlowRate(compressorRpm) / 60
End Function End Function
''' <summary> ''' <summary>
''' Returns the power consumed for the given engine rpm when compressor is off ''' Returns the power consumed for the given engine rpm when compressor is off
''' </summary> ''' </summary>
''' <returns></returns> ''' <returns></returns>
''' <remarks></remarks> ''' <remarks></remarks>
Public Function GetPowerCompressorOff() As Single Implements IM4_AirCompressor.GetPowerCompressorOff Public Function GetPowerCompressorOff() As Single Implements IM4_AirCompressor.GetPowerCompressorOff
Return GetCompressorPower(False) Return GetCompressorPower(False)
End Function End Function
''' <summary> ''' <summary>
''' Returns the power consumed for the given engine rpm when compressor is on ''' Returns the power consumed for the given engine rpm when compressor is on
''' </summary> ''' </summary>
''' <returns></returns> ''' <returns></returns>
''' <remarks></remarks> ''' <remarks></remarks>
Public Function GetPowerCompressorOn() As Single Implements IM4_AirCompressor.GetPowerCompressorOn Public Function GetPowerCompressorOn() As Single Implements IM4_AirCompressor.GetPowerCompressorOn
Return GetCompressorPower( True) Return GetCompressorPower(True)
End Function End Function
''' <summary> ''' <summary>
''' Returns the difference in power between compressonr on and compressor off operation at the given engine rpm ''' Returns the difference in power between compressonr on and compressor off operation at the given engine rpm
''' </summary> ''' </summary>
''' <returns></returns> ''' <returns></returns>
''' <remarks></remarks> ''' <remarks></remarks>
Public Function GetPowerDifference() As Single Implements IM4_AirCompressor.GetPowerDifference Public Function GetPowerDifference() As Single Implements IM4_AirCompressor.GetPowerDifference
Dim powerOn As Single = GetPowerCompressorOn() Dim powerOn As Single = GetPowerCompressorOn()
Dim powerOff As Single = GetPowerCompressorOff() Dim powerOff As Single = GetPowerCompressorOff()
Return powerOn - powerOff Return powerOn - powerOff
End Function End Function
''' <summary> ''' <summary>
''' Looks up the compressor power from the map at given engine speed ''' Looks up the compressor power from the map at given engine speed
''' </summary> ''' </summary>
''' <param name="compressorOn">Is compressor on</param> ''' <param name="compressorOn">Is compressor on</param>
''' <returns></returns> ''' <returns></returns>
''' <remarks></remarks> ''' <remarks></remarks>
Private Function GetCompressorPower( ByVal compressorOn As Boolean) As Single Private Function GetCompressorPower(ByVal compressorOn As Boolean) As Single
Dim compressorRpm As Single = _signals.EngineSpeed * PulleyGearRatio Dim compressorRpm As Single = _signals.EngineSpeed * PulleyGearRatio
If compressorOn Then If compressorOn Then
Return _map.GetPowerCompressorOn(compressorRpm) Return _map.GetPowerCompressorOn(compressorRpm)
Else Else
Return _map.GetPowerCompressorOff(compressorRpm) Return _map.GetPowerCompressorOff(compressorRpm)
End If End If
End Function End Function
''' <summary> ''' <summary>
''' Aver ''' Aver
''' </summary> ''' </summary>
''' <returns></returns> ''' <returns></returns>
''' <remarks></remarks> ''' <remarks></remarks>
Public Function GetAveragePowerDemandPerCompressorUnitFlowRate() As Single Implements IM4_AirCompressor.GetAveragePowerDemandPerCompressorUnitFlowRate Public Function GetAveragePowerDemandPerCompressorUnitFlowRate() As Single _
Implements IM4_AirCompressor.GetAveragePowerDemandPerCompressorUnitFlowRate
Return _map.GetAveragePowerDemandPerCompressorUnitFlowRate()
Return _map.GetAveragePowerDemandPerCompressorUnitFlowRate()
End Function End Function
End Class
End Class
End Namespace End Namespace
\ No newline at end of file
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