%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%  IEEE.bst  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Bibliography Syle file for articles according to IEEE instructions% balemi@aut.ee.ethz.ch     <22-JUN-93>% modified from unsrt.bib. Contributions by Richard H. RoyENTRY  { address    author    booktitle    chapter    edition    editor    howpublished    institution    journal    key    month    note    number    organization    pages    publisher    school    series    title    type    volume    year  }  {}  { label }INTEGERS { output.state before.all mid.sentence after.sentence after.block }FUNCTION {init.state.consts}{ #0 'before.all :=  #1 'mid.sentence :=  #2 'after.sentence :=  #3 'after.block :=}STRINGS { s t }FUNCTION {output.nonnull}{ 's :=  output.state mid.sentence =    { ", " * write$ }    { output.state after.block =% next line commented out by rhr and changed to write comma%	{ add.period$ write$	{ ", " * write$ 	  newline$	  "\newblock " write$	}	{ output.state before.all =	    'write$	    { add.period$ " " * write$ }	  if$	}      if$      mid.sentence 'output.state :=    }  if$  s}FUNCTION {output}{ duplicate$ empty$    'pop$    'output.nonnull  if$}FUNCTION {output.check}{ 't :=  duplicate$ empty$    { pop$ "empty " t * " in " * cite$ * warning$ }    'output.nonnull  if$}FUNCTION {output.bibitem}{ newline$  "\bibitem{" write$  cite$ write$  "}" write$  newline$  ""  before.all 'output.state :=}FUNCTION {fin.entry}{ add.period$  write$  newline$}% 5/24/89 rhr%  modified fin.entry function - prints note field after body of entry  %FUNCTION {fin.entry}%{ add.period$%  note empty$%    'write$%    { "\par\bgroup\parindent=0em  " * annote * "\par\egroup " * write$%    }%  if$%  newline$%}FUNCTION {new.block}{ output.state before.all =    'skip$    { after.block 'output.state := }  if$}% new block without terminating last block with a commaFUNCTION {new.ncblock}{  write$   newline$  "\newblock "  before.all 'output.state :=}FUNCTION {new.nccont}{  write$   " "  before.all 'output.state :=}FUNCTION {new.sentence}{ output.state after.block =    'skip$    { output.state before.all =	'skip$	{ after.sentence 'output.state := }      if$    }  if$}FUNCTION {not}{   { #0 }    { #1 }  if$}FUNCTION {and}{   'skip$    { pop$ #0 }  if$}FUNCTION {or}{   { pop$ #1 }    'skip$  if$}FUNCTION {new.block.checka}{ empty$    'skip$    'new.block  if$}FUNCTION {new.block.checkb}{ empty$  swap$ empty$  and    'skip$    'new.block  if$}FUNCTION {new.sentence.checka}{ empty$    'skip$    'new.sentence  if$}FUNCTION {new.sentence.checkb}{ empty$  swap$ empty$  and    'skip$    'new.sentence  if$}FUNCTION {field.or.null}{ duplicate$ empty$    { pop$ "" }    'skip$  if$}FUNCTION {emphasize}{ duplicate$ empty$    { pop$ "" }    { "{\em " swap$ * "}" * }  if$}FUNCTION {boldface}{ duplicate$ empty$    { pop$ "" }    { "{\bf " swap$ * "}" * }  if$}%FUNCTION {boldface}%{ 's swap$ :=%  s "" =%    { "" }%    { "{\bf " s * "}" * }%  if$%}%INTEGERS { nameptr namesleft numnames }FUNCTION {format.names}{ 's :=  #1 'nameptr :=  s num.names$ 'numnames :=  numnames 'namesleft :=    { namesleft #0 > }    { s nameptr "{ff~}{vv~}{ll}{, jj}" format.name$ 't :=      nameptr #1 >	{ namesleft #1 >	    { ", " * t * }	    { numnames #2 >		{ "," * }		'skip$	      if$	      t "others" =		{ " et~al." * }		{ " and " * t * }	      if$	    }	  if$	}	't      if$      nameptr #1 + 'nameptr :=      namesleft #1 - 'namesleft :=    }  while$}FUNCTION {format.authors}{ author empty$    { "" }    { author format.names }  if$}FUNCTION {format.editors}{ editor empty$    { "" }    { editor format.names      editor num.names$ #1 >	{ ", Eds." * }	{ ", Ed." * }      if$    }  if$}FUNCTION {format.title}{ title empty$    { "" }    { "``" title "t" change.case$ * }  if$}FUNCTION {n.dashify}{ 't :=  ""    { t empty$ not }    { t #1 #1 substring$ "-" =	{ t #1 #2 substring$ "--" = not	    { "--" *	      t #2 global.max$ substring$ 't :=	    }	    {   { t #1 #1 substring$ "-" = }		{ "-" *		  t #2 global.max$ substring$ 't :=		}	      while$	    }	  if$	}	{ t #1 #1 substring$ *	  t #2 global.max$ substring$ 't :=	}      if$    }  while$}FUNCTION {format.date}{ year empty$    { month empty$	{ "" }	{ "there's a month but no year in " cite$ * warning$	  month	}      if$    }    { month empty$	'year	{ month " " * year * }      if$    }  if$}% FUNCTION {format.date}% { year empty$% 	'year % 	{ " "  year * }%   if$% }FUNCTION {format.btitle}{ title emphasize}FUNCTION {tie.or.space.connect}{ duplicate$ text.length$ #3 <    { "~" }    { " " }  if$  swap$ * *}FUNCTION {either.or.check}{ empty$    'pop$    { "can't use both " swap$ * " fields in " * cite$ * warning$ }  if$}FUNCTION {format.bvolume}{ volume empty$    { "" }    { "vol." volume tie.or.space.connect      series empty$	'skip$	{ " of " * series emphasize * }      if$      "volume and number" number either.or.check    }  if$}FUNCTION {format.number.series}{ volume empty$    { number empty$	{ series field.or.null }	{ output.state mid.sentence =	    { "number" }	    { "Number" }	  if$	  number tie.or.space.connect	  series empty$	    { "there's a number but no series in " cite$ * warning$ }	    { " in " * series * }	  if$	}      if$    }    { "" }  if$}FUNCTION {format.edition}{ edition empty$    { "" }    { output.state mid.sentence =	{ edition "l" change.case$ " edition" * }	{ edition "t" change.case$ " edition" * }      if$    }  if$}INTEGERS { multiresult }FUNCTION {multi.page.check}{ 't :=  #0 'multiresult :=    { multiresult not      t empty$ not      and    }    { t #1 #1 substring$      duplicate$ "-" =      swap$ duplicate$ "," =      swap$ "+" =      or or	{ #1 'multiresult := }	{ t #2 global.max$ substring$ 't := }      if$    }  while$  multiresult}FUNCTION {format.pages}{ pages empty$    { "" }    { pages multi.page.check	{ "pp." pages n.dashify tie.or.space.connect }	{ "p." pages tie.or.space.connect }      if$    }  if$}FUNCTION {format.vol.num.pages}{ volume empty$   {"" }   {"vol. " volume *}if$number empty$   'skip$   {", no. " number * *}if$pages empty$   'skip$    { duplicate$ empty$	{ pop$ format.pages }	{ ", pp. " * pages n.dashify * }      if$    }if$}%FUNCTION {format.vol.num.pages}%%boldface added 3/17/87 rhr%{ volume field.or.null boldface%  number empty$%    'skip$%    { "(" number * ")" * *%      volume empty$%	{ "there's a number but no volume in " cite$ * warning$ }%	'skip$%      if$%    }%  if$%  pages empty$%    'skip$%    { duplicate$ empty$%	{ pop$ format.pages }%	{ ":" * pages n.dashify * }%      if$%    }%  if$%}FUNCTION {format.chapter.pages}{ chapter empty$    'format.pages    { type empty$	{ "chapter" }	{ type "l" change.case$ }      if$      chapter tie.or.space.connect      pages empty$	'skip$	{ ", " * format.pages * }      if$    }  if$}FUNCTION {format.in.ed.booktitle}{ booktitle empty$    { "" }    { editor empty$	{ "in " booktitle emphasize * }	{ "in "  booktitle emphasize *  ", " * format.editors * }      if$    }  if$}FUNCTION {empty.misc.check}{ author empty$ title empty$ howpublished empty$  month empty$ year empty$ note empty$  and and and and and    { "all relevant fields are empty in " cite$ * warning$ }    'skip$  if$}FUNCTION {format.thesis.type}{ type empty$    'skip$    { pop$      type "t" change.case$    }  if$}