cyberpresidentvanellope/Polaris
1
0
Fork 0
mirror of https://github.com/PolarisSS13/Polaris.git synced 2025-12-25 17:42:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Generalizes pumping and filtering

Browse Source 
So that people can pump and filter gasses without worrying about the
thermodynamics too much.
This commit is contained in:
mwerezak
2014-07-26 15:11:29 -04:00
parent 5f9f6e2054
commit 293855c48e
4 changed files with 120 additions and 124 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
code/ATMOSPHERICS/components/binary_devices/pump.dm
View File

@@ -30,7 +30,6 @@ Thus, the two variables affect pump operation are set in New():
active_power_usage = 7500 //This also doubles as a measure of how powerful the pump is, in Watts. 7500 W ~ 10 HP
var/last_power_draw = 0 //for UI
var/last_flow_rate = 0 //for UI
var/max_pressure_setting = 15000 //kPa
var/frequency = 0
@@ -69,7 +68,19 @@ Thus, the two variables affect pump operation are set in New():
var/power_draw = -1
if (air1.temperature > 0 || air2.temperature > 0)
power_draw = pump_gas(air1, air2)
var/pressure_delta = target_pressure - air2.return_pressure()
if(pressure_delta > 0.01)
/* TODO Uncomment this once we have a good way to get the volume of a pipe network.
//Figure out how much gas to transfer to meet the target pressure.
var/air_temperature = (sink.temperature > 0)? sink.temperature : source.temperature
var/output_volume = sink.volume * sink.group_multiplier
//Return the number of moles that would have to be transfered to bring sink to the target pressure
var/transfer_moles = pressure_delta*output_volume/(air_temperature * R_IDEAL_GAS_EQUATION)
*/
power_draw = pump_gas(air1, air2, air1.total_moles, active_power_usage)
if(network1)
network1.update = 1
@@ -90,44 +101,6 @@ Thus, the two variables affect pump operation are set in New():
return 1
//pumps gas from source to sink, and returns the power used, or -1 if no pumping was done
/obj/machinery/atmospherics/binary/pump/proc/pump_gas(var/datum/gas_mixture/source, var/datum/gas_mixture/sink)
var/pressure_delta = target_pressure - sink.return_pressure()
if(pressure_delta < 0.01 || source.total_moles < MINUMUM_MOLES_TO_PUMP)
return -1
var/transfer_moles = source.total_moles
/* TODO Uncomment this once we have a good way to get the volume of a pipe network.
//Figure out how much gas to transfer to meet the target pressure.
var/air_temperature = (sink.temperature > 0)? sink.temperature : source.temperature
var/output_volume = sink.volume * sink.group_multiplier
//Return the number of moles that would have to be transfered to bring sink to the target pressure
var/transfer_moles = pressure_delta*output_volume/(air_temperature * R_IDEAL_GAS_EQUATION)
*/
//Calculate the amount of energy required and limit transfer_moles based on available power
var/specific_power = calculate_specific_power(source, sink)/ATMOS_PUMP_EFFICIENCY //this has to be calculated before we modify any gas mixtures
if (specific_power > 0)
transfer_moles = min(transfer_moles, active_power_usage / specific_power)
if (transfer_moles < MINUMUM_MOLES_TO_PUMP)
return -1
var/power_draw = specific_power*transfer_moles
var/datum/gas_mixture/removed = source.remove(transfer_moles)
last_flow_rate = (removed.total_moles/(removed.total_moles + source.total_moles))*source.volume
if (power_draw > 0)
removed.add_thermal_energy(power_draw) //1st law - energy is conserved
sink.merge(removed)
return power_draw
//Radio remote control
/obj/machinery/atmospherics/binary/pump/proc/set_frequency(new_frequency)