管材直線度檢測機系統設計畢業論文正(編輯修改稿)

　

【文章內容簡介】 4 10 54 ...... ...... ...... 10 162 10 162 10 162 10 180 10 180 10 180 ...... ...... ...... 10 342 10 342 重慶理工大學畢業論文 合金管數控砂帶磨床測量系統設計 21 10 342 10 10 10 160 18 160 18 160 18 160 36 160 36 160 36 ...... ...... ...... 每行第一個數代表檢測點所在截面離左端面的距離，第二個數代表檢測點在該截面上的角度，第三個數即檢測點的壁厚。每個點均有三次檢測值，分三行顯示。 由此可知，可選用三個二維數組 a（）， b（）， c（）來分別存放三次檢測值，第一維下標代表所檢測的截面，第二維下標代表該截面上所檢測的那個點。 定義二維數組第一維下標上界為 N1，第二維下標上界為 N2。由前述人機界 面設計中的參數設定可知： 測量起始點離工件左端面的距離為 dis，測量終點離左端面的距離為 L，相鄰兩 截面的間距為 distance，每個截面上相鄰兩檢測點間的角度為 rad，則總的截面數為：(L dis) \ distance+1，每個截面的測量點數為 360/rad。 由于數組下標從 0開始，則 N1=(L dis) \ distance N2=360/rad 1 重慶理工大學畢業論文 合金管數控砂帶磨床測量系統設計 22 （ 2）提取壁厚數據 10 18 10 18 10 18 10 36 10 36 10 36 由于每行以空格開頭，且有三個數，這三個數間用兩個空格隔開。兩點的壁厚數據用空格行隔開。為了提取每點的三次壁厚值，可將每行數據作為字符串來讀取，先用 Trim 函數將每行的第一個空格去掉，然后用 replace 函數將每行的兩個空格替代為一個空格，再用 Split 函數將字符串分割開，于是便提取出了每行的三個數。讀取完空格行后，便進入下一個點壁厚的讀取，每四行一個循環，則循環 次數即為所有檢測點的個數，即截面數每個截面的點數。 假設循環次數為 m+1，則 m = (N1 + 1) * (N2 + 1) 1 每個點的三次檢測值，采用二維數組 g(10000,2)來存放， g（ 0,0）代表第一點的第一次檢測值， g（ 0,1）代表第一點的第二次檢測值， g（ 0,2）代表第一點的第三次檢測值， g（ 1,0）代表第二點的第一次檢測值，以此類推。 讀取完畢后，將數組 g（ 10000,2）中存取的數據對應賦值給二維數組 a(N1, N2), b(N1, N2), c(N1, N2)用來存放每個點的三次檢 測值。 相應程序段如下（詳見附表） Option Explicit Dim N1, N2 As Integer 39。二維數組的下標上界 Dim i, j As Integer Dim dis, l As Single 39。測量起始點，測量終點 Dim distance, rad As Single 39。測量間距，測量角度 Dim FeedRateGA, FeedRateGX As Single 39。A 軸轉 速，磨頭移動速度 重慶理工大學畢業論文 合金管數控砂帶磨床測量系統設計 23 Dim count1 As Integer Dim count2 As Integer Dim a(), b(), c(), d() As Single Dim e(), f() As Boolean Sub GetParam() dis = Val() 39。測量起始點位置 L = Val() 39。測量終點位置 distance = Val() 39。測量間距 rad = Val() 39。測量角度 FeedRateGA = Val() 39。A 軸轉速 FeedRateGX = Val() 39。磨頭移動速度 N1 = (L dis) \ distance 39。測量的截面數 N2 = 360 / rad 1 39。每個截面測量點的數量 End Sub 39。************************************************************ 39。讀取數據 Private Sub Command1_Click() Call GetParam Dim m, q1, q2 As Integer Dim S1, S2, S3 As Single Dim g() As Single ReDim a(N1, N2), b(N1, N2), c(N1, N2), d(N1, N2), g(10000, 2) As Single m = (N1 + 1) * (N2 + 1) 1 39。定義循環次數 ReDim e(N1, N2), f(N1) As Boolean Dim str1() As String ReDim str1(m) As String Dim n As Integer Dim Strconv1, Strconv2 As String Dim sss() As String 重慶理工大學畢業論文 合金管數控砂帶磨床測量系統設計 24 Open D:\ For Input As 1 For n = 0 To m Line Input 1, str1(n) Strconv1 = Trim(str1(n)) ’去掉每行第一個空格 Strconv2 = Replace(Strconv1, , ) ’兩個空格變為一個 sss = Split(Strconv2, ) ’提取出每行的三個數 g(n, 0) = Val(sss(2)) ’提取出每行第三個數，即壁厚值 Line Input 1, str1(n) Strconv1 = Trim(str1(n)) Strconv2 = Replace(Strconv1, , ) sss = Split(Strconv2, ) g(n, 1) = Val(sss(2)) Line Input 1, str1(n) Strconv1 = Trim(str1(n)) Strconv2 = Replace(Strconv1, , ) sss = Split(Strconv2, ) g(n, 2) = Val(sss(2)) Line Input 1, str1(n) q1 = n \ (N2 + 1) 39。確定數組 a， b， c的一維下標 q2 = n Mod (N2 + 1) 39。確定數組 a， b， c的二維下標 a(q1, q2) = g(n, 0) b(q1, q2) = g(n, 1) c(q1, q2) = g(n, 2) Next n Close 1 程序運行后，對每個點的三次檢測值 a(i, j), b(i, j), c(i, j)添加監視，截取部分結果如下。重慶理工大學畢業論文 合金管數控砂帶磨床測量系統設計 25 二、 數據的處理 （ 1）異常數據判斷及數據處理一 在理想狀態下，每個點壁厚的三次檢測值應當一致，可是現實中不可能保證完全重慶理工大學畢業論文 合金管數控砂帶磨床測量系統設計 26 相同，還可能因為合金管存在裂紋或者水內有雜質，導致三次測量值存在很大偏差。觀察獲得的數據可知，有些點壁厚的三次檢測值相差很大，如 ， ， ，這種相差很大的便屬于異常數據。 判斷每點的三次壁厚檢測值是否異常，可按照圖 19所示的流程圖 1來處理 （可見附錄） 。 重慶理工大學畢業論文 合金管數控砂帶磨床測量系統設計 27 S 1 , S 2 , S 3 均在 0 . 5 以 內d ( i , j ) = ( a ( i , j ) + b ( i , j ) + c ( i , j ) ) / 3S 1 , S 2 , S 3 均超 過 0 . 5S 1 在 0 . 5 以 內d ( i , j ) = 0c o u n t 1 = c o u n t 1 + 1d ( i , j ) = ( a ( i , j ) + b ( i , j ) ) / 2S 2 在 0 . 5 以 內d ( i , j ) = ( b ( i , j ) + c ( i , j ) ) / 2S 3 在 0 . 5 以 內d ( i , j ) = ( a ( i , j ) + c ( i , j ) ) / 2j = j + 1j = N 2YYYYYNNYYNj = 0Nc o u n t 1 = N 2 \ 3 i = N 1c o u n t 2 = c o u n t 2 + 1f ( i ) = T r u eY結 束c o u n t 2 = N 1 \ 3 通 知 用 戶 該 管 存 在 問 題YNf ( i ) = F a l s ei = i + 1N 圖 19 流程圖 1 重慶理工大學畢業論文 合金管數控砂帶磨床測量系統設計 28 設定任意點壁厚的三次檢測值分別為 a(i, j)， b(i, j)， c(i, j)， 判斷該點數據是 否異常： 如果某個點三次檢測值兩兩間均相差不大，則說明該點測量值可信，則取三個值的平均值作為該點的厚度； 如果某個點三次檢測值兩兩間均相差很大，則說明該點測量值不可信，將三個值均拋棄； 如果某個點三次檢測值中有兩個值相差不大，則可保留這兩個值，并取二者平均值作為該點的厚度； 基于以上思想，可取三次檢測值兩兩間的偏差量。先取兩兩間的差值，之后取絕對值得到的三個數 S S S3，即為這三個偏差量，則 S1 = Abs(a(i, j) b(i, j)) S2 = Abs(b(i, j) c(i, j)) S3 = Abs(c(i, j) a(i, j)) 將兩兩數據間的偏差允許量設置為 ，則若三個偏差量均超過 ，則先將該點厚度置為 0；若三個偏差量均在 ，則取三次檢測值的平均值；若三個偏差量有一個在 ，則將對應的兩次檢測值取平均。 處理完的壁厚值可用二維數組 d（ N1， N2）來存儲，第一維下標代表所檢測的截面，第二維下標代表該截面上所檢測的那個點。 如此循環，直至判斷完一個截面所有點檢測值是否異常。設定統計值 count1和count2，如果某點檢測值異常，則統計值 count1加一， 如果該截面異常點數超過檢測點數的 1/3，則判定該截面為異常截面，統計值 count2加一。之