Design og modellering af metanolanlæg til VEnzin-visionen Bilag

Design og modellering af metanolanlæg til VEnzin-visionen Bilag Design og modellering af metanolanlæg til VEnzin-visionen Bilag

27.07.2013 Views

methanol.for d:/DTU/Eksamensprojekt/bilag/ j_i(41)=4 j_i(42)=3 j_i(43)=4 j_i(44)=4 b_i(37)=6 b_i(38)=6 b_i(39)=6 b_i(40)=6 b_i(41)=6 b_i(42)=25 b_i(43)=25 b_i(44)=25 c_i(37)=3.9d0 c_i(38)=3.9d0 c_i(39)=3.9d0 c_i(40)=3.9d0 c_i(41)=3.9d0 c_i(42)=23.1d0 c_i(43)=23.1d0 c_i(44)=23.1d0 f_i(1)=2.49667488720d0 f_i(2)=2.90079118498d0 f_i(3)=−62.5713535015d0 f_i(4)=10.9926773951d0 f_i(5)=18.3368299465d0 f_i(6)=−16.3660043791d0 f_i(7)=−6.22323476219d0 f_i(8)=2.80353628228d0 f_i(9)=1.07780989422d0 f_i(10)=0.969656970177d0 g_i(4)=4.11978538315d0 g_i(5)=3.26499998052d0 g_i(6)=3.76946349682d0 g_i(7)=2.93149354474d0 g_i(8)=8.22555789084d0 g_i(9)=10.3162789084d0 g_i(10)=0.532489267209d0 return end subroutine sub_n(n,eq_nr) integer eq_nr double precision n(13) if (eq_nr.eq.2) then n(1)=−8.8738823d0 n(2)=2.3698322d0 n(3)=−10.852598d0 n(4)=−0.12446396d0 elseif (eq_nr.eq.3) then n(1)=−9.74320519d0 n(2)=6.27207077d1 n(3)=−(7.11162934d2) n(4)=−(1.28732378d4) n(5)=9.54090636d3 n(6)=−(8.06229292d4) n(7)=8.90380974d4 n(8)=−(2.68827787d4) n(9)=1.53392797d4 n(10)=−(1.39186128d4) n(11)=−(8.77428382d3) n(12)=9.25853159d3 n(13)=−(7.36156195d3) elseif (eq_nr.eq.4) then n(1)=1.8145364d0 n(2)=1.2703194d0 n(3)=−1.0182657d0 n(4)=2.7562720d0 n(5)=−1.8958692d0 endif return end 19/19 19−03−2007

methanol.for<br />

d:/DTU/Eksamensprojekt/bilag/<br />

j_i(41)=4<br />

j_i(42)=3<br />

j_i(43)=4<br />

j_i(44)=4<br />

b_i(37)=6<br />

b_i(38)=6<br />

b_i(39)=6<br />

b_i(40)=6<br />

b_i(41)=6<br />

b_i(42)=25<br />

b_i(43)=25<br />

b_i(44)=25<br />

c_i(37)=3.9d0<br />

c_i(38)=3.9d0<br />

c_i(39)=3.9d0<br />

c_i(40)=3.9d0<br />

c_i(41)=3.9d0<br />

c_i(42)=23.1d0<br />

c_i(43)=23.1d0<br />

c_i(44)=23.1d0<br />

f_i(1)=2.49667488720d0<br />

f_i(2)=2.90079118498d0<br />

f_i(3)=−62.5713535015d0<br />

f_i(4)=10.9926773951d0<br />

f_i(5)=18.3368299465d0<br />

f_i(6)=−16.3660043791d0<br />

f_i(7)=−6.22323476219d0<br />

f_i(8)=2.80353628228d0<br />

f_i(9)=1.07780989422d0<br />

f_i(10)=0.969656970177d0<br />

g_i(4)=4.11978538315d0<br />

g_i(5)=3.26499998052d0<br />

g_i(6)=3.76946349682d0<br />

g_i(7)=2.93149354474d0<br />

g_i(8)=8.22555789084d0<br />

g_i(9)=10.3162789084d0<br />

g_i(10)=0.532489267209d0<br />

return<br />

end<br />

subroutine sub_n(n,eq_nr)<br />

integer eq_nr<br />

double precision n(13)<br />

if (eq_nr.eq.2) then<br />

n(1)=−8.8738823d0<br />

n(2)=2.3698322d0<br />

n(3)=−10.852598d0<br />

n(4)=−0.12446396d0<br />

elseif (eq_nr.eq.3) then<br />

n(1)=−9.74320519d0<br />

n(2)=6.27207077d1<br />

n(3)=−(7.11162934d2)<br />

n(4)=−(1.28732378d4)<br />

n(5)=9.54090636d3<br />

n(6)=−(8.06229292d4)<br />

n(7)=8.90380974d4<br />

n(8)=−(2.68827787d4)<br />

n(9)=1.53392797d4<br />

n(10)=−(1.39186128d4)<br />

n(11)=−(8.77428382d3)<br />

n(12)=9.25853159d3<br />

n(13)=−(7.36156195d3)<br />

elseif (eq_nr.eq.4) then<br />

n(1)=1.8145364d0<br />

n(2)=1.2703194d0<br />

n(3)=−1.0182657d0<br />

n(4)=2.7562720d0<br />

n(5)=−1.8958692d0<br />

endif<br />

return<br />

end<br />

19/19<br />

19−03−2007

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!