1 // Created by: CKY / Contract Toubro-Larsen
2 // Copyright (c) 1993-1999 Matra Datavision
3 // Copyright (c) 1999-2014 OPEN CASCADE SAS
5 // This file is part of Open CASCADE Technology software library.
7 // This library is free software; you can redistribute it and/or modify it under
8 // the terms of the GNU Lesser General Public License version 2.1 as published
9 // by the Free Software Foundation, with special exception defined in the file
10 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 // distribution for complete text of the license and disclaimer of any warranty.
13 // Alternatively, this file may be used under the terms of Open CASCADE
14 // commercial license or contractual agreement.
16 //--------------------------------------------------------------------
17 //--------------------------------------------------------------------
18 // UNFINISHED & UNSTARTED
20 #include <IGESAppli_ElementResults.hxx>
21 #include <IGESAppli_FiniteElement.hxx>
22 #include <IGESBasic_HArray1OfHArray1OfInteger.hxx>
23 #include <IGESBasic_HArray1OfHArray1OfReal.hxx>
24 #include <IGESDimen_GeneralNote.hxx>
25 #include <Standard_DimensionMismatch.hxx>
26 #include <Standard_OutOfRange.hxx>
27 #include <Standard_Type.hxx>
29 IMPLEMENT_STANDARD_RTTIEXT(IGESAppli_ElementResults,IGESData_IGESEntity)
31 IGESAppli_ElementResults::IGESAppli_ElementResults () { }
33 void IGESAppli_ElementResults::Init
34 (const Handle(IGESDimen_GeneralNote)& aNote,
35 const Standard_Integer aSubCase, const Standard_Real aTime,
36 const Standard_Integer nbResults, const Standard_Integer aResRepFlag,
37 const Handle(TColStd_HArray1OfInteger)& allElementIdents,
38 const Handle(IGESAppli_HArray1OfFiniteElement)& allFiniteElems,
39 const Handle(TColStd_HArray1OfInteger)& allTopTypes,
40 const Handle(TColStd_HArray1OfInteger)& nbLayers,
41 const Handle(TColStd_HArray1OfInteger)& allDataLayerFlags,
42 const Handle(TColStd_HArray1OfInteger)& allnbResDataLocs,
43 const Handle(IGESBasic_HArray1OfHArray1OfInteger)& allResDataLocs,
44 const Handle(IGESBasic_HArray1OfHArray1OfReal)& allResults) // UNFINISHED
46 // raises exception if sizes are not consistent, (lower = 1 too)
47 // but how to check is not clear ??
48 Standard_Integer num = allElementIdents->Length();
49 if (allElementIdents->Lower() != 1 ||
50 allFiniteElems->Lower() != 1 || allFiniteElems->Upper() != num ||
51 allTopTypes->Lower() != 1 || allTopTypes->Upper() != num ||
52 nbLayers->Lower() != 1 || nbLayers->Upper() != num ||
53 allDataLayerFlags->Lower() != 1 || allDataLayerFlags->Upper() != num ||
54 allnbResDataLocs->Lower() != 1 || allnbResDataLocs->Upper() != num ||
55 allResDataLocs->Lower() != 1 || allResDataLocs->Upper() != num ||
56 allResults->Lower() != 1 || allResults->Upper() != num )
57 throw Standard_DimensionMismatch("IGESAppli_ElementsResults : Init");
58 for (Standard_Integer i = 1; i <= num; i ++) {
59 Standard_Integer nl = nbLayers->Value(i);
60 Standard_Integer nrl = allnbResDataLocs->Value(i);
61 if (allResDataLocs->Value(i)->Lower() != 1 ||
62 allResDataLocs->Value(i)->Upper() != nrl)
63 throw Standard_DimensionMismatch("IGESAppli_ElementsResults : DataLoc");
64 if (allResults->Value(i)->Lower() != 1 ||
65 allResults->Value(i)->Upper() != nl*nrl*nbResults)
66 throw Standard_DimensionMismatch("IGESAppli_ElementsResults : Results");
70 theSubcaseNumber = aSubCase;
72 theNbResultValues = nbResults;
73 theResultReportFlag = aResRepFlag;
74 theElementIdentifiers = allElementIdents;
75 theElements = allFiniteElems;
76 theElementTopologyTypes = allTopTypes;
77 theNbLayers = nbLayers;
78 theDataLayerFlags = allDataLayerFlags;
79 theNbResultDataLocs = allnbResDataLocs;
80 theResultDataLocs = allResDataLocs;
81 theResultData = allResults;
82 InitTypeAndForm(148,FormNumber());
83 // FormNumber -> Type of the Results
86 void IGESAppli_ElementResults::SetFormNumber (const Standard_Integer form)
88 if (form < 0 || form > 34) throw Standard_OutOfRange("IGESAppli_ElementResults : SetFormNumber");
89 InitTypeAndForm(148,form);
93 Handle(IGESDimen_GeneralNote) IGESAppli_ElementResults::Note () const
98 Standard_Integer IGESAppli_ElementResults::SubCaseNumber () const
100 return theSubcaseNumber;
103 Standard_Real IGESAppli_ElementResults::Time () const
108 Standard_Integer IGESAppli_ElementResults::NbResultValues () const
110 return theNbResultValues;
113 Standard_Integer IGESAppli_ElementResults::ResultReportFlag () const
115 return theResultReportFlag;
118 Standard_Integer IGESAppli_ElementResults::NbElements () const
120 return theElements->Length();
123 Standard_Integer IGESAppli_ElementResults::ElementIdentifier
124 (const Standard_Integer Index) const
126 return theElementIdentifiers->Value(Index);
129 Handle(IGESAppli_FiniteElement) IGESAppli_ElementResults::Element
130 (const Standard_Integer Index) const
132 return theElements->Value(Index);
135 Standard_Integer IGESAppli_ElementResults::ElementTopologyType
136 (const Standard_Integer Index) const
138 return theElementTopologyTypes->Value(Index);
141 Standard_Integer IGESAppli_ElementResults::NbLayers
142 (const Standard_Integer Index) const
144 return theNbLayers->Value(Index);
147 Standard_Integer IGESAppli_ElementResults::DataLayerFlag
148 (const Standard_Integer Index) const
150 return theDataLayerFlags->Value(Index);
153 Standard_Integer IGESAppli_ElementResults::NbResultDataLocs
154 (const Standard_Integer Index) const
156 return theNbResultDataLocs->Value(Index);
161 Standard_Integer IGESAppli_ElementResults::ResultDataLoc
162 (const Standard_Integer NElem, const Standard_Integer NLoc) const
164 return theResultDataLocs->Value(NElem)->Value(NLoc);
167 Standard_Integer IGESAppli_ElementResults::NbResults
168 (const Standard_Integer Index) const
170 return theResultData->Value(Index)->Length();
173 Standard_Real IGESAppli_ElementResults::ResultData
174 (const Standard_Integer NElem, const Standard_Integer num) const
176 return theResultData->Value(NElem)->Value(num);
179 Standard_Integer IGESAppli_ElementResults::ResultRank
180 (const Standard_Integer NElem, const Standard_Integer NVal,
181 const Standard_Integer NLay, const Standard_Integer NLoc) const
183 Standard_Integer num = NVal + theNbResultValues *
184 (NLay + theNbLayers->Value(NElem) * NLoc);
188 Standard_Real IGESAppli_ElementResults::ResultData
189 (const Standard_Integer NElem, const Standard_Integer NVal,
190 const Standard_Integer NLay, const Standard_Integer NLoc) const
192 return theResultData->Value(NElem)->Value(ResultRank(NElem,NVal,NLay,NLoc));
195 Handle(TColStd_HArray1OfReal) IGESAppli_ElementResults::ResultList
196 (const Standard_Integer NElem) const
198 return theResultData->Value(NElem);