Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
MalcolmWoodruff`TerraLapsus`JanbuSimplified`
JanbuFoS  |
| |
▪
The symbol lives in the context MalcolmWoodruff`TerraLapsus`JanbuSimplified`. Load the whole library with Needs["MalcolmWoodruff`TerraLapsus`"]; every context is put on $ContextPath, so JanbuFoS 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)
Janbu on a surface given as a polyline:
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];
JanbuFoS[model, SurfaceFromCircle[model, Append[res["Center"], res["Radius"]]]]["FoS"]
<|"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];
JanbuFoS[model, SurfaceFromCircle[model, Append[res["Center"], res["Radius"]]]]["FoS"]
 |
|
""