half a thermal

Bookmark this page: YahooMyWeb

Yahoo!

Google

Windows Live

del.icio.us digg

digg

Netscape

Subject	Author	Date
half a thermal	sycochkn	01-29-08

Posted by sycochkn on January 29, 2008, 5:43 pm

Please log in for more thread options

As polylines:

Aperture macro %AMTHERMAL80*7,0,0,0.080,0.055,0.0125,45*%

X# = 0#
Y# = 0#
OD# = .08
ID# = .055
CT# = .0125
RO# = 45

X1# = SQR((OD# / 2#) ^ 2# - (CT# / 2#) ^ 2#)
Y1# = CT# / 2#
X2# = CT# / 2#
Y2# = SQR((OD# / 2#) ^ 2# - (CT# / 2#) ^ 2#)
X3# = (CT# / 2#)
Y3# = SQR((ID# / 2#) ^ 2# - (CT# / 2#) ^ 2#)
X4# = SQR((ID# / 2#) ^ 2# - (CT# / 2#) ^ 2#)
Y4# = (CT# / 2#)
X5# = SQR(((OD# / 2#) ^ 2#) / 2#)
Y5# = SQR(((OD# / 2#) ^ 2#) / 2#)
X6# = X2# + ((X1# - X2#) / 2#)
Y6# = Y2# + ((Y1# - Y2#) / 2#)
C1# = SQR((X1# - X2#) ^ 2# + (Y1# - Y2#) ^ 2#)
C2# = SQR((X6# - X5#) ^ 2# + (Y6# - Y5#) ^ 2#)
B1# = 2# * (C2# / C1#)
X7# = SQR(((ID# / 2#) ^ 2#) / 2#)
Y7# = SQR(((ID# / 2#) ^ 2#) / 2#)
X8# = X4# + ((X3# - X4#) / 2#)
Y8# = Y4# + ((Y3# - Y4#) / 2#)
C3# = SQR((X3# - X4#) ^ 2# + (Y3# - Y4#) ^ 2#)
C4# = SQR((X8# - X7#) ^ 2# + (Y8# - Y7#) ^ 2#)
B2# = 2# * (C4# / C3#)

CLS
PRINT USING "##.########"; X5#
PRINT USING "##.########"; Y5#
PRINT USING "##.########"; X6#
PRINT USING "##.########"; Y6#
PRINT USING "##.########"; C1#
PRINT USING "##.########"; C2#
PRINT USING "##.########"; B1#

OUTFILE$ = "THERMAL.DXF"
OPEN "O", 1, OUTFILE$

REM HEADER
PRINT #1, " 0"
PRINT #1, "SECTION"
PRINT #1, " 2"
PRINT #1, "HEADER"
PRINT #1, " 9"
PRINT #1, "$INSBASE"
PRINT #1, " 10"
PRINT #1, "0.0"
PRINT #1, " 20"
PRINT #1, "0.0"
PRINT #1, " 0"
PRINT #1, "ENDSEC"
REM CLASSES
PRINT #1, " 0"
PRINT #1, "SECTION"
PRINT #1, " 2"
PRINT #1, "CLASSES"
PRINT #1, " 0"
PRINT #1, "ENDSEC"
REM TABLES
PRINT #1, " 0"
PRINT #1, "SECTION"
PRINT #1, " 2"
PRINT #1, "TABLES"
PRINT #1, " 0"
PRINT #1, "ENDSEC"
REM BLOCKS
PRINT #1, " 0"
PRINT #1, "SECTION"
PRINT #1, " 2"
PRINT #1, "BLOCKS"
PRINT #1, " 0"
PRINT #1, "ENDSEC"
REM ENTITIES
PRINT #1, " 0"
PRINT #1, "SECTION"
PRINT #1, " 2"
PRINT #1, "ENTITIES"
PRINT #1, " 0"
PRINT #1, "POLYLINE"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 66"
PRINT #1, "1"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X1#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y1#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, USING "##.###############"; B1#
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X2#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y2#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X3#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y3#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, USING "##.###############"; -B2#
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X4#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y4#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X1#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y1#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, " 0"
PRINT #1, "SEQEND"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 0"
PRINT #1, "POLYLINE"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 66"
PRINT #1, "1"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; -X1#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y1#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, USING "##.###############"; -B1#
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; -X2#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y2#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; -X3#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y3#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, USING "##.###############"; B2#
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; -X4#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y4#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; -X1#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y1#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, " 0"
PRINT #1, "SEQEND"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 0"
PRINT #1, "ENDSEC"
REM OBJECTS
PRINT #1, " 0"
PRINT #1, "SECTION"
PRINT #1, " 2"
PRINT #1, "OBJECTS"
PRINT #1, " 0"
PRINT #1, "ENDSEC"
REM END OF FILE
PRINT #1, " 0"
PRINT #1, "EOF"
REM END
CLOSE #1
END

Bob

Similar Threads	Posted
half a thermal	January 29, 2008, 5:43 pm
half-day course: Automatic Compact Modelling for MEMS	November 25, 2005, 1:02 am
PCB Thermal Analysis	January 31, 2008, 12:27 pm
Thermal Relief in Protel	August 22, 2005, 6:12 pm
Thesis on electro-thermal MEMS	September 17, 2005, 1:40 am
Thermal reliefs in plane connections	January 22, 2008, 9:52 pm

Electronics Computer-Aided Design half a thermal