[原创]边坡（折线法、平面法）稳定性计算表格（新边坡规范GB50330-2013） [复制链接]

有时间试用一下，谢谢

好东西,谢谢了

kankanba youmeiyouyong

有时间试用一下，谢谢

还不错 感谢楼主

楼主加密了vba，我按照楼主表格把vba自己弄出来了 R,tR{| 8  
Private Sub CB1_Click() J7S  
Dim Fst1, Fst2, FRi, Fsi As Double +f|u5c  
Fst1 = Sheet1.Cells(2, 21).Value XO\P4x:c  
n1 = Sheet1.Cells(4, 1).Value +HNQ2YZ  
FRi = 0 ]F-{)j  
Fsi = 0 7:;P>sF@  
flag = 1 Byon2|nf7  
While flag = 1 MvObx'+  
  FRi = 0 stpa2z  
  Fsi = 0 W<kJ%42^j  
  For i = 1 To n1 qdOaibH_  
  FRi = FRi + Sheet1.Cells(5 + i, 18).Value Nmp1[/{J  
  If i = 1 Then JgEpqA12  
  Fsi = Fsi + Sheet1.Cells(5 + i, 19).Value - Sheet1.Cells(5 + i, 20).Value aWW|.#L  
  ElseIf i = n1 Then ca-|G'q  
  Fsi = Fsi + Sheet1.Cells(5 + i, 19).Value + Sheet1.Cells(4 + i, 20).Value * Sheet1.Cells(5 + i, 17).Value ?(hdV?8)P  
  Else 7Sr7a{  
  Fsi = Fsi + Sheet1.Cells(5 + i, 19).Value + Sheet1.Cells(4 + i, 20).Value * Sheet1.Cells(5 + i, 17).Value - Sheet1.Cells(5 + i, 20).Value w${=]h*2  
  End If Cvq2UNz(R  
  Next y\Zx{A[  
Fst2 = FRi / Fsi 5y@JMQSO  
If Abs(Fst2 - Fst1) < 0.0000000001 Then oc>,5 x  
flag = 0 )x#^fN~ 7`  
Fst1 = Fst2 Zs)HzOP)9  
Sheet1.Cells(2, 21).Value = Fst1 kyz_r6  
Else 4K
:p  
Fst1 = Fst2 @TsOc0?-  
Sheet1.Cells(2, 21).Value = Fst1 v dyu=*Y  
End If iYBs )  
Wend r\a9<nZ{  
End Sub

下载来学习一下。

太感谢了，无私分享

万分感谢

下下来看看

下载试试

谢谢楼主分享，感谢