【正文】 sqlstr4 y2 = 39。 m2 amp。 n2) 39。兩次線性插值法求解應(yīng)力系數(shù) temp2 = (n n1) * (y2) / (n2 n1) + (n2 n) * y1 / (n2 n1) Dim temp3 As Single temp3 = (m m1) * temp2 / (m2 m1) + (m2 m) * temp1 / (m2 m1) 39。返回應(yīng)力系數(shù) End Function 39。integrated security=SSPI。 m1 Dim mysqlstr2 As String = select 應(yīng)力系數(shù) from 圓形應(yīng)力系數(shù)表 where 深與半徑比 = amp。MsgBox(x1) = mysqlstr2 x2 = 39。 r amp。 a amp。 b amp。 h amp。 wh amp。 F amp。() 地基沉降軟件開發(fā) 16 Dim maxh As Single = 0 39。MsgBox(測試 1點 amp。 MsgBox() Dim point As Int16 Dim height As Single = 0 39。MsgBox() For point = 0 To 1 height += (point).Item(土層厚度 ) If height h Then Exit For End If Next 39。 point) 39。當基礎(chǔ)深度深于定義的土層厚度時，以最下面一層土作為計算土層 End If If point = Then point = point 1 End If 39。自重應(yīng)力 Dim Pz, Pz1, Pz2 As Single 39。平均附加應(yīng)力 地基沉降軟件開發(fā) 17 Dim a1 As Single = 0 39。沉降量 If Then 39。長寬比 Dim n1 As Single = Dim n2 As Single = 0 n = a * / (b * ) 39。保證長寬比大于等于 1小于等于 10 n = 1 / n 39。 MsgBox(n) If n = 1 And n 2 Then For n1 = 1 To Step If n n1 And n n1 + Then n1 = n1 n2 = n1 + Exit For End If Next End If If n = 2 And n 5 Then For n1 = 2 To 5 If n = n1 And n n1 + 1 Then n1 = n1 n2 = n1 + 1 Exit For End If Next 地基沉降軟件開發(fā) 18 End If If n = 5 And n = 10 Then n1 = 5 n2 = 10 End If Pc = (0).Item(土的重度 ) * h 39。基礎(chǔ)底部附加應(yīng)力 Pz1 = Pz Pz2 = 0 39。 Dim myconn1 As = New (data source=SALAN。initial catalog=地基沉降 ) 39。 = myconn1 39。 n1 amp。 n2 39。Dim mydataset As New DataSet 39。 = (0) 39。39。 point) point += 1 MsgBox(sajadksajdlksjdajksajdsjds1 amp。自重應(yīng)力計算 End If 地基沉降軟件開發(fā) 19 If h2 wh Then 39。 Pc) 39。MsgBox(Pc amp。 MsgBox(Pc amp。確定深寬比 m 以及范圍 [m1,m2] m = h1 / b 39。 MsgBox(a1) 地基沉降軟件開發(fā) 20 Pz2 = Pz * a1 s += (Pz1 + Pz2) * maxh / (2 * (point).Item(壓縮模量 )) Pz1 = Pz2 39。 Pz1) 39。 s amp?；A(chǔ)底部自重應(yīng)力 Pz = F / ( * r * r) Pc + 20 * h 39。39。自重應(yīng)力計算 MsgBox((point).Item(土層厚度 )) End If If h2 wh Then Pc = Pc + maxh * (point).Item(土的重度 ) 10 * maxh 39。 Pc) Else Pc = Pc + maxh * (point).Item(土的重度 ) 地基沉降軟件開發(fā) 21 39。 Pc) End If 39。深度與半徑的比值 If m Then m = If m = 0 And m Then For m1 = 0 To Step If m = m1 And m m1 + Then m1 = m1 m2 = m1 + Exit For End If Next End If If m = And m Then For m1 = To Step If m = m1 And m = m1 + Then m1 = m1 m2 = m1 + Exit For End If Next End If If m = And m Then m1 = m2 = End If If m = And m = Then m1 = m2 = End If 39。 amp。 amp。MsgBox(a1) Pz2 = Pz * a1 地基沉降軟件開發(fā) 22 s += (Pz1 + Pz2) * maxh / (2 * (point).Item(壓縮模量 )) Pz1 = Pz2 39。 Pz1) 39。 s amp。以下為算法實現(xiàn)過程。data source = SALAN。) Dim shujuji As New DataSet Dim shipeiqicanshu1 As String = select * from 附加應(yīng)力系數(shù)表 Dim shipeiqicanshu2 As String = select * from 土層定義表 Dim shipeiqicanshu3 As String = select * from 項目土層定義表 Dim shipeiqicanshu4 As String = select * from 應(yīng)力面積法計算過程 Dim shipeiqi1 As New (shipeiqicanshu1, lianjie) Dim shipeiqi2 As New (shipeiqicanshu2, lianjie) Dim shipeiqi3 As New (shipeiqicanshu3, lianjie) Dim shipeiqi4 As New (shipeiqicanshu4, lianjie) Public mybind As BindingManagerBase Public lala As DataTable Function duquxishu(ByVal x As Single, ByVal y As Single, ByVal z As Integer) As Single Dim m As Integer = 0 地基沉降軟件開發(fā) 25 Dim n As Single If z = 1 Then Do While m 1 If ((系數(shù)表 ).Rows(m).Item(0) x) = And ((系數(shù)表 ).Rows(m).Item(1) y) = Then n = (系數(shù)表 ).Rows(m).Item(2) m = 1 Else m = m + 1