source: libros/maquetacion/libros_cenditel.cls @ 22341eb

revisionfinal
Last change on this file since 22341eb was e687b16, checked in by cualquiera <cualquiera@…>, 10 years ago

Actualizacion conceptos basicos

  • Property mode set to 100755
File size: 64.4 KB
Line 
1\usepackage[utf8]{inputenc}
2\def\currversion{Abr 01, 2014}
3%% libros_cenditel.cls
4  %****************************************************************%
5  %*                                                              *%
6  %*     Preparado por Rodolfo Sumoza.                            *%
7  %*     Basado en la plantilla para libros wileysix.cls          *%
8  %*     Fundación CENDITEL                                       *%
9  %*     MPPCTI                                                   *%
10  %*                                                              *%
11  %*                                                              *%
12  %****************************************************************%
13
14  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15  %% Contenido de la macro:
16  %% Dimensiones
17  %% Parámetros Globales
18  %% Listas
19  %% Páginas de Título, Prefacio, Introducción
20  %% Comandos de Partes, Capítulos, y Apéndices
21  %% Contadores
22  %% Nombres a nivel de encabezado
23  %% Comandos de Sección
24  %% Verso, Espacios, Extracción
25  %% Matemáticas
26  %% Títulos de Figuras y Tablas 
27  %% Tabla de Contenidos, Listas de Figuras, LOT
28  %% Bibliografía, Referencias
29  %% Pie de páginas
30  %% Encabezados
31  %% Tipos de letra para lugares específicos
32  %% Algoritmos
33  %% Glosario
34  %% Índice
35  %% Índices Múltiples
36  %% Líneas de borrador
37  %% Problemas propuestos
38  %% Ejercicios
39  %% Soluciones
40  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
41
42
43\typeout{^^J^^J
44Estilo de libro Fundación CENDITEL, Diseño No.: AA 0001A^^J
45^^J
46Escrito por Rodolfo L. Sumoza Matos, Fundación CENDITEL.^^J
47^^J
48Fecha de la versión: \currversion^^J^^J}
49
50
51
52\expandafter\ifx\csname mathunderscore\endcsname\relax
53\def\mathunderscore{\leavevmode\kern.06em\vbox{\hrule width.3em}}
54\def\mathellipsis{\mbox {$\m@th{\,.\,.\,.}\,$}}\fi
55\global\newdimen\phspace
56
57\parindent=1pc
58\parskip=0pt %se agrega .1pt
59
60%% para hacer el tamaño 6 1/8 por 9 1/4
61\textheight=45pc \textwidth=28pc
62
63\topmargin.75in
64\headheight 12pt
65\headsep 18pt
66\topskip  10pt
67\footskip 18pt
68
69\columnsep 10pt
70\columnseprule 0pt
71
72\footnotesep 6.65pt
73\skip\footins 18pt
74
75\floatsep 12pt plus 2pt minus 2pt
76\textfloatsep 20pt plus 2pt minus 4pt
77\intextsep 12pt plus 2pt minus 2pt
78
79\dblfloatsep 12pt plus 2pt minus 2pt
80\dbltextfloatsep 20pt plus 2pt minus 4pt
81
82\@fptop 0pt plus 1fil
83\@fpsep 8pt plus 2fil
84\@fpbot 0pt plus 1fil
85\@dblfptop 0pt plus 1fil
86\@dblfpsep 8pt plus 2fil
87\@dblfpbot 0pt plus 1fil
88
89\maxdepth=4pt %%
90
91\oddsidemargin-18pt
92\advance\oddsidemargin-.5in
93\evensidemargin-6pt
94\oddsidemargin=0pt
95
96\advance\oddsidemargin-.5in
97\evensidemargin=0pt
98\advance\evensidemargin-.5in
99\marginparwidth .75in
100
101\if@twocolumn
102 \setlength\marginparsep {10\p@}
103\else
104  \setlength\marginparsep{7\p@}
105\fi
106\setlength\marginparpush{5\p@}
107
108\setlength\partopsep{2\p@ \@plus 1\p@ \@minus 1\p@}
109
110%%%
111\setcounter{topnumber}{10}
112\def\topfraction{.9}
113\setcounter{bottomnumber}{10}
114\def\bottomfraction{.9}
115\setcounter{totalnumber}{20}
116\def\textfraction{.1}
117\def\floatpagefraction{.5}
118\setcounter{dbltopnumber}{2}
119\def\dbltopfraction{.7}
120\def\dblfloatpagefraction{.5}
121%%%
122
123\setlength\arraycolsep{5\p@}
124\tabcolsep 6pt
125
126\setlength\arrayrulewidth{.4\p@}
127\setlength\doublerulesep{2\p@}
128\setlength\tabbingsep{\labelsep}
129\skip\@mpfootins = \skip\footins
130\setlength\fboxsep{3\p@}
131\setlength\fboxrule{.4\p@}
132
133\setlength\columnsep{10\p@}
134\setlength\columnseprule{0\p@}
135
136%%%%%%%%%%%%%%% <<== final de las dimensiones
137
138%%% Parámetros globales ==>>
139
140\setcounter{secnumdepth}{3}
141\setcounter{tocdepth}{2}
142
143%% Diferenciar la posición izquierda y derecha de las páginas.
144\@twosidetrue  \@mparswitchtrue
145\@twocolumnfalse
146
147\newif\if@openbib
148\@openbibfalse
149\newif\if@openright
150\newif\if@mainmatter
151\newif\if@restonecol
152\newif\if@titlepage
153\newif\ifdraft
154
155%% Iniciar un nuevo capítulo en el lado derecho
156\newif\if@openright
157\@openrighttrue
158
159
160\newcommand{\contentsname}{CONTENIDOS}
161\newcommand{\listfigurename}{Lista de Figuras}
162\newcommand{\listtablename}{Lista de Tablas}
163\newcommand{\bibname}{Bibliografía}
164\newcommand{\indexname}{ÍNDICE}
165\newcommand{\figurename}{Figura}
166\newcommand{\tablename}{Tabla}
167\newcommand{\partname}{PARTE}
168\newcommand{\chaptername}{Capítulo}
169\newcommand{\appendixname}{Apéndice}
170
171%%% <== Fin de Parámetros globales
172
173\ProcessOptions
174
175
176\NeedsTeXFormat{LaTeX2e}
177
178\newcommand{\@ptsize}{}
179
180\renewcommand{\normalsize}{%
181\ifdraft
182   \@setfontsize\normalsize\@xpt\@xviipt
183\else
184   \@setfontsize\normalsize\@xpt\@xiipt
185\fi
186   \abovedisplayskip 10\p@ \@plus2\p@ \@minus5\p@
187   \abovedisplayshortskip \z@ \@plus3\p@
188   \belowdisplayshortskip 6\p@ \@plus3\p@ \@minus3\p@
189   \belowdisplayskip \abovedisplayskip
190   \let\@listi\@listI}
191\normalsize
192\newcommand{\small}{%
193\ifdraft
194   \@setfontsize\small\@ixpt{17}%
195\else
196   \@setfontsize\small\@ixpt{11}%
197\fi
198   \abovedisplayskip 8.5\p@ %\@plus3\p@ \@minus4\p@
199   \abovedisplayshortskip \z@ %\@plus2\p@
200   \belowdisplayshortskip 4\p@ %\@plus2\p@ \@minus2\p@
201   \def\@listi{\leftmargin\leftmargini
202               \topsep 4\p@ \@plus2\p@ \@minus2\p@
203               \parsep 2\p@ \@plus\p@ \@minus\p@
204               \itemsep \parsep}%
205   \belowdisplayskip \abovedisplayskip
206}
207\newcommand{\footnotesize}{%
208\ifdraft
209   \@setfontsize\footnotesize\@viiipt{17}%
210\else
211   \@setfontsize\footnotesize\@viiipt{9.5}%
212\fi
213   \abovedisplayskip 6\p@ %\@plus2\p@ \@minus4\p@
214   \abovedisplayshortskip \z@ %\@plus\p@
215   \belowdisplayshortskip 3\p@ %\@plus\p@ \@minus2\p@
216   \def\@listi{\leftmargin\leftmargini
217               \topsep 3\p@ \@plus\p@ \@minus\p@
218               \parsep 2\p@ \@plus\p@ \@minus\p@
219               \itemsep \parsep}%
220   \belowdisplayskip \abovedisplayskip
221}
222\newcommand{\xscriptsize}{\@setfontsize\scriptsize\@vipt\@viipt}
223\newcommand{\scriptsize}{\@setfontsize\scriptsize\@viipt\@viiipt}
224\newcommand{\tiny}{\@setfontsize\tiny\@vpt\@vipt}
225\newcommand{\large}{\@setfontsize\large\@xiipt{14}}
226\newcommand{\Large}{\@setfontsize\Large\@xivpt{18}}
227\newcommand{\LARGE}{\@setfontsize\LARGE\@xviipt{22}}
228\newcommand{\huge}{\@setfontsize\huge\@xxpt{25}}
229\newcommand{\Huge}{\@setfontsize\Huge\@xxvpt{30}}
230
231
232\@maxdepth\maxdepth
233\DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm}
234\DeclareOldFontCommand{\sf}{\normalfont\sffamily}{\mathsf}
235\DeclareOldFontCommand{\tt}{\normalfont\ttfamily}{\mathtt}
236\DeclareOldFontCommand{\bf}{\normalfont\bfseries}{\mathbf}
237\DeclareOldFontCommand{\it}{\normalfont\itshape}{\mathit}
238\DeclareOldFontCommand{\sl}{\normalfont\slshape}{\@nomath\sl}
239\DeclareOldFontCommand{\sc}{\normalfont\scshape}{\@nomath\sc}
240\DeclareRobustCommand{\cal}{\@fontswitch{\relax}{\mathcal}}
241\DeclareRobustCommand{\mit}{\@fontswitch{\relax}{\mathnormal}}
242
243
244\lineskip 1pt
245\normallineskip 1pt
246\def\baselinestretch{1}
247
248\normalsize
249%% <<== Fin de información sobre fuentes
250
251
252%% Listas ==>>
253
254\leftmargini 20pt
255\leftmarginii 15pt
256\leftmarginiii 36pt
257\leftmarginiv 17pt
258\leftmarginv 10pt
259\leftmarginvi 10pt
260
261\def\@listI{\leftmargin\leftmargini
262            \parsep 4\p@ \@plus2\p@ \@minus\p@
263            \topsep 8\p@ \@plus2\p@ \@minus4\p@
264            \itemsep4\p@ \@plus2\p@ \@minus\p@}
265\let\@listi\@listI
266\@listi
267\def\@listii {\leftmargin\leftmarginii
268              \labelwidth\leftmarginii
269              \advance\labelwidth-\labelsep
270              \topsep    4\p@ \@plus2\p@ \@minus\p@
271              \parsep    2\p@ \@plus\p\@minus\p@
272              \itemsep   \parsep}
273\def\@listiii{\leftmargin\leftmarginiii
274              \labelwidth\leftmarginiii
275              \advance\labelwidth-\labelsep
276              \topsep    2\p@ \@plus\p@\@minus\p@
277              \parsep    \z@
278              \partopsep \p@ \@plus\z@ \@minus\p@
279              \itemsep   \topsep}
280\def\@listiv {\leftmargin\leftmarginiv
281              \labelwidth\leftmarginiv
282              \advance\labelwidth-\labelsep}
283\def\@listv  {\leftmargin\leftmarginv
284              \labelwidth\leftmarginv
285              \advance\labelwidth-\labelsep}
286\def\@listvi {\leftmargin\leftmarginvi
287              \labelwidth\leftmarginvi
288              \advance\labelwidth-\labelsep}
289
290
291
292\leftmargin\leftmargini
293\labelsep 5pt
294\labelwidth\leftmargini\advance\labelwidth-\labelsep
295
296
297\setlength  \labelwidth{\leftmargini}
298\addtolength\labelwidth{-\labelsep}
299
300\@beginparpenalty -\@lowpenalty
301\@endparpenalty   -\@lowpenalty
302\@itempenalty     -\@lowpenalty
303
304\renewcommand{\theenumi}{\arabic{enumi}}
305\renewcommand{\theenumii}{\alph{enumii}}
306\renewcommand{\theenumiii}{\roman{enumiii}}
307\renewcommand{\theenumiv}{\Alph{enumiv}}
308\newcommand{\labelenumi}{\theenumi.}
309\newcommand{\labelenumii}{(\theenumii)}
310\newcommand{\labelenumiii}{\theenumiii.}
311\newcommand{\labelenumiv}{\theenumiv.}
312\renewcommand{\p@enumii}{\theenumi}
313\renewcommand{\p@enumiii}{\theenumi(\theenumii)}
314\renewcommand{\p@enumiv}{\p@enumiii\theenumiii}
315\def\sqbullet{\raise2pt\hbox{\vrule width 2.5pt depth0pt height 2.5pt}}
316\newcommand{\labelitemi}{\sqbullet}
317%\newcommand{\labelitemi}{$\m@th\bullet$}
318\newcommand{\labelitemii}{\normalfont\bfseries --}
319\newcommand{\labelitemiii}{$\m@th\ast$}
320\newcommand{\labelitemiv}{$\m@th\cdot$}
321\newenvironment{description}
322               {\list{}{\labelwidth\z@ \itemindent-\leftmargin
323                        \let\makelabel\descriptionlabel}}
324               {\endlist}
325
326
327\newcommand*{\descriptionlabel}[1]{\hspace\labelsep
328                                \normalfont\bfseries #1}
329
330%%% <<=== Fin de comandos de listas
331
332%% Páginas de título, Prefacio, Introducción==>>
333
334\def\preface{\startonoddpage
335\chapter*{Preface}
336\global\titletrue
337\markboth{PREFACE}{PREFACIO}
338\addcontentsline{toc}{schapter}{Prefacio}}
339
340\def\prefacefirst{\startonoddpage
341\chapter*{Prefacio a la Primera Edición}
342\global\titletrue
343\markboth{PREFACIO A LA PRIMERA EDICIÓN}{PREFACIO A LA PRIMERA EDICIÓN}
344\addcontentsline{toc}{schapter}{\protect\numberline{\ }\string\rlap{Prefacio a la Primera Edición}}}
345
346\let\endprefacefirst\endpreface
347
348\def\endpreface{\newpage\markboth{}{}}
349
350\def\prefaceauthor#1{\vskip14pt\hbox to\textwidth{\hfill\small\sc #1}}
351
352
353\def\foreword{\startonoddpage
354\chapter*{Prólogo}
355\global\titletrue
356\markboth{PRÓLOGO}{PRÓLOGO}
357\addcontentsline{toc}{schapter}{Prólogo}}
358
359\let\endforeword\endpreface
360
361
362\def\dedication#1{\startonoddpage
363\global\titletrue
364\null\vskip15pc
365\noindent\hfill\vtop{\hsize=.45\hsize
366\leftskip=\parfillskip
367\baselineskip=12pt
368\parfillskip=0pt
369\def\\ {\vskip.5pt}
370\Large\it
371\noindent#1\vskip1sp}
372\thispagestyle{empty}
373\newpage\markboth{}{}
374}
375
376\def\where#1{\vskip4pt\vtop{\parindent=0pt \wherefont #1}}
377
378%%%%%%%%%%%%%%%%%%%
379\def\introduction{\startonoddpage
380\global\titletrue
381\chapter*{Introducción}
382\markboth{INTRODUCCIÓN}{INTRODUCCIÓN}
383\renewcommand{\thechapter}{I}
384\addcontentsline{toc}{schapter}{Introducción}}
385
386\def\endintroduction{\newpage}
387
388%%
389%% Autor de la Introducción, Abr 01, 2014
390
391\def\introauthor#1#2{\vskip-1in
392\addcontentsline{toc}{ichapter}{#1}
393\vtop to 0pt{
394{\sc #1}
395\chapteraffil{#2}
396\vss}\global\everypar={\hskip-\parindent\everypar={}}\vskip1in}
397
398
399\def\l@ichapter#1#2{%
400  \ifnum \c@tocdepth >1
401    \addpenalty{-\@highpenalty}%
402    \vskip -3pt \@plus\p@
403     \setlength\@tempdima{2.5em}%
404    \begingroup
405      \parindent \z@ \rightskip \@pnumwidth
406      \parfillskip -\@pnumwidth
407      \leavevmode 
408      \advance\leftskip\@tempdima
409      \hskip -\leftskip
410\hbox{\it #1}\hfill\par
411      \penalty\@highpenalty
412    \endgroup
413\vskip1sp
414  \fi}
415
416%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
417
418\def\acknowledgments{\startonoddpage
419\global\titletrue
420\chapter*{Agradecimientos}
421\addcontentsline{toc}{schapter}{Agradecimientos}}
422
423\def\endacknowledgments{\newpage}
424
425\let\acknowledgements\acknowledgments
426\let\endacknowledgements\endacknowledgments
427
428\def\authorinitials#1{\vskip12pt
429\hbox to\textwidth{\hfill#1}\newpage}
430
431
432%% from 2e
433\newcommand{\frontmatter}{\cleardoublepage
434            \@mainmatterfalse\pagenumbering{roman}}
435\newcommand{\mainmatter}{\cleardoublepage
436       \@mainmattertrue\pagenumbering{arabic}}
437\newcommand{\backmatter}{\if@openright\cleardoublepage\else\clearpage\fi
438      \@mainmatterfalse}
439%%
440
441\newif\iftitle
442
443\def\booktitle#1{\def\thetitle{\uppercase{#1}}}
444\def\subtitle#1{\def\thesubtitle{#1}}
445\def\author#1{\def\theauthor{#1}}
446\let\authors\author
447\def\editionstatement#1{\def\theeditionstatement{#1}}
448
449\booktitle{}
450\subtitle{}
451\editionstatement{}
452
453\def\halftitlepage{\thispagestyle{empty}
454  \vspace*{9pc}%
455  {\parindent \z@
456    \interlinepenalty\@M
457\LARGE
458\hyphenpenalty10000
459\bfseries\halftitlefont 
460\def\\ {\vskip1sp}
461\noindent\thetitle\vskip 1sp
462}
463\newpage
464}
465
466\def\titlepage{\ifodd\c@page\else\thispagestyle{empty}\null\newpage\fi
467\thispagestyle{empty}
468\vbox to\vsize{\vspace*{36pt}%
469\hrule height3pt
470\vskip6pc
471\parindent \z@
472\interlinepenalty\@M
473\Huge
474\hyphenpenalty10000
475\bfseries\titlefont 
476\uppercase{\thetitle}
477\ifx\subtitle\empty\else
478{\vskip1pt\baselineskip22pt
479\subtitlefont \vrule height2pc width0pt\thesubtitle\vskip1sp}\fi
480\vskip1pc
481\hrule
482\ifx\theeditionstatement\empty\else
483\vskip48pt
484{\editionfont \theeditionstatement}\fi
485\vskip6.5pc
486{\frenchspacing\baselineskip=12pt
487\authorfont \theauthor\vskip1sp}
488\vfill
489\noindent{\includegraphics[width=1.7in]{logoCenditel.png}}
490\vskip-8pt
491{\wileyfont Publicación de la Fundación CENDITEL}
492\vskip24pt}\newpage}
493
494\def\affil#1{{\affilfont #1}\vskip18pt}
495
496
497\def\dotspace{\hskip5pt/\hskip5pt}
498
499%% fin de páginas de Título. Prefacio
500
501%% Comandos de Parte, Capítulo, y Apéndice ===>>>
502
503\def\chaptermark#1{}
504
505\newcommand{\part}{\startonoddpage
506                 \thispagestyle{empty}%
507                     \@tempswafalse
508                 \secdef\@part\@spart}
509
510\def\@part[#1]#2{%
511\ifnum\c@part=0 \global\@mainmattertrue
512\pagenumbering{arabic}\setcounter{page}{1}\fi
513    \ifnum \c@secnumdepth >-2\relax
514      \refstepcounter{part}%
515      \addcontentsline{toc}{part}{\thepart\hspace{1em}#1}%
516    \else
517      \addcontentsline{toc}{part}{#1}%
518    \fi
519    \markboth{}{}
520  {
521\vglue36pt
522\parindent \z@
523 \interlinepenalty\@M
524\Large
525{\parindent \z@
526\partnumberfont
527\partname~\Roman{part}}
528\hfill\vrule depth12pt width0pt
529\hrule height3pt
530\vtop to23.5pc{\vfill
531\hyphenpenalty10000
532\raggedright
533\parfillskip=0pt
534\LARGE\baselineskip=24pt\boldmath\bfseries\partfont 
535\uppercase{#2}\vskip1pc
536\hrule height 1pt
537\vskip7pc}}}
538
539
540\def\@spart#1{%
541    {\centering
542     \interlinepenalty \@M
543     \reset@font
544     \Huge \bfseries #1\par}%
545    \@endpart}
546\def\@endpart{\vfill\newpage
547              \if@twoside
548                \hbox{}%
549                \thispagestyle{empty}%
550                \newpage
551             \fi}
552
553
554\def\and{\lowercase{and}\ }
555
556\def\eatone#1{}
557\def\oldauthor[#1]#2{{\ifnum\c@chapter<1
558\vskip-2pc
559\else
560\vskip2pc
561\ifnum\c@chapter>9\leftskip=4pc\else
562\leftskip=3pc\fi\fi\let\\ \newline{#2}\vskip1sp}
563{\let\\ \space \let\footnote\eatone\xdef\totoc{\tocauthorfont #1}}
564\addtocontents{toc}{\vskip-2.5pt{\string\noindent\hskip24pt\totoc}}
565\addtocontents{toc}{\vskip6pt}
566}
567
568
569\newif\iffirstprologue
570\def\prologue#1#2{\iffirstprologue\vskip4pt
571\global\firstprologuefalse\else
572\vskip12pt\fi
573{\leftskip=1pc
574\parindent=0pt \small
575\let\\ \newline#1\vskip1sp
576\hbox to\textwidth{\hfill\def\two{#2}\ifx\two\empty\else---#2\fi}
577}\vskip12pt}
578
579
580\newdimen\SpaceAboveChapterNumber
581\SpaceAboveChapterNumber=36pt
582
583\def\chapter{\let\thetable\savethetable
584\let\thefigure\savethefigure
585\global\c@footnote=0
586\global\probcount=0
587\global\c@chapapp=0
588\global\appendfalse
589\renewcommand{\thechapter}{\arabic{chapter}}
590                    \@afterindentfalse
591                    \secdef\@chapter\@schapter}
592
593\let\savefootnote\footnote
594\let\savefootnotetext\footnotetext
595
596\newcount\savefootnotenumber
597\newcount\ftnum
598\newcount\saveftnum
599\def\catchfootnote#1{%
600\global\advance\ftnum by1
601\expandafter\gdef\csname thecatchfootnote\the\ftnum\endcsname{#1}}
602
603\def\zfnsymbol#1{\expandafter\@zfnsymbol\csname c@#1\endcsname}
604
605\def\@zfnsymbol#1{\ensuremath{\ifcase#1\or \dagger\or \ddagger\or
606   \mathsection\or \mathparagraph\or \|\or **\or \dagger\dagger
607   \or \ddagger\ddagger \else\@ctrerr\fi}}
608
609\def\zzfnsymbol#1{\expandafter\@zfnsymbol\csname c@#1\endcsname}
610
611\def\@zzfnsymbol#1{\ensuremath{\ifcase#1 \dagger\or \ddagger\or
612   \mathsection\or \mathparagraph\or \|\or **\or \dagger\dagger
613   \or \ddagger\ddagger \else\@ctrerr\fi}}
614
615\def\@chapter[#1]#2{\startonoddpage
616\global\titletrue
617%% no floats on chapter title page
618\global\@topnum\z@
619\global\@botnum\z@
620%%
621\ifnum\c@chapter=0\relax \ifnum\c@part=1 \else \setcounter{page}{1}
622\global\@mainmattertrue% <<===
623\fi\fi
624%% if using answers.sty:
625\expandafter\ifx\csname Closesolutionfile\endcsname \relax
626\else
627\Closesolutionfile{ans}\fi
628%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
629\lowercase{\global\savefootnotenumber=\c@footnote
630\global\ftnum=0
631\setbox0=\hbox{\let\thanks\catchfootnote
632\let\\ \relax\let\footnote\catchfootnote#2}
633{\def\thefootnote{\zfnsymbol{footnote}}
634\ifnum\ftnum<1 \else
635\saveftnum\ftnum
636\global\advance\saveftnum by1
637\ftnum=1
638\loop\ifnum\saveftnum>\ftnum
639\advance\c@footnote by 1
640\savefootnotetext{\csname thecatchfootnote\the\ftnum\endcsname}
641\global\advance\ftnum by1
642\repeat
643\fi}}
644%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
645%
646\gdef\thepage{\csname @arabic\endcsname\c@page}
647%
648\refstepcounter{chapter}% <<==== moved this here instead of below mainmatter
649%% when using answers.sty,
650%% to open an ans<chapnum> file to be used for solutions section
651\expandafter\ifx\csname Opensolutionfile\endcsname\relax\else
652\Opensolutionfile{ans}[ans\the\c@chapter]\fi
653\let\dolabelnow\relax
654{\def\label##1{\gdef\dolabelnow{\savelabel{##1}}}%
655     \global\setbox0=\hbox{\def\\ {\relax}#2}}%
656\ifnum \c@secnumdepth >\m@ne
657                       \if@mainmatter
658                         \typeout{\@chapapp\space\thechapter.}%
659\let\thanks\eatone
660                         \addcontentsline{toc}{chapter}%
661                                   {\protect\numberline{\thechapter}#1}%
662                       \else
663\let\thanks\eatone
664                         \addcontentsline{toc}{chapter}{#1}%
665                       \fi
666                    \else
667\let\thanks\eatone
668                      \addcontentsline{toc}{chapter}{#1}%
669                    \fi
670                    \chaptermark{#1}%
671                      \@makechapterhead{{
672\def\thanks##1{$^{\zfnsymbol{footnote}}$}
673\def\\ {\vskip1sp}\uppercase{#2}}}%
674\dolabelnow
675                      \@afterheading
676                    \lowercase{\global\c@footnote\savefootnotenumber}}
677
678\def\@makechapterhead#1{%
679\vglue10pt
680\SpaceAboveChapterNumber=36pt
681  {\parindent \z@
682    \interlinepenalty\@M
683\Large
684\hbox to\textwidth{\hbox{\chapternumberfont CAPÍTULO
685\the\c@chapter}\hfill\vrule depth12pt width0pt}
686\hrule height3pt
687\vtop to22.5pc{\vfill
688\hyphenpenalty10000
689\raggedright
690\parfillskip=0pt
691\LARGE\boldmath\bfseries\chaptertitlefont 
692#1\vskip1pc
693\hrule height 1pt
694\vskip7pc}}
695\dooffprintinfo}
696
697\def\@schapter#1{\if@twocolumn
698                   \@topnewpage[\@makeschapterhead{#1}]%
699                 \else
700                   \@makeschapterhead{#1}%
701                   \@afterheading
702                 \fi\global\titletrue\relax}
703
704\def\@makeschapterhead#1{%
705  \vspace*{14pc}%
706\noindent{\Large\bfseries\chaptertitlefont
707\uppercase{#1}}\nobreak
708\vskip1pc\hrule height1pt\vskip7.5pc}
709
710\let\title\chapter
711
712\newcount\c@chapapp
713\def\chapappendix#1{\par
714\global\advance\c@chapapp by 1
715  \setcounter{section}{0}%
716  \setcounter{figure}{0}%
717  \setcounter{table}{0}%
718  \setcounter{equation}{0}%
719  \renewcommand{\@chapapp}{\appendixname}%
720  \renewcommand{\thechapter}{%\the\c@chapter.
721\Alph{chapapp}}
722\renewcommand{\thetable}{\the\c@chapter-\thechapter.\@arabic\c@table\theletter}
723\renewcommand{\thefigure}{\the\c@chapter-\thechapter.\@arabic\c@figure\theletter}
724\def\one{#1}\ifx\one\empty
725\section*{Apéndice}
726\markright{APÉNDICE}
727\addcontentsline{toc}{schapter}{\protect\numberline{Apéndice}}
728\else
729\section*{Apéndice: #1}
730\markright{APÉNDICE}
731\addcontentsline{toc}{schapter}{\protect\numberline{Apéndice: #1}}
732\fi
733}
734
735
736%%% <<=== final de comandos para Capítulo, Parte, y Apéndice
737
738
739%%% Contadores ===>>
740\newcounter {part}
741\newcounter {chapter}
742\newcounter {section}[chapter]
743\newcounter {subsection}[section]
744\newcounter {subsubsection}[subsection]
745\newcounter {paragraph}[subsubsection]
746\newcounter {subparagraph}[paragraph]
747
748%%% <=== final contadores
749
750%%% Nombres a nivel de encabezado ==>>
751\renewcommand{\thepart}         {\Roman{part}}
752\renewcommand{\thechapter}      {\arabic{chapter}}
753\renewcommand{\thesection}      {\thechapter.\arabic{section}}
754\renewcommand{\thesubsection}   {\thesection.\arabic{subsection}}
755\renewcommand{\thesubsubsection}{\thesubsection .\arabic{subsubsection}}
756\renewcommand{\theparagraph}    {\thesubsubsection.\arabic{paragraph}}
757\renewcommand{\thesubparagraph} {\theparagraph.\arabic{subparagraph}}
758\newcommand{\@chapapp}{\chaptername}
759
760%%% <<== final de nombres a nivel de encabezado
761
762
763%%% Comandos de Sección ====>>>>
764
765% \@startsection {NOMBRE}{NIVEL}{IDENTACIÓN}{PREVIO SALTO}{DESPUÉS DE SALTO}{ESTILO}
766%            opcional * [ENCABEZADO ALTERNATIVO]{ENCABEZADO}
767%    Comando genérico para el inicio de sección.
768%    NOMBRE          : ejemplo, 'subsección'
769%    NIVEL           : un número, denotando profundidad de la sección -- ejemplo: capítulo=1,
770%                      sección=2, etc.
771%    IDENTACIÓN      : Indentación del encabezado desde el margen izquierdo
772%    ANTES DE SALTO  : Valor absoluto = salto a nivel superior del encabezado.
773%                      Si es negativo, entonces se suprime la identación del texto que sigue al encabezado.
774%    DESPUÉS DE SALTO: si es positivo, entonces es el salto a dar después del encabezado, de lo contrario,
775%                      es el salto a dar a la derecha del encabezado actual.
776%    ESTILO          : comandos para la configuración de estilo
777%  Si falta el '*', entonces se incrementa el contador. Si está presente, entonces no debería haber un argumento en encabezado alternativo
778%  Utilice el contador 'secnumdepth' cuyo valor es el mayor nivel de la sección a ser enumerada
779
780
781
782\newcommand{\section}{\@startsection {section}{1}{\z@}%
783                                   {-22pt plus -1pt minus -6pt
784}%
785                                   {13pt}%
786                                   {\reset@font\large\bfseries\boldmath\sectionfont}}
787\newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
788                                     {-16pt plus -1pt minus -3pt
789}%
790                                     {8pt}%
791                                 {\reset@font\large\bfseries\boldmath\subsectionfont}}
792\newcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
793                                     {-12pt plus -1pt minus -6pt
794}%
795                                     {-1em}
796                           {\reset@font\normalsize\bfseries\boldmath\subsubsectionfont}}
797\newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
798                                    {-12pt}%
799                                    {-1em}%
800                               {\reset@font\normalsize\bfseries\paragraphfont}}
801\newcommand{\subparagraph}{\@startsection{subparagraph}{5}{\parindent}%
802                                       {3.25ex \@plus1ex \@minus .2ex}%
803                                       {-1em}%
804                                      {\reset@font\normalsize\bfseries}}
805
806%%% <<=== final comandos de secciones
807
808
809%%% Verso, Cita, Extracto ==>>
810
811\newenvironment{verse}
812               {\let\\=\@centercr
813                \list{}{\itemsep      \z@
814                        \itemindent   -1.5em%
815                        \listparindent\itemindent
816                        \rightmargin  \leftmargin
817                        \advance\leftmargin 1.5em}%
818                \item[]}
819               {\endlist}
820\newenvironment{quotation}
821               {\small
822\list{}{\listparindent \parindent%
823                        \itemindent    \listparindent
824                        \rightmargin   \leftmargin
825                        \parsep        \z@ \@plus\p@}%
826                \item[]}
827               {\endlist}
828\newenvironment{quote}
829               {\small
830\list{}{\rightmargin\leftmargin}%
831                \item[]}
832               {\endlist}
833\let\extract\quotation
834\let\endextract\endquotation
835%% <<== final Verso, Cita, Extracto
836
837
838%%% Matemática ===>>>
839
840\@addtoreset{equation}{chapter}
841\renewcommand{\theequation}{\thechapter.\arabic{equation}}
842
843%%% ruta fácil para hacer matemáticas en negrita utilizando $ fórmula $
844\def\dobold#1{\hbox{\boldmath$\displaystyle #1$\unboldmath}}
845\let\mathbold\dobold
846
847%% crear una caja alrededor de la ecuación o ambiente desplegado
848\def\boxit#1{{\fboxsep=6pt\ifmmode
849\fbox{$\displaystyle #1$}
850\else
851\vskip14pt{\centerline{\fbox{\vtop{\vskip-9pt\vskip1sp\advance\hsize-41pt #1\vskip-8pt}}}\vskip14pt}\fi}}
852
853%%% <<<=== final Matemática
854
855
856%%% Título de Figuras y Tablas ==>>>
857\newcounter{figure}[chapter]
858\renewcommand{\thefigure}{\thechapter.%
859\@arabic\c@figure\theletter}
860\def\fps@figure{tbp}
861\def\ftype@figure{1}
862\def\ext@figure{lof}
863\def\fnum@figure{\figurename~\thefigure}
864\newenvironment{figure}
865               {\@float{figure}}
866               {\end@float}
867\newenvironment{figure*}
868               {\@dblfloat{figure}}
869               {\end@dblfloat}
870\newcounter{table}[chapter]
871\renewcommand{\thetable}{\thechapter.\@arabic\c@table\theletter}
872
873\let\savethetable\thetable
874\let\savethefigure\thefigure
875
876
877\def\fps@table{tbp}
878\def\ftype@table{2}
879\def\ext@table{lot}
880\def\fnum@table{\tablename~\thetable}
881\newenvironment{table}
882               {\@float{table}}
883               {\end@float}
884\newenvironment{table*}
885               {\@dblfloat{table}}
886               {\end@dblfloat}
887\newlength\abovecaptionskip
888\newlength\belowcaptionskip
889\setlength\abovecaptionskip{10\p@}
890\setlength\belowcaptionskip{0\p@}
891
892\def\xfigure{figure}
893
894\long\def\@makecaption#1#2{%
895\vskip\abovecaptionskip
896{\small\hyphenpenalty10000
897\ifx\@captype\xfigure
898\ifcontinued\global\advance\c@figure -1\fi
899\else
900\ifcontinued\global\advance\c@table -1\fi
901\fi%
902 \sbox\@tempboxa{{\fignumfont#1 \ifcontinued (Continuación)\fi
903\quad \ifx\@captype\xfigure\figtextfont\else
904\tabtextfont\fi\let\newline\ #2}}%
905  \ifdim \wd\@tempboxa >.9\hsize \hyphenpenalty10000
906\fignumfont #1 \ifcontinued (Continuación)\fi\quad
907\ifx\@captype\xfigure\figtextfont\else
908\tabtextfont\fi#2\par
909  \else
910    \global \@minipagefalse
911    \hbox to\hsize{\hfil\box\@tempboxa\hfil}%
912  \fi
913\ifx\@captype\xfigure
914  \vskip\belowcaptionskip
915\else
916\vskip3pt\fi
917\gdef\theletter{\relax}
918\global\continuedfalse
919}}
920
921
922\newif\ifsettotop
923
924
925\def\@xfloat#1[#2]{%
926\def \@captype {#1}\def \@fps {#2}\@onelevel@sanitize \@fps
927\def \reserved@b {!}\ifx \reserved@b \@fps \@fpsadddefault \else 
928\ifx \@fps \@empty \@fpsadddefault \fi \fi 
929\ifhmode \@bsphack \@floatpenalty -\@Mii \else \@floatpenalty -\@Miii \fi 
930\ifinner \@parmoderr \@floatpenalty \z@
931\else \@next \@currbox \@freelist {\@tempcnta \sixt@@n
932\expandafter \@tfor \expandafter \reserved@a \expandafter :\expandafter 
933=\@fps \do {\if \reserved@a h\ifodd \@tempcnta \else \advance \@tempcnta \@ne
934\fi \fi \if \reserved@a t\@setfpsbit \tw@ \global\settotoptrue\fi 
935\if \reserved@a b\@setfpsbit 4\fi 
936\if \reserved@a p\@setfpsbit 8\fi 
937\if \reserved@a !\ifnum \@tempcnta >15
938\advance\@tempcnta -\sixt@@n\relax\fi \fi }\@tempcntb
939\csname ftype@\@captype \endcsname \multiply \@tempcntb \@xxxii \advance 
940\@tempcnta \@tempcntb \global \count \@currbox \@tempcnta }\@fltovf \fi 
941\global \setbox \@currbox \color@vbox \normalcolor \vbox \bgroup 
942\ifx\@captype\xtable
943\ifsettotop
944\vglue-6pt
945\fi\fi\global\settotopfalse
946\hsize \columnwidth \@parboxrestore \@floatboxreset}
947
948\let\savetabular\tabular
949\def\tabular{\tablefontsize\baselineskip=12pt\savetabular}
950
951\@namedef{tabular*}#1{\def\@halignto{to#1}
952\tablefontsize\baselineskip12pt\@tabular}
953
954\def\@array[#1]#2{%
955  \if #1t\vtop \else \if#1b\vbox \else \vcenter \fi\fi
956  \bgroup
957  \setbox\@arstrutbox\hbox{%
958    \vrule \@height\arraystretch\ht\strutbox
959           \@depth\arraystretch \dp\strutbox
960           \@width\z@}%
961  \@mkpream{@{}#2@{}}%
962  \edef\@preamble{%
963    \ialign \noexpand\@halignto
964      \bgroup \@arstrut \@preamble \tabskip\z@skip \cr}%
965  \let\@startpbox\@@startpbox \let\@endpbox\@@endpbox
966  \let\tabularnewline\\%
967    \let\par\@empty
968    \let\@sharp##%
969    \set@typeset@protect
970    \lineskip\z@skip\baselineskip\z@skip
971    \ifhmode \@preamerr\z@ \@@par\fi
972    \@preamble}
973
974\def\tablenotes{\vskip2pt\footnotesize}
975\let\endtablenotes\relax
976
977%% Compatibilidad con versiones anteriores:
978\let\savehline\hline
979
980\let\hline\savehline
981\def\arraystretch{1.25}
982
983%%%%%%%%% Títulos numerados con letras
984
985\def\theletter{\relax}
986\newif\ifxfirsttime
987\xfirsttimetrue
988
989\def\caption{\ifx\@captype\xtable
990\ifx\theletter\xrelax
991\global\xfirsttimetrue\refstepcounter\@captype\else
992\ifxfirsttime\global\xfirsttimefalse\refstepcounter\@captype\fi\fi
993\else
994\ifx\theletter\xrelax
995\global\xfirsttimetrue\refstepcounter\@captype\else
996\ifxfirsttime\global\xfirsttimefalse\refstepcounter\@captype\fi\fi\fi
997\edef\@currentlabel{\expandafter\csname p@\@captype\endcsname%
998\expandafter\csname the\@captype\endcsname}
999\xdef\currcaptype{\@captype}
1000\@dblarg{\@caption\@captype}}
1001
1002\def\letteredcaption#1{\gdef\theletter{#1}\caption}
1003
1004\newif\ifcontinued
1005\def\continuedcaption{\global\continuedtrue\caption}
1006
1007%%% <<=== final de los títulos de Figura y Tabla
1008
1009
1010%%% Tabla de Contenidos, Lista de Figuras, LOT ===>>
1011
1012\newcommand{\@pnumwidth}{1.55em}
1013\newcommand{\@tocrmarg} {2.55em  plus .5in}
1014\newcommand{\@dotsep}{4.5}
1015
1016\def\startonoddpage{\clearpage
1017\ifodd\c@page\else\null\thispagestyle{empty}\newpage\fi}
1018
1019\newcommand{\tableofcontents}{%
1020\startonoddpage
1021\global\titletrue
1022    \chapter*{\contentsname}
1023        \@mkboth{\uppercase{\contentsname}}{\uppercase{\contentsname}}%
1024\vskip-9pt
1025\bgroup\parskip=0pt
1026\chapskip=26pt
1027\authorskip=-6pt
1028\chapheight3pt
1029\partskip=-8pt
1030{\normalsize\tocfonts\baselineskip=14pt
1031\hyphenpenalty=10000
1032    \@starttoc{toc}%
1033}
1034\egroup
1035    \if@restonecol\twocolumn\fi
1036
1037\newpage
1038\markboth{}{}
1039    }
1040
1041\def\splitintwo#1.#2*{\llap{#1}\rlap{.#2}}
1042
1043\newcommand{\listoftables}{%
1044\startonoddpage
1045\global\titletrue
1046    \chapter*{Lista de Tablas
1047        \@mkboth{\uppercase{Lista de Tablas}}{\uppercase{Lista de Tablas}}}%
1048\addcontentsline{toc}{schapter}{Lista de Tablas}
1049\vskip-9pt
1050\bgroup\parskip=2pt
1051{\def\numberline##1{\def\one{##1}%
1052\hb@xt@\@tempdima{\expandafter\splitintwo\one*\hfil}}
1053\normalsize\tocfonts
1054\hyphenpenalty=10000
1055    \@starttoc{lot}%
1056}
1057\egroup
1058    \if@restonecol\twocolumn\fi
1059\newpage
1060\markboth{}{}
1061    }
1062
1063
1064
1065\newcommand{\listoffigures}{%
1066\startonoddpage
1067\global\titletrue
1068    \chapter*{Lista de Figuras
1069        \@mkboth{\uppercase{Lista de Figuras}}{\uppercase{Lista de Figuras}}}%
1070\addcontentsline{toc}{schapter}{Lista de Figuras}
1071\vskip-9pt
1072\bgroup\parskip=2pt
1073{\def\numberline##1{\def\one{##1}%
1074\hb@xt@\@tempdima{\expandafter\splitintwo\one*\hfil}}
1075\normalsize\tocfonts
1076\hyphenpenalty=10000
1077    \@starttoc{lof}%
1078}
1079\egroup
1080    \if@restonecol\twocolumn\fi
1081\newpage
1082\markboth{}{}
1083    }
1084
1085\newskip\partskip
1086
1087\def\l@part#1#2{%
1088  \ifnum \c@tocdepth >-2\relax
1089    \addpenalty{-\@highpenalty}%
1090\vskip16pt
1091    \begingroup
1092      {\centering\leavevmode\chaptocfont
1093         \uppercase{Parte\ \/ #1}
1094\vskip8pt
1095\vskip\partskip
1096}\par
1097       \nobreak
1098         \global\@nobreaktrue
1099         \everypar{\global\@nobreakfalse\everypar{}}
1100    \endgroup
1101\vskip1sp
1102  \fi}
1103
1104\def\l@chapter#1#2{%
1105  \ifnum \c@tocdepth >\m@ne
1106    \addpenalty{-\@highpenalty}%
1107    \vskip 10pt \@plus\p@
1108     \setlength\@tempdima{2.5em}%
1109    \begingroup
1110\let\numberline\xnumberline
1111      \parindent \z@ \rightskip \@pnumwidth
1112      \parfillskip -\@pnumwidth
1113      \leavevmode 
1114      \advance\leftskip\@tempdima
1115      \hskip -\leftskip
1116\chaptocfont 
1117#1\nobreak\hfil \nobreak\hbox 
1118to\@pnumwidth{\hss\chaptocfont #2}\par
1119      \penalty\@highpenalty
1120    \endgroup
1121\vskip4pt
1122  \fi}
1123
1124\def\l@schapter#1#2{%
1125  \ifnum \c@tocdepth >1
1126    \addpenalty{-\@highpenalty}%
1127    \vskip 3pt \@plus\p@
1128     \setlength\@tempdima{2.5em}%
1129    \begingroup
1130      \parindent \z@ \rightskip \@pnumwidth
1131      \parfillskip -\@pnumwidth
1132      \leavevmode 
1133      \advance\leftskip\@tempdima
1134      \hskip -\leftskip
1135%\chaptocfont
1136#1\nobreak\hfil \nobreak\hbox 
1137to\@pnumwidth{\hss #2}\par
1138      \penalty\@highpenalty
1139    \endgroup
1140\vskip1sp
1141  \fi}
1142
1143
1144\def\l@sschapter#1#2{%
1145  \ifnum \c@tocdepth >1
1146    \addpenalty{-\@highpenalty}%
1147    \vskip 6pt \@plus\p@
1148     \setlength\@tempdima{2.5em}%
1149    \begingroup
1150      \parindent \z@ \rightskip \@pnumwidth
1151      \parfillskip -\@pnumwidth
1152      \leavevmode 
1153      \advance\leftskip\@tempdima
1154      \hskip -\leftskip
1155\bf
1156#1\nobreak\hfil \nobreak\hbox 
1157to\@pnumwidth{\hss #2}\par
1158      \penalty\@highpenalty
1159    \endgroup
1160\vskip1sp
1161  \fi}
1162
1163\def\l@achapter#1#2{%
1164  \ifnum \c@tocdepth >0
1165    \addpenalty{-\@highpenalty}%
1166    \vskip 6pt
1167     \setlength\@tempdima{2.5em}%
1168    \begingroup
1169      \parindent \z@ \rightskip \@pnumwidth
1170      \parfillskip -\@pnumwidth
1171      \leavevmode 
1172      \advance\leftskip\@tempdima
1173      \hskip -\leftskip
1174\chaptocfont 
1175#1\nobreak\hfil \nobreak\hbox 
1176to\@pnumwidth{\hss #2}\par
1177      \penalty\@highpenalty
1178    \endgroup
1179\vskip4pt
1180  \fi}
1181
1182% \@dottedtocline{NIVEL}{IDENTACIÓN}{AMPLITUD_NUMERO}{TÍTULO}{PÁGINA} :
1183%   Macro para producir una línea de tabla de contenidos con los siguientes parámetros:
1184%     NIVEL           : Si NIVEL > \c@tocdepth, entonces no se genera la línea.
1185%     IDENTACIÓN      : Identación total desde el margen izquierdo.
1186%     AMPLITUD_NUMERO : Amplitud de la caja para el número si el TÍTULO tiene un comando \numberline.
1187%                       Como de 25 Enero de 1988, esto también el la cantidad extra de identación agregada a la segunda y subsecuentes líneas para
1188%                       líneas de múltiples entradas.
1189%     TÍTULO          : Contenidos de entrada.
1190%     PÁGINA          : Número de página.
1191%
1192%  Utilice los siguientes parámetros, los cuales deben ser configurados en el estilo del documento.
1193%  Estos deben definirse con \def's.
1194%    \@pnumwidth : Ancho de la caja en el cual el número de página es colocado.
1195%    \@tocrmarg  : Identación del márgen derecho para todas las líneas exceptuando la última en entradas múltiples.
1196%    \@dotsep    : Separación entre puntos, unidad in (pulgadas) mu ().  Debe definirse para \def'd un número como 2 o 1.7
1197%
1198
1199\def\@dottedtocline#1#2#3#4#5{%
1200\ifnum #1>\c@tocdepth \else \vskip 1sp {\leftskip #2\relax%
1201\rightskip \@tocrmarg  \parfillskip -\rightskip \parindent #2\relax%
1202\@afterindenttrue \interlinepenalty \@M \leavevmode \@tempdima #3\relax %
1203\advance \leftskip \@tempdima \hbox {}\hskip -\leftskip #4%
1204\nobreak% \leaders \hbox {$\m@th \mkern%
1205% \@dotsep mu.\mkern \@dotsep mu$}
1206\hfill\nobreak\hbox to\@pnumwidth {\hfil #5}\par }\fi}
1207
1208\newskip\tabandfigskip
1209\tabandfigskip=6pt plus 3pt minus 3pt
1210\def\l@table{\setlength\@tempdima{18pt}%
1211\vskip\tabandfigskip
1212\@dottedtocline{1}{1.5em}{3.5em}}
1213\def\l@figure{\setlength\@tempdima{18pt}%
1214\vskip\tabandfigskip
1215\@dottedtocline{1}{1.5em}{3.5em}}
1216
1217\def\l@section{\setlength\@tempdima{18pt}%
1218\@dottedtocline{1}{2.5em}{3em}}%was 2.3em
1219\def\l@subsection{\@dottedtocline{2}{5.5em}{3.6em}}% #3 was 3.4em
1220\def\l@subsubsection{\@dottedtocline{3}{7em}{5.1em}} %was 4.1em
1221\def\l@paragraph{\@dottedtocline{4}{10em}{5em}}
1222\def\l@subparagraph{\@dottedtocline{5}{12em}{6em}}
1223
1224
1225%%% <<=== final TOC
1226
1227%%% Bibliografiá, Referencias, Agradecimientos ===>>
1228
1229%%%%%% Bibliografía utilizando BibTeX
1230
1231\def\chapbibliography{%
1232{\let\thebibliography\thechapbibliography
1233\let\endthebibliography\endthechapbibliography
1234\@input {\jobname.bbl}}
1235}
1236
1237\def\thechapbibliography#1{\section*{Referencias}
1238\markright{REFERENCIAS}
1239\addcontentsline{toc}{schapter}{Referencias}
1240\small
1241\labelsep 5pt
1242\list
1243  {\@biblabel{\arabic{enumiv}}}{\settowidth\labelwidth{\@biblabel{#1}}%
1244    \leftmargin\labelwidth
1245    \advance\leftmargin\labelsep
1246    \usecounter{enumiv}%
1247    \let\p@enumiv\@empty
1248    \def\theenumiv{\arabic{enumiv}}}%
1249    \def\newblock{\hskip .11em plus.33em minus.07em}%
1250    \sloppy\clubpenalty4000\widowpenalty4000
1251    \sfcode`\.=\@m}
1252
1253\def\endthechapbibliography{%
1254  \endlist}
1255
1256
1257
1258%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1259\def\newblock{}
1260
1261\let\save@lbibitem\@lbibitem
1262\let\save@bibitem\@bibitem
1263\def\@lbibitem{\def\@biblabel##1{[##1]}
1264\save@lbibitem}
1265
1266\def\@bibitem{\labelsep=5pt\def\@biblabel##1{##1.}\save@bibitem}
1267
1268\def\bibitem{\@ifnextchar[\@lbibitem\@bibitem}
1269
1270
1271%% to get rid of the extra argument used for thebibliography,
1272%% when redefinining thebibliography to be chapreferences:
1273\def\chapthebibliography#1{\chapreferences}
1274\let\endchapthebibliography\endchapreferences
1275
1276\def\chapreferences#1{\ifvmode\vskip-\lastskip\fi
1277\vskip8pt\vskip1sp\section*{REFERENCIAS}
1278\addcontentsline{toc}{schapter}{Referencias}
1279\bgroup
1280\small
1281\list
1282  {\@biblabel{\arabic{enumiv}}}{\settowidth\labelwidth{\@biblabel{#1}}%
1283    \leftmargin\labelwidth
1284    \advance\leftmargin\labelsep
1285    \usecounter{enumiv}%
1286    \let\p@enumiv\@empty
1287    \def\theenumiv{\arabic{enumiv}}}%
1288    \def\newblock{\hskip .11em plus.33em minus.07em}%
1289    \sloppy\clubpenalty4000\widowpenalty4000
1290    \sfcode`\.=\@m
1291}
1292
1293\def\endchapreferences{\endlist\egroup}
1294
1295\def\thebibliography#1{\startonoddpage
1296\global\titletrue\dooffprintinfo
1297\chapter*{Referencias}
1298\markboth{REFERENCIAS}{REFERENCIAS}
1299\addcontentsline{toc}{schapter}{Referencias}
1300\small
1301\labelsep 5pt
1302\list
1303  {\@biblabel{\arabic{enumiv}}}{\settowidth\labelwidth{\@biblabel{#1}}%
1304    \leftmargin\labelwidth
1305    \advance\leftmargin\labelsep
1306    \usecounter{enumiv}%
1307    \let\p@enumiv\@empty
1308    \def\theenumiv{\arabic{enumiv}}}%
1309    \def\newblock{\hskip .11em plus.33em minus.07em}%
1310    \sloppy\clubpenalty4000\widowpenalty4000
1311    \sfcode`\.=\@m}
1312
1313\def\endthebibliography{%
1314  \endlist}
1315
1316\def\references{\bgroup\thebibliography}
1317\def\endreferences{\endthebibliography\egroup}
1318
1319
1320%% final Bibliografía, Referencias y Agradecimientos
1321
1322
1323%%% Pié de páginas ===>>>
1324
1325%  \renewcommand{\footnoterule}{%
1326%  \kern-3\p@
1327%  \hrule width .4\columnwidth
1328%  \kern 2.6\p@}
1329
1330  \let\footnoterule\relax
1331
1332\@addtoreset{footnote}{chapter}
1333
1334\long\def\@makefntext#1{%
1335    \parindent 1em%
1336    \noindent
1337    \@makefnmark#1}
1338
1339\newcount\footnum
1340\newcount\savefootnum
1341\def\endnote#1{\global\advance\footnum by 1\relax$^{\the\footnum}$%
1342\long\expandafter\gdef\csname foot\the\footnum\endcsname{%
1343\vtop{\footnotesize\hsize=\textwidth\leftskip=12pt\relax\parindent=-12pt
1344\indent\hbox to12pt{\the\footnum.\hfill}{#1\strut\vskip1sp}}\vskip1pt}}
1345
1346\def\endnotetext#1{\global\advance\footnum by 1\relax
1347\long\expandafter\gdef\csname foot\the\footnum\endcsname{%
1348\vtop{\footnotesize\hsize=\textwidth\leftskip=12pt\relax\parindent=-12pt
1349\indent\hbox to12pt{\the\footnum.\hfill}{#1\strut\vskip1sp}}\vskip1pt}}
1350
1351\newif\ifrefnoteused
1352\def\refnote{\ifrefnoteused\else\global\refnoteusedtrue
1353\typeout{^^J^^J!!! ===>>>^^J
1354Por favor no utilice el comando \string\refnote.^^J
1355En su lugar escriba una referencia estándar de LaTeX y utilice \string\cite
1356^^J<<<=== !!!^^J^^J}\fi}
1357
1358\def\notes{\ifnum\footnum=0\else
1359\savefootnum=\footnum
1360\footnum=0
1361\noindent\loop\ifnum\savefootnum>\footnum%
1362\global\advance\footnum by1\relax%
1363\csname foot\the\footnum\endcsname\relax%
1364\expandafter\gdef\csname foot\the\footnum\endcsname{\relax}\relax%
1365\repeat\global\footnum=0\relax\fi}
1366
1367\def\note{\hfill}
1368
1369
1370%%% <<<=== Final de Pié de páginas
1371
1372
1373
1374%%% Encabezados de ejecución ===>>>
1375
1376%% a menos que se necesite esto, déjelo descomentado
1377    \let\@mkboth\@gobbletwo
1378    \let\chaptermark\@gobble
1379    \let\sectionmark\@gobble
1380
1381\def\ps@headings{\let\@mkboth\markboth
1382 \def\@oddfoot{\rlap{\ifoffprintinfo\global\offprintinfofalse%
1383\printoffprintinfo\fi}%
1384\iftitle\global\titlefalse{\hfill\foliofont\thepage}\fi}
1385 \def\@evenfoot{\iftitle\global\titlefalse{\foliofont\thepage\hfill}\fi
1386\llap{\ifoffprintinfo\global\offprintinfofalse%
1387\printoffprintinfo\fi}%
1388}
1389 \def\@evenhead{\iftitle\else{\foliofont \thepage}\hskip1.5pc%
1390\footnotesize\runningheadfont\MakeUppercase\leftmark\fi\hfill}
1391 \def\@oddhead{\hfill\iftitle\else{\footnotesize\runningheadfont 
1392\MakeUppercase\rightmark}\hskip1.5pc%
1393\foliofont\thepage\fi}%
1394 \def\chaptermark##1{\markboth {\uppercase{##1}}{}}%
1395 \def\sectionmark##1{\markright {\uppercase{##1}}}}
1396
1397\markboth{}{}
1398
1399\ps@headings
1400
1401\pagestyle{headings}
1402\pagenumbering{roman}
1403
1404
1405
1406%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1407%% Uso especial de fuentes
1408%%
1409
1410%% Llamado a fuentes modernas de computadores. Se redefinirá si las fuentes son utilizadas
1411%%
1412%% \documentclass{wileysix}
1413%% \usepackage{w-bookps}
1414%%  utilizará fuentes PostScript.
1415
1416%% \documentclass{wileysix} utilizará fuentes modernas de Computadoras.
1417
1418
1419%% Times-Roman
1420\def\timesroman{cmr10 }
1421\def\timesbold{cmbx10 }
1422\def\timesitalic{cmti10 }
1423\def\timesbolditalic{cmbx10 }
1424
1425%% Helvetica
1426\def\helvetica{cmss10 }
1427\def\helveticabold{cmssbx10 }
1428\def\helveticaboldoblique{cmssi10 }
1429\def\helveticaoblique{cmssi10 }
1430
1431%% Uso especial de fuentes
1432%%
1433%% Tabla de Contenidos
1434\font\tocarttitlefont=\helveticabold at 12pt
1435\font\chaptocfont=\helveticabold at 10pt
1436\font\tocfonts=\timesroman at 10pt
1437
1438
1439%% Encabezados
1440\font\runningheadfont=\helvetica at6,5pt
1441\font\foliofont=\helveticabold at 9pt
1442
1443%% Título del libro, Página de medio título
1444
1445\font\halftitlefont=\helveticabold at 20pt
1446\font\titlefont=\helveticabold at 27pt
1447\font\subtitlefont=\helveticabold at 20pt
1448\font\editionfont=\helvetica at 14pt
1449\font\authorfont=\helveticabold at 11pt
1450\font\affilfont=\helvetica at 10pt
1451\font\locfont=\timesbolditalic at 7pt
1452
1453\font\wileyfont=\helveticabold at 10pt
1454\font\imprintfont=\helvetica at 10pt
1455
1456%% Título de parte
1457\font\partfont=\helvetica at 24pt
1458\font\partnumberfont=\helveticabold at 14pt
1459
1460%% Título de capítulo
1461\font\chapternumberfont=\helveticabold at 14pt
1462\font\chaptertitlefont=\helvetica at 18pt
1463
1464%% Encabezados de sección
1465\font\sectionfont=\timesbold at 10pt
1466\font\subsectionfont=\helveticabold at 10pt
1467\font\subsubsectionfont=\helveticaboldoblique at 10pt
1468\font\paragraphfont=\helveticaoblique at 10pt
1469
1470%% Títulos de figuras y tablas
1471\font\fignumfont=\timesbold at 9pt
1472\font\tabnumfont=\timesbold at 9pt
1473\font\figtextfont=\timesroman at 9pt
1474\font\tabtextfont=\timesroman at 9pt
1475
1476%% Fuente de tablas
1477\def\tablefontsize{\small}
1478\def\tablefootnotesize{\footnotesize}
1479
1480%% Referencias/Bibligrafia
1481\def\bibfontsize{\small}
1482
1483%% Fuentes de texto
1484\font\bit=\timesbolditalic at 8pt
1485
1486%% Fuentes mayúscula pequeñas
1487\font\bigscfont\timesroman at 9.5pt
1488\font\smscfont\timesroman at 7.5pt
1489\font\wherefont\timesitalic at 8pt
1490
1491%% Configuración de problema
1492\font\probfont\timesbolditalic at 10pt
1493
1494
1495%%% <=== Final uso de fuentes especiales
1496
1497%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1498%%%% Fuentes mayúscula pequeñas
1499
1500% To use: \fakesc some stuff*
1501%% \bigscfont, \smscfont are listed in font section above.
1502
1503\def\fakesc#1*{\edef\stuff{#1 }%
1504\expandafter\pickupnewword\stuff* }
1505\def\saveast{*}
1506
1507\def\rrelax{\relax}
1508
1509\def\pickupnewlett#1{\def\letter{#1}%
1510\ifx\letter\saveast\unskip%
1511\let\go\relax \else
1512\ifx\letter\rrelax{\bigscfont\ }%
1513\let\go\pickupnewword\else%
1514\uppercase{\def\ucletter{#1}%  upper case letter
1515\ifx\letter\ucletter%
1516{\bigscfont#1}\else{\smscfont#1}\fi}%%
1517\let\go\pickupnewlett\fi\fi\go}
1518
1519\def\pickupnewword#1 {\expandafter\pickupnewlett#1\relax}
1520%% <== end fakesc
1521
1522%% ==> glosario
1523\def\glossary{\startonoddpage\global\titletrue
1524\dooffprintinfo
1525\markboth{GLOSARIO}{GLOSARIO}
1526\chapter*{Glosario}
1527\addcontentsline{toc}{schapter}{Glosario}
1528\everypar={}
1529\bgroup
1530\leftskip=1in \parindent=-1in
1531\def\term##1{\vskip3pt\indent\hbox to 1in{##1\hfill}\relax}}
1532\def\endglossary{\vskip12pt\egroup\newpage
1533\markboth{}{}
1534}
1535%% <==
1536
1537%% ==> acronimos
1538\def\acronyms{\startonoddpage\global\titletrue
1539\dooffprintinfo
1540\markboth{ACRÓNIMOS}{ACRÓNIMOS}
1541\chapter*{Acrónimos}
1542\addcontentsline{toc}{schapter}{Acrónimos}
1543\everypar={}
1544\bgroup
1545\normalsize
1546\leftskip=1pc \parindent=-1pc
1547\def\term##1{\vskip2pt{\bf ##1}\hskip1em\relax}}
1548\def\endacronyms{\vskip12pt\egroup\newpage
1549\markboth{}{}
1550}
1551
1552\def\acro#1#2{\vskip4pt\hbox to\textwidth{\normalsize
1553\hbox to5pc{#1\hfill}\vtop{\advance\hsize by
1554-5pc\raggedright\noindent#2}}}
1555
1556%% <==
1557
1558%% ==> símbolos
1559\def\symbols{\startonoddpage\global\titletrue
1560\dooffprintinfo
1561\markboth{LISTA DE SÍMBOLOS}{LISTA DE SÍMBOLOS}
1562\chapter*{Símbolos}
1563\addcontentsline{toc}{schapter}{Lista de Símbolos}
1564\everypar={}
1565\bgroup\leftskip=1pc \parindent=-1pc
1566\def\term##1{\vskip2pt{$##1\,$}\hskip1em\relax}}
1567\def\endsymbols{\vskip12pt\egroup
1568\newpage
1569\markboth{}{}
1570}
1571%% <== final de símbolos
1572
1573
1574
1575%%%%%%%%%%%%%%%%%%%%%%%
1576%% Índice ===>>>
1577
1578\makeindex
1579% latex default
1580%% Use \latexprintindex instead of \printindex to
1581%% get the default latex index.
1582
1583%% Contents of makeidx.sty contained in \latexprintindex command.
1584%% This is because \printindex is defined in this package so
1585%% user doing \usepackage{makeidx} will get error message.
1586
1587\providecommand*\seealso[2]{\emph{\alsoname} #1}
1588\providecommand*\alsoname{ver también}
1589
1590\newcommand\printindex{\startonoddpage
1591\def\see##1##2{\emph{\seename} ##1}
1592\def\seename{ver}
1593\@input@{\jobname.ind}}
1594
1595\def\indexname{Índice}
1596
1597\newenvironment{theindex}
1598               {\if@twocolumn
1599                  \@restonecolfalse
1600                \else
1601                  \@restonecoltrue
1602                \fi
1603                \columnseprule \z@
1604                \columnsep 35\p@
1605                \twocolumn[\@makeschapterhead{\indexname}]%
1606                \@mkboth{\uppercase{\indexname}}%
1607                        {\uppercase{\indexname}}%
1608 \addcontentsline{toc}{schapter}{\indexname}
1609\global\titletrue\dooffprintinfo
1610\parindent\z@
1611    \parskip\z@ \@plus .3\p@\relax
1612    \let\item\@idxitem
1613\spaceskip=3pt plus 2pt minus 1pt\xspaceskip=\spaceskip
1614\footnotesize\baselineskip=10pt plus 1pt minus 1pt}
1615               {\pagestyle{headings}
1616\if@restonecol\onecolumn\else
1617\clearpage\fi}
1618
1619\newcommand{\@idxitem}  {\par\hangindent 40\p@}
1620\newcommand{\subitem}   {\par\hangindent 40\p@ \hspace*{20\p@}}
1621\newcommand{\subsubitem}{\par\hangindent 40\p@ \hspace*{30\p@}}
1622\newcommand{\indexspace}{\par\vskip 10\p@ \@plus0\p@ \@minus3\p@\relax}
1623
1624\def\multiprintindex#1#2{\startonoddpage
1625\def\see##1##2{\emph{\seename} ##1}
1626\def\seename{ver}
1627\def\indexname{#2}
1628\markboth{#2}{#2}
1629\input #1.ind}
1630
1631\newskip\iletterskip
1632\iletterskip=8pt plus .1pt minus 2pt
1633\def\iletter#1{\goodbreak\vskip\iletterskip{\sectionfont\uppercase{#1}\vrule depth 8pt width0pt}\nobreak}
1634
1635\def\seealso#1{\hskip16pt{\it Ver también\ }{#1}}
1636
1637\def\ltr#1{\nobreak\vskip\iletterskip
1638\hrule
1639\nobreak
1640\vskip3pt
1641{\bf#1}
1642\nobreak
1643\vskip\iletterskip}
1644
1645
1646%%%%%%%%%%%%%%
1647% Borrador
1648
1649\def\draft{\global\drafttrue
1650\def\@oddfoot{\vtop to 0pt{\vskip24pt\large\tt
1651D R A F T\hfill\today, \realtime\hfill D R A F T\global\titlefalse\vss}}
1652\def\@evenfoot{\@oddfoot}\normalsize}
1653
1654\def\fix{\ifcase\oldtime 0\or0\or0\or%
16550\or0\or0\or0\or0\or0\or0\fi}
1656\def\fixtiming{\ifcase\timing 0\or0\or0\or%
16570\or0\or0\or0\or0\or0\or0\fi}
1658\newcount\timing 
1659\newcount\hourcount
1660\newcount\oldtime 
1661
1662\def\realtime{\timing=\time \oldtime=\time
1663\ifnum\timing>60 \divide\timing by 60
1664\hourcount=\the\timing
1665\multiply\timing by 60
1666\advance\oldtime by-\timing
1667\ifnum\hourcount<12 \number\hourcount:\fix\number\oldtime am\fi%
1668\ifnum\hourcount=12 \number\hourcount:\fix\number\oldtime pm\fi%
1669\ifnum\hourcount>12 \advance\hourcount by-12
1670\number\hourcount:\fix\number\oldtime pm\fi
1671\else12:\fixtiming\number\timing am\fi}
1672
1673\newcommand{\today}{\ifcase\month\or
1674  January\or February\or March\or April\or May\or June\or
1675  July\or August\or September\or October\or November\or December\fi
1676  \space\number\day, \number\year}
1677
1678
1679%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1680%%%%% Macros para problemas propuestos
1681
1682\newcount\probcount
1683\newcount\subprobcount
1684\newcount\c@subproblem
1685\def\problems{
1686\global\probcount=0
1687\global\subprobcount=0
1688\global\c@subproblem=0
1689\goodbreak\vskip12pt
1690\markright{PROBLEMS}
1691\addcontentsline{toc}{section}{\protect\numberline{}Problemas}
1692\noindent{\sectionfont\uppercase{Problemas}\vrule depth 4pt width0pt}\markright{PROBLEMAS}\nobreak}
1693
1694\long\def\xappendixname{\appendixname}%
1695
1696\def\endproblems{\xdef\@currentlabel{\thechapter}}
1697\def\appendchapt{\Alph {chapter}}
1698\def\prob{\ifx\@chapapp\xappendixname
1699\let\go\aprob\else\let\go\chapprob\fi\go}
1700\def\subprob{\ifx\@chapapp\xappendixname
1701\let\go\asubprob\else\let\go\chapsubprob\fi\go}
1702
1703
1704\def\aprob{\vskip6pt
1705\leftskip=0pt
1706\global\c@subproblem=0
1707\global\advance\probcount by1
1708\xdef\@currentlabel{\Alph{chapter}.\the\probcount}
1709\noindent{\bf\Alph{chapter}.\the\probcount\hskip12pt\relax}}
1710
1711
1712\def\asubprob{\vskip1pt
1713\global\advance\c@subproblem by1
1714\leftskip=39pt
1715\xdef\@currentlabel{\Alph{chapter}.\the\probcount.\alph{subproblem}}
1716%
1717\noindent\hbox to 0pt{\hss\bf\alph{subproblem})\ \ }\relax}
1718
1719
1720\newcount\c@subproblem
1721
1722\def\chapprob{\vskip6pt
1723\leftskip=0pt
1724\global\c@subproblem=0
1725\global\advance\probcount by1
1726\xdef\@currentlabel{\the\c@chapter.\the\probcount}
1727\noindent{\bf\the\c@chapter.\the\probcount\hskip12pt\relax}}
1728
1729\def\chapsubprob{\vskip1pt
1730\global\advance\c@subproblem by1
1731\leftskip=39pt
1732\xdef\@currentlabel{\the\c@chapter.\the\probcount.\alph{subproblem}}
1733%
1734\noindent\hbox to 0pt{\hss\alph{subproblem})\ \ }\relax}
1735
1736\def\sidebysideprob#1#2{\centerline{\vtop{\hsize=.475\textwidth
1737\prob #1}\hfill\vtop{\hsize=.475\textwidth \prob #2}}}
1738
1739\def\sidebysidesubprob#1#2{\centerline{\vtop{\hsize=.475\textwidth
1740\subprob #1}\hfill\vtop{\hsize=.475\textwidth \subprob #2}}}
1741
1742%%%% <<==  Final de problemas propuestos
1743
1744%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1745%%%%% Ejercicios
1746
1747
1748\def\exercises{\goodbreak\vskip12pt
1749\markright{EJERCICIOS}
1750\addcontentsline{toc}{section}{\protect\numberline{}Ejercicios}
1751\section*{EJERCICIOS}
1752\global\probcount=0
1753\global\subprobcount=0
1754\global\c@subproblem=0
1755\markright{EJERCICIOS}\nobreak}
1756
1757\def\endexercises{\vskip1sp\xdef\@currentlabel{\thechapter}}
1758
1759\let\exer\prob
1760\let\subexer\subprob
1761\let\sidebysideexer\sidebysideprob
1762\let\sidebysidesubexer\sidebysidesubprob
1763
1764
1765
1766%%%% <<==  final de macro de ejercicios
1767
1768
1769\pagenumbering{roman}
1770\widowpenalty10000
1771\clubpenalty10000
1772
1773%%%%%
1774%%%% side by side
1775%%%% to use:
1776% \begin{figure or table} \sidebyside{}{} \end{figure or table}
1777%
1778% \begin{table}
1779% \sidebyside{\caption{table caption} first table}
1780% {\caption{table caption} second table}
1781% \end{table}
1782
1783% or
1784
1785% \begin{figure}
1786% \sidebyside{\vskip<dimen>\caption{fig caption}}
1787% {\vskip<dimen>\caption{fig caption}}
1788% \end{figure}
1789
1790%% To label for cross referencing, use \label after and <outside> of
1791%% \caption{}
1792
1793% \begin{table}
1794% \sidebyside{\caption{table caption}\label{tab1}
1795% first table}
1796% {\caption{table caption}\label{tab2} second table}
1797% \end{table}
1798
1799% or
1800
1801% \begin{figure}
1802% \sidebyside{\vskip<dimen>\caption{fig caption}\label{fig1}}
1803% {\vskip<dimen>\caption{fig caption}\label{fig2}}
1804% \end{figure}
1805
1806
1807
1808\long\def\sidebyside#1#2{%
1809\hbox to\textwidth{\vtop{\hsize=.5\textwidth%
1810\advance\hsize by -.5\columnsep
1811\parindent=0pt
1812\centering
1813 
1814#1\vskip1sp}\hskip\columnsep\vtop{\hsize=.5\textwidth%
1815\advance\hsize by -.5\columnsep
1816\parindent=0pt
1817\centering
1818#2
1819
1820}\hfill}}
1821
1822\def\copyrightpage{\thispagestyle{empty}%
1823\vbox to\textheight\bgroup\vfill\obeylines\obeyspaces\xcopyrightpage}
1824
1825\def\xcopyrightpage#1#2\end#3{\scriptsize\parindent=0pt
1826Copyleft \copyright{#1} por Fundación CENDITEL.
1827\vskip6.5pt
1828Publicado por Fundación CENDITEL - MPPCTI.\\
1829\vskip6.5pt
1830
1831Aquí deberíamos escribir la licencia de CENDITEL
1832\vskip10pt
1833{\locfont Publicaciones de CENDITEL:}
1834\vskip8pt
1835#2
1836Impreso en la Repúblia Bolivariana de Venezuela.\\
1837
183810\ \ 9\ \ 8\ \ 7\ \ 6\ \ 5\ \  4\ \ 3\ \ 2\ \ 1
1839\vskip24pt
1840\egroup\let\@badend\relax\endgroup}
1841
1842\let\endcopyrightpage\relax
1843
1844\def\seriespage{\newpage\thispagestyle{empty}\vbox to\textheight\bgroup\vfill
1845\leftskip=34pt \rightskip=-34pt}
1846\def\endseriespage{\vskip6pt{\noindent\hskip-12pt
1847Texto adicional de información} \vskip24pt\egroup
1848\newpage}
1849\def\series#1#2{\noindent\hskip-12pt\uppercase{#1}\\
1850\global\setbox0=\hbox{\footnotesize#2}
1851\hsize=\wd0
1852\footnotesize#2}
1853
1854\def\eds#1{\vskip6pt\footnotesize\noindent Editors: {\it #1}}
1855
1856%%%%%%%%%%%%
1857%% Información de la separata
1858
1859\newif\ifoffprintinfo
1860\def\dooffprintinfo{\global\offprintinfotrue}
1861
1862\def\copyrightyear#1{\def\thecopyrightyear{#1}}
1863
1864\copyrightyear{\the\year}
1865
1866\def\dofnote#1#2{\vtop{\hyphenpenalty=10000
1867\advance\hsize -10pt \raggedright
1868\footnotesize{\it #1. }\\{By #2}
1869\noindent\hbox{\footnotesize
1870Copyright \copyright\ \thecopyrightyear\ John Wiley \&
1871Sons, Inc.}}}
1872
1873
1874\def\offprintinfo#1#2{
1875\def\theoffprint{\bgroup\frenchspacing
1876\dofnote{#1}{#2}
1877\egroup}}
1878
1879\def\x@makefntext#1{   
1880\kern-3\p@
1881\hrule\@width.4\columnwidth
1882\kern2.6\p@
1883\vrule height 9pt width0pt \relax
1884#1}
1885
1886\def\offprintinfoerror{\typeout{^^J^^J
1887!! Please enter {\string\offprintinfo\string{(Título,
1888Edición)\string}\string{(Autor)\string}^^J en el inicio de su documento.!!^^J^^J}}
1889\bgroup
1890\x@makefntext{Por favor introduzca {\tt \string\offprintinfo\string{(Título,
1891Edición)\string}\string{(Autor)\string}\newline en el inicio de su
1892documento.\vrule depth8pt width0pt}\egroup}}
1893
1894
1895\def\printoffprintinfo{\vtop to0pt{%
1896\hsize=\textwidth\footnotesize
1897\expandafter\ifx\csname theoffprint\endcsname\relax
1898\offprintinfoerror\else\theoffprint\fi\vskip1sp\vss}}
1899
1900\let\c@CHAPTER\c@chapter
1901
1902%% LaTeX2e Cropmark Macros
1903%% Copyright Amy Hendrickson, TeXnology Inc.
1904%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1905\newif\ifcropmarkson
1906\def\noprintcropmarks{\global\cropmarksonfalse}
1907\def\nocropmarks{\global\cropmarksonfalse}
1908\global\cropmarksontrue
1909
1910
1911\newdimen\widthofcropmarks
1912
1913\widthofcropmarks=39.25pc
1914\advance\widthofcropmarks.125in %% new
1915\widthofcropmarks=6.125in
1916
1917\newdimen\raisetopcropmarks
1918\raisetopcropmarks=-25pt
1919\advance\raisetopcropmarks.25in
1920
1921\newdimen\raisebottomcropmarks
1922%\raisebottomcropmarks-48pt
1923
1924\raisebottomcropmarks-34pt % was 80pt
1925
1926
1927\newdimen\movecropmarksright
1928\movecropmarksright=-92pt
1929
1930\def\topcropmarks{\ifcropmarkson
1931\vtop to0pt{\vss
1932\hbox to0pt{\hskip\movecropmarksright\hbox to0pt{\hss%
1933\hbox to2pc{\hrulefill\hskip3pt}\raise6pt\hbox{\vrule height 2pc}}%
1934\hskip\widthofcropmarks%
1935\hbox to0pt{%
1936\raise6pt\hbox{\vrule height 2pc}\hbox to2pc{\hskip3pt\hrulefill}\hss}\hss}%
1937\vskip\raisetopcropmarks}
1938\fi}
1939
1940\def\bottomcropmarks{\ifcropmarkson
1941\vtop to0pt{\vskip-\raisebottomcropmarks
1942\hbox to0pt{\hskip\movecropmarksright\hbox to0pt{\hss%
1943\hbox to2pc{\hrulefill\hskip3pt}\lower6pt\hbox{\vrule depth 2pc height
19440pt}}%
1945\hskip\widthofcropmarks%
1946\hbox to0pt{%
1947\lower6pt\hbox{\vrule depth 2pc height0pt}\hbox
1948to2pc{\hskip3pt\hrulefill}\hss}\hss}%
1949\vss}\fi}
1950
1951
1952\long\def\docropmarks{\let\saveshipout\shipout
1953\long\def\shipout\vbox##1{\saveshipout\vbox{\topcropmarks##1\bottomcropmarks
1954}}
1955}
1956
1957\docropmarks
1958
1959\voffset-25pt
1960\hoffset40pt % was 48
1961
1962
1963%% new additions, as of Jan 25, 2005
1964\newtheorem{theorem}{Theorem}[chapter]
1965
1966\newif\iffirstappendix
1967\global\firstappendixtrue
1968
1969\newcount\c@appfootnote
1970
1971\def\appthanks#1{*\gdef\realthanks{#1}}
1972
1973\newif\ifappend
1974
1975\def\lookatapp{\if\next[\let\go\yappendix\else
1976\let\go\xappendix\fi\go}
1977
1978\def\appendix{\global\appendtrue
1979\let\thetable\savethetable
1980\let\thefigure\savethefigure
1981  \renewcommand{\@chapapp}{\appendixname}%
1982%% if using answers.sty:
1983\expandafter\ifx\csname Closesolutionfile\endcsname \relax
1984\else
1985\Closesolutionfile{ans}\fi
1986%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1987\futurelet\next\lookatapp}
1988
1989\def\yappendix[#1]#2{\startonoddpage
1990\global\titletrue\dooffprintinfo
1991\global\@mainmattertrue% <<===
1992\gdef \thepage {\csname @arabic\endcsname \c@page }
1993%% To fix includeonly numbering bug: ====>>
1994\if@partsw\else
1995\iffirstappendix\setcounter{chapter}{0}\fi
1996\global\firstappendixfalse\fi%
1997\refstepcounter{chapter}
1998% <<====  end bug fix
1999%% when using answers.sty,
2000%% to open an ans<chapnum> file to be used for solutions section
2001\expandafter\ifx\csname Opensolutionfile\endcsname\relax\else
2002\Opensolutionfile{ans}[ans\Alph{chapter}]\fi
2003  \setcounter{section}{0}%
2004  \setcounter{figure}{0}%
2005  \setcounter{table}{0}%
2006  \setcounter{equation}{0}%
2007 \setcounter{theorem}{0}%
2008\def\two{#2}\ifx\two\empty
2009\chapter*{Apéndice \Alph{chapter}}
2010\renewcommand{\thechapter}{\Alph{chapter}}
2011\addcontentsline{toc}{achapter}{\thechapter}
2012\else
2013\chapter*{\vtop{\let\thanks\appthanks
2014 \baselineskip=30pt \parindent=0pt
2015\leftskip=0pt
2016\Alph{chapter}\vskip4pt
2017 #2}}
2018%
2019\renewcommand{\thechapter}{\Alph{chapter}}
2020\addcontentsline{toc}{achapter}{\thechapter\hskip2pt \ \quad #1}
2021\fi
2022%
2023\def\one{#1}
2024{\let\\ \
2025\ifx\one\empty
2026\markboth{\uppercase{Apéndice \thechapter}}{\uppercase{Apéndice \thechapter}}
2027\else
2028\markboth{\uppercase{#1}}{\uppercase{#1}}
2029\fi
2030}
2031\xdef\@currentlabel{\thechapter}
2032\ifx\realthanks\xrelax\else
2033\xdef\dofoot{\realthanks}
2034\fi
2035{\ifx\realthanks\xrelax\else
2036\def\thefootnote{*}
2037\footnotetext{\dofoot}\fi}
2038\gdef\realthanks{\relax}
2039}
2040
2041
2042\let\dofoot\relax
2043\gdef\realthanks{\relax}
2044\def\xrelax{\relax}
2045\def\xappendix#1{\startonoddpage
2046\global\titletrue\dooffprintinfo
2047\global\@mainmattertrue% <<===
2048\gdef \thepage {\csname @arabic\endcsname \c@page }
2049%% To fix includeonly numbering bug: ====>>
2050\if@partsw\else
2051\iffirstappendix\setcounter{chapter}{0}\fi
2052\global\firstappendixfalse\fi%
2053\refstepcounter{chapter}
2054% <<====  end bug fix
2055%% when using answers.sty,
2056%% to open an ans<chapnum> file to be used for solutions section
2057%
2058\expandafter\ifx\csname Opensolutionfile\endcsname\relax\else
2059\Opensolutionfile{ans}[ans\Alph{chapter}]\fi
2060  \setcounter{section}{0}%
2061  \setcounter{figure}{0}%
2062  \setcounter{table}{0}%
2063  \setcounter{equation}{0}%
2064 \setcounter{theorem}{0}%
2065  \renewcommand{\@chapapp}{\appendixname}%
2066\def\one{#1}\ifx\one\empty
2067\chapter*{Apéndice \Alph{chapter}}
2068\renewcommand{\thechapter}{\Alph{chapter}}
2069\addcontentsline{toc}{achapter}{\thechapter\hskip2pt \ \quad Apéndice}
2070\else
2071\chapter*{\vtop{\let\thanks\appthanks
2072 \baselineskip=30pt
2073\leftskip=0pt \parindent=0pt
2074 Apéndice \Alph{chapter}\vskip4pt
2075 #1}}
2076\renewcommand{\thechapter}{\Alph{chapter}}
2077\let\thanks\eatone
2078\addcontentsline{toc}{achapter}{\thechapter\hskip2pt \ \quad
2079 #1}
2080\fi
2081\def\one{#1}
2082{\let\\ \
2083\ifx\one\empty
2084\markboth{\uppercase{Apéndice \thechapter}}{\uppercase{Apéndice \thechapter}}
2085\else
2086\let\thanks\eatone
2087\markboth{\uppercase{#1}}{\uppercase{#1}}
2088\fi
2089}
2090\xdef\@currentlabel{\thechapter}
2091\ifx\realthanks\xrelax\else
2092\xdef\dofoot{\realthanks}
2093\fi
2094{\ifx\realthanks\xrelax\else
2095\def\thefootnote{*}
2096\footnotetext{\dofoot}}
2097\fi
2098\gdef\realthanks{\relax}
2099\egroup
2100}
2101
2102
2103%% For square boxes for Q.E.D. symbol, used in end proof
2104
2105 \newdimen\slugwidth
2106 \newdimen\slugheight
2107 \newdimen\slugdepth
2108
2109 \slugwidth=4.5pt
2110 \slugheight=4.5pt
2111 \slugdepth=0pt
2112
2113
2114 \def\qed{\unskip\nobreak~~~\hfill\llap{%
2115 \vbox{\unskip\nobreak~~~\hfill\llap{\vrule height \slugheight width
2116 \slugwidth depth\slugdepth}}}}
2117
2118\def\sslug{\raise.5ex\hbox{\vrule width 4pt height4pt depth0pt}}
2119\def\slug{\vrule width 7pt height7pt depth0pt}
2120\@addtoreset{exampnum}{chapter}
2121\newcount\c@exampnum
2122
2123%%%%%%%%%%%% Ejemplo %%%%%%%%%%%%%%%%%
2124\def\exbox{{\fboxsep=0pt \fboxrule =.5pt
2125\fbox{\vrule height 7pt width 0pt\hskip7pt}%
2126\hskip-5.5pt\raise 2pt\hbox{\vrule width 7.25pt height 7.25pt}
2127}}
2128
2129\def\example{\@ifnextchar[{\xexample}{\yexample}}
2130
2131\def\xexample[#1]{\goodbreak\everypar={}\vskip12pt\global\advance\c@exampnum by 1
2132\xdef\@currentlabel{\thechapter.\the\c@exampnum}
2133\noindent\vrule depth14pt width0pt\exbox\ \ {\small\bf
2134\uppercase{Example} \thechapter.\the\c@exampnum}\hskip1em {\bf #1}%
2135\vskip1sp
2136\bgroup\nobreak\vskip1sp
2137\leftskip=18pt
2138\@afterindentfalse\@afterheading\nobreak}
2139
2140\def\yexample{\goodbreak\everypar={}\vskip12pt\global\advance\c@exampnum by 1
2141\xdef\@currentlabel{\thechapter.\the\c@exampnum}
2142\noindent\vrule depth14pt width0pt\exbox\ \ {\small\bf \uppercase{Ejemplo} \thechapter.\the\c@exampnum}
2143\vskip1sp
2144\bgroup
2145\leftskip=18pt
2146\@afterindentfalse\@afterheading\nobreak}
2147
2148\def\endexample{\vskip1sp\egroup\vskip6pt
2149\global\everypar={\hskip-\parindent\everypar={}}
2150\leftskip=0pt
2151}
2152
2153%% ==> Algoritmo
2154\def\xpar{\par\leavevmode}
2155{\catcode`\^^M=\active % these lines must end with %
2156  \gdef\xobeylines{\catcode`\^^M\active \let^^M\xpar}%
2157}
2158
2159\@addtoreset{algorithm}{chapter}
2160\@addtoreset{algo}{chapter}
2161\newtheorem{algo}{Algorithm}[chapter]
2162\newcount\c@algorithm
2163
2164\def\algorithm{\vskip12pt
2165\global\advance\c@algorithm by 1
2166\xdef\@currentlabel{\thechapter.\the\c@algorithm}
2167\noindent{\bf Algoritmo \arabic{chapter}.\arabic{algorithm}}
2168\vskip6pt
2169\bgroup\xobeylines\obeyspaces\def\ {\quad}
2170\parindent=0pt\footnotesize\tt\leftskip=1pc\vskip4pt\relax}
2171
2172\def\endalgorithm{\vskip4pt\egroup}
2173
2174%% <== Algoritmo
2175
2176\let\savelabel\label
2177
2178 \def\proof{\everypar={}
2179 \futurelet\next\lookforbracket}
2180
2181 \def\lookforbracket{\ifx\next[\let\go\usespecialterm
2182 \else\let\go\relax
2183 \ifvmode\vskip-\lastskip\fi
2184 \vskip8pt
2185 \noindent{\it Proof\/:}%
2186\enskip\relax\fi\ignorespaces\go}
2187
2188 \def\usespecialterm[#1]{\ifvmode\vskip-\lastskip\fi
2189 \vskip6pt
2190 \noindent%
2191 {\it Proof\ \ {\rm(#1):}}\ \ \relax\ignorespaces}
2192
2193 \def\endproof{\qed\vskip6pt\relax}
2194
2195%%%%%%%%%%%%%%%%%
2196%% Answers macros
2197%%%% Problems and Solutions, Accomodating answers.sty commands
2198
2199
2200\def\solutionchap#1{\section*{\uppercase{Soluciones por Capítulo} #1}
2201\openin1 ans#1.tex \ifeof1
2202\typeout{^^J^^J No file ans#1.tex!
2203^^J\string\solutionchap\string{#1\string} requires ans#1.tex^^J
2204Please
2205make sure that you have entered
2206\string\usepackage{answers} and
2207\string\Newassociation\string{sol\string}\string{Solution\string}\string{ans\string}\space and then run LaTeX on your file again.}
2208\else
2209\input{ans#1}\fi}
2210
2211\def\solutionappendix#1{\section*{\uppercase{Soluciones por Apéndice} #1}
2212\openin1 ans#1.tex \ifeof1
2213\typeout{^^J^^J No file ans#1.tex!
2214^^J\string\solutionchap\string{#1\string} requires ans#1.tex^^J
2215Please
2216make sure that you have entered
2217\string\usepackage{answers} and
2218\string\Newassociation\string{sol\string}\string{Solution\string}\string{ans\string}\space and then run LaTeX on your file again.}
2219\else
2220\input{ans#1}\fi}
2221
2222
2223\def\solutions{\newpage\ifodd\c@page\else\thispagestyle{empty}
2224\null\newpage\fi
2225\chapter*{Problem Solutions}
2226\markboth{Problem Solutions}{Problem Solutions}
2227\addcontentsline{toc}{schapter}{Problem Solutions}
2228\expandafter\ifx\csname Closesolutionfile\endcsname \relax\else
2229\Closesolutionfile{ans}\fi
2230}
2231
2232\let\savedocument\document
2233\let\saveenddocument\enddocument
2234
2235\def\enddocument{
2236\expandafter\ifx\csname Closesolutionfile\endcsname \relax\else
2237\Closesolutionfile{ans}\fi
2238\saveenddocument}
2239
2240\def\document{%
2241\savedocument
2242\expandafter\ifx\csname Newassociation\endcsname\relax
2243\def\sol{\typeout{^^J^^J To make \string\begin\string{sol\string} work, please use \string\usepackage\string{answers\string}
2244^^J^^J}}
2245\def\endsol{\typeout{^^J^^J}}
2246\def\Solution##1{\typeout{^^J^^J To make \string\Solution\space work, please use \string\usepackage\string{answers\string}
2247^^J^^J}}
2248\else
2249\Newassociation{sol}{Solution}{ans}\fi
2250}
2251
2252\def\xnumberline#1{\hb@xt@\@tempdima{\hskip12pt\llap{#1}\hfill}}
2253
2254\newcommand{\contentsinbrief}{%
2255\startonoddpage
2256\global\titletrue
2257\advance\chapskip-6pt
2258\chapheight=-12pt
2259\partskip=-12pt
2260\vglue-10.5pc
2261    \chapter*{Lista breve de Contenidos}
2262    \@mkboth{\uppercase{Lista breve de Contenidos}}{\uppercase{Lista breve de Contenidos}}%
2263\bgroup
2264\let\numberline\xnumberline
2265\parskip=6pt
2266{\hyphenpenalty=10000
2267\parindent=0pt
2268\@startchaptoc{toc}
2269}
2270\egroup
2271    \if@restonecol\twocolumn\fi
2272\newpage
2273\setcounter{tocdepth}{2}
2274\markboth{}{}
2275    }
2276
2277\def\@startchaptoc#1{%
2278  \begingroup
2279\def\l@chapter##1##2{%
2280  \ifnum \c@tocdepth >\m@ne
2281    \addpenalty{-\@highpenalty}%
2282    \vskip 12pt \@plus6\p@
2283     \setlength\@tempdima{2em}% was 1.5
2284    \begingroup\chaptocfont
2285      \parindent \z@ \rightskip \@pnumwidth
2286      \parfillskip -\@pnumwidth
2287      \leavevmode
2288      \advance\leftskip\@tempdima
2289      \hskip -\leftskip
2290 ##1\nobreak\hfil \nobreak\hbox to\@pnumwidth{\hss ##2}\par
2291      \penalty\@highpenalty
2292    \endgroup
2293  \fi\vskip-6pt}
2294\setcounter{tocdepth}{0}
2295    \makeatletter
2296    \@input{\jobname.#1}%
2297    \@nobreakfalse
2298  \endgroup}
2299
2300
2301%%% Macros de libro editado:
2302
2303\font\chapauthorfont=cmcsc10
2304\font\chapaffilfont=\timesroman at 9pt
2305
2306\def\chapteraffil#1{\vskip6pt
2307\noindent{\let\affilmark\newaffilmark\chapaffilfont\ignorespaces #1\vskip1sp}}
2308\def\saveaffilmark#1{$^{#1}$}
2309\def\newaffilmark#1{\leftskip4pt\hbox to0pt{\hss\hbox to 4pt{$^{#1}$}}}
2310\def\eatone#1{}
2311
2312\newdimen\chapskip
2313\chapskip=26pt
2314\newdimen\chapheight
2315\newdimen\authorskip
2316
2317\def\chapterauthors#1{\vbox to0pt{\vglue-1in
2318\let\affilmark\saveaffilmark\chapauthorfont #1\vrule height 10pt width0pt\ }
2319{\let\chapteraffil\eatone\let\affilmark\eatone
2320\addtocontents{toc}{\string\nobreak
2321\vskip\authorskip
2322\string\noindent\vrule height 9pt width0pt\hskip\chapskip#1\hfill\vskip\chapheight}\ \vskip3pt}}
2323
2324\def\contributors{\chapter*{CONTRIBUYENTES}
2325\vskip1sp
2326\leftskip=10pt
2327\parindent-10pt
2328\vskip-2pt
2329\everypar={}
2330\def\footnote##1{\hskip-10pt\savefootnote{##1}\hskip10pt}
2331\setcounter{page}{5}
2332\global\titletrue
2333\markboth{CONTRIBUYENTES}{CONTRIBUYENTES}}
2334
2335\def\endcontributors{\newpage\markboth{}{}}
2336
2337\def\name#1{\vskip2pt\fakesc #1*\hskip10pt}
2338
2339%%%%%%%%%%%%%%%%%%%%%
2340%% Warn against using earlier commands
2341\expandafter\def\csname chapreferences*\endcsname{
2342\typeout{^^J^^J \string\begin\string{chapreferences*\string}\space is
2343obsolete.^^J Please use
2344\string\begin\string{chapreferences\string}\string{<widest label>\string}\space instead.^^J Consulte docs.pdf si tiene preguntas.}\stop }
2345
2346\expandafter\def\csname references*\endcsname{
2347\typeout{^^J^^J \string\begin\string{references*\string}\space is
2348obsolete.^^J Please use
2349\string\begin\string{references\string}\string{<widest label>\string}\space instead.^^J Consulte docs.pdf si tiene preguntas.}\stop }
2350
2351
2352\expandafter\def\csname namedchapreferences\endcsname{
2353\typeout{^^J^^J \string\begin\string{namedchapreferences\string}\space is
2354obsolete.^^J Please use
2355\string\begin\string{chapreferences\string}\string{<widest label>\string}\space instead.^^J Consulte docs.pdf si tiene preguntas.}\stop }
2356
2357\expandafter\def\csname namedreferences\endcsname{
2358\typeout{^^J^^J \string\begin\string{namedreferences\string}\space is
2359obsolete.^^J Please use
2360\string\begin\string{references\string}\string{<widest label>\string}\space instead.^^J Consulte docs.pdf si tiene preguntas.}\stop }
2361
2362\endinput
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
Note: See TracBrowser for help on using the repository browser.