C++ Builder和Matlab混合编程

#include "matlib.h" #pragma hdrstop #include "boil.h" Mm boil(Mm in) { begin_scope in.setname("in"); dMm(Out); dMm(Car); dMm(Har); dMm(Sar); dMm(Oar); dMm(Mt); dMm(Nar); dMm(Aar); dMm(Clz); dMm(Cfh); dMm(Tsf); \ dMm(Tpy); dMm(Lo); dMm(Lco); dMm(D0); dMm(Db); dMm(Qnet); dMm(Qr); dMm(alz); dMm(afh); dMm(CC); dMm(Cr); dMm( \ Vgk0); dMm(Vgy0); dMm(beta_); dMm(RO2); dMm(cpCO2); dMm(cpN2); dMm(cpy); dMm(apy); dMm(Vgy); dMm(Qgy); dMm(Vs) \ ; dMm(Qs); dMm(Q2); dMm(q2); dMm(q4); dMm(Vgy1); dMm(q3); dMm(q5e); dMm(q5); dMm(clz); dMm(q6); #line 1 "c:/users/dell/documents/matlab/boil.m" call_stack_begin; #line 1 "c:/users/dell/documents/matlab/boil.m" // nargin, nargout entry code double old_nargin=nargin_val; if (!nargin_set) nargin_val=1.0; nargin_set=0; double old_nargout=nargout_val; if (!nargout_set) nargout_val=1.0; nargout_set=0; // translated code #line 2 "c:/users/dell/documents/matlab/boil.m" _ Car = in(1.0); #line 2 "c:/users/dell/documents/matlab/boil.m" //收到基碳 #line 3 "c:/users/dell/documents/matlab/boil.m" _ Har = in(2.0); #line 3 "c:/users/dell/documents/matlab/boil.m" //收到基氢 #line 4 "c:/users/dell/documents/matlab/boil.m" _ Sar = in(3.0); #line 4 "c:/users/dell/documents/matlab/boil.m" //收到基硫 #line 5 "c:/users/dell/documents/matlab/boil.m" _ Oar = in(4.0); #line 5 "c:/users/dell/documents/matlab/boil.m" //收到基氧 #line 6 "c:/users/dell/documents/matlab/boil.m" _ Mt = in(5.0); #line 6 "c:/users/dell/documents/matlab/boil.m" //收到基水 #line 7 "c:/users/dell/documents/matlab/boil.m" _ Nar = in(6.0); #line 7 "c:/users/dell/documents/matlab/boil.m" //收到基氮 #line 8 "c:/users/dell/documents/matlab/boil.m" _ Aar = in(7.0); #line 8 "c:/users/dell/documents/matlab/boil.m" //灰分质量含量 #line 9 "c:/users/dell/documents/matlab/boil.m" _ Clz = in(8.0); #line 9 "c:/users/dell/documents/matlab/boil.m" //灰渣含碳量 #line 10 "c:/users/dell/documents/matlab/boil.m" _ Cfh = in(9.0); #line 10 "c:/users/dell/documents/matlab/boil.m" //飞灰含碳量 #line 11 "c:/users/dell/documents/matlab/boil.m" _ Tsf = in(10.0); #line 11 "c:/users/dell/documents/matlab/boil.m" //送风温度 #line 12 "c:/users/dell/documents/matlab/boil.m" _ Tpy = in(11.0); #line 12 "c:/users/dell/documents/matlab/boil.m" //排烟温度 #line 13 "c:/users/dell/documents/matlab/boil.m" _ Lo = in(12.0); #line 13 "c:/users/dell/documents/matlab/boil.m" //炉膛出口氧量 #line 14 "c:/users/dell/documents/matlab/boil.m" _ Lco = in(13.0); #line 14 "c:/users/dell/documents/matlab/boil.m" //炉膛出口CO量 #line 15 "c:/users/dell/documents/matlab/boil.m" _ D0 = in(14.0); #line 15 "c:/users/dell/documents/matlab/boil.m" //锅炉蒸发量 #line 16 "c:/users/dell/documents/matlab/boil.m" _ Db = in(15.0); #line 16 "c:/users/dell/documents/matlab/boil.m" //锅炉效率实验时的实际蒸发量，t/h #line 17 "c:/users/dell/documents/matlab/boil.m" _ Qnet = 338.71*Car+1048.48*Har+108.72*(Sar-Oar)-46.0*Mt; #line 17 "c:/users/dell/documents/matlab/boil.m" //收到基低位发热量 #line 18 "c:/users/dell/documents/matlab/boil.m" //Qxr=(0.0113*(100-Mt)+0.041868*Mt)*(Tpy-Tsf); #line 19 "c:/users/dell/documents/matlab/boil.m" _ Qr = Qnet; #line 20 "c:/users/dell/documents/matlab/boil.m" //计算排烟损失 #line 21 "c:/users/dell/documents/matlab/boil.m" //以固态排渣火室炉，钢球磨或中速磨煤机 #line 22 "c:/users/dell/documents/matlab/boil.m" _ alz = 0.1; #line 22 "c:/users/dell/documents/matlab/boil.m" //炉渣中灰量占燃煤总质量的质量含量百分率 #line 23 "c:/users/dell/documents/matlab/boil.m" _ afh = 0.9; #line 23 "c:/users/dell/documents/matlab/boil.m" //飞灰中灰量占燃煤总质量的质量含量百分率 #line 24 "c:/users/dell/documents/matlab/boil.m" _ CC = alz*Clz/(100.0-Clz)+afh*Cfh/(100.0-Cfh); #line 25 "c:/users/dell/documents/matlab/boil.m" _ Cr = Car-Aar*CC/100.0; #line 26 "c:/users/dell/documents/matlab/boil.m" _ Vgk0 = 0.089*(Cr+0.375*Sar)+0.265*Har-0.0333*Oar; #line 27 "c:/users/dell/documents/matlab/boil.m" _ Vgy0 = 0.01866*(Cr+0.375*Sar)+0.79*Vgk0+0.008*Nar; #line 28 "c:/users/dell/documents/matlab/boil.m" _ beta_ = 2.35*(Har-0.126*Oar+0.038*Nar)/(Car+0.375*Sar); #line 28 "c:/users/dell/documents/matlab/boil.m" //燃料特性系数 #line 29 "c:/users/dell/documents/matlab/boil.m" _ RO2 = (21.0-Lo)/(1.0+beta_); #line 30 "c:/users/dell/documents/matlab/boil.m" _ cpCO2 = 1.59981+1.07732*mpower(10.0,(-3.0))*Tpy-7.70675*mpower(10.0,(-7.0))*mpower(Tpy,2.0)+3.43519*mpower( \ 10.0,(-10.0))*mpower(Tpy,3.0); #line 31 "c:/users/dell/documents/matlab/boil.m" _ cpN2 = 1.29465+7.31852*mpower(10.0,(-6.0))*Tpy+1.79523*mpower(10.0,(-7.0))*mpower(Tpy,2.0)-6.3889*mpower(10.0, \ (-10.0))*mpower(Tpy,3.0); #line 32 "c:/users/dell/documents/matlab/boil.m" _ cpy = cpCO2*RO2/100.0+cpN2*(100.0-RO2)/100.0; #line 33 "c:/users/dell/documents/matlab/boil.m" _ apy = 21.0/(21.0-Lo)+0.2; #line 33 "c:/users/dell/documents/matlab/boil.m" //实际排烟过量空气系数 #line 34 "c:/users/dell/documents/matlab/boil.m" _ Vgy = Vgy0+(apy-1.0)*Vgk0; #line 34 "c:/users/dell/documents/matlab/boil.m" //燃料燃烧生成的实际干烟气体积 #line 35 "c:/users/dell/documents/matlab/boil.m" _ Qgy = Vgy*cpy*(Tpy-Tsf); #line 35 "c:/users/dell/documents/matlab/boil.m" //干烟气带走的热量 #line 36 "c:/users/dell/documents/matlab/boil.m" _ Vs = 1.244*((9.0*Har+Mt)/100.0+0.01293*apy*Vgk0); #line 37 "c:/users/dell/documents/matlab/boil.m" _ Qs = 1.51*Vs*(Tpy-Tsf); #line 38 "c:/users/dell/documents/matlab/boil.m" _ Q2 = Qgy+Qs; #line 39 "c:/users/dell/documents/matlab/boil.m" _ q2 = Q2/Qr; #line 40 "c:/users/dell/documents/matlab/boil.m" //计算固体未完全燃烧损失 #line 41 "c:/users/dell/documents/matlab/boil.m" _ q4 = 33727.0*Aar*CC/Qr/100.0; #line 42 "c:/users/dell/documents/matlab/boil.m" //计算化学不完全燃烧热损失 #line 43 "c:/users/dell/documents/matlab/boil.m" _ Vgy1 = (1.866*Car+0.7*Sar)/(RO2+Lco); #line 44 "c:/users/dell/documents/matlab/boil.m" _ q3 = 126.36*Vgy1*Lco*(1.0-q4/100.0)/Qr; #line 45 "c:/users/dell/documents/matlab/boil.m" _ q5e = 5.82*(mpower((D0),(-0.38)))/100.0; #line 45 "c:/users/dell/documents/matlab/boil.m" //额定负荷下的锅炉散热损失 #line 46 "c:/users/dell/documents/matlab/boil.m" _ q5 = q5e*D0/Db; #line 46 "c:/users/dell/documents/matlab/boil.m" //散热损失 #line 47 "c:/users/dell/documents/matlab/boil.m" //灰渣物理热损失 #line 48 "c:/users/dell/documents/matlab/boil.m" _ clz = 0.71+0.000502*800.0; display(clz); #line 49 "c:/users/dell/documents/matlab/boil.m" _ q6 = Aar*alz*(800.0-Tsf)*clz/((100.0-Clz)*Qr); #line 50 "c:/users/dell/documents/matlab/boil.m" _ Out(1.0) = q2; #line 51 "c:/users/dell/documents/matlab/boil.m" _ Out(2.0) = q3; #line 52 "c:/users/dell/documents/matlab/boil.m" _ Out(3.0) = q4; #line 53 "c:/users/dell/documents/matlab/boil.m" _ Out(4.0) = q5; #line 54 "c:/users/dell/documents/matlab/boil.m" _ Out(5.0) = q6; #line 55 "c:/users/dell/documents/matlab/boil.m" _ Out(6.0) = 1.0-q2-q3-q4-q5-q6; #line 55 "c:/users/dell/documents/matlab/boil.m" //反平衡求锅炉效率 call_stack_end; // nargin, nargout exit code nargin_val=old_nargin; nargout_val=old_nargout; // function exit code in.setname(NULL); return Out; end_scope }