TimeAccelerogram Struct Reference

#include <users_modules/basic_finite_elements/src/TimeForceScale.hpp>

Inheritance diagram for TimeAccelerogram:

Collaboration diagram for TimeAccelerogram:

Public Member Functions
	TimeAccelerogram (string name="-my_accelerogram")
MoFEMErrorCode	timeData ()
MoFEMErrorCode	scaleNf (const FEMethod *fe, VectorDouble &Nf)
Public Member Functions inherited from MethodForForceScaling
virtual MoFEMErrorCode	scaleNf (const FEMethod *fe, VectorDouble &Nf)=0
virtual MoFEMErrorCode	getForceScale (const double ts_t, double &scale)
virtual	~MethodForForceScaling ()

Public Attributes
std::map< double, VectorDouble >	tSeries
int	readFile
int	debug
string	nAme

Additional Inherited Members
Static Public Member Functions inherited from MethodForForceScaling
static MoFEMErrorCode	applyScale (const FEMethod *fe, boost::ptr_vector< MethodForForceScaling > &methods_op, VectorDouble &nf)
static MoFEMErrorCode	applyScale (const FEMethod *fe, boost::shared_ptr< MethodForForceScaling > method_op, VectorDouble &nf)

Detailed Description

Examples

nonlinear_dynamics.cpp.

Definition at line 133 of file TimeForceScale.hpp.

Constructor & Destructor Documentation

TimeAccelerogram()

TimeAccelerogram::TimeAccelerogram ( string  name = "-my_accelerogram" )

inline

Definition at line 139 of file TimeForceScale.hpp.

      : readFile(0), debug(0), nAme(name) {
 
    ierr = timeData();
    CHKERRABORT(PETSC_COMM_WORLD, ierr);
  }

Member Function Documentation

scaleNf()

MoFEMErrorCode TimeAccelerogram::scaleNf ( const FEMethod *  fe, VectorDouble &  Nf  )

inlinevirtual

Implements MethodForForceScaling.

Definition at line 196 of file TimeForceScale.hpp.

                                                               {
    MoFEMFunctionBeginHot;
    if (readFile == 0) {
      SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY, "data file not read");
    }
    double ts_t = fe->ts_t;
    VectorDouble acc(3);
    VectorDouble acc0 = tSeries[0], acc1(3);
    double t0 = 0, t1, dt;
    std::map<double, VectorDouble>::iterator tit = tSeries.begin();
    for (; tit != tSeries.end(); tit++) {
      if (tit->first > ts_t) {
        t1 = tit->first;
        acc1 = tit->second;
        dt = ts_t - t0;
        acc = acc0 + ((acc1 - acc0) / (t1 - t0)) * dt;
        break;
      }
      t0 = tit->first;
      acc0 = tit->second;
      acc = acc0;
    }
    Nf += acc;
    MoFEMFunctionReturnHot(0);
  }

timeData()

MoFEMErrorCode TimeAccelerogram::timeData ( )

inline

Definition at line 146 of file TimeForceScale.hpp.

                            {
    MoFEMFunctionBeginHot;
    char time_file_name[255];
    PetscBool flg = PETSC_TRUE;
    ierr = PetscOptionsGetString(PETSC_NULL, PETSC_NULL, nAme.c_str(),
                                 time_file_name, 255, &flg);
    CHKERRG(ierr);
    if (flg != PETSC_TRUE) {
      SETERRQ1(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
               "*** ERROR %s (time_data FILE NEEDED)", nAme.c_str());
    }
    FILE *time_data = fopen(time_file_name, "r");
    if (time_data == NULL) {
      SETERRQ1(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
               "*** ERROR data file < %s > open unsuccessful", time_file_name);
    }
    double no1 = 0.0;
    VectorDouble no2(3);
    tSeries[no1] = no2;
    while (!feof(time_data)) {
      int n =
          fscanf(time_data, "%lf %lf %lf %lf", &no1, &no2[0], &no2[1], &no2[2]);
      if (n < 0) {
        fgetc(time_data);
        continue;
      }
      if (n != 4) {
        SETERRQ1(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                 "*** ERROR read data file error (check input time data file) "
                 "{ n = %d }",
                 n);
      }
      tSeries[no1] = no2;
    }
    int r = fclose(time_data);
    if (debug) {
      std::map<double, VectorDouble>::iterator tit = tSeries.begin();
      for (; tit != tSeries.end(); tit++) {
        PetscPrintf(PETSC_COMM_WORLD,
                    "** read accelerogram %3.2e time %3.2e %3.2e %3.2e\n",
                    tit->first, tit->second[0], tit->second[1], tit->second[2]);
      }
    }
    if (r != 0) {
      SETERRQ(PETSC_COMM_SELF, 1, "*** ERROR file close unsuccessful");
    }
    readFile = 1;
    MoFEMFunctionReturnHot(0);
  }

Member Data Documentation

debug

int TimeAccelerogram::debug

Definition at line 136 of file TimeForceScale.hpp.

nAme

string TimeAccelerogram::nAme

Definition at line 137 of file TimeForceScale.hpp.

readFile

int TimeAccelerogram::readFile

Definition at line 136 of file TimeForceScale.hpp.

tSeries

std::map<double, VectorDouble> TimeAccelerogram::tSeries

Definition at line 135 of file TimeForceScale.hpp.

---

The documentation for this struct was generated from the following file:

• users_modules/basic_finite_elements/src/TimeForceScale.hpp