现在位置：首页 > 微波射频和天线设计 > CST微波工作室 > CST使用讨论 > 球面螺旋(Spherical Spiral)

球面螺旋(Spherical Spiral)

录入：mweda 点击：

在CST-->Macros--->construct---->curves---->creat 3D curves analytical(xyz-wcs)-------------------------- >出現一個螺旋線-------->到history把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 ！)
' -------------------------------------------
Dimx As Double, y As Double, z As Double
Dimrho 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)