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

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

(* CreatedBy='Mathematica 13.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[  15637466,     257327]
NotebookOptionsPosition[  15616592,     256992]
NotebookOutlinePosition[  15621379,     257073]
CellTagsIndexPosition[  15621295,     257068]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["", "SlideShowNavigationBar", "FirstSlide",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"dea113d0-6ec9-43d3-b2f8-954b848b629b"],

Cell["\<\
Preguntas tipo cloze en Moodle usando Wolfram Mathematica
\
\>", "Title",
 CellChangeTimes->{
  3.89626579330766*^9},ExpressionUUID->"98e747ae-1a25-459e-ad87-0f69611a9677"],

Cell[TextData[{
 "Enrique V\[IAcute]lchez Quesada\nEscuela de Inform\[AAcute]tica\n\
Universidad Nacional de Costa Rica\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzs3V2T5uZ5J3ZVcpLD5COkcpKPkNMc5nRT+QC7tc6WOc9bDxWJlm1Ztixb
[encoded data, 11382060 characters]
AAAAAHBC/wUtBDk6
     "], {{0, 1080.}, {2160., 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{300, 300}],
    BoxForm`ImageTag["Byte", ColorSpace -> ColorProfileData[CompressedData["
1:eJyVlwdUU9kWQO976Y0WiICU0JsgnQACCT106SAqIQlJKCEmBAS7MjiCY0FF
BJUBHRRRcCyA2BALFgbFhn2CfETUcVAHGyr/AZ8wM3/9/9c/a5139zvv3HPO
vevetc4zSsuJTocBADI88ojm5LOkUk5BjBryEieWiQRiPo8tzuUL+FJGGoQY
mRTkAShMjkSSBSNe2eJcaXSQLz0xKZmOGwQQIAI8UAdUDlcmYUVFhY17T41/
lfd3wXhAcMt2PNa/f/+vosHjy7gAQCkIp/Fk3GyE2xF9ypVIcwFA7UXsJvm5
knG+jLCmFCkQ4UfjLJjk4XFOm2A0esInNtoPYW0A8GQORyoAgGyK2Ol5XAES
h+yPsL2YJxIjjLwDb66Qw0P4GMKzsrNzxlmBsCXiL0H2aHxDGWl/iin4S/w0
ZXwOR6DkyXVNCN5fJJNkcQr+z63535KdJZ/KYY4oWSgNjkZGIrJ/9zJzQpUs
TouInGIRb8J/goXy4Lgp5sr8kqeYx/EPVc7Nigib4nRRIFsZJ5cdO8V8WUDM
FEtzopW50qV+rCnmSKfzyjPjlHYhn62MXyiMTZjiPFF8xBTLMmNCp338lHap
PFpZP18c5DudN1C59mzZn9YrYivn5gpjg5Vr50zXzxezpmPKEpW18fj+AdM+
cUp/Sa6vMpckK0rpz88KUtpleTHKubnI4ZyeG6XcwwxOSNQUA0dgD8KBE3AB
IJe/ePyMAr8cSYFUJBDm0lnILePT2WKu3Sy6o72jEwDjd3byGLy7N3EXIRp+
2rawCwBnewBg02mbGNmVk21IOt9pm+V2ANRoAFy6xJVL8yZt49cJYJCqVIEm
0AEGwARYAlukPlfgCZggAISASBALksACwAVCkA2kIB8sBatAMSgFm8A2UAmq
wR6wHxwCR0ALOAXOgUvgGrgB7oCHQAEGwEswDN6DUQiCcBAFokI6kCFkBtlA
jhAD8oYCoDAoGkqCUiEBJIbk0FJoDVQKlUGVUA1UD/0MnYDOQVegHug+1AcN
QW+hzzAKJsOasD5sDs+GGTALDoVj4fmwAF4EF8JF8Aa4Aq6FD8LN8Dn4GnwH
VsAv4REUQJFQNJQRyhbFQPmhIlHJqHSUFLUcVYIqR9WiGlFtqE7ULZQC9Qr1
CY1FU9F0tC3aEx2MjkNz0YvQy9Hr0ZXo/ehm9AX0LXQfehj9DUPB6GFsMB4Y
NiYRI8DkY4ox5Zg6zHHMRcwdzADmPRaLpWEtsG7YYGwSNgO7BLseuwvbhG3H
9mD7sSM4HE4HZ4PzwkXiOLhcXDFuB+4g7izuJm4A9xFPwhviHfGB+GS8GL8a
X44/gD+Dv4kfxI8S1AhmBA9CJIFHKCBsJOwltBGuEwYIo0R1ogXRixhLzCCu
IlYQG4kXiY+I70gkkjHJnTSXJCKtJFWQDpMuk/pIn8gaZGuyHzmFLCdvIO8j
t5Pvk99RKBRzCpOSTMmlbKDUU85TnlA+qlBV7FTYKjyVFSpVKs0qN1VeqxJU
zVRZqgtUC1XLVY+qXld9pUZQM1fzU+OoLVerUjuh1qs2ok5Vd1CPVM9WX69+
QP2K+nMNnIa5RoAGT6NIY4/GeY1+KopqQvWjcqlrqHupF6kDmlhNC022ZoZm
qeYhzW7NYS0NLWeteK3FWlVap7UUNBTNnMamZdE20o7Q7tI+z9CfwZrBn7Fu
RuOMmzM+aM/UZmrztUu0m7TvaH/WoesE6GTqbNZp0Xmsi9a11p2rm6+7W/ei
7quZmjM9Z3Jnlsw8MvOBHqxnrRett0Rvj16X3oi+gX6QvkR/h/55/VcGNAOm
QYbBVoMzBkOGVENvQ5HhVsOzhi/oWnQWPYteQb9AHzbSMwo2khvVGHUbjRpb
GMcZrzZuMn5sQjRhmKSbbDXpMBk2NTQNN11q2mD6wIxgxjATmm036zT7YG5h
nmC+1rzF/LmFtgXbotCiweKRJcXSx3KRZa3lbSusFcMq02qX1Q1r2NrFWmhd
ZX3dBrZxtRHZ7LLpmYWZ5T5LPKt2Vq8t2ZZlm2fbYNtnR7MLs1tt12L3erbp
7OTZm2d3zv5m72KfZb/X/qGDhkOIw2qHNoe3jtaOXMcqx9tOFKdApxVOrU5v
nG2c+c67ne+5UF3CXda6dLh8dXVzlbo2ug65mbqluu1062VoMqIY6xmX3THu
vu4r3E+5f/Jw9cj1OOLxu6etZ6bnAc/ncyzm8OfsndPvZezF8arxUnjTvVO9
f/RW+Bj5cHxqfZ4yTZg8Zh1zkGXFymAdZL32tfeV+h73/eDn4bfMr90f5R/k
X+LfHaAREBdQGfAk0DhQENgQOBzkErQkqD0YExwavDm4l63P5rLr2cMhbiHL
Qi6EkkNjQitDn4ZZh0nD2sLh8JDwLeGPIswixBEtkSCSHbkl8nGURdSiqJNz
sXOj5lbNfRbtEL00ujOGGrMw5kDM+1jf2I2xD+Ms4+RxHfGq8Snx9fEfEvwT
yhIUibMTlyVeS9JNEiW1JuOS45PrkkfmBczbNm8gxSWlOOXufIv5i+dfWaC7
IGvB6YWqCzkLj6ZiUhNSD6R+4URyajkjaey0nWnDXD/udu5LHpO3lTfE9+KX
8QfTvdLL0p8LvARbBENCH2G58JXIT1QpepMRnFGd8SEzMnNf5lhWQlZTNj47
NfuEWEOcKb6QY5CzOKdHYiMpligWeSzatmhYGiqtk0Gy+bLWXE2kOeqSW8q/
k/fleedV5X3Mj88/ulh9sXhxV4F1wbqCwcLAwp+WoJdwl3QsNVq6amnfMtay
muXQ8rTlHStMVhStGFgZtHL/KuKqzFW/rLZfXbb6jzUJa9qK9ItWFvV/F/Rd
Q7FKsbS4d63n2urv0d+Lvu9e57Rux7pvJbySq6X2peWlX9Zz11/9weGHih/G
NqRv6N7ounH3Juwm8aa7m3027y9TLyss698SvqV5K31rydY/ti3cdqXcubx6
O3G7fLuiIqyidYfpjk07vlQKK+9U+VY17dTbuW7nh128XTd3M3c3VutXl1Z/
/lH0472aoJrmWvPa8j3YPXl7nu2N39v5E+On+jrdutK6r/vE+xT7o/dfqHer
rz+gd2BjA9wgbxg6mHLwxiH/Q62Nto01TbSm0sPgsPzwi59Tf757JPRIx1HG
0cZjZsd2HqceL2mGmguah1uELYrWpNaeEyEnOto8246ftDu575TRqarTWqc3
niGeKTozdrbw7Ei7pP3VOcG5/o6FHQ/PJ56/fWHuhe6LoRcvXwq8dL6T1Xn2
stflU1c8rpy4yrjacs31WnOXS9fxX1x+Od7t2t183e166w33G209c3rO3PS5
ee6W/61Lt9m3r92JuNNzN+7uvd6UXsU93r3n97Puv3mQ92D04cpHmEclj9Ue
lz/Re1L7q9WvTQpXxek+/76upzFPH/Zz+1/+Q/aPLwNFzyjPygcNB+ufOz4/
NRQ4dOPFvBcDLyUvR18V/6b+287Xlq+P/c78vWs4cXjgjfTN2Nv173Te7fvD
+Y+OkaiRJ++z349+KPmo83H/J8anzs8JnwdH87/gvlR8tfra9i3026Ox7LEx
CUfKmWgFUIjC6ekAvN2H9MRJAFBvIP3DvMmeekKgyf+ACQL/iSf77glxBaBm
JQBJTAASEK1G1AIxq7QDEIVwLBPATk5K/ZfI0p0cJ2ORWpDWpHxs7B3SM+Ks
APjaOzY22jI29rUOKfYBAO3vJ3v5cTFA/isifgNAK+O6468K8DeZ7PP/tMa/
j2C8Amfw9/GfA7siNg==
       "], "RGB", "XYZ"], Interleaving -> True, 
     MetaInformation -> <|
      "XMP" -> <|
        "DublinCoreSchema" -> <|
          "Format" -> "image/jpeg", "Title" -> "lang=\"x-default\" Web"|>, 
         "XMPBasicSchema" -> <|
          "CreatorTool" -> "Adobe Illustrator 26.5 (Macintosh)", "CreateDate" -> 
           DateObject[{2023, 4, 14, 9, 1, 54.}, "Instant", "Gregorian", -5.], 
           "ModifyDate" -> 
           DateObject[{2023, 4, 14, 8, 1, 57.}, "Instant", "Gregorian", None],
            "MetadataDate" -> 
           DateObject[{2023, 4, 14, 9, 1, 54.}, "Instant", "Gregorian", -5.], 
           "Thumbnails[1]" -> <|
            "XmpGImg" -> <|
              "Width" -> 188, "Height" -> 256, "Format" -> "JPEG", "Image" -> 
               "/9j/4AAQSkZJRgABAgEASABIAAD/7QAsUGhvdG9zaG9wIDMuMAA4QklNA+\
0AAAAAABAASAAAAAEA\n\
AQBIAAAAAQAB/+4ADkFkb2JlAGTAAAAAAf/bAIQABgQEBAUEBgUFBgkGBQYJCwgGBggLDAoKCwoK\n\
DBAMDAwMDAwQDA4PEA8ODBMTFBQTExwbGxscHx8fHx8fHx8fHwEHBwcNDA0YEBAYGhURFRofHx8f\n\
Hx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8f/8AAEQgBAAC8AwER\n\
AAIRAQMRAf/EAaIAAAAHAQEBAQEAAAAAAAAAAAQFAwIGAQAHCAkKCwEAAgIDAQEBAQEAAAAAAAAA\n\
AQACAwQFBgcICQoLEAACAQMDAgQCBgcDBAIGAnMBAgMRBAAFIRIxQVEGE2EicYEUMpGhBxWxQiPB\n\
UtHhMxZi8CRygvElQzRTkqKyY3PCNUQnk6OzNhdUZHTD0uIIJoMJChgZhJRFRqS0VtNVKBry4/PE\n\
1OT0ZXWFlaW1xdXl9WZ2hpamtsbW5vY3R1dnd4eXp7fH1+f3OEhYaHiImKi4yNjo+Ck5SVlpeYmZ\n\
qbnJ2en5KjpKWmp6ipqqusra6voRAAICAQIDBQUEBQYECAMDbQEAAhEDBCESMUEFURNhIgZxgZEy\n\
obHwFMHR4SNCFVJicvEzJDRDghaSUyWiY7LCB3PSNeJEgxdUkwgJChgZJjZFGidkdFU38qOzwygp\n\
0+PzhJSktMTU5PRldYWVpbXF1eX1RlZmdoaWprbG1ub2R1dnd4eXp7fH1+f3OEhYaHiImKi4yNjo\n\
+DlJWWl5iZmpucnZ6fkqOkpaanqKmqq6ytrq+v/aAAwDAQACEQMRAD8A9U4q7FXYq7FXYq7FVk/9\n\
zJ/qn9WKpNNKsMTytUqiliB1oBXJE0LUC0s/xJY/77l+5f8AmrKPzEWzwSl915+0m2mMUttchh0P\n\
GOhHiPjwHUx80+AVL/lZGh/74uf+Bj/5rx/NR80/l5Jjb+a7CeFZRDOgborqoNP+COH8xHzR4JVP\n\
8SWP++5fuX/mrH8xFHgl3+JLH/fcv3L/AM1Y/mIr4Jd/iSx/33L9y/8ANWP5iK+CUuv/AMwdFsZG\n\
SaG4JRQxKqhFD83GJ1MfNPglVi886ZKyqlvc8iASOKbV7H4+uUy18Aaot0NFOQuw1cee9ItwTJFO\n\
Kf5Kf815P85HuK/kp94XQedtNmjEgt7lFbdeSx7jx2c5Ue0cY6H8fFP5GfeFi+ZNP+uvdiOZiY+A\n\
TgnKlQacufSoP34jtHH3H8fFfyM+8JNafmTokDzzyW1/H60lBbyLbseXUlTHM6kfTX6KZM6+HcUj\n\
s/J3j8fBO/J/mDTtVjuorMXP+jsrSNdUqfV5fZIeT+Qk5dh1Ecl10ac+mliq+rKLP/elPp/UcuLj\n\
pnkUuxV2KuxV2KuxV2KrJ/7mT/VP6sVY/qhI025IpURORXYfZPXGf0lMeYYTyt5JJLaNzPJcx+nN\n\
A6V4MOZQ8hRabmg5V2+dMWIDklT1K50rT7OWa7uXktYyfWa4j3Br0Cqik/8AA5XIBnGy6wXTZYUu\n\
rNYzHIAySIANj+IyFJKLxQ7FXYq0xIUkCpHbFUq1fSortfUETG6RIZGKkgFQ9FPFl3LFWJ3FAK5P\n\
LC4+nmnFIcW/JE2mrabYE2DTKXiWstNwrHotQKVzGjEQ2PNzuHjjxDkwTVPMGpxa61zbRpLBCzII\n\
zXlQEio3zDllErHJu4CAynRvM2l6hGgeUQztQGOSqfEdqDlSu+VmJY2o69LduTDbCsCyAOyUYsOI\n\
JACsWO7eGXQx7Wzj5pSlmV9VUdiDswYVk8SRx2C06ZZwsrZ3+WdrLAdQJiEULiD0RWpoOf2jXrvm\n\
w0Iri+H6XVdoSvh+P6Gf2f8AvSn0/qOZ5dcmeRS7FXYq7FXYq7FXYqsn/uZP9U/qxVIr6ITWc0Jk\n\
9ISIyerQtx5CnKg60yR5KObCDzNmsMaiJSyhJ1BDrJGOmyhf2SDRtvsnfMORpygoatbPeL8Vvb3n\n\
KTnJDdD4KcCo4/C9CNuoO1cqJtmNuSHto9ThWW3trK1s4U/uCjEoxYEluCKn7R3GDZbKuJNZFOUF\n\
uxqakSutFLGn+6zUhfvPhjshbBLrUsKPJBDbSHlzjLmSm3wiqhR16/5jHZVa0kv2r9ahjjAqAUcs\n\
SQaV48RQEb/axSicCpL5h1SfR1hv4o1eNHiSauzCNX6K3YEGh2yXGQExiCQClPmLVrMNC9vC11dz\n\
RILaPeQqu/xcqGqhif1Zi58ti3Z4cPBskC2qWkJe7SRW+1IzAqUQ7FwpB5cepr2zBhjtyxEHqyLQ\n\
dJltodRi1mFdQFrK8+lSSRh/3XHknE0PEilPh9sy48PJxZ2aISPSr6e6nGo3VpB9Unco5tax3Vv+\n\
yS7pRmAC/Epp+GQjsaDIyNWm3m+O68s+j5hgcyWUIWHULHosqs3BZKgfbUuO24y44yRV797jGVbv\n\
TPJt3b3mmRXVsQbeeKOSKlPssKjpmR2aCOIHy/S4GsNkFk1n/vSn0/qObMuEmeRS7FXYq7FXYq7F\n\
XYqsn/uZP9U/qxVIdQZlsp2XZgjEE77gHDPkUx5hhqgqCORPIlmqdizGpanSpJ7DNcTbmIe++t8I\n\
/qnH1fUWvMkJwG7hqV6rsNutMCQgpJ9YjmijihaROUgmkfiFIPqFCCCzChVR9noehxTs65n1lbWU\n\
wxM1wIx6IHAgyBCfjqFABbY0J+YO2KilG11LVbkQtHC37ziZWKqY1BIKshqvJHUNvyJG22KkBEQ3\n\
GqjUZhJA5tncLCfg4oFqGJIYEhlAYbEgkg9sV2pT9bVknaKQFY5ZmWG4FGcKVkYBo91ovFaEHcda\n\
GuK7ITX0vL/S9Tgmt2jgREaBn41ZlduVOJO1FUj5/QCGJ5MTtr64n0n9yo+v6Srycz1a3WpkRQOp\n\
5UYV/jmDOG5i7vDLigJd7II9RsNV02joHZ0aKVT+0jjiw29jguuXNr4SCm1nO0Jt4wD6SKqDevwq\n\
AOpwAbqUYfK+metNf6evovct6lwlTxZ+PDlxNQDQduuZPD1DRxkbFjX5r6vC/le6sxQzMYiFJoKi\n\
VCPxyUZWWuUaiyb8lrxpNDltK1itBEIexCMGoPwzK0kalI99fpcHVcg9Ls/96U+n9RzNLhpnkUux\n\
V2KuxV2KuxV2KrJ/7mT/AFT+rFUh1H/eC4/4xt/xE4z+kpjzDDs1zmITUXvAsS2lfUdypNKgfu3I\n\
5Eg0HMLU4pCjFc6kGVZlUs/OgSKQD924UjkWIHMbrWn04rsgodb1kpyk09yTT4FjkUisUj/teDRg\n\
f7Id+qy4QrxalqvqXSy2hPoR87cIrATHlINmOy1CJ8J3FfCmKKC9b/UzGX+r0AniRRwerwySBTJT\n\
Zk4q1SGHbwxWgmmLFDakVFhOW6cDXCFLx70tVsfMkt4gL2ShOAWnNZAqkgbj4T+vMXMRfm7XRzqN\n\
Hku0q8khuGYgJzYsVUUUV7Ae2Y5k5NW9E0a8jmtuTkCiin3ZISaZRVb/AMzwaJp8tzOaqAeAoT+r\n\
JwkeTCcRzfPOsecb7V9Wl9VgBOGEaCtPiqqDc+JzOjjEQ6+eUyL3r/nHa8luIdb5/s/VSPp9b+mX\n\
6bq4+q6ParP/AHpT6f1HMouImeRS7FXYq7FXYq7FXYqsn/uZP9U/qxVIdR/3guP+Mbf8ROM/pKY8\n\
ww7Nc5ijctAAnrS+kGbih58OTUJoNxXYYqpw3enhWCXSOEqXJkDEUBrUkmn2ThpbXNqFgqlmuYgo\n\
6kuoA+Lj4/zGnzxpWv0npvLj9bh5dKeota/fjS239fsdv9Ji3AYfGvQ9D1xpV8d1ayPwjmR3oW4q\n\
wJoDQmgPviqXeYrpEszb1+OWlR/kg1P6qYCVCV6Ro8F1aid0qZmZviHYHiD8iFrmJONydhhlUFWT\n\
yjpYblwA+gZE4w3DIUh166j0cotuOaE0eh2VR1NBlZju3R35onUZ7a9tHX1rSfSY7eSSSWVA45Aq\n\
ArnkteSltwRxOWxHcxMRW7wO4htU1T1rZaW8KlYeRqSS1Qa0HQnM6zTquECW3J9E/wDOOMMyWery\n\
srCKVbT05CCA1PW5UPfLtL1aNUeT2yz/AN6U+n9RzLLhpnkUuxV2KuxV2KuxV2KrJ/7mT/VP6sVS\n\
HUf94Lj/AIxt/wAROM/pKY8ww7Nc5iE1GESxIhtjcjkfhDBAKqVJJJG1Gp3whBS9FeP1riTSnRlW\n\
YKQ4csGcUCqjOfiAB9t/pKuW2A9Rf0M6xyGrASx0YLRgSvOlf6daYq1b27LK0zaO6SvU8xLGT8Lh\n\
05/HuSygk74qsh0iz+sBBozRxtQSTtKtAKcugdmPxe3vja0j4NP0vSo3mhj9JaEMeTNtXlT4ie5w\n\
Xa0kaJJrGp8JQfSoDKRsFjBNFqO7dMqnOm/FjssmaFYVVYgFRRQKOgA6ZSS5YDHNX1i/e5/R+m20\n\
lzdsvJnXiIoxvvI7EU6YIwMkyyRhzeYeYvLf5oag1zcKsMFrAxrI0gIZTvVRxJoPl8q5lQxRAsuN\n\
PUyJoIHRvya81aneLJq09uFeAT8g0pYMSOKFVEQrTfrlokOQceRJ3O70DQPye0KKGGa9j+tSRyGK\n\
NGqkYKitAi0BG/7VTkQUEvW/JthBYrcW8KhFQRrxXYCnLbMnT9XHy9GVWf8AvSn0/qOZBaUzyKXY\n\
q7FXYq7FXYq7FVk/9zJ/qn9WKpDqP+8Fx/xjb/iJxn9JTHmGHZrnMQ2ozTw2U0lsFe5CN9XR+jSU\n\
PAHddq9d+mKQlsWtXji0ZVjlElzcW90sdQV9ESFWUs1KUjHXryGKaRc+oXFvZzO8Yku1inngt0DD\n\
kkR+EHrRviUEePTFFNSXt02oPbRKv1ZoI5I7lTuGeQoeoZd1oV28cVpW031mtI55pnlaaNHo/Ci1\n\
WppwROveuKlJtTubrUb5LCyj9Z2fjBGvV3oa7mgAG+5xok0F5bp++l2uiQSWqOXAcs8j9WY0FaDp\n\
0ApmNnFFzdPuAofW2KbfEnbxygZHIMUu0oNp9msaoPrEjFpCd1rt4ZfDJs4uTHZ8kwltnuTFbL/d\n\
I3qXLd2atafScslLo0AdU2trChed9h1P3gDLI97VIq+oNaRW8UYajLKrAd9q8jT6N8sPJrHNH+Xp\n\
hNLdSBOKuVYEkGta16V2y/TSBumvKCKtkFn/AL0p9P6jmSWlM8il2KuxV2KuxV2KuxVZP/cyf6p/\n\
ViqQ6j/vBcf8Y2/4icZ/SUx5hh2a5zEBrM2mQ2qvqMKzQ81CI6LJ8bbCgbvviUhLYfNfl1V9WJQg\n\
cAFqRqaCgCn4gRTpQ4LVUXzXoiyM3Fo5GbgxZVRmYbdyCfs42tJlpz2E9nHJaRKkDfEqBQtCPYd8\n\
KlT1W4S009gg4VHpxhQABXYUHtihW/LnTmWe41aUgIAYLYH6DI+/0KPpy7BHqwyHoxvzB5jvNZ8w\n\
m309W/R0LH6zcdAz70RD3ptU5rNROyXcYMfDHdNrXaEIe2UBnLmiYYATuNjlsItUymdksSBncgKv\n\
xOSaABdyScyscLLg5TSDufMcc/K3tH4JyFbjjyFFp9gHY/F3P3ZKeeEDR3LWMUjuqQs890noxtIz\n\
h3uJCC7kKtQqg9icphkOTZlMcLK9ItZIQzsVKShWj41Ipuep+eZ+jjV/Bx9QeSb2f+9KfT+o5mlx\n\
kzyKXYq7FXYq7FXYq7FVk/8Acyf6p/ViqQ6j/vBcf8Y2/wCInGf0lMeYYdmucxC6jBbT24huYjLG\n\
7AUVeVCN6/hjSpRPpegQgTNazMEYAuInqg+L4zVRsPi6ePvjwrxKi6RoEnNlid+LFXIRyeVSGH2f\n\
8nf+0Y8KbTGC4tYIo4YoZUjHFVAikoOYJ32+89sNItLvNJIitf5fUNf+BNMB5KOaWadquqNp0enu\n\
fStQzlKAhnDszipruG5fD47ZRkyT+gObhxwA4ynEccaxgAZh05VrrR/UldKU4detaE7bEe2W+HQB\n\
axOyQmDlUSo65ZyRzS6fSrzVG4ySmO2RuSKppUnuev0ZE5JcNDq0zA4rV4NJa1XhG3r02JJHMZhS\n\
iWdr3vYJYTpqyBLivJADxap+dPDLYCVWFlhNcXROPIdnf2suoC7JPIxlCTUn7da5tezv4vh+l12r\n\
ramaWf8AvSn0/qObIuGmeRS7FXYq7FXYq7FXYqsn/uZP9U/qxVIdQBNjOAKkxtQD5HGf0lMeYYl9\n\
WuP99P8A8CcwOA9zl8QSyfUL5JSsWnTyINufF1r8hxOCj3Jsd6JsZLq6Ri1pLC69VZW7+BIFcRE9\n\
yCR3or6tcf76f/gTh4D3LxB31a4/30//AAJx4D3LxBCanptzPbUWI8kPIc4+Q267FJPv4k4YxPcg\n\
yDCrS112DzBcQT2V9d24j52zyoWIZaqVMhCL8IHEH9pTtXpkMuAy35N+HOAKLIbiHUli+G0mLdCA\n\
rVHXcUBzG8CV1Tl+NGrtKpZtWtrqecW12YrdOChYpD6jyFGIC039NF2Y13JHbLeA19JaxIX9QR+k\n\
Xt/qNr6jWlzbRoeIWaN/VYA0rxIHbfqfmeuV5IyN0C2CUQNyCU3a61SOSOK2s2kUD95csrIqDt8P\n\
H4z7VyswlXI/JiBCrMvh+OTGPMnl7zV9fS407154rgirrVHjc7HlT9nvXAcciOR+TscGsxcNSrZQ\n\
0lPNUuqSJq+nyKLNAhneNmEzGtCppQ0HU5IY5gcijJqMQj6CN/PkzT8tLzWJ9S12G9guIrSBoPqU\n\
txz+MN6nPgHGyig75sdHEi7dV2oYEQ4ave6+D0Oz/wB6U+n9RzNLqEzyKXYq7FXYq7FXYq7FVsil\n\
o2UdWBH3jFUEdPkp9pfxw2hb+jZf8j7z/TDau/Rsv+R95/pjau/Rsv8Akfef6Y2rv0bL/kfef6Y2\n\
rv0bL/kfef6Y2rv0bL/kfef6Y2rv0bL/AJH3n+mNq79Gy/5H3n+mNq79Gy/5H3n+mNq79Gy/5H3n\n\
+mNq79Gy/wCR95/pjau/Rsv+R95/pjau/Rsv+R95/pjatjTpR3UfKv8ATG1VYLN45VcsCBXYfKmC\n\
0ovArsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirs\n\
VdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsV\n\
dirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVd\n\
irsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdi\n\
rsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir\n\
sVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirs\n\
VdirsVdirsVdirsVdirsVdirsVdiqTf4j/5d/wDh/wDm3MX8z5OT+W83f4j/AOXf/h/+bcfzPkv5\n\
bzd/iP8A5d/+H/5tx/M+S/lvN3+I/wDl3/4f/m3H8z5L+W83f4j/AOXf/h/+bcfzPkv5bzd/iP8A\n\
5d/+H/5tx/M+S/lvNZN5klETmK2BkAqoL7E+HTBLUmtgyjphe5Si2/MJ2nCXFoqIdiwc7H3qMxId\n\
p70Q5U+zdrBToeYwRUW9Qeh5/wDNuZn5nycT8t5u/wAR/wDLv/w//NuP5nyR+W83f4j/AOXf/h/+\n\
bcfzPkv5bzQGp+dktFCpbB5m6KX2A8T8OUZtfwdN2/DoOPrs7S/OFzdq7yWipGuykOdz9Ixw60z3\n\
IXNohDYFH/4j/wCXf/h/+bcv/M+TR+W83f4j/wCXf/h/+bcfzPkv5bzd/iP/AJd/+H/5tx/M+S/l\n\
vN3+I/8Al3/4f/m3H8z5L+W83f4j/wCXf/h/+bcfzPkv5bzd/iP/AJd/+H/5tx/M+S/lvN3+I/8A\n\
l3/4f/m3H8z5L+W83f4j/wCXf/h/+bcfzPkv5bzd/iP/AJd/+H/5tx/M+S/lvN3+I/8Al3/4f/m3\n\
H8z5L+W80z+s/wCh/WeP+6/U4V/yeVK5kcXpto4fVTEK5rXYurirq4q6uKurirq4q6uKpPqukmRj\n\
cW4+M7vH4+4zEz4L3Dl4M9bFA2mrXdp+7Pxou3pvWo+XhlEM8obN88MZ7pgvmOCnxRMD4Ag/0y8a\n\
sdzQdIe9QuPMUrDjBGI/8ptz93TIT1R6M4aUdULZ2FzfS+o5IjJq8rdT8vHK8eKUzZbMmWMBQZJD\n\
HHDEscYoiigGbCIAFB18pEmyvrkmLq4q6uKurirq4q6uKurirq4q6uKurirKP+lL/wBG3/MvM/8A\n\
yfwcH+P4sH1jWtL0bTptS1W6SzsLfiZrmU8UXkwRan3ZgMwACdg5xNc2tH13SNa0+PUdKvIr2xlr\n\
wuIWDISpowqOhB6jEgjmoIPJGCVCQAwJI5Ch6jxwJbLgbk07b++2KoTTtY0zUrf6zYXMdzB6kkIk\n\
jYFTJExSRQfFWU4kEIBt2oaxpmnQJPfXMdvDJMlvG7sADNK/pog/yi5piASpNLrHVLG/hM1rL6kY\n\
llgJoy/vIXMci0YA/CykYkUo3RHqpx58hwHVq7be+KUBHdaJqj3McckdxJaTm1ueJ+JJ1RZDGTsa\n\
hHByE8QPMMoZSORabRdPBFSy1NAOQ6/SMq/LRbvzMlSLTNOhYfAGbb7Zr1NOh2yUcER0YyzzPVXu\n\
r6zs7Wa5uJVhtrZS08jGioqjka/RlwDSUPpWvaVq0LTafcrcRK4iLgMAXMaygLyA5fA4aowkEIBB\n\
VLrV9NtLm1tbm5jiuL6Qw2kTNRpJFQyFVHiEWuAAqS691bTrGOGS7uEhSeeO1hZjs08r+nHGP8pn\n\
2xAtSUSJUNKMNyVG/UitR8xQ4pXVxV1cVdXFXVxV1cVdXFXVxVlX/Sj/AOjb/mXmw/yfwcD/ACnx\n\
eX/mB5VbzZ5SvdAW6+pm7aBvrPEsV9C4jnNACpqfTp12zAhPhNudOPEKYTrf5B+Xrx9RazvGtZrj\n\
Txbx3MxkuLhbl7mWee6lleSsn1hZDG9f2a75YM5azgDCrv8A5x881Pq1jpa3sNxpPoIs+rmglgWl\n\
1yigiL8kircLRBUNQGopTLRnFW1nAbpkV5/zj/e39rOmo63btfTG4eCaO1ZVimlSzRZI1aZm5Ktk\n\
3f8AayAz10ZHBfVDaP8AkpBeNpWo6B5is20S21CbUNOMNoQ5RriKRuMyTLVwIPS5AAcRhObmCN1G\n\
HqDsrH8mtM0/ytJ5c1HXrNrnVNUjv9FaW2/cia3jrIhV5XeT1YlbnWT78HjWbAXwgBRLGrzyh5e1\n\
LzBcXb+brSy0qCJ72PWEUrc0luri7dYGZ14qF1KFXPxc60G9RkxMgcmBgCebLdC/Kmy1L8uFsNN1\n\
+zvrObUItTikigY6a4t4hA0MkAm5EPw5yfGPj37ZCWWpbhsGK47FCx/kvC2vejH5ot5L6waC8uYX\n\
t2aSBCLXhPFSYenJJ+j2Usa/AxHvj423JHhb81I/84538tvbW5120tZLe9kvZDZ2bRV9cp8SqJuK\n\
PF6PGLiAAK96kn8x5L4HmjfPn5O6XqHmC416712Cwm1a7kgtHeEl/rNzDBb2sauJFJeKa3Zlp49q\n\
YIZSBVLPECbtDz/848XbJqg/xDFMt/e/WFjubZnRqrcrWdRMvqTL9bqj7bqNsfH8l8DzRY/IPUV1\n\
LTbpdeiMVheR3fptankOCWiN6biX4S4s6H2bHxxXJPgb80tT8hdG0rUtIL69bW9681nFZR+hRnmt\n\
baRbtov3m0r/AAyq37LIK12w+OSDsx8ECt0xtPyjg8teQLnTtS8zJBaxalbanJqCxGOOJbPiGCJ6\n\
jUkb06s1ftdsBy3LYMvCqPNRtf8AnHy8hj0tY9egjl0y9juT6Vo4QenFbpySNp2VZpPq3ORmBqzG\n\
lO6c/kgYPN7ZyzHch3LFXcsVdyxV3LFXcsVdyxVlv/Sh/wCjX/mXmw/yf+b+h1/+U+LD+QzXOyeM\n\
XP5J63qeseZtRmv7fTzqlxdC1UQmYywzXEMo+sn1AGj4wlVSgKlia5keMAAHHOEkkpbL/wA4+a5b\n\
3FjFFqsN7BJby2N3dPCVltYnsrm2X0eUprFWZax9eW9aZL8wO5j+XKOg/wCcfNRk8x2+t6l5gjuG\n\
+vG9vLVLZliZWMZaOIPK5X1PSKOTWqmmD8xtQCfy5uyVKL/nHC4iuNNMOvpDBpqyxII7Z0kZGkkd\n\
WZ0mQ83EvCUgjkoAx/MeS/l/NOIfySu0/LYeU/00qX0F8b+w1CKAotuSODIqc+TVRn3LVq3tkfG9\n\
V0y8H01a28/IoG5klsNUS3WPgbBHgMgT0Bp/oLJSReaj9GkH2b2xGfy/G/61OD8fJZqP5FT6rDqc\n\
+p6tA+sX9ukUV5b2S28cUgupbmX91G4DJKsgRq/E25YknEZ65DZBwXzKW/8AQudxDZtBa61b87m0\n\
gtr+S4szKZGguBMFU+qpWIqqJx32Rd/CX5jyR+X8088pfkzf6Frc+ovrvqLcaSulyCKFkmLCCKH1\n\
fVeST7Jh5KAB+usJ5rFV1ZRwkHn0QelfkRdWPlJNBfXFkZNWttUEot2WMLaoE4CP1DRpKcmavXCc\n\
9m66IGChV9UGP+cdpIhEttrEKQxC3P1V7Z2g9ZLOO2nugizJ+/aSMyo3Yk1rkvzHkj8v5onVvyDk\n\
n0sWunatDaXVyL9NUuXt3f1kvbpLhGVRKvF41hSOu4IHTAM++4ScG2ynpf8Azj9NY30F82r281xa\n\
6oNRtg1mWRUIIlB9SV3aRjwYMzEBkHXE576dFGnrqlzf843ak+kmxk162cs8rFWs3MQM0UURmRBM\n\
KTfuK8v8o7YfzG/Jj+XNc2d/l5+XF95U1vXdSudTS+GsOH9OOEwUb1pZC7/G6s1JeOwGwyvJk4gB\n\
3NuPGYkl6Np0UU0rrIOQVOQ3I35AdvnlcQnISBsq331K0EHK2mm9eZIFECPJxL/tycfsIv7THYZI\n\
RtrjKR6pdHqVktnNLd2F9CLeeS3q8EhaQRrzEqiEv+7Zejmg5bbdMkce+xCTxAcwdr6fi0Pf63Fp\n\
3oJBpOoaioeaK6ljgkLKbeLnyAkVOfqNRUK/A29G2oZRx31ATjgSN5faipNSlW8ig/RFx6TQxSTz\n\
cYyI5J5hEsXwsQ5QcnlKkhVA68hkeAVzRW18X4/HJI7vUr6G8nVZB6Zkdo1oCArMSB0rsMwtXkMJ\n\
0O5ztJjE4WXR69cD+8RXHtVT/HKRqpdW46UdHo31gf4W+sU2+o+px/541pm94/3N/wBH9Do+D99X\n\
9L9LEq5r3Pp5J5q86rB5zvLGPz0mmW0Kq1zpf6OmleH0jGWpMqkMrBZObBgFqKg5kRh6fp+1olP1\n\
c0rHny6u7SaW3/MMXLwFZkSHSHU8YY1Z+fww81fkG6qD9kex4K/h+1jx3/F9iNl83395JbQW35hJ\n\
CNTFu2kSPpZBkAkX45P3cXEzGKQcK8SN9gaYOCv4ftTxf0vsUtM89+peCGP8x1lZmeZ4p9KdSY2S\n\
YVVnjQFY3UVK0CleJ3OEw/o/agT/AKX2KsfmvWlktNJH5gxi+lkfhcSaSQziWa2t4I+DR02lMg9Q\n\
la8wdwKgcI58P2p4jy4vsU7Dzhql1MGT8xw1pIymMHRQJQJFBQNJ6fpfFwbi3GhLClaqMJgP5v2q\n\
JH+d9iDtvP0yLZPJ+ZqS8WRZEGjlQyTtWB3HFnXkgI+I9CG2PxEnH/R+1An/AEvsRN557v5JJRbf\n\
mD6Szx+rYsdKT0/3/q+jycxOyKpQBuSV+dCcAh/R+1TP+l9jovPd7depdwfmABYxS29vLKukMS7z\n\
rPIkUaFDIJGRKsfTpstOtMeD+j9q8f8AS+xdH57lt9TC3n5hD6nFcxTPC+kn47Z6mKKOaNannwPJ\n\
jU7gePJ4Nvp+1PHv9X2KukefZHjsrufz8tyttMqX0Z0h0+sI7vEqxxxqWXk1q+/WtfsgqMBh/R+1\n\
RP8ApfYh4vzCmuhaw235hxtOEaOS5i0l5BK6RcpOMYT7fwOy0FOnX7JPh/0ftRx/0vsV5POV5c+q\n\
tj+YSC6uLz9GWfqaaKpPEiB1KcAhYu3qMx2psPYcH9H7U8X9JuH8wLJNUt76f8w1+o+pKklp+jHV\n\
X4qLgozGP4aQslNgdiKlicfDNfT9q8e/1Mn/ACs8zLrMGoA+Zh5jeNo5UP1M2bQxyc1FaqvNZHjZ\n\
l9vamQyxrpTPFK+tvRdNuBHLPxQzSiBnSBCod+LKaLzKrU9ByIHvkIEXScwPDfmjpH9WdIpLB2jd\n\
ZVad/RZFUGnFhzL0lAqKKdvtU6ZP4uMCUltvK2izSXWpQKVk1CaSaVeIETB0EbxvF3SThylBoXb7\n\
XYCw5JDbuQZyyCJBI4f21fu/FJlBbq5WeVCkyyvJRJXK8gGiHQqCpU14kU5HlTlvlZKYyJG7F9T8\n\
0Jo+s2fl6x0eS+SSe0iMv1hBFAjMiciJiXrEgDhUUhtt+RalMtXjE+Ey9XuPVyxpc04+IB6d99vi\n\
g9QHG5K+AA/DMXXf3nwc3Q/3fxQ2YbmPU/8ApiP+3Z/2L50f/If/ADP0PO/8iP8AP/SxfMNzENDp\n\
unQzTzw2sMU9y3qXEqRqryPxC8nYCrHioFT2GNlFBU+qWtCPRShFCOI6UpTp4Y2tNtbwP9qNW2pu\n\
oO2KUPJo+kSfV/Usbd/qv+8vKJD6XwlP3dR8PwMV27GmGyigk2s+W/ME91JcaTrf1AuFCpJbRXAW\n\
jqxIMgJFAtAooN/GhEoyHUMTE9Cld95T/Maa7M1t5sggjKLGITp0Dr8M3P1DXctwCgVNAakZITj3\n\
MTCXerW/lLzcliYZ9fSa6kMiNci1iQJEIXW34R0YeokrBmao5Lt4HAZx7k8B70G/kPzwXlmj82hL\n\
oRcLaVbC3AElAayKeSuitXgtPhBO9ePE+JHuY+HLvRM3lLzwkcps/Mdut1KCqzy6dAfTUSK0YVEK\n\
B/TRWRef87HBxx7k8Eu9RHlj80PXlD+Z7WS2jlia2MllAXeNaGRXCoixlviWq8vEU6A8UO5eGfen\n\
vlLSvMlnZSDzFewX93J6RX0IUjWILEqugZUi9QepzYEoOvTITIPJlAEc07FvbhgwiQMDyBCitd9/\n\
xyLNr6tbUI9JKEliOI3JFCfpGNrSmNM00elS0hHof3NI1+CgC/Dt8OygbY2UUFt1Pb2UVURVdhRF\n\
UAVp407CuVZcvCG3Fj4i15Smkk1aaRyWYwMT/wAEuUaaRMyT3NmtiBjAHey8MCPvG+3TM91SBj+r\n\
WFm6/YhhZzQAgfExYAV6/apt1OSNktUahHyDVlzFnEXZmdl5s0i8Gq/xGq/s9enbE82WP6Qqcq4G\n\
SR+nG5bkobfuAewxzAEuVgJAUJtLs5P2OB8U2/DpmLLBEuVHPIM59Af4U+r12+oeny/540rm14f3\n\
Nf0f0Oq4v31/0v0sW+rS+GYPCXN4g76tL4Y8JXiDvq0vhjwleIO+rS+GPCV4g76tL4Y8JXiCT2Vp\n\
eeYLOfV5L+TSvK1uJHSa2AN1dpDXnKrlZPTh+E8OC836gqKVzcWmFXJws2pN1F5MnmW7i1uG3ivL\n\
yKK7kjjt54tQnuJVZ24c2hu/VgdebDoq0WuxO2Ygyg7V9jlSwyiLt6X5X12+uruTR9UCfpKKP1ob\n\
iMFY7mAEKzhTXg6MwDrU9QRsaBMeoWM+hQU35qeSre5ubW5u5IZ7W6eylVoJmHqRytCxDIrLx5xt\n\
1Pb5ZLwZL40Vq/m35CliuHtNRa7NrCLieKG3uGdY2mFuDxKLU+qwTiPiqRtj4Ml8aKw/m/5BiuPq\n\
13qD2dyPRDxTQT/C9wSI0LojxljxPRiPfY0fBkvjRZjYyJfWVve2xL211Gk0DlWQlJFDKSrBWFQe\n\
hFcrMSzEgr/VpfDHhK8Qd9Wl8MeErxBbJE8aM7iiqKk+wwHYWkGzTGLuWW4maRhsdlHgPDNZkkZG\n\
3ZwiIiky8qxt+lQCWX4G3U06EGn4ZdpNp/Bxtdvj+LKfq0sLTzRyySPIQfTlk+BQDUhfhbiKe2bK\n\
3S8BFkFRlgeS5MslWWPh6cQ4kchyLMKnp8Y8DVcbQY2bPT8fj3LC/ryO4ldYovhkiCqauBy2NGJp\n\
y3oeo+dU7BMbkdipmC5hlDQzlkdiZI5jzJrVv3ZJWh/ZArQdcNhHBIcihbeKR0LAV3ODKN3MxGgq\n\
/VpfDK+EtnEGX8T+gOPf6pT6fTzY/wCT/wA39Dr/APKf536Ul2zEcp22Ku2xV22KpP5xmuYPKOuT\n\
Wn+9UWn3T29OvqLCxSn+ywx5sZcmQDS7KbywNKsmEdjLZfVbZwKqsTRcEIWq1AXttmxkLFB10TRs\n\
vlO609Y9Z9EQGKS0JZ5Yo3laBI3LvIFQVYhviAU1J2G9M0kYyt30pwq6em2F2k3mXyrdWMiTpPeS\n\
Ks0bB1eB7G4ZqMpoV+FW+gZfjFEguFLozK01b17m/jaW2tWgupIgrLGtUUGjnm6liWXf/OmBHVEy\n\
kCQKkR8Pm7GemEREgE3EH4/AIWHUDb6Cl3Bd6bDMsXqC0SNV2VUKRqqtUEGo370275A6ufh8XFG+\n\
dfo5sxpo+JwcE6ur/TyTCK5T0IJrm7s4xcRW8ktuyRrIJJePKoLdFXpUeHhl0c5oEyiLA267/Fpl\n\
hFkCMjRlv02+CDTX76HXrPTRPa3VtOAC1uPsDcAVVmXtUe3YZSNXPxRC4yB7m/8AKwOIzqUSO/8A\n\
sZXtm0dY7bFUm8yXQSFLZesnxP8A6o6fjmJqp0KcvSQs2x3bMB2Cb6FYSzM8oKKhDRUkT1FYMp5A\n\
rVainvmZpYc5Ov18zwiI5p48SzzypLN6sQZSIAoohRQeLkVrXmrAH9WZYkOjrJYz15Hl+Ou6lNJy\n\
9W6t95Y2EZXmtH9MsOHwk7nmaA/tUyQHQsCechzU3S7kIurORl9WMEwThglaihKn40IWvwilT1x5\n\
bFJBO8T8Crss5kqrKqcqsKliVAAPXpvUUHzr1GBmbv8AH4/HwdpqkWi8uvfLJc22PJFbZFkyD/pV\n\
f88P+NMzf4Pg4f8AH8WCRmQtS01dmbtHOI5AfuEb/jmBHPA9zspYyOYV49VmhlWDUYxC7njFcISY\n\
XPhU7q3s335Zw3ya+HuTDnkLRTueNrTT8HRkdQyMCrKwqCDsQQcbRTxr80fNH5teTPL0GkeXYuWh\n\
2yMkWtwoZ7pIACI4JeXIR+mvw+pT4qKQQa5mY8tii4eTDRvo8U1T8wPNGraInlrTopJZrwr9cuok\n\
Y3FwvpqBBsOVAeXNty5J7FuQGOIkZNkspIp7N/zj7+UepeV45fMGvKYNRuk4Wmnk7woeryDtIQSA\n\
P2QTXrQVZcgOwZ4sZG5eiQaYn1jUP0lp090Zrp5IJYmX+6JqoqZEI8Ke+aUYfVLjiTctvd83cSzb\n\
R4JCNR3vv+SHvtLElteJb6VMs8nEW8lUUVAWrAeoeAqG23rXK8mAkSqBvp+L2bMeapRuYrr+K3Vp\n\
ND0oRkR6ZeliuzNIBQ7D/fvzPzyZ00ekZfP9rAamd7zh8v2Jn5asZLXSbZbuILeIH5saFxV2I+IV\n\
/ZIzL0mMxxjiHqcbWZRLIeE+lNueZVuLTueNrTFdan9XUZfBKIPo6/jms1ErmXZ6eNQCByhvZjYQ\n\
i3itoR1WvL58GJ/HNvjjwxp0ueXEbRhqeuFoQdrGGUElW4SytQipVmckbncEKxH04SwgNviVO3s7\n\
OWONgvrRIJEQyNzHFpAab8gRVBx8ABglzZYiBHb8fHuRgQKoVQAo2AHQDFKAksbgyO0N7LAwNOAC\n\
NHt/kspP45aZeTdA7KbX+oWW98iz2w63UAIKjxeM8jT3UnGgeTPhB5My9eH9BevzX0fqvqepX4eP\n\
p15V8KZl16Pg4Fev4sKm0zT5VoIxG3Zk2/szUywwPR2sc0x1QglaBjYX4E9pOOKO2+3gf89shDJL\n\
HKjy6FslATHFHYojTbiWGWTT52LvCA8ErdXhOwr/AJSnY/RmXLfdxyOqYeqMhbGneqMbWneqMbWl\n\
iJbxszxxojN9plUAn5kYbWl/qjBa0xtvzL8mJqE1hJqHp3EEsMEpkhnSIPcErD++ZBEVkKkKwbif\n\
HJ8BY8YR3mPzZpWg6be3d1KjzWdpNeixV0E8sdvG0remjEV+GNsEQSmRAQupef8AyzYiM/X7adTc\n\
pa3LRTwkW5cuvOb4vgUNGVNe+ERKDIJnF5g0Wb1fSv7aT0I1lm4TI3CNxyV2odlYbgnI7stkom/M\n\
Ty3Hq404XUMgMUcpukuLf0h6jlQpLSL8VByoNyOgOS4TTHiFo+Pzj5WktVu11azFs0QuBI08aj0T\n\
0c8iKL2qcFHuTYYbJ5v0O4a5mhvLeY+pILdUngYzsI1mpFxdq/DINmoe9KEE6ueOXFydpDJGuaYe\n\
Xr6PU4NOvUQpHeJDOEbchZFD0NPY4IxqdeaZSuF+TMbt79raYad6X6Q9KX6n9Y5ej63pN6fq8Pj4\n\
cqcuO9OmbQF1GQbIrSbXUYLGK31CZbq4gSONr0Di1wyxKJJnjACxF5OXwKWFKb9gkhpCGk/SYmnl\n\
FZoImAjWDYtxQO9Q3b1ECjjyO5HyNgV5tXqJkb2HLz8uX43TGG2EMSxqBRe4AFSepooA3PtgtsjG\n\
hS/iRiyS241CzS9ngM8YlR6NGXXkNgRUVr0yU+bbDkvEqkVG4OQtnTJvTi/w/wCnwX0vqnH06Djx\n\
9OlKeFM2F+j4OD/lPiw/1M1luypB6qqy2UleqfEp+WVZxcS24DUgh2nJk0u6P2mJhkPiHQn/AIkg\n\
y3DK4fBE40SE09TG2unepja071MbWnepitO9TG1pg1j+Xd/aaqurfpxrnUXiFvd3V1bJPI8aTPLG\n\
0ZkZvSkT1WWoqlKfBsMtOTaqahi3u0V5x/L2z80XgubjULi1pbS2npQiPgVmhnt3ZuSks3pXkgWp\n\
+E7j9rkIZOFM8XEgdO8gTTXzalqU7RXdvqNzdWUShGi9OW6NyCwBJPM8a1aq0oPHCcnQIGPqUPbf\n\
k3pUEMUP6UuZYI47WAwSpA8LxWaxrGrxFODbwhm23bc9MPjFHghHJ+V+lxTp6F3JFYxSepDZqkYV\n\
a3pv2UMANvWYgeC7e+DxSy8IKL/lNpUum/UJ7+4mj9IIzssVS62X6PDmigU+rbcfs8vix8Y2jwRS\n\
R6r+X9teanNeG+lgkkufrLRxKgTmqW8agggkoBZqaV6knNaNSY7V5ff+t2R0wlvf42/Uyny5aR6d\n\
Fp1ijF47RIrdHbqRGoQE077ZXCd5L7y2ThWOu4Mw9TNi66miykhiASu6nuPlhtBihpL25bVYYVmk\n\
WNYZJHVWIDEsqitD23yQ+lPAK5I6G8mhjWON6IgooO9AO29ciZFgMUR0XpqNyrEs/MHorAUHy4gY\n\
8SDiDHLryppd3q0+q3Lyy3dwwZzVVXYBVACKvRVA8fGpyZykqMQCcQJFBGI4xRRkLbKZpX/nX6/8\n\
ulf+SebH/J/5v6HXf5T/ADv0v//Z"|>|>|>, 
         "XMPMediaManagementSchema" -> <|
          "RenditionClass" -> "proof:pdf", "OriginalDocumentID" -> 
           "uuid:65E6390686CF11DBA6E2D887CEACB407", "DocumentID" -> 
           "xmp.did:5d9e2561-f806-4d0c-b983-9e000b2be973", "InstanceID" -> 
           "xmp.iid:5d9e2561-f806-4d0c-b983-9e000b2be973", 
           "DerivedFrom" -> <|
            "Reference" -> <|
              "InstanceID" -> "xmp.iid:66c340ed-3d9e-441d-b13c-c11f1ce6d95b", 
               "DocumentID" -> "xmp.did:020365b2-16aa-46b6-b162-9ce965643567",
                "OriginalDocumentID" -> 
               "uuid:65E6390686CF11DBA6E2D887CEACB407", "RenditionClass" -> 
               "proof:pdf"|>|>, 
           "History[1]" -> <|
            "Event" -> <|
              "Action" -> "saved", "InstanceID" -> 
               "xmp.iid:61fb9ece-8c56-46da-9dfa-e5452ac48a8a", "When" -> 
               DateObject[{2023, 4, 3, 16, 20, 48.}, "Instant", 
                 "Gregorian", -5.], "SoftwareAgent" -> 
               "Adobe Illustrator 26.5 (Macintosh)", "Changed" -> "/"|>|>, 
           "History[2]" -> <|
            "Event" -> <|
              "Action" -> "saved", "InstanceID" -> 
               "xmp.iid:5d9e2561-f806-4d0c-b983-9e000b2be973", "When" -> 
               DateObject[{2023, 4, 14, 9, 1, 54.}, "Instant", 
                 "Gregorian", -5.], "SoftwareAgent" -> 
               "Adobe Illustrator 26.5 (Macintosh)", "Changed" -> "/"|>|>, 
           "Manifest[1]" -> <|
            "StMfs" -> <|
              "LinkForm" -> "EmbedByReference", 
               "Reference" -> <|
                "Reference" -> <|
                  "FilePath" -> 
                   "/Users/diseno/Downloads/PHOTO-2023-02-22-14-49-00.jpg", 
                   "DocumentID" -> 0, "InstanceID" -> 0|>|>|>|>, 
           "Manifest[2]" -> <|
            "StMfs" -> <|
              "LinkForm" -> "EmbedByReference", 
               "Reference" -> <|
                "Reference" -> <|
                  "FilePath" -> 
                   "/Users/diseno/Documents/Trabajos/Webinars/Mock ups sin \
editar/preguntas tipo cloze en Moodl/psicode\:0301licos.jpg", "DocumentID" -> 
                   0, "InstanceID" -> 0|>|>|>|>|>, 
         "IllustratorSchema" -> <|
          "StartupProfile" -> "Web", "CreatorSubTool" -> 
           "Adobe Illustrator"|>, 
         "AdobePDFSchema" -> <|"Producer" -> "Adobe PDF library 15.00"|>, 
         "pdfx" -> <|"CreatorVersion" -> "21..0.0"|>|>|>],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSizeRaw->{2160., 1080.},
   PlotRange->{{0, 2160.}, {0, 1080.}}]],ExpressionUUID->
  "c0c6f43d-e993-4ac4-a876-3f24c5d39ba8"]
}], "Subtitle",
 CellChangeTimes->{{3.8962658638553934`*^9, 3.8962658679789824`*^9}, {
  3.896432728395883*^9, 
  3.8964327299619465`*^9}},ExpressionUUID->"5ab95dc8-9a0e-415e-8c20-\
416060fae5ed"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"5a7782e8-7796-494f-a2c8-322e3234558a"],

Cell[CellGroupData[{

Cell["Introduccion", "Section",
 CellChangeTimes->{{3.8964326649906626`*^9, 
  3.8964326676348343`*^9}},ExpressionUUID->"d40c7be1-b262-4da1-93bf-\
d03e81d60239"],

Cell[TextData[{
 "Se muestra la ",
 StyleBox["funcionalidad",
  FontWeight->"Bold"],
 " de un paquete de software llamado \[OpenCurlyDoubleQuote]",
 StyleBox["Incrustada",
  FontWeight->"Bold"],
 "\[CloseCurlyDoubleQuote]."
}], "Item",
 CellChangeTimes->{{3.8964326865506787`*^9, 3.8964326963137307`*^9}, {
  3.8964327808758926`*^9, 3.8964327808758926`*^9}, {3.896433336815012*^9, 
  3.896433336815012*^9}},
 FontColor->GrayLevel[
  0],ExpressionUUID->"2d275173-f0a3-4876-866c-295268c2389f"],

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzsnQeYFUW2x8+dnGfIiAIGgoASjYhgAGUBURDEiBEVV8VFBCOyKyoquoAB
[encoded data, 65460 characters]
ib/nB+KfwX6WsvhnAwCkwO/CPRMb
    "], {{0, 342.8661226841656}, {342.8661226841656, 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->{167.99559999999997`, 167.99559999999997`},
    SmoothingQuality->"High"],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{158.1518369698797, Automatic},
  ImageSizeRaw->{342.8661226841656, 342.8661226841656},
  PlotRange->{{0, 342.8661226841656}, {0, 342.8661226841656}}]], "Text",
 CellChangeTimes->{3.8962785933783693`*^9},
 TextAlignment->
  Center,ExpressionUUID->"c46b0ca5-154b-48c0-81fb-05421408f9af"]], "Text",
 CellChangeTimes->{{3.8964326865506787`*^9, 3.8964326963137307`*^9}, {
   3.8964327808758926`*^9, 3.8964327808758926`*^9}, 3.896433343780727*^9},
 TextAlignment->Center,
 FontColor->GrayLevel[
  0],ExpressionUUID->"b26f5177-e502-4943-9cea-3d7b9b1a3d48"],

Cell[TextData[{
 "Una aplicaci\[OAcute]n pr\[AAcute]ctica de pensamiento computacional en la ",
 StyleBox["automatizaci\[OAcute]n de generaci\[OAcute]n ",
  FontWeight->"Bold"],
 "de preguntas incrustadas (",
 StyleBox["cloze",
  FontSlant->"Italic"],
 ") "
}], "Item",
 CellChangeTimes->{{3.8964326865506787`*^9, 3.8964326963137307`*^9}, {
  3.8964327812121363`*^9, 3.89643278558479*^9}},
 FontColor->GrayLevel[
  0],ExpressionUUID->"863ca159-3b21-4bfb-97bc-1f25f67d168d"],

Cell[CellGroupData[{

Cell[TextData[{
 "Proporciona diversas ",
 StyleBox["funciones y atributos",
  FontWeight->"Bold"],
 StyleBox[":",
  FontWeight->"Plain"]
}], "Item",
 CellChangeTimes->{{3.8964326865506787`*^9, 3.8964327177070227`*^9}, {
  3.8964328217287827`*^9, 3.896432828450655*^9}},
 FontColor->GrayLevel[
  0],ExpressionUUID->"fb5b5953-402a-4321-8d4f-ae62edcff0db"],

Cell[TextData[{
 StyleBox["Expresiones a c\[OAcute]digo ",
  FontWeight->"Plain"],
 StyleBox["LaTeX",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 StyleBox[" (",
  FontWeight->"Plain"],
 StyleBox["Moodle",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 StyleBox[").",
  FontWeight->"Plain"]
}], "Subitem",
 CellChangeTimes->{{3.8964326865506787`*^9, 3.8964327177070227`*^9}, {
  3.8964328217287827`*^9, 3.8964328802010775`*^9}},
 FontColor->GrayLevel[
  0],ExpressionUUID->"41a5a4db-42cb-40af-8656-befd308d095b"],

Cell[TextData[{
 StyleBox["Respuestas ",
  FontWeight->"Plain"],
 StyleBox["desplegadas",
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Plain"]
}], "Subitem",
 CellChangeTimes->{{3.8964326865506787`*^9, 3.8964327177070227`*^9}, {
  3.8964328217287827`*^9, 3.896432900949778*^9}},
 FontColor->GrayLevel[
  0],ExpressionUUID->"87c1176a-ab8c-4dd1-829f-a544c3db963c"],

Cell[TextData[{
 StyleBox["Falso",
  FontWeight->"Bold"],
 StyleBox[" y ",
  FontWeight->"Plain"],
 StyleBox["verdadero",
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Plain"]
}], "Subitem",
 CellChangeTimes->{{3.8964326865506787`*^9, 3.8964327177070227`*^9}, {
  3.8964328217287827`*^9, 3.896432926494897*^9}},
 FontColor->GrayLevel[
  0],ExpressionUUID->"ab2a4449-b0be-42d9-9c2e-6fa4a23f71a0"],

Cell[TextData[{
 StyleBox[" Selecci\[OAcute]n ",
  FontWeight->"Plain"],
 StyleBox["\[UAcute]nica",
  FontWeight->"Bold"],
 StyleBox[" y ",
  FontWeight->"Plain"],
 StyleBox["m\[UAcute]ltiple",
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Plain"]
}], "Subitem",
 CellChangeTimes->{{3.8964326865506787`*^9, 3.8964327177070227`*^9}, {
  3.8964328217287827`*^9, 3.8964329538583946`*^9}},
 FontColor->GrayLevel[
  0],ExpressionUUID->"ea7fea01-fe1d-437b-b4c9-5a88eec13abd"],

Cell[TextData[{
 StyleBox[" Respuesta ",
  FontWeight->"Plain"],
 StyleBox["corta",
  FontWeight->"Bold"],
 StyleBox[". ",
  FontWeight->"Plain"]
}], "Subitem",
 CellChangeTimes->{{3.8964326865506787`*^9, 3.8964327177070227`*^9}, {
  3.8964328217287827`*^9, 3.896432994092619*^9}},
 FontColor->GrayLevel[
  0],ExpressionUUID->"85ea4729-753d-4518-927b-926d564538f1"],

Cell[TextData[{
 StyleBox["Tablas",
  FontWeight->"Bold"],
 StyleBox[" ",
  FontWeight->"Plain"],
 StyleBox["HTML",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 StyleBox[" (desplegadas, complete o su combinaci\[OAcute]n).",
  FontWeight->"Plain"]
}], "Subitem",
 CellChangeTimes->{{3.8964326865506787`*^9, 3.8964327177070227`*^9}, {
  3.8964328217287827`*^9, 3.896433032812346*^9}},
 FontColor->GrayLevel[
  0],ExpressionUUID->"b4d6d466-f6e3-4688-8d4a-73c8e97988f3"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"5cfedcf8-e32a-4147-a356-772121beed88"],

Cell[CellGroupData[{

Cell["introduccion", "Section",
 CellChangeTimes->{{3.8964330569806376`*^9, 
  3.8964330618926125`*^9}},ExpressionUUID->"c7e7a940-10a0-49d5-bef3-\
9e3508359808"],

Cell[TextData[{
 "\nUna de las principales fortalezas obedece al alto potencial \n\
computacional de ",
 StyleBox["c\[AAcute]lculo",
  FontWeight->"Bold"],
 " num\[EAcute]rico y simb\[OAcute]lico, adem\[AAcute]s de sus importantes \
prestaciones de ",
 StyleBox["programaci\[OAcute]n",
  FontWeight->"Bold"],
 " (",
 StyleBox["revisiones",
  FontWeight->"Bold"],
 " autom\[AAcute]ticas y ",
 StyleBox["distractores",
  FontWeight->"Bold"],
 ")"
}], "Text",
 CellChangeTimes->{{3.89643308809276*^9, 3.896433182374164*^9}},
 TextAlignment->Center,
 FontColor->GrayLevel[
  0],ExpressionUUID->"a24abe8d-8d97-467e-bd72-6b37cff34890"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzsvX/QbVdZ50mAQDrY/MrPG5KQhB+Syr3mtqE1N1Ho4U2bVjp5q2O0gbnK
[encoded data, 76800 characters]
a6yxxhprrLHGGmusscYap8f/D2WA9xk=
    "], {{0, 145.71810214077036`}, {142.2894409139287, 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->{167.99559999999997`, 167.99559999999997`},
    SmoothingQuality->"High"],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{142.2894409139287, 145.71810214077036`},
  PlotRange->{{0, 142.2894409139287}, {0, 145.71810214077036`}}]], "Text",
 CellChangeTimes->{3.896433274869258*^9},
 TextAlignment->Center,ExpressionUUID->"1e5b191b-3351-40c8-867c-52d402293e21"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"e284af07-a6e1-4838-b25e-f3b3622bc435"],

Cell[CellGroupData[{

Cell["introduccion", "Section",
 CellChangeTimes->{
  3.8964335056817074`*^9},ExpressionUUID->"5f02486b-6523-4a73-be8d-\
22b86bbb18aa"],

Cell[TextData[{
 "El taller demostrativo est\[AAcute] ",
 StyleBox["basado",
  FontWeight->"Bold"],
 " en el libro ",
 StyleBox["Matem\[AAcute]tica discreta con apoyo de software",
  FontWeight->"Bold"],
 " (V\[IAcute]lchez, 2021):"
}], "Text",
 CellChangeTimes->{{3.896334678104371*^9, 3.8963346807494717`*^9}, 
   3.896334725821515*^9, {3.896433453140151*^9, 3.896433489165455*^9}, {
   3.8964335226011267`*^9, 3.896433540149502*^9}, 3.8964335888013754`*^9},
 TextAlignment->Center,
 FontColor->GrayLevel[
  0],ExpressionUUID->"4f63fd6b-c337-4f65-97c9-2c857c389587"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzsvedbW1faPvpe55wP5+P5F87X87t+1/vOO8kk7k6dlMn0mfTqJE4mjh13
[encoded data, 1009800 characters]
ORg0xTiIjko1xuw4oM+Sxp805qTHRf2vQCA4O8g6X9b+/x+EViJp
    "], {{0, 428.58265335520696`}, {329.15147777679897`, 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->{167.99559999999997`, 167.99559999999997`},
    SmoothingQuality->"High"],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{256.72290634822764`, Automatic},
  ImageSizeRaw->{329.15147777679897`, 428.58265335520696`},
  PlotRange->{{0, 329.15147777679897`}, {0, 428.58265335520696`}}]], "Text",
 CellChangeTimes->{3.8962805299442005`*^9},
 TextAlignment->Center,ExpressionUUID->"227eefdc-9d90-47fa-a3ff-e52b39c61ee4"],

Cell[TextData[{
 "Y el ",
 StyleBox["documento",
  FontWeight->"Bold"],
 " (V\[IAcute]lchez y \[CapitalAAcute]vila, 2023):"
}], "Text",
 CellChangeTimes->{{3.896334678104371*^9, 3.8963346807494717`*^9}, 
   3.896334725821515*^9, {3.896433453140151*^9, 3.896433489165455*^9}, {
   3.8964335226011267`*^9, 3.896433540149502*^9}, {3.8964335888013754`*^9, 
   3.8964336314991517`*^9}},
 TextAlignment->Center,
 FontColor->GrayLevel[
  0],ExpressionUUID->"6ec67f0a-efdd-448c-8c32-985535c96284"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzsnQlYTN0bwMtnl12I7LJkF58va1nDZxefPVuSNUlptyZFQkgllbRoVWnf
[encoded data, 126780 characters]
9L4=
    "], {{0, 305.1508491889074}, {546.4428830278889, 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->{167.99559999999997`, 167.99559999999997`},
    SmoothingQuality->"High"],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{546.4428830278889, 305.1508491889074},
  PlotRange->{{0, 546.4428830278889}, {0, 305.1508491889074}}]], "Text",
 CellChangeTimes->{3.8963347984942274`*^9},
 TextAlignment->Center,ExpressionUUID->"f673208a-f35b-4063-8d75-ff9abba55042"],

Cell["https://revistas.tec.ac.cr/index.php/matematica", "Text",
 CellChangeTimes->{3.8964337250344367`*^9},
 TextAlignment->Center,
 FontWeight->"Bold",ExpressionUUID->"f7871c45-fdfe-49d0-a229-61a4a63adb52"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"89829a09-95f7-4e42-a5a4-f2e5480e767f"],

Cell[CellGroupData[{

Cell["Recursos y materiales", "Section",
 CellChangeTimes->{{3.896265177817787*^9, 
  3.896265183523982*^9}},ExpressionUUID->"38e51433-0012-4b57-9f1e-\
de850b72cae8"],

Cell[TextData[{
 "Los ",
 StyleBox["recursos y materiales",
  FontWeight->"Bold"],
 " a utilizar en el presente taller se encuentran disponibles en: ",
 StyleBox["https://www.escinf.una.ac.cr/discretas/Archivos/Packages/Taller_\
incrustada.rar",
  FontWeight->"Bold"]
}], "Text",
 CellChangeTimes->{
  3.896265196699624*^9, 3.8962665766607904`*^9, {3.896433781714682*^9, 
   3.896433787757841*^9}},
 FontColor->GrayLevel[
  0],ExpressionUUID->"9bd90f4f-7ae5-4248-a066-e70178b67695"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzsvXVglVfWLp66TN2mnc50pjLtRzv1UlootGixtkiR4u4QXIJDcScEd4K7
[encoded data, 126180 characters]
obdjM8u00BcS5o+eApavBRb8Bly7wQoI5Nzbf/8a+t+K7f8HlAkjNQ==
    "], {{0, 87.43086128446222}, {105.85991537873612`, 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->{167.99559999999997`, 167.99559999999997`},
    SmoothingQuality->"High"],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{105.85991537873612`, 87.43086128446222},
  PlotRange->{{0, 105.85991537873612`}, {0, 87.43086128446222}}]], "Text",
 CellChangeTimes->{3.896434018473106*^9},
 TextAlignment->Center,ExpressionUUID->"f88171d6-b0e8-4eaf-b4cf-5d9fcde10e48"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"0e8fd470-76a9-4d7e-a45e-46e3725e9894"],

Cell[CellGroupData[{

Cell["Instalacion del paquete Incrustada", "Section",
 CellChangeTimes->{{3.8962648727237434`*^9, 
  3.896264885428368*^9}},ExpressionUUID->"94ba9f9e-8759-4f4a-b937-\
e7e4c9c88f50"],

Cell[TextData[{
 "Se puede ",
 StyleBox["descargar",
  FontWeight->"Bold"],
 " de la siguiente direcci\[OAcute]n ",
 StyleBox["URL",
  FontSlant->"Italic"],
 ": ",
 StyleBox["https://www.escinf.una.ac.cr/discretas/Archivos/Packages/Paquete_\
Cloze.zip",
  FontWeight->"Bold"]
}], "Item",
 CellChangeTimes->{{3.896264898107463*^9, 3.8962649218518195`*^9}, 
   3.896266572571867*^9, 3.896433836305589*^9},
 FontColor->GrayLevel[
  0],ExpressionUUID->"f5763b61-5335-4b28-aaea-7b8241dfbbbf"],

Cell[TextData[{
 "El video ",
 StyleBox["https://youtu.be/AZNt4J34TmU",
  FontWeight->"Bold"],
 " expone una explicaci\[OAcute]n minuciosa sobre el ",
 StyleBox["procedimiento de instalaci\[OAcute]n",
  FontWeight->"Bold"],
 " del paquete \[OpenCurlyDoubleQuote]",
 StyleBox["Incrustada",
  FontWeight->"Bold"],
 "\[CloseCurlyDoubleQuote]. "
}], "Item",
 CellChangeTimes->{{3.896264898107463*^9, 3.896264921115672*^9}, 
   3.896265287910957*^9, 3.8962665705572753`*^9},
 FontColor->GrayLevel[
  0],ExpressionUUID->"ea7219f9-6da7-4fa1-8fb7-7ebb871aaad5"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzs3Xec1OW5///z+H1/f/we3xMLIkVRqoogiPQVUVSwYIvdoznRGFti7MaI
[encoded data, 82920 characters]
QZg=
    "], {{0, 385.7243880196863}, {385.7243880196863, 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->{167.99559999999997`, 167.99559999999997`},
    SmoothingQuality->"High"],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{75.01010230540072, Automatic},
  ImageSizeRaw->{385.7243880196863, 385.7243880196863},
  PlotRange->{{0, 385.7243880196863}, {0, 385.7243880196863}}]], "Text",
 CellChangeTimes->{3.8964338902243032`*^9},
 TextAlignment->Center,ExpressionUUID->"32cf329a-17f3-436e-98f1-bd5e5ee6913c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"f964ce08-92c0-42ee-82e3-597a7e8492a3"],

Cell[CellGroupData[{

Cell["Instrucciones del paquete de software \[OpenCurlyDoubleQuote]Incrustada\
\[CloseCurlyDoubleQuote] ", "Section",
 CellChangeTimes->{
  3.8962649724136553`*^9},ExpressionUUID->"96c3af78-dbdc-42b2-ae8b-\
2f58b9a09663"],

Cell[TextData[{
 StyleBox["Incrustada",
  FontWeight->"Bold"],
 ", ",
 StyleBox["ToLatex",
  FontWeight->"Bold"],
 ", ",
 StyleBox["Desplegada",
  FontWeight->"Bold"],
 ", ",
 StyleBox["FV",
  FontWeight->"Bold"],
 ", ",
 StyleBox["SMOption",
  FontWeight->"Bold"],
 ", ",
 StyleBox["ShortAnswer",
  FontWeight->"Bold"],
 ", ",
 StyleBox["ShortNumerical",
  FontWeight->"Bold"],
 " y ",
 StyleBox["TablaHTML",
  FontWeight->"Bold"],
 " "
}], "Text",
 CellChangeTimes->{3.896264982693117*^9, 3.896266567333292*^9, 
  3.8964339857487383`*^9},
 TextAlignment->Center,
 FontColor->GrayLevel[
  0],ExpressionUUID->"11fceba9-2fa2-437f-bef1-040d8f26ec1d"],

Cell[BoxData[
 RowBox[{"Quiet", "[", 
  RowBox[{"<<", "Incrustada`"}], "]"}]], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"7e4a75ac-5b7e-4e79-8e57-37d5dadfcc02"],

Cell[BoxData[
 RowBox[{"Incrustada", "[", "]"}]], "Input",
 CellChangeTimes->{{3.89643393482834*^9, 3.8964339483673496`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"2a23fe51-489a-450f-956e-d4c062417595"],

Cell[BoxData[
 RowBox[{"?", "Incrustada"}]], "Input",
 CellChangeTimes->{{3.896265522026491*^9, 3.8962655262040915`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"5e874c35-dcb8-4e15-a6a0-44be4e0b223d"],

Cell[BoxData[
 RowBox[{"?", 
  StyleBox["ToLatex",
   FontWeight->"Bold"]}]], "Input",
 CellChangeTimes->{{3.896433971825032*^9, 3.8964339771151066`*^9}, 
   3.8966139046360865`*^9},ExpressionUUID->"b2ffe414-0548-4bce-ad84-\
93024ef95511"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"23ea103c-e8e5-4dac-8d33-752b462614a9"],

Cell[CellGroupData[{

Cell["Ejemplos de uso del paquete \[OpenCurlyDoubleQuote]Incrustada\
\[CloseCurlyDoubleQuote]", "Section",
 CellChangeTimes->{
  3.896265010850876*^9},ExpressionUUID->"7581e297-1382-4a51-8d1e-\
6fc4cab8ec74"],

Cell[TextData[{
 "Se comparte una serie de ejemplos de \[IAcute]tems ",
 StyleBox["elaborados por el autor",
  FontWeight->"Bold"],
 " en un contexto docente aut\[EAcute]ntico, dentro de la ",
 StyleBox["Escuela de Inform\[AAcute]tica",
  FontSlant->"Italic"],
 " de la ",
 StyleBox["Universidad Nacional de Costa Rica",
  FontWeight->"Bold",
  FontSlant->"Italic"]
}], "Text",
 CellChangeTimes->{{3.896265554813264*^9, 3.89626556198967*^9}, 
   3.8962658938057685`*^9, {3.896434063966769*^9, 3.8964340691645164`*^9}, 
   3.896434099676135*^9},
 TextAlignment->Center,
 FontColor->GrayLevel[
  0],ExpressionUUID->"77fc1158-ad79-4829-a1d3-782596cdb5c0"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzsvedbW1faPvpe55wP5+P5F87X87t+1/vOO8kk7k6dlMn0mfTqJE4mjh13
[encoded data, 1009800 characters]
ORg0xTiIjko1xuw4oM+Sxp805qTHRf2vQCA4O8g6X9b+/x+EViJp
    "], {{0, 428.58265335520696`}, {329.15147777679897`, 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->{167.99559999999997`, 167.99559999999997`},
    SmoothingQuality->"High"],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{256.72290634822764`, Automatic},
  ImageSizeRaw->{329.15147777679897`, 428.58265335520696`},
  PlotRange->{{0, 329.15147777679897`}, {0, 428.58265335520696`}}]], "Text",
 CellChangeTimes->{3.8962805299442005`*^9},
 TextAlignment->Center,ExpressionUUID->"a74d10ae-ec61-4f0a-95c2-804bacf9061d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"a5a8a182-0b69-4c20-af38-3c29679b3609"],

Cell[CellGroupData[{

Cell["Ejemplo 1", "Section",
 CellChangeTimes->{
  3.896266086828117*^9},ExpressionUUID->"53813b66-cda0-440a-973c-\
121d1c1b0bb6"],

Cell[TextData[{
 "Elabore un \[IAcute]tem donde el estudiante debe completar un programa \
recursivo de cola para calcular el ",
 StyleBox["valor num\[EAcute]rico de una sumatoria",
  FontWeight->"Bold"],
 ". Observe la siguiente figura:\n\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzs3eV/G1ffP/jrt/t7sA/3X9i/Yve+76vtVUjagOPEzCAzM8YQM7Mdc8zM
[encoded data, 139980 characters]
wf8DcK7VXg==
     "], {{0, 150.00392867432245`}, {474.8695799175693, 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{167.99559999999997`, 167.99559999999997`},
     SmoothingQuality->"High"],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{573.8695799175694, Automatic},
   ImageSizeRaw->{474.8695799175693, 150.00392867432245`},
   PlotRange->{{0, 474.8695799175693}, {0, 150.00392867432245`}}]], "Input",
  ExpressionUUID->"da574fa9-265d-45ff-ac29-2f34ccbd35a9"]
}], "Text",
 CellChangeTimes->{{3.896266097883472*^9, 3.8962661060581017`*^9}, 
   3.896266240067975*^9, {3.8964341399940925`*^9, 3.8964341761223536`*^9}},
 FontColor->GrayLevel[
  0],ExpressionUUID->"b3569477-9a1a-4c7d-8923-11a4d9f3a8bd"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"f33cacff-98fc-4b05-9227-c3ef81f1a787"],

Cell[CellGroupData[{

Cell["Solucion", "Section",
 CellChangeTimes->{{3.896435529051668*^9, 
  3.8964355325957704`*^9}},ExpressionUUID->"e01e0d98-b5ce-4cd9-8dcf-\
735e990940ed"],

Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.8964349585838156`*^9, 3.8964349640827255`*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"98e2a54c-8add-4d80-b8dc-48012b35cb87"],

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"<<", "Incrustada`"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Quiet", "[", 
  RowBox[{"<<", "VilCretas`"}], "]"}]}], "Input",
 CellChangeTimes->{{3.887104159885995*^9, 3.8871041633108573`*^9}, {
   3.887107135932592*^9, 3.8871071444343324`*^9}, 3.88710984269059*^9},
 CellLabel->"In[1]:=",ExpressionUUID->"ad8c435e-b663-4ad8-88b9-75d2823ee2ee"],

Cell[BoxData[
 RowBox[{"?", "SumatoriaRandom"}]], "Input",
 CellChangeTimes->{{3.896435013467198*^9, 3.8964350174051847`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"0b96fea1-9f9f-4a77-a2cb-0fc6b64f378e"],

Cell[BoxData[
 RowBox[{"SumatoriaRandom", "[", 
  RowBox[{"10", ",", 
   RowBox[{"vectorial", "->", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.896435040668071*^9, 3.896435048076653*^9}, {
  3.8964350870280724`*^9, 3.8964350900245357`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"ddf76b18-d4fe-4c6f-9a7b-93992b04039a"],

Cell[BoxData[
 RowBox[{"SumatoriaCola", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.8964350735393066`*^9, 3.8964350783582764`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"6e42ee2a-dba2-42be-8578-1169c00ba226"],

Cell[BoxData[
 RowBox[{"?", "ShortAnswer"}]], "Input",
 CellChangeTimes->{{3.8964405730784607`*^9, 
  3.8964405822894154`*^9}},ExpressionUUID->"cd7a0232-58b8-4b3c-a929-\
4eead99c35b0"],

Cell[BoxData[{
 RowBox[{"Column", "[", 
  RowBox[{"{", 
   RowBox[{"\"\<Complete el siguiente c\[OAcute]digo que calcula: \>\"", ",", 
    RowBox[{"Row", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ToLatex", "[", "]"}], ",", "\"\<,\>\""}], "}"}], "]"}], ",", 
    "\"\< mediante una recursividad de cola.\>\""}], "}"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Row", "[", 
  RowBox[{"{", "}"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Row", "[", 
  RowBox[{
  "{", "\"\<Nota. No agregue espacios innecesarios en sus respuestas de \
completar: escriba todo pegado. Ejemplo: 2n+a+3b. Escriba las respuestas \
simplificadas al m\[AAcute]ximo.\>\"", "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8847181406157002`*^9, 3.884718220038472*^9}, 
   3.884718250493369*^9, {3.8847183035626073`*^9, 3.884718631915393*^9}, 
   3.8847186993495455`*^9, 3.884718736635092*^9, {3.8847188094957447`*^9, 
   3.884718836993385*^9}, {3.884718906762212*^9, 3.8847189112747526`*^9}, {
   3.884719012174761*^9, 3.88471905490954*^9}, {3.8847747237686043`*^9, 
   3.884774819693492*^9}, {3.884774861721706*^9, 3.884774999433463*^9}, {
   3.88477510136417*^9, 3.884775116840481*^9}, {3.884775147468946*^9, 
   3.884775156072069*^9}, {3.8847758055305476`*^9, 3.8847758084374743`*^9}, {
   3.8847758467880487`*^9, 3.884775886140623*^9}, {3.88477595144549*^9, 
   3.884775982142252*^9}, {3.884777364743231*^9, 3.8847773678448024`*^9}, {
   3.896440300590294*^9, 
   3.896440312213066*^9}},ExpressionUUID->"fc14a080-a9a4-4f32-8fc6-\
2aea9904bd4a"],

Cell["Retroalimentaci\[OAcute]n", "Text",
 CellChangeTimes->{{3.8695731294494796`*^9, 3.869573144262832*^9}, {
  3.884683780028186*^9, 3.8846837805797005`*^9}},
 FontWeight->"Bold",
 FontColor->GrayLevel[
  0],ExpressionUUID->"ef6716ab-bb02-4ea9-9e0d-1500e7e0c584"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"dddbc5e4-ccb2-46cc-addb-5e9e845c0830"],

Cell[CellGroupData[{

Cell["Ejemplo 2", "Section",
 CellChangeTimes->{
  3.8962661304637733`*^9},ExpressionUUID->"94e34f43-39d1-4b16-af7d-\
aa160ba882bd"],

Cell[TextData[{
 "Elabore un \[IAcute]tem de respuesta m\[UAcute]ltiple donde el alumno \
seleccione las ",
 StyleBox["relaciones de recurrencia lineales dadas",
  FontWeight->"Bold"],
 ", como opciones correctas. Observe la siguiente figura:\n\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsvWV3W8naNvismfkwH+cvzHr/xMys932gzzmd2JZRzGBJZmZmZowh4MQY
[encoded data, 223200 characters]
oAUECBAgQIAAAQIECBAgQIAAAQIECP5f4f8Anjl8iw==
     "], {{0, 234.43471138529821`}, {474.8695799175693, 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{167.99559999999997`, 167.99559999999997`},
     SmoothingQuality->"High"],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{508.7267227747122, Automatic},
   ImageSizeRaw->{474.8695799175693, 234.43471138529821`},
   PlotRange->{{0, 474.8695799175693}, {0, 234.43471138529821`}}]], "Input",
  ExpressionUUID->"f9297eee-0bc8-4c35-9aa5-cc40c9fff7fd"],
 "\n"
}], "Text",
 CellChangeTimes->{{3.896266139029731*^9, 3.896266145084487*^9}, 
   3.8962662373106403`*^9},
 FontColor->GrayLevel[
  0],ExpressionUUID->"febb3b7d-6d80-4693-8b33-ed029459b0a3"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"6dbe8941-99b7-46dd-9e9d-ecb73f1bce53"],

Cell[CellGroupData[{

Cell["Solucion", "Section",
 CellChangeTimes->{{3.896435748845416*^9, 
  3.896435750567175*^9}},ExpressionUUID->"40203d51-83e8-4d1c-ada8-\
9c7bdb0de0db"],

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"<<", "Incrustada`"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Quiet", "[", 
  RowBox[{"<<", "VilCretas`"}], "]"}]}], "Input",
 CellChangeTimes->{{3.887104159885995*^9, 3.8871041633108573`*^9}, {
   3.887107135932592*^9, 3.8871071444343324`*^9}, 3.88710984269059*^9},
 CellLabel->"In[1]:=",ExpressionUUID->"d8bc6c8a-8f3f-4066-9b5a-2ddee98d27c6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FuncionAleatoria", "[", 
   RowBox[{"vm_", ",", "vk_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"funcion", "=", 
       RowBox[{"RandomChoice", "[", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], ",", "salida"}], 
     "}"}], ",", 
    RowBox[{
     RowBox[{"Clear", "[", "n", "]"}], ";", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"funcion", "==", "1"}], ",", 
       RowBox[{"salida", "=", 
        RowBox[{
         RowBox[{"RRHLRandom", "[", 
          RowBox[{"1", ",", "vm", ",", "vk", ",", 
           RowBox[{"racionales", "->", "True"}], ",", 
           RowBox[{"vectorial", "->", "True"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"funcion", "==", "2"}], ",", 
         RowBox[{"salida", "=", 
          RowBox[{
           RowBox[{"RandomChoice", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}], 
           RowBox[{"RandomInteger", "[", 
            RowBox[{"{", 
             RowBox[{"2", ",", "20"}], "}"}], "]"}], 
           RowBox[{"n", "^", 
            RowBox[{"RandomInteger", "[", 
             RowBox[{"{", 
              RowBox[{"0", ",", "5"}], "}"}], "]"}]}]}]}], ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"funcion", "==", "3"}], ",", 
           RowBox[{"salida", "=", 
            RowBox[{
             RowBox[{"RandomChoice", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}], 
             RowBox[{
              RowBox[{"RandomInteger", "[", 
               RowBox[{"{", 
                RowBox[{"2", ",", "20"}], "}"}], "]"}], "^", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"RandomChoice", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}], 
                RowBox[{"RandomInteger", "[", 
                 RowBox[{"{", 
                  RowBox[{"2", ",", "20"}], "}"}], "]"}], " ", "n"}], 
               ")"}]}]}]}]}], "]"}]}], "]"}]}], "]"}], ";", "salida"}]}], 
   "]"}]}]], "Input",
 CellLabel->"In[3]:=",ExpressionUUID->"6ac5913f-9593-4139-be47-6d3d631736ec"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"RRHLRandom", "[", 
    RowBox[{"2", ",", "10", ",", "10", ",", 
     RowBox[{"inicio", "->", "2"}]}], "]"}], ",", 
   RowBox[{"FuncionAleatoria", "[", 
    RowBox[{"10", ",", "10"}], "]"}], ",", 
   RowBox[{"FuncionAleatoria", "[", 
    RowBox[{"10", ",", "10"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.8849384652941413`*^9, 3.8849384692816534`*^9}, {
  3.8849385948648787`*^9, 3.8849386254080267`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"c4fa9a79-8b38-40e2-8eec-3c30c992efb4"],

Cell[BoxData[
 RowBox[{"?", "SMOption"}]], "Input",
 CellChangeTimes->{
  3.896440559084051*^9},ExpressionUUID->"3363cca5-eee4-444d-90f2-\
1a5fec380208"],

Cell[BoxData[{
 RowBox[{"Row", "[", 
  RowBox[{
  "{", "\"\<Seleccione la(s) relaciones de recurrencia que son lineales, \
homog\[EAcute]neas con coeficientes constantes.\>\"", "}"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"SMOption", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "}"}], ",", 
     RowBox[{"{", "}"}], ",", 
     RowBox[{"{", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "}"}], ",", 
     RowBox[{"{", "}"}], ",", 
     RowBox[{"{", "}"}]}], "}"}], ",", 
   RowBox[{"latex", "->", "True"}], ",", 
   RowBox[{"multiple", "->", "True"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Row", "[", 
  RowBox[{"{", 
   RowBox[{"\"\<Nota. En todas se supone que \>\"", ",", 
    RowBox[{"ToLatex", "[", 
     RowBox[{"n", "\[GreaterEqual]", "4"}], "]"}], ",", 
    "\"\<. Adem\[AAcute]s, \>\"", ",", 
    RowBox[{"ToLatex", "[", 
     RowBox[{
      RowBox[{"a", "[", "n", "]"}], "\[Equal]", 
      SubscriptBox["a", "n"]}], "]"}], ",", "\"\<.\>\""}], "}"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8964405214505243`*^9, 
  3.8964405444811172`*^9}},ExpressionUUID->"c39500f7-d245-4f17-a21f-\
767abcf7c9b2"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"bd27b21d-15b1-41c6-9f2b-bdcde0a512bf"],

Cell[CellGroupData[{

Cell["Ejemplo 3", "Section",
 CellChangeTimes->{
  3.8962661698555517`*^9},ExpressionUUID->"420fea12-b466-42c5-b314-\
84f87836d13f"],

Cell[TextData[{
 "Dise\[NTilde]e un \[IAcute]tem donde dada una funci\[OAcute]n, el \
estudiante elija la ",
 StyleBox["mejor notaci\[OAcute]n asint\[OAcute]tica",
  FontWeight->"Bold"],
 ". Observe la siguiente figura:\n\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsvVV3Y8m273nG7X64j/0V+lv0S4/Rd9zuffbZVbsqwUySLMmyzMzMzMzM
[encoded data, 77700 characters]

     "], {{0, 79.7163735240685}, {474.8695799175693, 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{167.99559999999997`, 167.99559999999997`},
     SmoothingQuality->"High"],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{561.8695799175692, Automatic},
   ImageSizeRaw->{474.8695799175693, 79.7163735240685},
   PlotRange->{{0, 474.8695799175693}, {0, 79.7163735240685}}]], "Input",
  ExpressionUUID->"09dafb43-25e9-49f0-98ec-149721eb72ce"]
}], "Text",
 CellChangeTimes->{{3.896266182010857*^9, 3.8962661887382793`*^9}, 
   3.8962662349157815`*^9},
 FontColor->GrayLevel[
  0],ExpressionUUID->"47b4d256-5ae1-4d9d-ab0d-32a126c82d18"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"9d39c15c-2341-4c3b-8022-2de8502251ce"],

Cell[CellGroupData[{

Cell["solucion", "Section",
 CellChangeTimes->{{3.896435762071995*^9, 
  3.896435763119273*^9}},ExpressionUUID->"3725c5e4-9879-4578-bfbf-\
09dc4bbb8114"],

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"<<", "Incrustada`"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Quiet", "[", 
  RowBox[{"<<", "VilCretas`"}], "]"}]}], "Input",
 CellChangeTimes->{{3.887104159885995*^9, 3.8871041633108573`*^9}, {
   3.887107135932592*^9, 3.8871071444343324`*^9}, 3.88710984269059*^9},
 CellLabel->"In[1]:=",ExpressionUUID->"856e42e8-6cb3-42fc-8c47-91a1571b043b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FuncionesAleatorias", "[", 
   RowBox[{"k_", ",", "m_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"IntegerQ", "[", "k", "]"}], "&&", 
     RowBox[{"IntegerQ", "[", "m", "]"}]}], ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"1", "<=", "k", "<=", "4"}], "&&", 
       RowBox[{"m", ">=", "1"}]}], ",", 
      RowBox[{"Module", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "funciones", ",", "fun1", ",", "fun2", ",", "fun3", ",", "fun4", ",",
           "i"}], "}"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"fun1", "[", "]"}], ":=", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"RandomChoice", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}], 
             RowBox[{"RandomInteger", "[", 
              RowBox[{"{", 
               RowBox[{"2", ",", "20"}], "}"}], "]"}], 
             RowBox[{"n", "^", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "0", ",", 
              RowBox[{"RandomInteger", "[", 
               RowBox[{"{", 
                RowBox[{"3", ",", "5"}], "}"}], "]"}]}], "}"}]}], "]"}]}], 
         ";", 
         RowBox[{
          RowBox[{"fun2", "[", "]"}], ":=", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"RandomInteger", "[", "]"}], "==", "0"}], ",", 
            RowBox[{
             RowBox[{"RandomChoice", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}], 
             RowBox[{"RandomInteger", "[", 
              RowBox[{"{", 
               RowBox[{"2", ",", "20"}], "}"}], "]"}], 
             RowBox[{"Log", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"RandomChoice", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}], 
                RowBox[{"RandomInteger", "[", 
                 RowBox[{"{", 
                  RowBox[{"2", ",", "20"}], "}"}], "]"}], " ", "n"}], "+", 
               RowBox[{"RandomInteger", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "20"}], ",", "20"}], "}"}], "]"}]}], "]"}]}], 
            ",", 
            RowBox[{
             RowBox[{"RandomChoice", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}], 
             RowBox[{"RandomInteger", "[", 
              RowBox[{"{", 
               RowBox[{"2", ",", "20"}], "}"}], "]"}], 
             RowBox[{"Log", "[", 
              RowBox[{
               RowBox[{"RandomInteger", "[", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "20"}], "}"}], "]"}], " ", ",", 
               RowBox[{
                RowBox[{
                 RowBox[{"RandomChoice", "[", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}], 
                 RowBox[{"RandomInteger", "[", 
                  RowBox[{"{", 
                   RowBox[{"2", ",", "20"}], "}"}], "]"}], " ", "n"}], "+", 
                RowBox[{"RandomInteger", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"-", "20"}], ",", "20"}], "}"}], "]"}]}]}], 
              "]"}]}]}], "]"}]}], ";", 
         RowBox[{
          RowBox[{"fun3", "[", "]"}], ":=", 
          RowBox[{
           RowBox[{"RandomChoice", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}], 
           RowBox[{
            RowBox[{"RandomInteger", "[", 
             RowBox[{"{", 
              RowBox[{"2", ",", "20"}], "}"}], "]"}], "^", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"RandomChoice", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}], 
               RowBox[{"RandomInteger", "[", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "20"}], "}"}], "]"}], " ", "n"}], "+", 
              RowBox[{"RandomInteger", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "20"}], ",", "20"}], "}"}], "]"}]}], 
             ")"}]}]}]}], ";", 
         RowBox[{
          RowBox[{"fun4", "[", "]"}], ":=", 
          RowBox[{
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"RandomChoice", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}], 
              RowBox[{"RandomInteger", "[", 
               RowBox[{"{", 
                RowBox[{"2", ",", "20"}], "}"}], "]"}], 
              RowBox[{"n", "^", "j"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "0", ",", 
               RowBox[{"RandomInteger", "[", 
                RowBox[{"{", 
                 RowBox[{"3", ",", "5"}], "}"}], "]"}]}], "}"}]}], "]"}], "/", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"RandomChoice", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}], 
              RowBox[{"RandomInteger", "[", 
               RowBox[{"{", 
                RowBox[{"2", ",", "20"}], "}"}], "]"}], 
              RowBox[{"n", "^", "j"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "0", ",", 
               RowBox[{"RandomInteger", "[", 
                RowBox[{"{", 
                 RowBox[{"3", ",", "5"}], "}"}], "]"}]}], "}"}]}], "]"}]}]}], 
         ";", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"k", "==", "1"}], ",", 
           RowBox[{"funciones", "=", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"fun1", "[", "]"}], ",", "m"}], "]"}]}], ",", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"k", "==", "2"}], ",", 
             RowBox[{"funciones", "=", 
              RowBox[{"Table", "[", 
               RowBox[{
                RowBox[{"fun2", "[", "]"}], ",", "m"}], "]"}]}], ",", 
             RowBox[{"funciones", "=", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"k", "==", "3"}], ",", 
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{"fun3", "[", "]"}], ",", "m"}], "]"}], ",", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{"k", "==", "4"}], ",", 
                  RowBox[{"funciones", "=", 
                   RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"fun4", "[", "]"}], ",", "m"}], "]"}]}]}], 
                 "]"}]}], "]"}]}]}], "]"}]}], "]"}], ";", "funciones"}]}], 
       "]"}]}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8849724646669397`*^9, 3.8849724652059937`*^9}, {
  3.8849726001204405`*^9, 3.884972782943818*^9}, {3.8849728220158277`*^9, 
  3.884972842267646*^9}, {3.8849728789034824`*^9, 3.884972889615182*^9}, {
  3.8849729291111574`*^9, 3.884972933111117*^9}, {3.8849729721717997`*^9, 
  3.8849729769254875`*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"e5f22c11-84ed-4b4e-8b6d-cb155449fff2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"funciones1", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"FuncionesAleatorias", "[", 
       RowBox[{
        RowBox[{"RandomChoice", "[", 
         RowBox[{"Range", "[", "3", "]"}], "]"}], ",", "1"}], "]"}], ",", 
      "4"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"funciones2", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"FuncionesAleatorias", "[", 
       RowBox[{
        RowBox[{"RandomChoice", "[", 
         RowBox[{"Range", "[", "3", "]"}], "]"}], ",", "1"}], "]"}], ",", 
      "4"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"funcion", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"Total", "[", "%", "]"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"Total", "[", "%%", "]"}], ")"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8849724879569855`*^9, 3.88497249809264*^9}, 
   3.88497279413198*^9, {3.884973055152668*^9, 3.884973058552672*^9}, {
   3.8849731297448025`*^9, 3.884973165252509*^9}},
 CellLabel->
  "In[105]:=",ExpressionUUID->"6746b750-7609-44fd-a55d-cc4ad1a93cea"],

Cell[BoxData[
 RowBox[{"Column", "[", 
  RowBox[{"{", 
   RowBox[{
   "\"\<Elija la notaci\[OAcute]n asint\[OAcute]tica que mejor se ajuste al \
siguiente caso:\>\"", ",", 
    RowBox[{"Row", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ToLatex", "[", "]"}], ",", 
       RowBox[{"ToLatex", "[", "\"\<=\>\"", "]"}]}], "}"}], "]"}], ",", 
    RowBox[{"SMOption", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[CapitalTheta]", "[", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[CapitalTheta]", "[", "]"}], ",", 
        RowBox[{"\[CapitalTheta]", "[", "]"}], ",", 
        RowBox[{"\[CapitalTheta]", "[", "]"}]}], "}"}], ",", 
      RowBox[{"latex", "->", "True"}], ",", 
      RowBox[{"horizontal", "->", "True"}]}], "]"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.8849733811367397`*^9, 3.8849734716985507`*^9}, {
   3.8849735037751293`*^9, 3.884973581106934*^9}, 3.8849761423813252`*^9, {
   3.896440655492789*^9, 
   3.8964406824259515`*^9}},ExpressionUUID->"f626eb48-3007-4e59-9aaa-\
e6f39681d8b6"],

Cell["Retroalimentaci\[OAcute]n", "Text",
 CellChangeTimes->{{3.8695731294494796`*^9, 3.869573144262832*^9}},
 FontWeight->"Bold",
 FontColor->GrayLevel[
  0],ExpressionUUID->"ce2ba31b-7316-492c-8060-31d48c99070b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"funciones", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\n", 
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{"/", "i"}], ",", 
     RowBox[{"n", "->", "Infinity"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "funciones"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.884972303491294*^9, 3.8849723059312735`*^9}, {
   3.8849732227427955`*^9, 3.8849732238464537`*^9}, {3.884973276607661*^9, 
   3.8849733557749057`*^9}, 3.8849751193896503`*^9, 3.896436951127757*^9, 
   3.8964369820252547`*^9},ExpressionUUID->"5cc6d012-3c9a-4a14-bfd9-\
293fd134919e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"9320bfe3-788f-4791-bc0b-cd53000ca4ff"],

Cell[CellGroupData[{

Cell["Ejemplo 4", "Section",
 CellChangeTimes->{
  3.8962662101534414`*^9},ExpressionUUID->"85afc50e-450c-4029-bac3-\
44ffc6bbbbce"],

Cell[TextData[{
 "Desarrolle un \[IAcute]tem para calcular el resultado de una ",
 StyleBox["operaci\[OAcute]n entre relaciones binarias",
  FontWeight->"Bold"],
 " usando ",
 StyleBox["matrices booleanas",
  FontWeight->"Bold"],
 ". Observe la siguiente figura:\n\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsvWVXpMuyLrrHuffD+Xj/wv0JZ4y795prTWnFpQRKcSjc3d0dCnd3d/fG
[encoded data, 265860 characters]
Zfhf4azNAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgFT4f+JKkos=
     "], {{0, 293.5791175483168}, {474.8695799175693, 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{167.99559999999997`, 167.99559999999997`},
     SmoothingQuality->"High"],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{566.1552942032836, Automatic},
   ImageSizeRaw->{474.8695799175693, 293.5791175483168},
   PlotRange->{{0, 474.8695799175693}, {0, 293.5791175483168}}]], "Input",
  ExpressionUUID->"d8996ffd-12b5-45fe-96e0-3e752195c683"]
}], "Text",
 CellChangeTimes->{{3.896266220789673*^9, 3.896266231369607*^9}},
 FontColor->GrayLevel[
  0],ExpressionUUID->"38dbf867-cd51-447b-98df-67c29035ac51"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"2bcdd4ec-14a9-4df6-91c3-2aaea1982a6b"],

Cell[CellGroupData[{

Cell["solucion", "Section",
 CellChangeTimes->{{3.896435773491392*^9, 
  3.8964357750462494`*^9}},ExpressionUUID->"37f530ee-e70a-4609-b788-\
138d1554724b"],

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"<<", "Incrustada`"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Quiet", "[", 
  RowBox[{"<<", "VilCretas`"}], "]"}]}], "Input",
 CellChangeTimes->{{3.887104159885995*^9, 3.8871041633108573`*^9}, {
   3.887107135932592*^9, 3.8871071444343324`*^9}, 3.88710984269059*^9},
 CellLabel->"In[1]:=",ExpressionUUID->"b03269ed-b982-44f8-8a0f-eb10a0f24202"],

Cell[BoxData[{
 RowBox[{"A", "=", 
  RowBox[{"RandomSample", "[", 
   RowBox[{
    RowBox[{"Range", "[", "100", "]"}], ",", "6"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"R1", "=", 
  RowBox[{"RelBinRandomConjuntos", "[", 
   RowBox[{"10", ",", "A", ",", "A"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"R2", "=", 
  RowBox[{"RelBinRandomConjuntos", "[", 
   RowBox[{"10", ",", "A", ",", "A"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.885124264857328*^9, 3.885124350230204*^9}, {
   3.8853110096017323`*^9, 3.885311018017207*^9}, {3.885311077257113*^9, 
   3.885311084377232*^9}, {3.885311981596242*^9, 3.8853120416290693`*^9}, {
   3.8853121263718653`*^9, 3.8853121266416936`*^9}, 3.8853121804126854`*^9, {
   3.8853141052009506`*^9, 3.885314106929346*^9}, {3.8853144478195333`*^9, 
   3.885314459831151*^9}, {3.8964371319122305`*^9, 3.8964371711948304`*^9}, {
   3.8964372343835535`*^9, 3.896437240791669*^9}, {3.896440862892706*^9, 
   3.896440892818491*^9}, {3.8968606590108533`*^9, 
   3.8968606595622296`*^9}},ExpressionUUID->"f45e0d54-65a7-4102-a245-\
3fdaecfca115"],

Cell[BoxData[
 RowBox[{"?", "TablaHTML"}]], "Input",
 CellChangeTimes->{{3.8964424977065444`*^9, 
  3.8964424985120893`*^9}},ExpressionUUID->"c98e463a-7473-4ddf-acca-\
4cb87fc03dd6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", "="}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"R1", "="}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"R2", "="}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MR1", "=", 
   RowBox[{
    RowBox[{"MatrizRelBin", "[", 
     RowBox[{"R1", ",", "A", ",", "A"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MR2", "=", 
   RowBox[{
    RowBox[{"MatrizRelBin", "[", 
     RowBox[{"R2", ",", "A", ",", "A"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MR", "=", 
   RowBox[{"UnionBooleana", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"UnionBooleana", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"ComplementoBooleano", "[", "MR1", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", "MR2"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{"InterseccionBooleana", "[", 
        RowBox[{"MR2", ",", 
         RowBox[{"Transpose", "[", "MR1", "]"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}]}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      OverscriptBox[
       SubscriptBox["R", "1"], "_"], "\[Union]", 
      SubscriptBox["R", "2"]}], ")"}], "\[Union]", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["R", "2"], "\[Intersection]", 
       SuperscriptBox[
        RowBox[{"(", 
         SubscriptBox["R", "1"], ")"}], 
        RowBox[{"-", "1"}]]}], ")"}], 
     RowBox[{"-", "1"}]]}], " ", "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Column", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Row", "[", 
     RowBox[{"{", 
      RowBox[{"\"\<Sea \>\"", ",", 
       RowBox[{"ToLatex", "[", "A", "]"}], ",", 
       RowBox[{"ToLatex", "[", "\"\<=\>\"", "]"}], ",", 
       RowBox[{"ToLatex", "[", 
        RowBox[{
         RowBox[{"Evaluate", "@", "A"}], ",", 
         RowBox[{"conjunto", "->", "True"}]}], "]"}], ",", 
       "\"\<. Defina sobre \>\"", ",", 
       RowBox[{"ToLatex", "[", "A", "]"}], ",", "\"\< las relaciones \>\"", 
       ",", 
       RowBox[{"ToLatex", "[", 
        SubscriptBox["R", "1"], "]"}], ",", "\"\< y \>\"", ",", 
       RowBox[{"ToLatex", "[", 
        SubscriptBox["R", "2"], "]"}], ",", 
       "\"\< como se detalla a continuaci\[OAcute]n:\>\""}], "}"}], "]"}], 
    ",", 
    RowBox[{"Row", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ToLatex", "[", 
        SubscriptBox["R", "1"], "]"}], ",", 
       RowBox[{"ToLatex", "[", "\"\<=\>\"", "]"}], ",", 
       RowBox[{"ToLatex", "[", "\"\<{\>\"", "]"}], ",", 
       RowBox[{"StringTake", "[", 
        RowBox[{
         RowBox[{"ToString", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Row", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"ToLatex", "[", "\"\<(\>\"", "]"}], ",", 
               RowBox[{"ToLatex", "[", 
                RowBox[{"Evaluate", "@", "i"}], "]"}], ",", 
               RowBox[{"ToLatex", "[", "\"\<)\>\"", "]"}]}], "}"}], "]"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "R1"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", 
           RowBox[{"-", "2"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"ToLatex", "[", "\"\<}\>\"", "]"}]}], "}"}], "]"}], ",", 
    RowBox[{"Row", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ToLatex", "[", 
        SubscriptBox["R", "2"], "]"}], ",", 
       RowBox[{"ToLatex", "[", "\"\<=\>\"", "]"}], ",", 
       RowBox[{"ToLatex", "[", "\"\<{\>\"", "]"}], ",", 
       RowBox[{"StringTake", "[", 
        RowBox[{
         RowBox[{"ToString", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Row", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"ToLatex", "[", "\"\<(\>\"", "]"}], ",", 
               RowBox[{"ToLatex", "[", 
                RowBox[{"Evaluate", "@", "i"}], "]"}], ",", 
               RowBox[{"ToLatex", "[", "\"\<)\>\"", "]"}]}], "}"}], "]"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "R2"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", 
           RowBox[{"-", "2"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"ToLatex", "[", "\"\<}\>\"", "]"}]}], "}"}], "]"}], ",", 
    RowBox[{"Row", "[", 
     RowBox[{"{", 
      RowBox[{"\"\<Sean \>\"", ",", 
       RowBox[{"ToLatex", "[", 
        SubscriptBox["M", 
         SubscriptBox["R", "1"]], "]"}], ",", "\"\< y \>\"", ",", 
       RowBox[{"ToLatex", "[", 
        SubscriptBox["M", 
         SubscriptBox["R", "2"]], "]"}], ",", 
       "\"\< las matrices asociadas a las relaciones \>\"", ",", 
       RowBox[{"ToLatex", "[", 
        SubscriptBox["R", "1"], "]"}], ",", "\"\< y \>\"", ",", 
       RowBox[{"ToLatex", "[", 
        SubscriptBox["R", "2"], "]"}], ",", 
       "\"\<, respectivamente. Si: \>\""}], "}"}], "]"}], ",", 
    RowBox[{"ToLatex", "[", 
     RowBox[{"R", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox[
          SubscriptBox["R", "1"], "_"], "\[Union]", 
         SubscriptBox["R", "2"]}], ")"}], "\[Union]", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SubscriptBox["R", "2"], "\[Intersection]", 
          SuperscriptBox[
           RowBox[{"(", 
            SubscriptBox["R", "1"], ")"}], 
           RowBox[{"-", "1"}]]}], ")"}], 
        RowBox[{"-", "1"}]]}]}], "]"}], ",", 
    RowBox[{"Row", "[", 
     RowBox[{"{", 
      RowBox[{"\"\<entonces la matriz asociada a \>\"", ",", 
       RowBox[{"ToLatex", "[", "R", "]"}], ",", "\"\< es \>\"", ",", 
       RowBox[{"ToLatex", "[", 
        SubscriptBox["M", "R"], "]"}], ",", 
       RowBox[{"ToLatex", "[", "\"\<=\>\"", "]"}]}], "}"}], "]"}]}], "}"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"TablaHTML", "[", "]"}]}], "Input",
 CellChangeTimes->{{3.8851243679030485`*^9, 3.885124391345936*^9}, {
   3.885124501181427*^9, 3.885124627371733*^9}, {3.885125536279338*^9, 
   3.8851256291978626`*^9}, {3.885125674964788*^9, 3.8851256764800453`*^9}, {
   3.8851261558116565`*^9, 3.885126157242592*^9}, {3.885126190222872*^9, 
   3.8851261909991045`*^9}, 3.88512694370891*^9, {3.8851269973931875`*^9, 
   3.885127028404623*^9}, {3.885311022088228*^9, 3.8853110224806786`*^9}, {
   3.885311057837455*^9, 3.885311653838724*^9}, {3.885311684352662*^9, 
   3.885311906527017*^9}, 3.8853121130367537`*^9, {3.885312155443762*^9, 
   3.8853121613314285`*^9}, {3.885312202382513*^9, 3.885312243527173*^9}, {
   3.885312360805505*^9, 3.8853123731985493`*^9}, {3.885312549752984*^9, 
   3.885312554692406*^9}, {3.885314427776617*^9, 3.8853144415887923`*^9}, {
   3.896437071219715*^9, 3.8964370833715343`*^9}, {3.896437174927094*^9, 
   3.8964371754131927`*^9}, 3.8964372079197807`*^9, 3.896437320401754*^9, {
   3.89644078936969*^9, 3.896440791985032*^9}, {3.896440886856701*^9, 
   3.896440887426957*^9}, {3.8964409988577495`*^9, 3.8964409997215896`*^9}, 
   3.8964411034512405`*^9},ExpressionUUID->"df63d182-837a-4211-aad0-\
e0ac447436fe"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"0cd5c0f5-f68f-4903-bf01-2d920296c865"],

Cell[CellGroupData[{

Cell["Ejemplo 5", "Section",
 CellChangeTimes->{
  3.896266276205188*^9},ExpressionUUID->"959bcf20-0e1e-4925-9340-\
616d594ef774"],

Cell[TextData[{
 "Elabore un \[IAcute]tem donde se brinde al alumno un grafo mediante una ",
 StyleBox["matriz de adyacencia de pesos",
  FontWeight->"Bold"],
 " y se solicite la ",
 StyleBox["valencia de un nodo",
  FontWeight->"Bold"],
 " y la ",
 StyleBox["longitud",
  FontWeight->"Bold"],
 " de un ",
 StyleBox["camino m\[AAcute]s corto",
  FontWeight->"Bold"],
 ". Observe la siguiente figura:\n\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsvXV/q9mRP5iFP/bPfQv7In67A8lM0ul0mi4YxWSRZYGZmZnta8YLZmZm
[encoded data, 176820 characters]
AMA/Av4f7hmVWA==
     "], {{0, 216.43423994437953`}, {474.8695799175693, 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{167.99559999999997`, 167.99559999999997`},
     SmoothingQuality->"High"],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{597.8695799175694, Automatic},
   ImageSizeRaw->{474.8695799175693, 216.43423994437953`},
   PlotRange->{{0, 474.8695799175693}, {0, 216.43423994437953`}}]], "Input",
  ExpressionUUID->"9c327242-1a30-43f2-8a46-92d525fb7ba9"]
}], "Text",
 CellChangeTimes->{{3.8962662869611597`*^9, 3.8962662945770407`*^9}},
 FontColor->GrayLevel[
  0],ExpressionUUID->"fd7e9025-49f3-4e35-a522-448dfc1bd7c2"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"02860fb1-934e-4531-b4ad-749c42dd15f2"],

Cell[CellGroupData[{

Cell["solucion", "Section",
 CellChangeTimes->{{3.896435783893181*^9, 
  3.8964357854750757`*^9}},ExpressionUUID->"77f1aaa7-de92-47c1-be8b-\
63ec2330fd6d"],

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"<<", "Incrustada`"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Quiet", "[", 
  RowBox[{"<<", "VilCretas`"}], "]"}]}], "Input",
 CellChangeTimes->{{3.887104159885995*^9, 3.8871041633108573`*^9}, {
   3.887107135932592*^9, 3.8871071444343324`*^9}, 3.88710984269059*^9},
 CellLabel->"In[1]:=",ExpressionUUID->"1898dd03-e97e-4ca8-bbaa-4397cdba4b91"],

Cell[BoxData[{
 RowBox[{"grafo", "=", 
  RowBox[{"GrafoRandom", "[", 
   RowBox[{"10", ",", "15", ",", 
    RowBox[{"letras", "->", "True"}], ",", 
    RowBox[{"pesos", "->", "True"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"AristasWolframSystemToCombinatorica", "[", 
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{"PesosAristas", "[", "grafo", "]"}], "]"}], ",", 
    RowBox[{
     RowBox[{"!", 
      RowBox[{"NumericQ", "[", "#", "]"}]}], "&"}]}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Select", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"PesosAristas", "[", "grafo", "]"}], "]"}], ",", 
   RowBox[{
    RowBox[{"NumericQ", "[", "#", "]"}], "&"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.869661628025833*^9, 3.8696616738127003`*^9}, {
  3.8696637601352663`*^9, 3.8696637906166983`*^9}, {3.8696638406561327`*^9, 
  3.8696638429133053`*^9}},
 CellLabel->
  "In[307]:=",ExpressionUUID->"a573aa8b-6619-4508-840e-f28f8ec28078"],

Cell[BoxData[
 RowBox[{"?", "ShortNumerical"}]], "Input",
 CellChangeTimes->{{3.8964426133146505`*^9, 
  3.896442614128317*^9}},ExpressionUUID->"dbc59c3f-0085-4188-a45f-\
9d469ef50bb6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"grafo", "=", 
   RowBox[{"Grafo", "[", 
    RowBox[{",", 
     RowBox[{"pesos", "->"}], ",", 
     RowBox[{"mostrarpesos", "->", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"matrizPesos", "=", 
  RowBox[{"MPGrafo", "[", 
   RowBox[{"grafo", ",", 
    RowBox[{"ListaVertices", "[", "grafo", "]"}], ",", 
    RowBox[{"matriz", "->", "True"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"nodo1", "=", "f"}], ",", 
    RowBox[{"nodo2", "=", "i"}], ",", 
    RowBox[{"nodo3", "=", "e"}]}], "}"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"valencia", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Valencias", "[", "grafo", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1"}], "]"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"Position", "[", 
       RowBox[{
        RowBox[{"VertexList", "[", "grafo", "]"}], ",", "nodo1"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Column", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Row", "[", 
     RowBox[{"{", 
      RowBox[{"\"\<Sea \>\"", ",", 
       RowBox[{"ToLatex", "[", "G", "]"}], ",", 
       "\"\< un grafo con pesos. Se sabe que \>\"", ",", 
       RowBox[{"ToLatex", "[", "G", "]"}], ",", "\"\< tiene \>\"", ",", 
       RowBox[{"ToLatex", "[", "10", "]"}], ",", 
       "\"\< v\[EAcute]rtices (etiquetados de la \>\"", ",", 
       RowBox[{"ToLatex", "[", "a", "]"}], ",", "\"\< a la \>\"", ",", 
       RowBox[{"ToLatex", "[", "j", "]"}], ",", 
       "\"\<). La matriz de pesos de \>\"", ",", 
       RowBox[{"ToLatex", "[", "G", "]"}], ",", 
       "\"\< en el orden del abecedario es:\>\""}], "}"}], "]"}], ",", 
    RowBox[{"ToLatex", "[", 
     RowBox[{
      RowBox[{"Evaluate", "@", "matrizPesos"}], ",", 
      RowBox[{"matriz", "->", "True"}]}], "]"}], ",", 
    RowBox[{"Row", "[", 
     RowBox[{"{", 
      RowBox[{"\"\<Determine la valencia del nodo \>\"", ",", 
       RowBox[{"ToLatex", "[", 
        RowBox[{"Evaluate", "@", "nodo1"}], "]"}], ",", "\"\<: \>\"", ",", 
       RowBox[{"ShortNumerical", "[", 
        RowBox[{"{", "}"}], "]"}]}], "}"}], "]"}], ",", 
    RowBox[{"Row", "[", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Determine la longitud de un camino m\[AAcute]s corto entre los \
nodos \>\"", ",", 
       RowBox[{"ToLatex", "[", 
        RowBox[{"Evaluate", "@", "nodo2"}], "]"}], ",", "\"\< y \>\"", ",", 
       RowBox[{"ToLatex", "[", 
        RowBox[{"Evaluate", "@", "nodo3"}], "]"}], ",", "\"\<: \>\"", ",", 
       RowBox[{"ShortNumerical", "[", 
        RowBox[{"{", "}"}], "]"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8854567002660713`*^9, 3.8854569544387445`*^9}, {
   3.885457078706007*^9, 3.885457196889697*^9}, {3.88545728197445*^9, 
   3.885457293717109*^9}, {3.8854573316725054`*^9, 3.8854573529029303`*^9}, {
   3.8854574272297487`*^9, 3.88545745994746*^9}, {3.8854574943025*^9, 
   3.8854574994757175`*^9}, 3.885457575767353*^9, {3.8854576299903674`*^9, 
   3.88545763825413*^9}, {3.885458606954008*^9, 3.8854586132378016`*^9}, {
   3.896437388673545*^9, 3.896437412218062*^9}, {3.89643744704204*^9, 
   3.896437447679982*^9}, {3.8964425737291517`*^9, 
   3.8964426013597746`*^9}},ExpressionUUID->"eacc4ffc-cc50-4ac7-8e53-\
69ddb6c653c1"],

Cell["Retroalimentaci\[OAcute]n", "Text",
 CellChangeTimes->{{3.8695731294494796`*^9, 3.869573144262832*^9}},
 FontWeight->"Bold",
 FontColor->GrayLevel[
  0],ExpressionUUID->"6306bccf-4af1-40f0-b3c5-0f0ca2fbe7ef"],

Cell[BoxData[{
 RowBox[{"grafo", "=", 
  RowBox[{"GrafoMP", "[", 
   RowBox[{",", 
    RowBox[{"{", 
     RowBox[{
     "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", 
      "h", ",", "i", ",", "j"}], "}"}], ",", 
    RowBox[{"mostrarpesos", "->", "True"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Valencias", "[", "grafo", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Valencias", "[", "grafo", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "1"}], "]"}], "]"}], "[", 
  RowBox[{"[", 
   RowBox[{
    RowBox[{"Position", "[", 
     RowBox[{
      RowBox[{"VertexList", "[", "grafo", "]"}], ",", "f"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"AlDijkstra", "[", 
  RowBox[{"grafo", ",", "i", ",", "e"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8696638723098593`*^9, 3.869663913593732*^9}, {
   3.885457365268193*^9, 3.88545741230899*^9}, {3.8854577175942307`*^9, 
   3.8854577178809185`*^9}, {3.8854586227970643`*^9, 3.8854586343003817`*^9}, 
   3.8964374638442545`*^9},ExpressionUUID->"584fa012-d9ef-4968-8f24-\
1ce9fb5baf26"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"c7f1d89d-f8b7-45d6-ad79-f47f8712497b"],

Cell[CellGroupData[{

Cell["Ejemplo 6", "Section",
 CellChangeTimes->{
  3.89626631117805*^9},ExpressionUUID->"8d8aa854-9019-457d-9459-0cc39061320f"],

Cell[TextData[{
 "Desarrolle un \[IAcute]tem donde el estudiante complete el resultado de los \
algoritmos \[OpenCurlyDoubleQuote]",
 StyleBox["buscar primero a lo ancho",
  FontWeight->"Bold"],
 "\[CloseCurlyDoubleQuote] y \[OpenCurlyDoubleQuote]",
 StyleBox["buscar primero a lo largo",
  FontWeight->"Bold"],
 "\[CloseCurlyDoubleQuote]. Observe la siguiente figura:\n\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzs3XdQ43l+N/itu/vj/nzsqvPV+fnnnvKVz1V2uR4/Vbe7tnftW9+u1+Od
[encoded data, 177240 characters]
AAAAAAAA4Ov8f4lfm14=
     "], {{0, 237.86337261213987`}, {474.8695799175693, 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{167.99559999999997`, 167.99559999999997`},
     SmoothingQuality->"High"],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{598.7267227747121, Automatic},
   ImageSizeRaw->{474.8695799175693, 237.86337261213987`},
   PlotRange->{{0, 474.8695799175693}, {0, 237.86337261213987`}}]], "Input",
  ExpressionUUID->"a926da04-389a-4d18-808c-a1af66004e78"]
}], "Text",
 CellChangeTimes->{{3.8962663209252586`*^9, 3.8962663406062145`*^9}},
 FontColor->GrayLevel[
  0],ExpressionUUID->"feeef28f-d61e-40d4-824d-801338996c00"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"32bb0ca9-13e3-4bde-b8fe-114a5a98acd3"],

Cell[CellGroupData[{

Cell["solucion", "Section",
 CellChangeTimes->{{3.896435795059332*^9, 
  3.8964357967953997`*^9}},ExpressionUUID->"37c31b1c-35b0-4972-b38c-\
e5ecf44d303e"],

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"<<", "Incrustada`"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Quiet", "[", 
  RowBox[{"<<", "VilCretas`"}], "]"}]}], "Input",
 CellChangeTimes->{{3.887104159885995*^9, 3.8871041633108573`*^9}, {
   3.887107135932592*^9, 3.8871071444343324`*^9}, 3.88710984269059*^9},
 CellLabel->"In[1]:=",ExpressionUUID->"7ebe892f-7ea8-4502-994b-1d345fac8d11"],

Cell[BoxData[{
 RowBox[{"grafo", "=", 
  RowBox[{"GrafoRandom", "[", 
   RowBox[{"8", ",", "17", ",", 
    RowBox[{"pesos", "->", "True"}], ",", 
    RowBox[{"letras", "->", "True"}], ",", 
    RowBox[{"maxPeso", "->", "10"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RandomSample", "[", 
   RowBox[{"Permutations", "[", 
    RowBox[{"ListaVertices", "[", "grafo", "]"}], "]"}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"AristasWolframSystemToCombinatorica", "[", 
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{"PesosAristas", "[", "grafo", "]"}], "]"}], ",", 
    RowBox[{
     RowBox[{"!", 
      RowBox[{"NumericQ", "[", "#", "]"}]}], "&"}]}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Select", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"PesosAristas", "[", "grafo", "]"}], "]"}], ",", 
   RowBox[{
    RowBox[{"NumericQ", "[", "#", "]"}], "&"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8698493986269293`*^9, 3.8698494347378674`*^9}, {
  3.869849486934805*^9, 3.8698495450525064`*^9}, {3.869849639793906*^9, 
  3.869849779715351*^9}, {3.869849815696535*^9, 3.8698498755954995`*^9}},
 CellLabel->
  "In[307]:=",ExpressionUUID->"b98d3890-a888-4325-997c-d15a360dda87"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"nodos", "="}], ";"}], "\n", 
 RowBox[{
  RowBox[{"grafo", "=", 
   RowBox[{"Grafo", "[", 
    RowBox[{",", 
     RowBox[{"pesos", "->"}], ",", 
     RowBox[{"mostrarpesos", "->", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BA", "=", 
   RowBox[{"Sort", "/@", 
    RowBox[{"BuscarPrimeroAncho", "[", 
     RowBox[{"grafo", ",", 
      RowBox[{"orden", "->", "nodos"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BL", "=", 
   RowBox[{"Sort", "/@", 
    RowBox[{"BuscarPrimeroLargo", "[", 
     RowBox[{"grafo", ",", 
      RowBox[{"orden", "->", "nodos"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Column", "[", 
  RowBox[{"{", 
   RowBox[{"\"\<Considere el siguiente grafo:\>\"", ",", "\"\<image\>\"", ",", 
    RowBox[{"Row", "[", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Al realizar una b\[UAcute]squeda primero a lo ancho y primero a lo \
largo con el orden \>\"", ",", 
       RowBox[{"ToLatex", "[", 
        RowBox[{
         RowBox[{"Evaluate", "@", "nodos"}], ",", 
         RowBox[{"conjunto", "->", "True"}]}], "]"}], ",", 
       "\"\<, se obtienen los siguientes \[AAcute]rboles (coloque los v\
\[EAcute]rtices de los lados en orden alfab\[EAcute]tico de izquierda a \
derecha, es decir, si la arista a completar es por ejemplo \>\"", ",", 
       RowBox[{"ToLatex", "[", "\"\<[\>\"", "]"}], ",", 
       RowBox[{"ToLatex", "[", "g", "]"}], ",", 
       RowBox[{"ToLatex", "[", "\"\<, \>\"", "]"}], ",", 
       RowBox[{"ToLatex", "[", "b", "]"}], ",", 
       RowBox[{"ToLatex", "[", "\"\<]\>\"", "]"}], ",", 
       "\"\<, debe incluirla en el orden \>\"", ",", 
       RowBox[{"ToLatex", "[", "\"\<[\>\"", "]"}], ",", 
       RowBox[{"ToLatex", "[", "b", "]"}], ",", 
       RowBox[{"ToLatex", "[", "\"\<, \>\"", "]"}], ",", 
       RowBox[{"ToLatex", "[", "g", "]"}], ",", 
       RowBox[{"ToLatex", "[", "\"\<]).\>\"", "]"}]}], "}"}], "]"}], ",", 
    "\"\<Buscar primero a lo ancho: \>\"", ",", 
    RowBox[{"Row", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ToLatex", "[", "\"\<{\>\"", "]"}], ",", 
       RowBox[{"StringTake", "[", 
        RowBox[{
         RowBox[{"ToString", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Row", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"ToLatex", "[", "\"\<[\>\"", "]"}], ",", 
               RowBox[{"ShortAnswer", "[", 
                RowBox[{"{", "}"}], "]"}], ",", "\"\<,\>\"", ",", 
               RowBox[{"ShortAnswer", "[", 
                RowBox[{"{", "}"}], "]"}], ",", 
               RowBox[{"ToLatex", "[", "\"\<]\>\"", "]"}]}], "}"}], "]"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"parametro", ",", "BA"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", 
           RowBox[{"-", "2"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"ToLatex", "[", "\"\<}\>\"", "]"}]}], "}"}], "]"}], ",", 
    "\"\<Buscar primero a lo largo: \>\"", ",", "\[IndentingNewLine]", 
    RowBox[{"Row", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ToLatex", "[", "\"\<{\>\"", "]"}], ",", 
       RowBox[{"StringTake", "[", 
        RowBox[{
         RowBox[{"ToString", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Row", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"ToLatex", "[", "\"\<[\>\"", "]"}], ",", 
               RowBox[{"ShortAnswer", "[", 
                RowBox[{"{", "}"}], "]"}], ",", "\"\<,\>\"", ",", 
               RowBox[{"ShortAnswer", "[", 
                RowBox[{"{", "}"}], "]"}], ",", 
               RowBox[{"ToLatex", "[", "\"\<]\>\"", "]"}]}], "}"}], "]"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"parametro", ",", "BL"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", 
           RowBox[{"-", "2"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"ToLatex", "[", "\"\<}\>\"", "]"}]}], "}"}], "]"}]}], "}"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8855782214015517`*^9, 3.885578448244647*^9}, {
  3.8855785553636036`*^9, 3.8855785750203824`*^9}, {3.8855786053922644`*^9, 
  3.885578630356269*^9}, {3.885578665408194*^9, 3.8855787602695303`*^9}, {
  3.8855793488264613`*^9, 3.885579360863799*^9}, {3.8855793965245323`*^9, 
  3.885579656733045*^9}, {3.8855797452899504`*^9, 3.8855797513059254`*^9}, {
  3.8855797948043704`*^9, 3.8855798066992073`*^9}, {3.8855799989180627`*^9, 
  3.885579999545438*^9}, {3.8964376174305573`*^9, 3.8964376258830137`*^9}, {
  3.8964376930976224`*^9, 3.8964376938694234`*^9}, {3.8964428781545095`*^9, 
  3.896442903800373*^9}},ExpressionUUID->"d93e942b-2322-4b92-9457-\
31180717821b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"99ca34aa-bf5a-492a-904d-69da6a232d1c"],

Cell[CellGroupData[{

Cell["Ejemplo 7", "Section",
 CellChangeTimes->{
  3.8962663506309156`*^9},ExpressionUUID->"e611f1d8-da5b-438f-b671-\
d16442aef58f"],

Cell[TextData[{
 "Realice un \[IAcute]tem donde dado un ",
 StyleBox["aut\[OAcute]mata de estado finito no determin\[IAcute]stico",
  FontWeight->"Bold"],
 " y un par de ",
 StyleBox["hileras de s\[IAcute]mbolos de entrada",
  FontWeight->"Bold"],
 ", el alumno debe indicar mediante un ",
 StyleBox["falso-verdadero",
  FontWeight->"Bold"],
 " si la hilera correspondiente es ",
 StyleBox["aceptada",
  FontWeight->"Bold"],
 ". Observe la siguiente figura:\n\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsvedbW1meqHuee7/cj+cfOOfcM3dmuntm+sz0zFR1de6uTtOVyy7b5JyD
[encoded data, 163080 characters]
CgEAAAAAAMBFPlEIAAAAAAAAAAAAAAAAAAAAAAAAAAAAP5X/B559i/4=
     "], {{0, 336.0088002304823}, {297.43636142851364`, 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{167.99559999999997`, 167.99559999999997`},
     SmoothingQuality->"High"],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{366.0077899999422, Automatic},
   ImageSizeRaw->{297.43636142851364`, 336.0088002304823},
   PlotRange->{{0, 297.43636142851364`}, {0, 336.0088002304823}}]], "Input",
  ExpressionUUID->"4ebd8ffb-e52a-4732-9522-84e13e7c9366"]
}], "Text",
 CellChangeTimes->{{3.8962663209252586`*^9, 3.896266328962129*^9}, {
  3.896266364136694*^9, 3.896266375604623*^9}},
 FontColor->GrayLevel[
  0],ExpressionUUID->"d4304531-75ca-4cb7-a8e0-0b5a6138ca12"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"98ea188b-982f-4a2a-89f6-e526ddb2e1e4"],

Cell[CellGroupData[{

Cell["solucion", "Section",
 CellChangeTimes->{{3.896435809858818*^9, 
  3.896435811458963*^9}},ExpressionUUID->"c1acaf34-2726-4465-a942-\
2940f65459fd"],

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"<<", "Incrustada`"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Quiet", "[", 
  RowBox[{"<<", "VilCretas`"}], "]"}]}], "Input",
 CellChangeTimes->{{3.887104159885995*^9, 3.8871041633108573`*^9}, {
   3.887107135932592*^9, 3.8871071444343324`*^9}, 3.88710984269059*^9},
 CellLabel->"In[1]:=",ExpressionUUID->"525a11c8-9f36-4b97-a676-8d00d83c5353"],

Cell[BoxData[{
 RowBox[{"AutomataNDRandom", "[", 
  RowBox[{"4", ",", "4"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"ComponentesAutomata", "[", 
  RowBox[{"G", ",", 
   RowBox[{"conjuntos", "->", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.869938122200076*^9, 3.869938199604755*^9}, {
   3.869941543608884*^9, 3.8699415673592863`*^9}, {3.869978421351973*^9, 
   3.869978452929985*^9}, 3.885699705881559*^9, 3.885699812736523*^9, 
   3.8857095529931235`*^9},ExpressionUUID->"97f30613-2e7f-4f8a-9054-\
4884a0ad3da1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"vectorComponentes", "="}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"aut", "=", 
   RowBox[{"Automata", "[", 
    RowBox[{
     RowBox[{"vectorComponentes", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"vectorComponentes", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"vectorComponentes", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"vectorComponentes", "[", 
      RowBox[{"[", "4", "]"}], "]"}], ",", 
     RowBox[{"vectorComponentes", "[", 
      RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hileras", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"RandomChoice", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "15"}], 
      "]"}], ",", 
     RowBox[{"RandomChoice", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "15"}], 
      "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"hilera", "->", 
    RowBox[{"StringAceptadaQ", "[", 
     RowBox[{"aut", ",", "hilera"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"hilera", ",", "hileras"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8857026488096576`*^9, 3.885702683958213*^9}, {
   3.8857032457355757`*^9, 3.8857032751419706`*^9}, {3.8857034571231847`*^9, 
   3.885703472800156*^9}, {3.8857035267972317`*^9, 3.8857035378477435`*^9}, {
   3.885703647516187*^9, 3.885703707860058*^9}, 3.8857037925360155`*^9, {
   3.8857038617198396`*^9, 3.885703912955077*^9}, 3.8857039526974525`*^9, {
   3.8857040100410166`*^9, 3.8857040219873357`*^9}, {3.8857040605021877`*^9, 
   3.8857041289213123`*^9}, {3.885704160728403*^9, 3.88570416630995*^9}, {
   3.885704257349449*^9, 3.885704257538514*^9}, 
   3.8966100447434855`*^9},ExpressionUUID->"66a22458-b663-487f-ad81-\
f91d5c5ca455"],

Cell[BoxData[
 RowBox[{"?", "Desplegada"}]], "Input",
 CellChangeTimes->{{3.8964431656597605`*^9, 
  3.8964431664747663`*^9}},ExpressionUUID->"792a6213-832a-4679-bb78-\
b47291248c2e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"En", " ", "Moodle", " ", 
    RowBox[{"quitar", " ", "\\", "text"}], " ", "de", " ", "las", " ", 
    "hileras"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"aut", "=", 
     RowBox[{"Automata", "[", 
      RowBox[{
       RowBox[{"vectorComponentes", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"vectorComponentes", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"vectorComponentes", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"vectorComponentes", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", 
       RowBox[{"vectorComponentes", "[", 
        RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"AutomataToDiagrama", "[", 
    RowBox[{"aut", ",", 
     RowBox[{"colores", "->", "True"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"hileraAux1", "="}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"hilera1", "=", 
     RowBox[{"StringJoin", "[", 
      RowBox[{"ToString", "/@", "hileraAux1"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"hileraAux2", "="}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"hilera2", "=", 
     RowBox[{"StringJoin", "[", 
      RowBox[{"ToString", "/@", "hileraAux2"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"boolean1", "=", 
     RowBox[{"StringAceptadaQ", "[", 
      RowBox[{"aut", ",", "hileraAux1"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"boolean2", "=", 
     RowBox[{"StringAceptadaQ", "[", 
      RowBox[{"aut", ",", "hileraAux2"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Column", "[", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Considere el siguiente diagrama de transici\[OAcute]n de un aut\
\[OAcute]mata:\>\"", ",", "\"\<image\>\"", ",", 
      RowBox[{"Row", "[", 
       RowBox[{"{", 
        RowBox[{"\"\<La hilera \>\"", ",", 
         RowBox[{"ToLatex", "[", 
          SubscriptBox["\[Alpha]", "1"], "]"}], ",", 
         RowBox[{"ToLatex", "[", "\"\<=\>\"", "]"}], ",", 
         RowBox[{"ToLatex", "[", 
          RowBox[{"Evaluate", "@", "hilera1"}], "]"}], ",", 
         "\"\<, \[DownQuestion]es aceptada por este aut\[OAcute]mata?: \>\"", 
         ",", 
         RowBox[{"Desplegada", "[", 
          RowBox[{
           RowBox[{"{", "}"}], ",", 
           RowBox[{"{", "}"}]}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Row", "[", 
       RowBox[{"{", 
        RowBox[{"\"\<La hilera \>\"", ",", 
         RowBox[{"ToLatex", "[", 
          SubscriptBox["\[Alpha]", "2"], "]"}], ",", 
         RowBox[{"ToLatex", "[", "\"\<=\>\"", "]"}], ",", 
         RowBox[{"ToLatex", "[", 
          RowBox[{"Evaluate", "@", "hilera2"}], "]"}], ",", 
         "\"\<, \[DownQuestion]es aceptada por este aut\[OAcute]mata?: \>\"", 
         ",", 
         RowBox[{"Desplegada", "[", 
          RowBox[{
           RowBox[{"{", "}"}], ",", 
           RowBox[{"{", "}"}]}], "]"}]}], "}"}], "]"}]}], "}"}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{
  3.8856979000744934`*^9, {3.8856981534016123`*^9, 3.8856981537521367`*^9}, {
   3.8856981875217867`*^9, 3.885698233525749*^9}, {3.8856982827612295`*^9, 
   3.885698285281559*^9}, {3.8856983216656675`*^9, 3.885698447530141*^9}, {
   3.8856984799625034`*^9, 3.885698575093445*^9}, {3.88569864654843*^9, 
   3.8856986931484227`*^9}, {3.8856988615419436`*^9, 
   3.8856988727146626`*^9}, {3.8856989083054514`*^9, 
   3.8856989308901014`*^9}, {3.8856990451084642`*^9, 
   3.8856990590859475`*^9}, {3.8856990899619403`*^9, 3.88569916579329*^9}, {
   3.8856994317112556`*^9, 3.885699467456986*^9}, {3.885699506008689*^9, 
   3.8856995443719645`*^9}, {3.8856996082494435`*^9, 3.885699637829822*^9}, {
   3.8856997157078686`*^9, 3.885699740070428*^9}, 3.885699771121275*^9, {
   3.8856998185511656`*^9, 3.8856998615113635`*^9}, {3.8857003493956795`*^9, 
   3.885700350409607*^9}, 3.885700598386396*^9, {3.88570063231203*^9, 
   3.8857006456468215`*^9}, {3.8857012679977136`*^9, 3.8857012909367514`*^9}, 
   3.8857018466248045`*^9, {3.885702718032441*^9, 3.8857029185841274`*^9}, {
   3.885702950335845*^9, 3.8857029673317213`*^9}, {3.885703191561613*^9, 
   3.8857032345440297`*^9}, {3.88570382092558*^9, 3.8857038439787493`*^9}, {
   3.885704201044688*^9, 3.885704211223612*^9}, {3.885704296783596*^9, 
   3.885704305782508*^9}, 3.8857043500227633`*^9, {3.88570447136025*^9, 
   3.885704473822337*^9}, {3.8857045578020773`*^9, 3.8857045612344885`*^9}, {
   3.8964377649639387`*^9, 3.896437825596299*^9}, {3.8964430965589333`*^9, 
   3.896443096953116*^9}, {3.896443129644431*^9, 3.8964431513980327`*^9}, {
   3.8964571573546333`*^9, 
   3.8964571596966033`*^9}},ExpressionUUID->"2a7fc5b7-36ac-4da3-a4bd-\
e06d7fec62ba"],

Cell["Retroalimentaci\[OAcute]n", "Text",
 CellChangeTimes->{{3.8695731294494796`*^9, 3.869573144262832*^9}},
 FontWeight->"Bold",
 FontColor->GrayLevel[
  0],ExpressionUUID->"9a6f6d18-2ad5-4ba4-957c-2722eb537773"],

Cell[BoxData[
 RowBox[{"vectorComponentes", "/.", 
  RowBox[{"Thread", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["\[Sigma]", "0"], ",", 
      SubscriptBox["\[Sigma]", "1"], ",", 
      SubscriptBox["\[Sigma]", "2"], ",", 
      SubscriptBox["\[Sigma]", "3"]}], "}"}], "->", 
    RowBox[{"{", 
     RowBox[{"s0", ",", "s1", ",", "s2", ",", "s3"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{
  3.8856996788187027`*^9, {3.8857014686423993`*^9, 3.8857014725660734`*^9}, 
   3.885703084940049*^9, {3.88570436135924*^9, 3.8857043639904394`*^9}, 
   3.89643784809188*^9, 
   3.8973038069516544`*^9},ExpressionUUID->"d8c94e4e-5aa2-497d-b785-\
4fb3a8628b1c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"vectorComponentes", "="}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"aut", "=", 
   RowBox[{"Automata", "[", 
    RowBox[{
     RowBox[{"vectorComponentes", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"vectorComponentes", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"vectorComponentes", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"vectorComponentes", "[", 
      RowBox[{"[", "4", "]"}], "]"}], ",", 
     RowBox[{"vectorComponentes", "[", 
      RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"StringAceptadaQ", "[", 
    RowBox[{"aut", ","}], "]"}], ",", 
   RowBox[{"StringAceptadaQ", "[", 
    RowBox[{"aut", ","}], "]"}]}], "}"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8699783566537614`*^9, 3.8699783605859222`*^9}, {
   3.869978538568086*^9, 3.869978558905176*^9}, 3.8699786885258017`*^9, {
   3.885697824886552*^9, 3.8856978539366045`*^9}, {3.885697930894415*^9, 
   3.8856980069986873`*^9}, 3.885699689919386*^9, {3.8857014838732295`*^9, 
   3.8857014976612105`*^9}, {3.8857025760712323`*^9, 
   3.8857026102754264`*^9}, {3.8857031110317125`*^9, 
   3.8857031611097097`*^9}, {3.8857042383385334`*^9, 
   3.8857042455704727`*^9}, {3.885704322705474*^9, 3.8857043296775513`*^9}, 
   3.8857043741159706`*^9, {3.896437856381424*^9, 
   3.896437865611064*^9}},ExpressionUUID->"95ce2f7c-c1f4-485f-99c4-\
67aeaa816d71"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"c5d5c1cf-6dbf-494e-b595-031aff139249"],

Cell[CellGroupData[{

Cell["Ejemplo 8", "Section",
 CellChangeTimes->{
  3.8962663949815373`*^9},ExpressionUUID->"73cb84e7-10bd-4b0d-b64f-\
3b676c2932cd"],

Cell[TextData[{
 "Elabore un \[IAcute]tem donde el estudiante incorpore como respuesta una \
serie de ",
 StyleBox["reglas gramaticales",
  FontWeight->"Bold"],
 " asociadas a una ",
 StyleBox["gram\[AAcute]tica regular",
  FontWeight->"Bold"],
 " equivalente a un ",
 StyleBox["aut\[OAcute]mata de estado finito determin\[IAcute]stico",
  FontWeight->"Bold"],
 " dado. Observe la siguiente figura:\n\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsvQdUVPnd/78lOZucJ3nyT/Ikec4m5/klOUl2s+raKII0pdlBsYCi2MuK
[encoded data, 83940 characters]
AAAAAAAAAAAAAHAfVxJNWtY=
     "], {{0, 219.43431851786596`}, {268.29274100035957`, 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{167.99559999999997`, 167.99559999999997`},
     SmoothingQuality->"High"],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{427.2927410003597, Automatic},
   ImageSizeRaw->{268.29274100035957`, 219.43431851786596`},
   PlotRange->{{0, 268.29274100035957`}, {0, 219.43431851786596`}}]], "Input",
  ExpressionUUID->"081dc905-0431-49c6-b733-113007b3c12e"]
}], "Text",
 CellChangeTimes->{{3.8962664065278816`*^9, 3.8962664141692004`*^9}},
 FontColor->GrayLevel[
  0],ExpressionUUID->"722ae697-290c-44d1-aa60-dcc2cf28856e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"b565ca91-89cb-44cc-be2e-aae46ad42778"],

Cell[CellGroupData[{

Cell["solucion", "Section",
 CellChangeTimes->{{3.896435822941599*^9, 
  3.8964358245387974`*^9}},ExpressionUUID->"07a6a34c-e54c-453d-9686-\
93ad4efc38a4"],

Cell[BoxData[{
 RowBox[{"Quiet", "[", 
  RowBox[{"<<", "Incrustada`"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Quiet", "[", 
  RowBox[{"<<", "VilCretas`"}], "]"}]}], "Input",
 CellChangeTimes->{{3.887104159885995*^9, 3.8871041633108573`*^9}, {
   3.887107135932592*^9, 3.8871071444343324`*^9}, 3.88710984269059*^9},
 CellLabel->"In[1]:=",ExpressionUUID->"a6f8130c-5659-4a35-b22e-077a0ad3b2f4"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "A", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AutomataDRandom", "[", 
   RowBox[{"4", ",", "3"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"vectorComponentes", "=", 
  RowBox[{
   RowBox[{"ComponentesAutomata", "[", 
    RowBox[{"G", ",", 
     RowBox[{"conjuntos", "->", "True"}]}], "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["\[Sigma]", "0"], "->", "A"}], ",", 
     RowBox[{
      SubscriptBox["\[Sigma]", "1"], "->", "B"}], ",", 
     RowBox[{
      SubscriptBox["\[Sigma]", "2"], "->", "C"}], ",", 
     RowBox[{
      SubscriptBox["\[Sigma]", "3"], "->", "S"}]}], 
    "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"AutomataToDiagrama", "[", 
  RowBox[{"Automata", "[", 
   RowBox[{
    RowBox[{"vectorComponentes", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"vectorComponentes", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", "S", ",", 
    RowBox[{"vectorComponentes", "[", 
     RowBox[{"[", "4", "]"}], "]"}], ",", 
    RowBox[{"vectorComponentes", "[", 
     RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8700014355702486`*^9, 3.870001485039098*^9}, {
  3.885725006145175*^9, 3.885725009681479*^9}, {3.885726355869025*^9, 
  3.8857264395336685`*^9}, {3.885727067759527*^9, 3.8857270959159217`*^9}, {
  3.896443526183473*^9, 
  3.8964435342938414`*^9}},ExpressionUUID->"51ea22e9-509f-4cd3-bbc4-\
4d02352e957e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"gramatica", "=", 
   RowBox[{"AutomataToRegular", "[", 
    RowBox[{
     RowBox[{"Automata", "[", 
      RowBox[{
       RowBox[{"vectorComponentes", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"vectorComponentes", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "S", ",", 
       RowBox[{"vectorComponentes", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", 
       RowBox[{"vectorComponentes", "[", 
        RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"componentes", "->", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Respuestas", "[", 
   RowBox[{
    RowBox[{"alpha_", ":", "\"\<\>\""}], ",", "Reglas_"}], "]"}], ":=", 
  RowBox[{"DeleteDuplicates", "[", 
   RowBox[{"ToExpression", "/@", 
    RowBox[{"Flatten", "[", 
     RowBox[{"StringCases", "[", 
      RowBox[{"Reglas", ",", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"StringTemplate", "[", "\"\<``\[Rule]\>\"", "]"}], "[", 
          "alpha", "]"}], "~~", "x__"}], "->", "x"}]}], "]"}], "]"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Column", "[", 
  RowBox[{"{", 
   RowBox[{
   "\"\<Considere el siguiente aut\[OAcute]mata:\>\"", ",", "\"\<image\>\"", 
    ",", "\"\<Con respecto a la gram\[AAcute]tica asociada a este \
aut\[OAcute]mata, complete correctamente algunas de sus producciones:\>\""}], 
   "}"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Row", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"StringJoin", "[", 
     RowBox[{"{", 
      RowBox[{"\"\< *) \>\"", ",", 
       RowBox[{
        RowBox[{"StringTemplate", "[", "\"\<``\>\"", "]"}], "[", "parametro", 
        "]"}], ",", "\"\<->\>\"", ",", 
       RowBox[{"Desplegada", "[", ",", "]"}]}], "}"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"parametro", ",", 
      RowBox[{"gramatica", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8857265304090014`*^9, 3.885726538624077*^9}, {
   3.885726588927255*^9, 3.88572662079997*^9}, {3.8857268464153104`*^9, 
   3.885726895176312*^9}, {3.885726945611308*^9, 3.885726986621339*^9}, {
   3.8857270482999735`*^9, 3.885727063940638*^9}, {3.885727109448703*^9, 
   3.885727184100773*^9}, {3.885727340848056*^9, 3.885727366252326*^9}, {
   3.885727512900564*^9, 3.8857275504363585`*^9}, {3.885727600935725*^9, 
   3.885727607564515*^9}, {3.8857276391418557`*^9, 3.885727651880139*^9}, {
   3.8857287882915306`*^9, 3.8857287996926813`*^9}, {3.8857288978539343`*^9, 
   3.8857289378398275`*^9}, 3.8857290772184134`*^9, {3.8857291140089426`*^9, 
   3.8857291299081993`*^9}, 3.885729627290952*^9, 3.887115168675841*^9, {
   3.8964379472409873`*^9, 3.896437970162168*^9}, {3.8964433735747213`*^9, 
   3.8964434037323694`*^9}, {3.896444013663735*^9, 3.8964440149076877`*^9}, {
   3.897039237089471*^9, 
   3.8970392387179785`*^9}},ExpressionUUID->"5c3892bd-1073-406f-9e96-\
0cfbd8cec35d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"5fbd84bd-73b4-4668-9cf7-be1ecee7d7c0"],

Cell[CellGroupData[{

Cell["Conclusiones", "Section",
 CellChangeTimes->{{3.8962664866316996`*^9, 
  3.89626648997141*^9}},ExpressionUUID->"8af92c29-651a-44f4-9998-\
604a134f1ae1"],

Cell[TextData[{
 "Los comandos de \[OpenCurlyDoubleQuote]",
 StyleBox["Incrustada",
  FontWeight->"Bold"],
 "\[CloseCurlyDoubleQuote] abren la posibilidad de dise\[NTilde]ar \
evaluaciones ",
 StyleBox["Moodle",
  FontSlant->"Italic"],
 " utilizando para ello, todas las potencialidades de ",
 StyleBox["programaci\[OAcute]n",
  FontWeight->"Bold"],
 " y ",
 StyleBox["c\[AAcute]lculo",
  FontWeight->"Bold"],
 " de ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ". La riqueza computacional que esto brinda favorece la ",
 StyleBox["optimizaci\[OAcute]n",
  FontWeight->"Bold"],
 " del tiempo invertido por un educador, adem\[AAcute]s de que contribuye con \
la calidad de las pruebas ",
 StyleBox["online",
  FontSlant->"Italic"],
 " al poder recurrir al uso de ",
 StyleBox["ejercicios pseudoaleatorios\n",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 "\n",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsnQl8FOX9h4NndhLAs2pV8KaNbAKNQHCDUXtR7WlLa6u1tlZtbdW2XiRR
[encoded data, 55500 characters]
AAAAAAAAAAAAAAAAADAS+X8o5CMY
     "], {{0, 171.4330613420828}, {415.7251737545508, 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->{167.99559999999997`, 167.99559999999997`},
     SmoothingQuality->"High"],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{179.15374518312242`, Automatic},
   ImageSizeRaw->{415.7251737545508, 171.4330613420828},
   PlotRange->{{0, 415.7251737545508}, {0, 171.4330613420828}}]], "Input",
  ExpressionUUID->"4d101523-35a1-4246-929c-efe36af11fee"],
 "\n",
 StyleBox[ButtonBox["enrique.vilchez.quesada@una.ac.cr",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["mailto:enrique.vilchez.quesada@una.ac.cr"], None},
  ButtonNote->"mailto:enrique.vilchez.quesada@una.ac.cr"],
  FontWeight->"Bold"]
}], "Text",
 CellChangeTimes->{{3.8962665297404103`*^9, 3.8962665502997885`*^9}, {
   3.8962665919277744`*^9, 3.8962665924312325`*^9}, {3.8962666399505396`*^9, 
   3.896266642098751*^9}, 3.8962667074504194`*^9, {3.896266820616177*^9, 
   3.896266820616177*^9}, {3.89626694634678*^9, 3.8962670120935483`*^9}, {
   3.896267058885557*^9, 3.8962670606205077`*^9}, {3.89643441277971*^9, 
   3.8964344145623274`*^9}, 3.89643448598851*^9, {3.8964380795256495`*^9, 
   3.8964380916941147`*^9}},
 TextAlignment->Center,
 FontColor->GrayLevel[
  0],ExpressionUUID->"5236b710-2d5d-44c6-a465-8d22570e31df"]
}, Open  ]]
}, Open  ]]
},
ScreenStyleEnvironment->"Slideshow Working",
WindowSize->{812.5714285714286, 384.85714285714283`},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
TaggingRules->{
 "PresenterSettings" -> {
   "ShowNavigationBar" -> True, "SlideBreakStyles" -> {}, "ShowSlideBreaks" -> 
    True, "Theme" -> {
     "ThemeName" -> "Facet", "FontSetName" -> "Facet", "ColorSetName" -> 
      "Facet"}, "WindowSize" -> {812.5714285714286, 384.85714285714283`}, 
    "WindowMargins" -> 0, 
    "UserModifications" -> {{"Text", FontWeight -> "Bold"}}}, "TryRealOnly" -> 
  False},
FrontEndVersion->"13.2 para Microsoft Windows (64-bit) (January 30, 2023)",
StyleDefinitions->FrontEnd`FileName[{"PresenterTools"}, "Facet.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"b167f70b-70aa-4fca-8999-cc4482d63fbd"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "SlideShowHeader"->{
  Cell[580, 22, 136, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"dea113d0-6ec9-43d3-b2f8-954b848b629b",
   CellTags->"SlideShowHeader"],
  Cell[11599112, 190119, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"5a7782e8-7796-494f-a2c8-322e3234558a",
   CellTags->"SlideShowHeader"],
  Cell[11671057, 191386, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"5cfedcf8-e32a-4147-a356-772121beed88",
   CellTags->"SlideShowHeader"],
  Cell[11750893, 192721, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"e284af07-a6e1-4838-b25e-f3b3622bc435",
   CellTags->"SlideShowHeader"],
  Cell[12909573, 211750, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"89829a09-95f7-4e42-a5a4-f2e5480e767f",
   CellTags->"SlideShowHeader"],
  Cell[13039494, 213901, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"0e8fd470-76a9-4d7e-a45e-46e3725e9894",
   CellTags->"SlideShowHeader"],
  Cell[13125975, 215350, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"f964ce08-92c0-42ee-82e3-597a7e8492a3",
   CellTags->"SlideShowHeader"],
  Cell[13127862, 215421, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"23ea103c-e8e5-4dac-8d33-752b462614a9",
   CellTags->"SlideShowHeader"],
  Cell[14156369, 232304, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"a5a8a182-0b69-4c20-af38-3c29679b3609",
   CellTags->"SlideShowHeader"],
  Cell[14300211, 234680, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"f33cacff-98fc-4b05-9227-c3ef81f1a787",
   CellTags->"SlideShowHeader"],
  Cell[14303908, 234771, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"dddbc5e4-ccb2-46cc-addb-5e9e845c0830",
   CellTags->"SlideShowHeader"],
  Cell[14532353, 238535, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"6dbe8941-99b7-46dd-9e9d-ecb73f1bce53",
   CellTags->"SlideShowHeader"],
  Cell[14537404, 238682, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"bd27b21d-15b1-41c6-9f2b-bdcde0a512bf",
   CellTags->"SlideShowHeader"],
  Cell[14617843, 240020, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"9d39c15c-2341-4c3b-8022-2de8502251ce",
   CellTags->"SlideShowHeader"],
  Cell[14629204, 240325, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"9320bfe3-788f-4791-bc0b-cd53000ca4ff",
   CellTags->"SlideShowHeader"],
  Cell[14901007, 244800, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"2bcdd4ec-14a9-4df6-91c3-2aaea1982a6b",
   CellTags->"SlideShowHeader"],
  Cell[14910279, 245037, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"0cd5c0f5-f68f-4903-bf01-2d920296c865",
   CellTags->"SlideShowHeader"],
  Cell[15091667, 248034, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"02860fb1-934e-4531-b4ad-749c42dd15f2",
   CellTags->"SlideShowHeader"],
  Cell[15098387, 248211, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"c7f1d89d-f8b7-45d6-ad79-f47f8712497b",
   CellTags->"SlideShowHeader"],
  Cell[15280172, 251209, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"32bb0ca9-13e3-4bde-b8fe-114a5a98acd3",
   CellTags->"SlideShowHeader"],
  Cell[15286987, 251380, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"99ca34aa-bf5a-492a-904d-69da6a232d1c",
   CellTags->"SlideShowHeader"],
  Cell[15454553, 254149, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"98ea188b-982f-4a2a-89f6-e526ddb2e1e4",
   CellTags->"SlideShowHeader"],
  Cell[15465233, 254411, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"c5d5c1cf-6dbf-494e-b595-031aff139249",
   CellTags->"SlideShowHeader"],
  Cell[15552208, 255858, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"b565ca91-89cb-44cc-be2e-aae46ad42778",
   CellTags->"SlideShowHeader"],
  Cell[15557393, 255990, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"5fbd84bd-73b4-4668-9cf7-be1ecee7d7c0",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 15617505, 257014}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 136, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"dea113d0-6ec9-43d3-b2f8-954b848b629b",
 CellTags->"SlideShowHeader"],
Cell[719, 26, 182, 5, 315, "Title",ExpressionUUID->"98e747ae-1a25-459e-ad87-0f69611a9677"],
Cell[904, 33, 11598171, 190081, 470, "Subtitle",ExpressionUUID->"5ab95dc8-9a0e-415e-8c20-416060fae5ed"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11599112, 190119, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"5a7782e8-7796-494f-a2c8-322e3234558a",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[11599259, 190125, 161, 3, 67, "Section",ExpressionUUID->"d40c7be1-b262-4da1-93bf-d03e81d60239"],
Cell[11599423, 190130, 491, 13, 66, "Item",ExpressionUUID->"2d275173-f0a3-4876-866c-295268c2389f"],
Cell[11599917, 190145, 67609, 1113, 167, "Text",ExpressionUUID->"b26f5177-e502-4943-9cea-3d7b9b1a3d48"],
Cell[11667529, 191260, 473, 12, 66, "Item",ExpressionUUID->"863ca159-3b21-4bfb-97bc-1f25f67d168d"],
Cell[CellGroupData[{
Cell[11668027, 191276, 354, 10, 37, "Item",ExpressionUUID->"fb5b5953-402a-4321-8d4f-ae62edcff0db"],
Cell[11668384, 191288, 515, 17, 35, "Subitem",ExpressionUUID->"41a5a4db-42cb-40af-8656-befd308d095b"],
Cell[11668902, 191307, 370, 11, 35, "Subitem",ExpressionUUID->"87c1176a-ab8c-4dd1-829f-a544c3db963c"],
Cell[11669275, 191320, 402, 13, 35, "Subitem",ExpressionUUID->"ab2a4449-b0be-42d9-9c2e-6fa4a23f71a0"],
Cell[11669680, 191335, 476, 15, 35, "Subitem",ExpressionUUID->"ea7fea01-fe1d-437b-b4c9-5a88eec13abd"],
Cell[11670159, 191352, 365, 11, 35, "Subitem",ExpressionUUID->"85ea4729-753d-4518-927b-926d564538f1"],
Cell[11670527, 191365, 469, 14, 35, "Subitem",ExpressionUUID->"b4d6d466-f6e3-4688-8d4a-73c8e97988f3"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11671057, 191386, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"5cfedcf8-e32a-4147-a356-772121beed88",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[11671204, 191392, 161, 3, 67, "Section",ExpressionUUID->"c7e7a940-10a0-49d5-bef3-9e3508359808"],
Cell[11671368, 191397, 629, 20, 156, "Text",ExpressionUUID->"a24abe8d-8d97-467e-bd72-6b37cff34890"],
Cell[11672000, 191419, 78844, 1296, 155, "Text",ExpressionUUID->"1e5b191b-3351-40c8-867c-52d402293e21"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11750893, 192721, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"e284af07-a6e1-4838-b25e-f3b3622bc435",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[11751040, 192727, 135, 3, 67, "Section",ExpressionUUID->"5f02486b-6523-4a73-be8d-22b86bbb18aa"],
Cell[11751178, 192732, 568, 14, 66, "Text",ExpressionUUID->"4f63fd6b-c337-4f65-97c9-2c857c389587"],
Cell[11751749, 192748, 1027445, 16846, 343, "Text",ExpressionUUID->"227eefdc-9d90-47fa-a3ff-e52b39c61ee4"],
Cell[12779197, 209596, 489, 12, 36, "Text",ExpressionUUID->"6ec67f0a-efdd-448c-8c32-985535c96284"],
Cell[12779689, 209610, 129625, 2129, 314, "Text",ExpressionUUID->"f673208a-f35b-4063-8d75-ff9abba55042"],
Cell[12909317, 211741, 207, 3, 36, "Text",ExpressionUUID->"f7871c45-fdfe-49d0-a229-61a4a63adb52"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[12909573, 211750, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"89829a09-95f7-4e42-a5a4-f2e5480e767f",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[12909720, 211756, 166, 3, 67, "Section",ExpressionUUID->"38e51433-0012-4b57-9f1e-de850b72cae8"],
Cell[12909889, 211761, 482, 13, 126, "Text",ExpressionUUID->"9bd90f4f-7ae5-4248-a066-e70178b67695"],
Cell[12910374, 211776, 129071, 2119, 96, "Text",ExpressionUUID->"f88171d6-b0e8-4eaf-b4cf-5d9fcde10e48"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13039494, 213901, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"0e8fd470-76a9-4d7e-a45e-46e3725e9894",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[13039641, 213907, 181, 3, 67, "Section",ExpressionUUID->"94ba9f9e-8759-4f4a-b937-e7e4c9c88f50"],
Cell[13039825, 213912, 487, 15, 95, "Item",ExpressionUUID->"f5763b61-5335-4b28-aaea-7b8241dfbbbf"],
Cell[13040315, 213929, 553, 15, 95, "Item",ExpressionUUID->"ea7219f9-6da7-4fa1-8fb7-7ebb871aaad5"],
Cell[13040871, 213946, 85055, 1398, 84, "Text",ExpressionUUID->"32cf329a-17f3-436e-98f1-bd5e5ee6913c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13125975, 215350, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"f964ce08-92c0-42ee-82e3-597a7e8492a3",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[13126122, 215356, 221, 4, 104, "Section",ExpressionUUID->"96c3af78-dbdc-42b2-ae8b-2f58b9a09663"],
Cell[13126346, 215362, 648, 30, 66, "Text",ExpressionUUID->"11fceba9-2fa2-437f-bef1-040d8f26ec1d"],
Cell[13126997, 215394, 165, 3, 47, "Input",ExpressionUUID->"7e4a75ac-5b7e-4e79-8e57-37d5dadfcc02"],
Cell[13127165, 215399, 203, 3, 29, "Input",ExpressionUUID->"2a23fe51-489a-450f-956e-d4c062417595"],
Cell[13127371, 215404, 200, 3, 29, "Input",ExpressionUUID->"5e874c35-dcb8-4e15-a6a0-44be4e0b223d"],
Cell[13127574, 215409, 239, 6, 29, "Input",ExpressionUUID->"b2ffe414-0548-4bce-ad84-93024ef95511"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13127862, 215421, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"23ea103c-e8e5-4dac-8d33-752b462614a9",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[13128009, 215427, 208, 4, 67, "Section",ExpressionUUID->"7581e297-1382-4a51-8d1e-6fc4cab8ec74"],
Cell[13128220, 215433, 652, 17, 96, "Text",ExpressionUUID->"77fc1158-ad79-4829-a1d3-782596cdb5c0"],
Cell[13128875, 215452, 1027445, 16846, 343, "Text",ExpressionUUID->"a74d10ae-ec61-4f0a-95c2-804bacf9061d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[14156369, 232304, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"a5a8a182-0b69-4c20-af38-3c29679b3609",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[14156516, 232310, 130, 3, 67, "Section",ExpressionUUID->"53813b66-cda0-440a-973c-121d1c1b0bb6"],
Cell[14156649, 232315, 143513, 2359, 307, "Text",ExpressionUUID->"b3569477-9a1a-4c7d-8923-11a4d9f3a8bd"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[14300211, 234680, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"f33cacff-98fc-4b05-9227-c3ef81f1a787",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[14300358, 234686, 155, 3, 67, "Section",ExpressionUUID->"e01e0d98-b5ce-4cd9-8dcf-735e990940ed"],
Cell[14300516, 234691, 201, 3, 47, "Input",ExpressionUUID->"98e2a54c-8add-4d80-b8dc-48012b35cb87"],
Cell[14300720, 234696, 395, 7, 88, "Input",ExpressionUUID->"ad8c435e-b663-4ad8-88b9-75d2823ee2ee"],
Cell[14301118, 234705, 204, 3, 29, "Input",ExpressionUUID->"0b96fea1-9f9f-4a77-a2cb-0fc6b64f378e"],
Cell[14301325, 234710, 325, 6, 47, "Input",ExpressionUUID->"ddf76b18-d4fe-4c6f-9a7b-93992b04039a"],
Cell[14301653, 234718, 214, 3, 29, "Input",ExpressionUUID->"6e42ee2a-dba2-42be-8578-1169c00ba226"],
Cell[14301870, 234723, 184, 4, 29, "Input",ExpressionUUID->"cd7a0232-58b8-4b3c-a929-4eead99c35b0"],
Cell[14302057, 234729, 1534, 29, 242, "Input",ExpressionUUID->"fc14a080-a9a4-4f32-8fc6-2aea9904bd4a"],
Cell[14303594, 234760, 265, 5, 36, "Text",ExpressionUUID->"ef6716ab-bb02-4ea9-9e0d-1500e7e0c584"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[14303908, 234771, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"dddbc5e4-ccb2-46cc-addb-5e9e845c0830",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[14304055, 234777, 132, 3, 67, "Section",ExpressionUUID->"94e34f43-39d1-4b16-af7d-aa160ba882bd"],
Cell[14304190, 234782, 228114, 3747, 407, "Text",ExpressionUUID->"febb3b7d-6d80-4693-8b33-ed029459b0a3"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[14532353, 238535, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"6dbe8941-99b7-46dd-9e9d-ecb73f1bce53",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[14532500, 238541, 153, 3, 67, "Section",ExpressionUUID->"40203d51-83e8-4d1c-ada8-9c7bdb0de0db"],
Cell[14532656, 238546, 395, 7, 88, "Input",ExpressionUUID->"d8bc6c8a-8f3f-4066-9b5a-2ddee98d27c6"],
Cell[14533054, 238555, 2433, 66, 302, "Input",ExpressionUUID->"6ac5913f-9593-4139-be47-6d3d631736ec"],
Cell[14535490, 238623, 542, 12, 52, "Input",ExpressionUUID->"c4fa9a79-8b38-40e2-8eec-3c30c992efb4"],
Cell[14536035, 238637, 153, 4, 29, "Input",ExpressionUUID->"3363cca5-eee4-444d-90f2-1a5fec380208"],
Cell[14536191, 238643, 1164, 33, 200, "Input",ExpressionUUID->"c39500f7-d245-4f17-a21f-767abcf7c9b2"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[14537404, 238682, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"bd27b21d-15b1-41c6-9f2b-bdcde0a512bf",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[14537551, 238688, 132, 3, 67, "Section",ExpressionUUID->"420fea12-b466-42c5-b314-84f87836d13f"],
Cell[14537686, 238693, 80108, 1321, 190, "Text",ExpressionUUID->"47b4d256-5ae1-4d9d-ab0d-32a126c82d18"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[14617843, 240020, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"9d39c15c-2341-4c3b-8022-2de8502251ce",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[14617990, 240026, 153, 3, 67, "Section",ExpressionUUID->"3725c5e4-9879-4578-bfbf-09dc4bbb8114"],
Cell[14618146, 240031, 395, 7, 88, "Input",ExpressionUUID->"856e42e8-6cb3-42fc-8c47-91a1571b043b"],
Cell[14618544, 240040, 7504, 193, 720, "Input",ExpressionUUID->"e5f22c11-84ed-4b4e-8b6d-cb155449fff2"],
Cell[14626051, 240235, 1187, 32, 175, "Input",ExpressionUUID->"6746b750-7609-44fd-a55d-cc4ad1a93cea"],
Cell[14627241, 240269, 1058, 26, 153, "Input",ExpressionUUID->"f626eb48-3007-4e59-9aaa-e6f39681d8b6"],
Cell[14628302, 240297, 214, 4, 36, "Text",ExpressionUUID->"ce2ba31b-7316-492c-8060-31d48c99070b"],
Cell[14628519, 240303, 636, 16, 69, "Input",ExpressionUUID->"5cc6d012-3c9a-4a14-bfd9-293fd134919e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[14629204, 240325, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"9320bfe3-788f-4791-bc0b-cd53000ca4ff",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[14629351, 240331, 132, 3, 67, "Section",ExpressionUUID->"85afc50e-450c-4029-bac3-44ffc6bbbbce"],
Cell[14629486, 240336, 271472, 4458, 476, "Text",ExpressionUUID->"38dbf867-cd51-447b-98df-67c29035ac51"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[14901007, 244800, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"2bcdd4ec-14a9-4df6-91c3-2aaea1982a6b",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[14901154, 244806, 155, 3, 67, "Section",ExpressionUUID->"37f530ee-e70a-4609-b788-138d1554724b"],
Cell[14901312, 244811, 395, 7, 88, "Input",ExpressionUUID->"b03269ed-b982-44f8-8a0f-eb10a0f24202"],
Cell[14901710, 244820, 1083, 21, 94, "Input",ExpressionUUID->"f45e0d54-65a7-4102-a245-3fdaecfca115"],
Cell[14902796, 244843, 182, 4, 29, "Input",ExpressionUUID->"c98e463a-7473-4ddf-acca-4cb87fc03dd6"],
Cell[14902981, 244849, 7249, 182, 719, "Input",ExpressionUUID->"df63d182-837a-4211-aad0-e0ac447436fe"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[14910279, 245037, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"0cd5c0f5-f68f-4903-bf01-2d920296c865",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[14910426, 245043, 130, 3, 67, "Section",ExpressionUUID->"959bcf20-0e1e-4925-9340-616d594ef774"],
Cell[14910559, 245048, 181059, 2980, 399, "Text",ExpressionUUID->"fd7e9025-49f3-4e35-a522-448dfc1bd7c2"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15091667, 248034, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"02860fb1-934e-4531-b4ad-749c42dd15f2",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[15091814, 248040, 155, 3, 67, "Section",ExpressionUUID->"77f1aaa7-de92-47c1-be8b-63ec2330fd6d"],
Cell[15091972, 248045, 395, 7, 88, "Input",ExpressionUUID->"1898dd03-e97e-4ca8-bbaa-4397cdba4b91"],
Cell[15092370, 248054, 993, 25, 153, "Input",ExpressionUUID->"a573aa8b-6619-4508-840e-f28f8ec28078"],
Cell[15093366, 248081, 185, 4, 29, "Input",ExpressionUUID->"dbc59c3f-0085-4188-a45f-9d469ef50bb6"],
Cell[15093554, 248087, 3401, 81, 554, "Input",ExpressionUUID->"eacc4ffc-cc50-4ac7-8e53-69ddb6c653c1"],
Cell[15096958, 248170, 214, 4, 36, "Text",ExpressionUUID->"6306bccf-4af1-40f0-b3c5-0f0ca2fbe7ef"],
Cell[15097175, 248176, 1163, 29, 136, "Input",ExpressionUUID->"584fa012-d9ef-4968-8f24-1ce9fb5baf26"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15098387, 248211, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"c7f1d89d-f8b7-45d6-ad79-f47f8712497b",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[15098534, 248217, 127, 2, 67, "Section",ExpressionUUID->"8d8aa854-9019-457d-9459-0cc39061320f"],
Cell[15098664, 248221, 181459, 2982, 426, "Text",ExpressionUUID->"feeef28f-d61e-40d4-824d-801338996c00"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15280172, 251209, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"32bb0ca9-13e3-4bde-b8fe-114a5a98acd3",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[15280319, 251215, 155, 3, 67, "Section",ExpressionUUID->"37c31b1c-35b0-4972-b38c-e5ecf44d303e"],
Cell[15280477, 251220, 395, 7, 88, "Input",ExpressionUUID->"7ebe892f-7ea8-4502-994b-1d345fac8d11"],
Cell[15280875, 251229, 1282, 31, 195, "Input",ExpressionUUID->"b98d3890-a888-4325-997c-d15a360dda87"],
Cell[15282160, 251262, 4778, 112, 674, "Input",ExpressionUUID->"d93e942b-2322-4b92-9457-31180717821b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15286987, 251380, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"99ca34aa-bf5a-492a-904d-69da6a232d1c",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[15287134, 251386, 132, 3, 67, "Section",ExpressionUUID->"e611f1d8-da5b-438f-b671-d16442aef58f"],
Cell[15287269, 251391, 167235, 2752, 570, "Text",ExpressionUUID->"d4304531-75ca-4cb7-a8e0-0b5a6138ca12"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15454553, 254149, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"98ea188b-982f-4a2a-89f6-e526ddb2e1e4",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[15454700, 254155, 153, 3, 67, "Section",ExpressionUUID->"c1acaf34-2726-4465-a942-2940f65459fd"],
Cell[15454856, 254160, 395, 7, 88, "Input",ExpressionUUID->"525a11c8-9f36-4b97-a676-8d00d83c5353"],
Cell[15455254, 254169, 523, 10, 69, "Input",ExpressionUUID->"97f30613-2e7f-4f8a-9054-4884a0ad3da1"],
Cell[15455780, 254181, 1953, 47, 156, "Input",ExpressionUUID->"66a22458-b663-487f-ad81-f91d5c5ca455"],
Cell[15457736, 254230, 183, 4, 30, "Input",ExpressionUUID->"792a6213-832a-4679-bb78-b47291248c2e"],
Cell[15457922, 254236, 4847, 108, 484, "Input",ExpressionUUID->"2a7fc5b7-36ac-4da3-a4bd-e06d7fec62ba"],
Cell[15462772, 254346, 214, 4, 36, "Text",ExpressionUUID->"9a6f6d18-2ad5-4ba4-957c-2722eb537773"],
Cell[15462989, 254352, 686, 18, 47, "Input",ExpressionUUID->"d8c94e4e-5aa2-497d-b785-4fb3a8628b1c"],
Cell[15463678, 254372, 1506, 33, 120, "Input",ExpressionUUID->"95ce2f7c-c1f4-485f-99c4-67aeaa816d71"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15465233, 254411, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"c5d5c1cf-6dbf-494e-b595-031aff139249",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[15465380, 254417, 132, 3, 67, "Section",ExpressionUUID->"73cb84e7-10bd-4b0d-b64f-3b676c2932cd"],
Cell[15465515, 254422, 86644, 1430, 506, "Text",ExpressionUUID->"722ae697-290c-44d1-aa60-dcc2cf28856e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15552208, 255858, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"b565ca91-89cb-44cc-be2e-aae46ad42778",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[15552355, 255864, 155, 3, 67, "Section",ExpressionUUID->"07a6a34c-e54c-453d-9686-93ad4efc38a4"],
Cell[15552513, 255869, 395, 7, 88, "Input",ExpressionUUID->"a6f8130c-5659-4a35-b22e-077a0ad3b2f4"],
Cell[15552911, 255878, 1461, 37, 181, "Input",ExpressionUUID->"51ea22e9-509f-4cd3-bbc4-4d02352e957e"],
Cell[15554375, 255917, 2969, 67, 329, "Input",ExpressionUUID->"5c3892bd-1073-406f-9e96-0cfbd8cec35d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15557393, 255990, 122, 2, 61, "SlideShowNavigationBar",ExpressionUUID->"5fbd84bd-73b4-4668-9cf7-be1ecee7d7c0",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[15557540, 255996, 158, 3, 67, "Section",ExpressionUUID->"8af92c29-651a-44f4-9998-604a134f1ae1"],
Cell[15557701, 256001, 58863, 987, 320, "Text",ExpressionUUID->"5236b710-2d5d-44c6-a465-8d22570e31df"]
}, Open  ]]
}, Open  ]]
}
]
*)

