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 分形天线设计的更多相关文章

  1. 2.4G高频PCB天线设计

    2.4G高频PCB天线设计 本文博客链接:http://blog.csdn.net/jdh99,作者:jdh,转载请注明.   参考链接: http://bbs.rfeda.cn/read-htm-t ...

  2. 射频识别技术漫谈(21)——RC系列射频芯片的天线设计

    个人感觉使用RC系列射频芯片开发卡片读写器,主要的关键点有两个,分别涉及硬件和软件.软件上的关键是如何正确设置RC系列射频芯片内部的64个寄存器,硬件上的关键则是RC系列射频芯片的天线设计.天线提供了 ...

  3. Altium Designer 多通道设计

    转chenzelin2009的csdn博客:http://blog.csdn.net/chenzelin2009/article/details/5751251# Altium Designer的多图 ...

  4. 每天进步一点点------Altium Designer PCB设计规则中英对照

    Electrical(电气规则) Clearance:安全间距规则 Short Circuit:短路规则 UnRouted Net:未布线网络规则 UnConnected Pin:未连线引脚规则 Ro ...

  5. [转]ZigBee On Windows Mobile--ZigBee模块天线设计

    原文出处:http://www.cnblogs.com/dearsj001/archive/2008/10/26/1320029.html

  6. Y分形的平面微带天线生成过程

    Y分形的平面微带天线生成过程 本文介绍了使用Altium Designer脚本程序生成Y型天线的过程,在窗体中线宽.迭代次数,边框长度可以直接设置. Y分形天线用户界面由一个窗体.1个TImage控件 ...

  7. Mysql存储引擎之TokuDB以及它的数据结构Fractal tree(分形树)

    在目前的Mysql数据库中,使用最广泛的是innodb存储引擎.innodb确实是个很不错的存储引擎,就连高性能Mysql里都说了,如果不是有什么很特别的要求,innodb就是最好的选择.当然,这偏文 ...

  8. Altium Designer PCB制作入门实例

    概要:本章旨在说明如何生成电路原理图.把设计信息更新到PCB文件中以及在PCB中布线和生成器件输出文件.并且介绍了工程和集成库的概念以及提供了3D PCB开发环境的简要说明.欢迎使用Altium De ...

  9. Altium Designer规划电路板

           所谓规划电路板就是根据电路的规模以及用户的需求,确定所要制作电路板的物理外形尺寸和电气边界.电路板规划的原则是在满足用户要求的前提下,使板面美观而且利于后面的布线工作. 1. 定义板的外 ...

随机推荐

  1. 百度地图API-创建多个坐标,连线,信息提示

    这是一个多坐标创建,并连线,和信息显示的例子 <!DOCTYPE html> <html> <head> <meta http-equiv="Con ...

  2. react-native app 屏幕适配方案(按照设计稿像素大小写就行)

    import React, { Component,PropTypes } from 'react'; import { Dimensions,PixelRatio,Platform,StatusBa ...

  3. 为Python安装pip

    Python及操作系统的支持 Python 2.6, 2.7, 3.2, 3.3, 3.4 Unix/Linux, OS X, 以及 Windows   默认包含 Python 2.7.9 及以后的版 ...

  4. c js 字符串反转

    1.例如:输入 i am     a student    输出 student a am i #include <stdio.h> #include <string.h> v ...

  5. 【tomcat系列】详解tomcat架构(上篇)

    java中,常用的web服务器一般由tomcat,weblogic,jetty,undertwo等,但从用户使用广泛度来说,tomcat用户量相对比较大一些,当然这也基于它开源和免费的特点. 从软件架 ...

  6. macOS Catalina 升级软件问题

    最近升级macOS Catalina系统,升级失败时多尝试几次就可以执行成功了,在使用过程中发现以下问题,大家谨慎升级!!! 存在软件启动不兼容,不存在已软件激活失效问题. 有道词典不兼容,启动异常 ...

  7. 基于 HTML5 WebGL 的发动机 3D 可视化系统

    前言     工业机械产品大多体积庞大.运输成本高,在参加行业展会或向海外客户销售时,如果没有实物展示,仅凭静态.简单的图片说明书介绍,无法让客户全面了解产品,不仅工作人员制作麻烦,客户看得也费力.如 ...

  8. 分享几个 PHP 编码的最佳实践

    对于初学者而言,可能很难理解为什么某些做法更安全. 但是,以下一些技巧可能超出了 PHP 的范围. 始终使用大括号 让我们看下面的代码: if (isset($condition) && ...

  9. 深入理解计算机系统 (CS:APP) Lab2 - Bomb Lab 解析

    原文地址:https://billc.io/2019/04/csapp-bomblab/ 写在前面 CS:APP是这学期的一门硬核课程,应该是目前接触到最底层的课程了.学校的教学也是尝试着尽量和CMU ...

  10. Windows主机与centOS虚拟机之间"ping不通"

    为什么要遇到这个问题 这是我重新安装centOS7.5虚拟机之后遇到的问题——我需要安装一个SecureCRT工具,结果主机与虚拟机没有ping通. 在安装这个工具之前需要进行主机与虚拟机的相互pin ...