getPlinthForce: Computes the force on the plinth on the ground

In treecm: Centre of Mass Assessment and Consolidation of Trees

Description

To stabilize the tree a steel cable is connected from an anchor point on the tree to a plinth on the ground. The function computes the force on the plinth (needed to choose the appropriate steel cable and to build the plinth itself) and the maximum security azimuth (the angle relative to the North from the tree base). Force is computed by comparing the moment of the tree and the moment of the anchor, whose arm is the vector from tree base to the anchor point. The anchor point is defined as the distance from tree base, along the stem. Note that this distance equals anchor height only when the stem is perfectly vertical and straight.

Usage

getPlinthForce(l.stem, d, logs, treeMoment, CM)

Arguments

l.stem	the distance from tree base to anchor point, along the stem
d	the length of the cable (in metres)
logs	a data frame holding the selected logs (see logPathSelection)
treeMoment	the moment of the tree as computed by calcMoment
CM	an object of CM class

Value

a named list of 6 elements:

force	the force in Newton on the plinth
distanceOnGround	the distance from tree base to the plinth
anchorAlongStem	the distance from tree base to the anchor (ie l.stem)
cableLength	the length of the cable (ie d)
anchorHeight	true height of the anchor over ground
azimuth	the azimuth of the plint relative to the tree base

Note

The function is vectorized both for anchor distance from tree base (l.stem parameter) and for cable length (d). It is not possible to pass invalid l.stem values, see anchorRange.

See Also

Other Stabilization: anchorRange, centreOfMassAngle, centreOfMassModulus, logPathSelection, toCartesianXYZ

Examples

library(treecm)
data(stonePine1TreeData)
vectors <- treeVectors(stonePine1TreeData)
CM <- centreOfMass(vectors)
treeMoment <- buildTreeMomentObject(
  centreOfMassModulus(CM)
  , treeTotalBiomass(stonePine1TreeData)
  , centreOfMassAngle(CM)
  )
treeMoment <- calcMoment(treeMoment)
logs <- logPathSelection(stonePine1TreeData)
plinth <- data.frame(getPlinthForce(10, 20, logs, getMoment(treeMoment), CM))

treecm documentation built on May 1, 2019, 9:30 p.m.