CST中這個天線模型怎么畫？

來源：更新時間：2024-07-25 閱讀：

這個天線的尺寸是這樣的，h1=5.0cm，h2=0.5cm，w=2.2cm，α=75°，β=110°,d=0.7cm，
線寬=1.58mm。但是角度用正弦或余弦都是算不盡的，那么尺寸怎么確定?。慷际遣灰?guī)則的數(shù)據(jù)我不會畫啊。高手指點(diǎn)?。。?7de

坐標(biāo)輸入支持常用函數(shù)輸入

只需要畫一半另外一半用鏡象就可以了

:11bb

by.cst

Sub Main ()
'@ new curve: curve1
Curve.NewCurve "curve1"
'@ define curve polygon: curve1:polygon1
With Polygon
.Reset
.Name "polygon1"
.Curve "curve1"
.Point "0", "0"
.LineTo "w*cosD(a)/2", "w*sinD(a)/2"
.LineTo "w*cosD(a)/2", "w*sinD(a)/2+b"
.LineTo "w*cosD(a)/2-d", "w*sinD(a)/2+b+d/tanD(beta)"
.LineTo "w*cosD(a)/2-d", "w*sinD(a)/2+2*b-d/tanD(beta)"
.LineTo "w*cosD(a)/2", "w*sinD(a)/2+2*b"
.LineTo "w*cosD(a)/2", "w*sinD(a)/2+3*b"
.LineTo "w*cosD(a)/2-d", "w*sinD(a)/2+3*b+d/tanD(beta)"
.LineTo "w*cosD(a)/2-d", "w*sinD(a)/2+4*b-d/tanD(beta)"
.LineTo "w*cosD(a)/2", "w*sinD(a)/2+4*b"
.LineTo "w*cosD(a)/2", "w*sinD(a)/2+5*b"
.LineTo "0", "w*sinD(a)/2+5*b"
.LineTo "0", "0"
.Create
End With
'@ new component: component1
Component.New "component1"
'@ define coverprofile: component1:solid1
With CoverCurve
.Reset
.Name "solid1"
.Component "component1"
.Material "PEC"
.Curve "curve1:polygon1"
.Create
End With
'@ transform: mirror component1:solid1
With Transform
.Reset
.Name "component1:solid1"
.Origin "Free"
.Center "0", "0", "0"
.PlaneNormal "1", "0", "0"
.MultipleObjects "True"
.GroupObjects "True"
.Repetitions "1"
.MultipleSelection "False"
.Component ""
.Material ""
.MirrorAdvanced
End With
End Sub