Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- package RecordTest
- record DataStructure
- constant Integer Index;
- Real A[Index];
- end DataStructure;
- package DataDefinition
- constant DataStructure Set1(Index=2, A={1,2});
- constant DataStructure Set2(Index=2, A={3,4});
- end DataDefinition;
- package UseOfData
- constant Integer N=2;
- constant DataStructure ReadData[N]={DataDefinition.Set1, DataDefinition.Set2};
- function FunctionWithData
- input Real b;
- output Real Result;
- protected
- Real Array[2];
- algorithm
- Array := {sum(ReadData[1].A), sum(ReadData[2].A)};
- Result := b*sum(Array);
- end FunctionWithData;
- model FunctionCall
- parameter Real b=2;
- Real FunctionResult;
- equation
- FunctionResult = FunctionWithData(b);
- end FunctionCall;
- end UseOfData;
- end RecordTest;
- package RecordTest
- record DataStructure
- constant Integer Index;
- Real A[:];
- end DataStructure;
- package DataDefinition
- constant DataStructure Set1=DataStructure(Index=2, A={1.0,2.0});
- constant DataStructure Set2=DataStructure(Index=2, A={3.0,4.0});
- end DataDefinition;
- package UseOfData
- constant Integer N=2;
- constant DataStructure ReadData[N]={DataDefinition.Set1, DataDefinition.Set2};
- function FunctionWithData
- input Real b;
- output Real Result;
- protected
- Real Array[2];
- algorithm
- Array := {sum(ReadData[1].A), sum(ReadData[2].A)};
- Result := b*sum(Array);
- end FunctionWithData;
- model FunctionCall
- parameter Real b=2;
- Real FunctionResult;
- equation
- FunctionResult = FunctionWithData(b);
- end FunctionCall;
- end UseOfData;
- end RecordTest;
Add Comment
Please, Sign In to add comment