(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      6857,        188]
NotebookOptionsPosition[      5237,        134]
NotebookOutlinePosition[      6051,        161]
CellTagsIndexPosition[      5889,        155]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
1. VilCretasPackage: presenta una descripci\[OAcute]n general del contenido \
del paquete \[OpenCurlyDoubleQuote]VilCretas\[CloseCurlyDoubleQuote] y los \
objetivos de su creaci\[OAcute]n. Sintaxis: VilCretasPackage[].\
\>", "Text",
 CellChangeTimes->{{3.6650767524829226`*^9, 3.665076796699506*^9}, {
  3.6650771486856413`*^9, 3.665077157130584*^9}, {3.6650773033051524`*^9, 
  3.665077303727109*^9}, {3.682849615803463*^9, 3.6828496322238064`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"VilCretasPackage", "[", "]"}]], "Input"],

Cell[BoxData["\<\"El paquete \[OpenCurlyDoubleQuote]VilCretas\
\[CloseCurlyDoubleQuote] se ha desarrollado con la principal \
intenci\[OAcute]n de trabajar desde un punto de vista educativo en el campo \
de la matem\[AAcute]tica discreta, utilizando como apoyo el conocido software \
comercial \[OpenCurlyDoubleQuote]Mathematica\[CloseCurlyDoubleQuote]. \
\[OpenCurlyDoubleQuote]VilCretas\[CloseCurlyDoubleQuote] est\[AAcute] \
constituido por una serie de funciones que por defecto no est\[AAcute]n \
integradas en \[OpenCurlyDoubleQuote]Mathematica\[CloseCurlyDoubleQuote], \
abarcando las principales \[AAcute]reas de contenido de un curso \
cl\[AAcute]sico de estructuras discretas, particularmente: recursividad, \
relaciones de recurrencia, an\[AAcute]lisis de algoritmos, relaciones \
binarias, teor\[IAcute]a de grafos, teor\[IAcute]a de \[AAcute]rboles, m\
\[AAcute]quinas y aut\[OAcute]matas de estado finito y, gram\[AAcute]ticas y \
lenguajes. Desde un punto de vista did\[AAcute]ctico, el paquete puede ser \
empleado como una herramienta de verificaci\[OAcute]n de resultados, o bien, \
como un medio para profundizar el ambiente de programaci\[OAcute]n del \
software. \[OpenCurlyDoubleQuote]VilCretas\[CloseCurlyDoubleQuote] incorpora \
m\[EAcute]todos de soluci\[OAcute]n automatizados en un campo de conocimiento \
muchas veces catalogado como abstracto.\"\>"], "Print",
 CellChangeTimes->{3.6650773698841085`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "VilCretasPackage"}]], "Input",
 CellChangeTimes->{{3.6650774062126794`*^9, 3.6650774109471874`*^9}}],

Cell[BoxData[
 StyleBox["\<\"Presenta una descripci\[OAcute]n general del contenido del \
paquete \[OpenCurlyDoubleQuote]VilCretas\[CloseCurlyDoubleQuote] y los \
objetivos de su creaci\[OAcute]n.\"\>", "MSG"]], "Print", "PrintUsage",
 CellChangeTimes->{3.6650774163065467`*^9},
 CellTags->"Info-8139e1c7-4874-4a5d-abb8-badc7923dd26"]
}, Open  ]],

Cell["\<\
2. AutorVilCretas: muestra los datos del autor del paquete \
\[OpenCurlyDoubleQuote]VilCretas\[CloseCurlyDoubleQuote]. Sintaxis: \
AutorVilCretas[].\
\>", "Text",
 CellChangeTimes->{{3.6650771111070833`*^9, 3.6650771427637444`*^9}, {
  3.665077308055337*^9, 3.665077308414713*^9}, {3.682849650112322*^9, 
  3.682849655535602*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AutorVilCretas", "[", "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Autor: Enrique V\[IAcute]lchez Quesada\"\>"], "Print",
 CellChangeTimes->{3.6650774235674024`*^9}],

Cell[BoxData["\<\"Afiliaci\[OAcute]n: Escuela de Inform\[AAcute]tica de la \
Universidad Nacional de Costa Rica\"\>"], "Print",
 CellChangeTimes->{3.6650774235674024`*^9}],

Cell[BoxData["\<\"Puesto: Profesor catedr\[AAcute]tico\"\>"], "Print",
 CellChangeTimes->{3.6650774235674024`*^9}],

Cell[BoxData["\<\"Correo electr\[OAcute]nico: \
enrique.vilchez.quesada@una.cr\"\>"], "Print",
 CellChangeTimes->{3.6650774235674024`*^9}],

Cell[BoxData["\<\"Para mayor informaci\[OAcute]n se sugiere consultar el \
libro:\"\>"], "Print",
 CellChangeTimes->{3.6650774235674024`*^9}],

Cell[BoxData["\<\"V\[IAcute]lchez, E. (2015). Estructuras discretas con \
Mathematica. M\[EAcute]xico: Editorial Alfaomega.\"\>"], "Print",
 CellChangeTimes->{3.6650774235674024`*^9}],

Cell[BoxData["\<\"Sitios Web de apoyo:\"\>"], "Print",
 CellChangeTimes->{3.6650774235830126`*^9}],

Cell[BoxData["\<\"http://www.escinf.una.ac.cr/discretas\"\>"], "Print",
 CellChangeTimes->{3.6650774235830126`*^9}],

Cell[BoxData["\<\"http://www.alfaomega.com.mx/default/estructuras-discretas-\
con-mathematica-6344.html\"\>"], "Print",
 CellChangeTimes->{3.6650774235830126`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "AutorVilCretas"}]], "Input",
 CellChangeTimes->{{3.6650774513951797`*^9, 3.6650774552702823`*^9}}],

Cell[BoxData[
 StyleBox["\<\"Muestra los datos del autor del paquete \
\[OpenCurlyDoubleQuote]VilCretas\[CloseCurlyDoubleQuote].\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellChangeTimes->{3.665077456332729*^9},
 CellTags->"Info-f5dbd77e-9e43-46ef-8ec1-7cfcfacc046f"]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1366, 685},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
Magnification:>1.5 Inherited,
FrontEndVersion->"11.0 para Microsoft Windows (64-bit) (July 28, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info-8139e1c7-4874-4a5d-abb8-badc7923dd26"->{
  Cell[2711, 62, 334, 5, 63, "Print",
   CellTags->"Info-8139e1c7-4874-4a5d-abb8-badc7923dd26"]},
 "Info-f5dbd77e-9e43-46ef-8ec1-7cfcfacc046f"->{
  Cell[4954, 126, 267, 5, 63, "Print",
   CellTags->"Info-f5dbd77e-9e43-46ef-8ec1-7cfcfacc046f"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info-8139e1c7-4874-4a5d-abb8-badc7923dd26", 5621, 146},
 {"Info-f5dbd77e-9e43-46ef-8ec1-7cfcfacc046f", 5767, 149}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 460, 7, 74, "Text"],
Cell[CellGroupData[{
Cell[1043, 31, 64, 1, 45, "Input"],
Cell[1110, 34, 1432, 19, 287, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2579, 58, 129, 2, 45, "Input"],
Cell[2711, 62, 334, 5, 63, "Print",
 CellTags->"Info-8139e1c7-4874-4a5d-abb8-badc7923dd26"]
}, Open  ]],
Cell[3060, 70, 340, 7, 45, "Text"],
Cell[CellGroupData[{
Cell[3425, 81, 62, 1, 45, "Input"],
Cell[CellGroupData[{
Cell[3512, 86, 116, 1, 34, "Print"],
Cell[3631, 89, 171, 2, 34, "Print"],
Cell[3805, 93, 114, 1, 34, "Print"],
Cell[3922, 96, 138, 2, 34, "Print"],
Cell[4063, 100, 141, 2, 34, "Print"],
Cell[4207, 104, 183, 2, 34, "Print"],
Cell[4393, 108, 98, 1, 34, "Print"],
Cell[4494, 111, 115, 1, 34, "Print"],
Cell[4612, 114, 163, 2, 34, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4824, 122, 127, 2, 45, "Input"],
Cell[4954, 126, 267, 5, 63, "Print",
 CellTags->"Info-f5dbd77e-9e43-46ef-8ec1-7cfcfacc046f"]
}, Open  ]]
}
]
*)

