代码贴上来,需要的自行复制粘贴验算或者翻译成其他的,语言是Mathematica,(*...*)是注释。
a = 0(*涩谷*); b = 0(*之友*); p = 1.5(*1.5*); v = 8(*金桶魅力价值*);
Print[绿帝桶消耗, ":", {ch1,
st1} = {270 - 3*4500/6000*v, 36}*1/1.08(*刻水晶*)+ {80 - 4500/6000*v,
8}*3/(1 + 0.6 p + 2 b + 0.02)(*空气*)+ {72, 0}]
Print[绿帝桶效率, ":",
18400./({270 - 3*4500/6000*v, 36}*1/1.08(*刻水晶*)+ {80 - 4500/6000*v,
8}*3/(1 + 0.6 p + 2 b + 0.02)(*空气*)+ {72, 0})]
Print[绿帝桶副产物, ":", 白, ":", (0.8 p + 2 b +
0.02)*3/(1.6 p + 2 b + 0.02), ";", 虹, ":", (0.16 p + 2 b +
0.02)*3/(1.6 p + 2 b + 0.02)]
Print[3, "+", 1, 消耗, ":", {ch2,
st2} = {80 - ((2.4 p + 4 a + 0.04) + 22500)/6000*v,
6}*1/(0.6 p + 3 a + 0.03)(*白桶*)+ {80 - 0.75 v,
8}*3/(1 + 0.6 p + 2 b + 0.02)(*空气*)]
Print[3, "+", "1", 效率, ":",
8000./({80 - ((2.4 p + 4 a + 0.04) + 22500)/6000*v,
6}*1/(0.6 p + 3 a + 0.03)(*白桶*)+ {80 - 0.75 v,
8}*3/(1 + 0.6 p + 2 b + 0.02)(*空气*))]
Print[3, "+", 1, 副产物, ":", 白, ":", (0.8 p + 2 b +
0.02)*3/(1.6 p + 2 b + 0.02), ";", 虹, ":", (0.16 p + 2 b +
0.02)*3/(1.6 p + 2 b + 0.02)]
Print[2, "+", 2, 消耗, ":", {ch3,
st3} = {80 - ((2.4 p + 4 a + 0.04) + 22500)/6000*v,
6}*2/(0.6 p + 3 a + 0.03)(*白桶*)+ {80 - 0.75 v,
8}*2/(1 + 0.6 p + 2 b + 0.02)(*空气*)]
Print[2, "+", 2, 效率, ":",
8000./({80 - ((2.4 p + 4 a + 0.04) + 22500)/6000*v,
6}*2/(0.6 p + 3 a + 0.03)(*白桶*)+ {80 - 0.75 v,
8}*2/(1 + 0.6 p + 2 b + 0.02)(*空气*))]
Print[2, "+", 2, 副产物, ":", 白, ":", (0.8 p + 2 b +
0.02)*2/(1.6 p + 2 b + 0.02), ";", 虹, ":", (0.16 p + 2 b +
0.02)*2/(1.6 p + 2 b + 0.02)]
Print[每个绿帝桶比相同经验值, 3, "+", 1, 少掉落的圣灵, ":", 白, ":", (18400/8000 -
1)*(0.8 p + 2 b + 0.02)*3/(1.6 p + 2 b + 0.02),
";" 虹, ":", (18400/8000 - 1)*(0.16 p + 2 b +
0.02)*3/(1.6 p + 2 b + 0.02)]
Print[在此情形下绿帝桶与, 3, "+", 1, 的魅体差, ":", {ch1, st1} -
18400/8000*{ch2, st2}]
Print[每个绿帝桶比相同经验值, 2, "+", 2, 少掉落的圣灵, ":", 白, ":", (18400/8000 -
1)*(0.8 p + 2 b +
0.02)*2/(1.6 p + 2 b + 0.02), ";", 虹, ":", (18400/8000 -
1)*(0.16 p + 2 b + 0.02)*2/(1.6 p + 2 b + 0.02)]
Print[在此情形下绿帝桶与, 3, "+", 1, 的魅体差, ":", {ch1, st1} -
18400/8000*{ch3, st3}]