00001 #include "crseclayer.h"
00002 #include "global.h"
00003 #include "stochdriver.h"
00004
00005
00006
00007
00008
00009
00010 crseclayer::crseclayer (void)
00011 {
00012 nl=0; layth = layz = NULL; rho=0.0; m=0.0; th = 0.0;
00013 }
00014
00015
00016
00017
00018
00019
00020 crseclayer::~crseclayer (void)
00021 {
00022 delete [] layz;
00023 delete [] layth;
00024 }
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038 void crseclayer::read (XFILE *in)
00039 {
00040 long i;
00041
00042 switch (Mp->tprob){
00043 case linear_statics:
00044 case mat_nonlinear_statics:{
00045 xfscanf (in,"%ld",&nl);
00046 layth = new double[nl];
00047 layz = new double[nl];
00048
00049 for (i=0;i<nl;i++){
00050 xfscanf (in,"%le",&layth[i]);
00051 }
00052 break;
00053 }
00054 case eigen_dynamics:{
00055
00056 break;
00057 }
00058 case forced_dynamics:{
00059 break;
00060 }
00061 case geom_nonlinear_statics:{
00062 break;
00063 }
00064 case earth_pressure:{
00065 break;
00066 }
00067 case mech_timedependent_prob:
00068 case growing_mech_structure:{
00069 break;
00070 }
00071 case layered_linear_statics:{
00072 break;
00073 }
00074 case lin_floating_subdomain:{
00075 break;
00076 }
00077 case nonlin_floating_subdomain:{
00078 break;
00079 }
00080 case hemivar_inequal:{
00081 break;
00082 }
00083 case load_balancing:{
00084 break;
00085 }
00086 default:{
00087 print_err("unknown problem type is required", __FILE__, __LINE__, __func__);
00088 }
00089 }
00090 zcoordinates();
00091 }
00092
00093
00094
00095
00096
00097
00098
00099
00100 void crseclayer::zcoordinates ()
00101 {
00102 long i;
00103 double p=0.0;
00104
00105 for (i=0;i<nl;i++){
00106 th += layth[i];
00107 }
00108
00109 for (i=0;i<nl;i++){
00110 layz[i] = th/2-p-layth[i]/2;
00111 p += layth[i];
00112 }
00113 }
00114
00115
00116
00117
00118
00119
00120
00121
00122
00123
00124
00125
00126
00127 void crseclayer::changeparam (atsel &atcs,vector &val)
00128 {
00129 long i;
00130
00131 for (i=0;i<atcs.num;i++){
00132 switch (atcs.atrib[i]){
00133 case 1:{
00134 rho=val[i];
00135 break;
00136 }
00137 default:{
00138 print_err("wrong number of atribute", __FILE__, __LINE__, __func__);
00139 }
00140 }
00141 }
00142 }