source: issm/trunk/src/c/objects/Penta.h@ 2333

Last change on this file since 2333 was 2333, checked in by Eric.Larour, 15 years ago

Big commit: created Numpar, new object to hold solution parameters necessary
in elements. This lead to creating FetchParams and WriteParams, which now writes
a DataSet* parameters to a matlab workspace structure and vice versa. We now always have
a DataSet* parametes inside the x code. Introduced also a new configuration phase for the paramters
dataset. Also, rewrote the io/ using overloaded functions IoModelFetchData, FetchData and WriteData.
Much cleaner and less error prone, as arguments are consistently checked.

File size: 6.5 KB
Line 
1/*! \file Penta.h
2 * \brief: header file for penta object
3 */
4
5#ifndef _PENTA_H
6#define _PENTA_H
7
8#include "./Object.h"
9#include "./Element.h"
10#include "./Matpar.h"
11#include "./Matice.h"
12#include "./Node.h"
13#include "./Tria.h"
14#include "./ParameterInputs.h"
15
16class Penta: public Element{
17
18 private:
19 int id;
20
21 /*nodes: */
22 int node_ids[6]; //node ids
23 Node* nodes[6]; //node pointers
24 int node_offsets[6]; //node offsets in nodes dataset
25
26 /*materials: */
27 int mid;
28 Matice* matice;
29 int matice_offset;
30
31 int mparid;
32 Matpar* matpar;
33 int matpar_offset;
34
35 int numparid;
36 Numpar* numpar;
37 int numpar_offset;
38
39
40 double h[6];
41 double s[6];
42 double b[6];
43 double k[6];
44 double melting[6];
45 double accumulation[6];
46 int friction_type;
47 double p;
48 double q;
49 int shelf;
50 int onbed;
51 int onsurface;
52 bool onwater;
53 int collapse;
54 double geothermalflux[6];
55 int thermal_steadystate;
56
57 public:
58
59 Penta();
60 Penta( int id, int mid, int mparid, int numparid, int node_ids[6], double h[6], double s[6], double b[6], double k[6], int friction_type,
61 double p, double q, int shelf, int onbed, int onsurface, int collapse, double melting[6], double accumulation[6], double geothermalflux[6],
62 int thermal_steadystate,bool onwater);
63 ~Penta();
64
65 void Echo();
66 void DeepEcho();
67 void Marshall(char** pmarshalled_dataset);
68 int MarshallSize();
69 char* GetName();
70 void Demarshall(char** pmarshalled_dataset);
71 int Enum();
72 int GetId();
73 int MyRank();
74 void Configure(void* loads,void* nodes,void* materials,void* parameters);
75 void CreateKMatrix(Mat Kgg,void* inputs,int analysis_type,int sub_analysis_type);
76 void CreateKMatrixDiagnosticHoriz( Mat Kgg, void* inputs, int analysis_type,int sub_analysis_type);
77 void CreateKMatrixDiagnosticVert( Mat Kgg, void* inputs, int analysis_type,int sub_analysis_type);
78 void CreatePVector(Vec pg, void* inputs, int analysis_type,int sub_analysis_type);
79 void UpdateFromInputs(void* inputs);
80 void GetDofList(int* doflist,int* pnumberofdofs);
81 void GetDofList1(int* doflist);
82 void* GetMatPar();
83 int GetShelf();
84 void GetNodes(void** nodes);
85 int GetOnBed();
86 void Du(Vec du_g,void* inputs,int analysis_type,int sub_analysis_type);
87 void Gradj(Vec grad_g,void* inputs,int analysis_type,int sub_analysis_type,char* control_type);
88 void GradjDrag(Vec grad_g,void* inputs,int analysis_type,int sub_analysis_type);
89 void GradjB(Vec grad_g,void* inputs,int analysis_type,int sub_analysis_type);
90 double Misfit(void* inputs,int analysis_type,int sub_analysis_type);
91
92 void GetThicknessList(double* thickness_list);
93 void GetBedList(double* bed_list);
94 Object* copy();
95 void* SpawnTria(int g0, int g1, int g2);
96
97 void GetStrainRate(double* epsilon, double* velocity, double* xyz_list, double* gauss_l1l2l3l4);
98 void GetB(double* pB, double* xyz_list, double* gauss_l1l2l3l4);
99 void GetBPrime(double* B, double* xyz_list, double* gauss_l1l2l3l4);
100 void GetB_vert(double* B, double* xyz_list, double* gauss_l1l2l3l4);
101 void GetBPrime_vert(double* B, double* xyz_list, double* gauss_l1l2l3l4);
102 void GetJacobianDeterminant(double* Jdet, double* xyz_list,double* gauss_l1l2l3l4);
103 void GetNodalFunctionsDerivativesBasic(double* dh1dh2dh3dh4dh5dh6_basic,double* xyz_list, double* gauss_l1l2l3l4);
104 void GetJacobian(double* J, double* xyz_list,double* gauss_l1l2l3l4);
105 void GetNodalFunctionsDerivativesParams(double* dl1dl2dl3dl4dl5dl6,double* gauss_l1l2l3l4);
106 void GetJacobianInvert(double* Jinv, double* xyz_list,double* gauss_l1l2l3l4);
107 void CreatePVectorDiagnosticHoriz( Vec pg, void* inputs,int analysis_type,int sub_analysis_type);
108 void CreatePVectorDiagnosticVert( Vec pg, void* inputs,int analysis_type,int sub_analysis_type);
109 void GetParameterValue(double* pvalue, double* v_list,double* gauss_l1l2l3l4);
110 void GetParameterDerivativeValue(double* p, double* p_list,double* xyz_list, double* gauss_l1l2l3l4);
111 void GetNodalFunctions(double* l1l2l3l4l5l6, double* gauss_l1l2l3l4);
112 void FieldExtrude(Vec field,double* field_serial,char* field_name, int iscollapsed);
113 void ComputePressure(Vec p_g);
114 void CreateKMatrixSlopeCompute(Mat Kgg,void* vinputs,int analysis_type,int sub_analysis_type);
115 void CreatePVectorSlopeCompute( Vec pg, void* vinputs, int analysis_type,int sub_analysis_type);
116 void CreateKMatrixPrognostic(Mat Kgg,void* vinputs,int analysis_type,int sub_analysis_type);
117 void CreatePVectorPrognostic( Vec pg, void* vinputs, int analysis_type,int sub_analysis_type);
118
119 void CreateKMatrixDiagnosticStokes( Mat Kgg, void* vinputs, int analysis_type,int sub_analysis_type);
120 void CreatePVectorDiagnosticStokes( Vec pg, void* vinputs,int analysis_type,int sub_analysis_type);
121 void ReduceMatrixStokes(double* Ke_reduced, double* Ke_temp);
122 void GetMatrixInvert(double* Ke_invert, double* Ke);
123 void SurfaceNormal(double* surface_normal, double xyz_list[3][3]);
124 void GetStrainRateStokes(double* epsilon, double* velocity, double* xyz_list, double* gauss_coord);
125 void GetBStokes(double* B, double* xyz_list, double* gauss_coord);
126 void GetBprimeStokes(double* B_prime, double* xyz_list, double* gauss_coord);
127 void GetLStokes(double* LStokes, double* gauss_coord_tria);
128 void GetLprimeStokes(double* LprimeStokes, double* xyz_list, double* gauss_coord_tria, double* gauss_coord);
129 void GetNodalFunctionsDerivativesBasicStokes(double* dh1dh7_basic,double* xyz_list, double* gauss_coord);
130 void GetNodalFunctionsDerivativesParamsStokes(double* dl1dl7,double* gauss_coord);
131 void ReduceVectorStokes(double* Pe_reduced, double* Ke_temp, double* Pe_temp);
132 void GetNodalFunctionsStokes(double* l1l7, double* gauss_coord);
133 void CreateKMatrixThermal(Mat Kgg,void* inputs,int analysis_type,int sub_analysis_type);
134 void GetB_conduct(double* B_conduct, double* xyz_list, double* gauss_coord);
135 void GetB_advec(double* B_advec, double* xyz_list, double* gauss_coord);
136 void GetBprime_advec(double* Bprime_advec, double* xyz_list, double* gauss_coord);
137 void GetB_artdiff(double* B_artdiff, double* xyz_list, double* gauss_coord);
138 void CreateKMatrixMelting(Mat Kgg,void* inputs,int analysis_type,int sub_analysis_type);
139 void CreatePVectorThermal( Vec pg, void* vinputs,int analysis_type,int sub_analysis_type);
140 void CreatePVectorMelting( Vec pg, void* vinputs,int analysis_type,int sub_analysis_type);
141 void GetPhi(double* phi, double* epsilon, double viscosity);
142 double MassFlux(double* segment,double* ug);
143
144
145};
146#endif /* _PENTA_H */
147
148
Note: See TracBrowser for help on using the repository browser.