登 录
註 冊
论坛
微波仿真网
注册
登录论坛可查看更多信息
微波仿真论坛
>
CST 专区
>
CST
>
CST MWS自定义激励源问题
发帖
回复
1
2
4833
阅读
19
回复
[建模]
CST MWS自定义激励源问题
离线
jellyfancy
UID :66914
注册:
2010-09-25
登录:
2021-04-26
发帖:
459
等级:
积极交流四级
0楼
发表于: 2011-03-15 17:50:01
关键词:
CST
设置
激励
遇到一个问题,自己定义的激励源与画出的图形都对,就是default的波形不对不知道为什么,求指点!!
}c>[m,lz
P"`OuN
自己定义了一个激励源。vba如下:
E6iUa'
c=U1/=R5
' userdefined excitation function
('/5#^%R
@$R[Js%MuO
Option Explicit
/dU-$}>ZI
"y_A xOH
Function ExcitationFunction(dtime As Double) As Double
x0ZEVa0`4
yq{k:)
'Assign the excitation signal value for the given time to the function name.
"#T3l^@
l@ +]XyLj
ExcitationFunction =-3.131*Cos(2*3.14*600*dtime)-2.085*Sin(2*3.14*600*dtime)+0.9779*Cos(4*3.14*600*dtime)-1.684*Sin(4*3.14*600*dtime)+0.6571*Cos(6*3.14*600*dtime)+0.6599*Sin(6*3.14*600*dtime)-0.2716*Cos(8*3.14*600*dtime)+0.3825*Sin(8*3.14*600*dtime)
A$K>:Tt>
$z-zscco
End Function
0jY#,t?>
Sub Main
#]ZOi`;
Dim tmax As Double, ntstep As Long
$7{|
r Bv
' -------------- PLEASE ADJUST THE SETTINGS BELOW ----------------------
<$WRc\}&g