Description Usage Arguments Value Note See Also Examples
View source: R/stabilization.R
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.
1 | getPlinthForce(l.stem, d, logs, treeMoment, CM)
|
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 |
treeMoment |
the moment of the tree as computed by |
CM |
an object of |
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 |
cableLength |
the length of the cable (ie |
anchorHeight |
true height of the anchor over ground |
azimuth |
the azimuth of the plint relative to the tree base |
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
.
Other Stabilization: anchorRange
,
centreOfMassAngle
,
centreOfMassModulus
,
logPathSelection
,
toCartesianXYZ
1 2 3 4 5 6 7 8 9 10 11 12 | 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))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.