31 #include "TAjusteTransCalorCil.h"
36 TAjusteTransCalorCil::TAjusteTransCalorCil() {
43 TAjusteTransCalorCil::~TAjusteTransCalorCil() {
47 if(FCadmision != NULL)
57 void TAjusteTransCalorCil::CalculaTCC(
double TiempoActual,
double Regimen) {
60 double deltaT = 0., t = 0.;
61 jmax = FCiclo[FNumeroTramos - 1];
63 if(TiempoActual < FCiclo[1] * 120 / Regimen) {
64 FCaqAdm = FCadmision[0];
65 FCaqEsc = FCescape[0];
69 while(TiempoActual > FCiclo[j] * 120 / Regimen && j < jmax) {
73 FCaqAdm = FCadmision[jmax];
74 FCaqEsc = FCescape[jmax];
76 deltaT = (FCiclo[j] - FCiclo[j - 1]) * 120 / Regimen;
77 t = TiempoActual - FCiclo[j - 1] * 120 / Regimen;
78 FCaqAdm = xit_(FCadmision[j - 1], FCadmision[j], deltaT, t);
79 FCaqEsc = xit_(FCescape[j - 1], FCescape[j], deltaT, t);
87 }
catch(exception &N) {
88 std::cout <<
"ERROR: TTransCalorCil::CalculaTCC (DLL)" << std::endl;
89 std::cout <<
"Tipo de error: " << N.what() << std::endl;
97 void TAjusteTransCalorCil::IniciaTCC(
int NumeroTramos,
int *Ciclo,
double *CoefTCAdm,
double *CoefTCEsc) {
99 FCiclo =
new int[NumeroTramos];
100 FCadmision =
new double[NumeroTramos];
101 FCescape =
new double[NumeroTramos];
102 FNumeroTramos = NumeroTramos;
103 for(
int i = 0; i < NumeroTramos; i++) {
104 FCiclo[i] = Ciclo[i];
105 FCadmision[i] = CoefTCAdm[i];
106 FCescape[i] = CoefTCEsc[i];
109 FCaqAdm = FCadmision[0];
110 FCaqEsc = FCescape[0];
112 }
catch(exception &N) {
113 std::cout <<
"ERROR: TTransCalorCil::CalculaCD (DLL)" << std::endl;
114 std::cout <<
"Tipo de error: " << N.what() << std::endl;
122 double TAjusteTransCalorCil::xit_(
double vizq,
double vder,
double axid,
double xif) {
124 double xx = 0., yy = 0.;
129 yy = xx / axid * xif;
132 printf(
"ERROR: valores entrada xit\n");
136 }
catch(exception &N) {
137 std::cout <<
"ERROR: TAjusteTransCalorCil::xit_" << std::endl;
138 std::cout <<
"Tipo de error: " << N.what() << std::endl;
146 #pragma package(smart_init)