[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Type55-Maximum
- Date: Mon, 20 May 2002 11:45:09 -0500
- From: "Jeff Thornton" <thornton@xxxxxxxxxxxx>
- Subject: Re: Type55-Maximum
At 04:24 AM 5/19/2002 -0400, you wrote:
>Dear TRNSYS users,
>I am using the Type 55 Periodic integrator to calculate am maximum value
>during every day from 11:00am to 7:00 pm. My Problem is, that I need this
>result from 10:00pm to 10:00am on the next day. The parameters are:
>1 11 6 24 24 0 8760
>This means, that the reset time is at 0:00 and this is not correct to what
>I need. How can I get a reset at everyday at 10:00am?
>
>It would be very nice if someone could help me.
Henrik,
I am confused by your e-mail. Are you saying that you would like the
periodic integrator to calculate the maximum value of an input from 11:00
am to 7:00 pm and then use this calculated output as an input to another
component during the hours of 10:00 pm to 10:00 am the next day? (Parameter
3 should be 8 by the way)
Assuming that this is your intent, I ran a simple input file to test what
TYPE 55 is doing. You are correct in that the periodic integrator is
resetting the outputs at midnight - or 24 hours from the start of the
simulation as you have specified in your parameter list. After discussing
this with several of my colleagues, we have decided that the best thing is
to change type 55 to do as you suggest - reset the values every 24 hours
after the start of the summary period - and not every 24 hours after the
start time of the simulation. While the old method wasn't wrong - the new
change that we have made will make the program a little more flexible.....
If you have a FORTRAN compiler the OLD and NEW FORTRAN code is supplied
below. Otherwise contact your TRNSYS distributor in a few days for the
latest source code.
With kindest regards,
Jeff
(Type 55 author)
OLD CODE
C SET THE INITIAL VALUE OF THE RESET TIME
IF(MONTH3(I)) THEN
RESET(I)=MONTH(KEEP(I))
NEWVAL(I)=RESET(I)
ELSE
CNB CHECK IF PERIOD IS LONGER THAN A DAY
IF((TON(I)+LENGTH(I)).GT.RESET(I)) THEN
NEWVAL(I)=TON(I)+RESET(I)
ELSE
NEWVAL(I)=TIME0+RESET(I)
ENDIF
ENDIF
NEW CODE
C SET THE INITIAL VALUE OF THE RESET TIME
IF(MONTH3(I)) THEN
RESET(I)=MONTH(KEEP(I))
NEWVAL(I)=RESET(I)
ELSE
NEWVAL(I)=TON(I)+RESET(I)
ENDIF
*********************************************************************************
Thermal Energy System Specialists (TESS)
Jeff Thornton 2916 Marketplace Drive
Principal Suite 104
Phone: (608) 274-2577 Madison WI 53719
Fax: (608) 278-1475 USA
E-mail: thornton@tess-inc.com
Web Page: www.tess-inc.com
"Providing software solutions for today's energy engineering projects"
*********************************************************************************