砂土液化评价的ExcelVBA开发.pdf

2009年9月第第3期
深圳土木与建筑
VOL6 NO. 3 SEP2009
砂土液化评价的 Excel VBA开发
刘大海赵行立
(深圳市地质局)
【摘要】在砂土液化评价中,液化指数E采用手工计算相当繁琐。利用 Excel VBA开发平台开发的砂土液
化评价,使用十分简便,全自动计算,其 Excel评价表格可直接作为工程文档。
关键词】砂土液化评价开发 Excel VBA
1引言
语言。因此,它即有VB的易用性及灵活性特点,
在《建筑抗震设计规范》(GB50011-2001)l又有 Excel I的表格化优点。以 Excel VBA为平台开
中,砂土液化指数z计算本身较为简单,但在实际发的砂土液化评价表,输入原始数据后只要运行
工程项月中,砂土液化点常以数十、数百计,手工“砂土液化评价”宏即可实现全自动化计算,使用
计算十分繁琐。其繁琐之处在于,对每一标贯点,十分简便,其输出的 Excel表可直接作为工程文档。
与标贯值Ni相对应的标贯深度dsi的代表土层之顶2砂土液化指标计算
界深度dai及底界深度dbい、厚度、中点深度zL
2.1计算公式
影响函数wⅵ、以及液化标贯击数临界值Ncri均要逐
砂土单点液化指数lB:计算公式为:
个计算,而dai、dbi在不同条件下计算方法不同
影响函数wi为分段函数且对于浅基础及深基础的
单孔液化指数l1E计算公式为
计算公式也各异。这些特点决定了手工计算的繁琐
与工作量的浩瀚。
Excel是应用最广的大众计算工具, Excel VBA
其中:
是依赖于 Excel的一种应用开发平台,类似于VB
k:=(1-M2/Nr)
(3)
刘大海,男,深圳市地质局,高级工程师
Nort=NO*(0.9+0.1(Dsi-dw)*V3/pc
dsi≤15
地址:深圳市罗湖区宝岗路7号
箱:sindh2005@163.com
Nort=NO*(24-0.1dw)*3/pc
由于Fo9s(1,14)=460,F>F69s(1,14),3结语
因此拒绝假设。:b=0,故认为x与Y的线性关系
本文中所提出的动测静测对比关系经验公式
显著。
是在大量的静浏动测数据对比的基础上得出,并经
x)(1-y)/〉(x-)2=1100
过实际工程中的测试数据验证,证明能够满足实际
工程中用动测结果代替静载荷测试的要求,在实际
2.4静测动测关系表达式
工程中应用是可行的,可以作为深圳地区的动测静
由计算可得出以下表达式:
测对比地区经验公式。
er=ea/y( 4)
参考文献
式中:Qa一动力测试极限承载力(化N)
1]徐攸在主编桩的动测新技术M!]第二版.中国建筑工业出版社,2002.
Q一静载荷测试极限承载力(んN)
2]罗骐先主编柱基工程检测手册[M]北京:人民交通出版社,2003.
的参ア一与施工方式、桩端土层性质等因素有关『日陈云嫩荷兰的荘蒸工程测试技术Dリ第二届全国土动力学会会议
性回归系数,可参考表5取值
论文集1994.
花5性回归系数
[4]罗骐先主编桩基工程检测手册[M]人民交通出版社,2003.
层
中风化者
强风化岩
[5]陈凡.桩基工程质量检测中一些尚待解决的问题[]岩土工程青年专
方
家学术论文集中国建筑工业出版社,1998.
钻孔灌注桩
1,100
0.958
]朱之基混凝土灌注桩质量无损检测技术[M]人民交通出版社
55
2009年9月第6卷第3期
深圳土木与建筑
VOL6 NO.3 SEP2009
15(5) If dbi d-max Then
h, =dbi-da
Zi =(dbi+dai/2
(7)
En
影响函数为分段函数,对于浅基础,最大液
③确定液化标贯基准值NO
If Ne =1 Then
化评价深度dmax=15m
Select Case le
(8)
Case 7
wi=15-zzi 5< dsi sd_max (9)
If Ng=1 Then
对于深基础,最大液化评价深度dmax=20m
NO=6
10 dsis 5
(10)
Else
NO=8
2(20-z;)/35< dsi End If
式(4)、式(5)中,pc为粘粒含量。
ase 8
2.2 Excel VBA开发的主要技术难点
fNg=1Thenれ
在手工计算中,确定各种条件下标贯点代表土
NO=10
层的顶界深度dai及底界深度dbi相当容易,但在
Else
NO=12
Excel VBA开发中,确定dai及d
却成为其主
End
要技术难点,其次为确定标贯基准值NO
Then
为使程序简单、通用,能综合处理具有液化砂
NO=16
层、非液化砂层以及具有粘上夹层相间的一般情况,
Else
设置各评价孔的标贯序号自0号起算,其标贯序号
N0=18
为0,1,2,…,n;在起始液化层顶面及岩性分
End If
层界面处设置标贯点,并将标贯值设置为=0
End Select
Else
确定每个评价孔的标贯个数mSp,以及确定评价孔
Select Casale
标贯点相关数据在 Excel表中所占位置的最小行号
Case 7
imin及最大行号imax。如此,就能比较方便地确定
If Ng
Then
标贯点代表土层的顶界深度dai及底界深度dbi
NO=8
①确定代表土层顶界深度dai
Else
If dsi <= d max Then
N0=10
If i= imin Then
End If
dai= Worksheetfunction. Max(dw, dsi_a)
Case 8
Else If Ni=0 Then
If Ng= 1 Then
aa
Else If N_a=0 The
Else
dai=dsi a
NO=1
Else If Ni >0 Then
End If
dai =(dsi+ dsi_a)/2
Case 9
End If
If Ng
Then
Else
N0=16
dai=d max
Else
End If
N0=18
②确定代表土层底界深度dbi
End If
End Select
If dsi <=d_max Then
If Ni=0 Then
End If
3砂土液化等级评价
Else If i= imax Then
根据单孔砂土液化指标z(即VBA中的变量
dbi =d max
7_E),对液化等级进行评价:
Else If N