Tema: Iniciando TRNSYS

Hola, soy estudiante de proyecto final de carrera y en mi univerdidad me han dado la oportunidad de especializarme en TRNSYS y simular un proyecto real en construccion.

He visto que el trnsys no tiene los types que deseo pero tampoco se cuales son para pedirlos.

Necesito un type de intercambiador de calor con geotermia.
Tambien necesito un type de bomba de calor/frio (agua-agua).

Alguien me puede hechar una mano?

Muchas gracias.

Buenas,

Es raro encontrar preguntas sobre TRNSYS...mira en la web de Aiguasol que son los distribuidores de este software.

Además tienen varios TYPE desarrollados de HVAC Equipment, Geothermal Heat Pump y Ground Coupling que pertenecen a la Libreria de TESS. Creo que las universidades tienen descuento, tanto en cursos como en software.

Son buenos TYPE pero como todo, se podrían mejorar.

Suerte!!!

Hola,
Estoy en lo mismo...
He visto la pagina de aiguasol, pero no hay formacion actualizada, dan unos datos del 2006!
Si alguien tuviera informacion para iniciarnos, estaria muy agradecido
Saludos,

Yo también necesito información para iniciarme en estos programas, por lo menos una ayuda sobre como empezar, a que libros porder recurrir o donde encontrar el software que este actualizado

Muchas gracias por vuestra colaboración

hola,
Segun lo recomendado me comunique con AIGUASOL... y ya dieron un curso de TRNSYS... y de momento no tienen previsto organizar otro por lo menos ya bien entrado el 2010... ni modo...
Creo es cuestion de leerse los manuales, he visto en la red, que en varios lugares puedes descargar algunos documentos del TRNSYS, en ingles, no se si contengan algun ejemplo sencillo para iniciarse...
Salud2,

También has de saber que el AcSol de la Agencia Andaluza de la Energía o el Escosol de Salvador Escoda están basado en TRNSYS y están full-Español.

Saludos

Yo habitualmente utilizo Acsol de la gencia andaluza de la energía y va muy bien, pero yo quiero implementar mi propio programa porque me lo piden para el trabajo.

Entonces necesitaría algo por donde epezar y luego ya me cogería yo sola, pero es que así es frio y sin nada de material se te hace una montaña.

Gracias por el foro!

Hola pescachus, pues para implementar tu propio programa de cálculo utiliza Excel a no ser que pilotes de Java, C++, etc...

Salu2

Hola S.delarbol,

Normalmente utilizo una excel para los casos sencillos, tengo f-char para instalaciones muy básicas y con el ACsol me apaño muy bien para cosas con más chicha, es decir viviendas con recirculaciones, hoteles, industrias etc....

Pero..... solo sirven para captadores planos y quisiera meter un poco la nariz por los ccp para procesos industriales vamos para ver si se puede mejorar y jugar con temperaturas más altas aunque me siga quedando akl fín con mis captaores planos de toda la vida o bien con el tubo de vacio convencional.

Este es el motivo de que quiera iniciarme por estos senderos. el Acsol me gusta mucho, se que utiliza trnsys pero las posibilidades al fin son limitadas y convencionales, me sería más útil poder hacerlo yo a mi gusto.

Muchas gracias por el interés.

Hola.

Yo en mi proyecto fin de carrera usé Trnsys y puedes crear tus propios types, en lenguaje de programación Fortran.

Fue hace más de 1 año, así que no me acuerdo exactamente cómo se hacía, además hace tiempo que no me dedico a la energía solar.

Les das a algo de crear component, eliges tus variables de entrada/salida, sus unidades y él te crea el cuerpo el programa y tienes una zona para poner las ecuaciones que simulan tu type.

Además cuando ya tienes un modelo de Trnsys puedes crear un programa con un interfaz amigable para el usuario (tipo ACSol) con el Trnedit, pero hasta ahí no llegue.

Lo que si usé y era interesante era el Trnbuilt en el cual simulabas la vivienda, con sus paredes, ventanas... para calcular las pérdidas térmica en el apoyo a calefacción.

Por ejemplo, una válvula termostática que no encontre en Trnsys (aunque luego encontré en una web) y me la hice yo. Aunque parece muy complicado, casi todo es el esqueleto del programa que hace Trnsys, la clave es donde pone *** PERFORM ALL THE CALCULATION HERE FOR THIS MODEL. *** (también depende de lo que quieras hacer):

SUBROUTINE TYPE201 (TIME,XIN,OUT,T,DTDT,PAR,INFO,ICNTRL,*)
C************************************************* ********************
C Object: Valvula termostatica
C IISiBat Model: Type201
C
C Author:
C Editor:
C Date: January 02, 2008 last modified: January 02, 2008
C
C ***
C *** Model Parameters
C ***
C T_salida C [-Inf;+Inf]
C ***
C *** Model Inputs
C ***
C T_in_cool C [-Inf;+Inf]
C T_in_heat C [-Inf;+Inf]
C Caudal_salida kg/hr [-Inf;+Inf]
C ***
C *** Model Outputs
C ***
C Caudal_in_cool kg/hr [-Inf;+Inf]
C Caudal_in_heat kg/hr [-Inf;+Inf]
C ***
C *** Model Derivatives
C ***
C (Comments and routine interface generated by TRNSYS Studio)
C************************************************* ********************
C TRNSYS acess functions (allow to acess TIME etc.)
USE TrnsysConstants
USE TrnsysFunctions
C---------------------------------------------------------------------
C REQUIRED BY THE MULTI-DLL VERSION OF TRNSYS
!DEC$ATTRIBUTES DLLEXPORT :: TYPE201 !SET
THE CORRECT TYPE NUMBER HERE
C---------------------------------------------------------------------
C---------------------------------------------------------------------
C TRNSYS DECLARATIONS
IMPLICIT NONE !REQUIRES THE USER TO DEFINE ALL
VARIABLES BEFORE USING THEM
DOUBLE PRECISION XIN
DOUBLE PRECISION OUT
DOUBLE PRECISION TIME
DOUBLE PRECISION PAR
DOUBLE PRECISION STORED
DOUBLE PRECISION T
DOUBLE PRECISION DTDT
DOUBLE PRECISION M_IN_HEAT
DOUBLE PRECISION M_IN_COOL
INTEGER*4 INFO(15)
INTEGER*4 NP,NI,NOUT,ND
INTEGER*4 NPAR,NIN,NDER
INTEGER*4 IUNIT,ITYPE
INTEGER*4 NSTORED
CHARACTER*3 OCHECK
CHARACTER*3 YCHECK
C---------------------------------------------------------------------
C USER DECLARATIONS - SET THE MAXIMUM NUMBER OF PARAMETERS (NP),
INPUTS (NI),
C OUTPUTS (NOUT), AND DERIVATIVES (ND) THAT MAY BE SUPPLIED FOR
THIS TYPE
PARAMETER (NP=1,NI=3,NOUT=2,ND=0,NSTORED=0)
C---------------------------------------------------------------------
C---------------------------------------------------------------------
C REQUIRED TRNSYS DIMENSIONS
DIMENSION XIN(NI),OUT(NOUT),PAR(NP),YCHECK(NI),OCHECK(NOUT),
1 STORED(NSTORED),T(ND),DTDT(ND)
INTEGER NITEMS
C---------------------------------------------------------------------
C ADD DECLARATIONS AND DEFINITIONS FOR THE USER-VARIABLES HERE
C PARAMETERS
DOUBLE PRECISION T_salida
C INPUTS
DOUBLE PRECISION T_in_cool
DOUBLE PRECISION T_in_heat
DOUBLE PRECISION Caudal_salida
C---------------------------------------------------------------------
C READ IN THE VALUES OF THE PARAMETERS IN SEQUENTIAL ORDER
T_salida=PAR(1)
C---------------------------------------------------------------------
C RETRIEVE THE CURRENT VALUES OF THE INPUTS TO THIS MODEL FROM THE
XIN ARRAY IN SEQUENTIAL ORDER
T_in_cool=XIN(1)
T_in_heat=XIN(2)
Caudal_salida=XIN(3)
IUNIT=INFO(1)
ITYPE=INFO(2)
C---------------------------------------------------------------------
C SET THE VERSION INFORMATION FOR TRNSYS
IF(INFO(7).EQ.-2) THEN
INFO(12)=16
RETURN 1
ENDIF
C---------------------------------------------------------------------
C DO ALL THE VERY LAST CALL OF THE SIMULATION MANIPULATIONS HERE
IF (INFO(8).EQ.-1) THEN
RETURN 1
ENDIF
C---------------------------------------------------------------------
C PERFORM ANY 'AFTER-ITERATION' MANIPULATIONS THAT ARE REQUIRED
HERE
C e.g. save variables to storage array for the next timestep
IF (INFO(13).GT.0) THEN
NITEMS=0
C STORED(1)=... (if NITEMS > 0)
C CALL SET_STORAGE_VARS(STORED,NITEMS,INFO)
RETURN 1
ENDIF
C---------------------------------------------------------------------
C DO ALL THE VERY FIRST CALL OF THE SIMULATION MANIPULATIONS HERE
IF (INFO(7).EQ.-1) THEN
C SET SOME INFO ARRAY VARIABLES TO TELL THE TRNSYS ENGINE HOW
THIS TYPE IS TO WORK
INFO(6)=NOUT
INFO(9)=1
INFO(10)=0 !STORAGE FOR VERSION 16 HAS BEEN CHANGED
C SET THE REQUIRED NUMBER OF INPUTS, PARAMETERS AND DERIVATIVES
THAT THE USER SHOULD SUPPLY IN THE INPUT FILE
C IN SOME CASES, THE NUMBER OF VARIABLES MAY DEPEND ON THE VALUE
OF PARAMETERS TO THIS MODEL....
NIN=NI
NPAR=NP
NDER=ND
C CALL THE TYPE CHECK SUBROUTINE TO COMPARE WHAT THIS COMPONENT
REQUIRES TO WHAT IS SUPPLIED IN
C THE TRNSYS INPUT FILE
CALL TYPECK(1,INFO,NIN,NPAR,NDER)
C SET THE NUMBER OF STORAGE SPOTS NEEDED FOR THIS COMPONENT
NITEMS=0
C CALL SET_STORAGE_SIZE(NITEMS,INFO)
C RETURN TO THE CALLING PROGRAM
RETURN 1
ENDIF
C---------------------------------------------------------------------
C DO ALL OF THE INITIAL TIMESTEP MANIPULATIONS HERE - THERE ARE NO
ITERATIONS AT THE INTIAL TIME
IF (TIME .LT. (getSimulationStartTime() +
. getSimulationTimeStep()/2.D0)) THEN
C SET THE UNIT NUMBER FOR FUTURE CALLS
IUNIT=INFO(1)
ITYPE=INFO(2)
C CHECK THE PARAMETERS FOR PROBLEMS AND RETURN FROM THE
SUBROUTINE IF AN ERROR IS FOUND
C IF(...) CALL TYPECK(-4,INFO,0,"BAD PARAMETER #",0)
C PERFORM ANY REQUIRED CALCULATIONS TO SET THE INITIAL VALUES OF
THE OUTPUTS HERE
C Caudal_in_cool
OUT(1)=0
C Caudal_in_heat
OUT(2)=0
C PERFORM ANY REQUIRED CALCULATIONS TO SET THE INITIAL STORAGE
VARIABLES HERE
NITEMS=0
C STORED(1)=...
C PUT THE STORED ARRAY IN THE GLOBAL STORED ARRAY
C CALL SET_STORAGE_VARS(STORED,NITEMS,INFO)
C RETURN TO THE CALLING PROGRAM
RETURN 1
ENDIF
C---------------------------------------------------------------------
C *** ITS AN ITERATIVE CALL TO THIS COMPONENT ***
C---------------------------------------------------------------------
C RETRIEVE THE VALUES IN THE STORAGE ARRAY FOR THIS ITERATION
C NITEMS=
C CALL GET_STORAGE_VARS(STORED,NITEMS,INFO)
C STORED(1)=
C---------------------------------------------------------------------
C CHECK THE INPUTS FOR PROBLEMS
C IF(...) CALL TYPECK(-3,INFO,'BAD INPUT #',0,0)
C IF(IERROR.GT.0) RETURN 1
C---------------------------------------------------------------------
C *** PERFORM ALL THE CALCULATION HERE FOR THIS MODEL. ***
C---------------------------------------------------------------------
M_IN_COOL=Caudal_salida*(T_salida-T_in_heat)/(T_in_cool-
T_in_heat)
M_IN_HEAT=Caudal_salida-M_IN_COOL
C---------------------------------------------------------------------
C SET THE STORAGE ARRAY AT THE END OF THIS ITERATION IF NECESSARY
C NITEMS=
C STORED(1)=
C CALL SET_STORAGE_VARS(STORED,NITEMS,INFO)
C---------------------------------------------------------------------
C REPORT ANY PROBLEMS THAT HAVE BEEN FOUND USING CALLS LIKE THIS:
C CALL MESSAGES(-1,'put your message here','MESSAGE',IUNIT,ITYPE)
C CALL MESSAGES(-1,'put your message here','WARNING',IUNIT,ITYPE)
C CALL MESSAGES(-1,'put your message here','SEVERE',IUNIT,ITYPE)
C CALL MESSAGES(-1,'put your message here','FATAL',IUNIT,ITYPE)
C---------------------------------------------------------------------
C SET THE OUTPUTS FROM THIS MODEL IN SEQUENTIAL ORDER AND GET OUT
C Caudal_in_cool
OUT(1)=M_IN_COOL
C Caudal_in_heat
OUT(2)=M_IN_HEAT
C---------------------------------------------------------------------
END
C---------------------------------------------------------------------