Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
MalcolmWoodruff`TerraLapsus`ThrustLine`
ThrustLine  |
| | |
| Points where |E| has fallen below "EFloor" (default 0.02 of its maximum) are dropped: the thrust elevation is a moment DIVIDED BY E, and E goes to zero at both ends of the surface by force closure, so the line runs away there for arithmetic rather than physical reasons. | |
▪
The symbol lives in the context MalcolmWoodruff`TerraLapsus`ThrustLine`. Load the whole library with Needs["MalcolmWoodruff`TerraLapsus`"]; every context is put on $ContextPath, so ThrustLine is reached by its plain name.
▪
TerraLapsusHelp[] prints a summary of the package. TerraLapsusFunctions[] lists every documented function and is searchable, e.g. TerraLapsusFunctions["*Crack*"]. TerraLapsusManual[] opens the quick-start manual and TerraLapsusExample[] the five worked examples.
Examples
(1)
Basic Examples
(1)
Where the interslice resultant acts, slice by slice:
In[1]:=
model = SlopeModel[
<|"Height" -> 10., "SlopeAngle" -> 26.57 Degree,
"FoundationDepth" -> 10., "CrestLength" -> 22.,
"ToeLength" -> 22., "XStart" -> -12.|>,
<|"Regions" -> {<|"Name" -> "Clay", "Base" -> 0.,
"UnitWeight" -> 20., "Cohesion" -> 10.,
"FrictionAngle" -> 20. Degree|>}|>];
res = BishopCriticalCircle[model, "Grid" -> 12];
ThrustLine[model, SpencerFoS[model, res]]["InsideFraction"]
<|"Height" -> 10., "SlopeAngle" -> 26.57 Degree,
"FoundationDepth" -> 10., "CrestLength" -> 22.,
"ToeLength" -> 22., "XStart" -> -12.|>,
<|"Regions" -> {<|"Name" -> "Clay", "Base" -> 0.,
"UnitWeight" -> 20., "Cohesion" -> 10.,
"FrictionAngle" -> 20. Degree|>}|>];
res = BishopCriticalCircle[model, "Grid" -> 12];
ThrustLine[model, SpencerFoS[model, res]]["InsideFraction"]
 |
|
""