方格网法计算土石方挖填工程量

宏算界面

方格网法计算土石方挖填工程量

注：从左上角按顺时针方向依次录入方格四角的标高值。

方格长度a=		m
方格宽度b=		m
设计标高 Hs1=		m
设计标高 Hs2=		m
设计标高 Hs3=		m
设计标高 Hs4=		m
场地标高 H1=		m
场地标高 H2=		m
场地标高 H3=		m
场地标高 H4=		m


施工深度 h1=		m
施工深度 h2=		m
施工深度 h3=		m
施工深度 h2=		m
面积=		m2
挖方体积=		m3
填方体积=		m3
b1=
c1=
b2=
c2=
b3=
c3=
b4=
c4=

无结果可显示

作者：临风听蝉 QQ：126294263

基本信息

标题: 方格网法计算土石方挖填工程量

版本: 第1版

发布者: xiaoyu6463

创建时间: 2017-06-23 23:15:44

修改时间: 2017-06-24 20:08:50

发布时间: 2017-06-24 20:09:11

人气: 查询中...

评分: 查询中...

二维码

收藏 & 分享

下载

算式

option{
title:"方格网法计算土石方挖填工程量";
footnote:"作者：临风听蝉     QQ：126294263";}

input{
a:"方格长度a=","m";
b:"方格宽度b=","m";

Hs1:"设计标高 Hs1=","m";
Hs2:"设计标高 Hs2=","m";
Hs3:"设计标高 Hs3=","m";
Hs4:"设计标高 Hs4=","m";

H1:"场地标高 H1=","m";
H2:"场地标高 H2=","m";
H3:"场地标高 H3=","m";
H4:"场地标高 H4=","m";}

default{
a:10;
b:10;
Hs1:0;
Hs2:0;
Hs3:0;
Hs4:0;
H1:0;
H2:0;
H3:0;
H4:0;}

output{


v1:hide;
v2:hide;
v:hide;

h1:"施工深度 h1=","m";
h2:"施工深度 h2=","m";
h3:"施工深度 h3=","m";
h4:"施工深度 h2=","m";
s:"面积=","m2";
V1:"挖方体积=","m3";
V2:"填方体积=","m3";
tpt:hide;
b1:"b1=";
c1:"c1=";

tpr:hide;
b2:"b2=";
c2:"c2=";

tpb:hide;
b3:"b3=";
c3:"c3=";

tpl:hide;
b4:"b4=";
c4:"c4=";}

h1=Hs1-H1;
h2=Hs2-H2;
h3=Hs3-H3;
h4=Hs4-H4;

tpt=when(greaterOrEqual(h1*h2,0),0,1);
b1=round(1000*when(tpt,abs(h1)*a/(abs(h1)+abs(h2)),0))/1000;
c1=round(1000*when(tpt,abs(h2)*a/(abs(h1)+abs(h2)),0))/1000;

tpr=when(greaterOrEqual(h2*h3,0),0,1);
b2=round(1000*when(tpr,abs(h2)*b/(abs(h2)+abs(h3)),0))/1000;
c2=round(1000*when(tpr,abs(h3)*b/(abs(h2)+abs(h3)),0))/1000;

tpb=when(greaterOrEqual(h3*h4,0),0,1);
b3=round(1000*when(tpb,abs(h3)*a/(abs(h3)+abs(h4)),0))/1000;
c3=round(1000*when(tpb,abs(h4)*a/(abs(h3)+abs(h4)),0))/1000;

tpl=when(greaterOrEqual(h4*h1,0),0,1);
b4=round(1000*when(tpl,abs(h4)*b/(abs(h4)+abs(h1)),0))/1000;
c4=round(1000*when(tpl,abs(h1)*b/(abs(h4)+abs(h1)),0))/1000;

s=a*b;
v=round(100*s*(h1+h2+h3+h4)/4)/100;
v1=round(100*when(equal(tpt,0),when(equal(tpr,0),(s-c3*b4/2)*(h1+h2+h3)/5,when(equal(tpb,0),(c4+b2)*a*(h1+h2)/8,(s-c2*b3/2)*(h1+h2+h4)/5)),
when(equal(tpr,0),when(equal(tpb,0),b1*c4*h1/6,(b1+c3)*b*(h1+h4)/8),
when(equal(tpb,0),(s-c1*b2/2)*(h1+h3+h4)/5,(b1*c4*h1+b3*c2*h3)/6))))/100;

v2=round(100*when(equal(tpt,0),when(equal(tpr,0),c3*b4*h4/6,when(equal(tpb,0),(b4+c2)*a*(h3+h4)/8,c2*b3*h3/6)),
when(equal(tpr,0),when(equal(tpb,0),(s-b1*c4/2)*(h2+h3+h4)/5,(c1+b3)*b*(h2+h3)/8),
when(equal(tpb,0),c1*b2*h2/6,(c1*b2*h2+c3*b4*h4)/6))))/100;

V1=abs(when(equal(tpt+tpr+tpb+tpl,0),when(less(v,0),v,0),when(less(v1,0),v1,v2)));
V2=abs(when(equal(tpt+tpr+tpb+tpl,0),when(less(v,0),0,v),when(less(v1,0),v2,v1)));