ex7_1.eps

《射频电路设计——理论与应用》一书课后习题第五章Matlab程序代码

%!PS-Adobe-2.0 EPSF-1.2
%%Creator: MATLAB, The Mathworks, Inc.
%%Title: ex7_1.eps
%%CreationDate: 10/04/99  09:08:47
%%DocumentNeededFonts: Helvetica
%%DocumentProcessColors: Cyan Magenta Yellow Black
%%Pages: 1
%%BoundingBox:    70   207   549   589
%%EndComments

%%BeginProlog

% MathWorks dictionary
/MathWorks 160 dict begin

% definition operators
/bdef {bind def} bind def
/ldef {load def} bind def
/xdef {exch def} bdef
/xstore {exch store} bdef

% operator abbreviations
/c  /clip ldef
/cc /concat ldef
/cp /closepath ldef
/gr /grestore ldef
/gs /gsave ldef
/mt /moveto ldef
/np /newpath ldef
/cm /currentmatrix ldef
/sm /setmatrix ldef
/rc {rectclip} bdef
/rf {rectfill} bdef
/rm /rmoveto ldef
/rl /rlineto ldef
/s /show ldef
/sc {setcmykcolor} bdef
/sr /setrgbcolor ldef
/sg /setgray ldef
/w /setlinewidth ldef
/j /setlinejoin ldef
/cap /setlinecap ldef

% page state control
/pgsv () def
/bpage {/pgsv save def} bdef
/epage {pgsv restore} bdef
/bplot /gsave ldef
/eplot {stroke grestore} bdef

% orientation switch
/portraitMode 	0 def
/landscapeMode 	1 def

% coordinate system mappings
/dpi2point 0 def

% font control
/FontSize 0 def
/FMS {
	/FontSize xstore		%save size off stack
	findfont
	[FontSize 0 0 FontSize neg 0 0]
	makefont
	setfont
	}bdef

/ISOLatin1Encoding where
{pop
/WindowsLatin1Encoding 256 array bdef
ISOLatin1Encoding WindowsLatin1Encoding copy pop
/.notdef/.notdef/quotesinglbase/florin/quotedblbase/ellipsis/dagger/daggerdbl
/circumflex/perthousand/Scaron/guilsinglleft/OE/.notdef/.notdef/.notdef
/.notdef/quoteleft/quoteright/quotedblleft/quotedblright/bullet/endash/emdash
/tilde/trademark/scaron/guilsinglright/oe/.notdef/.notdef/Ydieresis
WindowsLatin1Encoding 128 32 getinterval astore pop}
{/WindowsLatin1Encoding StandardEncoding bdef} ifelse

/reencode {
exch dup where
{pop load} {pop StandardEncoding} ifelse
exch
dup 3 1 roll
findfont dup length dict begin
  { 1 index /FID ne {def}{pop pop} ifelse } forall
  /Encoding exch def
  currentdict
end
definefont pop
} bdef

/isroman {
findfont /CharStrings get
/Agrave known
} bdef

/FMSR {
3 1 roll 1 index
dup isroman
{reencode} {pop pop} ifelse
exch FMS
} bdef

/csm {
	1 dpi2point div -1 dpi2point div scale
	neg translate
	landscapeMode eq {90 rotate} if
	} bdef

% line types: solid, dotted, dashed, dotdash
/SO { [] 0 setdash } bdef
/DO { [.5 dpi2point mul 4 dpi2point mul] 0 setdash } bdef
/DA { [6 dpi2point mul] 0 setdash } bdef
/DD { [.5 dpi2point mul 4 dpi2point mul 6 dpi2point mul 4 dpi2point mul] 0 setdash } bdef

% macros for lines and objects
/L {
	lineto
	stroke
	} bdef
/MP {
	3 1 roll moveto
	1 sub {rlineto} repeat
	} bdef
/AP {
	{rlineto} repeat
	} bdef
/PP {
	closepath eofill
	} bdef
/DP {
	closepath stroke
	} bdef
/MR {
	4 -2 roll moveto
	dup  0 exch rlineto
	exch 0 rlineto
	neg  0 exch rlineto
	closepath
	} bdef
/FR {
	MR stroke
	} bdef
/PR {
	MR fill
	} bdef
/L1i {
	{ currentfile picstr readhexstring pop } image
	} bdef

/tMatrix matrix def
/MakeOval {
	newpath
	tMatrix currentmatrix pop
	translate scale
	0 0 1 0 360 arc
	tMatrix setmatrix
	} bdef
/FO {
	MakeOval
	stroke
	} bdef
/PO {
	MakeOval
	fill
	} bdef

/PD {
	currentlinecap 1 setlinecap 3 1 roll 2 copy moveto lineto stroke setlinecap
	} bdef

/FA {
	newpath
	tMatrix currentmatrix pop
	translate scale
	0 0 1 5 -2 roll arc
	tMatrix setmatrix
	stroke
	} bdef
/PA {
	newpath
	tMatrix currentmatrix pop
	translate 0 0 moveto scale
	0 0 1 5 -2 roll arc
	closepath
	tMatrix setmatrix
	fill
	} bdef

/FAn {
	newpath
	tMatrix currentmatrix pop
	translate scale
	0 0 1 5 -2 roll arcn
	tMatrix setmatrix
	stroke
	} bdef
/PAn {
	newpath
	tMatrix currentmatrix pop
	translate 0 0 moveto scale
	0 0 1 5 -2 roll arcn
	closepath
	tMatrix setmatrix
	fill
	} bdef

/MRR {
	/vradius xdef
	/hradius xdef
	/lry xdef
	/lrx xdef
	/uly xdef
	/ulx xdef
	newpath
	tMatrix currentmatrix pop
	ulx hradius add uly vradius add translate
	hradius vradius scale
	0 0 1 180 270 arc 
	tMatrix setmatrix
	lrx hradius sub uly vradius add translate
	hradius vradius scale
	0 0 1 270 360 arc
	tMatrix setmatrix
	lrx hradius sub lry vradius sub translate
	hradius vradius scale
	0 0 1 0 90 arc
	tMatrix setmatrix
	ulx hradius add lry vradius sub translate
	hradius vradius scale
	0 0 1 90 180 arc
	tMatrix setmatrix
	closepath
	} bdef
/FRR {
	MRR stroke } bdef
/PRR {
	MRR fill } bdef

/MlrRR {
	/lry xdef
	/lrx xdef
	/uly xdef
	/ulx xdef
	/rad lry uly sub 2 div def
	newpath
	tMatrix currentmatrix pop
	ulx rad add uly rad add translate
	rad rad scale
	0 0 1 90 270 arc
	tMatrix setmatrix
	lrx rad sub lry rad sub translate
	rad rad scale
	0 0 1 270 90 arc
	tMatrix setmatrix
	closepath
	} bdef
/FlrRR {
	MlrRR stroke } bdef
/PlrRR {
	MlrRR fill } bdef

/MtbRR {
	/lry xdef
	/lrx xdef
	/uly xdef
	/ulx xdef
	/rad lrx ulx sub 2 div def
	newpath
	tMatrix currentmatrix pop
	ulx rad add uly rad add translate
	rad rad scale
	0 0 1 180 360 arc
	tMatrix setmatrix
	lrx rad sub lry rad sub translate
	rad rad scale
	0 0 1 0 180 arc
	tMatrix setmatrix
	closepath
	} bdef
/FtbRR {
	MtbRR stroke } bdef
/PtbRR {
	MtbRR fill } bdef

currentdict end def
%%EndProlog

%%BeginSetup
MathWorks begin

0 cap

end
%%EndSetup

%%Page: 1 1
%%BeginPageSetup
%%PageBoundingBox:    70   207   549   589
MathWorks begin
bpage
%%EndPageSetup

%%BeginObject: obj1
bplot

/dpi2point 12 def
portraitMode 0204 7344 csm

  640   272  5752  4578 MR c np
85 dict begin %Colortable dictionary
/c0 { 0 0 0 sr} bdef
/c1 { 1 1 1 sr} bdef
/c2 { 1 0 0 sr} bdef
/c3 { 0 1 0 sr} bdef
/c4 { 0 0 1 sr} bdef
/c5 { 1 1 0 sr} bdef
/c6 { 1 0 1 sr} bdef
/c7 { 0 1 1 sr} bdef
1 j
1 sg
   0    0 6913 5185 PR
6 w
0 4224 5356 0 0 -4224 898 4612 4 MP
PP
-5356 0 0 4224 5356 0 0 -4224 898 4612 5 MP stroke
4 w
DO
SO
6 w
0 sg
 898  388 mt 6254  388 L
 898 4612 mt 6254 4612 L
6254 4612 mt 6254  388 L
 898 4612 mt  898  388 L
 898 4612 mt 6254 4612 L
 898 4612 mt  898  388 L
 898 4612 mt  898 4558 L
 898  388 mt  898  442 L
%%IncludeResource: font Helvetica
/Helvetica /WindowsLatin1Encoding 120 FMSR

 810 4795 mt 
(10) s
%%IncludeResource: font Helvetica
/Helvetica /WindowsLatin1Encoding 80 FMSR

 943 4721 mt 
(7) s
3576 4612 mt 3576 4558 L
3576  388 mt 3576  442 L
%%IncludeResource: font Helvetica
/Helvetica /WindowsLatin1Encoding 120 FMSR

3488 4795 mt 
(10) s
%%IncludeResource: font Helvetica
/Helvetica /WindowsLatin1Encoding 80 FMSR

3621 4721 mt 
(8) s
6254 4612 mt 6254 4558 L
6254  388 mt 6254  442 L
%%IncludeResource: font Helvetica
/Helvetica /WindowsLatin1Encoding 120 FMSR

6166 4795 mt 
(10) s
%%IncludeResource: font Helvetica
/Helvetica /WindowsLatin1Encoding 80 FMSR

6299 4721 mt 
(9) s
 898 4612 mt  952 4612 L
6254 4612 mt 6200 4612 L
%%IncludeResource: font Helvetica
/Helvetica /WindowsLatin1Encoding 120 FMSR

 697 4656 mt 
(1.5) s
 898 4084 mt  952 4084 L
6254 4084 mt 6200 4084 L
 697 4128 mt 
(1.6) s
 898 3556 mt  952 3556 L
6254 3556 mt 6200 3556 L
 697 3600 mt 
(1.7) s
 898 3028 mt  952 3028 L
6254 3028 mt 6200 3028 L
 697 3072 mt 
(1.8) s
 898 2500 mt  952 2500 L
6254 2500 mt 6200 2500 L
 697 2544 mt 
(1.9) s
 898 1972 mt  952 1972 L
6254 1972 mt 6200 1972 L
 797 2016 mt 
(2) s
 898 1444 mt  952 1444 L
6254 1444 mt 6200 1444 L
 697 1488 mt 
(2.1) s
 898  916 mt  952  916 L
6254  916 mt 6200  916 L
 697  960 mt 
(2.2) s
 898  388 mt  952  388 L
6254  388 mt 6200  388 L
 697  432 mt 
(2.3) s
 898  388 mt 6254  388 L
 898 4612 mt 6254 4612 L
6254 4612 mt 6254  388 L
 898 4612 mt  898  388 L
gs 898 388 5357 4225 MR c np
1 0 1 1 1 0 2 1 1 0 1 1 1 0 1 1 
2 0 1 1 1 0 1 1 1 0 1 1 2 0 1 1 
1 0 1 1 1 0 1 1 2 0 1 1 1 0 1 1 
1 0 2 1 1 1 1 0 1 1 1 0 2 1 1 0 
1 1 1 0 1 1 2 0 1 1 1 0 1 1 1 1 
2 0 1 1 1 0 1 1 2 0 1 1 1 0 1 1 
1 1 2 0 1 1 1 0 1 1 2 0 1 1 1 1 
1 0 1 1 2 0 1 1 1 1 1 0 2 1 1 0 
1 1 1 0 2 1 1 1 1 0 1 1 2 0 1 1 
1 1 1 0 2 1 1 0 1 1 1 1 2 0 1 1 
1 1 2 0 1 1 1 0 1 1 2 1 1 0 1 1 
1 0 2 1 1 1 1 0 2 1 1 1 1 0 1 1 
2 1 1 0 1 1 6133 4277 100 MP stroke
2 1 1 0 1 1 1 0 2 1 1 1 1 0 2 1 
1 1 1 0 2 1 1 1 1 0 1 1 2 1 1 0 
1 1 2 1 1 1 1 0 2 1 1 1 1 0 2 1 
1 1 1 0 2 1 1 1 1 0 2 1 1 1 1 1 
2 0 1 1 1 1 2 0 1 1 1 1 2 1 1 0 
1 1 2 1 1 0 1 1 2 1 1 1 2 0 1 1 
1 1 2 1 1 0 1 1 2 1 1 1 2 0 1 1 
1 1 2 1 1 0 1 1 2 1 1 1 2 0 1 1 
1 1 2 1 1 1 2 0 1 1 1 1 2 1 1 1 
2 0 1 1 1 1 2 1 1 1 2 0 1 1 1 1 
2 1 1 1 2 0 1 1 1 1 2 1 1 1 2 1 
1 0 2 1 1 1 2 1 1 1 1 1 2 0 1 1 
2 1 1 1 2 1 5997 4203 100 MP stroke
1 1 2 1 1 0 1 1 2 1 1 1 2 1 1 1 
2 1 1 1 2 0 1 1 2 1 1 1 2 1 1 1 
2 1 1 1 2 1 1 1 1 0 2 1 1 1 2 1 
1 1 2 1 1 1 2 1 1 1 2 1 1 1 2 1 
1 1 2 1 2 1 1 0 2 1 1 1 2 1 1 1 
2 1 1 1 2 1 1 1 2 1 1 1 2 1 1 1 
2 1 1 1 2 1 2 1 1 1 2 1 1 1 2 1 
1 1 2 1 1 1 2 1 2 1 1 1 2 1 1 1 
2 2 2 1 1 1 2 1 1 1 2 1 1 1 2 1 
2 1 1 1 2 1 1 1 2 1 2 1 1 1 2 2 
1 1 2 1 2 1 1 1 2 1 2 1 1 1 2 1 
1 2 2 1 2 1 1 1 2 1 2 1 1 1 2 2 
2 1 1 1 2 1 5844 4104 100 MP stroke
2 1 1 1 2 2 1 1 2 1 2 1 1 1 2 1 
2 2 2 1 1 1 2 1 2 1 1 2 2 1 2 1 
1 1 2 2 2 1 1 1 2 1 2 2 2 1 1 1 
2 1 2 2 1 1 2 1 2 1 2 2 1 1 2 1 
2 2 2 1 1 1 2 1 2 2 1 1 2 1 2 2 
2 1 2 1 1 2 2 1 2 1 2 2 1 1 2 1 
2 2 2 1 1 1 2 2 2 1 2 2 2 1 1 1 
2 2 2 1 2 2 2 1 1 1 2 2 2 1 2 2 
2 1 2 2 1 1 2 1 2 2 2 1 2 2 2 1 
1 2 2 1 2 2 2 1 2 2 2 1 1 2 2 1 
2 2 2 1 2 2 2 1 2 2 2 1 2 2 1 1 
2 2 2 1 2 2 2 2 2 1 2 2 2 1 2 2 
2 2 1 1 2 2 5668 3968 100 MP stroke
2 1 2 2 2 2 2 1 2 2 2 1 2 2 2 2 
2 1 2 2 2 2 2 1 2 2 2 2 2 1 2 2 
2 2 2 1 2 2 2 2 2 2 2 1 2 2 2 2 
2 2 2 1 2 2 2 2 2 2 2 1 2 2 2 2 
2 2 2 2 2 1 2 2 2 2 2 2 2 2 2 1 
2 2 2 2 2 2 2 2 2 2 3 2 2 1 2 2 
2 2 2 2 2 2 2 2 2 2 2 2 2 2 3 2 
2 2 2 2 2 1 2 2 2 2 2 2 2 2 3 2