Re: Type55-Maximum

["Jeff Thornton" <thornton@xxxxxxxxxxxx>]

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"
*********************************************************************************