这个代码是高级熔炉的工业化生产代码,玩家只需要手动录入合金的温度和压力即可进入初加工模式,直接在代码中改,安装一台电脑即可,因为我觉得这样很带感,打开开关指示灯后会将熔炉保持在400K以上与少量气体熔矿状态下,此时可无限投入矿石,然后打开正式熔炼的指示灯,会自动配置指定压力和温度的气体进入熔炉,产出锭后,会自动进入排气模式，将熔炉清空,然后熔炉和指示灯关机。
熔炉请一定要封起来
在本代码中,核心的思路如下:
【资料图】
首先因为不同温度、压力、质量的气体经过泵输出时,质量是随时变化的，所以要精确控制
气体输出，先要计算出气体的各项参数之间的关系。
感谢先贤们的伟大的工作，理想气体状态方程完美满足了我的需求
PV=nRT
公式中：p为压强（Pa），V为气体体积(m³)，T为温度(开尔文度K)，n为摩尔气体质量(mol)，R为固定的值,代表摩尔气体常数8.314J/(mol.K)。
我们首先要建立标准的度量衡,建立泵输出1mol质量时与流速的关系
V=1*8.314*温度/压力
代码如下
lbn 热罐温度 隔热罐 HASH("热气罐") Temperature 0
lbn 热罐压力 隔热罐 HASH("热气罐") Pressure 0
mul 热罐压力 热罐压力 1000 #Kpa转换成pa
mul r0 热罐温度 8.314
div 热泵标准 r0 热罐压力
mul 热泵标准 热泵标准 1000 #立方米转换成L
在得到标准的1mol质量输出与流速的关系后,接下来建立不同泵之间的协调关系
再次感谢先贤们的伟大的工作，我们在这里可以使用热平衡公式
c*m*(t1-t)=c*m*(t-t2)
c为比热，m为质量
我们可以经过以下变形得到
热质量*热比热*(热温度-设定温度)=冷质量*冷比热*(设定温度-冷温度)
热质量/冷质量=冷比热*(设定温度-冷温度)/热比热*(热温度-设定温度)
热质量+冷质量=总质量
热质量/总质量=热质量比例
冷质量/总质量=冷质量比例
热质量比例X热泵标准1摩尔输出量的阀门值=热阀门设置量比例
热阀门设置量比例X放大系数(不要设的太高,泵流速超过100比例就不准了)
冷质量比例X冷泵标准1摩尔输出量的阀门值=冷阀门设置量比例
冷阀门设置量比例X放大系数=冷泵最终阀门值
变形后的公式为我们解释了我们只需要按指定的比例去配置就能得到想要的温度
代码如下：
lbn 热罐摩尔 隔热罐 HASH("热气罐") TotalMoles 0
lbn 冷罐摩尔 隔热罐 HASH("冷气罐") TotalMoles 0
sub r0 热罐温度 设定温度
mul r0 r0 热罐比热 #平均比热代码长且枯燥,放在最后完整代码中
sub r1 设定温度 冷罐温度
mul r1 r1 冷罐比热
add r2 r1 r0
div r1 r1 r2
mul 热泵标准 热泵标准 r1
mul 热泵标准 热泵标准 20
div r0 r0 r2
mul 冷泵标准 冷泵标准 r0
mul 冷泵标准 冷泵标准 20
sbn 容积泵 HASH("热气泵") Setting 热泵标准
sbn 容积泵 HASH("冷气泵") Setting 冷泵标准
最后,就是一点点的游戏小技巧啦!
气体在隔热管道中与外界几乎不存在换热,所以我们在隔热管道中配置好气体后,通过强大的涡轮泵(1000L流速,10格管道1秒抽光)将气体抽进熔炉前的一格,然后熔炉的最大进气是100,也就是一截管道的气体量,就会瞬间将所有气体抽进熔炉,这样可以大幅降低气体因为在熔炉中和外界换热带来的温度与压力变化,本代码使用了这个小技巧。
最后附上完整代码，有带汉化的和直接能用的两种：
define 隔热罐 272136332
define 容积泵 -321403609
define 管道分析仪 435685051
define 炉子 545937711
define 涡轮泵 1310794736
define LED 1944485013
define 设定温度 1000
define 设定压力 1000
alias 热罐温度 r15
alias 热罐压力 r14
alias 冷罐温度 r13
alias 冷罐压力 r12
alias 热泵标准 r11
alias 冷泵标准 r10
alias 热罐比热 r9
alias 冷罐比热 r8
alias 热罐摩尔 r7
alias 冷罐摩尔 r6
alias 管道摩尔 r5
alias 设定摩尔 r4
初加工程序:
yield
sbn LED HASH("初加工LED") Color 6
lbn r0 LED HASH("初加工LED") On 0
sb 炉子 On r0
select r0 r0 100 0
sb 炉子 SettingInput r0
lb r0 炉子 Temperature 0
slt r0 r0 400
sbn 容积泵 HASH("大气泵") On r0
lb r0 炉子 TotalMoles 0
sgt r0 r0 50
select r0 r0 100 0
sb 炉子 SettingOutput r0
lbn r0 LED HASH("精加工LED") On 0
beqz r0 初加工程序
sbn 容积泵 HASH("大气泵") On 0
sb 炉子 SettingOutput 0
设定摩尔计算器:
yield
mul r0 设定压力 1000
mul r1 设定温度 8.314
div 设定摩尔 r0 r1
一摩尔输出标准化程序:
lbn 热罐温度 隔热罐 HASH("热气罐") Temperature 0
lbn 热罐压力 隔热罐 HASH("热气罐") Pressure 0
mul 热罐压力 热罐压力 1000 #Kpa转换成pa
mul r0 热罐温度 8.314
div 热泵标准 r0 热罐压力
mul 热泵标准 热泵标准 1000 #立方米转换成L
lbn 冷罐温度 隔热罐 HASH("冷气罐") Temperature 0
lbn 冷罐压力 隔热罐 HASH("冷气罐") Pressure 0
mul 冷罐压力 冷罐压力 1000 #Kpa转换成pa
mul r0 冷罐温度 8.314
div 冷泵标准 r0 冷罐压力
mul 冷泵标准 冷泵标准 1000 #立方米转换成L
move r1 9
move r2 HASH("热气罐")
混合温度计算器程序:
lbn r0 隔热罐 r2 RatioOxygen 0
mul r0 r0 21.1
lbn rr1 隔热罐 r2 RatioVolatiles 0
mul rr1 rr1 20.4
add rr1 r0 rr1
lbn r0 隔热罐 r2 RatioNitrousOxide 0
mul r0 r0 23
add rr1 r0 rr1
lbn r0 隔热罐 r2 RatioCarbonDioxide 0
mul r0 r0 28.2
add rr1 r0 rr1
lbn r0 隔热罐 r2 RatioPollutant 0
mul r0 r0 24.8
add rr1 r0 rr1
lbn r0 隔热罐 r2 RatioNitrogen 0
mul r0 r0 20.6
add rr1 r0 rr1 #平均比热
sub r1 r1 1 #切换热冷罐子
move r2 HASH("冷气罐")
bgt r1 7 混合温度计算器程序
lbn 热罐摩尔 隔热罐 HASH("热气罐") TotalMoles 0
lbn 冷罐摩尔 隔热罐 HASH("冷气罐") TotalMoles 0
sub r0 热罐温度 设定温度
mul r0 r0 热罐比热 #单位摩尔升温耗能
sub r1 设定温度 冷罐温度
mul r1 r1 冷罐比热 #单位摩尔降温耗能
add r2 r1 r0
div r1 r1 r2
mul 热泵标准 热泵标准 r1
mul 热泵标准 热泵标准 20
div r0 r0 r2
mul 冷泵标准 冷泵标准 r0
mul 冷泵标准 冷泵标准 20
sbn 容积泵 HASH("热气泵") Setting 热泵标准
sbn 容积泵 HASH("冷气泵") Setting 冷泵标准
lbn 管道摩尔 管道分析仪 HASH("分析仪") TotalMoles 0
slt r0 管道摩尔 设定摩尔
sbn 容积泵 HASH("热气泵") On r0
sbn 容积泵 HASH("冷气泵") On r0
blt 管道摩尔 设定摩尔 一摩尔输出标准化程序
sbn 涡轮泵 HASH("WL.beng") On 1
sleep 1
sbn 涡轮泵 HASH("WL.beng") On 0
拉杆程序:
yield
sbn LED HASH("初加工LED") Color 2
lb r0 炉子 RecipeHash 0
snez r0 r0
sb 炉子 Open r0
bnez r0 拉杆程序
排气程序:
yield
sbn LED HASH("初加工LED") Color 5
lb r0 炉子 Pressure 0
sgt r0 r0 0 #排气到0为止
select r0 r0 100 0
sb 炉子 SettingOutput r0
bnez r0 排气程序
sbn LED HASH("初加工LED") On 0
sbn LED HASH("精加工LED") On 0
sb 炉子 SettingInput 0
j 初加工程序
所有HASH("cjg.LED") 内的cjg.LED这里用标签机改成和代码一样,或者你将代码改成和你的设备名一样
define LED 1944485013
sbn LED HASH("cjg.LED") Color 2
这两行代码的翻译是将LED灯的hash命名为LED
批量控制所有LED中用标签机改名叫cjg.LED的设备,颜色改成2号色
没有用标签机改名的不会进行操作
define guanzi 272136332
define beng -321403609
define fenxiyi 435685051
define luzi 545937711
define W.beng 1310794736
define LED 1944485013
define SD.T 910
define SD.P 1000
alias re.T r15
alias re.P r14
alias leng.T r13
alias leng.P r12
alias re.1Mole r11
alias leng.1Mole r10
alias re.C r9
alias leng.C r8
alias re.M r7
alias leng.M r6
alias g.M r5
alias SD.M r4
chujiagong:
yield
sbn LED HASH("cjg.LED") Color 6
lbn r0 LED HASH("cjg.LED") On 0
sb luzi On r0
select r0 r0 100 0
sb luzi SettingInput r0
lb r0 luzi Temperature 0
slt r0 r0 400
sbn beng HASH("daqi.beng") On r0
lb r0 luzi TotalMoles 0
sgt r0 r0 50
select r0 r0 100 0
sb luzi SettingOutput r0
lbn r0 LED HASH("jjg.led") On 0
beqz r0 chujiagong
sbn beng HASH("daqi.beng") On 0
sb luzi SettingOutput 0
SDjsq:
yield
mul r0 SD.P 1000
mul r1 SD.T 8.314
div SD.M r0 r1
beng.jisuanqi:
lbn re.T guanzi HASH("re.guan") Temperature 0
lbn re.P guanzi HASH("re.guan") Pressure 0
mul re.P re.P 1000 #Kpapa
mul r0 re.T 8.314
div re.1Mole r0 re.P
mul re.1Mole re.1Mole 1000 #L
lbn leng.T guanzi HASH("leng.guan") Temperature 0
lbn leng.P guanzi HASH("leng.guan") Pressure 0
mul leng.P leng.P 1000 #Kpapa
mul r0 leng.T 8.314
div leng.1Mole r0 leng.P
mul leng.1Mole leng.1Mole 1000 #L
move r1 9
move r2 HASH("re.guan")
HH.jisuanqi:
lbn r0 guanzi r2 RatioOxygen 0
mul r0 r0 21.1
lbn rr1 guanzi r2 RatioVolatiles 0
mul rr1 rr1 20.4
add rr1 r0 rr1
lbn r0 guanzi r2 RatioNitrousOxide 0
mul r0 r0 23
add rr1 r0 rr1
lbn r0 guanzi r2 RatioCarbonDioxide 0
mul r0 r0 28.2
add rr1 r0 rr1
lbn r0 guanzi r2 RatioPollutant 0
mul r0 r0 24.8
add rr1 r0 rr1
lbn r0 guanzi r2 RatioNitrogen 0
mul r0 r0 20.6
add rr1 r0 rr1 #
sub r1 r1 1 #
move r2 HASH("leng.guan")
bgt r1 7 HH.jisuanqi
lbn re.M guanzi HASH("re.guan") TotalMoles 0
lbn leng.M guanzi HASH("leng.guan") TotalMoles 0
sub r0 re.T SD.T
mul r0 r0 re.C #
sub r1 SD.T leng.T
mul r1 r1 leng.C #
add r2 r1 r0
div r1 r1 r2
mul re.1Mole re.1Mole r1
mul re.1Mole re.1Mole 20
div r0 r0 r2
mul leng.1Mole leng.1Mole r0
mul leng.1Mole leng.1Mole 20
sbn beng HASH("re.beng") Setting re.1Mole
sbn beng HASH("leng.beng") Setting leng.1Mole
lbn g.M fenxiyi HASH("g.fenxiyi") TotalMoles 0
slt r0 g.M SD.M
sbn beng HASH("re.beng") On r0
sbn beng HASH("leng.beng") On r0
blt g.M SD.M beng.jisuanqi
sbn W.beng HASH("WL.beng") On 1
sleep 1
sbn W.beng HASH("WL.beng") On 0
lagang:
yield
sbn LED HASH("cjg.LED") Color 2
lb r0 luzi RecipeHash 0
snez r0 r0
sb luzi Open r0
bnez r0 lagang
paiqi:
yield
sbn LED HASH("cjg.LED") Color 5
lb r0 luzi Pressure 0
sgt r0 r0 0 #0
select r0 r0 100 0
sb luzi SettingOutput r0
bnez r0 paiqi
sbn LED HASH("cjg.LED") On 0
sbn LED HASH("jjg.led") On 0
sb luzi SettingInput 0
j chujiagong
