68 lines
1.3 KiB
C
68 lines
1.3 KiB
C
scalarFieldArray1d C1table //AMC C1 coefficient table
|
|
(
|
|
etamax,
|
|
scalarField(NVar+1, 0)
|
|
);
|
|
|
|
scalarFieldArray2d Ttable
|
|
(
|
|
etamax,
|
|
scalarFieldArray1d
|
|
(
|
|
NVar+1,
|
|
scalarField(NstList.size(), 0)
|
|
)
|
|
);
|
|
|
|
scalarFieldArray2d Rtable
|
|
(
|
|
etamax,
|
|
scalarFieldArray1d
|
|
(
|
|
NVar+1,
|
|
scalarField(NstList.size(), 0)
|
|
)
|
|
);
|
|
|
|
scalarFieldArray3d Ytable
|
|
(
|
|
Y.size(),
|
|
scalarFieldArray2d
|
|
(
|
|
etamax,
|
|
scalarFieldArray1d
|
|
(
|
|
NVar+1,
|
|
scalarField(NstList.size(), 0)
|
|
)
|
|
)
|
|
);
|
|
|
|
Info<<"Construct C1 coefficient table"<<endl;
|
|
for(label j=1 ; j<etamax-1; j++)
|
|
{
|
|
bpdf.C1coeff(etaValue[j], varValue, C1table[j]);
|
|
}
|
|
|
|
Info<<"Construct Temp and Rgas table"<<endl;
|
|
for(label j=0 ; j<etamax ; j++)
|
|
{
|
|
const scalar mf = etaValue[j];
|
|
for(label v=0 ; v<=NVar ; v++)
|
|
{
|
|
const scalar mfVar = varValue[v]*mf*(1.0-mf);
|
|
|
|
bpdf.setParameter(mf, mfVar);
|
|
|
|
for(label n=0 ; n<NstList.size() ; n++)
|
|
{
|
|
Ttable[j][v][n] = bpdf.betaIntegrate(T_SLFM[n]);
|
|
Rtable[j][v][n] = bpdf.betaIntegrate(Rgas_SLFM[n]);
|
|
forAll(Y, yi)
|
|
{
|
|
Ytable[yi][j][v][n] = bpdf.betaIntegrate(Y_SLFM[yi][n]);
|
|
}
|
|
}
|
|
}
|
|
Info<<scalar(j+1)/etamax*100<<"%"<<endl;
|
|
}
|