[TRNSYS-users] Changing a parameter to input in components
Jaime Gonzalez Rodriguez
gonzalezro.jaime at gmail.com
Mon Jul 12 17:05:12 PDT 2010
I forgot to change something in your code, now it's all right =)
On 13 July 2010 02:03, Jaime Gonzalez Rodriguez
<gonzalezro.jaime at gmail.com>wrote:
> well, you just have to find the code of the type you wanna change, for
> instance type212.for or whatever...then, as David said you have to change
> the parameter to input, I'll do it in the code that you pasted before so
> that you can see an example, anyway my trnsys function library seems to be
> kind of different to yours, but this should work.
>
> Other topic is how to recompile it, I guess you should create a project and
> set the right options to the compiler, you've got two options.
>
> 1. Copy the options of the project that trnsys created for you with the
> type you have built before, those options should be the same
>
> 2. Create a new component, create the .tmf with the number of parameters,
> inputs and outputs that you want, and then copy and paste the code, be
> carefull with this, don't paste the part where you define the number of
> parameters or the part with the type number, just the core of the code, I
> mean, the part where you carry out the calculations.
>
> I preffer the option 2 because I am too lazy to fight with windows
> compilers, but the first option might be better.
>
>
> When I started programming types I didn't remember much about fortran cuz I
> was programming C and other languages (mostly matlab which is the easiest)
> for a long time and I had forgotten almost everything from university, it
> was a nice exercise to read a code of a type and try to understand
> everything. If I were you I'd try so.
>
>
> Regards and good luck with fortran =)
>
>
>
>
> -------------------------------------------------------------------------------------------------------------------------------------------------------
>
> !Do All of the "Very First Call of the Simulation Manipulations" Here
>
> If(getIsFirstCallofSimulation()) Then
>
>
>
> !Tell the TRNSYS Engine How This Type Works
>
> !Call SetNumberofParameters(1) !The
> number of parameters that the the model wants
>
> Call SetNumberofParameters(0) !The
> number of parameters that the the model wants
>
> !Call SetNumberofInputs(1) !The
> number of inputs that the the model wants
>
> Call SetNumberofInputs(2) !The
> number of inputs that the the model wants
>
> Call SetNumberofDerivatives(0) !The number
> of derivatives that the the model wants
>
> Call SetNumberofOutputs(1) !The
> number of outputs that the the model produces
>
> Call SetIterationMode(1)
> !An indicator for the iteration mode (default=1). Refer
> to section 8.4.3.5 of the documentation for more details.
>
> Call
> SetNumberStoredVariables(0,0) !The number of static
> variables that the model wants stored in the global storage array and the
> number of dynamic variables that the model wants stored in the global
> storage array
>
> Call SetNumberofDiscreteControls(0)
> !The number of discrete control functions set by this model (a value greater
> than zero requires the user to use Solver 1: Powell's method)
>
>
>
> Return
>
>
>
> EndIf
>
>
> !-----------------------------------------------------------------------------------------------------------------------
>
>
>
>
> !-----------------------------------------------------------------------------------------------------------------------
>
> !Do All of the First Timestep Manipulations Here - There Are No Iterations
> at the Intial Time
>
> If (getIsFirstTimestep()) Then
>
> !par = getParameterValue(1) I comment this line cuz u won't need it
> anymore
>
>
>
>
>
> inp1 = GetInputValue(1)
>
> inp2 = GetInputValue(2)
>
>
>
>
>
> !Check the Parameters for Problems (#,ErrorType,Text)
>
> !Sample Code: If( PAR1 <= 0.) Call FoundBadParameter(1,'Fatal','The
> first parameter provided to this model is not acceptable.')
>
>
>
> !Set the Initial Values of the Outputs (#,Value)
>
> Call SetOutputValue(1, 0) ! opt
>
>
>
>
>
> !If Needed, Set the Initial Values of the Static Storage Variables
> (#,Value)
>
> !Sample Code: SetStaticArrayValue(1,0.d0)
>
>
>
> !If Needed, Set the Initial Values of the Dynamic Storage Variables
> (#,Value)
>
> !Sample Code: Call SetDynamicArrayValueThisIteration(1,20.d0)
>
>
>
> !If Needed, Set the Initial Values of the Discrete Controllers (#,Value)
>
> !Sample Code for Controller 1 Set to Off: Call
> SetDesiredDiscreteControlState(1,0)
>
>
>
> Return
>
>
>
> EndIf
>
>
> !-----------------------------------------------------------------------------------------------------------------------
>
>
>
>
> !-----------------------------------------------------------------------------------------------------------------------
>
> !ReRead the Parameters if Another Unit of This Type Has Been Called Last
>
> If(getIsReReadParameters()) Then
>
> !Read in the Values of the Parameters from the
> Input File
>
> !par = getParameterValue(1) Since you don't have parameters you won't
> need this neither
>
>
>
>
>
> EndIf
>
>
> !-----------------------------------------------------------------------------------------------------------------------
>
>
>
> !Read the Inputs
>
> inp1 = GetInputValue(1)
>
> inp2 = GetInputValue(2)
>
>
>
>
>
> !Check the Inputs for Problems (#,ErrorType,Text)
>
> !Sample Code: If( IN1 <= 0.) Call FoundBadInput(1,'Fatal','The
> first input provided to this model is not acceptable.')
>
>
>
> If(ErrorFound()) Return
>
>
>
> ! finally where you calculated the value of the formula you should
> change PAR1 for IN2
> OUT1=IN1+IN2
> ! DON'T FORGET TO ADD THE DECLARATION OF THE VARIABLE IN2 AND DELETE THE
> DECLARATION OF PAR1
> ! Note: As far as you declare the variables you can call them with any
> name you want, it does not have to be
> Double IN1
> Double IN2
> it could be
> Double SPAINWORLDCHAMPIONS
> Double whatever
>
>
>
>
>
> On 12 July 2010 21:04, Mehdi Shahrestani <mahdishahrestani at yahoo.com>wrote:
>
>> Dear David
>>
>>
>>
>> Thanks for your reply
>>
>> To be honest I try to change the script but I don’t know how I can
>> recompile the edited file.
>>
>> I was wondering if you could give me some hints about recompiling an
>> edited fortran file.
>>
>>
>>
>> Regards
>>
>> Mehdi Shahrestani
>>
>>
>>
>>
>>
>>
>> ------------------------------
>>
>> *From:* David Bradley [mailto:bradley at tess-inc.com]
>> *Sent:* 12 July 2010 18:16
>> *To:* mehdi
>> *Cc:* trnsys-users at cae.wisc.edu
>> *Subject:* Re: [TRNSYS-users] Changing a parameter to input in components
>>
>>
>>
>> Mehdi,
>> In addition to changing the proforma, you also need to modify and
>> recompile the Fortran code of the Type and change the number of parameters
>> and inputs that it expecting to be passed.
>> Best,
>> David
>>
>>
>> On 7/11/2010 17:37, mehdi wrote:
>>
>> Hello everybody
>>
>>
>>
>> I have a question about changing a “Parameter” into “Input” in components.
>>
>>
>>
>> For example in a pipe component, I have changed one of parameters to input
>> (in Performa) but after run there were two errors mentioned that
>>
>> There is one missed parameter and one more than normal input.
>>
>>
>>
>> I think there should be a way to solve such a problem.
>>
>> I was wondering if anybody could give some advice.
>>
>>
>>
>> Regards
>>
>> Mehdi Shahrestani
>>
>>
>>
>>
>>
>>
>>
>> _______________________________________________
>>
>> TRNSYS-users mailing list
>>
>> TRNSYS-users at cae.wisc.edu
>>
>> https://www-old.cae.wisc.edu/mailman/listinfo/trnsys-users
>>
>>
>>
>>
>>
>> --
>>
>> ***************************
>>
>> David BRADLEY
>>
>> Principal
>>
>> Thermal Energy Systems Specialists, LLC
>>
>> 22 North Carroll Street - suite 370
>>
>> Madison, WI 53703 USA
>>
>>
>>
>> P:+1.608.274.2577
>>
>> F:+1.608.278.1475
>>
>> bradley at tess-inc.com
>>
>>
>>
>> http://www.tess-inc.com
>>
>> http://www.trnsys.com
>>
>>
>> _______________________________________________
>> TRNSYS-users mailing list
>> TRNSYS-users at cae.wisc.edu
>> https://www-old.cae.wisc.edu/mailman/listinfo/trnsys-users
>>
>>
>
>
> --
> Jaime. González Rodríguez
>
--
Jaime. González Rodríguez
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.onebuilding.org/pipermail/trnsys-users-onebuilding.org/attachments/20100713/b0371431/attachment-0001.htm>
More information about the TRNSYS-users
mailing list