土楔(土くさび)重量、逆T字型擁壁、段差有盛り土、Calculation of Weight of Soil wedge. ※Inverse T-Shape Cantilever Retaining wall,Uneven Embankment.

Equation
W=\frac{1}{2}\gamma \{(H+H_{1})^{2}\cot\omega-H^{2}_{1}\cot \beta\}

000272

Scilab
272sc01272sc02

 -->clear;
-->for www=1:2
-->    funcprot(0);
-->    deff('[W]=func1(omega,beta0)','W=1/2*gamma0*((H+H1)^2*cotd(omega)-H1^2*cotd(beta0))');
-->    H1=1;//m
-->    H=10;//m
-->    gamma0=2;//t/m^3
-->    omega=linspace(40,60);//m
-->    beta0=linspace(5,30);//m
-->    xset("window",www);clf();xgrid();
-->    graphtitle='Weight of Soil wedge';
-->    xtitle(graphtitle,'ω(°)','β(°)','W(tf/m)',boxed=1);
-->    if www==1 then 
-->        color(224,255,255);
-->        idcolor=color(224,255,255);
-->        fplot3d(omega,beta0,func1,flag=[idcolor , 2 , 4]);
-->    elseif www==2 then
-->        contour(omega,beta0,func1,30,flag=[2,2,4]); 
-->    end 
-->    currentaxes=get("current_axes");
-->    currentaxes.font_size=6;
-->    currentaxes.title.font_size=6;
-->    currentaxes.x_label.font_size=6;
-->    currentaxes.y_label.font_size=6;
-->    currentaxes.z_label.font_size=6;
-->    currentaxes.tight_limits="on";
-->    currentaxes.cube_scaling="on";
-->    currentaxes.auto_clear="on";
-->    currentaxes.auto_scale="on";
-->end
-->func1(45,20)
 ans  =
 
    118.25252  
-->func1(30,5)
 ans  =
 
    198.1481  

SciNotes

clear;
for www=1:2
    funcprot(0);
    deff('[W]=func1(omega,beta0)','W=1/2*gamma0*((H+H1)^2*cotd(omega)-H1^2*cotd(beta0))');
    H1=1;//m
    H=10;//m
    gamma0=2;//t/m^3
    omega=linspace(40,60);//m
    beta0=linspace(5,30);//m
    xset("window",www);clf();xgrid();
    graphtitle='Weight of Soil wedge';
    xtitle(graphtitle,'ω(°)','β(°)','W(tf/m)',boxed=1);
    if www==1 then 
        color(224,255,255);
        idcolor=color(224,255,255);
        fplot3d(omega,beta0,func1,flag=[idcolor , 2 , 4]);
    elseif www==2 then
        contour(omega,beta0,func1,30,flag=[2,2,4]); 
    end 
    currentaxes=get("current_axes");
    currentaxes.font_size=6;
    currentaxes.title.font_size=6;
    currentaxes.x_label.font_size=6;
    currentaxes.y_label.font_size=6;
    currentaxes.z_label.font_size=6;
    currentaxes.tight_limits="on";
    currentaxes.cube_scaling="on";
    currentaxes.auto_clear="on";
    currentaxes.auto_scale="on";
end
func1(45,20)
func1(30,5)

Keyword
Weight,Soil Wedge,Inverse T-Shape Cantilever Retaining wall,Unit Weight,Sliding Surface,Eneven Embankment.

参考文献
右城猛(1989).『新道路土工指針による擁壁の設計法と計算例』.理工図書.226pp.

アプリケーション
URL Scilab http://www.scilab.org/