#include <planej.h>

Inheritance diagram for PlaneHingeJoint:

Collaboration diagram for PlaneHingeJoint:

Public Member Functions
	PlaneHingeJoint (unsigned int uL, const DofOwner pDO, const StructNode pN1, const StructNode pN2, const Vec3 &dTmp1, const Vec3 &dTmp2, const Mat3x3 &R1hTmp, const Mat3x3 &R2hTmp, const OrientationDescription &od, flag fOut, const bool _calcInitdTheta=true, const doublereal initDTheta=0., const doublereal rr=0., const doublereal pref=0., BasicShapeCoefficient const sh=0, BasicFriction *const f=0)

	~PlaneHingeJoint (void)

virtual void	ReadInitialState (MBDynParser &HP)

virtual std::ostream &	Restart (std::ostream &out) const

virtual Joint::Type	GetJointType (void) const

virtual unsigned int	iGetNumDof (void) const

virtual std::ostream &	DescribeDof (std::ostream &out, const char *prefix="", bool bInitial=false) const

virtual void	DescribeDof (std::vector< std::string > &desc, bool bInitial=false, int i=-1) const

virtual std::ostream &	DescribeEq (std::ostream &out, const char *prefix="", bool bInitial=false) const

virtual void	DescribeEq (std::vector< std::string > &desc, bool bInitial=false, int i=-1) const

DofOrder::Order	GetDofType (unsigned int i) const

virtual void	SetValue (DataManager pDM, VectorHandler &X, VectorHandler &XP, SimulationEntity::Hints ph=0)

virtual Hint *	ParseHint (DataManager pDM, const char s) const

virtual void	AfterConvergence (const VectorHandler &X, const VectorHandler &XP)

void	WorkSpaceDim (integer piNumRows, integer piNumCols) const

VariableSubMatrixHandler &	AssJac (VariableSubMatrixHandler &WorkMat, doublereal dCoef, const VectorHandler &XCurr, const VectorHandler &XPrimeCurr)

SubVectorHandler &	AssRes (SubVectorHandler &WorkVec, doublereal dCoef, const VectorHandler &XCurr, const VectorHandler &XPrimeCurr)

DofOrder::Order	GetEqType (unsigned int i) const

void	OutputPrepare (OutputHandler &OH)

void	Output (OutputHandler &OH) const

virtual unsigned int	iGetInitialNumDof (void) const

virtual void	InitialWorkSpaceDim (integer piNumRows, integer piNumCols) const

VariableSubMatrixHandler &	InitialAssJac (VariableSubMatrixHandler &WorkMat, const VectorHandler &XCurr)

SubVectorHandler &	InitialAssRes (SubVectorHandler &WorkVec, const VectorHandler &XCurr)

virtual unsigned int	iGetNumPrivData (void) const

virtual unsigned int	iGetPrivDataIdx (const char *s) const

virtual doublereal	dGetPrivData (unsigned int i) const

virtual void	GetConnectedNodes (std::vector< const Node * > &connectedNodes) const

Public Member Functions inherited from Elem
	Elem (unsigned int uL, flag fOut)

virtual	~Elem (void)

virtual void	AssMats (VariableSubMatrixHandler &WorkMatA, VariableSubMatrixHandler &WorkMatB, const VectorHandler &XCurr, const VectorHandler &XPrimeCurr)

virtual bool	bInverseDynamics (void) const

void	SetInverseDynamicsFlags (unsigned uIDF)

unsigned	GetInverseDynamicsFlags (void) const

bool	bIsErgonomy (void) const

bool	bIsRightHandSide (void) const

virtual VariableSubMatrixHandler &	AssJac (VariableSubMatrixHandler &WorkMat, const VectorHandler &XCurr)

virtual SubVectorHandler &	AssRes (SubVectorHandler &WorkVec, const VectorHandler &XCurr, const VectorHandler &XPrimeCurr, const VectorHandler &XPrimePrimeCurr, InverseDynamics::Order iOrder=InverseDynamics::INVERSE_DYNAMICS)

virtual int	GetNumConnectedNodes (void) const

Public Member Functions inherited from WithLabel
	WithLabel (unsigned int uL=0, const std::string &sN="")

virtual	~WithLabel (void)

void	PutLabel (unsigned int uL)

void	PutName (const std::string &sN)

unsigned int	GetLabel (void) const

const std::string &	GetName (void) const

Public Member Functions inherited from SimulationEntity
	SimulationEntity (void)

virtual	~SimulationEntity (void)

virtual bool	bIsValidIndex (unsigned int i) const

virtual void	BeforePredict (VectorHandler &, VectorHandler &, VectorHandler &, VectorHandler &) const

virtual void	AfterPredict (VectorHandler &X, VectorHandler &XP)

virtual void	Update (const VectorHandler &XCurr, const VectorHandler &XPrimeCurr)

virtual void	DerivativesUpdate (const VectorHandler &XCurr, const VectorHandler &XPrimeCurr)

virtual void	AfterConvergence (const VectorHandler &X, const VectorHandler &XP, const VectorHandler &XPP)

virtual std::ostream &	OutputAppend (std::ostream &out) const

Public Member Functions inherited from ToBeOutput
	ToBeOutput (flag fOut=fDefaultOut)

virtual	~ToBeOutput (void)

virtual void	Output (OutputHandler &OH, const VectorHandler &X, const VectorHandler &XP) const

virtual flag	fToBeOutput (void) const

virtual bool	bToBeOutput (void) const

virtual void	SetOutputFlag (flag f=flag(1))

Public Member Functions inherited from Joint
	Joint (unsigned int uL, const DofOwner *pD, flag fOut)

virtual	~Joint (void)

virtual Elem::Type	GetElemType (void) const

std::ostream &	Output (std::ostream &out, const char *sJointName, unsigned int uLabel, const Vec3 &FLocal, const Vec3 &MLocal, const Vec3 &FGlobal, const Vec3 &MGlobal) const

virtual void	SetInitialValue (VectorHandler &)

virtual void	Update (const VectorHandler &XCurr, InverseDynamics::Order iOrder=InverseDynamics::INVERSE_DYNAMICS)

bool	bIsPrescribedMotion (void) const

bool	bIsTorque (void) const

Public Member Functions inherited from ElemGravityOwner
	ElemGravityOwner (unsigned int uL, flag fOut)

virtual	~ElemGravityOwner (void)

virtual doublereal	dGetM (void) const

Vec3	GetS (void) const

Mat3x3	GetJ (void) const

Vec3	GetB (void) const

Vec3	GetG (void) const

Public Member Functions inherited from GravityOwner
	GravityOwner (void)

virtual	~GravityOwner (void)

void	PutGravity (const Gravity *pG)

virtual bool	bGetGravity (const Vec3 &X, Vec3 &Acc) const

Public Member Functions inherited from ElemWithDofs
	ElemWithDofs (unsigned int uL, const DofOwner *pDO, flag fOut)

virtual	~ElemWithDofs (void)

Public Member Functions inherited from DofOwnerOwner
	DofOwnerOwner (const DofOwner *pDO)

virtual	~DofOwnerOwner ()

virtual const DofOwner *	pGetDofOwner (void) const

virtual integer	iGetFirstIndex (void) const

Public Member Functions inherited from InitialAssemblyElem
	InitialAssemblyElem (unsigned int uL, flag fOut)

virtual	~InitialAssemblyElem (void)

Public Member Functions inherited from SubjectToInitialAssembly
	SubjectToInitialAssembly (void)

virtual	~SubjectToInitialAssembly (void)

Protected Attributes
OrientationDescription	od

Protected Attributes inherited from WithLabel
unsigned int	uLabel

std::string	sName

Protected Attributes inherited from ToBeOutput
flag	fOutput

Protected Attributes inherited from GravityOwner
Gravity *	pGravity

Private Attributes
const StructNode *	pNode1

const StructNode *	pNode2

Vec3	d1

Mat3x3	R1h

Vec3	d2

Mat3x3	R2h

Vec3	F

Vec3	M

bool	calcInitdTheta

int	NTheta

doublereal	dTheta

doublereal	dThetaWrapped

BasicShapeCoefficient *const	Sh_c

BasicFriction *const	fc

const doublereal	preF

const doublereal	r

doublereal	M3

Static Private Attributes
static const unsigned int	NumSelfDof

static const unsigned int	NumDof

Additional Inherited Members
Public Types inherited from Elem
enum	Type { UNKNOWN = -1, AIRPROPERTIES = 0, INDUCEDVELOCITY, AUTOMATICSTRUCTURAL, GRAVITY, BODY, JOINT, JOINT_REGULARIZATION, BEAM, PLATE, FORCE, INERTIA, ELECTRICBULK, ELECTRIC, THERMAL, HYDRAULIC, BULK, LOADABLE, DRIVEN, EXTERNAL, AEROMODAL, AERODYNAMIC, GENEL, SOCKETSTREAM_OUTPUT, RTAI_OUTPUT = SOCKETSTREAM_OUTPUT, LASTELEMTYPE }

Public Types inherited from SimulationEntity
typedef std::vector< Hint * >	Hints

Public Types inherited from ToBeOutput
enum	{ OUTPUT = 0x1U, OUTPUT_MASK = 0xFU, OUTPUT_PRIVATE = 0x10U, OUTPUT_PRIVATE_MASK = ~OUTPUT_MASK }

Public Types inherited from Joint
enum	Type { UNKNOWN = -1, DISTANCE = 0, DISTANCEWITHOFFSET, CLAMP, SPHERICALHINGE, PIN, UNIVERSALHINGE, UNIVERSALROTATION, UNIVERSALPIN, PLANEHINGE, PLANEROTATION, PLANEPIN, AXIALROTATION, PLANEDISP, PLANEDISPPIN, INPLANE, INPLANECONTACT, J_INLINE, ROD, RODBEZIER, DEFORMABLEHINGE, DEFORMABLEDISPJOINT, DEFORMABLEJOINT, DEFORMABLEAXIALJOINT, VISCOUSBODY, LINEARVELOCITY, ANGULARVELOCITY, LINEARACCELERATION, ANGULARACCELERATION, PRISMATIC, DRIVEHINGE, DRIVEDISP, DRIVEDISPPIN, IMPOSEDORIENTATION, IMPOSEDDISP, IMPOSEDDISPPIN, IMPOSEDKINEMATICS, BEAMSLIDER, BRAKE, GIMBAL, POINT_SURFACE_CONTACT, TOTALJOINT, TOTALPINJOINT, TOTALEQUATION, TOTALREACTION, MODAL, SCREWJOINT, LASTJOINTTYPE }

Protected Member Functions inherited from Joint
virtual void	OutputPrepare_int (const std::string &type, OutputHandler &OH, std::string &name)

Protected Member Functions inherited from ElemGravityOwner
virtual Vec3	GetS_int (void) const

virtual Mat3x3	GetJ_int (void) const

virtual Vec3	GetB_int (void) const

virtual Vec3	GetG_int (void) const

Detailed Description

Definition at line 43 of file planej.h.

Constructor & Destructor Documentation

PlaneHingeJoint::PlaneHingeJoint	(	unsigned int	uL,
		const DofOwner *	pDO,
		const StructNode *	pN1,
		const StructNode *	pN2,
		const Vec3 &	dTmp1,
		const Vec3 &	dTmp2,
		const Mat3x3 &	R1hTmp,
		const Mat3x3 &	R2hTmp,
		const OrientationDescription &	od,
		flag	fOut,
		const bool	_calcInitdTheta = `true`,
		const doublereal	initDTheta = `0.`,
		const doublereal	rr = `0.`,
		const doublereal	pref = `0.`,
		BasicShapeCoefficient *const	sh = `0`,
		BasicFriction *const	f = `0`
	)

Definition at line 49 of file planej.cc.

References NO_OP, SAFEDELETEARR, SAFENEWARR, and STRLENOF.

 : Elem(uL, fOut), 
 Joint(uL, pDO, fOut), 
 pNode1(pN1), pNode2(pN2),
 d1(dTmp1), R1h(R1hTmp), d2(dTmp2), R2h(R2hTmp), F(Zero3), M(Zero3),
 #ifdef USE_NETCDF
 Var_Phi(0),
 Var_Omega(0),
 //Var_MFR(0),
 //Var_MU(0),
 #endif // USE_NETCDF
 calcInitdTheta(_calcInitdTheta), NTheta(0), dTheta(initDTheta), dThetaWrapped(initDTheta),
 Sh_c(sh), fc(f), preF(pref), r(rr),
 od(od)
 {
         NO_OP;
         char * fname = NULL;
         int n = (uL > 0 ? 1 + (int)log10(uL) : 1);
         int len = STRLENOF("hinge") + n + STRLENOF(".out") + 1;
         SAFENEWARR(fname, char, len);
         snprintf(fname, len, "hinge%.*d.out", n, uL);
         SAFEDELETEARR(fname);
 }

PlaneHingeJoint::~PlaneHingeJoint ( void )

Definition at line 86 of file planej.cc.

References fc, and Sh_c.

 {
         if (Sh_c) {
                 delete Sh_c;
         }
 
         if (fc) {
                 delete fc;
         }
 }

Member Function Documentation

void PlaneHingeJoint::AfterConvergence	(	const VectorHandler &	X,
		const VectorHandler &	XP
	)

virtual

Reimplemented from SimulationEntity.

Definition at line 473 of file planej.cc.

References BasicFriction::AfterConvergence(), grad::Dot(), dTheta, dThetaWrapped, F, fc, StructNode::GetRCurr(), StructNode::GetWCurr(), DofOwnerOwner::iGetFirstIndex(), M_PI, Vec3::Norm(), NTheta, NumSelfDof, pNode1, pNode2, preF, r, R1h, R2h, and RotManip::VecRot().

 {
         Vec3 v(RotManip::VecRot((pNode1->GetRCurr()*R1h).MulTM(pNode2->GetRCurr()*R2h)));
         doublereal dThetaTmp(v(3));
 
         // unwrap
         if (dThetaTmp - dThetaWrapped < -M_PI) {
                 NTheta++;
         }
 
         if (dThetaTmp - dThetaWrapped > M_PI) {
                 NTheta--;
         }
 
         // save new wrapped angle
         dThetaWrapped = dThetaTmp;
 
         // compute new unwrapped angle
         dTheta = 2*M_PI*NTheta + dThetaWrapped;
 
         if (fc) {
                 Mat3x3 R1(pNode1->GetRCurr());
                 Mat3x3 R1hTmp(R1*R1h);
                 Vec3 e3a(R1hTmp.GetVec(3));
                 Vec3 Omega1(pNode1->GetWCurr());
                 Vec3 Omega2(pNode2->GetWCurr());
                 //relative velocity
                 doublereal v = (Omega1-Omega2).Dot(e3a)*r;
                 //reaction norm
                 doublereal modF = std::max(F.Norm(), preF);;
                 fc->AfterConvergence(modF,v,X,XP,iGetFirstIndex()+NumSelfDof);
         }
 }

Here is the call graph for this function:

VariableSubMatrixHandler & PlaneHingeJoint::AssJac	(	VariableSubMatrixHandler &	WorkMat,
		doublereal	dCoef,
		const VectorHandler &	XCurr,
		const VectorHandler &	XPrimeCurr
	)

virtual

Implements Elem.

Definition at line 540 of file planej.cc.

References ExpandableMatrix::Add(), FullSubMatrixHandler::Add(), BasicFriction::AssJac(), d1, d2, DEBUGCOUT, Vec3::dGet(), grad::Dot(), BasicShapeCoefficient::dSh_c(), F, BasicFriction::fc(), fc, StructNode::GetRRef(), Mat3x3::GetVec(), StructNode::GetWCurr(), DofOwnerOwner::iGetFirstIndex(), StructDispNode::iGetFirstMomentumIndex(), StructDispNode::iGetFirstPositionIndex(), iGetNumDof(), ExpandableMatrix::Link(), M, MatCross, MatCrossCross, Vec3::Norm(), NumSelfDof, pNode1, pNode2, preF, FullSubMatrixHandler::PutCoef(), FullSubMatrixHandler::PutColIndex(), FullSubMatrixHandler::PutRowIndex(), r, R1h, R2h, ExpandableRowVector::ReDim(), ExpandableMatrix::ReDim(), FullSubMatrixHandler::ResizeReset(), ExpandableRowVector::Set(), ExpandableMatrix::Set(), ExpandableMatrix::SetBlockDim(), VariableSubMatrixHandler::SetFull(), Sh_c, BasicShapeCoefficient::Sh_c(), ExpandableMatrix::Sub(), FullSubMatrixHandler::Sub(), WorkSpaceDim(), and Zero3.

 {
    DEBUGCOUT("Entering PlaneHingeJoint::AssJac()" << std::endl);
    
    /* Setta la sottomatrice come piena (e' un po' dispersivo, ma lo jacobiano 
     * e' complicato */                                  
    FullSubMatrixHandler& WM = WorkMat.SetFull();
    
    /* Ridimensiona la sottomatrice in base alle esigenze */
    integer iNumRows = 0;
    integer iNumCols = 0;
    WorkSpaceDim(&iNumRows, &iNumCols);
    WM.ResizeReset(iNumRows, iNumCols);
    
    /* Recupera gli indici delle varie incognite */
    integer iNode1FirstPosIndex = pNode1->iGetFirstPositionIndex();
    integer iNode1FirstMomIndex = pNode1->iGetFirstMomentumIndex();
    integer iNode2FirstPosIndex = pNode2->iGetFirstPositionIndex();
    integer iNode2FirstMomIndex = pNode2->iGetFirstMomentumIndex();
    integer iFirstReactionIndex = iGetFirstIndex();
 
    /* Setta gli indici delle equazioni */
    for (unsigned int iCnt = 1; iCnt <= 6; iCnt++) {     
       WM.PutRowIndex(iCnt, iNode1FirstMomIndex+iCnt);
       WM.PutColIndex(iCnt, iNode1FirstPosIndex+iCnt);
       WM.PutRowIndex(6+iCnt, iNode2FirstMomIndex+iCnt);
       WM.PutColIndex(6+iCnt, iNode2FirstPosIndex+iCnt);
    }
    
    for (unsigned int iCnt = 1; iCnt <= iGetNumDof(); iCnt++) {  
       WM.PutRowIndex(12+iCnt, iFirstReactionIndex+iCnt);
       WM.PutColIndex(12+iCnt, iFirstReactionIndex+iCnt);
    }
    
    /* Recupera i dati che servono */
    const Mat3x3& R1(pNode1->GetRRef());
    const Mat3x3& R2(pNode2->GetRRef());   
    Vec3 d1Tmp(R1*d1);
    Vec3 d2Tmp(R2*d2);
    Mat3x3 R1hTmp(R1*R1h);
    Mat3x3 R2hTmp(R2*R2h);
    
    /* Suppongo che le reazioni F, M siano gia' state aggiornate da AssRes;
     * ricordo che la forza F e' nel sistema globale, mentre la coppia M
     * e' nel sistema locale ed il terzo termine, M(3), e' nullo in quanto
     * diretto come l'asse attorno al quale la rotazione e' consentita */
    
       
    /* 
     * La cerniera piana ha le prime 3 equazioni uguali alla cerniera sferica;
     * inoltre ha due equazioni che affermano la coincidenza dell'asse 3 del
     * riferimento solidale con la cerniera visto dai due nodi.
     * 
     *      (R1 * R1h * e1)^T * (R2 * R2h * e3) = 0
     *      (R1 * R1h * e2)^T * (R2 * R2h * e3) = 0
     * 
     * A queste equazioni corrisponde una reazione di coppia agente attorno 
     * agli assi 1 e 2 del riferimento della cerniera. La coppia attorno 
     * all'asse 3 e' nulla per definizione. Quindi la coppia nel sistema 
     * globale e':
     *      -R1 * R1h * M       per il nodo 1,
     *       R2 * R2h * M       per il nodo 2
     * 
     * 
     *       xa   ga                   xb   gb                     F     M 
     * Qa |  0    0                     0    0                     I     0  | | xa |   | -F           |
     * Ga |  0    c*(F/\da/\-(Sa*M)/\)  0    0                     da/\  Sa | | ga |   | -da/\F-Sa*M |
     * Qb |  0    0                     0    0                    -I     0  | | xb | = |  F           |
     * Gb |  0    0                     0   -c*(F/\db/\-(Sb*M)/\) -db/\ -Sb | | gb |   |  db/\F+Sb*M |
     * F  | -c*I  c*da/\                c*I -c*db/\                0     0  | | F  |   |  xa+da-xb-db |
     * M1 |  0    c*Tb1^T*Ta3/\         0    c*Ta3^T*Tb1/\         0     0  | | M  |   |  Sb^T*Ta3    |
     * M2 |  0    c*Tb2^T*Ta3/\         0    c*Ta3^T*Tb2/\         0     0  | 
     * 
     * con da = R1*d01, db = R2*d02, c = dCoef,
     * Sa = R1*R1h*[e1,e2], Sb = R2*R2h*[e1, e2],
     * Ta3 = R1*R1h*e3, Tb1 = R2*R2h*e1, Tb2 = R2*R2h*e2
     */
 
    /* Contributo della forza alle equazioni di equilibrio dei due nodi */
    for (int iCnt = 1; iCnt <= 3; iCnt++) {      
       WM.PutCoef(iCnt, 12+iCnt, 1.);
       WM.PutCoef(6+iCnt, 12+iCnt, -1.);
    }
    
    WM.Add(4, 13, Mat3x3(MatCross, d1Tmp));
    WM.Sub(10, 13, Mat3x3(MatCross, d2Tmp));   
    
    /* Moltiplica la forza ed il momento per il coefficiente
     * del metodo */
    Vec3 FTmp = F*dCoef;
    Vec3 MTmp = M*dCoef;
 
    Vec3 e3a(R1hTmp.GetVec(3));
    Vec3 e1b(R2hTmp.GetVec(1));
    Vec3 e2b(R2hTmp.GetVec(2));
    MTmp = e2b*MTmp.dGet(1)-e1b*MTmp.dGet(2);
    
    Mat3x3 MWedgee3aWedge(MatCrossCross, MTmp, e3a);
    Mat3x3 e3aWedgeMWedge(MatCrossCross, e3a, MTmp);
    
    WM.Add(4, 4, Mat3x3(MatCrossCross, FTmp, d1Tmp) - MWedgee3aWedge);
    WM.Add(4, 10, e3aWedgeMWedge);
    
    WM.Add(10, 4, MWedgee3aWedge);   
    WM.Sub(10, 10, Mat3x3(MatCrossCross, FTmp, d2Tmp) + e3aWedgeMWedge);      
    
    /* Contributo del momento alle equazioni di equilibrio dei nodi */
    Vec3 Tmp1(e2b.Cross(e3a));
    Vec3 Tmp2(e3a.Cross(e1b));
    
    for (int iCnt = 1; iCnt <= 3; iCnt++) {
       doublereal d = Tmp1.dGet(iCnt);
       WM.PutCoef(3+iCnt, 16, d);
       WM.PutCoef(9+iCnt, 16, -d);
       d = Tmp2.dGet(iCnt);
       WM.PutCoef(3+iCnt, 17, d);
       WM.PutCoef(9+iCnt, 17, -d);
    }         
    
    /* Modifica: divido le equazioni di vincolo per dCoef */
    
    /* Equazioni di vincolo degli spostamenti */
    for (int iCnt = 1; iCnt <= 3; iCnt++) {
       WM.PutCoef(12+iCnt, iCnt, -1.);
       WM.PutCoef(12+iCnt, 6+iCnt, 1.);
    }
    
    WM.Add(13, 4, Mat3x3(MatCross, d1Tmp));
    WM.Sub(13, 10, Mat3x3(MatCross, d2Tmp));
    
    /* Equazione di vincolo del momento
     * 
     * Attenzione: bisogna scrivere il vettore trasposto
     *   (Sb[1]^T*(Sa[3]/\))*dCoef
     * Questo pero' e' uguale a:
     *   (-Sa[3]/\*Sb[1])^T*dCoef,
     * che puo' essere ulteriormente semplificato:
     *   (Sa[3].Cross(Sb[1])*(-dCoef))^T;
     */
    
    for (int iCnt = 1; iCnt <= 3; iCnt++) {
       doublereal d = Tmp1.dGet(iCnt);
       WM.PutCoef(16, 3+iCnt, d);
       WM.PutCoef(16, 9+iCnt, -d);
       d = Tmp2.dGet(iCnt);
       WM.PutCoef(17, 3+iCnt, -d);
       WM.PutCoef(17, 9+iCnt, d);
    }   
 
    if (fc) {
       //retrive
           //friction coef
       doublereal f = fc->fc();
           //shape function
       doublereal shc = Sh_c->Sh_c();
           //omega and omega rif
       const Vec3& Omega1(pNode1->GetWCurr());
       const Vec3& Omega2(pNode2->GetWCurr());
       // const Vec3& Omega1r(pNode1->GetWRef());
       // const Vec3& Omega2r(pNode2->GetWRef());   
       //compute 
           //relative velocity
       doublereal v = (Omega1-Omega2).Dot(e3a)*r;
           //reaction norm
       doublereal modF = std::max(F.Norm(), preF);
           //reaction moment
       //doublereal M3 = shc*modF*r;
       
       ExpandableRowVector dfc;
       ExpandableRowVector dF;
       ExpandableRowVector dv;
           //variation of reaction force
       dF.ReDim(3);
       if ((modF == 0.) or (F.Norm() < preF)) {
           dF.Set(Vec3(Zero3),1,12+1);
       } else {
           dF.Set(F/modF,1,12+1);
       }
           //variation of relative velocity
       dv.ReDim(6);
       
 /* old (wrong?) relative velocity linearization */
 
 //       dv.Set((e3a.dGet(1)*1.-( e3a.dGet(2)*Omega1r.dGet(3)-e3a.dGet(3)*Omega1r.dGet(2))*dCoef)*r,1,0+4);
 //       dv.Set((e3a.dGet(2)*1.-(-e3a.dGet(1)*Omega1r.dGet(3)+e3a.dGet(3)*Omega1r.dGet(1))*dCoef)*r,2,0+5);
 //       dv.Set((e3a.dGet(3)*1.-( e3a.dGet(1)*Omega1r.dGet(2)-e3a.dGet(2)*Omega1r.dGet(1))*dCoef)*r,3,0+6);
 //       
 //       dv.Set(-(e3a.dGet(1)*1.-( e3a.dGet(2)*Omega2r.dGet(3)-e3a.dGet(3)*Omega2r.dGet(2))*dCoef)*r,4,6+4);
 //       dv.Set(-(e3a.dGet(2)*1.-(-e3a.dGet(1)*Omega2r.dGet(3)+e3a.dGet(3)*Omega2r.dGet(1))*dCoef)*r,5,6+5);
 //       dv.Set(-(e3a.dGet(3)*1.-( e3a.dGet(1)*Omega2r.dGet(2)-e3a.dGet(2)*Omega2r.dGet(1))*dCoef)*r,6,6+6);
 
 /* new (exact?) relative velocity linearization */
 // 
 //       ExpandableRowVector domega11, domega12, domega13;
 //       ExpandableRowVector domega21, domega22, domega23;
 //       domega11.ReDim(3); domega12.ReDim(3); domega13.ReDim(3);
 //       domega21.ReDim(3); domega22.ReDim(3); domega23.ReDim(3);
 //       
 //       domega11.Set(1., 1, 0+4);
 //           domega11.Set( Omega1r.dGet(3)*dCoef, 2, 0+5);
 //           domega11.Set(-Omega1r.dGet(2)*dCoef, 3, 0+6);
 //       domega21.Set(1., 1, 6+4);
 //           domega21.Set( Omega2r.dGet(3)*dCoef, 2, 6+5);
 //           domega21.Set(-Omega2r.dGet(2)*dCoef, 3, 6+6);
 //       domega12.Set(1., 1, 0+5);
 //           domega12.Set(-Omega1r.dGet(3)*dCoef, 2, 0+4);
 //           domega12.Set( Omega1r.dGet(1)*dCoef, 3, 0+6);
 //       domega22.Set(1., 1, 6+5);
 //           domega22.Set(-Omega2r.dGet(3)*dCoef, 2, 6+4);
 //           domega22.Set( Omega2r.dGet(1)*dCoef, 3, 6+6);
 //       domega13.Set(1., 1, 0+6);
 //           domega13.Set( Omega1r.dGet(2)*dCoef, 2, 0+4);
 //           domega13.Set(-Omega1r.dGet(1)*dCoef, 3, 0+5);
 //       domega23.Set(1., 1, 6+6);
 //           domega23.Set( Omega2r.dGet(2)*dCoef, 2, 6+4);
 //           domega23.Set(-Omega2r.dGet(1)*dCoef, 3, 6+5);
 // 
 //       Vec3 domega = Omega1-Omega2;
 //       dv.Set((e3a.dGet(1)*1.-( 
 //                      e3a.dGet(2)*(Omega1.dGet(3)-Omega2.dGet(3))-
 //              e3a.dGet(3)*(domega.dGet(2)))*dCoef)*r,1);
 //              dv.Link(1, &domega11);
 //       dv.Set((e3a.dGet(2)*1.-(
 //                      -e3a.dGet(1)*(Omega1.dGet(3)-Omega2.dGet(3))+
 //              e3a.dGet(3)*(domega.dGet(1)))*dCoef)*r,2);
 //              dv.Link(2, &domega12);
 //       dv.Set((e3a.dGet(3)*1.-( 
 //                      e3a.dGet(1)*(Omega1.dGet(2)-Omega2.dGet(2))-
 //              e3a.dGet(2)*(domega.dGet(1)))*dCoef)*r,3);
 //              dv.Link(3, &domega13);
 // 
 //       dv.Set(-(e3a.dGet(1)*1.)*r,4,6+4); dv.Link(4, &domega21);
 //       dv.Set(-(e3a.dGet(2)*1.)*r,5,6+5); dv.Link(5, &domega22);
 //       dv.Set(-(e3a.dGet(3)*1.)*r,6,6+6); dv.Link(6, &domega23);
 
 
 /* new (approximate: assume constant triads orientations) 
  * relative velocity linearization 
 */
 
       dv.Set(e3a*r,1, 0+4);
       dv.Set(-e3a*r,4, 6+4);
 
       //assemble friction states
       fc->AssJac(WM,dfc,12+NumSelfDof,iFirstReactionIndex+NumSelfDof,dCoef,modF,v,
                 XCurr,XPrimeCurr,dF,dv);
       ExpandableMatrix dM3;
       ExpandableRowVector dShc;
       //compute 
           //variation of shape function
       Sh_c->dSh_c(dShc,f,modF,v,dfc,dF,dv);
           //variation of moment component
       dM3.ReDim(3,2);
       dM3.SetBlockDim(1,1);
       dM3.SetBlockDim(2,1);
       dM3.Set(e3a*shc*r,1,1); dM3.Link(1,&dF);
       dM3.Set(e3a*modF*r,1,2); dM3.Link(2,&dShc);
       //assemble first node
           //variation of moment component
       dM3.Add(WM, 4, 1.);
       //assemble second node
           //variation of moment component
       dM3.Sub(WM, 6+4, 1.);
    }
    
    return WorkMat;
 }

Here is the call graph for this function:

SubVectorHandler & PlaneHingeJoint::AssRes	(	SubVectorHandler &	WorkVec,
		doublereal	dCoef,
		const VectorHandler &	XCurr,
		const VectorHandler &	XPrimeCurr
	)

virtual

!!!!!!!!!!!!!

Implements Elem.

Definition at line 813 of file planej.cc.

References VectorHandler::Add(), ASSERT, BasicFriction::AssRes(), Vec3::Cross(), d1, d2, DEBUGCOUT, Vec3::dGet(), Vec3::Dot(), grad::Dot(), F, BasicFriction::fc(), fc, StructNode::GetRCurr(), Mat3x3::GetVec(), StructNode::GetWCurr(), StructDispNode::GetXCurr(), DofOwnerOwner::iGetFirstIndex(), StructDispNode::iGetFirstMomentumIndex(), iGetNumDof(), M, M3, MBDYN_EXCEPT_ARGS, Vec3::Norm(), NumSelfDof, pNode1, pNode2, preF, VectorHandler::PutCoef(), SubVectorHandler::PutRowIndex(), r, R1h, R2h, VectorHandler::ResizeReset(), Sh_c, BasicShapeCoefficient::Sh_c(), VectorHandler::Sub(), and WorkSpaceDim().

 {
    DEBUGCOUT("Entering PlaneHingeJoint::AssRes()" << std::endl);
       
    /* Dimensiona e resetta la matrice di lavoro */
    integer iNumRows = 0;
    integer iNumCols = 0;
    WorkSpaceDim(&iNumRows, &iNumCols);
    WorkVec.ResizeReset(iNumRows);
  
    /* Indici */
    integer iNode1FirstMomIndex = pNode1->iGetFirstMomentumIndex();
    integer iNode2FirstMomIndex = pNode2->iGetFirstMomentumIndex();
    integer iFirstReactionIndex = iGetFirstIndex();
    
    /* Indici dei nodi */
    for (int iCnt = 1; iCnt <= 6; iCnt++) {      
       WorkVec.PutRowIndex(iCnt, iNode1FirstMomIndex+iCnt);
       WorkVec.PutRowIndex(6+iCnt, iNode2FirstMomIndex+iCnt);
    }   
    
    /* Indici del vincolo */
    for (unsigned int iCnt = 1; iCnt <= iGetNumDof(); iCnt++) {
       WorkVec.PutRowIndex(12+iCnt, iFirstReactionIndex+iCnt);
    }
 
    /* Aggiorna i dati propri */
    F = Vec3(XCurr, iFirstReactionIndex+1);
    M = Vec3(XCurr(iFirstReactionIndex+4),
             XCurr(iFirstReactionIndex+5),
             0.);
 
    /*
     * FIXME: provare a mettere "modificatori" di forza/momento sui gdl
     * residui: attrito, rigidezze e smorzamenti, ecc.
     */
    
    /* Recupera i dati */
    const Vec3& x1(pNode1->GetXCurr());
    const Vec3& x2(pNode2->GetXCurr());
    const Mat3x3& R1(pNode1->GetRCurr());
    const Mat3x3& R2(pNode2->GetRCurr());
    
    /* Costruisce i dati propri nella configurazione corrente */
    Vec3 dTmp1(R1*d1);
    Vec3 dTmp2(R2*d2);
    Mat3x3 R1hTmp(R1*R1h);
    Mat3x3 R2hTmp(R2*R2h);
    
    Vec3 e3a(R1hTmp.GetVec(3));
    Vec3 e1b(R2hTmp.GetVec(1));
    Vec3 e2b(R2hTmp.GetVec(2));
    
    Vec3 MTmp(e2b.Cross(e3a)*M.dGet(1)+e3a.Cross(e1b)*M.dGet(2));
    
    /* Equazioni di equilibrio, nodo 1 */
    WorkVec.Sub(1, F);
    WorkVec.Add(4, F.Cross(dTmp1)-MTmp); /* Sfrutto  F/\d = -d/\F */
    
    /* Equazioni di equilibrio, nodo 2 */
    WorkVec.Add(7, F);
    WorkVec.Add(10, dTmp2.Cross(F)+MTmp);
 
    /* Modifica: divido le equazioni di vincolo per dCoef */
    ASSERT(dCoef != 0.);
         
    /* Equazione di vincolo di posizione */
    WorkVec.Add(13, (x1+dTmp1-x2-dTmp2)/dCoef);
       
    /* Equazioni di vincolo di rotazione */
    Vec3 Tmp = R1hTmp.GetVec(3);
    WorkVec.PutCoef(16, Tmp.Dot(R2hTmp.GetVec(2))/dCoef);
    WorkVec.PutCoef(17, Tmp.Dot(R2hTmp.GetVec(1))/dCoef);
 
    if (fc) {
       bool ChangeJac(false);
       const Vec3& Omega1(pNode1->GetWCurr());
       const Vec3& Omega2(pNode2->GetWCurr());
       doublereal v = (Omega1-Omega2).Dot(e3a)*r;
       doublereal modF = std::max(F.Norm(), preF);
       try {
           fc->AssRes(WorkVec,12+NumSelfDof,iFirstReactionIndex+NumSelfDof,modF,v,XCurr,XPrimeCurr);
       }
       catch (Elem::ChangedEquationStructure) {
           ChangeJac = true;
       }
       doublereal f = fc->fc();
       doublereal shc = Sh_c->Sh_c(f,modF,v);
       M3 = shc*modF*r;
       WorkVec.Sub(4,e3a*M3);
       WorkVec.Add(10,e3a*M3);
 //      M += e3a*M3;
       if (ChangeJac) {
           throw Elem::ChangedEquationStructure(MBDYN_EXCEPT_ARGS);
       }
    }
    
    return WorkVec;
 }

Here is the call graph for this function:

std::ostream & PlaneHingeJoint::DescribeDof	(	std::ostream &	out,
		const char *	prefix = `""`,
		bool	bInitial = `false`
	)		const

virtual

Reimplemented from Elem.

Definition at line 98 of file planej.cc.

References SimulationEntity::DescribeDof(), fc, DofOwnerOwner::iGetFirstIndex(), SimulationEntity::iGetNumDof(), and NumSelfDof.

 {
         integer iIndex = iGetFirstIndex();
 
         out
                 << prefix << iIndex + 1 << "->" << iIndex + 3 << ": "
                         "reaction forces [Fx,Fy,Fz]" << std::endl
                 << prefix << iIndex + 4 << "->" << iIndex + 5 << ": "
                         "reaction couples [mx,my]" << std::endl;
 
         if (bInitial) {
                 iIndex += NumSelfDof;
                 out
                         << prefix << iIndex + 1 << "->" << iIndex + 3 << ": "
                                 "reaction force derivatives [FPx,FPy,FPz]" << std::endl
                         << prefix << iIndex + 4 << "->" << iIndex + 5 << ": "
                                 "reaction couple derivatives [mPx,mPy]" << std::endl;
         }
 
         iIndex += NumSelfDof;
         if (fc) {
                 integer iFCDofs = fc->iGetNumDof();
                 if (iFCDofs > 0) {
                         out << prefix << iIndex + 1;
                         if (iFCDofs > 1) {
                                 out << "->" << iIndex + iFCDofs;
                         }
                         out << ": friction dof(s)" << std::endl
                                 << "        ", fc->DescribeDof(out, prefix, bInitial);
                 }
         }
 
         return out;
 }

Here is the call graph for this function:

void PlaneHingeJoint::DescribeDof	(	std::vector< std::string > &	desc,
		bool	bInitial = `false`,
		int	i = `-1`
	)		const

virtual

Reimplemented from Elem.

Definition at line 136 of file planej.cc.

References SimulationEntity::DescribeDof(), fc, WithLabel::GetLabel(), MBDYN_EXCEPT_ARGS, NumSelfDof, and xyz.

 {
         std::ostringstream os;
         os << "PlaneHingeJoint(" << GetLabel() << ")";
 
         unsigned short nself = NumSelfDof;
         if (bInitial) {
                 nself *= 2;
         }
         if (fc && (i == -1 || i >= nself)) {
                 fc->DescribeDof(desc, bInitial, i - nself);
                 if (i != -1) {
                         desc[0] = os.str() + ": " + desc[0];
                         return;
                 }
         }
 
         if (i == -1) {
                 // move fc desc to the end
                 unsigned short nfc = 0;
                 if (fc) {
                         nfc = desc.size();
                 }
                 desc.resize(nfc + nself);
                 for (unsigned i = nfc; i-- > 0; ) {
                         desc[nself + i] = os.str() + ": " + desc[nfc];
                 }
 
                 std::string name = os.str();
 
                 for (unsigned i = 0; i < 3; i++) {
                         os.str(name);
                         os.seekp(0, std::ios_base::end);
                         os << ": reaction force f" << xyz[i];
                         desc[i] = os.str();
                 }
 
                 for (unsigned i = 0; i < 2; i++) {
                         os.str(name);
                         os.seekp(0, std::ios_base::end);
                         os << ": reaction couple m" << xyz[i];
                         desc[3 + i] = os.str();
                 }
 
                 if (bInitial) {
                         for (unsigned i = 0; i < 3; i++) {
                                 os.str(name);
                                 os.seekp(0, std::ios_base::end);
                                 os << ": reaction force derivative fP" << xyz[i];
                                 desc[3 + 2 + i] = os.str();
                         }
         
                         for (unsigned i = 0; i < 2; i++) {
                                 os.str(name);
                                 os.seekp(0, std::ios_base::end);
                                 os << ": reaction couple derivative mP" << xyz[i];
                                 desc[3 + 2 + 3 + i] = os.str();
                         }
                 }
 
         } else {
                 if (i < -1) {
                         // error
                         throw ErrGeneric(MBDYN_EXCEPT_ARGS);
                 }
 
                 if (i >= nself) {
                         // error
                         throw ErrGeneric(MBDYN_EXCEPT_ARGS);
                 }
 
                 desc.resize(1);
 
                 switch (i) {
                 case 0:
                 case 1:
                 case 2:
                         os << ": reaction force f" << xyz[i];
                         break;
 
                 case 3:
                 case 4:
                         os << ": reaction couple m" << xyz[i - 3];
                         break;
 
                 case 5:
                 case 6:
                 case 7:
                         os << ": reaction force derivative fP" << xyz[i - 3 - 2];
                         break;
 
                 case 8:
                 case 9:
                         os << ": reaction couple derivative mP" << xyz[i - 3 - 2 - 3];
                         break;
                 }
                 desc[0] = os.str();
         }
 }

Here is the call graph for this function:

std::ostream & PlaneHingeJoint::DescribeEq	(	std::ostream &	out,
		const char *	prefix = `""`,
		bool	bInitial = `false`
	)		const

virtual

Reimplemented from Elem.

Definition at line 237 of file planej.cc.

References SimulationEntity::DescribeEq(), fc, DofOwnerOwner::iGetFirstIndex(), SimulationEntity::iGetNumDof(), and NumSelfDof.

 {
         integer iIndex = iGetFirstIndex();
 
         out
                 << prefix << iIndex + 1 << "->" << iIndex + 3 << ": "
                         "position constraints [Px1=Px2,Py1=Py2,Pz1=Pz2]" << std::endl
                 << prefix << iIndex + 4 << "->" << iIndex + 5 << ": "
                         "orientation constraints [gx1=gx2,gy1=gy2]" << std::endl;
 
         if (bInitial) {
                 iIndex += NumSelfDof;
                 out
                         << prefix << iIndex + 1 << "->" << iIndex + 3 << ": "
                                 "velocity constraints [vx1=vx2,vy1=vy2,vz1=vz2]" << std::endl
                         << prefix << iIndex + 4 << "->" << iIndex + 5 << ": "
                                 "angular velocity constraints [wx1=wx2,wy1=wy2]" << std::endl;
         }
 
         iIndex += NumSelfDof;
         if (fc) {
                 integer iFCDofs = fc->iGetNumDof();
                 if (iFCDofs > 0) {
                         out << prefix << iIndex + 1;
                         if (iFCDofs > 1) {
                                 out << "->" << iIndex + iFCDofs;
                         }
                         out << ": friction equation(s)" << std::endl
                                 << "        ", fc->DescribeEq(out, prefix, bInitial);
                 }
         }
 
         return out;
 }

Here is the call graph for this function:

void PlaneHingeJoint::DescribeEq	(	std::vector< std::string > &	desc,
		bool	bInitial = `false`,
		int	i = `-1`
	)		const

virtual

Reimplemented from Elem.

Definition at line 273 of file planej.cc.

References SimulationEntity::DescribeEq(), fc, WithLabel::GetLabel(), MBDYN_EXCEPT_ARGS, NumSelfDof, and xyz.

 {
         std::ostringstream os;
         os << "PlaneHingeJoint(" << GetLabel() << ")";
 
         unsigned short nself = NumSelfDof;
         if (bInitial) {
                 nself *= 2;
         }
         if (fc && (i == -1 || i >= nself)) {
                 fc->DescribeEq(desc, bInitial, i - nself);
                 if (i != -1) {
                         desc[0] = os.str() + ": " + desc[0];
                         return;
                 }
         }
 
         if (i == -1) {
                 // move fc desc to the end
                 unsigned short nfc = 0;
                 if (fc) {
                         nfc = desc.size();
                 }
                 desc.resize(nfc + nself);
                 for (unsigned i = nfc; i-- > 0; ) {
                         desc[nself + i] = os.str() + ": " + desc[nfc];
                 }
 
                 std::string name = os.str();
 
                 for (unsigned i = 0; i < 3; i++) {
                         os.str(name);
                         os.seekp(0, std::ios_base::end);
                         os << ": position constraint P" << xyz[i];
                         desc[i] = os.str();
                 }
 
                 for (unsigned i = 0; i < 2; i++) {
                         os.str(name);
                         os.seekp(0, std::ios_base::end);
                         os << ": orientation constraint g" << xyz[i];
                         desc[3 + i] = os.str();
                 }
 
                 if (bInitial) {
                         for (unsigned i = 0; i < 3; i++) {
                                 os.str(name);
                                 os.seekp(0, std::ios_base::end);
                                 os << ": position constraint derivative v" << xyz[i];
                                 desc[3 + 2 + i] = os.str();
                         }
         
                         for (unsigned i = 0; i < 2; i++) {
                                 os.str(name);
                                 os.seekp(0, std::ios_base::end);
                                 os << ": orientation constraint derivative w" << xyz[i];
                                 desc[3 + 2 + 3 + i] = os.str();
                         }
                 }
 
         } else {
                 if (i < -1) {
                         // error
                         throw ErrGeneric(MBDYN_EXCEPT_ARGS);
                 }
 
                 if (i >= nself) {
                         // error
                         throw ErrGeneric(MBDYN_EXCEPT_ARGS);
                 }
 
                 desc.resize(1);
 
                 switch (i) {
                 case 0:
                 case 1:
                 case 2:
                         os << ": position constraint P" << xyz[i];
                         break;
 
                 case 3:
                 case 4:
                         os << ": orientation constraint g" << xyz[i - 3];
                         break;
 
                 case 5:
                 case 6:
                 case 7:
                         os << ": position constraint derivative v" << xyz[i - 3 - 2];
                         break;
 
                 case 8:
                 case 9:
                         os << ": orientation constraint derivative w" << xyz[i - 3 - 2 - 3];
                         break;
                 }
                 desc[0] = os.str();
         }
 }

Here is the call graph for this function:

doublereal PlaneHingeJoint::dGetPrivData ( unsigned int i ) const

virtual

Reimplemented from SimulationEntity.

Definition at line 1482 of file planej.cc.

References ASSERT, dThetaWrapped, F, WithLabel::GetLabel(), StructNode::GetRCurr(), StructNode::GetWCurr(), iGetNumPrivData(), M, M_PI, MBDYN_EXCEPT_ARGS, Mat3x3::MulTV(), NTheta, pNode1, pNode2, R1h, R2h, and RotManip::VecRot().

 {
    ASSERT(i >= 1 && i <= iGetNumPrivData());
    
    switch (i) {
     case 1: {
         Vec3 v(RotManip::VecRot((pNode1->GetRCurr()*R1h).MulTM(pNode2->GetRCurr()*R2h)));
         doublereal dThetaTmp(v(3));
 
         int n = 0;
 
         if (dThetaTmp - dThetaWrapped < -M_PI) {
                 n++;
         }
 
         if (dThetaTmp - dThetaWrapped > M_PI) {
                 n--;
         }
 
         return 2*M_PI*(NTheta + n) + dThetaTmp;
     }
       
     case 2: {
        Mat3x3 R2Tmp((pNode2->GetRCurr()*R2h));
        Vec3 v(R2Tmp.MulTV(pNode2->GetWCurr()-pNode1->GetWCurr()));
        
        return v(3);
     }
 
     case 3:
     case 4:
     case 5:
             return F(i - 2);
 
     case 6:
     case 7:
     case 8:
             return M(i - 5);
    }
       
    silent_cerr("PlaneHingeJoint(" << GetLabel() << "): "
               "illegal private data " << i << std::endl);
    throw ErrGeneric(MBDYN_EXCEPT_ARGS);
 }

Here is the call graph for this function:

virtual void PlaneHingeJoint::GetConnectedNodes ( std::vector< const Node * > & connectedNodes ) const

inlinevirtual

Reimplemented from Elem.

Definition at line 193 of file planej.h.

References pNode1, and pNode2.

                                                                                  {
      connectedNodes.resize(2);
      connectedNodes[0] = pNode1;
      connectedNodes[1] = pNode2;
    };

DofOrder::Order PlaneHingeJoint::GetDofType ( unsigned int i ) const

virtual

Reimplemented from Elem.

Definition at line 927 of file planej.cc.

References DofOrder::ALGEBRAIC, ASSERT, fc, SimulationEntity::GetDofType(), iGetNumDof(), and NumSelfDof.

                                                 {
    ASSERT(i >= 0 && i < iGetNumDof());
    if (i<NumSelfDof) {
        return DofOrder::ALGEBRAIC; 
    } else {
        return fc->GetDofType(i-NumSelfDof);
    }
 };

Here is the call graph for this function:

DofOrder::Order PlaneHingeJoint::GetEqType ( unsigned int i ) const

virtual

Reimplemented from SimulationEntity.

Definition at line 937 of file planej.cc.

References DofOrder::ALGEBRAIC, ASSERTMSGBREAK, fc, SimulationEntity::GetEqType(), iGetNumDof(), and NumSelfDof.

 {
         ASSERTMSGBREAK(i < iGetNumDof(), 
                 "INDEX ERROR in PlaneHingeJoint::GetEqType");
    if (i<NumSelfDof) {
        return DofOrder::ALGEBRAIC; 
    } else {
        return fc->GetEqType(i-NumSelfDof);
    }
 }

Here is the call graph for this function:

virtual Joint::Type PlaneHingeJoint::GetJointType ( void ) const

inlinevirtual

Implements Joint.

Definition at line 109 of file planej.h.

References Joint::PLANEHINGE.

                                               { 
       return Joint::PLANEHINGE;
    };

virtual unsigned int PlaneHingeJoint::iGetInitialNumDof ( void ) const

inlinevirtual

Implements SubjectToInitialAssembly.

Definition at line 168 of file planej.h.

                                                       { 
       return 10;
    };

unsigned int PlaneHingeJoint::iGetNumDof ( void ) const

virtual

Reimplemented from Elem.

Definition at line 917 of file planej.cc.

References fc, SimulationEntity::iGetNumDof(), and NumSelfDof.

Referenced by AssJac(), AssRes(), GetDofType(), and GetEqType().

                                                    {
    unsigned int i = NumSelfDof;
    if (fc) {
        i+=fc->iGetNumDof();
    } 
    return i;
 };

Here is the call graph for this function:

unsigned int PlaneHingeJoint::iGetNumPrivData ( void ) const

virtual

Reimplemented from SimulationEntity.

Definition at line 1440 of file planej.cc.

Referenced by dGetPrivData().

 {
         return 8;
 }

unsigned int PlaneHingeJoint::iGetPrivDataIdx ( const char * s ) const

virtual

Reimplemented from SimulationEntity.

Definition at line 1446 of file planej.cc.

References ASSERT.

 {
         ASSERT(s != NULL);
 
         unsigned int idx = 0;
 
         switch (s[0]) {
         case 'w':
                 idx++;
         case 'r':
                 idx++;
                 if (s[1] == 'z') {
                         return idx;
                 }
                 break;
 
         case 'M':
                 idx += 3;
         case 'F':
                 idx += 2;
 
                 switch (s[1]) {
                 case 'x':
                         return idx + 1;
 
                 case 'y':
                         return idx + 2;
 
                 case 'z':
                         return idx + 3;
                 }
         }
 
         return 0;
 }

VariableSubMatrixHandler & PlaneHingeJoint::InitialAssJac	(	VariableSubMatrixHandler &	WorkMat,
		const VectorHandler &	XCurr
	)

virtual

Implements SubjectToInitialAssembly.

Definition at line 1079 of file planej.cc.

References FullSubMatrixHandler::Add(), Vec3::Cross(), d1, d2, Vec3::dGet(), F, WithLabel::GetLabel(), StructNode::GetRRef(), Mat3x3::GetVec(), StructNode::GetWRef(), DofOwnerOwner::iGetFirstIndex(), StructDispNode::iGetFirstPositionIndex(), InitialWorkSpaceDim(), M, MatCross, MatCrossCross, MBDYN_EXCEPT_ARGS, pNode1, pNode2, FullSubMatrixHandler::PutCoef(), FullSubMatrixHandler::PutColIndex(), FullSubMatrixHandler::PutRowIndex(), R1h, R2h, FullSubMatrixHandler::ResizeReset(), VariableSubMatrixHandler::SetFull(), and FullSubMatrixHandler::Sub().

 {
    /* Per ora usa la matrice piena; eventualmente si puo' 
     * passare a quella sparsa quando si ottimizza */
    FullSubMatrixHandler& WM = WorkMat.SetFull();
    
    /* Dimensiona e resetta la matrice di lavoro */
    integer iNumRows = 0;
    integer iNumCols = 0;
    InitialWorkSpaceDim(&iNumRows, &iNumCols);
    WM.ResizeReset(iNumRows, iNumCols);
 
    /* Equazioni: vedi joints.dvi */
    
    /*       equazioni ed incognite
     * F1                                     Delta_x1         0+1 =  1
     * M1                                     Delta_g1         3+1 =  4
     * FP1                                    Delta_xP1        6+1 =  7
     * MP1                                    Delta_w1         9+1 = 10
     * F2                                     Delta_x2        12+1 = 13
     * M2                                     Delta_g2        15+1 = 16
     * FP2                                    Delta_xP2       18+1 = 19
     * MP2                                    Delta_w2        21+1 = 22
     * vincolo spostamento                    Delta_F         24+1 = 25
     * vincolo rotazione                      Delta_M         27+1 = 28
     * derivata vincolo spostamento           Delta_FP        29+1 = 30
     * derivata vincolo rotazione             Delta_MP        32+1 = 33
     */
         
     
    /* Indici */
    integer iNode1FirstPosIndex = pNode1->iGetFirstPositionIndex();
    integer iNode1FirstVelIndex = iNode1FirstPosIndex+6;
    integer iNode2FirstPosIndex = pNode2->iGetFirstPositionIndex();
    integer iNode2FirstVelIndex = iNode2FirstPosIndex+6;
    integer iFirstReactionIndex = iGetFirstIndex();
    integer iReactionPrimeIndex = iFirstReactionIndex+5;
    
    /* Nota: le reazioni vincolari sono: 
     * Forza,       3 incognite, riferimento globale, 
     * Momento,     2 incognite, riferimento locale
     */
 
    /* Setta gli indici dei nodi */
    for (int iCnt = 1; iCnt <= 6; iCnt++) {
       WM.PutRowIndex(iCnt, iNode1FirstPosIndex+iCnt);
       WM.PutColIndex(iCnt, iNode1FirstPosIndex+iCnt);
       WM.PutRowIndex(6+iCnt, iNode1FirstVelIndex+iCnt);
       WM.PutColIndex(6+iCnt, iNode1FirstVelIndex+iCnt);
       WM.PutRowIndex(12+iCnt, iNode2FirstPosIndex+iCnt);
       WM.PutColIndex(12+iCnt, iNode2FirstPosIndex+iCnt);
       WM.PutRowIndex(18+iCnt, iNode2FirstVelIndex+iCnt);
       WM.PutColIndex(18+iCnt, iNode2FirstVelIndex+iCnt);
    }
    
    /* Setta gli indici delle reazioni */
    for (int iCnt = 1; iCnt <= 10; iCnt++) {
       WM.PutRowIndex(24+iCnt, iFirstReactionIndex+iCnt);
       WM.PutColIndex(24+iCnt, iFirstReactionIndex+iCnt);        
    }   
 
    
    /* Recupera i dati */
    const Mat3x3& R1(pNode1->GetRRef());
    const Mat3x3& R2(pNode2->GetRRef());
    const Vec3& Omega1(pNode1->GetWRef());
    const Vec3& Omega2(pNode2->GetWRef());
    
    /* F ed M sono gia' state aggiornate da InitialAssRes */
    Vec3 FPrime(XCurr, iReactionPrimeIndex+1);
    Vec3 MPrime(XCurr(iReactionPrimeIndex+4),
                XCurr(iReactionPrimeIndex+5),
                0.);
    
    /* Matrici identita' */   
    for (int iCnt = 1; iCnt <= 3; iCnt++) {
       /* Contributo di forza all'equazione della forza, nodo 1 */
       WM.PutCoef(iCnt, 24+iCnt, 1.);
       
       /* Contrib. di der. di forza all'eq. della der. della forza, nodo 1 */
       WM.PutCoef(6+iCnt, 29+iCnt, 1.);
       
       /* Contributo di forza all'equazione della forza, nodo 2 */
       WM.PutCoef(12+iCnt, 24+iCnt, -1.);
       
       /* Contrib. di der. di forza all'eq. della der. della forza, nodo 2 */
       WM.PutCoef(18+iCnt, 29+iCnt, -1.);
       
       /* Equazione di vincolo, nodo 1 */
       WM.PutCoef(24+iCnt, iCnt, -1.);
       
       /* Derivata dell'equazione di vincolo, nodo 1 */
       WM.PutCoef(29+iCnt, 6+iCnt, -1.);
       
       /* Equazione di vincolo, nodo 2 */
       WM.PutCoef(24+iCnt, 12+iCnt, 1.);
       
       /* Derivata dell'equazione di vincolo, nodo 2 */
       WM.PutCoef(29+iCnt, 18+iCnt, 1.);
    }
       
    /* Distanze e matrici di rotazione dai nodi alla cerniera 
     * nel sistema globale */
    Vec3 d1Tmp(R1*d1);
    Vec3 d2Tmp(R2*d2);
    Mat3x3 R1hTmp(R1*R1h);
    Mat3x3 R2hTmp(R2*R2h);
    
    Vec3 e3a(R1hTmp.GetVec(3));
    Vec3 e1b(R2hTmp.GetVec(1));
    Vec3 e2b(R2hTmp.GetVec(2));
    
    /* Ruota il momento e la sua derivata con le matrici della cerniera 
     * rispetto ai nodi */
    Vec3 MTmp(e2b*M.dGet(1)-e1b*M.dGet(2));
    Vec3 MPrimeTmp(e2b*MPrime.dGet(1)-e1b*MPrime.dGet(2));
 
    /* Matrici F/\d1/\, -F/\d2/\ */
    Mat3x3 FWedged1Wedge(MatCrossCross, F, d1Tmp);
    Mat3x3 FWedged2Wedge(MatCrossCross, F, -d2Tmp);
    
    /* Matrici (omega1/\d1)/\, -(omega2/\d2)/\ */
    Mat3x3 O1Wedged1Wedge(MatCross, Omega1.Cross(d1Tmp));
    Mat3x3 O2Wedged2Wedge(MatCross, d2Tmp.Cross(Omega2));
    
    Mat3x3 MDeltag1((Mat3x3(MatCross, Omega2.Cross(MTmp) + MPrimeTmp)
                    + Mat3x3(MatCrossCross, MTmp, Omega1))*Mat3x3(MatCross, e3a));
    Mat3x3 MDeltag2(Mat3x3(MatCrossCross, Omega1.Cross(e3a), MTmp)
                    + Mat3x3(MatCrossCross, e3a, MPrimeTmp)
                    + e3a.Cross(Mat3x3(MatCrossCross, Omega2, MTmp)));
 
    /* Vettori temporanei */
    Vec3 Tmp1(e2b.Cross(e3a));
    Vec3 Tmp2(e3a.Cross(e1b));
    
    /* Prodotto vettore tra il versore 3 della cerniera secondo il nodo 1
     * ed il versore 1 della cerniera secondo il nodo 2. A convergenza
     * devono essere ortogonali, quindi il loro prodotto vettore deve essere 
     * unitario */
 
    /* Error handling: il programma si ferma, pero' segnala dov'e' l'errore */
    if (Tmp1.Dot() <= std::numeric_limits<doublereal>::epsilon() || Tmp2.Dot() <= std::numeric_limits<doublereal>::epsilon()) {
       silent_cerr("PlaneHingeJoint(" << GetLabel() << "): "
               "first and second node hinge axes are (nearly) orthogonal"
               << std::endl);
       throw ErrNullNorm(MBDYN_EXCEPT_ARGS);
    }   
    
    Vec3 TmpPrime1(e2b.Cross(Omega1.Cross(e3a))-e3a.Cross(Omega2.Cross(e2b)));
    Vec3 TmpPrime2(e3a.Cross(Omega2.Cross(e1b))-e1b.Cross(Omega1.Cross(e3a)));
    
    /* Equazione di momento, nodo 1 */
    WM.Add(4, 4, FWedged1Wedge - Mat3x3(MatCrossCross, MTmp, e3a));
    WM.Add(4, 16, Mat3x3(MatCrossCross, e3a, MTmp));
    WM.Add(4, 25, Mat3x3(MatCross, d1Tmp));
    for (int iCnt = 1; iCnt <= 3; iCnt++) {
       WM.PutCoef(3+iCnt, 28, Tmp1(iCnt));
       WM.PutCoef(3+iCnt, 29, Tmp2(iCnt));       
    }
    
    /* Equazione di momento, nodo 2 */
    WM.Add(16, 4, Mat3x3(MatCrossCross, MTmp, e3a));
    WM.Add(16, 16, FWedged2Wedge - Mat3x3(MatCrossCross, e3a, MTmp));
    WM.Sub(16, 25, Mat3x3(MatCross, d2Tmp));
    for (int iCnt = 1; iCnt <= 3; iCnt++) {
       WM.PutCoef(15+iCnt, 28, -Tmp1(iCnt));
       WM.PutCoef(15+iCnt, 29, -Tmp2(iCnt));     
    }
    
    /* Derivata dell'equazione di momento, nodo 1 */
    WM.Add(10, 4, (Mat3x3(MatCross, FPrime) + Mat3x3(MatCrossCross, F, Omega1))*Mat3x3(MatCross, d1Tmp) - MDeltag1);
    WM.Add(10, 10, FWedged1Wedge - Mat3x3(MatCrossCross, MTmp, e3a));
    WM.Add(10, 16, MDeltag2);
    WM.Add(10, 22, Mat3x3(MatCrossCross, e3a, MTmp));
    WM.Add(10, 25, O1Wedged1Wedge);
    WM.Add(10, 30, Mat3x3(MatCross, d1Tmp));
    
    for (int iCnt = 1; iCnt <= 3; iCnt++) {
       WM.PutCoef(9+iCnt, 28, TmpPrime1(iCnt));
       WM.PutCoef(9+iCnt, 29, TmpPrime2(iCnt));
       WM.PutCoef(9+iCnt, 33, Tmp1(iCnt));
       WM.PutCoef(9+iCnt, 34, Tmp2(iCnt));       
    }
    
    /* Derivata dell'equazione di momento, nodo 2 */
    WM.Add(22, 4, MDeltag1);
    WM.Add(22, 10, Mat3x3(MatCrossCross, MTmp, e3a));
    WM.Sub(22, 16, (Mat3x3(MatCross, FPrime) + Mat3x3(MatCrossCross, F, Omega2))*Mat3x3(MatCross, d2Tmp) + MDeltag2);
    WM.Add(22, 22, FWedged2Wedge - Mat3x3(MatCrossCross, e3a, MTmp));
    WM.Add(22, 25, O2Wedged2Wedge);
    WM.Sub(22, 30, Mat3x3(MatCross, d2Tmp));
 
    for (int iCnt = 1; iCnt <= 3; iCnt++) {
       WM.PutCoef(21+iCnt, 28, -TmpPrime1(iCnt));
       WM.PutCoef(21+iCnt, 29, -TmpPrime2(iCnt));        
       WM.PutCoef(21+iCnt, 33, -Tmp1(iCnt));
       WM.PutCoef(21+iCnt, 34, -Tmp2(iCnt));
    }
    
    /* Equazione di vincolo di posizione */
    WM.Add(25, 4, Mat3x3(MatCross, d1Tmp));
    WM.Sub(25, 16, Mat3x3(MatCross, d2Tmp));
    
    /* Derivata dell'equazione di vincolo di posizione */
    WM.Add(30, 4, O1Wedged1Wedge);
    WM.Add(30, 10, Mat3x3(MatCross, d1Tmp));
    WM.Add(30, 16, O2Wedged2Wedge);
    WM.Sub(30, 22, Mat3x3(MatCross, d2Tmp));
    
    /* Equazioni di vincolo di rotazione: e1b~e3a, e2b~e3a */
             
    for (int iCnt = 1; iCnt <= 3; iCnt++) {
       doublereal d = Tmp1(iCnt);
       WM.PutCoef(28, 3+iCnt, d);
       WM.PutCoef(28, 15+iCnt, -d);
       
       /* Queste sono per la derivata dell'equazione, sono qui solo per 
        * ottimizzazione */
       WM.PutCoef(33, 9+iCnt, d);
       WM.PutCoef(33, 21+iCnt, -d);
       
       d = Tmp2.dGet(iCnt);
       WM.PutCoef(29, 3+iCnt, -d);
       WM.PutCoef(29, 15+iCnt, d);
       
       /* Queste sono per la derivata dell'equazione, sono qui solo per 
        * ottimizzazione */
       WM.PutCoef(34, 9+iCnt, -d);
       WM.PutCoef(34, 21+iCnt, d);
    }   
    
    /* Derivate delle equazioni di vincolo di rotazione: e1b~e3a, e2b~e3a */
    Vec3 O1mO2(Omega1-Omega2);
    TmpPrime1 = e3a.Cross(O1mO2.Cross(e2b));   
    TmpPrime2 = e2b.Cross(e3a.Cross(O1mO2));
    for (int iCnt = 1; iCnt <= 3; iCnt++) {      
       WM.PutCoef(33, 3+iCnt, TmpPrime1.dGet(iCnt));
       WM.PutCoef(33, 15+iCnt, TmpPrime2.dGet(iCnt));
    }
    
    TmpPrime1 = e3a.Cross(O1mO2.Cross(e1b));
    TmpPrime2 = e1b.Cross(e3a.Cross(O1mO2));
    for (int iCnt = 1; iCnt <= 3; iCnt++) {      
       WM.PutCoef(34, 3+iCnt, TmpPrime1.dGet(iCnt));
       WM.PutCoef(34, 15+iCnt, TmpPrime2.dGet(iCnt));
    }   
    
    return WorkMat;
 }

Here is the call graph for this function:

SubVectorHandler & PlaneHingeJoint::InitialAssRes	(	SubVectorHandler &	WorkVec,
		const VectorHandler &	XCurr
	)

virtual

Implements SubjectToInitialAssembly.

Definition at line 1333 of file planej.cc.

References VectorHandler::Add(), Vec3::Cross(), grad::Cross(), d1, d2, DEBUGCOUT, Vec3::dGet(), F, StructNode::GetRCurr(), StructDispNode::GetVCurr(), Mat3x3::GetVec(), StructNode::GetWCurr(), StructDispNode::GetXCurr(), DofOwnerOwner::iGetFirstIndex(), StructDispNode::iGetFirstPositionIndex(), InitialWorkSpaceDim(), M, pNode1, pNode2, VectorHandler::PutCoef(), SubVectorHandler::PutRowIndex(), R1h, R2h, VectorHandler::ResizeReset(), and VectorHandler::Sub().

 {   
    DEBUGCOUT("Entering PlaneHingeJoint::InitialAssRes()" << std::endl);
    
    /* Dimensiona e resetta la matrice di lavoro */
    integer iNumRows = 0;
    integer iNumCols = 0;
    InitialWorkSpaceDim(&iNumRows, &iNumCols);
    WorkVec.ResizeReset(iNumRows);
 
    /* Indici */
    integer iNode1FirstPosIndex = pNode1->iGetFirstPositionIndex();
    integer iNode1FirstVelIndex = iNode1FirstPosIndex+6;
    integer iNode2FirstPosIndex = pNode2->iGetFirstPositionIndex();
    integer iNode2FirstVelIndex = iNode2FirstPosIndex+6;
    integer iFirstReactionIndex = iGetFirstIndex();
    integer iReactionPrimeIndex = iFirstReactionIndex+5;
    
    /* Setta gli indici */
    for (int iCnt = 1; iCnt <= 6; iCnt++) {      
       WorkVec.PutRowIndex(iCnt, iNode1FirstPosIndex+iCnt);
       WorkVec.PutRowIndex(6+iCnt, iNode1FirstVelIndex+iCnt);
       WorkVec.PutRowIndex(12+iCnt, iNode2FirstPosIndex+iCnt);
       WorkVec.PutRowIndex(18+iCnt, iNode2FirstVelIndex+iCnt);
    }
    
    for (int iCnt = 1; iCnt <= 10; iCnt++) {
       WorkVec.PutRowIndex(24+iCnt, iFirstReactionIndex+iCnt);
    }
 
    /* Recupera i dati */
    const Vec3& x1(pNode1->GetXCurr());
    const Vec3& x2(pNode2->GetXCurr());
    const Vec3& v1(pNode1->GetVCurr());
    const Vec3& v2(pNode2->GetVCurr());
    const Mat3x3& R1(pNode1->GetRCurr());
    const Mat3x3& R2(pNode2->GetRCurr());
    const Vec3& Omega1(pNode1->GetWCurr());
    const Vec3& Omega2(pNode2->GetWCurr());
    
    /* Aggiorna F ed M, che restano anche per InitialAssJac */
    F = Vec3(XCurr, iFirstReactionIndex+1);
    M = Vec3(XCurr(iFirstReactionIndex+4),
             XCurr(iFirstReactionIndex+5),
             0.);
    Vec3 FPrime(XCurr, iReactionPrimeIndex+1);
    Vec3 MPrime(XCurr(iReactionPrimeIndex+4),
                XCurr(iReactionPrimeIndex+5),
                0.);
    
    /* Distanza nel sistema globale */
    Vec3 d1Tmp(R1*d1);
    Vec3 d2Tmp(R2*d2);
    Mat3x3 R1hTmp(R1*R1h);
    Mat3x3 R2hTmp(R2*R2h);
 
    /* Vettori omega1/\d1, -omega2/\d2 */
    Vec3 O1Wedged1(Omega1.Cross(d1Tmp));
    Vec3 O2Wedged2(Omega2.Cross(d2Tmp));
    
    Vec3 e3a(R1hTmp.GetVec(3));
    Vec3 e1b(R2hTmp.GetVec(1));
    Vec3 e2b(R2hTmp.GetVec(2));  
    
    /* Ruota il momento e la sua derivata con le matrici della cerniera 
     * rispetto ai nodi */
    Vec3 MTmp(e2b*M.dGet(1)-e1b*M.dGet(2));       
    Vec3 MPrimeTmp(e3a.Cross(MTmp.Cross(Omega2))+MTmp.Cross(Omega1.Cross(e3a))+
                   e2b.Cross(e3a)*MPrime.dGet(1)+e3a.Cross(e1b)*MPrime.dGet(2)); 
    
    /* Equazioni di equilibrio, nodo 1 */
    WorkVec.Sub(1, F);
    WorkVec.Add(4, F.Cross(d1Tmp)-MTmp.Cross(e3a)); /* Sfrutto il fatto che F/\d = -d/\F */
    
    /* Derivate delle equazioni di equilibrio, nodo 1 */
    WorkVec.Sub(7, FPrime);
    WorkVec.Add(10, FPrime.Cross(d1Tmp)-O1Wedged1.Cross(F)-MPrimeTmp);
    
    /* Equazioni di equilibrio, nodo 2 */
    WorkVec.Add(13, F);
    WorkVec.Add(16, d2Tmp.Cross(F)+MTmp.Cross(e3a)); 
    
    /* Derivate delle equazioni di equilibrio, nodo 2 */
    WorkVec.Add(19, FPrime);
    WorkVec.Add(22, d2Tmp.Cross(FPrime)+O2Wedged2.Cross(F)+MPrimeTmp);
    
    /* Equazione di vincolo di posizione */
    WorkVec.Add(25, x1+d1Tmp-x2-d2Tmp);
    
    /* Derivata dell'equazione di vincolo di posizione */
    WorkVec.Add(30, v1+O1Wedged1-v2-O2Wedged2);
 
    /* Equazioni di vincolo di rotazione */
    WorkVec.PutCoef(28, e2b.Dot(e3a));
    WorkVec.PutCoef(29, e1b.Dot(e3a));
    
    /* Derivate delle equazioni di vincolo di rotazione: e1b~e3a, e2b~e3a */
    Vec3 Tmp((Omega1-Omega2).Cross(e3a));
    WorkVec.PutCoef(33, e2b.Dot(Tmp));
    WorkVec.PutCoef(34, e1b.Dot(Tmp));
 
    return WorkVec;
 }

Here is the call graph for this function:

virtual void PlaneHingeJoint::InitialWorkSpaceDim	(	integer *	piNumRows,
		integer *	piNumCols
	)		const

inlinevirtual

Implements SubjectToInitialAssembly.

Definition at line 171 of file planej.h.

Referenced by InitialAssJac(), and InitialAssRes().

                                                               {
       *piNumRows = 34; 
       *piNumCols = 34;
    };

void PlaneHingeJoint::Output ( OutputHandler & OH ) const

virtual

Reimplemented from ToBeOutput.

Definition at line 975 of file planej.cc.

References ToBeOutput::bToBeOutput(), dRaDegr, EULER_123, EULER_313, EULER_321, F, BasicFriction::fc(), fc, OutputHandler::GetCurrentStep(), WithLabel::GetLabel(), StructNode::GetRCurr(), StructNode::GetWCurr(), OutputHandler::JOINTS, OutputHandler::Joints(), M, M3, MatR2EulerAngles123(), MatR2EulerAngles313(), MatR2EulerAngles321(), od, ORIENTATION_MATRIX, ORIENTATION_VECTOR, Joint::Output(), Vec3::pGetVec(), pNode1, pNode2, R1h, R2h, OutputHandler::UseNetCDF(), OutputHandler::UseText(), and RotManip::VecRot().

 {
    if (bToBeOutput()) {
       Mat3x3 R2Tmp(pNode2->GetRCurr()*R2h);
       Mat3x3 RTmp((pNode1->GetRCurr()*R1h).MulTM(R2Tmp));
       Vec3 OmegaTmp(R2Tmp.MulTV(pNode2->GetWCurr()-pNode1->GetWCurr()));
                 Vec3 E;
                 switch (od) {
                 case EULER_123:
                         E = MatR2EulerAngles123(RTmp)*dRaDegr;
                         break;
 
                 case EULER_313:
                         E = MatR2EulerAngles313(RTmp)*dRaDegr;
                         break;
 
                 case EULER_321:
                         E = MatR2EulerAngles321(RTmp)*dRaDegr;
                         break;
 
                 case ORIENTATION_VECTOR:
                         E = RotManip::VecRot(RTmp);
                         break;
 
                 case ORIENTATION_MATRIX:
                         break;
 
                 default:
                         /* impossible */
                         break;
                 }
 
 #ifdef USE_NETCDF
                 if (OH.UseNetCDF(OutputHandler::JOINTS)) {
                         Var_F_local->put_rec((R2Tmp.MulTV(F)).pGetVec(), OH.GetCurrentStep());
                         Var_M_local->put_rec(M.pGetVec(), OH.GetCurrentStep());
                         Var_F_global->put_rec(F.pGetVec(), OH.GetCurrentStep());
                         Var_M_global->put_rec((R2Tmp*M).pGetVec(), OH.GetCurrentStep());
 
                         switch (od) {
                         case EULER_123:
                         case EULER_313:
                         case EULER_321:
                         case ORIENTATION_VECTOR:
                                 Var_Phi->put_rec(E.pGetVec(), OH.GetCurrentStep());
                                 break;
 
                         case ORIENTATION_MATRIX:
                                 Var_Phi->put_rec(RTmp.pGetMat(), OH.GetCurrentStep());
                                 break;
 
                         default:
                                 /* impossible */
                                 break;
                         }
 
                         Var_Omega->put_rec(OmegaTmp.pGetVec(), OH.GetCurrentStep());
 /*
                         if (fc) {
                                         Var_MFR->put_rec(&M3, OH.GetCurrentStep());
                                         Var_MU->put_rec(fc->fc(), OH.GetCurrentStep());
                         }
                         else
                         {
                                 Var_MFR->put_rec(0, OH.GetCurrentStep());
                                 Var_MU->put_rec(0, OH.GetCurrentStep());
                         }
 */
                 }
 #endif // USE_NETCDF
                 if (OH.UseText(OutputHandler::JOINTS)) {
                           std::ostream &of = Joint::Output(OH.Joints(), "PlaneHinge", GetLabel(),
                                         R2Tmp.MulTV(F), M, F, R2Tmp*M)
                         << " ";
 
                         switch (od) {
                         case EULER_123:
                         case EULER_313:
                         case EULER_321:
                         case ORIENTATION_VECTOR:
                                 of << E;
                                 break;
 
                         case ORIENTATION_MATRIX:
                                 of << RTmp;
                                 break;
 
                         default:
                                 /* impossible */
                                 break;
                         }
 
                         of << " " << R2Tmp.MulTV(pNode2->GetWCurr()-pNode1->GetWCurr());
                           if (fc) {
                                   of << " " << M3 << " " << fc->fc();
                           }
                           of << std::endl;
                 }
    }
 }

Here is the call graph for this function:

void PlaneHingeJoint::OutputPrepare ( OutputHandler & OH )

virtual

Reimplemented from ToBeOutput.

Definition at line 949 of file planej.cc.

References ToBeOutput::bToBeOutput(), OutputHandler::JOINTS, od, Joint::OutputPrepare_int(), and OutputHandler::UseNetCDF().

 {
         if (bToBeOutput()) {
 #ifdef USE_NETCDF
                 if (OH.UseNetCDF(OutputHandler::JOINTS)) {
                         std::string name;
                         OutputPrepare_int("revolute hinge", OH, name);
 
                         Var_Phi = OH.CreateRotationVar(name, "", od, "global");
 
                         Var_Omega = OH.CreateVar<Vec3>(name + "Omega", "radian/s",
                                 "local relative angular velocity (x, y, z)");
 
 /* TODO
                         Var_MFR = OH.CreateVar<doublereal>(name + "MFR", "Nm",
                                 "friciton moment ");
 
                         Var_MU = OH.CreateVar<doublereal>(name + "MU", "--",
                                         "friction model specific data: friction coefficient?");
 */
                 }
 #endif // USE_NETCDF
         }
 }

Here is the call graph for this function:

Hint * PlaneHingeJoint::ParseHint	(	DataManager *	pDM,
		const char *	s
	)		const

virtual

Reimplemented from SimulationEntity.

Definition at line 432 of file planej.cc.

References fc, SimulationEntity::ParseHint(), and STRLENOF.

 {
         if (strncasecmp(s, "offset{" /*}*/ , STRLENOF("offset{" /*}*/ )) == 0)
         {
                 s += STRLENOF("offset{" /*}*/ );
 
                 if (strcmp(&s[1], /*{*/ "}") != 0) {
                         return 0;
                 }
 
                 switch (s[0]) {
                 case '1':
                         return new Joint::OffsetHint<1>;
 
                 case '2':
                         return new Joint::OffsetHint<2>;
                 }
 
         } else if (strncasecmp(s, "hinge{" /*}*/, STRLENOF("hinge{" /*}*/)) == 0) {
                 s += STRLENOF("hinge{" /*}*/);
 
                 if (strcmp(&s[1], /* { */ "}") != 0) {
                         return 0;
                 }
 
                 switch (s[0]) {
                 case '1':
                         return new Joint::HingeHint<1>;
 
                 case '2':
                         return new Joint::HingeHint<2>;
                 }
 
         } else if (fc) {
                 return fc->ParseHint(pDM, s);
         }
 
         return 0;
 }

Here is the call graph for this function:

void PlaneHingeJoint::ReadInitialState ( MBDynParser & HP )

virtual

Reimplemented from SimulationEntity.

Definition at line 510 of file planej.cc.

References F, HighParser::GetReal(), MBDynParser::GetVec3(), and M.

 {
         F = HP.GetVec3();
         M = Vec3(HP.GetReal(), HP.GetReal(), 0.);
 }

Here is the call graph for this function:

std::ostream & PlaneHingeJoint::Restart ( std::ostream & out ) const

virtual

Implements Elem.

Definition at line 519 of file planej.cc.

References d1, d2, Vec3::dGet(), dTheta, F, WithLabel::GetLabel(), Mat3x3::GetVec(), M, pNode1, pNode2, R1h, R2h, Joint::Restart(), Write(), and Vec3::Write().

 {
    Joint::Restart(out) << ", revolute hinge, "
      << pNode1->GetLabel() << ", reference, node, ",
      d1.Write(out, ", ")
      << ", hinge, reference, node, 1, ", (R1h.GetVec(1)).Write(out, ", ")
      << ", 2, ", (R1h.GetVec(2)).Write(out, ", ") << ", "
      << pNode2->GetLabel() << ", reference, node, ",
      d2.Write(out, ", ")
      << ", hinge, reference, node, 1, ", (R2h.GetVec(1)).Write(out, ", ")
      << ", 2, ", (R2h.GetVec(2)).Write(out, ", ") << ", " 
      << "initial theta, " << dTheta << ", "
      << "initial state, ", F.Write(out, ", ") 
      << ", " << M.dGet(1) << ", " << M.dGet(2) << ';' << std::endl;
    
    return out;
 }

Here is the call graph for this function:

void PlaneHingeJoint::SetValue	(	DataManager *	pDM,
		VectorHandler &	X,
		VectorHandler &	XP,
		SimulationEntity::Hints *	ph = `0`
	)

virtual

Reimplemented from Joint.

Definition at line 374 of file planej.cc.

References calcInitdTheta, d1, d2, Vec3::dGet(), dTheta, dThetaWrapped, F, fc, StructNode::GetRCurr(), StructDispNode::GetXCurr(), DofOwnerOwner::iGetFirstIndex(), M, Mat3x3::MulTM(), NumSelfDof, pNode1, pNode2, VectorHandler::Put(), VectorHandler::PutCoef(), R1h, R2h, BasicFriction::SetValue(), and RotManip::VecRot().

 {
         if (ph) {
                 for (unsigned i = 0; i < ph->size(); i++) {
                         Joint::JointHint *pjh = dynamic_cast<Joint::JointHint *>((*ph)[i]);
 
                         if (pjh == 0) {
                                 continue;
                         }
 
                         if (dynamic_cast<Joint::OffsetHint<1> *>(pjh)) {
                                 const Mat3x3& R1(pNode1->GetRCurr());
                                 Vec3 dTmp2(pNode2->GetRCurr()*d2);
    
                                 d1 = R1.MulTV(pNode2->GetXCurr() + dTmp2 - pNode1->GetXCurr());
 
                         } else if (dynamic_cast<Joint::OffsetHint<2> *>(pjh)) {
                                 const Mat3x3& R2(pNode2->GetRCurr());
                                 Vec3 dTmp1(pNode1->GetRCurr()*d1);
    
                                 d2 = R2.MulTV(pNode1->GetXCurr() + dTmp1 - pNode2->GetXCurr());
 
                         } else if (dynamic_cast<Joint::HingeHint<1> *>(pjh)) {
                                 R1h = pNode1->GetRCurr().MulTM(pNode2->GetRCurr()*R2h);
 
                         } else if (dynamic_cast<Joint::HingeHint<2> *>(pjh)) {
                                 R2h = pNode2->GetRCurr().MulTM(pNode1->GetRCurr()*R1h);
 
                         } else if (dynamic_cast<Joint::ReactionsHint *>(pjh)) {
                                 /* TODO */
                         }
                 }
         }
 
         if (calcInitdTheta) {
                 Vec3 v(RotManip::VecRot((pNode1->GetRCurr()*R1h).MulTM(pNode2->GetRCurr()*R2h)));
                 
                 dThetaWrapped = dTheta = v.dGet(3);
         }
         
 #if 0
         std::cerr << "F: " << F << std::endl;
         std::cerr << "M: " << M << std::endl;
 #endif
         
         integer iFirstReactionIndex = iGetFirstIndex();
         X.Put(iFirstReactionIndex + 1, F);
         X.PutCoef(iFirstReactionIndex + 4, M.dGet(1));
         X.PutCoef(iFirstReactionIndex + 5, M.dGet(2));
 
         if (fc) {
                 fc->SetValue(pDM, X, XP, ph, iGetFirstIndex() + NumSelfDof);
         }
 }

Here is the call graph for this function:

void PlaneHingeJoint::WorkSpaceDim	(	integer *	piNumRows,
		integer *	piNumCols
	)		const

inlinevirtual

Implements Elem.

Definition at line 141 of file planej.h.

References fc, SimulationEntity::iGetNumDof(), and NumDof.

Referenced by AssJac(), and AssRes().

                                                                    { 
       *piNumRows = NumDof;
       *piNumCols = NumDof;
       if (fc) {
           *piNumRows += fc->iGetNumDof();
           *piNumCols += fc->iGetNumDof();
       } 
    };