PEER NEES NEESit

• HOME
• USER
• DEVELOPER
• PROJECTS
• SUPPORT
• SITE MAP

• Dev Doc
• API
• Source
• Download
• Builds
• Bug Reports
• Message Board

ElementRecorder.cpp Go to the documentation of this file. /* ****************************************************************** ** ** OpenSees - Open System for Earthquake Engineering Simulation ** ** Pacific Earthquake Engineering Research Center ** ** ** ** ** ** (C) Copyright 1999, The Regents of the University of California ** ** All Rights Reserved. ** ** ** ** Commercial use of this program without express permission of the ** ** University of California, Berkeley, is strictly prohibited. See ** ** file 'COPYRIGHT' in main directory for information on usage and ** ** redistribution, and for a DISCLAIMER OF ALL WARRANTIES. ** ** ** ** Developed by: ** ** Frank McKenna (fmckenna@ce.berkeley.edu) ** ** Gregory L. Fenves (fenves@ce.berkeley.edu) ** ** Filip C. Filippou (filippou@ce.berkeley.edu) ** ** ** ** ****************************************************************** */ // $Revision: 1.26 $ // $Date: 2006/08/04 22:33:53 $ // $Source: /usr/local/cvs/OpenSees/SRC/recorder/ElementRecorder.cpp,v $ // Written: fmk // Created: 09/99 // // Description: This file contains the class implementatation of ElementRecorder. // // What: "@(#) ElementRecorder.C, revA" #include <ElementRecorder.h> #include <Domain.h> #include <Element.h> #include <Matrix.h> #include <Vector.h> #include <ID.h> #include <string.h> #include <Response.h> #include <FE_Datastore.h> #include <OPS_Globals.h> #include <Message.h> #include <Channel.h> #include <FEM_ObjectBroker.h> ElementRecorder::ElementRecorder() :Recorder(RECORDER_TAGS_ElementRecorder), numEle(0), eleID(0), theResponses(0), theDomain(0), theOutputHandler(0), echoTimeFlag(true), deltaT(0), nextTimeStampToRecord(0.0), data(0), initializationDone(false), responseArgs(0), numArgs(0) { } ElementRecorder::ElementRecorder(const ID &ele, const char **argv, int argc, bool echoTime, Domain &theDom, OPS_Stream &theOutputHandler, double dT) :Recorder(RECORDER_TAGS_ElementRecorder), numEle(ele.Size()), eleID(ele), theResponses(0), theDomain(&theDom), theOutputHandler(&theOutputHandler), echoTimeFlag(echoTime), deltaT(dT), nextTimeStampToRecord(0.0), data(0), initializationDone(false), responseArgs(0), numArgs(0) { // // create a copy of the response request // responseArgs = new char *[argc]; if (responseArgs == 0) { opserr << "ElementRecorder::ElementRecorder() - out of memory\n"; numEle = 0; } for (int i=0; i<argc; i++) { responseArgs[i] = new char[strlen(argv[i])+1]; if (responseArgs[i] == 0) { delete [] responseArgs; opserr << "ElementRecorder::ElementRecorder() - out of memory\n"; numEle = 0; } strcpy(responseArgs[i], argv[i]); } numArgs = argc; } ElementRecorder::~ElementRecorder() { // // invoke the destructor on the response objects // if (theResponses != 0) { for (int i = 0; i < numEle; i++) delete theResponses[i]; delete [] theResponses; } if (data != 0) delete data; // // invoke destructor on response args // for (int i=0; i<numArgs; i++) delete [] responseArgs[i]; delete [] responseArgs; theOutputHandler->endTag(); // Data theOutputHandler->endTag(); // OpenSeesOutput if (theOutputHandler != 0) delete theOutputHandler; } int ElementRecorder::record(int commitTag, double timeStamp) { // // check that initialization has been done // if (initializationDone == false) { if (this->initialize() != 0) { opserr << "ElementRecorder::record() - failed to initialize\n"; return -1; } } int result = 0; if (deltaT == 0.0 || timeStamp >= nextTimeStampToRecord) { if (deltaT != 0.0) nextTimeStampToRecord = timeStamp + deltaT; int loc = 0; if (echoTimeFlag == true) (*data)(loc++) = timeStamp; // // for each element if responses exist, put them in response vector // for (int i=0; i< numEle; i++) { if (theResponses[i] != 0) { // ask the element for the reponse int res; if (( res = theResponses[i]->getResponse()) < 0) result += res; else { Information &eleInfo = theResponses[i]->getInformation(); const Vector &eleData = eleInfo.getData(); for (int j=0; j<eleData.Size(); j++) (*data)(loc++) = eleData(j); } } } // // send the response vector to the output handler for o/p // theOutputHandler->write(*data); } // succesfull completion - return 0 return result; } int ElementRecorder::restart(void) { if (data != 0) data->Zero(); return 0; } int ElementRecorder::setDomain(Domain &theDom) { theDomain = &theDom; return 0; } int ElementRecorder::sendSelf(int commitTag, Channel &theChannel) { if (theChannel.isDatastore() == 1) { opserr << "ElementRecorder::sendSelf() - does not send data to a datastore\n"; return -1; } // // into an ID, place & send eleID size, numArgs and length of all responseArgs // static ID idData(4); idData(0) = eleID.Size(); idData(1) = numArgs; int msgLength = 0; for (int i=0; i<numArgs; i++) msgLength += strlen(responseArgs[i])+1; idData(2) = msgLength; if (theOutputHandler != 0) { idData(3) = theOutputHandler->getClassTag(); } else idData(3) = 0; if (theChannel.sendID(0, commitTag, idData) < 0) { opserr << "ElementRecorder::sendSelf() - failed to send idData\n"; return -1; } // // send the eleID // if (eleID.Size() == 0 || theChannel.sendID(0, commitTag, eleID) < 0) { opserr << "ElementRecorder::sendSelf() - failed to send idData\n"; return -1; } // // create a single char array holding all strings // will use string terminating character to differentiate strings on other side // if (msgLength == 0) { opserr << "ElementRecorder::sendSelf() - no data to send!!\n"; return -1; } char *allResponseArgs = new char[msgLength]; if (allResponseArgs == 0) { opserr << "ElementRecorder::sendSelf() - out of memory\n"; return -1; } char *currentLoc = allResponseArgs; for (int j=0; j<numArgs; j++) { strcpy(currentLoc, responseArgs[j]); currentLoc += strlen(responseArgs[j]); currentLoc++; } // // send this single char array // Message theMessage(allResponseArgs, msgLength); if (theChannel.sendMsg(0, commitTag, theMessage) < 0) { opserr << "ElementRecorder::sendSelf() - failed to send message\n"; return -1; } // // invoke sendSelf() on the output handler // if (theOutputHandler == 0 || theOutputHandler->sendSelf(commitTag, theChannel) < 0) { opserr << "ElementRecorder::sendSelf() - failed to send the DataOutputHandler\n"; return -1; } // // clean up & return success // delete [] allResponseArgs; return 0; } int ElementRecorder::recvSelf(int commitTag, Channel &theChannel, FEM_ObjectBroker &theBroker) { if (theChannel.isDatastore() == 1) { opserr << "ElementRecorder::recvSelf() - does not recv data to a datastore\n"; return -1; } // // into an ID of size 2 recv eleID size and length of all responseArgs // static ID idData(4); if (theChannel.recvID(0, commitTag, idData) < 0) { opserr << "ElementRecorder::recvSelf() - failed to recv idData\n"; return -1; } int eleSize = idData(0); int numArgs = idData(1); int msgLength = idData(2); numEle = eleSize; // // resize & recv the eleID // if (eleSize == 0) { opserr << "ElementRecorder::recvSelf() - 0 sized eleID\n"; return -1; } int *eleData = new int [eleSize]; eleID.setData(eleData, eleSize, true); if (theChannel.recvID(0, commitTag, eleID) < 0) { opserr << "ElementRecorder::recvSelf() - failed to recv idData\n"; return -1; } // // recv the single char array of element response args // if (msgLength == 0) { opserr << "ElementRecorder::recvSelf() - 0 sized string for responses\n"; return -1; } char *allResponseArgs = new char[msgLength]; if (allResponseArgs == 0) { opserr << "ElementRecorder::recvSelf() - out of memory\n"; return -1; } Message theMessage(allResponseArgs, msgLength); if (theChannel.recvMsg(0, commitTag, theMessage) < 0) { opserr << "ElementRecorder::recvSelf() - failed to recv message\n"; return -1; } // // now break this single array into many // responseArgs = new char *[numArgs]; if (responseArgs == 0) { opserr << "ElementRecorder::recvSelf() - out of memory\n"; return -1; } char *currentLoc = allResponseArgs; for (int j=0; j<numArgs; j++) { int argLength = strlen(currentLoc)+1; responseArgs[j] = new char[argLength]; if (responseArgs[j] == 0) { opserr << "ElementRecorder::recvSelf() - out of memory\n"; return -1; } opserr << argLength << responseArgs[j] << endln; strcpy(responseArgs[j], currentLoc); currentLoc += argLength; } // // create a new handler object and invoke recvSelf() on it // if (theOutputHandler != 0) delete theOutputHandler; theOutputHandler = theBroker.getPtrNewStream(idData(3)); if (theOutputHandler == 0) { opserr << "NodeRecorder::sendSelf() - failed to get a data output handler\n"; return -1; } if (theOutputHandler->recvSelf(commitTag, theChannel, theBroker) < 0) { opserr << "NodeRecorder::sendSelf() - failed to send the DataOutputHandler\n"; return -1; } // // clean up & return success // delete [] allResponseArgs; return 0; } int ElementRecorder::initialize(void) { if (numEle == 0 || theDomain == 0) return 0; theOutputHandler->tag("OpenSeesOutput"); int numDbColumns = 0; if (echoTimeFlag == true) { theOutputHandler->tag("TimeOutput"); theOutputHandler->tag("ResponseType", "time"); theOutputHandler->endTag(); // TimeOutput numDbColumns += 1; } // Set the response objects: // 1. create an array of pointers for them // 2. iterate over the elements invoking setResponse() to get the new objects & determine size of data // theResponses = new Response *[numEle]; for (int k=0; k<numEle; k++) theResponses[k] = 0; Information eleInfo(1.0); int i; for (i=0; i<numEle; i++) { Element *theEle = theDomain->getElement(eleID(i)); if (theEle == 0) { theResponses[i] = 0; } else { theResponses[i] = theEle->setResponse((const char **)responseArgs, numArgs, eleInfo, *theOutputHandler); if (theResponses[i] != 0) { // from the response type determine no of cols for each Information &eleInfo = theResponses[i]->getInformation(); const Vector &eleData = eleInfo.getData(); numDbColumns += eleData.Size(); } } } // create the vector to hold the data data = new Vector(numDbColumns); if (data == 0) { opserr << "ElementRecorder::initialize() - out of memory\n"; return -1; } theOutputHandler->tag("Data"); initializationDone = true; return 0; } Generated on Mon Oct 23 15:05:24 2006 for OpenSees by  1.5.0

---

opensees-support @ berkeley.edu

Supported by the National Science Foundation

©2006, UC Regents