5.22.kiran.ps

是multiuser detection 这本书的习题解答, 很有用的书.

% These defs are necessary so that subsequent procs don't bind in
% the originals
/fill	   { oldfill } bind def
/eofill	   { oldeofill } bind def
/stroke	   { oldstroke } bind def
/show	   { oldshow } bind def
/ashow	   { oldashow } bind def
/widthshow { oldwidthshow } bind def
/awidthshow { oldawidthshow } bind def
/kshow 	   { oldkshow } bind def
/PATredef {
  MyAppDict begin
    {
    /fill { /clip load PATdraw newpath } bind def
    /eofill { /eoclip load PATdraw newpath } bind def
    /stroke { PATstroke } bind def
    /show { 0 0 null 0 0 6 -1 roll PATawidthshow } bind def
    /ashow { 0 0 null 6 3 roll PATawidthshow }
    bind def
    /widthshow { 0 0 3 -1 roll PATawidthshow }
    bind def
    /awidthshow { PATawidthshow } bind def
    /kshow { PATkshow } bind def
  } {
    /fill   { oldfill } bind def
    /eofill { oldeofill } bind def
    /stroke { oldstroke } bind def
    /show   { oldshow } bind def
    /ashow  { oldashow } bind def
    /widthshow { oldwidthshow } bind def
    /awidthshow { oldawidthshow } bind def
    /kshow  { oldkshow } bind def
    } ifelse
  end
} bind def
false PATredef
% Conditionally define setcmykcolor if not available
/setcmykcolor where { pop } {
  /setcmykcolor {
    1 sub 4 1 roll
    3 {
	3 index add neg dup 0 lt { pop 0 } if 3 1 roll
    } repeat
    setrgbcolor - pop
  } bind def
} ifelse
/PATsc {		% colorarray
  aload length		% c1 ... cn length
    dup 1 eq { pop setgray } { 3 eq { setrgbcolor } { setcmykcolor
  } ifelse } ifelse
} bind def
/PATsg {		% dict
  begin
    lw setlinewidth
    lc setlinecap
    lj setlinejoin
    ml setmiterlimit
    ds aload pop setdash
    cc aload pop setrgbcolor
    cm setmatrix
  end
} bind def

/PATDict 3 dict def
/PATsp {
  true PATredef
  PATDict begin
    /CurrentPattern exch def
    % If it's an uncolored pattern, save the color
    CurrentPattern /PaintType get 2 eq {
      /PColor exch def
    } if
    /CColor [ currentrgbcolor ] def
  end
} bind def
% PATstroke - stroke with the current pattern
/PATstroke {
  countdictstack
  save
  mark
  {
    currentpoint strokepath moveto
    PATpcalc				% proc nw nh px py
    clip newpath PATfill
    } stopped {
	(*** PATstroke Warning: Path is too complex, stroking
	  with gray) =
    cleartomark
    restore
    countdictstack exch sub dup 0 gt
	{ { end } repeat } { pop } ifelse
    gsave 0.5 setgray oldstroke grestore
  } { pop restore pop } ifelse
  newpath
} bind def
/PATtcalc {		% modmtx tilingtype PATtcalc tilematrix
  % Note: tiling types 2 and 3 are not supported
  gsave
    exch concat					% tilingtype
    matrix currentmatrix exch			% cmtx tilingtype
    % Tiling type 1 and 3: constant spacing
    2 ne {
	% Distort the pattern so that it occupies
	% an integral number of device pixels
	dup 4 get exch dup 5 get exch		% tx ty cmtx
	XStep 0 dtransform
	round exch round exch			% tx ty cmtx dx.x dx.y
	XStep div exch XStep div exch		% tx ty cmtx a b
	0 YStep dtransform
	round exch round exch			% tx ty cmtx a b dy.x dy.y
	YStep div exch YStep div exch		% tx ty cmtx a b c d
	7 -3 roll astore			% { a b c d tx ty }
    } if
  grestore
} bind def
/PATusp {
  false PATredef
  PATDict begin
    CColor PATsc
  end
} bind def

% left45
11 dict begin
/PaintType 1 def
/PatternType 1 def
/TilingType 1 def
/BBox [0 0 1 1] def
/XStep 1 def
/YStep 1 def
/PatWidth 1 def
/PatHeight 1 def
/Multi 2 def
/PaintData [
  { clippath } bind
  { 32 32 true [ 32 0 0 -32 0 32 ]
	{<808080804040404020202020101010100808080804040404
	020202020101010180808080404040402020202010101010
	080808080404040402020202010101018080808040404040
	202020201010101008080808040404040202020201010101
	808080804040404020202020101010100808080804040404
	0202020201010101>}
     imagemask } bind
] def
/PaintProc {
	pop
	exec fill
} def
currentdict
end
/P4 exch def
1.1111 1.1111 scale %restore scale

/cp {closepath} bind def
/ef {eofill} bind def
/gr {grestore} bind def
/gs {gsave} bind def
/sa {save} bind def
/rs {restore} bind def
/l {lineto} bind def
/m {moveto} bind def
/rm {rmoveto} bind def
/n {newpath} bind def
/s {stroke} bind def
/sh {show} bind def
/slc {setlinecap} bind def
/slj {setlinejoin} bind def
/slw {setlinewidth} bind def
/srgb {setrgbcolor} bind def
/rot {rotate} bind def
/sc {scale} bind def
/sd {setdash} bind def
/ff {findfont} bind def
/sf {setfont} bind def
/scf {scalefont} bind def
/sw {stringwidth} bind def
/tr {translate} bind def
/tnt {dup dup currentrgbcolor
  4 -2 roll dup 1 exch sub 3 -1 roll mul add
  4 -2 roll dup 1 exch sub 3 -1 roll mul add
  4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
  bind def
/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
  4 -2 roll mul srgb} bind def
/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
/$F2psEnd {$F2psEnteredState restore end} def

$F2psBegin
10 setmiterlimit
n -1000 6133 m -1000 -1000 l 9433 -1000 l 9433 6133 l cp clip
 0.06000 0.06000 sc
% Polyline
30.000 slw
gs  clippath
8256 4170 m 8400 4200 l 8256 4230 l 8445 4230 l 8445 4170 l cp
clip
n 2400 4200 m 8400 4200 l gs col-1 s gr gr

% arrowhead
7.500 slw
n 8256 4170 m 8400 4200 l 8256 4230 l 8280 4200 l 8256 4170 l  cp gs 0.00 setgray ef gr  col-1 s
% Polyline
30.000 slw
gs  clippath
5070 1944 m 5100 1800 l 5130 1944 l 5130 1755 l 5070 1755 l cp
clip
n 5100 4500 m 5100 1800 l gs col-1 s gr gr

% arrowhead
7.500 slw
n 5070 1944 m 5100 1800 l 5130 1944 l 5100 1920 l 5070 1944 l  cp gs 0.00 setgray ef gr  col-1 s
% Polyline
30.000 slw
n 3300 4200 m 3300 5100 l 5700 3300 l 5700 4200 l gs col-1 s gr 
% Polyline
7.500 slw
gs  clippath
5556 4320 m 5700 4350 l 5556 4380 l 5715 4380 l 5715 4320 l cp
5244 4380 m 5100 4350 l 5244 4320 l 5085 4320 l 5085 4380 l cp
clip
n 5100 4350 m 5700 4350 l gs col-1 s gr gr

% arrowhead
n 5244 4380 m 5100 4350 l 5244 4320 l 5220 4350 l 5244 4380 l  cp gs 0.00 setgray ef gr  col-1 s
% arrowhead
n 5556 4320 m 5700 4350 l 5556 4380 l 5580 4350 l 5556 4320 l  cp gs 0.00 setgray ef gr  col-1 s
% Polyline
n 6300 4275 m 6300 4125 l gs col-1 s gr 
% Polyline
n 7500 4275 m 7500 4125 l gs col-1 s gr 
% Polyline
n 5100 4200 m 5100 4200 l 5100 3750 l 5100 3750 l cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
15.00 15.00 sc P4 [16 0 0 -16 340.00 250.00] PATmp PATsp ef gr PATusp gs col-1 s gr 
% Polyline
n 5100 4200 m 5100 3750 l 5700 3300 l 5700 4200 l 5100 4200 l  cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def
15.00 15.00 sc P4 [16 0 0 -16 340.00 220.00] PATmp PATsp ef gr PATusp gs col-1 s gr 
% Polyline
 [60] 0 sd
n 5700 3280 m 5100 3280 l gs col-1 s gr  [] 0 sd
$F2psEnd
rs
end
%%EndDocument
 @endspecial 740 1527 a Fi(\034)970 1469 y Fd(T)p 970
1478 26 2 v 974 1506 a Fh(2)1283 1508 y Fi(T)533 1151
y Ff(q)p 583 1151 53 2 v 592 1188 a Fh(12)p 588 1196
43 2 v 588 1225 a Fd(T)614 1215 y Fc(3)p Black 73 1785
a Fj(The)h(scaling)g(factor)h(for)f(the)g(o)o(v)o(erlapping)f(signals,)
i Fi(#)1114 1792 y Fh(2)1153 1785 y Fj(is)f(the)f(area)i(of)f(the)g
(shaded)h(part)g(and)f(is)0 1861 y(giv)o(en)c(b)o(y)l(,)508
2038 y Fi(#)537 2045 y Fh(2)571 2038 y Fj(=)627 2005
y(1)p 627 2027 25 2 v 627 2073 a(2)668 2038 y Fg(\000)734
1939 y Fb(T)p 734 1945 23 2 v 738 1965 a Fc(2)761 1952
y Fa(\000)p Fd(\034)732 1971 y Ff(Z)737 2111 y Fh(0)813
2005 y Fj(12)p 810 2027 56 2 v 810 2073 a Fi(T)846 2058
y Fh(3)870 2038 y Fi(x)898 2018 y Fh(2)918 2038 y Fi(dx)f
Fj(=)1041 2005 y(1)p 1041 2027 25 2 v 1041 2073 a(2)1079
1968 y Ff(\022)1116 2038 y Fj(1)d Fg(\000)g Fj(\(1)g
Fg(\000)1310 2005 y Fj(2)p Fi(\034)p 1310 2027 52 2 v
1318 2073 a(T)1366 2038 y Fj(\))1385 2018 y Fh(3)1405
1968 y Ff(\023)0 2200 y Fj(Therefore,)k(from)h(eqn)f(\(5.60\),)i(w)o(e)
f(ha)o(v)o(e,)741 2393 y(\026)-28 b Fi(\021)763 2372
y Fh(1)p Fd(s)761 2405 y Fh(1)813 2393 y Fj(=)14 b(1)d
Fg(\000)999 2359 y Fi(\032)1024 2341 y Fh(2)p 955 2381
134 2 v 955 2427 a Fj(1)g Fg(\000)g Fi(#)1069 2434 y
Fh(2)1105 2393 y Fg(\000)1161 2359 y Fi(\032)1186 2341
y Fh(2)p 1159 2381 49 2 v 1159 2427 a Fi(#)1188 2434
y Fh(2)0 2515 y Fj(whic)o(h)16 b(is)g(indicated)f(b)o(y)h(the)g(dotted)
g(line)f(in)h(the)g(plot.)876 b Fe(2)p Black Black eop
%%Page: 2 2
2 1 bop Black Black Black 101 2000 a
 gsave currentpoint currentpoint translate 0 neg rotate neg exch neg
exch translate
 101 2000 a @beginspecial
61 @llx 200 @lly 546 @urx 616 @ury 3600 @rhi @setspecial
%%BeginDocument: prob5_22.eps


% MathWorks dictionary
/MathWorks 150 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

/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