CST MWS球型螺旋天线怎么画啊

顶个
我也想知道

没做过天线，能把模型和尺寸发上来吗？这样知道的人会比较多

郁闷.高手都在春眠吗

到这个地方看看吧 应该对你有帮助
http://www.mwhrf.com/dispbbs.asp?BoardID=2&ID=2392&replyID=&skin=1

請到 http://imw.mwhrf.com/thread-10719-1-1.html
看看!
在CST-->Macros--->construct---->curves---->creat 3D curves analytical(xyz-wcs)-------------------------- >出現一個螺旋線-------->到history把VBA code改成下述.
CST VBA code
------------------------------------------------------------------------------------------------------------------------------------
On Error GoTo Curve_Exists
Curve.NewCurve "3D-Analytical"
Curve_Exists:
On Error GoTo 0
Dim sCurveName As String
sCurveName = "3dpolygon_1"
With Polygon3D
.Reset
.Name sCurveName
.Curve "3D-Analytical"
' ======================================
' !!! Do not change ABOVE this line !!!
' ======================================
' -----------------------------------------------------------
' adjust x-range as for-loop parameters (xmin,max,step)
' enter y/z-Function-statement within for-loop
' fixed parameters a,b,c have to be declared via Dim-Statement
' -----------------------------------------------------------
' NOTE: available MWS-Parameters can be used without
' declaration at any place (loop-dimensions, ...)
' (for parametric curves during parameter-sweeps and optimisation !)
' -------------------------------------------
Dim x As Double, y As Double, z As Double
Dim rho As Double, theta As Double, phi As Double
Dim t As Double
For t=-0.25*Pi To 0.25*Pi STEP 0.001 ( 此設定剛好繞球一圈)

rho=10 (sphere radius)
theta=t
phi=2*t
x=rho*( sin(theta*100) )*cos(phi) (*100, 控制螺旋圈數)
y=rho*( cos(theta*100) )*cos(phi)
z=-rho*sin(phi)
.Point x, y, z
Next t
' ======================================
' !!! Do not change BELOW this line !!!
' ======================================
.Create
End With
SelectTreeItem("Curves3D-Analytical"+sCurveName)

Re:球型螺旋天线怎么画啊

 

路过，赞mfhsu

 

能不能给出个sat格式的模型，让大家都瞅瞅。或者直接CST模型也行啊

 


您好，这个是cst建的模吧，怎么画呢？尤其是每根的粗细

申明：网友回复良莠不齐，仅供参考。如需专业解答，请学习易迪拓培训专家讲授的CST视频培训教程。