在筆者從業這么多年，PCB行業阻抗計算工具都是用Polar公司的阻抗計算工具SI9000,或早期上個版 本SI8000
Prolar是老牌公司，但也不斷在推出新的產品，可以進去去了解一下 https://www.polarinstruments.com/
一直以來在我印象里，好東西都是外國公司創造，但近些年推出【中國制造2025】，中國企業崛起，
在一個創新開放的城市，深圳一家創業公司也推出阻抗計算工具了深圳市賽碩爾科技有限公司
大家可以了解一下 http://www.sisolver.com/ 號稱阻抗理論計算精度超過Prolar. 支持國產，加油
一.將單個參數改為Model類做為參數傳遞
原為單個值參數：
改后Mod參數：
Model參數類
''' <summary> ''' 阻抗計算參數(反算) ''' </summary> ''' <remarks></remarks> <Serializable()> _ Public Class MOD_ImpCalcReverseParam Public Sub New(ByVal _ImpCalcParam As MOD_ImpCalcParam, ByVal _Enum_Resize As MOD_EnumImp.ImpCalcResize) Me.ImpCalcParam = _ImpCalcParam Me.Enum_Resize = _Enum_Resize Me.RequestZo = _ImpCalcParam.Zo Me.WS_Sum = Me.ImpCalcParam.W1 + Me.ImpCalcParam.S1 Me.WD_Sum = Me.ImpCalcParam.W1 + Me.ImpCalcParam.D1 Me.SD_Sum = Me.ImpCalcParam.S1 + Me.ImpCalcParam.D1 Me.W1W2_Diff = Me.ImpCalcParam.W1 - Me.ImpCalcParam.W2 Me.CalcMaxCount = 20 Me.ImpAccuracy = 0.01 Me.min = 0.0 Select Case Enum_Resize Case MOD_EnumImp.ImpCalcResize.W1, MOD_EnumImp.ImpCalcResize.W1S1, MOD_EnumImp.ImpCalcResize.W1D1, MOD_EnumImp.ImpCalcResize.W1S1D1, MOD_EnumImp.ImpCalcResize.O1 Me.max = Me.ImpCalcParam.W1 * 4 Case MOD_EnumImp.ImpCalcResize.S1, MOD_EnumImp.ImpCalcResize.S1D1 Me.max = Me.ImpCalcParam.S1 * 4 Case MOD_EnumImp.ImpCalcResize.D1 Me.max = Me.ImpCalcParam.D1 * 4 Case MOD_EnumImp.ImpCalcResize.H1 Me.max = Me.ImpCalcParam.H1 * 4 Case MOD_EnumImp.ImpCalcResize.H2 Me.max = Me.ImpCalcParam.H2 * 4 Case MOD_EnumImp.ImpCalcResize.H3 Me.max = Me.ImpCalcParam.H3 * 4 Case MOD_EnumImp.ImpCalcResize.H4 Me.max = Me.ImpCalcParam.H4 * 4 Case MOD_EnumImp.ImpCalcResize.Er1 Me.max = Me.ImpCalcParam.Er1 * 4 Case MOD_EnumImp.ImpCalcResize.Er2 Me.max = Me.ImpCalcParam.Er2 * 4 Case MOD_EnumImp.ImpCalcResize.Er3 Me.max = Me.ImpCalcParam.Er3 * 4 Case MOD_EnumImp.ImpCalcResize.Er4 Me.max = Me.ImpCalcParam.Er4 * 4 Case MOD_EnumImp.ImpCalcResize.REr Me.max = Me.ImpCalcParam.REr * 4 End Select End Sub ''' <summary> ''' 反算結果OK ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> Public Property isOK As Boolean ''' <summary> ''' 阻抗計算參數（正算） ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> Public Property ImpCalcParam As MOD_ImpCalcParam ''' <summary> ''' 反算調整類型 ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> Public Property Enum_Resize As MOD_EnumImp.ImpCalcResize ''' <summary> ''' W與S之和 ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> Public Property WS_Sum As Double ' ''' <summary> ''' W與D之和 ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> Public Property WD_Sum As Double ''' <summary> ''' S與D之和 ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> Public Property SD_Sum As Double ''' <summary> ''' W1與W2差值 ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> Public Property W1W2_Diff As Double ''' <summary> ''' 要求阻抗值 ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> Public Property RequestZo As Double ''' <summary> ''' 反算最大次數 ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> Public Property CalcMaxCount As Double ''' <summary> ''' 反算阻抗精度 ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> Public Property ImpAccuracy As Double ''' <summary> ''' 最小值 ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> Public Property min As Double ''' <summary> ''' 最大值 ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> Public Property max As Double ''' <summary> ''' 獲取反算調整類型的委托 ''' </summary> ''' <returns></returns> ''' <remarks></remarks> Public Function GetImpCalcReverseResizeDelegate() As Action(Of MOD_ImpCalcReverseParam) Dim ReturnReverse As Action(Of MOD_ImpCalcReverseParam) = Nothing Select Case Enum_Resize Case MOD_EnumImp.ImpCalcResize.W1 ReturnReverse = New Action(Of MOD_ImpCalcReverseParam)(Sub(ReverseParam) If ReverseParam.ImpCalcParam.Zo > ReverseParam.RequestZo Then ReverseParam.min = ReverseParam.ImpCalcParam.W1 ReverseParam.ImpCalcParam.W1 = (ReverseParam.max + ReverseParam.ImpCalcParam.W1) * 0.5 ReverseParam.ImpCalcParam.W2 = ReverseParam.ImpCalcParam.W1 - ReverseParam.W1W2_Diff Else ReverseParam.max = ReverseParam.ImpCalcParam.W1 ReverseParam.ImpCalcParam.W1 = (ReverseParam.min + ReverseParam.ImpCalcParam.W1) * 0.5 ReverseParam.ImpCalcParam.W2 = ReverseParam.ImpCalcParam.W1 - ReverseParam.W1W2_Diff End If End Sub) Case MOD_EnumImp.ImpCalcResize.W1D1 ReturnReverse = New Action(Of MOD_ImpCalcReverseParam)(Sub(ReverseParam) If ReverseParam.ImpCalcParam.Zo > ReverseParam.RequestZo Then ReverseParam.min = ReverseParam.ImpCalcParam.W1 ReverseParam.ImpCalcParam.W1 = (ReverseParam.max + ReverseParam.ImpCalcParam.W1) * 0.5 ReverseParam.ImpCalcParam.W2 = ReverseParam.ImpCalcParam.W1 - ReverseParam.W1W2_Diff ReverseParam.ImpCalcParam.D1 = ReverseParam.WD_Sum - ReverseParam.ImpCalcParam.W1 Else ReverseParam.max = ReverseParam.ImpCalcParam.W1 ReverseParam.ImpCalcParam.W1 = (ReverseParam.min + ReverseParam.ImpCalcParam.W1) * 0.5 ReverseParam.ImpCalcParam.W2 = ReverseParam.ImpCalcParam.W1 - ReverseParam.W1W2_Diff ReverseParam.ImpCalcParam.D1 = ReverseParam.WD_Sum - ReverseParam.ImpCalcParam.W1 End If End Sub) Case MOD_EnumImp.ImpCalcResize.W1S1 ReturnReverse = New Action(Of MOD_ImpCalcReverseParam)(Sub(ReverseParam) If ReverseParam.ImpCalcParam.Zo > ReverseParam.RequestZo Then ReverseParam.min = ReverseParam.ImpCalcParam.W1 ReverseParam.ImpCalcParam.W1 = (ReverseParam.max + ReverseParam.ImpCalcParam.W1) * 0.5 ReverseParam.ImpCalcParam.W2 = ReverseParam.ImpCalcParam.W1 - ReverseParam.W1W2_Diff ReverseParam.ImpCalcParam.S1 = ReverseParam.WS_Sum - ReverseParam.ImpCalcParam.W1 Else ReverseParam.max = ReverseParam.ImpCalcParam.W1 ReverseParam.ImpCalcParam.W1 = (ReverseParam.min + ReverseParam.ImpCalcParam.W1) * 0.5 ReverseParam.ImpCalcParam.W2 = ReverseParam.ImpCalcParam.W1 - ReverseParam.W1W2_Diff ReverseParam.ImpCalcParam.S1 = ReverseParam.WS_Sum - ReverseParam.ImpCalcParam.W1 End If End Sub) Case MOD_EnumImp.ImpCalcResize.W1S1D1 ReturnReverse = New Action(Of MOD_ImpCalcReverseParam)(Sub(ReverseParam) If ReverseParam.ImpCalcParam.Zo > ReverseParam.RequestZo Then ReverseParam.min = ReverseParam.ImpCalcParam.W1 ReverseParam.ImpCalcParam.W1 = (ReverseParam.max + ReverseParam.ImpCalcParam.W1) * 0.5 ReverseParam.ImpCalcParam.W2 = ReverseParam.ImpCalcParam.W1 - ReverseParam.W1W2_Diff ReverseParam.ImpCalcParam.S1 = ReverseParam.WS_Sum - ReverseParam.ImpCalcParam.W1 ReverseParam.ImpCalcParam.D1 = ReverseParam.WD_Sum - ReverseParam.ImpCalcParam.W1 Else ReverseParam.max = ReverseParam.ImpCalcParam.W1 ReverseParam.ImpCalcParam.W1 = (ReverseParam.min + ReverseParam.ImpCalcParam.W1) * 0.5 ReverseParam.ImpCalcParam.W2 = ReverseParam.ImpCalcParam.W1 - ReverseParam.W1W2_Diff ReverseParam.ImpCalcParam.S1 = ReverseParam.WS_Sum - ReverseParam.ImpCalcParam.W1 ReverseParam.ImpCalcParam.D1 = ReverseParam.WD_Sum - ReverseParam.ImpCalcParam.W1 End If End Sub) Case MOD_EnumImp.ImpCalcResize.S1 ReturnReverse = New Action(Of MOD_ImpCalcReverseParam)(Sub(ReverseParam) If ReverseParam.ImpCalcParam.Zo > ReverseParam.RequestZo Then ReverseParam.max = ReverseParam.ImpCalcParam.S1 ReverseParam.ImpCalcParam.S1 = (ReverseParam.min + ReverseParam.ImpCalcParam.S1) * 0.5 Else ReverseParam.min = ReverseParam.ImpCalcParam.S1 ReverseParam.ImpCalcParam.S1 = (ReverseParam.max + ReverseParam.ImpCalcParam.S1) * 0.5 End If End Sub) Case MOD_EnumImp.ImpCalcResize.D1 ReturnReverse = New Action(Of MOD_ImpCalcReverseParam)(Sub(ReverseParam) If ReverseParam.ImpCalcParam.Zo > ReverseParam.RequestZo Then ReverseParam.max = ReverseParam.ImpCalcParam.D1 ReverseParam.ImpCalcParam.D1 = (ReverseParam.min + ReverseParam.ImpCalcParam.D1) * 0.5 Else ReverseParam.min = ReverseParam.ImpCalcParam.D1 ReverseParam.ImpCalcParam.D1 = (ReverseParam.max + ReverseParam.ImpCalcParam.D1) * 0.5 End If End Sub) Case MOD_EnumImp.ImpCalcResize.S1D1 ReturnReverse = New Action(Of MOD_ImpCalcReverseParam)(Sub(ReverseParam) If ReverseParam.ImpCalcParam.Zo > ReverseParam.RequestZo Then ReverseParam.max = ReverseParam.ImpCalcParam.S1 ReverseParam.ImpCalcParam.S1 = (ReverseParam.min + ReverseParam.ImpCalcParam.S1) * 0.5 ReverseParam.ImpCalcParam.D1 = ReverseParam.SD_Sum - ReverseParam.ImpCalcParam.S1 Else ReverseParam.min = ReverseParam.ImpCalcParam.S1 ReverseParam.ImpCalcParam.S1 = (ReverseParam.max + ReverseParam.ImpCalcParam.S1) * 0.5 ReverseParam.ImpCalcParam.D1 = ReverseParam.SD_Sum - ReverseParam.ImpCalcParam.S1 End If End Sub) Case MOD_EnumImp.ImpCalcResize.O1 ReturnReverse = New Action(Of MOD_ImpCalcReverseParam)(Sub(ReverseParam) If ReverseParam.ImpCalcParam.Zo > ReverseParam.RequestZo Then ReverseParam.max = ReverseParam.ImpCalcParam.O1 ReverseParam.ImpCalcParam.O1 = (ReverseParam.min + ReverseParam.ImpCalcParam.O1) * 0.5 Else ReverseParam.min = ReverseParam.ImpCalcParam.S1 ReverseParam.ImpCalcParam.O1 = (ReverseParam.max + ReverseParam.ImpCalcParam.O1) * 0.5 End If End Sub) Case MOD_EnumImp.ImpCalcResize.T1 ReturnReverse = New Action(Of MOD_ImpCalcReverseParam)(Sub(ReverseParam) If ReverseParam.ImpCalcParam.Zo > ReverseParam.RequestZo Then ReverseParam.min = ReverseParam.ImpCalcParam.T1 ReverseParam.ImpCalcParam.T1 = (ReverseParam.max + ReverseParam.ImpCalcParam.T1) * 0.5 Else ReverseParam.max = ReverseParam.ImpCalcParam.T1 ReverseParam.ImpCalcParam.T1 = (ReverseParam.min + ReverseParam.ImpCalcParam.T1) * 0.5 End If End Sub) Case MOD_EnumImp.ImpCalcResize.H1 ReturnReverse = New Action(Of MOD_ImpCalcReverseParam)(Sub(ReverseParam) If ReverseParam.ImpCalcParam.Zo > ReverseParam.RequestZo Then ReverseParam.max = ReverseParam.ImpCalcParam.H1 ReverseParam.ImpCalcParam.H1 = (ReverseParam.min + ReverseParam.ImpCalcParam.H1) * 0.5 Else ReverseParam.min = ReverseParam.ImpCalcParam.H1 ReverseParam.ImpCalcParam.H1 = (ReverseParam.max + ReverseParam.ImpCalcParam.H1) * 0.5 End If End Sub) Case MOD_EnumImp.ImpCalcResize.Er1 ReturnReverse = New Action(Of MOD_ImpCalcReverseParam)(Sub(ReverseParam) If ReverseParam.ImpCalcParam.Zo > ReverseParam.RequestZo Then ReverseParam.min = ReverseParam.ImpCalcParam.Er1 ReverseParam.ImpCalcParam.Er1 = (ReverseParam.max + ReverseParam.ImpCalcParam.Er1) * 0.5 Else ReverseParam.max = ReverseParam.ImpCalcParam.Er1 ReverseParam.ImpCalcParam.Er1 = (ReverseParam.min + ReverseParam.ImpCalcParam.Er1) * 0.5 End If End Sub) Case MOD_EnumImp.ImpCalcResize.H2 ReturnReverse = New Action(Of MOD_ImpCalcReverseParam)(Sub(ReverseParam) If ReverseParam.ImpCalcParam.Zo > ReverseParam.RequestZo Then ReverseParam.max = ReverseParam.ImpCalcParam.H2 ReverseParam.ImpCalcParam.H2 = (ReverseParam.min + ReverseParam.ImpCalcParam.H2) * 0.5 Else ReverseParam.min = ReverseParam.ImpCalcParam.H2 ReverseParam.ImpCalcParam.H2 = (ReverseParam.max + ReverseParam.ImpCalcParam.H2) * 0.5 End If End Sub) Case MOD_EnumImp.ImpCalcResize.Er2 ReturnReverse = New Action(Of MOD_ImpCalcReverseParam)(Sub(ReverseParam) If ReverseParam.ImpCalcParam.Zo > ReverseParam.RequestZo Then ReverseParam.min = ReverseParam.ImpCalcParam.Er2 ReverseParam.ImpCalcParam.Er2 = (ReverseParam.max + ReverseParam.ImpCalcParam.Er2) * 0.5 Else ReverseParam.max = ReverseParam.ImpCalcParam.Er2 ReverseParam.ImpCalcParam.Er2 = (ReverseParam.min + ReverseParam.ImpCalcParam.Er2) * 0.5 End If End Sub) Case MOD_EnumImp.ImpCalcResize.H3 ReturnReverse = New Action(Of MOD_ImpCalcReverseParam)(Sub(ReverseParam) If ReverseParam.ImpCalcParam.Zo > ReverseParam.RequestZo Then ReverseParam.max = ReverseParam.ImpCalcParam.H3 ReverseParam.ImpCalcParam.H3 = (ReverseParam.min + ReverseParam.ImpCalcParam.H3) * 0.5 Else ReverseParam.min = ReverseParam.ImpCalcParam.H3 ReverseParam.ImpCalcParam.H3 = (ReverseParam.max + ReverseParam.ImpCalcParam.H3) * 0.5 End If End Sub) Case MOD_EnumImp.ImpCalcResize.Er3 ReturnReverse = New Action(Of MOD_ImpCalcReverseParam)(Sub(ReverseParam) If ReverseParam.ImpCalcParam.Zo > ReverseParam.RequestZo Then ReverseParam.min = ReverseParam.ImpCalcParam.Er3 ReverseParam.ImpCalcParam.Er3 = (ReverseParam.max + ReverseParam.ImpCalcParam.Er3) * 0.5 Else ReverseParam.max = ReverseParam.ImpCalcParam.Er3 ReverseParam.ImpCalcParam.Er3 = (ReverseParam.min + ReverseParam.ImpCalcParam.Er3) * 0.5 End If End Sub) Case MOD_EnumImp.ImpCalcResize.H4 ReturnReverse = New Action(Of MOD_ImpCalcReverseParam)(Sub(ReverseParam) If ReverseParam.ImpCalcParam.Zo > ReverseParam.RequestZo Then ReverseParam.max = ReverseParam.ImpCalcParam.H4 ReverseParam.ImpCalcParam.H4 = (ReverseParam.min + ReverseParam.ImpCalcParam.H4) * 0.5 Else ReverseParam.min = ReverseParam.ImpCalcParam.H4 ReverseParam.ImpCalcParam.H4 = (ReverseParam.max + ReverseParam.ImpCalcParam.H4) * 0.5 End If End Sub) Case MOD_EnumImp.ImpCalcResize.Er4 ReturnReverse = New Action(Of MOD_ImpCalcReverseParam)(Sub(ReverseParam) If ReverseParam.ImpCalcParam.Zo > ReverseParam.RequestZo Then ReverseParam.min = ReverseParam.ImpCalcParam.Er4 ReverseParam.ImpCalcParam.Er4 = (ReverseParam.max + ReverseParam.ImpCalcParam.Er4) * 0.5 Else ReverseParam.max = ReverseParam.ImpCalcParam.Er4 ReverseParam.ImpCalcParam.Er4 = (ReverseParam.min + ReverseParam.ImpCalcParam.Er4) * 0.5 End If End Sub) End Select Return ReturnReverse End Function End Class ''' <summary> ''' 阻抗計算參數（正算） 繼承: 介質層參數+線路層參數+阻焊層參數 ''' </summary> ''' <remarks></remarks> <Serializable()> _ Public Class MOD_ImpCalcParam Inherits MOD_ImpParamDielectric ''' <summary> ''' 計算阻抗值結果 ''' </summary> ''' <value></value> ''' <returns></returns> ''' <remarks></remarks> Public Property Zo() As Double End Class ''' <summary> ''' 阻焊層參數 1/3 ''' </summary> ''' <remarks></remarks> <Serializable()> _ Public Class MOD_ImpParamSolderMask ''' <summary> ''' 基材上阻焊厚度 (與阻抗值大小成反比) ''' </summary> Public Property C1() As Double ''' <summary> ''' 線路上阻焊厚度(與阻抗值大小成反比) ''' </summary> Public Property C2() As Double ''' <summary> ''' 【外層差分阻抗】2條線間距中間阻焊厚度(與阻抗值大小成反比) ''' </summary> Public Property C3() As Double ''' <summary> ''' 阻焊介電常數(與阻抗值大小成反比) ''' </summary> Public Property CEr() As Double End Class ''' <summary> ''' 線路層參數 2/3 繼承: 阻焊層參數 ''' </summary> ''' <remarks></remarks> <Serializable()> _ Public Class MOD_ImpParamSingal Inherits MOD_ImpParamSolderMask ''' <summary> ''' 線路銅厚(與阻抗值大小成反比) ''' </summary> Public Property T1() As Double ''' <summary> ''' 線底線寬(與阻抗值大小成反比) ''' </summary> Public Property W1() As Double ''' <summary> ''' 線頂線寬(與阻抗值大小成反比) ''' </summary> Public Property W2() As Double ''' <summary> ''' 【差分阻抗】線距(與阻抗值大小成正比) ''' </summary> Public Property S1() As Double ''' <summary> ''' 【共面阻抗】線到銅距離(與阻抗值大小成正比) ''' </summary> Public Property D1() As Double ''' <summary> ''' 【共面阻抗】銅皮線底線寬(與阻抗值大小成反比) ''' </summary> Public Property G1() As Double ''' <summary> ''' 【共面阻抗】銅皮線頂線寬(與阻抗值大小成反比) ''' </summary> Public Property G2() As Double ''' <summary> ''' 【層間差分阻抗】2條線路偏移距離(與阻抗值大小成正比) ''' </summary> Public Property O1() As Double End Class ''' <summary> ''' 介質層參數 3/3 繼承: 線路層參數+阻焊層參數 ''' </summary> ''' <remarks></remarks> <Serializable()> _ Public Class MOD_ImpParamDielectric Inherits MOD_ImpParamSingal ''' <summary> ''' H1介質層厚度(與阻抗值大小成正比) ''' </summary> Public Property H1() As Double ''' <summary> ''' H1介電常數(與阻抗值大小成反比) ''' </summary> Public Property Er1() As Double ''' <summary> ''' H2介質層厚度(與阻抗值大小成正比) ''' </summary> Public Property H2() As Double ''' <summary> ''' H2介電常數(與阻抗值大小成反比) ''' </summary> Public Property Er2() As Double ''' <summary> ''' H3介質層厚度(與阻抗值大小成正比) ''' </summary> Public Property H3() As Double ''' <summary> ''' H3介電常數(與阻抗值大小成反比) ''' </summary> Public Property Er3() As Double ''' <summary> ''' H4介質層厚度(與阻抗值大小成正比) ''' </summary> Public Property H4() As Double ''' <summary> ''' H4介電常數(與阻抗值大小成反比) ''' </summary> Public Property Er4() As Double ''' <summary> ''' 【內層差分阻抗】2條線間距中間純膠介電常數(與阻抗值大小成反比) ''' </summary> Public Property REr() As Double End Class
二.寫反射類阻抗計算方法
正算代碼實現：
#Region "阻抗計算--------正算" #Region "阻抗模型--------方法名+MOD類參數傳遞（反射直接出結果）" ''' <summary> ''' 反射調用阻抗計算方法並返回結果 ''' </summary> ''' <param name="MethodName"></param> ''' <param name="modParam"></param> ''' <returns></returns> ''' <remarks></remarks> Public Function ImpCalcMenthod(ByVal MethodName As String, ByVal modParam As MOD_ImpCalcParam) As Double Dim result As Double = 0.0 Try Dim type As Type = Assembly.Load("CalcImpModelDLL").[GetType]("CalcImpModelDLL.ImpCalcModel") Dim params_type As Type = GetType(MOD_ImpCalcParam) Dim method As MethodInfo = type.GetMethod(MethodName, New Type() {params_type}) Dim parameters As Object() = New Object() {modParam} result = CType(method.Invoke(Nothing, parameters), Double) Catch End Try modParam.Zo = result Return (result) End Function #End Region #Region "阻抗模型--------方法名+MOD類參數傳遞（反射委托方式）" ''' <summary> ''' 定義阻抗計算委托方法 ''' </summary> ''' <param name="modParam"></param> ''' <returns></returns> ''' <remarks></remarks> Public Delegate Function ImpCalcDelegate(ByVal modParam As MOD_ImpCalcParam) As Double ''' <summary> ''' 獲取阻抗計算的委托方法 ''' </summary> ''' <param name="MethodName"></param> ''' <returns></returns> ''' <remarks></remarks> Public Function GetImpCalcDelegate(ByVal MethodName As String) As ImpCalcDelegate Dim impcalc As ImpCalcDelegate = Nothing Try Dim type As Type = Assembly.Load("CalcImpModelDLL").[GetType]("CalcImpModelDLL.ImpCalcModel") Dim params_type As Type = GetType(MOD_ImpCalcParam) Dim method As MethodInfo = type.GetMethod(MethodName, New Type() {params_type}) impcalc = CType([Delegate].CreateDelegate(GetType(ImpCalcDelegate), method), ImpCalcDelegate) Catch End Try Return impcalc End Function #End Region #End Region
反算代碼實現：
#Region "阻抗計算--------反算" ''' <summary> ''' 深復制 序列化實現 ''' </summary> ''' <typeparam name="T"></typeparam> ''' <param name="RealObject"></param> ''' <returns></returns> Public Function ToClone(Of T)(ByVal RealObject As T) As T Using objectStream As Stream = New MemoryStream() '利用 System.Runtime.Serialization序列化與反序列化完成引用對象的復制 Dim formatter As IFormatter = New BinaryFormatter() formatter.Serialize(objectStream, RealObject) objectStream.Seek(0, SeekOrigin.Begin) Return CType(formatter.Deserialize(objectStream), T) End Using End Function ''' <summary> ''' 反算---循環調用阻抗計算方法並返回反回計算是否成功 ''' </summary> ''' <param name="MethodName"></param> ''' <param name="modParam"></param> ''' <returns></returns> ''' <remarks></remarks> Public Function ImpCalcMenthodReverse(ByVal MethodName As String, ByVal modParam As MOD_ImpCalcParam, Optional ByVal _Enum_Resize As MOD_EnumImp.ImpCalcResize = MOD_EnumImp.ImpCalcResize.W1S1D1) As MOD_ImpCalcReverseParam Dim CalcCount As Integer Dim impcalcDelegate As ImpCalcDelegate = GetImpCalcDelegate(MethodName) Dim modParamClone As MOD_ImpCalcParam = ToClone(Of MOD_ImpCalcParam)(modParam) Dim ReverseParam As MOD_ImpCalcReverseParam = New MOD_ImpCalcReverseParam(modParamClone, _Enum_Resize) Dim ReverseResizeDelegate As Action(Of MOD_ImpCalcReverseParam) = ReverseParam.GetImpCalcReverseResizeDelegate() impcalcDelegate(ReverseParam.ImpCalcParam) While Math.Abs((modParam.Zo - ReverseParam.ImpCalcParam.Zo)) > ReverseParam.ImpAccuracy ReverseResizeDelegate(ReverseParam) impcalcDelegate(ReverseParam.ImpCalcParam) CalcCount += 1 If CalcCount > ReverseParam.CalcMaxCount Then Exit While End If End While If Not CalcCount > ReverseParam.CalcMaxCount Then ReverseParam.isOK = True Else ReverseParam.ImpCalcParam = Nothing ReverseParam.isOK = False End If Return ReverseParam End Function ''' <summary> ''' 反算---循環調用阻抗計算方法並返回計算多種結果(應用於差分線2線中心距調整)可以得到多種阻抗匹配結果 ''' </summary> ''' <param name="MethodName"></param> ''' <param name="modParam"></param> ''' <param name="_Enum_Resize"></param> ''' <param name="isNotOK"></param> ''' <returns></returns> ''' <remarks></remarks> Public Function ImpCalcMenthodReverseWhileToList(ByVal MethodName As String, ByVal modParam As MOD_ImpCalcParam, ByVal _Enum_Resize As MOD_EnumImp.ImpCalcResize, Optional ByVal isNotOK As Boolean = False) As List(Of MOD_ImpCalcReverseParam) Dim ReverseParamList As New List(Of MOD_ImpCalcReverseParam) Dim ReverseParam As MOD_ImpCalcReverseParam ReverseParam = ImpCalcMenthodReverse(MethodName, modParam, _Enum_Resize) If ReverseParam.isOK Then ReverseParamList.Add(ReverseParam) End If Return ReverseParamList End Function #End Region
阻抗線調整類型Enum枚舉類：
''' <summary> ''' 反算阻抗枚舉 線寬1 線距2 線到銅4 ''' </summary> ''' <remarks></remarks> Public Enum ImpCalcResize #Region "線路層【線寬，線距，線到銅】調整" ''' <summary> ''' 線寬 調整 ''' </summary> ''' <remarks></remarks> W1 = 1 ''' <summary> ''' 線距 調整 ''' </summary> ''' <remarks></remarks> S1 = 2 ''' <summary> ''' 線寬+線距 調整 ''' </summary> ''' <remarks></remarks> W1S1 = 3 ''' <summary> ''' 線到銅 調整 ''' </summary> ''' <remarks></remarks> D1 = 4 ''' <summary> '''線寬+線到銅 調整 ''' </summary> ''' <remarks></remarks> W1D1 = 5 ''' <summary> ''' 線距+線到銅 調整 ''' </summary> ''' <remarks></remarks> S1D1 = 6 ''' <summary> ''' 線寬+線距+線到銅 調整 ''' </summary> ''' <remarks></remarks> W1S1D1 = 7 ''' <summary> ''' 【層間差分阻抗】2條線路偏移距離 ''' </summary> ''' <remarks></remarks> O1 ''' <summary> ''' 線路銅厚 ''' </summary> ''' <remarks></remarks> #End Region #Region "層疊結構【介質層厚度，介質電常數】調整" T1 ''' <summary> ''' H1介質層厚度 ''' </summary> ''' <remarks></remarks> H1 ''' <summary> ''' H1介電常數 ''' </summary> ''' <remarks></remarks> Er1 ''' <summary> ''' H2介質層厚度 ''' </summary> ''' <remarks></remarks> H2 ''' <summary> ''' H2介電常數 ''' </summary> ''' <remarks></remarks> Er2 ''' <summary> ''' H3介質層厚度 ''' </summary> ''' <remarks></remarks> H3 ''' <summary> ''' H3介電常數 ''' </summary> ''' <remarks></remarks> Er3 ''' <summary> ''' H4介質層厚度 ''' </summary> ''' <remarks></remarks> H4 ''' <summary> ''' H4介電常數 ''' </summary> ''' <remarks></remarks> Er4 ''' <summary> ''' 【內層差分阻抗】2條線間距中間純膠介電常數 ''' </summary> ''' <remarks></remarks> REr #End Region End Enum
三.寫Web服務接口
選擇性挺多的，可以用WebService,WCF,WebAPI都可能，這里不貼代碼了。
四.凝問解答
1.為要什么封裝為Web，初衷是什么 ？
初衷是解決客戶端沒安裝SI9000照樣可以計算阻抗
現狀：每個客戶端需要安裝安裝SI9000工具，沒安裝不能計算阻抗.基於此問題思考新方法。
解決方式：通過在在服務端安裝后SI9000,通過Web接口封裝為服務開放出來供客戶端都可以調用，
獲取阻抗計算結果與反算結果。
2.阻抗計算是調用哪個DLL計算的 ？
調用了：CalcEngineBEMDll.dll 阻抗計算引擎計算，這個DLL在SI9000安裝目錄里面
3.如果不安裝SI9000，工程直接調用CalcEngineBEMDll.dll是否可以計算阻抗呢？
經過筆者測試，不行的，必須安裝SI9000才可以，
4.那么安裝SI8000與SI9000的CalcEngineBEMDll.dll計算結果是否相同？
阻抗計算結果是有細微不同的，SI8000升級為SI9000有部份接口參數做了少許優化。
5.如果只安裝SI8000，卻想擁有SI9000的計算結果是否可以呢？
當然可以的，安裝S8000后，將SI9000的CalcEngineBEMDll.dll
替到SI8000的CalcEngineBEMDll.dll就可以了
6. 阻抗反算是什么意思?
阻抗反算是：通過指定阻抗值不變，反算出線寬，線距，介質層厚等信息.
7. 阻抗反算計算精度有多高？
精度由反算次數決定+阻抗精確度決定，當阻抗可以調得出來的情況下，
反算次數正常情況下20次，精度可以高達：0.001歐姆
8. 阻抗反算計算的原理是什么？
通過二分折半算法與各參數對阻抗的正反比關系計算得出。
1.折半算法可以baidu.本例子上文代碼中也有寫。
2.參數正反比關系如下：
9.是否有Prolar SI9000所有圖片模型呢？
有啊，這里整理分享如下：
http://pcbren.cn/ShareFiles/ProlarSI9000阻抗模大圖png無logo.rar
http://pcbren.cn/ShareFiles/ProlarSI9000阻抗模小圖jpg無logo.rar
10.SI9000有多少種阻抗模型，每種阻抗模型對應的參考層與參數是怎么樣關系？
經筆記整理統計有93種.對應的參考層與參數清單整理如下:
圖片太大小， 可以通過如下鏈接查圖片查看
https://images2018.cnblogs.com/blog/733296/201808/733296-20180826191328826-1524965727.png
