編者的話

2008大選終於告一段落，政黨再次輪替，依據很多科學的數據，八年來好像是空轉了，但在這中間其實也蘊藏相當多的成長，經由不斷的辯証及角色的對換，也許大家更能體會不同陣(政)營間內心深處之感受，也唯有藉由對彼此的瞭解，相互調整退讓，甚至改變，才能彼此融合，得到更多的支持，希望未來能不再虛耗，將國家建構成造福全民的機構，大家均能經由合理的體制運作，得到充實美好的生活。

技術交流　   

在土木工程分析工作中常須建構程式可以在不同的條件數進行不同階段數之分析，範例為押入沉箱貫入不同土層不同深度時所提供之摩擦力，由於每一案件之土層數及深度均不相同，故採迴路加判別式加以區分，並以詳列計算式以交代磨擦力來源，以下為一於excel中以vba將資料丟出支小程式，提供各先進參考指正。

For i = 1 To 10

i1 = i + 217

 

 i1w = "c" & i1

    Data1 = Range(i1w).Value

   If Data1 = "end" Then Exit For     ‘分層結束

    ckdp1 = Data1 + cut1

    ckdp2 = ckdp1 - dd1

    ckdp3 = ckdp1 - Data1

    ckk = 0

    i2w = "d" & i1

    datav = 0

    dataa = ""

    Data2 = ""

       For j = 1 To 9

       If dp(j) >= ckdp2 And dp(j) < ckdp1 Then

        If ckk >= 1 Then

          fm = "+"

          tta = dp(j) - dp(j - 1)

          ckk = ckk + 1

          Else

          fm = ""

          tta = dp(j) - ckdp2: Call check45(tta, tta)

          ckk = ckk + 1

          End If

        dataa = fm & tta & "*" & ff(j)

        datav = datav + tta * ff(j)

        Data2 = Data2 & data               ‘組合計算式

       End If

      

       If ckdp1 > dp(j) And ckdp1 <= dp(j + 1) Then

          If ckk >= 1 Then

          fm = "+"

          tta = ckdp1 - dp(j): Call check45(tta, tta)

          ckk = ckk + 1

          Else

          fm = ""

          tta = ckdp1 - ckdp2: Call check45(tta, tta)

          ckk = ckk + 1

          End If

        dataa = fm & tta & "*" & ff(j + 1)

         datav = datav + tta * ff(j + 1)

        Data2 = Data2 & data                   ‘組合計算式

        End If

      

    Next j

    totalffv(i) = datav * sl1

   

    Data2 = "(" & Data2 & ")*" & sl1 & "=" & totalffv(i)

    Range(i2w).Select

    ActiveCell.FormulaR1C1 = Data2  '主摩擦力計算完成

    Next i

   

    '次摩擦力計算

      

    For i = 1 To 10

   

      i1 = i + 217

      i1w = "c" & i1

    Data1 = Range(i1w).Value

   If Data1 = "end" Then Exit For

    ckdp1 = Data1 + cut1

    ckdp2 = ckdp1 - dd1

    ckdp3 = ckdp1 - Data1

 

    ckk = 0

    i2w = "h" & i1

    datavs = 0

    dataa = ""

    Data2 = ""

   

     For j = 1 To 9

 

       If dp(j) >= ckdp3 And dp(j) < ckdp2 Then

      

          If ckk >= 1 Then

          fm = "+"

          tta = dp(j) - dp(j - 1)

          ckk = ckk + 1

          Else

          fm = ""

          tta = dp(j) - ckdp3: Call check45(tta, tta)

          ckk = ckk + 1

          End If

        dataa = fm & tta & "*" & ffs(j)

        datavs = datavs + tta * ffs(j)

        Data2 = Data2 & dataa

       End If

      

       If ckdp2 > dp(j) And ckdp2 <= dp(j + 1) Then

          If ckk >= 1 Then

          fm = "+"

          tta = ckdp2 - dp(j): Call check45(tta, tta)

          ckk = ckk + 1

          Else

          fm = ""

          tta = ckdp2 - ckdp3: Call check45(tta, tta)

          ckk = ckk + 1

          End If

         dataa = fm & tta & "*" & ffs(j + 1)

         datavs = datavs + tta * ffs(j + 1)

        Data2 = Data2 & dataa

        End If

      

    Next j

   

    totalffvs(i) = datavs * sl2

   

    Data2 = "(" & Data2 & ")*" & sl2 & "=" & totalffvs(i)

    Range(i2w).Select

    ActiveCell.FormulaR1C1 = Data2

Next i

 

 For i = 1 To 10

 a = totalffv(i) + totalffvs(i): Call check45(a, a)

 totalffall(i) = a

 i1 = i + 217

 i3w = "l" & i1

 i1w = "c" & i1

 Data1 = Range(i1w).Value

   If Data1 = "end" Then Exit For

    Data1 = Range(i1w).Value

    Range(i3w).Select

    ActiveCell.FormulaR1C1 = a

Next i

End Sub

　

技師投稿