% ASME Transactions bibliography style (25-Aug-03 version) % Adapted from parts of unsrt, acm, and apalike, but: % Author names come out "Last, initials" as in acm and apalike; % Author name(s) are in \rm like apalike, not \sc as in acm; % Year follows name(s) of author(s) as in apalike, but not inside parentheses; % Periodical volume number is in \bf; % Periodical number is inside parentheses as in unsrt; % Pages use pp as in acm. % % History % 2/ 6/86 (HWT) Original `acm' version, by Howard Trickey. % 3/ 5/86 (HWT) Put in pp. everywhere but articles, as per ACM style. % 1/24/88 (OP&HWT) Updated for BibTeX version 0.99a, Oren Patashnik; % corrected the abbreviations to "Mar." and "Sept."; % SINCE THE `acm' VERSION ON WHICH THIS 'asmems4' % version WAS BASED DOES NOT WORK WITH BIBTEX 0.98i, % DON"T EXPECT 'asmems4' TO WORK WITH % BIBTEX 0.98i EITHER. % 1/1/03 (GRS) `acm' blended with 'unsrt' and 'apalike' to create % 'asmems4' % 8/25/03 (GRS) removed brackets surrounding month in article citations % 1/9/05 (GRS) modified article to: % remove space between volume and (number) % adjust spaces and commas for all number/month combinations % ensure journal is always italicized % put Thesis Title within quotes instead of italics % modified proceedings and inproceedings to % capitalize Vol. % uncapitalize ed. and eds. ENTRY { 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 = { add.period$ 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$ } % asmems4 uses this function to % put the year after the author(s); % asmems4 ignores the month FUNCTION {output.year.check} { year empty$ { "empty year in " cite$ * warning$ } { write$ ", " year * "." * mid.sentence 'output.state := } if$ } FUNCTION {output.bibitem} { newline$ "\bibitem{" write$ cite$ write$ "}" write$ newline$ "" before.all 'output.state := } FUNCTION {fin.entry} { add.period$ write$ 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 {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 {field.or.null} { duplicate$ empty$ { pop$ "" } 'skip$ if$ } FUNCTION {emphasize} { duplicate$ empty$ { pop$ "" } { "{\em " swap$ * "}" * } if$ } FUNCTION {emphasizeic} { duplicate$ empty$ { pop$ "" } { "{\em " swap$ * "\/}" * } if$ } FUNCTION {scapify} { duplicate$ empty$ { pop$ "" } { "{\sc " swap$ * "}" * } if$ } % asmems4 uses this function to % put quotes around the title % of an article as required by ASME FUNCTION {inquotes} { duplicate$ empty$ { pop$ "" } { "``" swap$ * "''" * } if$ } INTEGERS { nameptr namesleft numnames } FUNCTION {format.names} { 's := #1 'nameptr := s num.names$ 'numnames := numnames 'namesleft := { namesleft #0 > } { s nameptr "{vv~}{ll}{, jj}{, f.}" format.name$ 't := % last name first nameptr #1 > { namesleft #1 > { ", " * t * } { t "others" = { ", et~al." * } { ", and " * t * } if$ } if$ } 't if$ nameptr #1 + 'nameptr := namesleft #1 - 'namesleft := } while$ } % For names inside entries (e.g., editors of an "In ..."); % this is a copy of ABBRV.BST's `format.names' function % renamed to 'format.innames'. FUNCTION {format.innames} { 's := #1 'nameptr := s num.names$ 'numnames := numnames 'namesleft := { namesleft #0 > } { s nameptr "{f.~}{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 scapify } % ASME doesn't want names scapified, { author format.names } % so don't. if$ } FUNCTION {format.key} % this function came to asmems4 from apalike { empty$ { key field.or.null } { "" } if$ } FUNCTION {format.editors} { editor empty$ { "" } % { editor format.names scapify % ASME doesn't want names scapified, { editor format.names % so don't. editor num.names$ #1 > % { ", Eds." * } % { ", Ed." * } { ", eds." * } % ASME wants ed./eds instead of Ed./Eds. { ", ed." * } if$ } if$ } FUNCTION {format.ineditors} { editor empty$ { "" } { editor format.innames editor num.names$ #1 > % { ", Eds." * } % { ", Ed." * } { ", eds." * } % ASME wants ed./eds instead of Ed./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 % ASME wants the year after the author % { month " " * year * } % rather than here so { "" } % print nothing if month is empty { month } % or just the month if month is full. if$ } 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 * { "Vol.~" volume * % ASME wants Vol. instead of vol. 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 = { "no.~" } { "No.~" } if$ number * 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$ "~ed." * } { edition "t" change.case$ "~ed." * } if$ } if$ } FUNCTION {format.pages} { pages empty$ { "" } { pages n.dashify } 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.pp.pages} { pages empty$ { "" } { pages multi.page.check { "pp.~" pages n.dashify * } { "p.~" pages * } if$ } if$ } FUNCTION {format.journal.vol.num.date} { journal empty$ { "empty journal in " cite$ * warning$ "" } { journal volume empty$ 'skip$ { ", {\bf " * volume * "}" * } % asme wants volume in \bf if$ number empty$ { month empty$ { emphasize "" * } { emphasize ", " * format.date * } if$ } { month empty$ { emphasize "(" * number * ")" * } { emphasize "(" * number * "), " * format.date * } if$ } if$ %end of number empty } % end of journal if$ % end of journal empty$ } FUNCTION {format.chapter.pages} { chapter empty$ 'format.pp.pages { type empty$ { "ch.~" chapter * } { type "l" change.case$ chapter tie.or.space.connect } if$ pages empty$ 'skip$ { ", " * format.pp.pages * } if$ } if$ } %FUNCTION {format.pages.chapter} % This function isn't implemented as of 1/9/2005 % It's still a copy of format.chapter.pages %{ chapter empty$ % 'format.pp.pages % { type empty$ % { "ch.~" chapter * } % { type "l" change.case$ chapter tie.or.space.connect } % if$ % pages empty$ % 'skip$ % { ", " * format.pp.pages * } % if$ % } % if$ %} FUNCTION {format.in.ed.booktitle} { booktitle empty$ { "" } { "In " booktitle emphasize * editor empty$ 'skip$ { ", " * format.ineditors * } if$ } if$ } % Proceedings titles don't have an (address, date) appended in ASME % bibliographies so forget the following function. % The proceedings title (it's on the stack) gets an (address, date) appended %FUNCTION {format.proc.date} %{ duplicate$ empty$ % { pop$ "" } % { year empty$ % { "empty year in " cite$ * warning$ % address empty$ % 'emphasize % { emphasizeic % " (" * address * ")" * % } % if$ % } % { emphasizeic % " (" * % address empty$ % 'skip$ % { address * ", " * } % if$ % format.date * % ")" * % } % if$ % } % if$ %} FUNCTION {format.in.proc.date} { booktitle empty$ { "" } % { "In " booktitle format.proc.date * } % ASME doesn't want the date { "In " booktitle * } % here so leave it out if$ } FUNCTION {empty.misc.check} { author empty$ title empty$ howpublished empty$ month empty$ year empty$ note empty$ and and and and and key empty$ not 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$ { "Tech. Rep." } '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 "{vv~}{ll}" format.name$ editor num.names$ duplicate$ #2 > { pop$ " et~al." * } { #2 < 'skip$ { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" = { " et~al." * } { " and " * editor #2 "{vv~}{ll}" format.PTLp`O|wFo|1*(2(MF;+714} 9j Ms 2h_7-. Txt2뚻}Fn}%/Wl{ѷaP1tM:W;M0=qBJA=~x`w.elM|2ɠ @W-@C$fn"`NcJ *$Tq*vcgz^jSj+M''ZӮ^U{Z:zw?qo5h*vtƗGj׶Q`q}q 9i~|hyc V٩@O &S+|p5r Z+Jfw'˥wʮr1@8Pu1 nr>S/" iFr U:5zJqVMW})kf8XrF£N |A횆 )n_lہ]V*}3:xzgNJ=U!,>.=1.4qƴ4 i q7j*PcM\JV!w4#Z"@1sU˯߉ Ѝ,Y0+]i]Z mJ!$|Yt2 ($oJ~\)]ҿ-Rwǝʭ~fLï^4TVu1PTڂV#,v2Z׮Lr{W +J?7TӦ]OR>YG~& zSjqw7`>*27i+MiMT @nBQd=N%(;r[~'ŁH ZT|B1Uu$c Ub>3r>yj *bhŘGO|X7G!רU54rodVb}Jl2wq |cx>xŷj*[p 53.R9 |2GfZVv< Nb=<2|MzW6M Q+ČvƀAۦ'1or38QY<;e2r;1oP׹p[`iI;.8l)Jw IeW~8=:_NZ Vޝ2ݩ_׍V䵥NZnW ,0$1Ю)E+ֽOJcEZwme9sL*|OolD#nӥ1jF1E$ 򙊱cڟ-d&2`jv'lZq8VF&tYD,ƿv<a9'aA?< тcc)"(r+]oS[,zfAiZ픊VUw6`zcSLЁߕOW(ƫW}ܿPۜ=A:ejQ2~E?h_j3NS1E ~j}#$gIj8Ө8ң.Tl{鍦\^%zv$mr$vLwMWf=v̍Tedʂ4ATw0H; Y E7O^M79`0>9b+x j:fєծƛe cI;ei2QQ\kSfjPx-+]6Hr|)|g5z>vLT2խrޤ9lv t!|OiN=GAԖ?Hl[3r:gyXPz晑$')DHzHaV~]͐ ŖEYjH۶\R>%N*QzuNYT/^D6"ڸB7ŽGfpM(<1PpGҝx Xn.Pr;S2@x GLx~@(N̏ȅ~/jE>a:nqEߩƕ$N+GV6zwwZb-NeeF*&0T}҇_zbddžlyG/(uʭzAv;S`L2BuS\TSqT=O݊Evr*;X `>"jO-MT0횵2{<19`(tP fB,t%WxwnU76cۓk(lp%ZPS,6fe2"ܜus|wfNU)Lqj#55 #ttB&'jf q9XP,7Le=U  publisher "publisher" output.check address output % format.date "year" output.check % don't check for year here because format.date output % ASME puts year after author(s) } { format.incoll.inproc.crossref output.nonnull } if$ format.chapter.pages output new.block note output fin.entry } FUNCTION {inproceedings} { output.bibitem format.authors "author" output.check author format.key output % ASME puts year output.year.check % after author(s) new.block format.title "title" output.check inquotes % enclose title within quotes new.block crossref missing$ { format.in.proc.date "booktitle" output.check format.ineditors output format.bvolume output format.number.series output organization output publisher output } { format.incoll.inproc.crossref output.nonnull } if$ format.pp.pages output new.block note output fin.entry } FUNCTION {conference} { inproceedings } FUNCTION {manual} { output.bibitem author empty$ { organization scapify output } { format.authors output.nonnull } if$ author format.key output % ASME puts year output.year.check % after author(s) new.block format.btitle "title" output.check format.edition output author empty$ { address new.block.checka } { organization address new.block.checkb organization output } if$ address output format.date output new.block note output fin.entry } FUNCTION {mastersthesis} { output.bibitem format.authors "author" output.check author format.key output % ASME puts year output.year.check % after author(s) new.block % format.title "title" output.check format.title "title" output.check inquotes % ASME wants title within quotes new.block "Master's thesis" format.thesis.type output.nonnull school "school" output.check address output % format.date "year" output.check % don't check for year here because format.date output % ASME puts year after author(s) new.block note output fin.entry } FUNCTION {misc} { output.bibitem format.authors output author format.key output % ASME puts year output.year.check % after author(s) title howpublished new.block.checkb format.title output howpublished new.block.checka howpublished output format.date output new.block note output fin.entry empty.misc.check } FUNCTION {phdthesis} { output.bibitem format.authors "author" output.check author format.key output % ASME puts year output.year.check % after author(s) new.block % format.btitle "title" output.check format.title "title" output.check inquotes % ASME wants title within quotes new.block "PhD thesis" format.thesis.type output.nonnull school "school" output.check address output % format.date "year" output.check % don't check for year here because format.date output % ASME puts year after author(s) new.block note output fin.entry } FUNCTION {proceedings} { output.bibitem editor empty$ { organization scapify output } { format.editors output.nonnull } if$ author format.key output % ASME puts year output.year.check % after author(s) new.block % title format.proc.date "title" output.check % ASME doesn't want date here title "title" output.check % so leave out the date part format.bvolume output format.number.series output editor empty$ 'skip$ { organization output } if$ publisher output new.block note output fin.entry } FUNCTION {techreport} { output.bibitem format.authors "author" output.check author format.key output % ASME puts year output.year.check % after author(s) new.block format.title "title" output.check new.block format.tr.number output.nonnull institution "institution" output.check address output % format.date "year" output.check % don't check for year here because format.date output % ASME puts year after uzB-k΢;̏6̄!h IzU|>a j㑉 rlkTcR V7qT:c_<^QTƫ,Ԧr폯Pƃ0vlwNSI;目bJD 7*N] 8ƫ_Fejw ~W^yG5wSvڸiJCQc$%Fs.q^|2ɦa2 CC\7<:e61rʂ~/,(]W1hzc9>'~em1 (i-aKPcaUA#\NQ^{cz<Ǵ+#JA]HA (L{I=Tp~]1D/lG'T4Oӎz{N(;m?!fZiؑ8(&XA5'ӭZ~lTm㤒A"{Cڛej5aYjЏ|kź+->Z~,#&`jDW&Ҩ&6wU%7jVr(AߨZy w^"rJ2j|q9u)!Q܂{w4rp kޝ>PL fIM-n#Y?ʘ1VTKV"~F4M$:lE60"ClՏoKD޸4l)5|0P2ĄZ+qAڂbI)ژ)Z;{ +C>8 ZW_*;;T:`8iA.ō v$.!;퀍*=;v I'5{iM8PN4RV!(;lz-&=NoTQCڟ17#*Kn4KSq \].zMhs6Y .A#<|MrM`u'8#Ƌ7L ҈T|N(nt Gl|N5ZGRE? U;RljLhyP㹇4_bqg L3( V5%ʊHj5XކJy& n< cb,N Y7FxNQE1儜'oOY&zlbܖ""6#o/uoH^r9v1)ghHĚ*v=9hOw 0^}qB $7@QUO\l7QWQ;kJ/Trަu!6/t 5b!˰"빯) I:ҕ>صN4^勼-“w1rPW$ }8m bWqS: ,zS܊lH$W30"d MiOlc|;`v[Vkr x㾲"4>-:tV~^aBN?9h:>X@ WoׂrQw`fNçє  cQ\]bLF )$\|1;i0YƖk!6;Txf0ljT)rC4錎 Qz)0-^[X 1P;}eDO.X#a}qNLJJS?7EOWm9u(VA%u. ]+"iAW#XSȅ@|iI?en`/Ҹ,R5%Zn4>x GQR;&HW;׶XnrO퍎feNTW*B73^r]Qȁ=Hf'?~)jPOC${uSG;7cLP!Z&ߎۑƕeH~%pPi-ڶu8Y+t\V7r1C:2 >*IxljnĚ#b`wJuYyZu_4ί˪v4>ؤo53<@9Qܜ_m',O|IeVn\hToQ*Ӑ;1p ֕(OAN1&H P12V;o~'{?r*~*uFy0b/mA޾;gvRzm<:7BU)|r (1h̕QXŅvt`'ABRTP qSM('aP|z"hv?NTؑN8_l'=EO%4ꬻSp0D7},C ;Cquw;fIFdw8ԛC3;L)^c^rRɵ*H仍AriArO.lg]k`(zB=(eYhTP&%wPӯlQ"`GC^An:W[/V=~x@Ov: -QՈڕ}rͪE~xg2FcĞcz!|ll ~&9n/#N7?Nk.GɠT{ҷt$løGrVWIiZxO;+qmȩ|F &h Y"Ƌˈ 5iOsHsf'LTDZ'8$Pb&q,lOZmcrH܎EY`?$.F)_ v1Yf/өm+(}ذV??34w$xlL 6N䎀$WZe8W?~ G,>*e4mJwMVeOZnFYM)gTTr=feBJד7X0 fHBЃ3/ lU8P8=8#) s ʊZʊ~Cq_7*N'xuOlRKcVdo6;ی01!A58UU߰5$ֽpxt 8$IaPj`dWcMYB8e;;P=ȉCva4˶\H+kwIH*iLm0,XWf+".IZ R}-r:z)-v#YQ'@O }T!h>X1TzS$75Uh"сo^lBN*ޘ`ħ(Pjg"%F*o A=1S(?4ĞN ŷ428~xPWm@69`p+LБ]@8]̬hQ~;R[1/TGĦfzeu,$5%툳6Ǯ)q>|1BPWsߌCUO#쎟<Xi\o u<}7P/Tt8K(QҤr~'Hʲ!2ֵ,NlgfP >P~Tsݾy+?n l/.@PrnǤs|۩W41E7ƫPqzoڵIlTu5ޭU yoZS.je .G@i.)qNe58%AwLJWP{T fNC|)]ʨh>,dUWcn$1Sbr؝ {e\`}AZiCW|}j7٫77/)GTI %R||.er!և 1=01ٲ^yZf8SlwMPc POS͕myn y$KmLPoCw95P-i*J*ѱDRa38){~٦F۠ ЗeF۱N|q$:xeը{ kק/@K>ۂRiřh;RCf܂Evc$B~,)\  | *}Θm Ǧ ?emj ]|N0-yH2=' Qˠ(R|1HB*q: RF['2" jӮ;Y@9N?4\S64ڃlhyw=qq2'Lx͚$BJₔJENXYjI+]͔Fc"9j)Ӿ]7ƨZ5rLٺ ErNT ^a,jȢrS as۠1$W]`uT~Yg7Li/޾*8`r=Ra.aAw8