CST DS用VBA定义隔离器
时间：10-02
整理：3721RD
点击：
最近看一篇论文，在DS工作室用VB控件模块代替理想隔离器。
具体做法是将Miscellaneous中的VB模块放入视图桌面（一定要在naviation tree先右击VBA1，在properties对话框将其设为2 ports，并且勾选 show parameters table inside drawing，否则就显示不了）。
然后可以对该模块进行edit，根据其源代码编辑其S参数。对于理想隔离器，其S矩阵
{S11 S12; S21 S22 } 应为{0 0；1 0}
但我不大懂VB，不知道怎样改写该程序代码得到我想的S参数矩阵
烦请高手帮忙指点指点，谢谢！
具体做法是将Miscellaneous中的VB模块放入视图桌面（一定要在naviation tree先右击VBA1，在properties对话框将其设为2 ports，并且勾选 show parameters table inside drawing，否则就显示不了）。
然后可以对该模块进行edit，根据其源代码编辑其S参数。对于理想隔离器，其S矩阵
{S11 S12; S21 S22 } 应为{0 0；1 0}
但我不大懂VB，不知道怎样改写该程序代码得到我想的S参数矩阵
烦请高手帮忙指点指点，谢谢！
经过这几天不断试验，问题解决了！代码共享！
Function OnS(f As Double, i As Integer, j As Integer) As Variant
'Insert code here
'First parameter is current frequency in Hz
'i and j are 1-based indices
Dim Sij(2) As Double
If i=j Then
Sij(1)=0
Sij(2)=0
ElseIf i>j Then
Sij(1)=-1
Sij(2)=0
Else
Sij(1)=0
Sij(2)=0
End If
OnS = Sij
End Function