HFSS的近场仿真….docVIP

HFSS的近场仿真 软件安装和破解 1）Hfss13只能安装在C盘。 2）破解时先在控制面板里关闭Windows defender并且退出360杀毒软件。否则Ansoft2008fix.exe会被当病毒杀掉Ansoft2008fix.exe和hfss12fix.exe和license.lic拷贝到HFSS13.0目录下Ansoft2008fix.exe。 5）以管理员身份运行hfss12fix.exe，连续patch六个dllTOOls-options-general options-webupdate options-never 模型的建立 2.1设计变量 2.2画模型 2.3 边界条件 、 激励源 因为hfss算出的场强为正弦波波峰，所以输入功率有一个1/2的因子。 加运算器 画近场线 近场线要一一对应。 数据的导出 用Add Trace添加曲线到同一页面， 用Apply Trace改变频点。 导出为csv格式。 将横坐标反归一化。 画出三维曲面图。 用脚本画近场线 Dim oAnsoftApp Dim oDesktop Dim oProject Dim oDesign Dim oEditor Dim oModule Set oAnsoftApp = CreateObject(AnsoftHfss.HfssScriptInterface) Set oDesktop = oAnsoftApp.GetAppDesktop() Set oProject = oDesktop.GetActiveProject() Set oDesign = oProject.GetActiveDesign() Set oEditor = oDesign.SetActiveEditor(3D Modeler) 声明变量与常数. Dim zpos, Xnum, Ynum, xspan, yspan, dx, dy,pos Dim Units, index Dim y() Dim x() Units = mm pos=6000 -----------------------------3米x面---------------------------------------- Units = InputBox(Select the units:Chr(13) _ (cm,mm,um,in,mil), Nearfield,mm,pos,pos) zpos = InputBox(Input the Z plane position:,Nearfield, 3200,pos,pos) xspan = InputBox(Input X sampling span:,Nearfield, 4000,pos,pos) yspan = InputBox(Input Y sampling span:,Nearfield, 2100,pos,pos) Xnum = InputBox(Input sampling number in X direction:,Nearfield, 100,pos,pos) Ynum = InputBox(Input sampling number in Y direction:,Nearfield, 15,pos,pos) Redim y(Ynum) dx=xspan/(Xnum-1) dy=yspan/(Ynum-1) y(0)=Position of y For n=1 To Ynum y(n)=-yspan/2 + (n-1)*dy 将X向点坐标存入数组 ZValue=cstr(zpos) Units YValue=cstr(y(n)) Units XValuemin=cstr(-xspan/2) Units XValuemmax=cstr(xspan/2) Units index=lin3mx cstr(n) oEditor.CreatePolyline Array(NAME:PolylineParameters, IsPolylineCovered:=, true, IsPolylineClosed:=, _ false, Array(NAME:PolylinePoints, Array(NAME:PLPoint, X:=, XValuemin, Y:=, YValue, Z:=, _ ZValue), Array(NAME:PLPoint, X:=, XValuemmax, Y:=, YValue, Z:=, ZValue)), _ Array(NAME:PolylineSegments, Array(NAME:PLSegmen