00001 #ifndef DPL_H
00002 #define DPL_H
00003
00004 #include "genfile.h"
00005 #include "alias.h"
00006
00007
00008
00009
00010
00011 class dplmat
00012 {
00013 public:
00014 dplmat (void);
00015 ~dplmat (void);
00016 void read (XFILE *in);
00017 void print (FILE *out);
00018 void compute_ages (long ipp,long ido);
00019 void give_ages (double &t_age_dt,double &t_age,double &tl_age,double &th_age,double &dt,double &maxtime,long &napptime,long ipp);
00020 long give_nceqother (long ipp);
00021 long give_ncother (long ipp);
00022 long give_nret_time (void);
00023
00024 void give_rettimes (vector &rettimes,long n_ret_times,long ipp);
00025
00026 void store_emu_eqother(vector &e_mu,long n_ret_times,long ipp,long ido);
00027 void give_emu_eqother(vector &e_mu,long n_ret_times,long ipp,long ido);
00028
00029 void store_ym_eqother(double ym,long ipp,long ido);
00030 double give_ym_eqother(long ipp,long ido);
00031
00032 void store_ym_old_eqother(double ym,long ipp,long ido);
00033 double give_ym_old_eqother(long ipp,long ido);
00034
00035 void give_hidden_strains_eqother(matrix &gamma_mu,long ipp,long ido);
00036 void store_hidden_strains_eqother(matrix &gamma_mu,long ipp,long ido);
00037
00038 void give_stresses_eqother(vector &sigma,long ipp,long ido);
00039 void store_stresses_eqother(vector &sigma,long ipp,long ido);
00040
00041 void give_stresses_other(vector &sigma,long ipp,long ido);
00042 void store_stresses_other(vector &sigma,long ipp,long ido);
00043
00044 void give_dstresses_eqother(vector &dsigma,long ipp,long ido);
00045 void store_dstresses_eqother(vector &dsigma,long ipp,long ido);
00046
00047 void give_strains_eqother(vector &eps,long ipp,long ido);
00048 void store_strains_eqother(vector &eps,long ipp,long ido);
00049
00050 void give_creepdstrains_eqother(vector &deps_cr,long ipp,long ido);
00051 void store_creepdstrains_eqother(vector &deps_cr,long ipp,long ido);
00052
00053 void give_irrdstrains_eqother(vector &deps_sh,long ipp,long ido);
00054 void store_irrdstrains_eqother(vector &deps_sh,long ipp,long ido);
00055
00056 long give_napproxtime(long ipp);
00057
00058 double double_power_law (double tt, double t,long ipp,long ido);
00059 double give_q1();
00060
00061 double creep_give_actual_ft (long ipp,long im,long ido);
00062
00063 void addirrstrains_eqother (vector &deps,long ipp, long ido);
00064 void giveirrstrains_eqother (long ipp, long ido, vector &epscr);
00065
00066 void store_agstrains_eqother(long ipp,long ido,vector &eps_ag);
00067 void give_agstrains_eqother(long ipp,long ido,vector &eps_ag);
00068
00069 double get_othervalue(long compother,long ipp);
00070 void print_othervalue_name(FILE *out,long compother);
00071
00072
00073
00074
00075
00076
00077 double q1;
00078
00079
00080 long type_e;
00081
00082
00083 double ro;
00084
00085 double e28;
00086
00087 double fc;
00088
00089 double wc;
00090
00091 double sc;
00092
00093 double gc;
00094
00095 double a1;
00096
00097
00098 double tb_time;
00099
00100 double th_time;
00101
00102 long napproxtime;
00103
00104 long nRetTime;
00105
00106 long type_rt;
00107
00108 int ft_flag;
00109
00110 double ft_ratio;
00111
00112 double ft;
00113
00114
00115 double e0;
00116
00117
00118 double previoustime;
00119
00120 double actualtime;
00121
00122 double dtb;
00123
00124 double tb_age_dt,tb_age,tbl_age,tbh_age,maxtimeb;
00125 long napptimeb;
00126
00127 double *retTime;
00128 double *emu;
00129 double timeMax;
00130 };
00131
00132 #endif