MalcolmWoodruff/TerraLapsus | Paclet Repository

MalcolmWoodruff`TerraLapsus`BishopSimplified`

CrackGraphics

	CrackGraphics [model,surface,opts] returns the graphics primitives for a tension crack on that surface - the open face, the water standing in it, the triangular pressure distribution and its resultant - or {} when the model has no crack. Exposed so that SlipSurfacePlot, which lives in another context, draws the crack exactly as SlipCirclePlot does rather than growing a second version of it that could drift.
	A caller must also CLIP the drawn surface at the crack station: a crack truncates the mechanism, and a picture showing slip surface running up through ground the analysis has removed contradicts its own numbers.

Details and Options

▪

The symbol lives in the context MalcolmWoodruff`TerraLapsus`BishopSimplified`. Load the whole library with Needs["MalcolmWoodruff`TerraLapsus`"]; every context is put on $ContextPath, so CrackGraphics 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)

The graphics primitives for a tension crack, to overlay on a section:

In[1]:=

mc = 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|>}|>,
"TensionCrack" -> <|"Depth" -> Automatic, "WaterDepth" -> Full|>];
r = BishopCriticalCircle[mc, "Grid" -> 12];
SlipCirclePlot[mc, r]

RelatedGuides

▪

TerraLapsus

""