IF(H1) { →000067TEXT("Geostatic stress according to Eurocode 7");
→000087TEXT(string NA); }
IF(PrintCaption) { →000028TEXT(string H2); }
→000109BLOCK {
//Arrays definition and calculation. It should be hidden
//TI is table input
→001383object[] TI;
double[] Depth →000091= new double[];
double[] Centroid →000112= new double[];
double[] σ →000122= new double[];
double[] σ↓m← →000123= new double[];
//Geostatic stress and depth calculation
Depth[0] →000101= TI[0].Width;
Centroid[0] →000144= TI[0].Width/2;
σ[0] →000125= TI[0].Width*TI[0].Weight-MAX(TI[0].Width-h↓w←, 0)*γ↓w←;
σ↓m←[0] →000130= σ[0]/2;
FOR(i, 1, TI.Count-1) {
Depth[i] →000102= Depth[i-1]+TI[i].Width;
Centroid[i] →000114= (Depth[i]-Depth[i-1])/2+Depth[i-1];
σ[i] →000126= σ[i-1]+TI[i].Width*TI[i].Weight-MAX(MIN(Depth[i]-h↓w←, TI[i].Width), 0)*γ↓w←;
σ↓m←[i] →000131= (σ[i-1]+σ[i])/2;
}
}
//Presentation of results
IF(P1) {
→000088TEXT("Characteristic subsoil parameters");
FOR(i, 0, TI.Count-1) {
→000103TEXT(val(i+1, 0));
→000107TEXT(" . layer");
→000104TEXT("Width");
→000105TEXT("h" & val(i+1, 0) & " = " & TI[i].Width & "m");
→000106TEXT("Unit weight");
→000108TEXT("γ" & val(i+1, 0) & " = " & VAL(TI[i].Weight/10↑3←, 2) & "kN/m↑3←");
→000110TEXT("Centroid depth");
→000111TEXT("z" & val(i+1, 0) & " = " & Centroid[i] & "m");
→000134TEXT("Bottom depth");
→000135TEXT("z↓bot←" & val(i+1, 0) & " = " & Depth[i] & "m");
}
→000118TEXT("Groundwater level");
→000121TEXT("h↓w← = " & h↓w← & "m");
→000119TEXT("γ↓w← = " & VAL(γ↓w←/10↑3←, 0) & "kN/m↑3←");
→000143TEXT("For dry conditions set groundwater level below z↓bot← of the last layer");
PAGEBREAK();
}
→000120TEXT("Axial stress on the bottom edge of the layers");
→000136TEXT("σ↓ι← = σ↓i-1← + h↓i← * γ↓i← - MAX (MIN (z↓bot,i← - h↓w← , h↓i←), 0) * γ↓w← =");
→000138TEXT("σ2 = " & VAL(σ[0]/10↑3←, 4) & "+" & TI[1].Width & "*" & VAL(TI[1].Weight/10↑3←, 2) & "- MAX (MIN (" & Depth[1] & "-" & h↓w← & "," & TI[2].Width & "), 0) *" & VAL(γ↓w←/10↑3←, 1) & "=" & VAL(σ[2]/10↑3←, 4) & "kPa");
FOR(i, 0, TI.Count-1) {
→000128TEXT("σ" & val(i+1, 0) & " = " & VAL(σ[i]/10↑3←, 4) & "kPa");
}
pagebreak();
→000129TEXT("Axial stress in the centroid of the layers");
→000133TEXT("σ↓mi← = (σ↓ι-1← + σ↓i←) / 2 = ");
→000139TEXT("σ↓m←2 = " & VAL(σ[0]/10↑3←, 4) & " + " & VAL(σ[1]/10↑3←, 4) & ") / 2 =" & VAL(σ↓m←[1]/10↑3←, 4) & "kPa");
FOR(i, 0, TI.Count-1) {
→000132TEXT("σ↓m←" & val(i+1, 0) & " = " & VAL(σ↓m←[i]/10↑3←, 4) & "kPa");
}
pagebreak();
//graphics definition
→001379BLOCK {
object G →000160= new Graphics();
object PenA →000177= new Pen(Color.Black, 3);
object PenB →001367= new Pen(Color.Black);
PenB.DashStyle →001380= DashStyle.Dash;
object F →001359= new Font("Arial", 10);
object Axis →001376= new Font("Arial", 20);
G.DefaultDimStyle.Scale →001353= 1000;
G.DefaultDimStyle.FixedDimLength →001356= 20;
G.DefaultDimStyle.LineOffset →001357= 40;
//Drawing of first layer
→001360G.DrawText("0", F, 0, 0, ContentAlignment.BottomCenter);
→000169G.DrawLine(0, 0, 0, -TI[0].Width, PenA);
→000170G.DrawLine(0, -TI[0].Width, σ[0], -TI[0].Width, PenA);
→000171G.DrawLine(σ[0], -TI[0].Width, 0, 0, PenA);
→001368G.DrawLine(0, -Centroid[0], σ↓m←[0], -Centroid[0], PenB);
→001369G.DrawDimY(new PointD(0, 0), new PointD(0, -TI[0].Width));
→001373G.DrawText("σ1 = " & (σ[0]/1000).ToString("0.0") & " kPa", F, σ[0]+3000, -Depth[0], ContentAlignment.MiddleLeft);
→001374G.DrawText("σm1 = " & (σ↓m←[0]/1000).ToString("0.0") & " kPa", F, σ↓m←[0]+3000, -Centroid[0], ContentAlignment.MiddleLeft);
//Drawing all other layers
FOR(i, 1, TI.Count-1) {
→000174G.DrawLine(0, -Depth[i-1], 0, -Depth[i], PenA);
→000175G.DrawLine(0, -Depth[i], σ[i], -Depth[i], PenA);
→000176G.DrawLine(σ[i], -Depth[i], σ[i-1], -Depth[i-1], PenA);
→001370G.DrawLine(0, -Centroid[i], σ↓m←[i], -Centroid[i], PenB);
→001358G.DrawDimY(new PointD(0, -Depth[i-1]), new PointD(0, -Depth[i]));
→001364G.DrawText("σ" & val(i+1, 0) & " = " & (σ[i]/1000).ToString("0.0") & " kPa", F, σ[i]+3000, -Depth[i], ContentAlignment.MiddleLeft);
→001375G.DrawText("σm" & val(i+1, 0) & " = " & (σ↓m←[i]/1000).ToString("0.0") & " kPa", F, σ↓m←[i]+3000, -Centroid[i], ContentAlignment.MiddleLeft);
}
→001381G.DrawLine(-5000, -h↓w←, σ[i]+5000, -h↓w←);
→001382G.DrawText("Groundwater level", F, σ[i]-30000, -h↓w←, ContentAlignment.BottomLeft);
//Other drawing (axis, descriptions...)
→000178G.DrawArrow(new PointD(σ[i]*1.1, 0), new PointD(0, 0), ArrowShape.Arrow, 20);
→000180G.DrawArrow(new PointD(0, -Depth[i]*1.1), new PointD(0, 0), ArrowShape.Arrow, 20);
→001377G.DrawText("σ", Axis, σ[i], 0.0, ContentAlignment.TopRight);
→001378G.DrawText("z", Axis, 5000, -Depth[i]*1.05, ContentAlignment.MiddleLeft);
//Draw
IF(P2) {
→000179G.Draw(400, 500, false);
}
}
//End of graphics definition
Geostatic stress - advanced
Geostatické napětí - pokročilé
National code
Národní norma
Print headline
Tisknout nadpis
Userdefined headline
Uživatelský nadpis
Print userdefined headline
Tisknout uživatelský nadpis
Print subsoil parameters
Tisknout parametry podloží
Groundwater level
Hladina podzemní vody
Water weight
Objemová tíha vody
Print picture
Tisknout obrázek
Full
Plný
Standard
Standard
Brief
Stručný
Layout 3
Layout 3
Layout 4
Layout 4
Layout 5
Layout 5
http://sciadesignforms.com/
http://sciadesignforms.com/
"Geostatic stress according to Eurocode 7"
"Geostatické napětí podle Eurokódu 7"
string NA
string NA
string H2
string H2
"Characteristic subsoil parameters"
"Charakteristické vlastnosti podloží"
val(i+1, 0)
val(i+1, 0)
"Width"
"Šířka"
"h" & val(i+1, 0) & " = " & TI[i].Width & "m"
"h" & val(i+1, 0) & " = " & TI[i].Width & "m"
"Unit weight"
"Objemová tíha"
" . layer"
" . vrstva"
"γ" & val(i+1, 0) & " = " & VAL(TI[i].Weight/10↑3←, 2) & "kN/m↑3←"
"γ" & val(i+1, 0) & " = " & VAL(TI[i].Weight/10↑3←, 2) & "kN/m↑3←"
"Centroid depth"
"Hloubka těžiště vrstvy"
"z" & val(i+1, 0) & " = " & Centroid[i] & "m"
"z" & val(i+1, 0) & " = " & Centroid[i] & "m"
"Groundwater level"
"Hladina podzemní vody"
"γ↓w← = " & VAL(γ↓w←/10↑3←, 0) & "kN/m↑3←"
"γ↓w← = " & VAL(γ↓w←/10↑3←, 0) & "kN/m↑3←"
"Axial stress on the bottom edge of the layers"
"Normálové napětí na spodní hraně vrstvy"
"h↓w← = " & h↓w← & "m"
"h↓w← = " & h↓w← & "m"
"σ" & val(i+1, 0) & " = " & VAL(σ[i]/10↑3←, 4) & "kPa"
"σ" & val(i+1, 0) & " = " & VAL(σ[i]/10↑3←, 4) & "kPa"
"Axial stress in the centroid of the layers"
"Normálové napětí v těžišti vrstvy"
"σ↓m←" & val(i+1, 0) & " = " & VAL(σ↓m←[i]/10↑3←, 4) & "kPa"
"σ↓m←" & val(i+1, 0) & " = " & VAL(σ↓m←[i]/10↑3←, 4) & "kPa"
"σ↓mi← = (σ↓ι-1← + σ↓i←) / 2 = "
"σ↓mi← = (σ↓ι-1← + σ↓i←) / 2 = "
"Bottom depth"
"Hloubka dna"
"z↓bot←" & val(i+1, 0) & " = " & Depth[i] & "m"
"z↓bot←" & val(i+1, 0) & " = " & Depth[i] & "m"
"σ↓ι← = σ↓i-1← + h↓i← * γ↓i← - MAX (MIN (z↓bot,i← - h↓w← , h↓i←), 0) * γ↓w← ="
"σ↓ι← = σ↓i-1← + h↓i← * γ↓i← - MAX (MIN (z↓bot,i← - h↓w← , h↓i←), 0) * γ↓w← ="
"σ2 = " & VAL(σ[0]/10↑3←, 4) & "+" & TI[1].Width & "*" & VAL(TI[1].Weight/10↑3←, 2) & "- MAX (MIN (" & Depth[1] & "-" & h↓w← & "," & TI[2].Width & "), 0) *" & VAL(γ↓w←/10↑3←, 1) & "=" & VAL(σ[2]/10↑3←, 4) & "kPa"
"σ2 = " & VAL(σ[0]/10↑3←, 4) & "+" & TI[1].Width & "*" & VAL(TI[1].Weight/10↑3←, 2) & "- MAX (MIN (" & Depth[1] & "-" & h↓w← & "," & TI[2].Width & "), 0) *" & VAL(γ↓w←/10↑3←, 1) & "=" & VAL(σ[2]/10↑3←, 4) & "kPa"
"σ↓m←2 = " & VAL(σ[0]/10↑3←, 4) & " + " & VAL(σ[1]/10↑3←, 4) & ") / 2 =" & VAL(σ↓m←[1]/10↑3←, 4) & "kPa"
"σ↓m←2 = " & VAL(σ[0]/10↑3←, 4) & " + " & VAL(σ[1]/10↑3←, 4) & ") / 2 =" & VAL(σ↓m←[1]/10↑3←, 4) & "kPa"
"For dry conditions set groundwater level below z↓bot← of the last layer"
"Pro odvodněné podmínky nastavit hladinu podzemní vody pod z↓bot← poslední vrstvy"