00001 #ifndef DKT_H
00002 #define DKT_H
00003
00004 #include "alias.h"
00005 struct matrix;
00006 struct vector;
00007 struct ivector;
00008
00009 class dktelem
00010 {
00011 public:
00012 dktelem (void);
00013 ~dktelem (void);
00014
00015 double approx (vector &areacoord,vector &nodval);
00016
00017 void geom_matrix (matrix &gm,vector &x,vector &y,vector &l);
00018 void transf_matrix (ivector &nodes,matrix &tmat);
00019 void dbmat (matrix &d,matrix &db,double t);
00020 void res_stiffness_matrix (long eid,matrix &sm);
00021 void stiffness_matrix (long eid,long ri,long ci,matrix &sm,vector &x,vector &y);
00022 void nodecoord (vector &xi,vector &eta);
00023 void appval (vector &l, long fi,long nc,vector &eps,double **val);
00024
00025 void ip_strains (long lcid,long eid,long ri,long ci,vector &x,vector &y,vector &r);
00026 void nod_strains_ip (long lcid,long eid,long ri,long ci);
00027 void res_ip_strains (long lcid,long eid);
00028 void res_ip_stresses (long lcid,long eid);
00029 void nod_stresses_ip (long lcid,long eid,long ri,long ci);
00030
00031 void strains (long lcid,long eid,long ri,long ci);
00032 void stresses (long lcid,long eid,long ri, long ci);
00033
00034 void compute_nlstress (long lcid,long eid,long ri,long ci);
00035 void compute_nlstressincr (long lcid,long eid,long ri,long ci);
00036
00037 void internal_forces (long lcid,long eid,long ri,long ci,vector &ifor,vector &x,vector &y);
00038 void res_internal_forces (long lcid,long eid,vector &ifor);
00039 void incr_internal_forces (long lcid,long eid,long ri,long ci,vector &ifor,vector &x,vector &y);
00040 void res_incr_internal_forces (long lcid,long eid,vector &ifor);
00041
00042 void elem_integration (integratedquant iq,long lcid,long eid,long ri,long ci,vector &nv,vector &x,vector &y);
00043
00044 void nodeforces (long eid,long *le,double *nv,vector &nf);
00045 void areaforces (long eid,double *nv,vector &nf);
00046 void inicipval(long eid, long ri, long ci, matrix &nodval, inictype *ictn);
00047
00048
00049
00050 long ndofe;
00051
00052 long nne;
00053
00054 long tnip;
00055
00056 long *ncomp;
00057 long *cncomp;
00058
00059 long tncomp;
00060
00061 long napfun;
00062
00063 long ned;
00064
00065 long nned;
00066
00067 long nsurf;
00068
00069 long nnsurf;
00070
00071 long **intordsm;
00072
00073 long **nip;
00074
00075 long nb;
00076
00077 long intordmm;
00078
00079 strastrestate ssst;
00080 };
00081
00082 #endif