Page 481 - Advanced Mine Ventilation

450 Appendix C: Ventilation Network Analyzer in Cþþ With Input and Output

0;
dhf ¼
if(nfbpf-i >¼ 0)
{
n ¼ nd[im];
c[im][nþ1]*q[i];
fq[im] ¼
if(n-1 > 0)
{
int j ¼ n;
for(int ij¼2; ij<¼n; ijþþ)
{
fq[im] ¼ (fq[im] þ c[im][j]) * q[i];
dhf ¼ (dhf þ float(j) * c[im][jþ1]) * q[i];
j ¼ j-1;
}
}
fq[im] ¼ fq[im] þ c[im][1];
sumh ¼ sumh - fq[im];
dhf ¼ dhf þ c[im][2];
}
for(int j¼js; j<¼je; jþþ)
{
k ¼ abs(na[j]);
r[k] * fabs(q[k]);
dh ¼
h ¼ dh * q[k];
dh;
sumdh ¼ sumdh þ
sumhþh) : (sumh ¼ sumh-h);
(na[j] >¼ 0) ? (sumh ¼
}
sumdh - dhf;
sumdh ¼ sumdh þ
if(fabs(sumdh) - 1e-020 > 0)
{
d ¼ -sumh/sumdh;
for(int j¼js; j<¼je; jþþ)
{

k ¼ abs(na[j]);
(na[j] >¼ 0) ? (q[k] ¼ q[k] þ d) : (q[k] ¼ q[k] - d);
}
sumd ¼ sumdþfabs(d);
if(fabs(d) - e > 0)
l ¼ 1;
}