1 | /*!\file PentaVertexInput.c
|
---|
2 | * \brief: implementation of the PentaVertexInput object
|
---|
3 | */
|
---|
4 |
|
---|
5 | #ifdef HAVE_CONFIG_H
|
---|
6 | #include "config.h"
|
---|
7 | #else
|
---|
8 | #error "Cannot compile with HAVE_CONFIG_H symbol! run configure first!"
|
---|
9 | #endif
|
---|
10 |
|
---|
11 | #include "stdio.h"
|
---|
12 | #include <string.h>
|
---|
13 | #include "../objects.h"
|
---|
14 | #include "../../EnumDefinitions/EnumDefinitions.h"
|
---|
15 | #include "../../shared/shared.h"
|
---|
16 | #include "../../Container/Container.h"
|
---|
17 | #include "../../include/include.h"
|
---|
18 |
|
---|
19 | /*PentaVertexInput constructors and destructor*/
|
---|
20 | /*FUNCTION PentaVertexInput::PentaVertexInput(){{{1*/
|
---|
21 | PentaVertexInput::PentaVertexInput(){
|
---|
22 | return;
|
---|
23 | }
|
---|
24 | /*}}}*/
|
---|
25 | /*FUNCTION PentaVertexInput::PentaVertexInput(int in_enum_type,double* values){{{1*/
|
---|
26 | PentaVertexInput::PentaVertexInput(int in_enum_type,double* in_values)
|
---|
27 | :PentaRef(1)
|
---|
28 | {
|
---|
29 |
|
---|
30 | /*Set PentaRef*/
|
---|
31 | this->SetElementType(P1Enum,0);
|
---|
32 | this->element_type=P1Enum;
|
---|
33 |
|
---|
34 | enum_type=in_enum_type;
|
---|
35 | values[0]=in_values[0];
|
---|
36 | values[1]=in_values[1];
|
---|
37 | values[2]=in_values[2];
|
---|
38 | values[3]=in_values[3];
|
---|
39 | values[4]=in_values[4];
|
---|
40 | values[5]=in_values[5];
|
---|
41 | }
|
---|
42 | /*}}}*/
|
---|
43 | /*FUNCTION PentaVertexInput::~PentaVertexInput(){{{1*/
|
---|
44 | PentaVertexInput::~PentaVertexInput(){
|
---|
45 | return;
|
---|
46 | }
|
---|
47 | /*}}}*/
|
---|
48 |
|
---|
49 | /*Object virtual functions definitions:*/
|
---|
50 | /*FUNCTION PentaVertexInput::Echo {{{1*/
|
---|
51 | void PentaVertexInput::Echo(void){
|
---|
52 | this->DeepEcho();
|
---|
53 | }
|
---|
54 | /*}}}*/
|
---|
55 | /*FUNCTION PentaVertexInput::DeepEcho{{{1*/
|
---|
56 | void PentaVertexInput::DeepEcho(void){
|
---|
57 |
|
---|
58 | printf("PentaVertexInput:\n");
|
---|
59 | printf(" enum: %i (%s)\n",this->enum_type,EnumToString(this->enum_type));
|
---|
60 | printf(" values: [%g %g %g %g %g %g]\n",this->values[0],this->values[1],this->values[2],this->values[3],this->values[4],this->values[5]);
|
---|
61 | }
|
---|
62 | /*}}}*/
|
---|
63 | /*FUNCTION PentaVertexInput::Id{{{1*/
|
---|
64 | int PentaVertexInput::Id(void){ return -1; }
|
---|
65 | /*}}}*/
|
---|
66 | /*FUNCTION PentaVertexInput::MyRank{{{1*/
|
---|
67 | int PentaVertexInput::MyRank(void){
|
---|
68 | extern int my_rank;
|
---|
69 | return my_rank;
|
---|
70 | }
|
---|
71 | /*}}}*/
|
---|
72 | /*FUNCTION PentaVertexInput::Marshall{{{1*/
|
---|
73 | void PentaVertexInput::Marshall(char** pmarshalled_dataset){
|
---|
74 |
|
---|
75 | char* marshalled_dataset=NULL;
|
---|
76 | int enum_value=0;
|
---|
77 |
|
---|
78 | /*recover marshalled_dataset: */
|
---|
79 | marshalled_dataset=*pmarshalled_dataset;
|
---|
80 |
|
---|
81 | /*get enum value of PentaVertexInput: */
|
---|
82 | enum_value=PentaVertexInputEnum;
|
---|
83 |
|
---|
84 | /*marshall enum: */
|
---|
85 | memcpy(marshalled_dataset,&enum_value,sizeof(enum_value));marshalled_dataset+=sizeof(enum_value);
|
---|
86 |
|
---|
87 | /*marshall PentaVertexInput data: */
|
---|
88 | memcpy(marshalled_dataset,&enum_type,sizeof(enum_type));marshalled_dataset+=sizeof(enum_type);
|
---|
89 | memcpy(marshalled_dataset,&values,sizeof(values));marshalled_dataset+=sizeof(values);
|
---|
90 |
|
---|
91 | *pmarshalled_dataset=marshalled_dataset;
|
---|
92 | }
|
---|
93 | /*}}}*/
|
---|
94 | /*FUNCTION PentaVertexInput::MarshallSize{{{1*/
|
---|
95 | int PentaVertexInput::MarshallSize(){
|
---|
96 |
|
---|
97 | return sizeof(values)+
|
---|
98 | +sizeof(enum_type)+
|
---|
99 | +sizeof(int); //sizeof(int) for enum value
|
---|
100 | }
|
---|
101 | /*}}}*/
|
---|
102 | /*FUNCTION PentaVertexInput::Demarshall{{{1*/
|
---|
103 | void PentaVertexInput::Demarshall(char** pmarshalled_dataset){
|
---|
104 |
|
---|
105 | char* marshalled_dataset=NULL;
|
---|
106 | int i;
|
---|
107 |
|
---|
108 | /*recover marshalled_dataset: */
|
---|
109 | marshalled_dataset=*pmarshalled_dataset;
|
---|
110 |
|
---|
111 | /*this time, no need to get enum type, the pointer directly points to the beginning of the
|
---|
112 | *object data (thanks to DataSet::Demarshall):*/
|
---|
113 | memcpy(&enum_type,marshalled_dataset,sizeof(enum_type));marshalled_dataset+=sizeof(enum_type);
|
---|
114 | memcpy(&values,marshalled_dataset,sizeof(values));marshalled_dataset+=sizeof(values);
|
---|
115 |
|
---|
116 | /*return: */
|
---|
117 | *pmarshalled_dataset=marshalled_dataset;
|
---|
118 | return;
|
---|
119 | }
|
---|
120 | /*}}}*/
|
---|
121 | /*FUNCTION PentaVertexInput::Enum{{{1*/
|
---|
122 | int PentaVertexInput::Enum(void){
|
---|
123 |
|
---|
124 | return PentaVertexInputEnum;
|
---|
125 |
|
---|
126 | }
|
---|
127 | /*}}}*/
|
---|
128 |
|
---|
129 | /*PentaVertexInput management*/
|
---|
130 | /*FUNCTION PentaVertexInput::copy{{{1*/
|
---|
131 | Object* PentaVertexInput::copy() {
|
---|
132 |
|
---|
133 | return new PentaVertexInput(this->enum_type,this->values);
|
---|
134 |
|
---|
135 | }
|
---|
136 | /*}}}*/
|
---|
137 | /*FUNCTION PentaVertexInput::EnumType{{{1*/
|
---|
138 | int PentaVertexInput::EnumType(void){
|
---|
139 |
|
---|
140 | return this->enum_type;
|
---|
141 |
|
---|
142 | }
|
---|
143 | /*}}}*/
|
---|
144 | /*FUNCTION PentaVertexInput::SpawnTriaInput{{{1*/
|
---|
145 | Input* PentaVertexInput::SpawnTriaInput(int* indices){
|
---|
146 |
|
---|
147 | /*output*/
|
---|
148 | TriaVertexInput* outinput=NULL;
|
---|
149 | double newvalues[3];
|
---|
150 |
|
---|
151 | /*Loop over the new indices*/
|
---|
152 | for(int i=0;i<3;i++){
|
---|
153 |
|
---|
154 | /*Check index value*/
|
---|
155 | _assert_(indices[i]>=0 && indices[i]<6);
|
---|
156 |
|
---|
157 | /*Assign value to new input*/
|
---|
158 | newvalues[i]=this->values[indices[i]];
|
---|
159 | }
|
---|
160 |
|
---|
161 | /*Create new Tria input*/
|
---|
162 | outinput=new TriaVertexInput(this->enum_type,&newvalues[0]);
|
---|
163 |
|
---|
164 | /*Assign output*/
|
---|
165 | return outinput;
|
---|
166 |
|
---|
167 | }
|
---|
168 | /*}}}*/
|
---|
169 | /*FUNCTION PentaVertexInput::SpawnResult{{{1*/
|
---|
170 | ElementResult* PentaVertexInput::SpawnResult(int step, double time){
|
---|
171 |
|
---|
172 | return new PentaVertexElementResult(this->enum_type,this->values,step,time);
|
---|
173 |
|
---|
174 | }
|
---|
175 | /*}}}*/
|
---|
176 |
|
---|
177 | /*Object functions*/
|
---|
178 | /*FUNCTION PentaVertexInput::GetParameterValue(double* pvalue,GaussPenta* gauss){{{1*/
|
---|
179 | void PentaVertexInput::GetParameterValue(double* pvalue,GaussPenta* gauss){
|
---|
180 |
|
---|
181 | /*Call PentaRef function*/
|
---|
182 | PentaRef::GetParameterValue(pvalue,&values[0],gauss);
|
---|
183 |
|
---|
184 | }
|
---|
185 | /*}}}*/
|
---|
186 | /*FUNCTION PentaVertexInput::GetParameterDerivativeValue(double* p, double* xyz_list, GaussPenta* gauss){{{1*/
|
---|
187 | void PentaVertexInput::GetParameterDerivativeValue(double* p, double* xyz_list, GaussPenta* gauss){
|
---|
188 |
|
---|
189 | /*Call PentaRef function*/
|
---|
190 | PentaRef::GetParameterDerivativeValue(p,&values[0],xyz_list,gauss);
|
---|
191 | }
|
---|
192 | /*}}}*/
|
---|
193 | /*FUNCTION PentaVertexInput::GetVxStrainRate3d{{{1*/
|
---|
194 | void PentaVertexInput::GetVxStrainRate3d(double* epsilonvx,double* xyz_list, GaussPenta* gauss){
|
---|
195 | int i,j;
|
---|
196 |
|
---|
197 | const int numgrids=6;
|
---|
198 | const int DOFVELOCITY=3;
|
---|
199 | double B[8][27];
|
---|
200 | double B_reduced[6][DOFVELOCITY*numgrids];
|
---|
201 | double velocity[numgrids][DOFVELOCITY];
|
---|
202 |
|
---|
203 | /*Get B matrix: */
|
---|
204 | GetBStokes(&B[0][0], xyz_list, gauss);
|
---|
205 | /*Create a reduced matrix of B to get rid of pressure */
|
---|
206 | for (i=0;i<6;i++){
|
---|
207 | for (j=0;j<3;j++){
|
---|
208 | B_reduced[i][j]=B[i][j];
|
---|
209 | }
|
---|
210 | for (j=4;j<7;j++){
|
---|
211 | B_reduced[i][j-1]=B[i][j];
|
---|
212 | }
|
---|
213 | for (j=8;j<11;j++){
|
---|
214 | B_reduced[i][j-2]=B[i][j];
|
---|
215 | }
|
---|
216 | for (j=12;j<15;j++){
|
---|
217 | B_reduced[i][j-3]=B[i][j];
|
---|
218 | }
|
---|
219 | for (j=16;j<19;j++){
|
---|
220 | B_reduced[i][j-4]=B[i][j];
|
---|
221 | }
|
---|
222 | for (j=20;j<23;j++){
|
---|
223 | B_reduced[i][j-5]=B[i][j];
|
---|
224 | }
|
---|
225 | }
|
---|
226 |
|
---|
227 | /*Here, we are computing the strain rate of (vx,0,0)*/
|
---|
228 | for(i=0;i<numgrids;i++){
|
---|
229 | velocity[i][0]=this->values[i];
|
---|
230 | velocity[i][1]=0.0;
|
---|
231 | velocity[i][2]=0.0;
|
---|
232 | }
|
---|
233 | /*Multiply B by velocity, to get strain rate: */
|
---|
234 | MatrixMultiply(&B_reduced[0][0],6,DOFVELOCITY*numgrids,0,&velocity[0][0],DOFVELOCITY*numgrids,1,0,epsilonvx,0);
|
---|
235 |
|
---|
236 | }
|
---|
237 | /*}}}*/
|
---|
238 | /*FUNCTION PentaVertexInput::GetVyStrainRate3d{{{1*/
|
---|
239 | void PentaVertexInput::GetVyStrainRate3d(double* epsilonvy,double* xyz_list, GaussPenta* gauss){
|
---|
240 | int i,j;
|
---|
241 |
|
---|
242 | const int numgrids=6;
|
---|
243 | const int DOFVELOCITY=3;
|
---|
244 | double B[8][27];
|
---|
245 | double B_reduced[6][DOFVELOCITY*numgrids];
|
---|
246 | double velocity[numgrids][DOFVELOCITY];
|
---|
247 |
|
---|
248 | /*Get B matrix: */
|
---|
249 | GetBStokes(&B[0][0], xyz_list, gauss);
|
---|
250 | /*Create a reduced matrix of B to get rid of pressure */
|
---|
251 | for (i=0;i<6;i++){
|
---|
252 | for (j=0;j<3;j++){
|
---|
253 | B_reduced[i][j]=B[i][j];
|
---|
254 | }
|
---|
255 | for (j=4;j<7;j++){
|
---|
256 | B_reduced[i][j-1]=B[i][j];
|
---|
257 | }
|
---|
258 | for (j=8;j<11;j++){
|
---|
259 | B_reduced[i][j-2]=B[i][j];
|
---|
260 | }
|
---|
261 | for (j=12;j<15;j++){
|
---|
262 | B_reduced[i][j-3]=B[i][j];
|
---|
263 | }
|
---|
264 | for (j=16;j<19;j++){
|
---|
265 | B_reduced[i][j-4]=B[i][j];
|
---|
266 | }
|
---|
267 | for (j=20;j<23;j++){
|
---|
268 | B_reduced[i][j-5]=B[i][j];
|
---|
269 | }
|
---|
270 | }
|
---|
271 |
|
---|
272 | /*Here, we are computing the strain rate of (0,vy,0)*/
|
---|
273 | for(i=0;i<numgrids;i++){
|
---|
274 | velocity[i][0]=0.0;
|
---|
275 | velocity[i][1]=this->values[i];
|
---|
276 | velocity[i][2]=0.0;
|
---|
277 | }
|
---|
278 | /*Multiply B by velocity, to get strain rate: */
|
---|
279 | MatrixMultiply(&B_reduced[0][0],6,DOFVELOCITY*numgrids,0,&velocity[0][0],DOFVELOCITY*numgrids,1,0,epsilonvy,0);
|
---|
280 |
|
---|
281 | }
|
---|
282 | /*}}}*/
|
---|
283 | /*FUNCTION PentaVertexInput::GetVzStrainRate3d{{{1*/
|
---|
284 | void PentaVertexInput::GetVzStrainRate3d(double* epsilonvz,double* xyz_list, GaussPenta* gauss){
|
---|
285 | int i,j;
|
---|
286 |
|
---|
287 | const int numgrids=6;
|
---|
288 | const int DOFVELOCITY=3;
|
---|
289 | double B[8][27];
|
---|
290 | double B_reduced[6][DOFVELOCITY*numgrids];
|
---|
291 | double velocity[numgrids][DOFVELOCITY];
|
---|
292 |
|
---|
293 | /*Get B matrix: */
|
---|
294 | GetBStokes(&B[0][0], xyz_list, gauss);
|
---|
295 | /*Create a reduced matrix of B to get rid of pressure */
|
---|
296 | for (i=0;i<6;i++){
|
---|
297 | for (j=0;j<3;j++){
|
---|
298 | B_reduced[i][j]=B[i][j];
|
---|
299 | }
|
---|
300 | for (j=4;j<7;j++){
|
---|
301 | B_reduced[i][j-1]=B[i][j];
|
---|
302 | }
|
---|
303 | for (j=8;j<11;j++){
|
---|
304 | B_reduced[i][j-2]=B[i][j];
|
---|
305 | }
|
---|
306 | for (j=12;j<15;j++){
|
---|
307 | B_reduced[i][j-3]=B[i][j];
|
---|
308 | }
|
---|
309 | for (j=16;j<19;j++){
|
---|
310 | B_reduced[i][j-4]=B[i][j];
|
---|
311 | }
|
---|
312 | for (j=20;j<23;j++){
|
---|
313 | B_reduced[i][j-5]=B[i][j];
|
---|
314 | }
|
---|
315 | }
|
---|
316 |
|
---|
317 | /*Here, we are computing the strain rate of (0,0,vz)*/
|
---|
318 | for(i=0;i<numgrids;i++){
|
---|
319 | velocity[i][0]=0.0;
|
---|
320 | velocity[i][1]=0.0;
|
---|
321 | velocity[i][2]=this->values[i];
|
---|
322 | }
|
---|
323 |
|
---|
324 | /*Multiply B by velocity, to get strain rate: */
|
---|
325 | MatrixMultiply(&B_reduced[0][0],6,DOFVELOCITY*numgrids,0,&velocity[0][0],DOFVELOCITY*numgrids,1,0,epsilonvz,0);
|
---|
326 |
|
---|
327 | }
|
---|
328 | /*}}}*/
|
---|
329 | /*FUNCTION PentaVertexInput::GetVxStrainRate3dPattyn{{{1*/
|
---|
330 | void PentaVertexInput::GetVxStrainRate3dPattyn(double* epsilonvx,double* xyz_list, GaussPenta* gauss){
|
---|
331 |
|
---|
332 | int i;
|
---|
333 | const int numgrids=6;
|
---|
334 | const int NDOF2=2;
|
---|
335 | double B[5][NDOF2*numgrids];
|
---|
336 | double velocity[numgrids][NDOF2];
|
---|
337 |
|
---|
338 | /*Get B matrix: */
|
---|
339 | GetBPattyn(&B[0][0], xyz_list, gauss);
|
---|
340 |
|
---|
341 | /*Here, we are computing the strain rate of (vx,0)*/
|
---|
342 | for(i=0;i<numgrids;i++){
|
---|
343 | velocity[i][0]=this->values[i];
|
---|
344 | velocity[i][1]=0.0;
|
---|
345 | }
|
---|
346 |
|
---|
347 | /*Multiply B by velocity, to get strain rate: */
|
---|
348 | MatrixMultiply( &B[0][0],5,NDOF2*numgrids,0,
|
---|
349 | &velocity[0][0],NDOF2*numgrids,1,0,
|
---|
350 | epsilonvx,0);
|
---|
351 |
|
---|
352 | }
|
---|
353 | /*}}}*/
|
---|
354 | /*FUNCTION PentaVertexInput::GetVyStrainRate3dPattyn{{{1*/
|
---|
355 | void PentaVertexInput::GetVyStrainRate3dPattyn(double* epsilonvy,double* xyz_list, GaussPenta* gauss){
|
---|
356 |
|
---|
357 | int i;
|
---|
358 | const int numgrids=6;
|
---|
359 | const int NDOF2=2;
|
---|
360 | double B[5][NDOF2*numgrids];
|
---|
361 | double velocity[numgrids][NDOF2];
|
---|
362 |
|
---|
363 | /*Get B matrix: */
|
---|
364 | GetBPattyn(&B[0][0], xyz_list, gauss);
|
---|
365 |
|
---|
366 | /*Here, we are computing the strain rate of (0,vy)*/
|
---|
367 | for(i=0;i<numgrids;i++){
|
---|
368 | velocity[i][0]=0.0;
|
---|
369 | velocity[i][1]=this->values[i];
|
---|
370 | }
|
---|
371 |
|
---|
372 | /*Multiply B by velocity, to get strain rate: */
|
---|
373 | MatrixMultiply( &B[0][0],5,NDOF2*numgrids,0,
|
---|
374 | &velocity[0][0],NDOF2*numgrids,1,0,
|
---|
375 | epsilonvy,0);
|
---|
376 |
|
---|
377 | }
|
---|
378 | /*}}}*/
|
---|
379 | /*FUNCTION PentaVertexInput::ChangeEnum{{{1*/
|
---|
380 | void PentaVertexInput::ChangeEnum(int newenumtype){
|
---|
381 | this->enum_type=newenumtype;
|
---|
382 | }
|
---|
383 | /*}}}*/
|
---|
384 | /*FUNCTION PentaVertexInput::GetParameterAverage{{{1*/
|
---|
385 | void PentaVertexInput::GetParameterAverage(double* pvalue){
|
---|
386 | *pvalue=1./6.*(values[0]+values[1]+values[2]+values[3]+values[4]+values[5]);
|
---|
387 | }
|
---|
388 | /*}}}*/
|
---|
389 |
|
---|
390 | /*Intermediary*/
|
---|
391 | /*FUNCTION PentaVertexInput::SquareMin{{{1*/
|
---|
392 | void PentaVertexInput::SquareMin(double* psquaremin, bool process_units,Parameters* parameters){
|
---|
393 |
|
---|
394 | int i;
|
---|
395 | const int numnodes=6;
|
---|
396 | double valuescopy[numnodes];
|
---|
397 | double squaremin;
|
---|
398 |
|
---|
399 | /*First, copy values, to process units if requested: */
|
---|
400 | for(i=0;i<numnodes;i++)valuescopy[i]=this->values[i];
|
---|
401 |
|
---|
402 | /*Process units if requested: */
|
---|
403 | if(process_units)UnitConversion(&valuescopy[0],numnodes,IuToExtEnum,enum_type,parameters);
|
---|
404 |
|
---|
405 | /*Now, figure out minimum of valuescopy: */
|
---|
406 | squaremin=pow(valuescopy[0],2);
|
---|
407 | for(i=1;i<numnodes;i++){
|
---|
408 | if(pow(valuescopy[i],2)<squaremin)squaremin=pow(valuescopy[i],2);
|
---|
409 | }
|
---|
410 | /*Assign output pointers:*/
|
---|
411 | *psquaremin=squaremin;
|
---|
412 | }
|
---|
413 | /*}}}*/
|
---|
414 | /*FUNCTION PentaVertexInput::ConstrainMin{{{1*/
|
---|
415 | void PentaVertexInput::ConstrainMin(double minimum){
|
---|
416 |
|
---|
417 | int i;
|
---|
418 | const int numgrids=6;
|
---|
419 |
|
---|
420 | for(i=0;i<numgrids;i++) if (values[i]<minimum) values[i]=minimum;
|
---|
421 | }
|
---|
422 | /*}}}*/
|
---|
423 | /*FUNCTION PentaVertexInput::InfinityNorm{{{1*/
|
---|
424 | double PentaVertexInput::InfinityNorm(void){
|
---|
425 |
|
---|
426 | /*Output*/
|
---|
427 | const int numgrids=6;
|
---|
428 | double norm=0;
|
---|
429 |
|
---|
430 | for(int i=0;i<numgrids;i++) if(fabs(values[i])>norm) norm=fabs(values[i]);
|
---|
431 | return norm;
|
---|
432 | }
|
---|
433 | /*}}}*/
|
---|
434 | /*FUNCTION PentaVertexInput::Max{{{1*/
|
---|
435 | double PentaVertexInput::Max(void){
|
---|
436 |
|
---|
437 | const int numgrids=6;
|
---|
438 | double max=values[0];
|
---|
439 |
|
---|
440 | for(int i=1;i<numgrids;i++){
|
---|
441 | if(values[i]>max) max=values[i];
|
---|
442 | }
|
---|
443 | return max;
|
---|
444 | }
|
---|
445 | /*}}}*/
|
---|
446 | /*FUNCTION PentaVertexInput::MaxAbs{{{1*/
|
---|
447 | double PentaVertexInput::MaxAbs(void){
|
---|
448 |
|
---|
449 | const int numgrids=6;
|
---|
450 | double max=fabs(values[0]);
|
---|
451 |
|
---|
452 | for(int i=1;i<numgrids;i++){
|
---|
453 | if(fabs(values[i])>max) max=fabs(values[i]);
|
---|
454 | }
|
---|
455 | return max;
|
---|
456 | }
|
---|
457 | /*}}}*/
|
---|
458 | /*FUNCTION PentaVertexInput::Min{{{1*/
|
---|
459 | double PentaVertexInput::Min(void){
|
---|
460 |
|
---|
461 | const int numgrids=6;
|
---|
462 | double min=values[0];
|
---|
463 |
|
---|
464 | for(int i=1;i<numgrids;i++){
|
---|
465 | if(values[i]<min) min=values[i];
|
---|
466 | }
|
---|
467 | return min;
|
---|
468 | }
|
---|
469 | /*}}}*/
|
---|
470 | /*FUNCTION PentaVertexInput::MinAbs{{{1*/
|
---|
471 | double PentaVertexInput::MinAbs(void){
|
---|
472 |
|
---|
473 | const int numgrids=6;
|
---|
474 | double min=fabs(values[0]);
|
---|
475 |
|
---|
476 | for(int i=1;i<numgrids;i++){
|
---|
477 | if(fabs(values[i])<min) min=fabs(values[i]);
|
---|
478 | }
|
---|
479 | return min;
|
---|
480 | }
|
---|
481 | /*}}}*/
|
---|
482 | /*FUNCTION PentaVertexInput::Scale{{{1*/
|
---|
483 | void PentaVertexInput::Scale(double scale_factor){
|
---|
484 |
|
---|
485 | int i;
|
---|
486 | const int numgrids=6;
|
---|
487 |
|
---|
488 | for(i=0;i<numgrids;i++)values[i]=values[i]*scale_factor;
|
---|
489 | }
|
---|
490 | /*}}}*/
|
---|
491 | /*FUNCTION PentaVertexInput::AXPY{{{1*/
|
---|
492 | void PentaVertexInput::AXPY(Input* xinput,double scalar){
|
---|
493 |
|
---|
494 | int i;
|
---|
495 | const int numgrids=6;
|
---|
496 |
|
---|
497 | /*xinput is of the same type, so cast it: */
|
---|
498 |
|
---|
499 | /*Carry out the AXPY operation depending on type:*/
|
---|
500 | switch(xinput->Enum()){
|
---|
501 |
|
---|
502 | case PentaVertexInputEnum:{
|
---|
503 | PentaVertexInput* cast_input=(PentaVertexInput*)xinput;
|
---|
504 | for(i=0;i<numgrids;i++)this->values[i]=this->values[i]+scalar*(cast_input->values[i]);}
|
---|
505 | return;
|
---|
506 | case ControlInputEnum:{
|
---|
507 | ControlInput* cont_input=(ControlInput*)xinput;
|
---|
508 | if(cont_input->values->Enum()!=PentaVertexInputEnum) _error_("not supported yet");
|
---|
509 | PentaVertexInput* cast_input=(PentaVertexInput*)cont_input->values;
|
---|
510 | for(i=0;i<numgrids;i++)this->values[i]=this->values[i]+scalar*(cast_input->values[i]);}
|
---|
511 | return;
|
---|
512 | default:
|
---|
513 | _error_("not implemented yet");
|
---|
514 | }
|
---|
515 |
|
---|
516 | }
|
---|
517 | /*}}}*/
|
---|
518 | /*FUNCTION PentaVertexInput::Constrain{{{1*/
|
---|
519 | void PentaVertexInput::Constrain(double cm_min, double cm_max){
|
---|
520 |
|
---|
521 | int i;
|
---|
522 | const int numgrids=6;
|
---|
523 |
|
---|
524 | if(!isnan(cm_min)) for(i=0;i<numgrids;i++)if (this->values[i]<cm_min)this->values[i]=cm_min;
|
---|
525 | if(!isnan(cm_max)) for(i=0;i<numgrids;i++)if (this->values[i]>cm_max)this->values[i]=cm_max;
|
---|
526 |
|
---|
527 | }
|
---|
528 | /*}}}*/
|
---|
529 | /*FUNCTION PentaVertexInput::Extrude{{{1*/
|
---|
530 | void PentaVertexInput::Extrude(void){
|
---|
531 |
|
---|
532 | int i;
|
---|
533 |
|
---|
534 | /*First 3 values copied on 3 last values*/
|
---|
535 | for(i=0;i<3;i++) this->values[3+i]=this->values[i];
|
---|
536 |
|
---|
537 | }
|
---|
538 | /*}}}*/
|
---|
539 | /*FUNCTION PentaVertexInput::VerticallyIntegrate{{{1*/
|
---|
540 | void PentaVertexInput::VerticallyIntegrate(Input* thickness_input){
|
---|
541 |
|
---|
542 | /*Intermediaries*/
|
---|
543 | int i;
|
---|
544 | const int numgrids = 6;
|
---|
545 | int num_thickness_values;
|
---|
546 | double *thickness_values = NULL;
|
---|
547 |
|
---|
548 | /*Check that input provided is a thickness*/
|
---|
549 | if (thickness_input->EnumType()!=ThicknessEnum) _error_("Input provided is not a Thickness (enum_type is %s)",EnumToString(thickness_input->EnumType()));
|
---|
550 |
|
---|
551 | /*Get Thickness value pointer*/
|
---|
552 | thickness_input->GetValuesPtr(&thickness_values,&num_thickness_values);
|
---|
553 |
|
---|
554 | /*vertically integrate depending on type:*/
|
---|
555 | switch(thickness_input->Enum()){
|
---|
556 |
|
---|
557 | case PentaVertexInputEnum:
|
---|
558 | for(i=0;i<3;i++){
|
---|
559 | this->values[i]=0.5*(this->values[i]+this->values[i+3]) * thickness_values[i];
|
---|
560 | this->values[i+3]=this->values[i];
|
---|
561 | }
|
---|
562 | return;
|
---|
563 |
|
---|
564 | default:
|
---|
565 | _error_("not implemented yet");
|
---|
566 | }
|
---|
567 | }
|
---|
568 | /*}}}*/
|
---|
569 | /*FUNCTION PentaVertexInput::PointwiseDivide{{{1*/
|
---|
570 | Input* PentaVertexInput::PointwiseDivide(Input* inputB){
|
---|
571 |
|
---|
572 | /*Ouput*/
|
---|
573 | PentaVertexInput* outinput=NULL;
|
---|
574 |
|
---|
575 | /*Intermediaries*/
|
---|
576 | int i;
|
---|
577 | PentaVertexInput *xinputB = NULL;
|
---|
578 | int B_numvalues;
|
---|
579 | double *B_values = NULL;
|
---|
580 | const int numgrids = 6;
|
---|
581 | double AdotBvalues[numgrids];
|
---|
582 |
|
---|
583 | /*Check that inputB is of the same type*/
|
---|
584 | if (inputB->Enum()!=PentaVertexInputEnum) _error_("Operation not permitted because inputB is of type %s",EnumToString(inputB->Enum()));
|
---|
585 | xinputB=(PentaVertexInput*)inputB;
|
---|
586 |
|
---|
587 | /*Create point wise sum*/
|
---|
588 | for(i=0;i<numgrids;i++){
|
---|
589 | _assert_(xinputB->values[i]!=0);
|
---|
590 | AdotBvalues[i]=this->values[i]/xinputB->values[i];
|
---|
591 | }
|
---|
592 |
|
---|
593 | /*Create new Penta vertex input (copy of current input)*/
|
---|
594 | outinput=new PentaVertexInput(this->enum_type,&AdotBvalues[0]);
|
---|
595 |
|
---|
596 | /*Return output pointer*/
|
---|
597 | return outinput;
|
---|
598 |
|
---|
599 | }
|
---|
600 | /*}}}*/
|
---|
601 | /*FUNCTION PentaVertexInput::GetVectorFromInputs{{{1*/
|
---|
602 | void PentaVertexInput::GetVectorFromInputs(Vec vector,int* doflist){
|
---|
603 |
|
---|
604 | const int numvertices=6;
|
---|
605 | VecSetValues(vector,numvertices,doflist,(const double*)this->values,INSERT_VALUES);
|
---|
606 |
|
---|
607 | } /*}}}*/
|
---|
608 | /*FUNCTION PentaVertexInput::GetValuesPtr{{{1*/
|
---|
609 | void PentaVertexInput::GetValuesPtr(double** pvalues,int* pnum_values){
|
---|
610 |
|
---|
611 | *pvalues=this->values;
|
---|
612 | *pnum_values=6;
|
---|
613 |
|
---|
614 | }
|
---|
615 | /*}}}*/
|
---|