diff --git a/BUPTBachelor.bst b/BUPTBachelor.bst
index b00b002..cde615c 100644
--- a/BUPTBachelor.bst
+++ b/BUPTBachelor.bst
@@ -2202,8 +2202,8 @@ FUNCTION {article}
   format.authors "author" output.warn
   format.book.title "title" output.warn
   format.journal.title "journal" output.warn
-  format.volume.number.year.month output
-  %format.year.volume.number output
+  %format.volume.number.year.month output
+  format.year.volume.number output
   format.pages "pages" output.warn
   format.reference.date output
   format.url output
diff --git a/Proposal/BUPTBachelor.bst b/Proposal/BUPTBachelor.bst
deleted file mode 100644
index b00b002..0000000
--- a/Proposal/BUPTBachelor.bst
+++ /dev/null
@@ -1,2593 +0,0 @@
-%% BUPTThesis.bst
-%%
-%% 北京邮电大学研究生学位论文参考文献 BibTeX 样式
-%% 
-%% 项目主页：http://code.google.com/p/buptthesis/
-%% 
-%% 本样式基于 IEEEtran 和 ThuThesis 修改而成，基本满足北京邮电大学研究生论文格式要求
-%%
-%% 作者：
-%% 张煜 (email:dazzlezhang@gmail.com)
-%%
-%% 更新记录:
-%% $LastChangedBy$
-%% $LastChangedDate$
-%% $LastChangedRevision$
-
-%% 一些设置的缺省值
-% 英文姓名排版格式字符串, 按<last name全称>~<first name首字母><, Jr.>格式
-FUNCTION {default.name.format.string} {"{vv~}{ll}{~ff}{, Jj}"}
-
-% 列出的最多作者数目, 即当作者数目超过下列数字时, 超出部分的作者姓名将略去
-FUNCTION {default.max.num.names.before.forced.et.al} { #3 }
-
-% 是否为盲审版本, #0 表示盲审将隐去作者信息, #1 表示非盲审
-FUNCTION {default.is.for.peer.review} { #0 }
-%%%%%%%%%%%%%%
-% 一些辅助函数
-%%%%%%%%%%%%%%
-% #0 不在终端显示开始/完成的提示信息
-% #1 显示提示信息
-FUNCTION {is.print.banners.to.terminal} {#1}
-
-%%%%%%%%%%%%%%%%
-% 版本与提示信息
-%%%%%%%%%%%%%%%%
-% 版本信息
-FUNCTION{bst.file.version} { "0.2" }
-FUNCTION{bst.file.date} { "2009/01/25" }
-FUNCTION{bst.file.website} { 
-  "http://code.google.com/p/buptthesis/" }
-
-% 开始提示信息
-FUNCTION {banner.message}{ 
-  is.print.banners.to.terminal
-    { "-- BUPTThesis.bst version" " " * bst.file.version *
-      " (" * bst.file.date * ") " * "by Yu Zhang." *
-       top$
-       "-- " bst.file.website *
-       top$
-       "-- See the " quote$ * "userguide.pdf" * quote$ * 
-       " manual for usage information." *
-       top$
-    }
-    { skip$ }
-  if$
-}
-
-% 完成提示信息
-FUNCTION {completed.message} { 
-  is.print.banners.to.terminal
-    { "" top$ "Done." top$ }
-    { skip$ }
-  if$
-}
-
-%%%%%%%%%%%%%%%%%%%
-%% 预定义的字符串宏
-%%%%%%%%%%%%%%%%%%%
-% 英文月份
-MACRO {jan} {"January"}
-MACRO {feb} {"February"}
-MACRO {mar} {"March"}
-MACRO {apr} {"April"}
-MACRO {may} {"May"}
-MACRO {jun} {"June"}
-MACRO {jul} {"July"}
-MACRO {aug} {"August"}
-MACRO {sep} {"September"}
-MACRO {oct} {"October"}
-MACRO {nov} {"November"}
-MACRO {dec} {"December"}
-
-%%%%%%%%%%%%
-%% 条目定义
-%%%%%%%%%%%%
-ENTRY { address			% 地址
-	assignee		% 标准授权人
-	author			% 作者
-	booktitle		% 专著/论文集名
-	chapter			% 
-	day			%
-	dayfiled		%
-	edition			% 版本
-	editor			% 编者
-	howpublished		% 出版形式
-	esubtype		% 电子文献子类
-	institution		% 
-	journal			% 期刊
-	key			%
-	language		% 语言
-	month			% 月
-	monthfiled		%
-	nationality		%
-	newsletter		%
-	note			%
-	number			%
-	number2			%
-	organization		%
-	pages			%
-	publisher		%
-	refdate			%
-	update			% 电子文档更新或修改日期
-	school			%
-	series			%
-	title			%
-	translator		%
-	type			%
-	volume			%
-	volume2			%
-	year			%
-	year2			%
-	yearfiled		%
-	url			% URL
-	pubaddress		% 出版地
-	CTLname_format_string	% 作者英文姓名排版格式
-	CTLmax_names_forced_etal % 强制略去的最大作者数
-	CTLauthor_name_english	 % 作者英文姓名
-	CTLauthor_name_chinese	 % 作者中文姓名
-	CTLfor_peer_review	 % 是否匿名
-  }
-  {}
-  { label }
-
-%%%%%%%%%%%%%
-%% 字符串常量
-%%%%%%%%%%%%%
-% FUNCTION {bbl.anonymous}   { language empty$ { "Anon" }  { "佚名" } if$ }
-FUNCTION {bbl.anonymous} { "" }
-FUNCTION {bbl.etal}        { language empty$ { "~et~al" } { "~等" } if$ }
-FUNCTION {bbl.sine.loco}   { language empty$ { "S.~l." } { "出版地不详" } if$ }
-FUNCTION {bbl.sine.nomine} { language empty$ { "s.~n." } { "出版者不详" } if$ }
-
-FUNCTION {bbl.comma}       { language empty$ { ", " } { "，" } if$ }
-FUNCTION {bbl.colon}       { language empty$ { ": " } { "：" } if$ }
-FUNCTION {bbl.period}      { language empty$ { "." } { "．" } if$ }
-FUNCTION {bbl.parallel}    { "~//~" }
-
-FUNCTION {bbl.st}          { "st" }	% 序数词后缀
-FUNCTION {bbl.nd}          { "nd" }	% 序数词后缀
-FUNCTION {bbl.rd}          { "rd" }	% 序数词后缀
-FUNCTION {bbl.th}          { "th" }	% 序数词后缀
-
-FUNCTION {bbl.number}      { "第" }
-FUNCTION {bbl.author}      { "作者" }
-
-%%%%%%%%%%%%
-%% 整型变量
-%%%%%%%%%%%
-INTEGERS { output.state before.all mid.sentence after.title after.sentence url.sentence after.block before.pages }
-INTEGERS { number.label longest.label.width multiresult 
-	   nameptr namesleft numnames lastnamecapitalized namelength charptr }
-INTEGERS { max.num.names.before.forced.et.al }
-INTEGERS { is.for.peer.review }
-
-%%%%%%%%%%%%%
-%% 字符串变量
-%%%%%%%%%%%%%
-STRINGS { s 
-	  t 
-	  longest.label 
-	  thename 
-	  name.emph.author.en	% 强调现实的作者英文姓名
-	  name.emph.author.zh	% 强调显示的作者中文姓名
-	  name.format.string	% 姓名的格式字符串
-	  author.name.in.english % 作者英文姓名
-	  author.name.in.chinese % 作者中文姓名
-}
-
-%%%%%%%%%%%%%%%%%%%%%
-%% LaTeX 参考文献代码
-%%%%%%%%%%%%%%%%%%%%%
-
-% 输出 .bbl 文件开始
-FUNCTION {begin.bib} { 
-  "% Generated by BUPTThesis.bst, version: " bst.file.version * 
-  " (" * bst.file.date * ")" *
-  write$ newline$		% 输出注释行，说明产生该bbl的bst及版本
-
-  preamble$ empty$		% 输出前导
-    'skip$
-    { preamble$ write$ newline$ }
-  if$
-
-  "\begin{thebibliography}{"  longest.label  * "}" * 
-  write$ newline$		% 输出 \begin{thebiliography}{x}
-}
-
-% 输出 .bbl 文件结束部分
-FUNCTION {end.bib} {
-  newline$
-  "\end{thebibliography}" 
-  write$ newline$
-}
-
-%%%%%%%%%%%%
-%% 底层函数
-%%%%%%%%%%%%
-
-% 控制变量初始化
-FUNCTION {initialize.controls} {
-  default.name.format.string 'name.format.string :=
-  default.max.num.names.before.forced.et.al 'max.num.names.before.forced.et.al :=
-  default.is.for.peer.review 'is.for.peer.review :=
-}
-
-% 初始化最长 label
-FUNCTION {initialize.longest.label} { 
-  "" 'longest.label :=
-  #1 'number.label :=
-  #0 'longest.label.width :=
-}
-
-% 最长 label pass
-FUNCTION {longest.label.pass}
-{ number.label int.to.str$ 'label :=
-  number.label #1 + 'number.label :=
-  label width$ longest.label.width >
-    { label 'longest.label :=
-      label width$ 'longest.label.width :=
-    }
-    { skip$ }
-  if$
-}
-
-% 逻辑非: 栈顶元素的逻辑非
-FUNCTION {not} {
-    { #0 }
-    { #1 }
-  if$
-}
-
-% 逻辑与
-FUNCTION {and} {   
-    { skip$ }
-    { pop$ #0 }
-  if$
-}
-
-% 逻辑或
-FUNCTION {or} {
-    { pop$ #1 }
-    { skip$ }
-  if$
-}
-
-% 返回 #1 : 栈顶字符是数字"0"~"9"
-% 返回 #0 : 其他
-FUNCTION {is.num} {
-  chr.to.int$
-  duplicate$ "0" chr.to.int$ < not
-  swap$ "9" chr.to.int$ > not and
-}
-
-% 栈顶整数乘以10
-FUNCTION {bump.int.mag} {
-  #0 'multiresult :=		% 初始化乘运算结果 y <- 0
-  { duplicate$ #0 > }		% 栈顶整数 x = 0 时才停止循环
-  { #1 -			% x <- x - 1
-    multiresult #10 +		
-    'multiresult :=		% y <- y + 10
-  }
-  while$
-  pop$				% 释放 x 
-  multiresult			% y 压栈返回
-}
-
-% 将栈顶字符("0"~"9")转换为整数(0~9)
-FUNCTION {char.to.integer} { 
-  duplicate$ 
-  is.num
-    { chr.to.int$ "0" chr.to.int$ - }
-    { "noninteger character " quote$ * swap$ * quote$ *
-      " in integer field of " * cite$ * warning$
-      #0			% 如果栈定字符不是("0"~"9"), 给出警告返回 0
-    }
-  if$
-}
-
-% 将栈顶字符串转换为整数
-FUNCTION {string.to.integer} { 
-  duplicate$ text.length$ 'namesleft := % namesleft <- 字符串长度
-  #1 'nameptr :=			% nameptr   <- 1
-  #0 'numnames :=			% numnames  <- 0
-  { nameptr namesleft > not }		% while( ! ( nameptr > namesleft ) )
-  { duplicate$ nameptr #1 substring$	% 取第 nameptr 个字符 x
-    char.to.integer numnames bump.int.mag + 
-    'numnames :=		        % numnames <- chr2int( x ) + 10 * numnames
-    nameptr #1 +			
-    'nameptr :=				% nameptr <- nameptr + 1
-  }
-  while$
-  pop$				        % 释放栈顶元素
-  numnames				% numnames 压栈返回
-}
-
-% convert the strings "yes" or "no" to #1 or #0 respectively
-FUNCTION {yes.no.to.int}
-{ "l" change.case$ duplicate$
-    "yes" =
-    { pop$  #1 }
-    { duplicate$ "no" =
-        { pop$ #0 }
-        { "unknown boolean " quote$ * swap$ * quote$ *
-          " in " * cite$ * warning$
-          #0
-        }
-      if$
-    }
-  if$
-}
-
-% 初始化状态常量
-FUNCTION {initialize.status.constants}
-{ #0 'before.all :=		% 起始
-  #1 'mid.sentence :=		% 句中
-  #2 'after.sentence :=		% 句末
-  #3 'after.block :=		% 块后
-  #4 'after.title :=            %
-  #5 'before.pages :=		%
-}
-
-FUNCTION {remove.char}
-{ 't :=
-  's :=
-  ""
-  { s empty$ not }
-  { s #1 #1 substring$
-    s #2 global.max$ substring$ 's :=
-    duplicate$ t = 'pop$
-      { * }
-    if$
-  }
-  while$
-}
-
-STRINGS {z}
-FUNCTION {remove.period}
-{ 'z :=
-  ""
-  { z empty$ not }
-  { z #1 #1 substring$
-    z #2 global.max$ substring$ 'z :=
-    duplicate$ "." = 'pop$
-      { * }
-    if$
-  }
-  while$
-}
-
-FUNCTION {remove.dots} {
-  duplicate$ "input=" swap$ * warning$ 
-  "language=" language * warning$
-  language empty$
-    { "." remove.char 
-      duplicate$ "output('.')=" swap$ * warning$ }
-    { "．" remove.char 
-      duplicate$ "output('．')=" swap$ * warning$
-      "." remove.char 
-      duplicate$ "output('.')=" swap$ * warning$ }
-  if$
-}
-
-FUNCTION {bibinfo.check}
-{ swap$
-  duplicate$ missing$
-    {
-      pop$ pop$
-      ""
-    }
-    { duplicate$ empty$
-        {
-          swap$ pop$
-        }
-        { swap$
-          pop$
-        }
-      if$
-    }
-  if$
-}
-
-%%%%%%%%%%%%
-%% 调试例程
-%%%%%%%%%%%%
-
-% 默认调试输出函数
-FUNCTION {debug.output} {
-  "[DEBUG] " swap$ * top$ 
-}
-
-% 状态调试输出函数
-FUNCTION {debug.output.status} {
-  "---- output.state=" 
-  output.state before.all = 
-    { "before.all" }
-    { output.state mid.sentence =
-	{ "mid.sentence" }
-	{ output.state after.sentence =
-	    { "after.sentence" }
-	    { output.state url.sentence =
-		{ "url.sentence" }	
-		{ output.state before.pages =
-		    { "before.pages" }
-		      { "after.block" }
-		  if$
-		}
-	      if$
-	    }
-	  if$
-	}
-      if$
-    }
-  if$
-  * debug.output
-}
-
-FUNCTION {output.year}
-{ 't :=
-  number empty$
-  volume empty$
-  and
-    { add.period$ write$ }
-    { ", " * write$ }
-  if$
-  t
-}
-
-% STRINGS {z}
-% FUNCTION {remove.dots}
-% { 'z :=
-%   ""
-%   { z empty$ not }
-%   { z #1 #1 substring$
-%     z #2 global.max$ substring$ 'z :=
-%     duplicate$ bbl.period = 'pop$
-%       { * }
-%     if$
-%   }
-%   while$
-%   %z
-% }
-
-% 对于中文文献, 用全角句点替换英文句点
-FUNCTION {replace.half.width.period} {
-%   % DEBUG
-%   duplicate$ "-- replace.half.width.period(" swap$ * ")" * debug.output
-%   % END OF DEBUG
-  language empty$
-    { " " * }				   % 对于英文文献, 在句点后加一空格
-    { duplicate$ text.length$ 'numnames := % numnames 等于字符串长度
-%       % DEBUG
-%       numnames int.to.str$ "---- text.length$=" swap$ * debug.output
-%       % END OF DEBUG
-      duplicate$ numnames #1 substring$ "." =
-	{ % % DEBUG
-% 	  "---- Found '.' at the end" debug.output
-% 	  % END OF DEBUG
-	  numnames #1 -
-	  #1 swap$ substring$
-	  bbl.period *
-	}
-	{ skip$ }
-      if$
-    }
-  if$
-%   % DEBUG
-%   duplicate$ "---- Return=" swap$ * debug.output
-%   % END OF DEBUG
-}
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% 输出例程: 输出栈顶项并根据需要添加标点符号
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-% 非空项输出函数: 用于输出非空项
-FUNCTION {output.nonnull} {
-%   % DEBUG
-%   duplicate$ "output.nonnull(" swap$ * ")" * debug.output
-%   debug.output.status
-%   % END OF DEBUG
-  swap$
-  % 根据当前输出状态添加前置标点符号
-  % before.all      起始, 不添加任何标点符号直接输出
-  % mid.sentence    句中, 前置逗号输出
-  % after.sentence  句末, 前置句号输出
-  % after.block     块后, 前置句号, 后置 \newblock 输出
-  % after.title
-  output.state mid.sentence =
-    { bbl.comma * write$ }	% mid.sentence 前置逗号
-    { output.state after.block =
-	{ add.period$		    % 块后, 后置句号
-	  replace.half.width.period % 为中文文献替换句点
-	  write$ 
-	  newline$  
-%	  "\newblock "  write$ 
-	} % 后置 \newblock 输出
-	{ output.state before.all =
-            { write$ }		% 起始, 不添加任何标点符号直接输出
-            { output.state after.title =
-		{ bbl.parallel *
-		  write$ }
-		{ output.state before.pages =
-		    { bbl.colon * 
-		      write$ }
-		    { add.period$ 	% 句末, 前置句号输出
-		      replace.half.width.period 
-		      write$ }		% 
-		  if$
-		}
-	      if$
-	    }
-	  if$
-	}
-      if$
-      mid.sentence 'output.state :=
-    }
-  if$
-  % s
-}
-
-% 无警告输出函数
-FUNCTION {output} { 
-  duplicate$ empty$
-    { pop$ }			% 若输出项为空, 则舍去空输出项
-    { output.nonnull }		% 否则调用非空输出函数
-  if$
-}
-
-% 警告输出函数: 同 output, 但是对于空项给出警告提示
-FUNCTION {output.warn}
-{ 't :=
-  duplicate$ empty$
-    { pop$ "empty " t * " in " * cite$ * warning$ }
-    { output.nonnull }
-  if$
-}
-
-% 将数字字符串转换成序数词形式字符串(例如: "7" -> "7th")
-FUNCTION {num.to.ordinal} { 
-  duplicate$ #-1 #1 substring$ "1" =
-     { bbl.st * }
-     { duplicate$ #-1 #1 substring$ "2" =
-         { bbl.nd * }
-         { duplicate$ #-1 #1 substring$ "3" =
-             { bbl.rd * }
-             { bbl.th * }
-           if$
-         }
-       if$
-     }
-   if$
-}
-
-% 从字符串中提取前导数字的函数
-% 如果栈顶字符串以数字开头(例如: "11th"), 则将字符串用其数字部分(即,"11")
-% 替换. 否则, 保持原字符串不变. 用于版本转换函数(convert.edition)
-% s 保存提取出的数字, t 保存剩余待扫描的字符串.
-FUNCTION {extract.num} {
-  duplicate$ 't :=		% t <- 输入字符串
-  "" 's :=			% s <- ""
-  { t empty$ not }		% while( t != "" ) {
-  { t #1 #1 substring$		%   tmp <- t[0]
-    t #2 global.max$ substring$ 
-    't :=			%   t <- t[2:global.max$]
-    duplicate$ is.num		%   if( is.num( tmp ) )
-      { s swap$ * 's := }	%     s <- s & tmp
-      { pop$ "" 't := }		%   else t <- ""
-    if$				% }
-  }				% 
-  while$			% if( s == "" )
-  s empty$			%   ;
-    'skip$			% else
-    { pop$ s }			%   return s
-  if$				%
-}
-
-% 将1st~10th单词形式的序数词转换成阿拉伯数字形式
-FUNCTION {word.to.num} {
-  duplicate$ "l" change.case$ 
-  's :=				% s <- lower( arg )
-  s "first" =			% if ( s == "first" )
-    { pop$ "1" }		%   return "1"
-    { skip$ }
-  if$
-  s "second" =			% if ( s == "second" )
-    { pop$ "2" }		%   return "2"
-    { skip$ }
-  if$
-  s "third" =
-    { pop$ "3" }
-    { skip$ }
-  if$
-  s "fourth" =
-    { pop$ "4" }
-    { skip$ }
-  if$
-  s "fifth" =
-    { pop$ "5" }
-    { skip$ }
-  if$
-  s "sixth" =
-    { pop$ "6" }
-    { skip$ }
-  if$
-  s "seventh" =
-    { pop$ "7" }
-    { skip$ }
-  if$
-  s "eighth" =
-    { pop$ "8" }
-    { skip$ }
-  if$
-  s "ninth" =
-    { pop$ "9" }
-    { skip$ }
-  if$
-  s "tenth" =
-    { pop$ "10" }
-    { skip$ }
-  if$
-}
-
-% 转换字符串形式的序数词为数字形式的序数词
-% 例如: 将 "Eleventh" 转换为 "11th"
-FUNCTION {convert.edition} { 
-  duplicate$ empty$ 'skip$
-    { duplicate$ #1 #1 substring$ 
-      is.num			% if( is.num( arg[1] ) ) {
-        { extract.num		%   tmp <- extract.num( arg )
-          num.to.ordinal	%   tmp <- num.to.ordinal( tmp )
-        }			% } else {
-        { word.to.num		%   tmp <- word.to.num( arg )
-          duplicate$ #1 #1 substring$ 
-	  is.num		%   if( is.num( tmp[1] ) )
-            { num.to.ordinal }	%     tmp <- num.to.ordinal( tmp )
-            { "edition ordinal word " 
-	      quote$ * edition * quote$ *
-              " may be too high (or improper) for conversion" * 
-	      " in " * cite$ * warning$ % else output warning
-            }
-          if$
-        }
-      if$
-    }
-  if$
-}
-
-FUNCTION {start.entry}
-{ newline$
-  "\bibitem{" write$
-  cite$ write$
-  "}" write$
-  newline$
-  ""
-  before.all 'output.state :=
-}
-
-FUNCTION {fin.entry}
-{ add.period$
-  replace.half.width.period
-  write$
-  newline$
-}
-
-% FUNCTION {fin.entry}
-% { duplicate$ empty$
-%     'pop$
-%     'write$
-%   if$
-%   newline$
-% }
-
-FUNCTION {new.block}
-{ output.state before.all =
-    'skip$
-    { after.block 'output.state := }
-  if$
-}
-
-FUNCTION {new.sentence}
-{ output.state after.block =
-    'skip$
-    { output.state before.all =
-    'skip$
-    { after.sentence 'output.state := }
-      if$
-    }
-  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 {format.language}
-{ language empty$
-    'skip$
-    'skip$
-  if$
- }
-FUNCTION {is.space}
-{ chr.to.int$
-  duplicate$ #32 =
-    { pop$ #1 }
-    { pop$ #0 }
-  if$
-}
-FUNCTION {is.lower.char}
-{
-  chr.to.int$
-  duplicate$ #96 >
-    { #123 < 
-	{ #1 }
-	{ #0 }
-      if$
-    }
-    { pop$ #0 }
-  if$
-}
-
-% 将last name转换为全大写
-FUNCTION {capitalize.last.name} {
-  "u" change.case$
-}
-% FUNCTION {capitalize.last.name}
-% { 
-%   'thename :=			% 输入参数 thename
-%   thename text.length$ 
-%   'namelength :=		% namelength := thename 的长度
-%   #1 'charptr :=
-%   #0 'lastnamecapitalized :=
-%   ""
-  
-%   { charptr #1 - namelength < 
-%     %     % debug
-%     %     duplicate$ int.to.str$ "( charptr + #1 > namelength ) == " swap$ * warning$ 
-%     %     % eod
-%   }
-%   { 
-%     %     % debug
-%     %     "charptr = " charptr int.to.str$ * 
-%     %     ", lastnamecapitalized = " * 
-%     %     lastnamecapitalized int.to.str$ * warning$
-%     %     % eod
-%     lastnamecapitalized #1 = 
-% 	{	thename charptr namelength charptr - #1 + substring$ *
-% 		namelength #1 + 'charptr := 
-% 		% 	% debug
-% 		% 	duplicate$ "top of the stack = " swap$ * warning$
-% 		% 	% eod
-% 	}
-% 	{ thename charptr #1 substring$ 
-% 	  % 	% debug
-% 	  % 	duplicate$ "the char = " swap$ * warning$
-% 	  % 	% eod
-% 	  duplicate$ is.lower.char 
-% 	    % 	% debug
-% 	    % 	duplicate$ int.to.str$ "is.lower.char = " swap$ * warning$
-% 	    % 	  % eod
-% 	    { "u" change.case$ * }
-% 	    { duplicate$ is.space
-% 		% 	    % debug
-% 		% 	    duplicate$ int.to.str$ "is.space = " swap$ * warning$
-% 		% 	      % eod
-% 		{ #1 'lastnamecapitalized :=
-% 		  *
-% 		}
-% 		{ *
-% 		}
-% 	      if$
-% 	    }
-% 	  if$
-% 	  % 	% debug
-% 	  % 	duplicate$ "top of the stack = " swap$ * warning$
-% 	  % 	% eod
-% 	  charptr #1 + 'charptr :=
-% 	}
-%     if$
-%   }
-%   while$
-% }
-% 格式化盲审姓名
-FUNCTION {format.names.for.peer.review} {
-  's :=				% s := author域
-  #1 'nameptr :=		% nameptr 是姓名指针，初始化为 1
-  s num.names$ 'numnames :=     % 利用 num.names$ 获得 s 中的作者数量存入 nameptr
-  numnames 'namesleft :=	% 未处理的姓名数 namesleft := numnames
-  % 循环处理所有姓名
-  { namesleft #0 > }		% if namesleft > #0 (还有姓名没有格式化)
-  { s nameptr 			% 选择第 nameptr 个姓名
-    name.format.string		% 按 name.format.string 的格式排版
-    format.name$		% 调用 format.name$
-    remove.period		% 并删除缩写符号'.'
-    't :=			% 格式化后的姓名暂存于 t
-    language empty$		
-      { author.name.in.english }% 如果是英文文献将 author.name.in.english 压栈
-      { author.name.in.chinese } % 否则将 author.name.in.chinese 压栈
-    if$
-    t =				% 用当前的姓名与栈上的姓名做比较
-      { nameptr int.to.str$	% 将作者序号转化为字符串
-	"\CJKnumber{" swap$ * "}" * % 使用中文数字
-	bbl.number swap$ * bbl.author * % 加上``第''和``作者''
-%	duplicate$ debug.output
-      }
-      { skip$ }
-    if$
-    nameptr #1 + 'nameptr :=	% 姓名指针加 1
-    namesleft #1 - 'namesleft := % 剩余姓名数减 1
-  }
-  while$
-}
-% 格式化非盲审姓名
-FUNCTION {format.names.for.non.peer.review} { 
-  % 初始化
-  's :=				% s := author域
-  #1 'nameptr :=		% nameptr 是姓名指针，初始化为 1
-  s num.names$ 'numnames :=	% 利用 num.names$ 获得 s 中的作者数量存入 nameptr
-  numnames 'namesleft :=	% 未处理的姓名数 namesleft := numnames
-  % 循环处理所有姓名
-  { namesleft #0 > }		% if namesleft > #0 (还有姓名没有格式化)
-  { s nameptr 			% 选择第 nameptr 个姓名
-    name.format.string		% 按 name.format.string 的格式排版
-    format.name$		% 调用 format.name$
-%     language empty$		
-%       {	"u" change.case$ }	% 如果不是语言为空, 做大写转换
-%       {	skip$ }
-%     if$				% <language 判断结束>
-    remove.period		% 并删除缩写符号'.'
-    't :=			% 格式化后的姓名暂存于 t
-    nameptr #1 >
-      { nameptr max.num.names.before.forced.et.al #1 + =
-          { "others" 't :=	% 如果当前作者的序数已经超出了最大列显作者数
-            #1 'namesleft := }	% 则置未处理姓名数为#1, 以便跳出循环
-          { bbl.comma * }		% 如果作者序数在允许范围内, 则添加逗号
-        if$			% <et al 判断结束>
-        namesleft #1 >		% 若当前姓名不是最后一个
-          { t * }		% 显示当前姓名	
-          { t "others" =	% 若当前姓名是最后一个且后面有略去的姓名
-              { bbl.etal * }	% 添加", et~al"或"，等"
-	            { t * }		% 如果没有略去姓名，以句点结束
-	          if$			% <others 判断结束>
-	        }
-        if$ 			% <namesleft 判断结束>
-      }
-      { t }			% 如果是第一个作者, 直接将排版后的姓名压栈
-    if$
-    nameptr #1 + 'nameptr :=	% 姓名指针加 1
-    namesleft #1 - 'namesleft := % 剩余姓名数减 1
-  }
-  while$
-}
-% 格式化姓名
-FUNCTION {format.names} {
-  is.for.peer.review 
-    { format.names.for.peer.review }	 % 格式化盲审姓名
-    { format.names.for.non.peer.review } % 格式化非盲审姓名
-  if$
-}
-FUNCTION {format.authors}
-{ author empty$
-    { bbl.anonymous
-      "The author in " cite$ * " is missing." * warning$ }
-    { author format.names }
-  if$
-}
-
-FUNCTION {format.editors}
-{ editor empty$
-    { bbl.anonymous
-      "The editor in " cite$ * " is missing." * warning$ 
-    }
-    { editor format.names }
-  if$
-}
-
-FUNCTION {format.assignees} {
-  assignee empty$
-    { "" }
-    { assignee format.names }
-  if$
-}
-
-% 译者格式
-FUNCTION {format.translators}
-{ translator empty$
-    { "" }			% 无译者
-    { new.block			% 有译者
-      translator format.names "，译" *
-    }
-  if$
-}
-
-% 机构格式
-FUNCTION {format.institution} { 
-  institution empty$
-    { "" }
-    { institution }
-  if$
-}
-
-% 组织格式
-FUNCTION {format.organization} { 
-  organization empty$
-    { "" }
-    { organization }
-  if$
-}
-
-% 文献类型标志代码/电子文献载体标志代码
-FUNCTION {bib.type.designator} {
-%   % DEBUG
-%   "bib.type.designator(type:" type$ * debug.output
-%   "                    url: " url empty$ { "<N/A>" }{ url } if$  * debug.output
-%   % END OF DEBUG
-
-  % 文献类型标志代码
-  type$ "book" = type$ "inbook" = or
-    { "M" }
-    { type$ "standard" = 
-	{ "S" }
-	{ type$ "proceedings" = type$ "conference" = or type$ "inproceedings" = or
-	    { "C" }
-	    { type$ "patent" =
-		{ "P" }
-		{ type$ "phdthesis" = type$ "masterthesis" = or
-		    {language "Chinese" = { "学位论文" } { language empty$ = {"Dissertation"}  if$} if$}
-		    { type$ "techreport" = 
-			{ "R" }
-			{ type$ "article" = type$ "periodical" = or
-			    { "J" }
-			    { type$ "online" = type$ "webpage" = or type$ "www" = or
-				{ "EB" }
-				{ type$ "electronic" =
-				    { esubtype empty$
-					{ url empty$
-					    { "" }
-					    { "EB" }
-					  if$
-					}
-					{ esubtype "webpage" = 
-					    { "EB" }
-					    { esubtype "database" =
-						{ "DB" }
-						{ esubtype "program" =
-						    { "CP" }
-						    { "" }
-						  if$ % electronics[program]
-						}
-					      if$ % electronics[database]
-					    }
-					  if$ % electronics[webpage]
-					}
-				      if$
-				    }
-				    { "" } % 其他
-				  if$	   % electronics
-				}
-			      if$ % online/webpage/www
-			    }
-			  if$	% article/periodical
-			}
-		      if$ 	% techreport
-		    }
-		  if$		% phdthesis/mastersthesis
-		}
-	      if$ 		% patent
-	    }
-	  if$			% proceedings/inproceedings/conference
-	}
-      if$			% standard
-    }
-  if$ 				% book/inbook
-%   % DEBUG
-%   duplicate$ "                    doc.designator: " swap$ * debug.output
-%   % END OF DEBUG
-  % 电子文献载体标志代码
-  duplicate$ "" =
-    { skip$ }
-    { "~[" swap$ *
-      howpublished empty$ 
-	{ url empty$
-	    { "" }
-	    { "/OL" }
-	  if$
-	}
-	{ howpublished "online" =
-	    { "/OL" }
-	    { howpublished "magtype" =
-		{ "MT" }
-		{ howpublished "disk" =
-		    { "DK" }
-		    { howpublished "cdrom" =
-			{ "CD" }
-			{ "" }
-		      if$	% cdrom
-		    }
-		  if$		% disk
-		}
-	      if$		% magitude type
-	    }
-	  if$			% online
-	}
-      if$ 
-      * "]" *
-    }
-  if$
-}
-
-FUNCTION {format.title}
-{ title empty$
-    { "" }
-    { new.block
-      title }
-  if$
-}
-
-% 格式化年月日``YYYY-MM-DD''
-FUNCTION {format.year.month.day} { 
-  year empty$
-    { "YYYY" }
-    { year }
-  if$
-  "-" *
-  month empty$
-    { "MM" * } 
-    { month text.length$ #2 <
-	{ "0" * }
-	{ skip$ }
-      if$
-      month * 
-    }
-  if$
-  "-" *
-  day empty$
-    { "DD" * }
-    { day text.length$ #2 <
-	{ "0" * }
-	'skip$
-      if$
-      day *
-    }
-  if$
-}
-
-FUNCTION {format.reference.date} {
-  refdate empty$
-    { ""
-      url empty$
-	{ skip$ }
-	{ "The refdate in " cite$ * " is missing." * warning$ }
-      if$
-    }
-    { output.state mid.sentence =
-	{ before.all 'output.state := }
-	{ skip$ }
-      if$
-      "~[" refdate * "]" * }
-  if$
-}
-
-% patent的题名项: 专利题名: 专利国别, 专利号~[文献类型标志]
-FUNCTION {format.patent.title} { 
-  title empty$			% 专利提名
-    { "" }
-    { new.block
-      title bbl.colon * 
-      nationality empty$		% 专利国别, 专利号
-	{ % 专利国别为必备项
-	  "The nationality in " cite$ * " is missing." * warning$
-	}
-	{ number empty$
-	    { % 专利号为必选项
-	      "The number in " cite$ * " is missing." * warning$
-	    }
-	    { % 产生``专利国别, 专利号''
-	      nationality * bbl.comma * number *
-	    }
-	  if$
-	}
-      if$
-      % 文献类型标志
-      bib.type.designator *
-    }
-  if$
-}
-
-% patent的出版项:
-FUNCTION {format.patent.publication} { 
-  new.block
-  format.year.month.day
-%   % DEBUG
-%   duplicate$ "End of format.patent.publication, top = " swap$ * debug.output
-%   % END OF DEBUG
-  url empty$
-    { skip$ }
-    { refdate empty$
-	{ "The refdate in " cite$ * " is missing." * warning$ }
-	{ "~[" * refdate * "]" * }
-      if$
-    }
-  if$
-}
-
-% electronic的主要责任者:
-%   author 或 organization
-FUNCTION {format.electronic.authors}
-{
-  author empty$
-    { organization empty$
-	{ " " }
-	{ organization }
-      if$
-    }
-    { format.authors }
-  if$
-}
-
-% electronic的出版项
-FUNCTION {format.electronic.publication} { 
-  new.block
-  % 出版地: 出版者
-  address empty$
-    { "" }
-    { address 
-      publisher empty$
-	{ skip$ }
-	{ bbl.colon * publisher * }
-      if$
-    }
-  if$
-  
-  % 出版年
-  year empty$
-    { skip$ }
-    { publisher empty$ 
-	{ "" }
-	{ bbl.comma }
-      if$ 
-      * year * }
-  if$
-}
-
-%% article的标题格式
-FUNCTION {format.atitle}
-{ title empty$
-    { "" }
-    { title 
-      newsletter empty$
-	{ "~[J" * }
-	{ newsletter "yes" =
-	    { "~[N" * }
-	    { "~[J" * }
-	  if$
-	}
-      if$
-      url empty$
-	{ "]" * }
-	{ "/OL]" * }
-      if$
-    }
-  if$
-}
-%% incollection的标题格式
-FUNCTION {format.ictitle}
-{ title empty$
-    { "" }
-    { title "~[M]~//~" * 
-      editor format.names *
-    }
-  if$
-}
-%% inproceedings的标题格式
-FUNCTION {format.iptitle}
-{ title empty$
-    { "" }
-    { title "~[C]~//~" * 
-      editor format.names *
-    }
-  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.year.volume.number} {
-  year empty$
-    { "" }
-    { type$ "periodical" =
-	{ new.block }
-	{ mid.sentence 'output.state := }
-      if$
-      year 
-      volume empty$
-	'skip$
-	{ bbl.comma * volume * }
-      if$
-      number empty$
-	'skip$
-	{ "~(" * number * ")" * }
-      if$ 
-      year2 empty$
-	{ skip$ }
-	{ "~--" * 
-	  year2 "now" =
-	    { skip$ }
-	    { year2 * 
-	      volume2 empty$
-		{ skip$ }
-		{ bbl.comma * volume2 * }
-	      if$
-	      number2 empty$
-		'skip$
-		{ "~(" * number2 * ")" * }
-	      if$
-	    }
-	  if$
-	}
-      if$
-    }
-  if$
-%   %% DEBUG
-%   duplicate$ "format.year.volume.number=" swap$ * debug.output
-%   %% END OF DEBUG
-}
-
-% 卷（期）.年,月(for article only)
-FUNCTION {format.volume.number.year.month} {
-  add.period$
-  year empty$
-    { "" }
-    {
-      volume empty$
-        'skip$
-        { "~" * volume * }
-      if$
-      number empty$
-        'skip$
-        { "~(" * number * ")" * }
-      if$
-      new.block
-      year
-      month empty$
-        'skip$
-        { bbl.comma * month * }
-      if$
-    }
-  if$
-}
-
-%
-FUNCTION {format.date}
-{ year empty$
-    { month empty$
-      { "" }
-      { "there's a month but no year in " cite$ * warning$
-        month
-      }
-      if$
-    }
-    { month empty$
-      { year }
-      { month bbl.comma * year * }
-      if$
-    }
-  if$
-}
-
-function {format.year.year}
-{ year empty$
-    'skip$
-    { year "--" *
-    year2 empty$
-      'skip$
-      { year2 "now" =
-	  'skip$
-	  { year2 * }
-	if$
-      }
-    if$
-    }
-  if$
-}
-
-% 专著标题格式
-FUNCTION {format.book.title} { 
-  new.block			% 生成一个新的block
-  title 
-  type$ "proceedings" =
-    { address empty$
-	{ skip$ }
-	{ bbl.comma * address * bbl.comma * 
-	  month empty$
-	    { skip$ }
-	    { month * }
-	  if$
-	  year empty$
-	    { skip$ }
-	    { year * }
-	  if$
-	}
-      if$
-    }
-    { skip$ }
-  if$
-  bib.type.designator *	% 标题 + [文献标志代码/电子文献载体标志代码]
-}
-
-% 科技报告标题格式
-FUNCTION {format.techreport.title} { 
-  title empty$
-    { "" }
-    { new.block			% 生成一个新的block
-      title			% 标题 + 
-      number empty$		% 编号 +
-	{ "" }
-	{ bbl.comma * number }
-      if$ *	  
-      bib.type.designator *	% [文献标志代码/电子文献载体标志代码]
-    }
-  if$
-}
-
-% 连续出版物标题格式
-FUNCTION {format.jtitle}
-{ title "~[J" *
-  url empty$
-    { "]" * }
-    { "/OL]" * }
-  if$
-}
-
-% 论文集标题格式
-FUNCTION {format.ptitle.volume}
-{ title 
-  volume empty$
-    { "~[C]" }
-    { bbl.colon volume * "~[C]" * }
-  if$ *
-  %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$
-    { "" }
-    { language empty$
-	{ "volume" volume tie.or.space.connect }
-	{ volume }
-      if$
-      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$
-    { "" }
-    { new.block			% 版本项按一个block输出
-      language empty$		% 英文文献版本号自动转换成数字形式的序数词
-	{ edition convert.edition
-	  "l" change.case$ " ed" * 
-	}
-	{ edition }		% 中文文献版本号直接输出
-      if$
-    }
-  if$
-}
-
-
-FUNCTION {format.url}
-{ url empty$
-    { "" }
-    { new.block
-      "\url{" url * "}" * 
-    }
-  if$
-}
-
-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$
-    { "" }
-    { before.pages 'output.state :=
-      pages multi.page.check
-      { "" pages n.dashify tie.or.space.connect }
-      { "" pages tie.or.space.connect }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.vol.num.pages}
-{ volume field.or.null
-  number empty$
-    'skip$
-    { "(" number * ")" * *
-      volume empty$
-	{ newsletter empty$
-	    { "there's a number but no volume in " cite$ * warning$ }
-	    'skip$
-	  if$
-	}
-	'skip$
-      if$
-    }
-  if$
-  pages empty$
-    'skip$
-    { duplicate$ empty$
-	{ pop$ format.pages }
-	{ bbl.colon * pages n.dashify * }
-      if$
-    }
-  if$
-  % duplicate$ "top of stack = " swap$ * warning$
-  url empty$
-    'skip$
-    { refdate empty$ 
-	{ "there's an url but no refdate  in " cite$ * warning$ }
-	{ %duplicate$ "url and refdate is not empty, top of stack = " swap$ * warning$
-	  "~[" * refdate * "]" * 
-	}
-      if$
-      %duplicate$ "top of stack = " swap$ * warning$
-    }
-  if$
-}
-
-FUNCTION {format.chapter.pages}
-{ chapter empty$
-    { "" }
-    { type empty$
-      { "chapter" }
-      { type "l" change.case$ }
-    if$
-    chapter tie.or.space.connect
-    pages empty$
-      'skip$
-      { ", " * format.pages * }
-    if$
-    }
-  if$
-}
-
-FUNCTION {format.in.booktitle}
-{ booktitle empty$
-    { "" }
-    { editor empty$
-	{ language empty$
-	    { " " booktitle * }
-	    %        { "Proceedings of " booktitle * }
-            { " " booktitle * }
-	  if$
-	}
-	{ language empty$
-%            { "In: " format.editors * ", Proceedings of " * booktitle * }
-	    { " " booktitle * }
-            { " " booktitle * }
-	  if$
-	}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.in.ed.booktitle.volume}
-{ booktitle empty$
-    { "" }
-    { editor empty$
-	{ language empty$
-%            { "Proceedings of " booktitle * }
-	    { " " booktitle * }
-            { " " booktitle * }
-	  if$
-	}
-	{ language empty$
-          %{ "In: " format.editors * ", Proceedings of " * booktitle * }
-	    { " " booktitle * }
-            { " " booktitle * }
-	  if$
-	}
-      if$
-      %% volume
-      volume empty$
-	'skip$
-	{ language empty$
-	    { "Vol." * volume * }
-	    { "：第" * volume * "卷" * }
-	  if$
-	}
-      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$
-}
-
-FUNCTION {format.tr.number}
-{ type empty$
-    { "Technical Report" }
-    'type
-  if$
-  number empty$
-    { "t" change.case$ }
-    { number tie.or.space.connect }
-  if$
-}
-
-FUNCTION {format.article.crossref}
-{ key empty$
-    { journal empty$
-    { "need key or journal for " cite$ * " to crossref " * crossref *
-      warning$
-      ""
-    }
-    { "In {\em " journal * "\/}" * }
-      if$
-    }
-    { "In " key * }
-  if$
-  " \cite{" * crossref * "}" *
-}
-
-FUNCTION {format.crossref.editor}
-{ editor #1 "{ll }{f{~}}" format.name$
-  editor num.names$ duplicate$
-  #2 >
-    { pop$ " et~al." * }
-    { #2 <
-	'skip$
-	{ editor #2 "{ll }{f{~}}" format.name$ "others" =
-            { " et~al." * }
-            { " and " * editor #2 "{ll }{f{~}}" format.name$ * }
-	  if$
-	}
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.book.crossref}
-{ volume empty$
-    { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
-      "In "
-    }
-    { "Volume" volume tie.or.space.connect
-      " of " *
-    }
-  if$
-  editor empty$
-  editor field.or.null author field.or.null =
-  or
-    { key empty$
-	{ series empty$
-            { "need editor, key, or series for " cite$ * " to crossref " *
-              crossref * warning$
-              "" *
-            }
-            { "{\em " * series * "\/}" * }
-	  if$
-	}
-	{ key * }
-      if$
-    }
-    { format.crossref.editor * }
-  if$
-  " \cite{" * crossref * "}" *
-}
-
-FUNCTION {format.incoll.inproc.crossref}
-{ editor empty$
-  editor field.or.null author field.or.null =
-  or
-    { key empty$
-    { booktitle empty$
-        { "need editor, key, or booktitle for " cite$ * " to crossref " *
-          crossref * warning$
-          ""
-        }
-        { "In {\em " booktitle * "\/}" * }
-      if$
-    }
-    { "In " key * }
-      if$
-    }
-    { "In " format.crossref.editor * }
-  if$
-  " \cite{" * crossref * "}" *
-}
-
-% 出版地: 出版者
-FUNCTION {format.address.publisher} {
-  new.block
-  type$ "inproceedings" =
-    { pubaddress empty$
-	{ "[" bbl.sine.loco * "]" * bbl.colon * % 无出版地
-	  publisher empty$
-	    { "there's neither pubaddress nor publisher in " cite$ * warning$
-	      "[" * bbl.sine.nomine * "]" * % 无出版者
-	    }
-	    { "there's a publisher but no pubaddress in " cite$ * warning$
-	      publisher *		% 有出版者
-	    }
-	  if$
-	}
-	{ pubaddress bbl.colon *	% 有出版地
-	  publisher empty$
-	    { "there's a pubaddress but no publisher in " cite$ * warning$
-	      "[" * bbl.sine.nomine * "]" * % 无出版者
-	    }
-	    { publisher * }		% 有出版者
-	  if$
-	}
-      if$
-    }
-    { address empty$
-	{ "[" bbl.sine.loco * "]" * bbl.colon * % 无出版地
-	  publisher empty$
-	    { "there's neither address nor publisher in " cite$ * warning$
-	      "[" * bbl.sine.nomine * "]" * % 无出版者
-	    }
-	    { "there's a publisher but no address in " cite$ * warning$
-	      publisher *		% 有出版者
-	    }
-	  if$
-	}
-	{ address bbl.colon *	% 有出版地
-	  publisher empty$
-	    { "there's a address but no publisher in " cite$ * warning$
-	      "[" * bbl.sine.nomine * "]" * % 无出版者
-	    }
-	    { publisher * }		% 有出版者
-	  if$
-	}
-      if$
-    }
-  if$
-}
-
-% 出版地: 出版者, 出版年
-FUNCTION {format.address.publisher.year} { 
-%   % DEBUG
-%   "-- format.address.publisher.year(){" debug.output
-%   "--   address  =" address * debug.output
-%   "--   publisher=" publisher * debug.output
-%   "--   year     =" year * debug.output
-%   % END OF DEBUG
-  new.block
-  type$ "inproceedings" =
-    { pubaddress empty$
-	{ "" % "[" bbl.sine.loco * "]" * bbl.colon * % 无出版地
-	  publisher empty$
-	    { "there's neither pubaddress nor publisher in " cite$ * warning$
-	      "" * % "[" * bbl.sine.nomine * "]" * % 无出版者
-	    }
-	    { "there's a publisher but no pubaddress in " cite$ * warning$
-	      publisher *		% 有出版者
-	    }
-	  if$
-	}
-	{ publisher empty$
-	    { "there's a pubaddress but no publisher in " cite$ * warning$
-	      "" % "[" * bbl.sine.nomine * "]" * % 无出版者
-	    }
-	    { pubaddress bbl.colon *	% 有出版地
-	      publisher * }		% 有出版者
-	  if$
-	}
-      if$
-    }
-    { address empty$
-	{ "" % "[" bbl.sine.loco * "]" * bbl.colon * % 无出版地
-	  publisher empty$
-	    { "there's neither address nor publisher in " cite$ * warning$
-	      "" * % "[" * bbl.sine.nomine * "]" * % 无出版者
-	    }
-	    { "there's a publisher but no address in " cite$ * warning$
-	      publisher *		% 有出版者
-	    }
-	  if$
-	}
-	{ publisher empty$
-	    { "there's a address but no publisher in " cite$ * warning$
-	      "" % "[" * bbl.sine.nomine * "]" * % 无出版者
-	    }
-	    { address bbl.colon *	% 有出版地
-	      publisher * }		% 有出版者
-	  if$
-	}
-      if$
-    }
-  if$
-  
-  % 出版年
-  year empty$
-    { "there's no year in " cite$ * warning$ }
-    { type$ "inproceedings" =
-	{ bbl.comma * year * }
-	{ publisher empty$ 
-	    { year * }
-	    { bbl.comma * year * }
-	  if$
-	}
-      if$
-	
-      type$ "periodical" =
-	{ year2 empty$		% 对连续出版物可以排版 year2
-	    { skip$ }
-	    { "--" * 
-	      year2 "l" change.case$ "now" =
-		{ skip$ }
-		{ year2 * }
-	      if$
-	    }
-	  if$
-	}
-	{ skip$ }
-      if$
-    }
-  if$
-%   % DEBUG
-%   duplicate$ "-- }=" swap$ * debug.output
-%   % END OF DEBUG
-}
-
-% 出版地: 学校, 出版年
-FUNCTION {format.address.school.year} {   
-  new.block
-  address empty$
-    { "[" bbl.sine.loco * "]" * bbl.colon * % 无出版地
-      school empty$
-	{ "there's neither address nor school in " cite$ * warning$
-	  "[" bbl.sine.nomine * "]" * % 无出版者
-	}
-	{ "there's a school but no address in " cite$ * warning$
-	   school *		% 有出版者
-	}
-      if$
-    }
-    { address bbl.colon *	% 有出版地
-      school empty$
-	{ "there's a address but no school in " cite$ * warning$
-	  "[" bbl.sine.nomine * "]" * % 无出版者
-	}
-	{ school * }		% 有出版者
-      if$
-    }
-  if$
-  % 出版年
-  year empty$
-    { "there's no year in " cite$ * warning$ }
-    { bbl.comma * year * }
-  if$
-}
-
-
-% FUNCTION {format.title.type}
-% { title empty$
-%     { type empty$
-%         { "" }
-%         { "there's a type but no title in " cite$ * warning$
-%           type
-%         }
-%       if$
-%     }
-%     { type empty$
-%         'title
-%         { title bbl.colon * type * }
-%       if$
-%     }
-%   if$
-% }
-
-FUNCTION {format.note} {
-  note empty$
-    { new.block "" }
-    { url empty$
-      { new.block }
-      { before.all 'output.state := }
-      if$
-      note 
-    }
-  if$
-}
-
-%%%%%%%%%%%%%%%%%
-%% 著录格式: 专著
-%%%%%%%%%%%%%%%%%
-
-% 普通图书
-FUNCTION {book} { 
-  start.entry			% 开始
-
-  author empty$			% 主要责任者
-    { format.editors "author and editor" output.warn }
-    { format.authors output.nonnull }
-  if$		
-  format.book.title "title"      output.warn	   % 题名项		
-  format.translators             output		   % 其他责任者(可选)
-  format.edition                 output		   % 版本项
-  format.address.publisher.year  output.nonnull	   %
-  format.reference.date          output		   % 
-  format.url                     output		   % 获取或访问路径
-  format.note                    output		   % 备注  
-
-  fin.entry
-}
-
-% 标准
-FUNCTION {standard} { 
-  start.entry
-  
-  organization empty$		% 主要责任人
-    { format.institution "organization and institution" output.warn }
-    { format.organization output.nonnull }
-  if$
-  format.book.title "title"     output.warn    % 题名项
-  format.translators            output	       % 其他责任人
-  format.edition                output	       % 版本项
-  format.address.publisher.year output.nonnull % 出版项
-  format.url                    output	       % URL
-  format.note                   output	       % 备注项
-
-  fin.entry
-}
-
-% 学位论文 
-FUNCTION {phdthesis} {
-  start.entry
-
-  format.authors "author"    output.warn
-  format.book.title "title"  output.warn
-  format.address.school.year output
-  format.note                output
-
-  fin.entry
-}
-
-% 会议录/论文集
-FUNCTION {proceedings} { 
-  start.entry
-  
-  editor empty$
-    { organization empty$
-	{ format.institution "author, organization institution" output.warn }
-	{ format.organization output.nonnull }
-      if$
-    }
-    { format.editors output.nonnull }
-  if$
-  format.book.title "title"     output.warn
-  format.address.publisher.year output
-  format.note                   output
-
-  fin.entry
-}
-
-% 科技报告
-FUNCTION {techreport} { 
-  start.entry
-  
-  author empty$
-    { organization empty$
-	{ format.institution 
-	  "author, organization and institution" output.warn }
-	{ format.organization output.nonnull }
-      if$
-    }
-    { format.authors output.nonnull }
-  if$
-  format.techreport.title "title" output.warn
-  format.address.publisher.year   output.nonnull
-  format.url                      output
-  format.note                     output
-
-  fin.entry
-}
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% 著录格式: 专著中析出的文献
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-FUNCTION {format.collection.editors} {
-  booktitle empty$
-    { "" }
-    { after.title 'output.state :=
-      format.editors }
-  if$
-}
-FUNCTION {format.address} {
-  booktitle empty$
-    { new.block }
-    { mid.sentence 'output.state := }
-  if$
-  address empty$
-    { "" }
-    { 
-      new.block
-      address 
-    }
-  if$
-}
-
-FUNCTION {format.month.year} {
-  month empty$
-    { "" }
-    { month " " * }
-  if$
-  year empty$
-    { "There is month but no year in " cite$ * warning$ }
-    { year * }
-  if$ 
-}
-
-FUNCTION {format.year} {
-  year empty$
-    { "There is month but no year in " cite$ * warning$ }
-    { new.block
-      year " " * 
-    }
-  if$ 
-}
-
-FUNCTION {format.collection.title} {
-  booktitle empty$
-    { "" }
-    { new.block 
-      language empty$
-        {"In "}
-        {"见"}
-      if$
-      booktitle *
-%       address empty$
-% 	      { skip$ }
-% 	      { bbl.comma * address * bbl.comma * 
-% 	    month empty$
-% 	      { skip$ }
-% 	      { month * }
-% 	    if$
-% 	    year empty$
-% 	      { skip$ }
-% 	      { " " * year * }
-% 	    if$
-% 	}
-%       if$
-    }
-  if$
-}
-% 图书中析出的文献
-FUNCTION {inbook} { 
-  start.entry
-  
-  author empty$
-    { format.editors "author and editor" output.warn }
-    { format.authors output.nonnull }
-  if$
-  format.book.title "title"     output.warn
-  format.collection.editors "editor" output.warn
-  format.collection.title "booktitle" output.warn
-  format.translators            output	       % 其他责任人
-  format.edition                output	       % 版本项
-  format.address.publisher.year	output.nonnull % 出版项
-  format.pages "pages"          output.warn    %
-  format.url                    output	       % URL
-  format.note                   output	       % 备注项
-
-  fin.entry
-}
-
-%%%%%%%%%%%%%%%%%
-%% 著录格式: 专利
-%%%%%%%%%%%%%%%%%
-FUNCTION {patent} {
-  start.entry
-  
-  author empty$
-    { format.assignees "assignee" output.warn }
-    { format.authors output.nonnull }
-  if$
-  format.patent.title "title" output.warn
-  format.patent.publication output 
-  format.url output
-  format.note output
-  
-  fin.entry
-}
-
-% 电子文献更新或修改日期
-FUNCTION {format.update.date} {
-  update empty$
-    { "" }
-    { output.state mid.sentence =
-	{ before.all 'output.state := }
-	{ skip$ }
-      if$
-      "~(" update * ")" * }
-  if$
-}
-
-%%%%%%%%%%%%%%%%%%%%%
-%% 著录格式: 电子文献
-%%%%%%%%%%%%%%%%%%%%%
-FUNCTION {electronic} {
-  start.entry
-  
-  author empty$
-    { organization "author and organization" output.warn }
-    { format.authors output.nonnull }
-  if$
-  format.book.title output
-  format.electronic.publication output
-  format.update.date output
-  format.reference.date output
-  format.url output
-  format.note output
-
-  fin.entry
-}
-
-%%%%%%%%%%%%%%%%%%%%%%%
-%% 著录格式: 连续出版物
-%%%%%%%%%%%%%%%%%%%%%%%
-FUNCTION {periodical} { 
-  start.entry
-  
-  editor empty$
-    { format.organization "editors and organization" output.warn }
-    { format.editors output.nonnull }
-  if$
-  format.book.title "title" output.warn
-  format.year.volume.number output
-  format.address.publisher.year output
-  format.url output
-  format.note output
-
-  fin.entry
-}
-
-FUNCTION {format.journal.title} {
-  journal empty$
-    { "" }
-    { new.block journal }
-  if$
-}
-
-% 连续出版物中析出的文献
-FUNCTION {article}
-{ start.entry
-
-  format.authors "author" output.warn
-  format.book.title "title" output.warn
-  format.journal.title "journal" output.warn
-  format.volume.number.year.month output
-  %format.year.volume.number output
-  format.pages "pages" output.warn
-  format.reference.date output
-  format.url output
-  format.note output
-  
-  fin.entry
-}
-
-FUNCTION {booklet}
-{ start.entry
-  format.authors output
-  new.block
-  format.title "title" output.warn
-  howpublished address new.block.checkb
-  howpublished output
-  address output
-  format.date output
-  new.block
-  note output
-  fin.entry
-}
-
-FUNCTION {incollection}
-{ start.entry
-  format.authors "author" output.warn
-  new.block
-  format.ictitle "title" output.warn
-  new.block
-  crossref missing$
-    { %format.in.ed.booktitle "booktitle" output.warn
-      %format.bvolume output
-      format.in.ed.booktitle.volume "booktitle" output.warn
-      format.number.series output
-      format.chapter.pages output
-      new.sentence
-%      publisher "publisher" output.warn
-%      address output
-      format.address.publisher.year output
-      format.edition output
-      format.date ":" * format.pages * output
-      %format.date "year" output.warn
-    }
-    { format.incoll.inproc.crossref output.nonnull
-      format.chapter.pages output
-    }
-  if$
-  new.block
-  note output
-  fin.entry
-}
-
-% 论文集中析出的文献
-FUNCTION {inproceedings} { 
-  start.entry
-
-  format.authors "author" output.warn
-  format.book.title "title"  output.warn
-%  format.collection.editors "editor" output.warn
-  format.collection.title "booktitle" output.warn
-  format.address output
-%  format.month.year output
-  format.year output
-%  format.address.publisher.year	output.nonnull % 出版项
-  format.pages "pages"          output.warn    %
-%  format.url                    output	       % URL
-%  format.note                   output	       % 备注项 
-%   format.in.booktitle "booktitle" output.warn
-%       %format.bvolume output
-%       %format.number.series output
-%       %format.pages output
-%       address empty$
-% 	{ organization publisher new.sentence.checkb
-% 	  organization output
-% 	  publisher output
-% 	  %format.date "year" output.warn
-% 	  %year output
-% 	  format.date ":" * format.pages * output
-% 	}
-% 	{ %address output.nonnull
-% 	  format.address.publisher.year output  
-% 	  %format.date "year" output.warn
-% 	  % year output
-% 	  format.date ":" * format.pages * output
-% 	  new.sentence
-% 	  organization output
-% 	  %publisher output
-% 	}
-%       if$
-%       new.block
-      % pages output
-      %remove.dots
-    
-%     { format.incoll.inproc.crossref output.nonnull
-%       format.pages output
-%     }
-%   if$
-%   new.block
-%   note output  
-  fin.entry
-}
-
-FUNCTION {manual}
-{ start.entry
-  author empty$
-    { organization empty$
-    'skip$
-    { organization output.nonnull
-      address output
-    }
-      if$
-    }
-    { format.authors output.nonnull }
-  if$
-  new.block
-  format.book.title "title" output.warn
-  author empty$
-    { organization empty$
-    { address new.block.checka
-      address output
-    }
-    'skip$
-      if$
-    }
-    { organization address new.block.checkb
-      organization output
-      address output
-    }
-  if$
-  format.edition output
-  format.date output
-  new.block
-  note output
-  fin.entry
-}
-
-FUNCTION {thesis.type}
-{ 
-%"~[D]" 
- language empty$
-     { "[Dissertation]" }
-     { "[学位论文]" }
-   if$
-}
-
-FUNCTION {masterthesis}
- { start.entry
-   format.authors "author" add.period$ output.warn
-   new.block
-   format.title remove.dots " " * thesis.type * output
-   new.block
-   %format.address.school output
-   %address output
-   school "school" output.warn  
-   format.date "year" output.warn
-   new.block
-   %note output
-   fin.entry
- }
-
-%FUNCTION {phdthesis}
- %{ start.entry
-  % format.authors "author" add.period$ output.warn
-   %new.block
-   %format.title remove.dots " " * thesis.type * output
-   %new.block
-   %format.address.school output
-   %%address output
-   %school "school" output.warn  
-   %format.date "year" output.warn
-   %new.block
-   %%note output
-   %fin.entry
- %}
-
-FUNCTION {misc}
-{ start.entry
-
-  format.authors output
-%  title howpublished new.block.checkb
-  format.title output
-%  howpublished new.block.checka
-%  howpublished output
-%  format.date output
-  format.address output
-  format.month.year output
-  format.pages "pages" output.warn
-  format.url output
-%  new.block
-  format.note output
-  fin.entry
-%  empty.misc.check
-}
-
-
-FUNCTION {unpublished}
-{ start.entry
-  format.authors "author" output.warn
-  new.block
-  format.title "title" output.warn
-  new.block
-  note "note" output.warn
-  format.date output
-  fin.entry
-}
-
-% 专用控制条目 BUPTThesisBSTCTL 用于提供方便的用户设置接口
-FUNCTION {BUPTThesisBSTCTL}{
-  is.print.banners.to.terminal
-    { "** BUPTThesis BST control entry " quote$ * cite$ * 
-      quote$ * " detected." *
-      top$
-    }
-    { skip$ }
-  if$
-%   CTLuse_article_number
-%   empty$
-%     { skip$ }
-%     { CTLuse_article_number
-%       yes.no.to.int
-%       'is.use.number.for.article :=
-%     }
-%   if$
-%   CTLuse_paper
-%   empty$
-%     { skip$ }
-%     { CTLuse_paper
-%       yes.no.to.int
-%       'is.use.paper :=
-%     }
-%   if$
-%   CTLuse_forced_etal
-%   empty$
-%     { skip$ }
-%     { CTLuse_forced_etal
-%       yes.no.to.int
-%       'is.forced.et.al :=
-%     }
-%   if$
-  % 显示作者数目
-  CTLmax_names_forced_etal
-  empty$
-    { skip$ }
-    { CTLmax_names_forced_etal
-      string.to.integer
-      'max.num.names.before.forced.et.al :=
-    }
-  if$
-  % 论文作者英文姓名
-  CTLauthor_name_english
-  empty$
-    { skip$ }
-    { CTLauthor_name_english 
-      'author.name.in.english := 
-      % #1 'is.for.peer.review := 
-%      "CTLauthor_name_english=" author.name.in.english * debug.output
-    }
-  if$
-  % 论文作者中文姓名
-  CTLauthor_name_chinese
-  empty$
-    { skip$ }
-    { CTLauthor_name_chinese
-      'author.name.in.chinese := 
-      % #1 'is.for.peer.review :=
-%      "CTLauthor_name_chinese=" author.name.in.chinese * debug.output
-    }
-  if$
-  CTLfor_peer_review
-  empty$
-    { skip$ }
-    { CTLfor_peer_review
-      yes.no.to.int
-      'is.for.peer.review :=
-    }
-  if$
-%   CTLnames_show_etal
-%   empty$
-%     { skip$ }
-%     { CTLnames_show_etal
-%       string.to.integer
-%       'num.names.shown.with.forced.et.al :=
-%     }
-%   if$
-%   CTLuse_alt_spacing
-%   empty$
-%     { skip$ }
-%     { CTLuse_alt_spacing
-%       yes.no.to.int
-%       'is.use.alt.interword.spacing :=
-%     }
-%   if$
-%   CTLalt_stretch_factor
-%   empty$
-%     { skip$ }
-%     { CTLalt_stretch_factor
-%       'ALTinterwordstretchfactor :=
-%       "\renewcommand{\BIBentryALTinterwordstretchfactor}{"
-%       ALTinterwordstretchfactor * "}" *
-%       write$ newline$
-%     }
-%   if$
-%   CTLdash_repeated_names
-%   empty$
-%     { skip$ }
-%     { CTLdash_repeated_names
-%       yes.no.to.int
-%       'is.dash.repeated.names :=
-%     }
-%  if$
-%   CTLname_emph_author_en	% 强调显示的作者英文姓名
-%   empty$
-%     { skip$ }			% 若没有给出则跳过
-%     { CTLname_emph_author_en
-%       'name.emph.author.en :=	% 否则更新 name.emph.author.en
-%     }
-%   if$
-%   CTLname_emph_author_zh	% 强调显示的作者中文姓名
-%   empty$
-%     { skip$ }			% 若没有给出则跳过
-%     { CTLname_emph_author_zh
-%       'name.emph.author.zh :=	% 否则更新 name.emph.author.zh
-%     }
-%   if$
-  CTLname_format_string		% 英文姓名排版格式字符串
-  empty$
-    { skip$ }			% 若没有自定义则跳过
-    { CTLname_format_string	% 否则更新 name.format.string
-      'name.format.string :=
-    }
-  if$
-%   CTLname_latex_cmd
-%   empty$
-%     { skip$ }
-%     { CTLname_latex_cmd
-%       'name.latex.cmd :=
-%     }
-%   if$
-%   CTLname_url_prefix
-%   missing$
-%     { skip$ }
-%     { CTLname_url_prefix
-%       'name.url.prefix :=
-%     }
-%   if$
-
-
-%   num.names.shown.with.forced.et.al max.num.names.before.forced.et.al >
-%     { "CTLnames_show_etal cannot be greater than CTLmax_names_forced_etal in " cite$ * warning$ 
-%       max.num.names.before.forced.et.al 'num.names.shown.with.forced.et.al :=
-%     }
-%     { skip$ }
-%   if$
-}
-
-%%%%%%%%%%%%
-%% 条目别名
-%%%%%%%%%%%%
-%FUNCTION {phdthesis} {thesis}
-%FUNCTION {masterthesis} {thesis}
-FUNCTION {conference}    {inproceedings}
-FUNCTION {online}        {electronic}
-FUNCTION {internet}      {electronic}
-FUNCTION {webpage}       {electronic}
-FUNCTION {www}           {electronic}
-FUNCTION {default.type}  {misc}
-
-
-%%%%%%%%%%
-%% 主程序
-%%%%%%%%%%
-
-READ
-
-EXECUTE {initialize.controls}	      % 初始化控制变量
-EXECUTE {initialize.status.constants} % 初始化状态常量
-EXECUTE {banner.message}	      % 显示初始提示信息
-
-EXECUTE {initialize.longest.label}    % 初始化最长的标号
-ITERATE {longest.label.pass}	      % 处理最长的标号
-
-EXECUTE {begin.bib}	              % 开始
-ITERATE {call.type$}		      %
-EXECUTE {end.bib}		      % 结束
-
-EXECUTE {completed.message}	      % 显示完成提示信息
-
-%% EOF
diff --git a/Proposal/BUPTBachelor.bst b/Proposal/BUPTBachelor.bst
new file mode 120000
index 0000000..ed90ad8
--- /dev/null
+++ b/Proposal/BUPTBachelor.bst
@@ -0,0 +1 @@
+../BUPTBachelor.bst
\ No newline at end of file