#009 LP Mars ( Gas Fuel )



#IC-Filter

define Sensor.G -1252983604
define AcVent -785498334
define Filter -348054045
define UDruck -1149857558
define Tank 272136332
define LED 1944485013
define Pump -321403609
define Ventil -1280984102

alias Work.Filter r15
alias Work.Vent r14
alias Kuhlen r13

Loop:
#Base Gas Fuellung
lbn r0 Sensor.G HASH(“Base”) Pressure 0
lbn r1 Sensor.G HASH(“Base”) RatioNitrogen 0
slt r0 r0 60
slt r1 r1 0.50
or r0 r0 r1
sbn Pump HASH(“B.N2”) Setting 10
sbn Pump HASH(“B.N2”) On r0

lbn r0 Sensor.G HASH(“Base”) RatioOxygen 0
slt r0 r0 0.30
sbn Pump HASH(“B.O2”) Setting 10
sbn Pump HASH(“B.O2”) On r0

lbn r0 Sensor.G HASH(“Base”) RatioCarbonDioxide 0
slt r0 r0 0.10
sbn Pump HASH(“B.CO2”) Setting 10
sbn Pump HASH(“B.CO2”) On r0

#Kuehlung
lbn r0 Sensor.G HASH(“Base”) Temperature 0
sub r0 r0 273.15
sgt r1 r0 25
select Kuhlen r1 1 Kuhlen
slt r1 r0 22
select Kuhlen r1 0 Kuhlen
sbn Ventil HASH(“B.Cool”) On Kuhlen

#Gas
sbn UDruck HASH(“O2”) Setting 45000
sbn UDruck HASH(“N2”) Setting 45000
sbn UDruck HASH(“CO2”) Setting 45000
sbn UDruck HASH(“H2”) Setting 45000

sbn UDruck HASH(“O2”) On 1
sbn UDruck HASH(“N2”) On 1
sbn UDruck HASH(“CO2”) On 1
sbn UDruck HASH(“H2”) On 1

lbn r0 Sensor.G HASH(“Filter”) Temperature 0
sub r0 r0 273.15
sgt r0 r0 4
lbn r1 Tank HASH(“Waste”) VolumeOfLiquid 0
slt r2 r1 1
select Work.Vent r2 1 Work.Vent
sgt r2 r1 5
select Work.Vent r2 0 Work.Vent
and r0 r0 Work.Vent
lbn r1 Tank HASH(“Waste”) Pressure 0
slt r1 r1 20000
and r0 r0 r1
sbn AcVent HASH(“Vent”) Mode 1
sbn AcVent HASH(“Vent”) On r0

move Work.Filter 1
lbns r0 Filter HASH(“O2”) 0 Quantity 0
lbns r1 Filter HASH(“O2”) 1 Quantity 0
add r0 r0 r1
div r0 r0 200
seq r0 r0 0
select Work.Filter r0 0 Work.Filter
lbns r0 Filter HASH(“N2”) 0 Quantity 0
lbns r1 Filter HASH(“N2”) 1 Quantity 0
add r0 r0 r1
div r0 r0 200
seq r0 r0 0
select Work.Filter r0 0 Work.Filter
lbns r0 Filter HASH(“CO2”) 0 Quantity 0
lbns r1 Filter HASH(“CO2”) 1 Quantity 0
add r0 r0 r1
div r0 r0 200
seq r0 r0 0
select Work.Filter r0 0 Work.Filter
lbns r0 Filter HASH(“H2”) 0 Quantity 0
lbns r1 Filter HASH(“H2”) 1 Quantity 0
add r0 r0 r1
div r0 r0 200
seq r0 r0 0
select Work.Filter r0 0 Work.Filter

lbn r0 Filter HASH(“O2”) PressureInput 0
sgt r0 r0 0
and r0 r0 Work.Filter
sbn Filter HASH(“O2”) On 1
sbn Filter HASH(“O2”) Mode r0

lbn r0 Filter HASH(“N2”) PressureInput 0
sgt r0 r0 0
and r0 r0 Work.Filter
sbn Filter HASH(“N2”) On 1
sbn Filter HASH(“N2”) Mode r0

lbn r0 Filter HASH(“CO2”) PressureInput 0
sgt r0 r0 0
and r0 r0 Work.Filter
sbn Filter HASH(“CO2”) On 1
sbn Filter HASH(“CO2”) Mode r0

lbn r0 Filter HASH(“H2”) PressureInput 0
sgt r0 r0 0
and r0 r0 Work.Filter
sbn Filter HASH(“H2”) On 1
sbn Filter HASH(“H2”) Mode r0

select r0 Work.Filter 2 4
sbn LED HASH(“Filter”) On 1
sbn LED HASH(“Filter”) Color r0
yield
j Loop

#IC-Tank
define Diode 576516101
define Tank 272136332

define Max.Druck 45000

Loop:
lbn r0 Tank HASH(“Waste”) Pressure 0
div r0 r0 Max.Druck
sub r0 1 r0
sbn Diode HASH(“Waste”) On 1
sbn Diode HASH(“Waste”) Setting r0

lbn r0 Tank HASH(“O2”) Pressure 0
div r0 r0 Max.Druck
sub r0 1 r0
sbn Diode HASH(“O2”) On 1
sbn Diode HASH(“O2”) Setting r0

lbn r0 Tank HASH(“N2”) Pressure 0
div r0 r0 Max.Druck
sub r0 1 r0
sbn Diode HASH(“N2”) On 1
sbn Diode HASH(“N2”) Setting r0

lbn r0 Tank HASH(“CO2”) Pressure 0
div r0 r0 Max.Druck
sub r0 1 r0
sbn Diode HASH(“CO2”) On 1
sbn Diode HASH(“CO2”) Setting r0

lbn r0 Tank HASH(“H2”) Pressure 0
div r0 r0 Max.Druck
sub r0 1 r0
sbn Diode HASH(“H2”) On 1
sbn Diode HASH(“H2”) Setting r0

lbn r0 Tank HASH(“H2O”) Pressure 0
div r0 r0 Max.Druck
sub r0 1 r0
sbn Diode HASH(“H2O”) On 1
sbn Diode HASH(“H2O”) Setting r0

lbn r0 Tank HASH(“Fuel”) Pressure 0
div r0 r0 Max.Druck
sub r0 1 r0
sbn Diode HASH(“Fuel”) On 1
sbn Diode HASH(“Fuel”) Setting r0
j Loop

source

Leave a Comment