/* DECLARACAO DE VARIAVEIS */
char nome_arquivo [20], /* VARIAVEL PARA NOME DO ARQUIVO */
FILE *fichcom; /* VARIAVEL ESPECIFICA DE ARQUIVOS */
/* DECLARACAO DE PROTOTIPO */
void grava_arquivo();
/* CORPO PRINCIPAL DO PROGRAMA */
grava_arquivo();
/* DEFINE FUNCAO AUXILIAR */
void grava_arquivo() /* GRAVA ARQUIVO EM DISCO */
{
getch(); /* ESPERA QUE UMA TECLA SEJA ACCIONADA */
pf("\nCRIACAO DE ARQUIVO:");
pf("\nSe o nome ja existe, perdera dados anteriores!");
pf("\nNome arquivo [d:nomarq.ext] ou para evitar criacao ->");
gets (nome_arquivo);
fichcom = fopen (nome_arquivo, "w");
fprintf (fichcom, "%s", "-PROPRIEDADES DO PRODUCTO-");
fprintf (fichcom, "\n %s %f", " Brix : ",Bx);
fprintf (fichcom, "\n %s %f", " Temp. de entrada : ",T1);
fprintf (fichcom, "\n %s %f", " Temp. de saida : ",T2);
fprintf (fichcom, "\n %s %f", " Vazao massica : ",mj);
fprintf (fichcom, "\n %s %f", " Densidade : ",dj);
fprintf (fichcom, "\n %s %f", " Conduct. termica : ",kj);
fprintf (fichcom, "\n %s %f", " Viscosidade : ",visj);
fprintf (fichcom, "\n %s %f", " Fat.de incrust. : ",rsj);
fprintf (fichcom, "\n %s", "-PROPRIEDADES FLUIDO CARCACA-");
fprintf (fichcom, "\n %s %f", " Temp. de entrada : ",t1);
fprintf (fichcom, "\n %s %f", " Vazao masica : ",ma);
fprintf (fichcom, "\n %s %f", " Calor especifico : ",Ca);
fprintf (fichcom, "\n %s %f", " Densidade : ",da);
fprintf (fichcom, "\n %s %f", " Conduct. termica : ",ka);
fprintf (fichcom, "\n %s %f", " Viscosidade : ",visa);
fprintf (fichcom, "\n %s %f", " Fat.de incrust. : ",rsa);
fprintf (fichcom, "\n %s", "-CARACTERISTICAS CARCACA-");
fprintf (fichcom, "\n %s %f", " Diametro interno : ",Dic);
fprintf (fichcom, "\n %s %f", " Fator de friccao : ",fc);
fprintf (fichcom, "\n %s %f", " Numero chicanas : ",Nc);
fprintf (fichcom, "\n %s %f", " Espesor chicanas : ",ech);
fprintf (fichcom, "\n %s %f", " Cond. termica : ",kt);
fprintf (fichcom, "\n %s", "-CARACTERISTICAS TUBOS-");
fprintf (fichcom, "\n %s %f", " Diametro equiv. : ",Deq);
fprintf (fichcom, "\n %s %f", " Diametro interno : ",Di);
fprintf (fichcom, "\n %s %f", " Diametro externo : ",De);
fprintf (fichcom, "\n %s %f", " Comprimento : ",L);
fprintf (fichcom, "\n %s %f", " Numero total : ",Nt);
fprintf (fichcom, "\n %s %f", " Passo entre tubos: ",Pt);
fprintf (fichcom, "\n %s %f", " Passes do prod. : ",Np);
fprintf (fichcom, "\n %s", "-CONDICOES NA PAREDE-");
fprintf (fichcom, "\n %s %f", " Viscosidade prod : ",viswj);
fprintf (fichcom, "\n %s %f", " Viscosidade flui : ",viswa);
fprintf (fichcom, "\n %s", "");
fprintf (fichcom, "\n %s", " * RESULTADOS* ");
fprintf (fichcom, "\n %s %f", " Calor especifico do produto : ",Cj);
fprintf (fichcom, "\n %s %f", " Temp.saida fluido da carcaca : ",t2);
fprintf (fichcom, "\n %s %f", " LMTD : ",LMTD);
fprintf (fichcom, "\n %s %f", " Relacao escoamento termico : ",R);
fprintf (fichcom, "\n %s %f", " Efectividade termica : ",P);
fprintf (fichcom, "\n %s %f", " Fator correcao termica : ",Fct);
fprintf (fichcom, "\n %s %f", " Area fluxo fluido resfriador : ",Ac);
fprintf (fichcom, "\n %s %f", " No Reynolds do fluido carcaca: ",Rea);
fprintf (fichcom, "\n %s %f", " No Reynolds do producto : ",Rej);
fprintf (fichcom, "\n %s %f", " No Prandt do fluido carcaca : ",Pra);
fprintf (fichcom, "\n %s %f", " No Prandt do producto : ",Prj);
fprintf (fichcom, "\n %s %f", " Hi : ",Hi);
fprintf (fichcom, "\n %s %f", " Ho : ",H0);
fprintf (fichcom, "\n %s %f", " Area de transferencia : ",At);
fprintf (fichcom, "\n %s %f", " Coef. global de transferencia: ",U);
fprintf (fichcom, "\n %s %f", " Calor demandado : ",q);
fprintf (fichcom, "\n %s %f", " Calor transferivel : ",Q);
fprintf (fichcom, "\n %s %f", " Perda carga total carcaca : ",deltaPC);
fclose (fichcom);
}
|