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

问题如题目，请用数理方法证明。

沙发
因为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