直通波與底面反射波的時差，與工件厚度成正比么？

問題如題目，請用數理方法證明。

沙發
因為AC+BC不等于AD+DB，所以不成正比

不好意思，沒看清題目。再想想

AD+DB-AB不等于AE+EC-AC，所以不成比例

謝謝參與討論。探頭間距2S，通常應先考慮:符合JB/T4730.10第8.2.2條要求，探頭對的聲束交點位于......2/3深度處。希望再想想。

{:soso_e179:}

例如 2S=(4/3).tgα.T，式中:α---聲束(軸線折射)角度。那么，直通波與底面反射波的時差(時間間隔)tb，和工件厚度T成正比么？

     TOFD非平行檢測技術，在下述兩個前提條件下:

    (1)探頭對中心距2S設置與工件厚度T有固定關系，比如，

       2S=(4/3).tgα.T

    (2) 聲束(軸線折射)角度α為定值，比如α=60度或70度。

      那么，直通波與底面反射波的時差(時間間隔)tb，和工件厚度T成正比么？

送大家一個自己編寫的excel軟件，計算3波到達時間的。和實踐對比，還是比較準確的。這個東西很容易解釋樓主的問題。

樓主，結果表明成正比的。

我把源代碼發出來，其實這個很簡單，厚度改變，其實就是一個相識三角形。所以，成正比的。

Const pi = 3.1415916
Public gjhd As Single, xkjd As Single, zbss As Single, hbss As Single
Sub PCSJS_Click()
Dim pcsjs As Single
gjhd = Range("F4")
xkjd = Range("F5")
pcsjs = 2 * gjhd * (2 / 3) * Tan(Application.Radians(xkjd))
Range("F8") = pcsjs
End Sub
Sub SJJS_Click()
Dim ztb As Single, db As Single, bxb As Single, pcs As Single
Dim zbjd As Single, hbjd As Single, jdjd As Single, jingdu As Single, i As Long, hbhd As Single, zbhd As Single, szbh As Single
gjhd = Range("F4")
xkjd = Range("F5")
zbss = Range("F6")
hbss = Range("F7")
pcs = Range("F8")
'計算直通波
ztb = 1000 * pcs / zbss
Range("C15").Value = ztb
'計算底波
db = 1000 * 2 * ((pcs / 2) ^ 2 + gjhd ^ 2) ^ (1 / 2) / zbss
Range("D15").Value = db
'計算變形波
jdjd = Range("G11").Value
jingdu = Range("G12").Value
If jdjd > 1 Or jdjd < 0.001 Then
MsgBox "請輸入正確的角度步進：0.001-1"
GoTo 1
End If
If jingdu > 1 Or jdjd < 0.0001 Then
MsgBox "請輸入正確的精度步進：0.0001-1"
GoTo 1
End If
'''''----------------
i = 0
For hbjd = 0 To 90 Step jdjd
hbhd = Application.Radians(hbjd)  'RADIANS 角度轉弧度   DEGREES 弧度轉角度
szbh = Sin(hbhd) * zbss / hbss
If szbh >= -1 And szbh <= 1 Then
zbhd = Application.Asin(Sin(hbhd) * zbss / hbss)
Else
GoTo 2
End If
zbjd = Application.Degrees(zbhd)
If Abs((Tan(hbhd) * gjhd + Tan(zbhd) * gjhd) - pcs) <= jingdu Then
i = i + 1
Range("G13").Value = hbjd
Range("G14").Value = zbjd
Range("E15").Value = 1000 * (gjhd / Cos(hbhd) / hbss + gjhd / Cos(zbhd) / zbss)

End If
2
Next
If i > 1 Then
MsgBox "有" & i & "對結果，" & "結果不唯一，請增大角度步進或者減小精度步進，直到答案唯一！"
ElseIf i = 0 Then
MsgBox "無計算結果，請減小角度步進或者增大精度步進，直到有計算結果！"
ElseIf i = 1 Then
MsgBox "結果唯一,成功！"
End If
1
End Sub