Altium 分形天线设计
Altium 分形天线设计
程序运行界面
Cantor三分集
Koch雪花
Sierpinski垫片
源代码:
Iter_Num = 4 'diedai
PI = 3.1415926
Call Client.StartServer("PCB")
PcbFileName = "PCB1.PcbDoc"
Set Document = Client.OpenDocument("PCB", PcbFileName)
If Not (Document Is Nothing) Then
'Add this schematic sheet in the newly created PCB project in DXP.
Set Workspace = GetWorkspace
If Not (Workspace Is Nothing) Then
Workspace.DM_FocusedProject.DM_AddSourceDocument(Document.FileName)
End If
Client.ShowDocument(Document)
End If
'Draw Line Function
Sub Paint_Line(x1,y1,x2,y2)
Dim Board
Dim Track
Set Board = PCBServer.GetCurrentPCBBoard
Track = PCBServer.PCBObjectFactory(eTrackObject,eNoDimension,eCreate_Default)
Track.X1 = MilsToRealCoord(CLng(x1)+Board.GetState_XOrigin/10000)
Track.Y1 = MilsToRealCoord(CLng(y1)+Board.GetState_XOrigin/10000)
Track.X2 = MilsToRealCoord(CLng(x2)+Board.GetState_XOrigin/10000)
Track.Y2 = MilsToRealCoord(CLng(y2)+Board.GetState_XOrigin/10000)
Track.Layer = eTopLayer
Track.Width = MilsToCoord (10)
Board.AddPCBObject(Track)
Board.LayerIsDisplayed(ALayer) = True
End Sub
'Draw rectangle Function
Sub Paint_Rectangle(x1,y1,x2,y2)
call Paint_Line(x1,y1,x2,y1)
call Paint_Line(x1,y1,x1,y2)
call Paint_Line(x1,y2,x2,y2)
call Paint_Line(x2,y1,x2,y2)
End Sub
Sub Action_Redraw()
Call Client.SendMessage("PCB:Zoom","Action=Redraw", 255, Client.CurrentView)
Call Client.SendMessage("PCB:Zoom","Action=All", 255, Client.CurrentView)
End Sub
'SetState_Origin
Sub Set_Origin()
Set Board = PCBServer.GetCurrentPCBBoard
Board.SetState_YOrigin(40000000)
Board.SetState_XOrigin(40000000)
End Sub
Sub Board_Shape()
Call AddStringParameter("Scope", "All")
RunProcess("PCB:Select")
Call AddStringParameter("Mode", "BOARDOUTLINE_FROM_SEL_PRIMS")
RunProcess("PCB:PlaceBoardOutline")
Call AddStringParameter("Size", "2.500MM")
RunProcess("PCB:SnapGrid")
Call AddStringParameter("MeasurementUnit", "Toggle")
RunProcess("PCB:DocumentPreferences")
End Sub
Sub CantorClick(Sender)
Board_chang = 100/0.0254
Board_kuan = 100/0.0254
Iter_Num = 5
call Set_Origin()
call Paint_Rectangle(0,0,Board_chang,Board_kuan)
Call Board_Shape()
Call Cantor_digui(0,0,Board_chang,0,Iter_Num)
Action_Redraw()
Close
End Sub
Sub Cantor_digui(ax,ay,bx,by,m)
If m=1 Then
Call Paint_Line(ax,ay,bx,by)
Else
Call Paint_Line(ax,ay,bx,by)
cx=ax+(bx-ax)/3
cy=ay+100
dx=bx-(bx-ax)/3
dy=by+100
ay=ay+100
by=by+100
Call Cantor_digui(ax,ay,cx,cy,m-1)
Call Cantor_digui(dx,dy,bx,by,m-1)
End If
m=m-1
End Sub
Sub KochClick(Sender)
Board_chang = 100/0.0254
Board_kuan = 100/0.0254
m = Board_chang
Iter_Num = 11
call Set_Origin()
call Paint_Rectangle(0,0,Board_chang,Board_kuan)
Call Board_Shape()
Action_Redraw()
Call Fractal(m/2-sqr(3)/2*m/2,m/2+m/4,m/2+sqr(3)/2*m/2,m/2+m/4,Iter_Num)
Call Fractal(m/2,m/2-m/2,m/2-sqr(3)/2*m/2,m/2+m/4,Iter_Num)
Call Fractal(m/2+sqr(3)/2*m/2,m/2+m/4,m/2,m/2-m/2,Iter_Num)
Action_Redraw()
Close
End Sub
Sub Fractal(ax,ay,bx,by,Iter_Num)
if Iter_Num = 1 Then
Call Paint_Line(ax,ay,bx,by)
else
cx=ax+(bx-ax)/3
cy=ay+(by-ay)/3
ex=bx-(bx-ax)/3
ey=by-(by-ay)/3
Call Fractal(ax,ay,cx,cy,Iter_Num-1)
Call Fractal(ex,ey,bx,by,Iter_Num-1)
l=sqr((ex-cx)*(ex-cx)+(ey-cy)*(ey-cy))
alfa=Atn((ey-cy)/(ex-cx))
if ((alfa>=0 And (ex-cx)<0) Or (alfa<0 And (ex-cx)<0)) Then
alfa=alfa+PI
End if
dx=cx+cos(alfa+PI/3)*l
dy=cy+sin(alfa+PI/3)*l
Call Fractal(cx,cy,dx,dy,Iter_Num-1)
Call Fractal(dx,dy,ex,ey,Iter_Num-1)
End If
End Sub
Sub ArboresentClick(Sender)
prate=1.5
theta=atn(sqr(4/prate/prate-1))
t=PI-4*theta
alfa=55*PI/180
leval=1
x=500
y=500
size1=3000
Call DrawArboresent(x,y,size1,prate,alfa,thata,t,lexel)
End Sub
Sub DrawArboresent(x,y,size1,prate,alfa,thata,t,lexel)
L_X=200
L_Y=300
l=size1/prate
xe=x
ye=y
xa=x+size1*cos(alfa)
ya=y+size1*sin(alfa)
xb=x+l*cos(alfa-theta)
yb=y+l*sin(alfa-theta)
xc=x+l*cos(alfa-theta-t)
yc=x+l*sin(alfa-theta-t)
xd=x+size1*cos(alfa-theta*2-t)
yd=x+size1*sin(alfa-theta*2-t)
if level<=1 Then
Call Paint_Line(L_X-xa/15,L_Y-ya/15,L_X-xe/15,L_Y-ye/15)
Call Paint_Line(L_X-xe/15,L_Y-ye/15,L_X-xd/15,L_Y-yd/15)
Call Paint_Line(L_X-xd/15,L_Y-yd/15,L_X-xc/15,L_Y-yc/15)
Call Paint_Line(L_X-xc/15,L_Y-yc/15,L_X-xe/15,L_Y-ye/15)
Call Paint_Line(L_X-xe/15,L_Y-ye/15,L_X-xb/15,L_Y-yb/15)
Call Paint_Line(L_X-xb/15,L_Y-yb/15,L_X-xa/15,L_Y-ya/15)
End if
Call DrawArboresent(xb,yb,l,prate,alfa-theta+pi,thata,t,lexel-1)
Call DrawArboresent(xc,yc,l,prate,alfa-theta+pi,thata,t,lexel-1)
End Sub
Sub LevyClick(Sender)
m = (100/0.0254)
call Set_Origin()
call Paint_Rectangle(0,0,m,m)
Call Board_Shape()
Call drawC(0,0,10000,0)
Action_Redraw()
Close()
End Sub
Sub drawC(x1,y1,x2,y2)
if (x2-x1)<5 Then
Call Paint_Line(x1,y1,x2,y2)
else
Call Paint_Line(x1,y1,x2,y2)
x3=(x1+y1+x2-y2)/2
y3=(x2+y2+y1-x1)/2
Call Paint_Line(x1,y1,x3,y3)
Call Paint_Line(x3,y3,x2,y2)
Call drawC(x1,y1,x3,y3)
Call drawC(x3,y3,x2,y2)
End if
End Sub
Sub SierpinskiClick(Sender)
m = (100/0.0254)
Iter_Num = 7
call Set_Origin
call Paint_Rectangle(0,0,m,m)
Call Board_Shape()
Action_Redraw()
Call Sier(0,0,m,m,Iter_Num)
Action_Redraw()
Close()
End Sub
kkk=1
Sub Sier(x1,y1,x2,y2,k)
L=x2-x1
W=y2-y1
Set Board = PCBServer.GetCurrentPCBBoard
Region = PCBServer.PCBObjectFactory(eRegionObject, eNoDimension,eCreate_Default)
Contour = Region.MainContour.Replicate
Region.Layer = eTopLayer
Contour.Count = 4
if k=1 Then
Contour.X(1) = MilsToCoord(x1+L/3)
Contour.Y(1) = MilsToCoord(y1+W/3)
Contour.X(2) = MilsToCoord(x2-L/3)
Contour.Y(2) = MilsToCoord(y1+W/3)
Contour.X(3) = MilsToCoord(x2-L/3)
Contour.Y(3) = MilsToCoord(y2-W/3)
Contour.X(4) = MilsToCoord(x1+L/3)
Contour.Y(4) = MilsToCoord(y2-W/3)
Call Contour.Translate(MilsToCoord(4000), MilsToCoord(4000))
Region.SetOutlineContour(Contour)
Region.Kind = 1
Board.AddPCBObject(Region)
else
Contour.X(1) = MilsToCoord(x1+L/3)
Contour.Y(1) = MilsToCoord(y1+W/3)
Contour.X(2) = MilsToCoord(x2-L/3)
Contour.Y(2) = MilsToCoord(y1+W/3)
Contour.X(3) = MilsToCoord(x2-L/3)
Contour.Y(3) = MilsToCoord(y2-W/3)
Contour.X(4) = MilsToCoord(x1+L/3)
Contour.Y(4) = MilsToCoord(y2-W/3)
Call Contour.Translate(MilsToCoord(4000), MilsToCoord(4000))
Region.SetOutlineContour(Contour)
Region.Kind = 1
Board.AddPCBObject(Region)
Call Sier(x1,y1,x1+L/3,y1+W/3,k-1)
Call Sier(x1+L/3,y1,x2-L/3,y1+W/3,k-1)
Call Sier(x2-L/3,y1,x2,y1+W/3,k-1)
Call Sier(x1,y1+W/3,x1+L/3,y2-W/3,k-1)
Call Sier(x2-L/3,y1+W/3,x2,y2-W/3,k-1)
Call Sier(x1,y2-W/3,x1+L/3,y2,k-1)
Call Sier(x1+L/3,y2-W/3,x2-L/3,y2,k-1)
Call Sier(x2-L/3,y2-W/3,x2,y2,k-1)
End if
if kkk=1000 Then
Call Client.SendMessage("PCB:Zoom","Action=Redraw" , 255, Client.CurrentView)
kkk=1
End if
kkk=kkk+1
End Sub
Altium 分形天线设计的更多相关文章
- 2.4G高频PCB天线设计
2.4G高频PCB天线设计 本文博客链接:http://blog.csdn.net/jdh99,作者:jdh,转载请注明. 参考链接: http://bbs.rfeda.cn/read-htm-t ...
- 射频识别技术漫谈(21)——RC系列射频芯片的天线设计
个人感觉使用RC系列射频芯片开发卡片读写器,主要的关键点有两个,分别涉及硬件和软件.软件上的关键是如何正确设置RC系列射频芯片内部的64个寄存器,硬件上的关键则是RC系列射频芯片的天线设计.天线提供了 ...
- Altium Designer 多通道设计
转chenzelin2009的csdn博客:http://blog.csdn.net/chenzelin2009/article/details/5751251# Altium Designer的多图 ...
- 每天进步一点点------Altium Designer PCB设计规则中英对照
Electrical(电气规则) Clearance:安全间距规则 Short Circuit:短路规则 UnRouted Net:未布线网络规则 UnConnected Pin:未连线引脚规则 Ro ...
- [转]ZigBee On Windows Mobile--ZigBee模块天线设计
原文出处:http://www.cnblogs.com/dearsj001/archive/2008/10/26/1320029.html
- Y分形的平面微带天线生成过程
Y分形的平面微带天线生成过程 本文介绍了使用Altium Designer脚本程序生成Y型天线的过程,在窗体中线宽.迭代次数,边框长度可以直接设置. Y分形天线用户界面由一个窗体.1个TImage控件 ...
- Mysql存储引擎之TokuDB以及它的数据结构Fractal tree(分形树)
在目前的Mysql数据库中,使用最广泛的是innodb存储引擎.innodb确实是个很不错的存储引擎,就连高性能Mysql里都说了,如果不是有什么很特别的要求,innodb就是最好的选择.当然,这偏文 ...
- Altium Designer PCB制作入门实例
概要:本章旨在说明如何生成电路原理图.把设计信息更新到PCB文件中以及在PCB中布线和生成器件输出文件.并且介绍了工程和集成库的概念以及提供了3D PCB开发环境的简要说明.欢迎使用Altium De ...
- Altium Designer规划电路板
所谓规划电路板就是根据电路的规模以及用户的需求,确定所要制作电路板的物理外形尺寸和电气边界.电路板规划的原则是在满足用户要求的前提下,使板面美观而且利于后面的布线工作. 1. 定义板的外 ...
随机推荐
- 百度地图API-创建多个坐标,连线,信息提示
这是一个多坐标创建,并连线,和信息显示的例子 <!DOCTYPE html> <html> <head> <meta http-equiv="Con ...
- react-native app 屏幕适配方案(按照设计稿像素大小写就行)
import React, { Component,PropTypes } from 'react'; import { Dimensions,PixelRatio,Platform,StatusBa ...
- 为Python安装pip
Python及操作系统的支持 Python 2.6, 2.7, 3.2, 3.3, 3.4 Unix/Linux, OS X, 以及 Windows 默认包含 Python 2.7.9 及以后的版 ...
- c js 字符串反转
1.例如:输入 i am a student 输出 student a am i #include <stdio.h> #include <string.h> v ...
- 【tomcat系列】详解tomcat架构(上篇)
java中,常用的web服务器一般由tomcat,weblogic,jetty,undertwo等,但从用户使用广泛度来说,tomcat用户量相对比较大一些,当然这也基于它开源和免费的特点. 从软件架 ...
- macOS Catalina 升级软件问题
最近升级macOS Catalina系统,升级失败时多尝试几次就可以执行成功了,在使用过程中发现以下问题,大家谨慎升级!!! 存在软件启动不兼容,不存在已软件激活失效问题. 有道词典不兼容,启动异常 ...
- 基于 HTML5 WebGL 的发动机 3D 可视化系统
前言 工业机械产品大多体积庞大.运输成本高,在参加行业展会或向海外客户销售时,如果没有实物展示,仅凭静态.简单的图片说明书介绍,无法让客户全面了解产品,不仅工作人员制作麻烦,客户看得也费力.如 ...
- 分享几个 PHP 编码的最佳实践
对于初学者而言,可能很难理解为什么某些做法更安全. 但是,以下一些技巧可能超出了 PHP 的范围. 始终使用大括号 让我们看下面的代码: if (isset($condition) && ...
- 深入理解计算机系统 (CS:APP) Lab2 - Bomb Lab 解析
原文地址:https://billc.io/2019/04/csapp-bomblab/ 写在前面 CS:APP是这学期的一门硬核课程,应该是目前接触到最底层的课程了.学校的教学也是尝试着尽量和CMU ...
- Windows主机与centOS虚拟机之间"ping不通"
为什么要遇到这个问题 这是我重新安装centOS7.5虚拟机之后遇到的问题——我需要安装一个SecureCRT工具,结果主机与虚拟机没有ping通. 在安装这个工具之前需要进行主机与虚拟机的相互pin ...