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

有时间试用一下，谢谢

好东西,谢谢了

kankanba youmeiyouyong

有时间试用一下，谢谢

还不错 感谢楼主

楼主加密了vba，我按照楼主表格把vba自己弄出来了 c,1 G+.
 
Private Sub CB1_Click() }b1G21Dc!  
Dim Fst1, Fst2, FRi, Fsi As Double T1Py6Q,-  
Fst1 = Sheet1.Cells(2, 21).Value {"]!zL  
n1 = Sheet1.Cells(4, 1).Value c6:uM1V{  
FRi = 0 beOMln+R  
Fsi = 0 #L.,aTA<  
flag = 1 'l'3&.{Yfk  
While flag = 1 ](JrEg$K  
  FRi = 0 ] 2 `%i5  
  Fsi = 0 6:8s,a3&[k  
  For i = 1 To n1 =`+D/ W\[Y  
  FRi = FRi + Sheet1.Cells(5 + i, 18).Value @rGY9%E  
  If i = 1 Then Htgo=7!?\3  
  Fsi = Fsi + Sheet1.Cells(5 + i, 19).Value - Sheet1.Cells(5 + i, 20).Value dXTD8 )&  
  ElseIf i = n1 Then f-M:ap(O  
  Fsi = Fsi + Sheet1.Cells(5 + i, 19).Value + Sheet1.Cells(4 + i, 20).Value * Sheet1.Cells(5 + i, 17).Value _$UJ'W})/  
  Else kZ5#a)U<  
  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 BH'*I yv  
  End If q(n"r0)=  
  Next i:YX_+n  
Fst2 = FRi / Fsi Z )c\B  
If Abs(Fst2 - Fst1) < 0.0000000001 Then s*rR
>D:  
flag = 0 1]/;qNEv  
Fst1 = Fst2 jRg/N_2'2  
Sheet1.Cells(2, 21).Value = Fst1 ho=!Yy  
Else 3wfcGQn|sD  
Fst1 = Fst2 4. R(`#f  
Sheet1.Cells(2, 21).Value = Fst1  bUcp8
 
End If T`e`nQ0nn  
Wend .2%t3ul[  
End Sub

下载来学习一下。

太感谢了，无私分享

万分感谢

下下来看看

下载试试

谢谢楼主分享，感谢