(* 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[    178677,       3931]
NotebookOptionsPosition[    176697,       3889]
NotebookOutlinePosition[    177129,       3905]
CellTagsIndexPosition[    177086,       3902]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Quiet", "[", 
  RowBox[{"<<", "Incrustada`"}], "]"}]], "Input",
 CellChangeTimes->{{3.887104159885995*^9, 3.8871041633108573`*^9}, {
  3.887107135932592*^9, 3.8871071444343324`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"83819aa0-33b3-49c7-8290-d8a0d9126814"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Incrustada"}]], "Input",
 CellChangeTimes->{{3.887105069262397*^9, 3.8871050744334235`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"8d11783c-76c5-4852-a759-757f665d81e5"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"Brinda una descripci\[OAcute]n r\[AAcute]pida del \
paquete.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[
           TagBox[GridBox[{
              {
               StyleBox[
                TagBox[
                 TooltipBox[
                  StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
                   StripOnInput->False],
                  "\"Definitions\"",
                  TooltipStyle->"TextStyling"],
                 Annotation[#, "Definitions", "Tooltip"]& ], "DialogStyle",
                StripOnInput->False]},
              {
               TemplateBox[{"\"\[ThinSpace]\"", 
                 GridBox[{{
                    RowBox[{
                    RowBox[{"Incrustada", "[", "]"}], ":=", 
                    
                    RowBox[{
                    "Print", "[", 
                    "\"Incrustada es un paquete que permite generar \
respuestas tipo \[LeftGuillemet]incrustada\[RightGuillemet] dentro de un \
cuestionario en un aula virtual de Moodle. \
\\!\\(\\*\\nStyleBox[\\\"Es\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\\
nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"importante\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"se\[NTilde]alar\\\",\\nFontWeight->\\\"\
Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\
\\(\\*\\nStyleBox[\\\"al\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\\
nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"usuario\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"que\\\",\\nFontWeight->\\\"Bold\\\"]\\)\
\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"la\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"salida\\\",\\nFontWeight->\\\"Bold\\\"]\
\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"de\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"cada\\\",\\nFontWeight->\\\"Bold\\\"]\\\
)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"invocaci\[OAcute]\
n\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"en\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"los\\\",\\nFontWeight->\\\"Bold\\\"]\\)\
\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"comandos\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"se\\\",\\nFontWeight->\\\"Bold\\\"]\\)\
\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"copia\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"directamente\\\",\\nFontWeight->\\\"\
Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\
\\(\\*\\nStyleBox[\\\"en\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\\
nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"la\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"memoria\\\",\\nFontWeight->\\\"Bold\\\"\
]\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"temporal\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"sin\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"embargo\\\",\\nFontWeight->\\\"Bold\\\"\
]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\\
nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"si\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"al\\\",\\nFontWeight->\\\"Bold\\\"]\\)\
\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"pegar\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"en\\\",\\nFontWeight->\\\"Bold\\\"]\\)\
\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"Moodle\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"no\\\",\\nFontWeight->\\\"Bold\\\"]\\)\
\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"se\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"generan\\\",\\nFontWeight->\\\"Bold\\\"\
]\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"bien\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"las\\\",\\nFontWeight->\\\"Bold\\\"]\\)\
\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"opciones\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"de\\\",\\nFontWeight->\\\"Bold\\\"]\\)\
\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"respuesta\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"se\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"recomienda\\\",\\nFontWeight->\\\"Bold\
\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"dar\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"clic\\\",\\nFontWeight->\\\"Bold\\\"]\\\
)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"derecho\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"a\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\\
!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"la\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"celda\\\",\\nFontWeight->\\\"Bold\\\"]\
\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"de\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"salida\\\",\\nFontWeight->\\\"Bold\\\"]\
\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"y\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"copiar\\\",\\nFontWeight->\\\"Bold\\\"]\
\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"sin\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"formato\\\",\\nFontWeight->\\\"Bold\\\"\
]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\\
nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"para\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"luego\\\",\\nFontWeight->\\\"Bold\\\"]\
\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"pegar\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"en\\\",\\nFontWeight->\\\"Bold\\\"]\\)\
\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"Moodle\\\",\\\
nFontWeight->\\\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\".\\\",\\nFontWeight->\\\
\"Bold\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontWeight->\\\"Bold\\\"]\\)Autores: Enrique V\[IAcute]lchez Quesada \
y Juan F\[EAcute]lix \[CapitalAAcute]vila Herrera.\"", "]"}]}]}, {" "}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                "RowDefault"]}
             },
             DefaultBaseStyle->"Column",
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Column"],
           FrameMargins->{{6, 0}, {3, 6}}], "\<\"\"\>"},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Attributes\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Attributes\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Attributes", "Tooltip"]& ], 
                   RowBox[{"{", "Protected", "}"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"Incrustada`Incrustada\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"Brinda una descripci\[OAcute]n r\[AAcute]pida del \
paquete.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{10., {3., 7.}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               ImageSizeCache->{10., {3., 7.}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "Brinda una descripci\[OAcute]n r\[AAcute]pida del paquete.", 
    "Documentation" -> None, "OwnValues" -> None, "UpValues" -> None, 
    "DownValues" -> 
    Information`InformationValueForm[
     DownValues, Incrustada`Incrustada, {
      Incrustada`Incrustada[] :> 
       Print["Incrustada es un paquete que permite generar respuestas tipo \
\[LeftGuillemet]incrustada\[RightGuillemet] dentro de un cuestionario en un \
aula virtual de Moodle. \!\(\*\nStyleBox[\"Es\",\nFontWeight->\"Bold\"]\)\!\(\
\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"importante\",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\"se\[NTilde]alar\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \
\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"al\",\nFontWeight->\"Bold\"]\)\
\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"usuario\",\
\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\
\*\nStyleBox[\"que\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"la\",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\"salida\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"de\",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\"cada\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"invocaci\[OAcute]n\",\nFontWeight->\
\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\n\
StyleBox[\"en\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"los\",\nFontWeight->\"Bold\"]\)\!\(\
\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"comandos\",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\"se\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"copia\",\nFontWeight->\"Bold\"]\)\!\
\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"directamente\
\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"en\",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\"la\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"memoria\",\nFontWeight->\"Bold\"]\)\
\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\n\
StyleBox[\"temporal\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\",\",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\"sin\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"embargo\",\nFontWeight->\"Bold\"]\)\
\!\(\*\nStyleBox[\",\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"si\",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\"al\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"pegar\",\nFontWeight->\"Bold\"]\)\!\
\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"en\",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\"Moodle\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"no\",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\"se\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"generan\",\nFontWeight->\"Bold\"]\)\
\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"bien\",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\"las\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"opciones\",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\"de\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"respuesta\",\nFontWeight->\"Bold\"]\
\)\!\(\*\nStyleBox[\",\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"se\",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\"recomienda\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"dar\",\nFontWeight->\"Bold\"]\)\!\(\
\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"clic\",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\"derecho\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"a\",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"la\",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\"celda\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"de\",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\"salida\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"y\",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"copiar\",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\"sin\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"formato\",\nFontWeight->\"Bold\"]\)\
\!\(\*\nStyleBox[\",\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"para\",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\"luego\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"pegar\",\nFontWeight->\"Bold\"]\)\!\
\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\"en\",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\nFontWeight->\"Bold\"]\)\!\(\*\
\nStyleBox[\"Moodle\",\nFontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\".\",\n\
FontWeight->\"Bold\"]\)\!\(\*\nStyleBox[\" \",\n\
FontWeight->\"Bold\"]\)Autores: Enrique V\[IAcute]lchez Quesada y Juan F\
\[EAcute]lix \[CapitalAAcute]vila Herrera."]}], "SubValues" -> None, 
    "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, 
    "Options" -> None, "Attributes" -> {Protected}, "FullName" -> 
    "Incrustada`Incrustada"|>, False]]], "Output",
 CellChangeTimes->{3.887105075247651*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"9135fd1f-a631-4a80-bf28-488dca89f176"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Desplegada"}]], "Input",
 CellChangeTimes->{{3.8871052897784634`*^9, 3.887105307650044*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"a067e8c2-77a0-4cbc-92f1-fe932d79a092"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"Genera el c\[OAcute]digo correspondiente a una \
respuesta desplegada, no acepta opciones que contengan sub\[IAcute]ndices. \
Sintaxis: Desplegada[Correctas, Incorrectas], o bien, Desplegada[Correctas, \
Incorrectas, evaluar->True], con \[LeftGuillemet]Correctas\[RightGuillemet] \
una lista con las opciones correctas e \[LeftGuillemet]Incorrectas\
\[RightGuillemet] otra, con los distractores de la pregunta. Adem\[AAcute]s, \
\[LeftGuillemet]evaluar->True\[RightGuillemet] simplifica valores dentro de \
\[LeftGuillemet]Correctas\[RightGuillemet] e \[LeftGuillemet]Incorrectas\
\[RightGuillemet].\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[
           TagBox[GridBox[{
              {
               StyleBox[
                TagBox[
                 TooltipBox[
                  StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
                   StripOnInput->False],
                  "\"Definitions\"",
                  TooltipStyle->"TextStyling"],
                 Annotation[#, "Definitions", "Tooltip"]& ], "DialogStyle",
                StripOnInput->False]},
              {
               TemplateBox[{"\"\[ThinSpace]\"", 
                 GridBox[{{
                    RowBox[{
                    RowBox[{"Desplegada", "[", 
                    
                    RowBox[{
                    "Incrustada`Private`Correctas_", ",", 
                    "Incrustada`Private`Incorrectas_", ",", 
                    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"IntegerQ", "[", 
                    RowBox[{"OptionValue", "[", "bandera", "]"}], "]"}], "&&", 
                    RowBox[{"NumericQ", "[", 
                    RowBox[{"OptionValue", "[", "precision", "]"}], "]"}], 
                    "&&", 
                    RowBox[{"BooleanQ", "[", 
                    RowBox[{"OptionValue", "[", "evaluar", "]"}], "]"}]}], 
                    ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"OptionValue", "[", "bandera", "]"}], "\[Equal]", 
                    "0"}], "||", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "bandera", "]"}], "\[Equal]", 
                    "1"}], "||", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "bandera", "]"}], "\[Equal]", 
                    "2"}], "||", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "bandera", "]"}], "\[Equal]", 
                    "3"}]}], ",", 
                    RowBox[{"Module", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`hilera", "=", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"OptionValue", "[", "bandera", "]"}], "\[Equal]", 
                    "0"}], ",", "\"1:MCS:\"", ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"OptionValue", "[", "bandera", "]"}], "\[Equal]", 
                    "1"}], ",", "\"1:SA:\"", ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"OptionValue", "[", "bandera", "]"}], "\[Equal]", 
                    "2"}], ",", "\"1:SAC:\"", ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"OptionValue", "[", "bandera", "]"}], "\[Equal]", 
                    "3"}], ",", "\"1:NUMERICAL:\""}], "]"}]}], "]"}]}], 
                    "]"}]}], "]"}]}], ",", "Incrustada`Private`i", ",", 
                    "Incrustada`Private`VCorrectas", ",", 
                    "Incrustada`Private`VIncorrectas"}], "}"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    
                    RowBox[{"ListQ", "[", "Incrustada`Private`Correctas", 
                    "]"}], "&&", 
                    
                    RowBox[{"ListQ", "[", "Incrustada`Private`Incorrectas", 
                    "]"}], "&&", 
                    RowBox[{"ListQ", "[", 
                    
                    RowBox[{"Incrustada`Private`ConjuntoString", "[", 
                    "Incrustada`Private`Correctas", "]"}], "]"}], "&&", 
                    RowBox[{"ListQ", "[", 
                    
                    RowBox[{"Incrustada`Private`ConjuntoString", "[", 
                    "Incrustada`Private`Incorrectas", "]"}], "]"}]}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`Correctas", "\[NotEqual]", 
                    RowBox[{"{", "}"}]}], "&&", 
                    RowBox[{"Incrustada`Private`Incorrectas", "\[NotEqual]", 
                    RowBox[{"{", "}"}]}]}], ")"}], "||", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`Correctas", "\[NotEqual]", 
                    RowBox[{"{", "}"}]}], "&&", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"OptionValue", "[", "bandera", "]"}], "\[Equal]", 
                    "1"}], "||", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "bandera", "]"}], "\[Equal]", 
                    "2"}], "||", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "bandera", "]"}], "\[Equal]", 
                    "3"}]}], ")"}]}], ")"}]}], ",", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`VCorrectas", "=", 
                    RowBox[{"Incrustada`Private`ConjuntoString", "[", 
                    RowBox[{"Incrustada`Private`Correctas", ",", 
                    RowBox[{"bandera", "\[Rule]", 
                    RowBox[{"OptionValue", "[", "bandera", "]"}]}], ",", 
                    RowBox[{"evaluar", "\[Rule]", 
                    RowBox[{"OptionValue", "[", "evaluar", "]"}]}]}], "]"}]}],
                     ";", 
                    RowBox[{"Incrustada`Private`VIncorrectas", "=", 
                    RowBox[{"Incrustada`Private`ConjuntoString", "[", 
                    RowBox[{"Incrustada`Private`Incorrectas", ",", 
                    RowBox[{"bandera", "\[Rule]", 
                    RowBox[{"OptionValue", "[", "bandera", "]"}]}], ",", 
                    RowBox[{"evaluar", "\[Rule]", 
                    RowBox[{"OptionValue", "[", "evaluar", "]"}]}]}], "]"}]}],
                     ";", 
                    RowBox[{"Incrustada`Private`hilera", "=", 
                    RowBox[{"StringReplace", "[", 
                    RowBox[{
                    RowBox[{"\"{\"", "<>", 
                    RowBox[{"StringReplace", "[", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`hilera", "<>", 
                    RowBox[{"Join", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"\"~=\"", "<>", "Incrustada`Private`i", "<>", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"OptionValue", "[", "bandera", "]"}], "\[Equal]", 
                    "3"}], ",", 
                    RowBox[{"\":\"", "<>", 
                    RowBox[{"ToString", "[", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "precision", "]"}], ",", 
                    "InputForm"}], "]"}], "<>", "\"#Excelente\""}], ",", 
                    "\"#Excelente\""}], "]"}]}], ",", 
                    RowBox[{"{", 
                    
                    RowBox[{"Incrustada`Private`i", ",", 
                    "Incrustada`Private`VCorrectas"}], "}"}]}], "]"}], ",", 
                    RowBox[{"Table", "[", 
                    RowBox[{
                    
                    RowBox[{"\"~\"", "<>", "Incrustada`Private`i", "<>", 
                    "\"#\""}], ",", 
                    RowBox[{"{", 
                    
                    RowBox[{"Incrustada`Private`i", ",", 
                    "Incrustada`Private`VIncorrectas"}], "}"}]}], "]"}]}], 
                    "]"}]}], ",", 
                    RowBox[{"\"}\"", "\[Rule]", "\"\\\\}\""}]}], "]"}], "<>", 
                    "\"}\""}], ",", 
                    RowBox[{"\"==\"", "\[Rule]", "\"=\""}]}], "]"}]}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"StringContainsQ", "[", 
                    
                    RowBox[{"Incrustada`Private`hilera", ",", 
                    "\"Subscript\""}], "]"}]}], ",", 
                    RowBox[{
                    
                    RowBox[{"CopyToClipboard", "[", 
                    "Incrustada`Private`hilera", "]"}], ";", 
                    "Incrustada`Private`hilera"}]}], "]"}]}]}], "]"}]}], 
                    "]"}]}], "]"}]}], "]"}]}], "]"}]}]}, {" "}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                "RowDefault"]}
             },
             DefaultBaseStyle->"Column",
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Column"],
           FrameMargins->{{6, 0}, {3, 6}}], "\<\"\"\>"},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Options\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Options\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Options", "Tooltip"]& ], 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"bandera", "\[Rule]", "0"}], ",", 
                    RowBox[{"precision", "\[Rule]", "0"}], ",", 
                    RowBox[{"evaluar", "\[Rule]", "False"}]}], "}"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Attributes\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Attributes\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Attributes", "Tooltip"]& ], 
                   RowBox[{"{", 
                    RowBox[{"HoldAll", ",", "Protected"}], "}"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"Incrustada`Desplegada\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"Genera el c\[OAcute]digo correspondiente a una \
respuesta desplegada, no acepta opciones que contengan sub\[IAcute]ndices. \
Sintaxis: Desplegada[Correctas, Incorrectas], o bien, Desplegada[Correctas, \
Incorrectas, evaluar->True], con \[LeftGuillemet]Correctas\[RightGuillemet] \
una lista con las opciones correctas e \[LeftGuillemet]Incorrectas\
\[RightGuillemet] otra, con los distractores de la pregunta. Adem\[AAcute]s, \
\[LeftGuillemet]evaluar->True\[RightGuillemet] simplifica valores dentro de \
\[LeftGuillemet]Correctas\[RightGuillemet] e \[LeftGuillemet]Incorrectas\
\[RightGuillemet].\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{10., {3., 7.}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               ImageSizeCache->{10., {3., 7.}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "Genera el c\[OAcute]digo correspondiente a una respuesta desplegada, no \
acepta opciones que contengan sub\[IAcute]ndices. Sintaxis: \
Desplegada[Correctas, Incorrectas], o bien, Desplegada[Correctas, \
Incorrectas, evaluar->True], con \[LeftGuillemet]Correctas\[RightGuillemet] \
una lista con las opciones correctas e \[LeftGuillemet]Incorrectas\
\[RightGuillemet] otra, con los distractores de la pregunta. Adem\[AAcute]s, \
\[LeftGuillemet]evaluar->True\[RightGuillemet] simplifica valores dentro de \
\[LeftGuillemet]Correctas\[RightGuillemet] e \[LeftGuillemet]Incorrectas\
\[RightGuillemet].", "Documentation" -> None, "OwnValues" -> None, "UpValues" -> 
    None, "DownValues" -> 
    Information`InformationValueForm[
     DownValues, Incrustada`Desplegada, {Incrustada`Desplegada[
         Pattern[Incrustada`Private`Correctas, 
          Blank[]], 
         Pattern[Incrustada`Private`Incorrectas, 
          Blank[]], 
         OptionsPattern[]] :> If[
         And[
          IntegerQ[
           OptionValue[Incrustada`bandera]], 
          NumericQ[
           OptionValue[Incrustada`precision]], 
          BooleanQ[
           OptionValue[Incrustada`evaluar]]], 
         If[
          Or[
          OptionValue[Incrustada`bandera] == 0, 
           OptionValue[Incrustada`bandera] == 1, 
           OptionValue[Incrustada`bandera] == 2, 
           OptionValue[Incrustada`bandera] == 3], 
          
          Module[{Incrustada`Private`hilera = 
            If[OptionValue[Incrustada`bandera] == 0, "1:MCS:", 
              If[OptionValue[Incrustada`bandera] == 1, "1:SA:", 
               If[OptionValue[Incrustada`bandera] == 2, "1:SAC:", 
                If[OptionValue[Incrustada`bandera] == 3, "1:NUMERICAL:"]]]], 
            Incrustada`Private`i, Incrustada`Private`VCorrectas, 
            Incrustada`Private`VIncorrectas}, 
           If[
            And[
             ListQ[Incrustada`Private`Correctas], 
             ListQ[Incrustada`Private`Incorrectas], 
             ListQ[
              Incrustada`Private`ConjuntoString[
              Incrustada`Private`Correctas]], 
             ListQ[
              Incrustada`Private`ConjuntoString[
              Incrustada`Private`Incorrectas]]], 
            If[
             Or[
              And[
              Incrustada`Private`Correctas != {}, 
               Incrustada`Private`Incorrectas != {}], 
              And[Incrustada`Private`Correctas != {}, 
               Or[
               OptionValue[Incrustada`bandera] == 1, 
                OptionValue[Incrustada`bandera] == 2, 
                OptionValue[Incrustada`bandera] == 3]]], 
             Incrustada`Private`VCorrectas = 
              Incrustada`Private`ConjuntoString[
               Incrustada`Private`Correctas, Incrustada`bandera -> 
                OptionValue[Incrustada`bandera], Incrustada`evaluar -> 
                OptionValue[Incrustada`evaluar]]; 
             Incrustada`Private`VIncorrectas = 
              Incrustada`Private`ConjuntoString[
               Incrustada`Private`Incorrectas, Incrustada`bandera -> 
                OptionValue[Incrustada`bandera], Incrustada`evaluar -> 
                OptionValue[Incrustada`evaluar]]; 
             Incrustada`Private`hilera = 
              StringReplace[
               "{" <> StringReplace[Incrustada`Private`hilera <> Join[
                    Table[
                    "~=" <> Incrustada`Private`i <> 
                    If[OptionValue[Incrustada`bandera] == 3, ":" <> ToString[
                    OptionValue[Incrustada`precision], InputForm] <> 
                    "#Excelente", "#Excelente"], {
                    Incrustada`Private`i, Incrustada`Private`VCorrectas}], 
                    Table[
                    "~" <> Incrustada`Private`i <> "#", {
                    Incrustada`Private`i, Incrustada`Private`VIncorrectas}]], 
                  "}" -> "\\}"] <> "}", "==" -> "="]; If[
               Not[
                StringContainsQ[Incrustada`Private`hilera, "Subscript"]], 
               CopyToClipboard[Incrustada`Private`hilera]; 
               Incrustada`Private`hilera]]]]]]}], "SubValues" -> None, 
    "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, 
    "Options" -> {
     Incrustada`bandera -> 0, Incrustada`precision -> 0, Incrustada`evaluar -> 
      False}, "Attributes" -> {HoldAll, Protected}, "FullName" -> 
    "Incrustada`Desplegada"|>, False]]], "Output",
 CellChangeTimes->{3.887105308649599*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"47e47b63-7bb5-4496-9dbc-1a4ee5808dd4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "FV"}]], "Input",
 CellChangeTimes->{{3.8871053139749517`*^9, 3.8871053171270857`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"b7fa261a-9448-4725-8cd5-08f5f27967ce"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"Genera el c\[OAcute]digo correspondiente a una \
respuesta de falso y verdadero. Sintaxis: FV[Valor], o bien, FV[Valor, \
texto->True], con \[LeftGuillemet]Valor=1\[RightGuillemet] si \
\[LeftGuillemet]Verdadero\[RightGuillemet] es la opci\[OAcute]n correcta, o \
bien, \[LeftGuillemet]Valor=0\[RightGuillemet] en caso contrario. Adem\
\[AAcute]s, \[LeftGuillemet]texto->True\[RightGuillemet] muestra las opciones \
como un string.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[
           TagBox[GridBox[{
              {
               StyleBox[
                TagBox[
                 TooltipBox[
                  StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
                   StripOnInput->False],
                  "\"Definitions\"",
                  TooltipStyle->"TextStyling"],
                 Annotation[#, "Definitions", "Tooltip"]& ], "DialogStyle",
                StripOnInput->False]},
              {
               TemplateBox[{"\"\[ThinSpace]\"", 
                 GridBox[{{
                    RowBox[{
                    RowBox[{"FV", "[", 
                    RowBox[{"Incrustada`Private`Valor_", ",", 
                    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"BooleanQ", "[", 
                    RowBox[{"OptionValue", "[", "texto", "]"}], "]"}], ",", 
                    RowBox[{"Module", "[", 
                    RowBox[{
                    RowBox[{"{", "}"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    
                    RowBox[{"IntegerQ", "[", "Incrustada`Private`Valor", 
                    "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`Valor", "\[Equal]", "1"}], 
                    ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "texto", "]"}], ",", 
                    RowBox[{"Desplegada", "[", 
                    RowBox[{
                    RowBox[{"{", "\"Verdadero\"", "}"}], ",", 
                    RowBox[{"{", "\"Falso\"", "}"}]}], "]"}], ",", 
                    RowBox[{"Desplegada", "[", 
                    RowBox[{
                    RowBox[{"{", "Verdadero", "}"}], ",", 
                    RowBox[{"{", "Falso", "}"}]}], "]"}]}], "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`Valor", "\[Equal]", "0"}], 
                    ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "texto", "]"}], ",", 
                    RowBox[{"Desplegada", "[", 
                    RowBox[{
                    RowBox[{"{", "\"Falso\"", "}"}], ",", 
                    RowBox[{"{", "\"Verdadero\"", "}"}]}], "]"}], ",", 
                    RowBox[{"Desplegada", "[", 
                    RowBox[{
                    RowBox[{"{", "Falso", "}"}], ",", 
                    RowBox[{"{", "Verdadero", "}"}]}], "]"}]}], "]"}]}], 
                    "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}]}, {" "}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                "RowDefault"]}
             },
             DefaultBaseStyle->"Column",
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Column"],
           FrameMargins->{{6, 0}, {3, 6}}], "\<\"\"\>"},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Options\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Options\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Options", "Tooltip"]& ], 
                   RowBox[{"texto", "\[Rule]", "False"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Attributes\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Attributes\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Attributes", "Tooltip"]& ], 
                   RowBox[{"{", "Protected", "}"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"Incrustada`FV\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"Genera el c\[OAcute]digo correspondiente a una \
respuesta de falso y verdadero. Sintaxis: FV[Valor], o bien, FV[Valor, \
texto->True], con \[LeftGuillemet]Valor=1\[RightGuillemet] si \
\[LeftGuillemet]Verdadero\[RightGuillemet] es la opci\[OAcute]n correcta, o \
bien, \[LeftGuillemet]Valor=0\[RightGuillemet] en caso contrario. Adem\
\[AAcute]s, \[LeftGuillemet]texto->True\[RightGuillemet] muestra las opciones \
como un string.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{10., {3., 7.}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               ImageSizeCache->{10., {3., 7.}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "Genera el c\[OAcute]digo correspondiente a una respuesta de falso y \
verdadero. Sintaxis: FV[Valor], o bien, FV[Valor, texto->True], con \
\[LeftGuillemet]Valor=1\[RightGuillemet] si \[LeftGuillemet]Verdadero\
\[RightGuillemet] es la opci\[OAcute]n correcta, o bien, \
\[LeftGuillemet]Valor=0\[RightGuillemet] en caso contrario. Adem\[AAcute]s, \
\[LeftGuillemet]texto->True\[RightGuillemet] muestra las opciones como un \
string.", "Documentation" -> None, "OwnValues" -> None, "UpValues" -> None, 
    "DownValues" -> 
    Information`InformationValueForm[DownValues, Incrustada`FV, {Incrustada`FV[
         Pattern[Incrustada`Private`Valor, 
          Blank[]], 
         OptionsPattern[]] :> If[
         BooleanQ[
          OptionValue[Incrustada`texto]], 
         Module[{}, 
          If[
           IntegerQ[Incrustada`Private`Valor], 
           If[Incrustada`Private`Valor == 1, 
            If[
             OptionValue[Incrustada`texto], 
             Incrustada`Desplegada[{"Verdadero"}, {"Falso"}], 
             
             Incrustada`Desplegada[{$CellContext`Verdadero}, \
{$CellContext`Falso}]], 
            If[Incrustada`Private`Valor == 0, 
             If[
              OptionValue[Incrustada`texto], 
              Incrustada`Desplegada[{"Falso"}, {"Verdadero"}], 
              
              Incrustada`Desplegada[{$CellContext`Falso}, \
{$CellContext`Verdadero}]]]]]]]}], "SubValues" -> None, "DefaultValues" -> 
    None, "NValues" -> None, "FormatValues" -> None, 
    "Options" -> {Incrustada`texto -> False}, "Attributes" -> {Protected}, 
    "FullName" -> "Incrustada`FV"|>, False]]], "Output",
 CellChangeTimes->{3.8871053177150154`*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"679cec83-f815-4a9d-b1a1-6c8b4a5f6cff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "SMOption"}]], "Input",
 CellChangeTimes->{{3.887105320295803*^9, 3.887105324265134*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"7692b5e9-6133-4f5d-b2e2-878d116e213e"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"Genera el c\[OAcute]digo correspondiente a una \
respuesta de selecci\[OAcute]n \[UAcute]nica (pueden existir varias opciones \
correctas) o m\[UAcute]ltiple, con un formato vertical u horizontal. \
Sintaxis: SMOption[Correctas, Incorrectas], con \[LeftGuillemet]Correctas\
\[RightGuillemet] una lista con las opciones correctas e \
\[LeftGuillemet]Incorrectas\[RightGuillemet] otra, con los distractores de la \
pregunta. SMOption posee los atributos \[LeftGuillemet]horizontal->True\
\[RightGuillemet] si se desea un acomodo horizontal, \
\[LeftGuillemet]latex->True\[RightGuillemet] que convierte todas las \
sentencias a c\[OAcute]digo l\[AAcute]tex, \[LeftGuillemet]conjunto->True\
\[RightGuillemet] que retorna cada opci\[OAcute]n como un conjunto si \
corresponde a ese contexto y \[LeftGuillemet]multiple->True\[RightGuillemet] \
se emplea si se requieren selecciones m\[UAcute]ltiples.\"\>", 
             "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[
           TagBox[GridBox[{
              {
               StyleBox[
                TagBox[
                 TooltipBox[
                  StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
                   StripOnInput->False],
                  "\"Definitions\"",
                  TooltipStyle->"TextStyling"],
                 Annotation[#, "Definitions", "Tooltip"]& ], "DialogStyle",
                StripOnInput->False]},
              {
               TemplateBox[{"\"\[ThinSpace]\"", 
                 GridBox[{{
                    RowBox[{
                    RowBox[{"SMOption", "[", 
                    
                    RowBox[{
                    "Incrustada`Private`Correctas_", ",", 
                    "Incrustada`Private`Incorrectas_", ",", 
                    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"BooleanQ", "[", 
                    RowBox[{"OptionValue", "[", "horizontal", "]"}], "]"}], 
                    "&&", 
                    RowBox[{"BooleanQ", "[", 
                    RowBox[{"OptionValue", "[", "latex", "]"}], "]"}], "&&", 
                    RowBox[{"BooleanQ", "[", 
                    RowBox[{"OptionValue", "[", "conjunto", "]"}], "]"}], 
                    "&&", 
                    RowBox[{"BooleanQ", "[", 
                    RowBox[{"OptionValue", "[", "multiple", "]"}], "]"}]}], 
                    ",", 
                    RowBox[{"Module", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`hilera", "=", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"OptionValue", "[", "multiple", "]"}]}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"OptionValue", "[", "horizontal", "]"}]}], ",", 
                    "\"1:MCVS:\"", ",", "\"1:MCHS:\""}], "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"OptionValue", "[", "horizontal", "]"}]}], ",", 
                    "\"1:MRS:\"", ",", "\"1:MRHS:\""}], "]"}]}], "]"}]}], ",",
                     "Incrustada`Private`VCorrectas", ",", 
                    "Incrustada`Private`VIncorrectas", ",", 
                    "Incrustada`Private`Vn", ",", "Incrustada`Private`Vm", 
                    ",", "Incrustada`Private`i"}], "}"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    
                    RowBox[{"ListQ", "[", "Incrustada`Private`Correctas", 
                    "]"}], "&&", 
                    
                    RowBox[{"ListQ", "[", "Incrustada`Private`Incorrectas", 
                    "]"}], "&&", 
                    RowBox[{"ListQ", "[", 
                    
                    RowBox[{"Incrustada`Private`ConjuntoString", "[", 
                    "Incrustada`Private`Correctas", "]"}], "]"}], "&&", 
                    RowBox[{"ListQ", "[", 
                    
                    RowBox[{"Incrustada`Private`ConjuntoString", "[", 
                    "Incrustada`Private`Incorrectas", "]"}], "]"}]}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Incrustada`Private`Correctas", "\[NotEqual]", 
                    RowBox[{"{", "}"}]}], "&&", 
                    RowBox[{"Incrustada`Private`Incorrectas", "\[NotEqual]", 
                    RowBox[{"{", "}"}]}]}], ",", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"OptionValue", "[", "latex", "]"}]}], ",", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`VCorrectas", "=", 
                    
                    RowBox[{"Incrustada`Private`ConjuntoString", "[", 
                    "Incrustada`Private`Correctas", "]"}]}], ";", 
                    RowBox[{"Incrustada`Private`VIncorrectas", "=", 
                    
                    RowBox[{"Incrustada`Private`ConjuntoString", "[", 
                    "Incrustada`Private`Incorrectas", "]"}]}], ";", 
                    RowBox[{"Incrustada`Private`hilera", "=", 
                    RowBox[{"StringReplace", "[", 
                    RowBox[{
                    RowBox[{"\"{\"", "<>", 
                    RowBox[{"StringReplace", "[", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`hilera", "<>", 
                    RowBox[{"Join", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    
                    RowBox[{"\"~=\\(\\\\quad\\)\"", "<>", 
                    "Incrustada`Private`i", "<>", "\"#Excelente\""}], ",", 
                    RowBox[{"{", 
                    
                    RowBox[{"Incrustada`Private`i", ",", 
                    "Incrustada`Private`VCorrectas"}], "}"}]}], "]"}], ",", 
                    RowBox[{"Table", "[", 
                    RowBox[{
                    
                    RowBox[{"\"~\\(\\\\quad\\)\"", "<>", 
                    "Incrustada`Private`i", "<>", "\"#\""}], ",", 
                    RowBox[{"{", 
                    
                    RowBox[{"Incrustada`Private`i", ",", 
                    "Incrustada`Private`VIncorrectas"}], "}"}]}], "]"}]}], 
                    "]"}]}], ",", 
                    RowBox[{"\"}\"", "\[Rule]", "\"\\\\}\""}]}], "]"}], "<>", 
                    "\"}\""}], ",", 
                    RowBox[{"\"==\"", "\[Rule]", "\"=\""}]}], "]"}]}]}], ",", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`Vn", "=", 
                    RowBox[{"Length", "[", 
                    RowBox[{"Select", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"ListQ", "[", "Incrustada`Private`i", "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    "Incrustada`Private`i", ",", 
                    "Incrustada`Private`Correctas"}], "}"}]}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"#1", "\[Equal]", "True"}], "&"}]}], "]"}], 
                    "]"}]}], ";", 
                    RowBox[{"Incrustada`Private`Vm", "=", 
                    RowBox[{"Length", "[", 
                    RowBox[{"Select", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"ListQ", "[", "Incrustada`Private`i", "]"}], ",", 
                    RowBox[{"{", 
                    
                    RowBox[{"Incrustada`Private`i", ",", 
                    "Incrustada`Private`Incorrectas"}], "}"}]}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"#1", "\[Equal]", "True"}], "&"}]}], "]"}], 
                    "]"}]}], ";", 
                    RowBox[{"Incrustada`Private`VCorrectas", "=", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`Vn", "\[Equal]", "0"}], ",", 
                    
                    RowBox[{"Incrustada`Private`ConjuntoStringLatex", "[", 
                    "Incrustada`Private`Correctas", "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "conjunto", "]"}], ",", 
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"ListQ", "[", "Incrustada`Private`i", "]"}], ",", 
                    RowBox[{"\"\\\\left\\\\{\"", "<>", 
                    RowBox[{"ToString", "[", "Incrustada`Private`i", "]"}], 
                    "<>", "\"\\\\right\\\\}\""}], ",", 
                    "Incrustada`Private`i"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"Incrustada`Private`i", ",", 
                    
                    RowBox[{"Incrustada`Private`ConjuntoStringLatex", "[", 
                    "Incrustada`Private`Correctas", "]"}]}], "}"}]}], "]"}], 
                    ",", 
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"ListQ", "[", "Incrustada`Private`i", "]"}], ",", 
                    RowBox[{"StringRiffle", "[", 
                    RowBox[{"Incrustada`Private`i", ",", "\",\""}], "]"}], 
                    ",", "Incrustada`Private`i"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"Incrustada`Private`i", ",", 
                    
                    RowBox[{"Incrustada`Private`ConjuntoStringLatex", "[", 
                    "Incrustada`Private`Correctas", "]"}]}], "}"}]}], "]"}]}],
                     "]"}]}], "]"}]}], ";", 
                    RowBox[{"Incrustada`Private`VIncorrectas", "=", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`Vm", "\[Equal]", "0"}], ",", 
                    
                    RowBox[{"Incrustada`Private`ConjuntoStringLatex", "[", 
                    "Incrustada`Private`Incorrectas", "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "conjunto", "]"}], ",", 
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"ListQ", "[", "Incrustada`Private`i", "]"}], ",", 
                    RowBox[{"\"\\\\left\\\\{\"", "<>", 
                    RowBox[{"ToString", "[", "Incrustada`Private`i", "]"}], 
                    "<>", "\"\\\\right\\\\}\""}], ",", 
                    "Incrustada`Private`i"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"Incrustada`Private`i", ",", 
                    
                    RowBox[{"Incrustada`Private`ConjuntoStringLatex", "[", 
                    "Incrustada`Private`Incorrectas", "]"}]}], "}"}]}], "]"}],
                     ",", 
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"ListQ", "[", "Incrustada`Private`i", "]"}], ",", 
                    RowBox[{"StringRiffle", "[", 
                    RowBox[{"Incrustada`Private`i", ",", "\",\""}], "]"}], 
                    ",", "Incrustada`Private`i"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"Incrustada`Private`i", ",", 
                    
                    RowBox[{"Incrustada`Private`ConjuntoStringLatex", "[", 
                    "Incrustada`Private`Incorrectas", "]"}]}], "}"}]}], 
                    "]"}]}], "]"}]}], "]"}]}], ";", 
                    RowBox[{"Incrustada`Private`hilera", "=", 
                    RowBox[{"\"{\"", "<>", 
                    RowBox[{"StringReplace", "[", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`hilera", "<>", 
                    RowBox[{"Join", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    
                    RowBox[{"\"~=\\({\\\\displaystyle{\\\\quad \"", "<>", 
                    "Incrustada`Private`i", "<>", "\"}}\\)#Excelente\""}], 
                    ",", 
                    RowBox[{"{", 
                    
                    RowBox[{"Incrustada`Private`i", ",", 
                    "Incrustada`Private`VCorrectas"}], "}"}]}], "]"}], ",", 
                    RowBox[{"Table", "[", 
                    RowBox[{
                    
                    RowBox[{"\"~\\({\\\\displaystyle{\\\\quad \"", "<>", 
                    "Incrustada`Private`i", "<>", "\"}}\\)#\""}], ",", 
                    RowBox[{"{", 
                    
                    RowBox[{"Incrustada`Private`i", ",", 
                    "Incrustada`Private`VIncorrectas"}], "}"}]}], "]"}]}], 
                    "]"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\"}\"", "\[Rule]", "\"\\\\}\""}], "}"}]}], "]"}],
                     "<>", "\"}\""}]}]}]}], "]"}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"StringContainsQ", "[", 
                    
                    RowBox[{"Incrustada`Private`hilera", ",", 
                    "\"Subscript\""}], "]"}]}], ",", 
                    RowBox[{
                    
                    RowBox[{"CopyToClipboard", "[", 
                    "Incrustada`Private`hilera", "]"}], ";", 
                    "Incrustada`Private`hilera"}]}], "]"}]}]}], "]"}]}], 
                    "]"}]}], "]"}]}], "]"}]}]}, {" "}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                "RowDefault"]}
             },
             DefaultBaseStyle->"Column",
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Column"],
           FrameMargins->{{6, 0}, {3, 6}}], "\<\"\"\>"},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   PaneSelectorBox[{True->
                    ButtonBox[
                    PaneSelectorBox[{False->
                    TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", 
                    StyleBox[
                    "\"Options\"", "InformationRowLabel", StripOnInput -> 
                    False], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "DownPointerOpener"]]},
                    "RowWithSeparators"], True->
                    TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", 
                    StyleBox[
                    "\"Options\"", "InformationRowLabel", StripOnInput -> 
                    False], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "DownPointerOpenerHot"]]},
                    "RowWithSeparators"]}, Dynamic[
                    CurrentValue["MouseOver"]],
                    FrameMargins->0,
                    ImageSize->Automatic],
                    Appearance->None,
                    BaseStyle->None,
                    
                    ButtonFunction:>(Part[System`InformationDump`open$$, 3] = 
                    False),
                    Evaluator->Automatic,
                    FrameMargins->0,
                    ImageMargins->0,
                    Method->"Preemptive"], False->
                    ButtonBox[
                    PaneSelectorBox[{False->
                    TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", 
                    StyleBox[
                    "\"Options\"", "InformationRowLabel", StripOnInput -> 
                    False], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "RightPointerOpener"]]},
                    "RowWithSeparators"], True->
                    TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", 
                    StyleBox[
                    "\"Options\"", "InformationRowLabel", StripOnInput -> 
                    False], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "RightPointerOpenerHot"]]},
                    "RowWithSeparators"]}, Dynamic[
                    CurrentValue["MouseOver"]],
                    FrameMargins->0,
                    ImageSize->Automatic],
                    Appearance->None,
                    BaseStyle->None,
                    
                    ButtonFunction:>(Part[System`InformationDump`open$$, 3] = 
                    True),
                    Evaluator->Automatic,
                    FrameMargins->0,
                    ImageMargins->0,
                    Method->"Preemptive"]}, Dynamic[
                    FEPrivate`Part[System`InformationDump`open$$, 3]]], 
                   PaneSelectorBox[{True->GridBox[{
                    {
                    RowBox[{"horizontal", "\[Rule]", "False"}]},
                    {
                    RowBox[{"latex", "\[Rule]", "False"}]},
                    {
                    RowBox[{"conjunto", "\[Rule]", "False"}]},
                    {
                    RowBox[{"multiple", "\[Rule]", "False"}]},
                    {
                    StyleBox[
                    
                    TemplateBox[{
                    "\"(\"", "\"\[InvisibleSpace]\"", "4", "\" total)\""},
                    "RowDefault"], "InformationRowOpener",
                    StripOnInput->False]}
                    },
                    BaselinePosition->{Baseline, {1, 1}},
                    DefaultBaseStyle->"Column",
                    GridBoxAlignment->{"Columns" -> {{Left}}},
                    
                    GridBoxItemSize->{
                    "Columns" -> {{Automatic}}, "Rows" -> {{1.}}}], False->
                    RowBox[{
                    RowBox[{"horizontal", "\[Rule]", "False"}], 
                    "\[ThinSpace]", 
                    StyleBox["\<\"\[Ellipsis]\"\>", "InformationRowOpener",
                    StripOnInput->False], "\[ThinSpace]", 
                    StyleBox[
                    
                    TemplateBox[{
                    "\"(\"", "\"\[InvisibleSpace]\"", "4", "\" total)\""},
                    "RowDefault"], "InformationRowOpener",
                    StripOnInput->False]}]}, Dynamic[
                    FEPrivate`Part[System`InformationDump`open$$, 3]],
                    BaselinePosition->Baseline,
                    ImageSize->Automatic]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Attributes\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Attributes\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Attributes", "Tooltip"]& ], 
                   RowBox[{"{", 
                    RowBox[{"HoldAll", ",", "Protected"}], "}"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"Incrustada`SMOption\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"Genera el c\[OAcute]digo correspondiente a una \
respuesta de selecci\[OAcute]n \[UAcute]nica (pueden existir varias opciones \
correctas) o m\[UAcute]ltiple, con un formato vertical u horizontal. \
Sintaxis: SMOption[Correctas, Incorrectas], con \[LeftGuillemet]Correctas\
\[RightGuillemet] una lista con las opciones correctas e \
\[LeftGuillemet]Incorrectas\[RightGuillemet] otra, con los distractores de la \
pregunta. SMOption posee los atributos \[LeftGuillemet]horizontal->True\
\[RightGuillemet] si se desea un acomodo horizontal, \
\[LeftGuillemet]latex->True\[RightGuillemet] que convierte todas las \
sentencias a c\[OAcute]digo l\[AAcute]tex, \[LeftGuillemet]conjunto->True\
\[RightGuillemet] que retorna cada opci\[OAcute]n como un conjunto si \
corresponde a ese contexto y \[LeftGuillemet]multiple->True\[RightGuillemet] \
se emplea si se requieren selecciones m\[UAcute]ltiples.\"\>", 
             "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{10., {3., 7.}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               ImageSizeCache->{10., {3., 7.}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "Genera el c\[OAcute]digo correspondiente a una respuesta de selecci\
\[OAcute]n \[UAcute]nica (pueden existir varias opciones correctas) o m\
\[UAcute]ltiple, con un formato vertical u horizontal. Sintaxis: \
SMOption[Correctas, Incorrectas], con \[LeftGuillemet]Correctas\
\[RightGuillemet] una lista con las opciones correctas e \
\[LeftGuillemet]Incorrectas\[RightGuillemet] otra, con los distractores de la \
pregunta. SMOption posee los atributos \[LeftGuillemet]horizontal->True\
\[RightGuillemet] si se desea un acomodo horizontal, \
\[LeftGuillemet]latex->True\[RightGuillemet] que convierte todas las \
sentencias a c\[OAcute]digo l\[AAcute]tex, \[LeftGuillemet]conjunto->True\
\[RightGuillemet] que retorna cada opci\[OAcute]n como un conjunto si \
corresponde a ese contexto y \[LeftGuillemet]multiple->True\[RightGuillemet] \
se emplea si se requieren selecciones m\[UAcute]ltiples.", "Documentation" -> 
    None, "OwnValues" -> None, "UpValues" -> None, "DownValues" -> 
    Information`InformationValueForm[
     DownValues, Incrustada`SMOption, {Incrustada`SMOption[
         Pattern[Incrustada`Private`Correctas, 
          Blank[]], 
         Pattern[Incrustada`Private`Incorrectas, 
          Blank[]], 
         OptionsPattern[]] :> If[
         And[
          BooleanQ[
           OptionValue[Incrustada`horizontal]], 
          BooleanQ[
           OptionValue[Incrustada`latex]], 
          BooleanQ[
           OptionValue[Incrustada`conjunto]], 
          BooleanQ[
           OptionValue[Incrustada`multiple]]], 
         Module[{Incrustada`Private`hilera = If[
             Not[
              OptionValue[Incrustada`multiple]], 
             If[
              Not[
               OptionValue[Incrustada`horizontal]], "1:MCVS:", "1:MCHS:"], 
             If[
              Not[
               OptionValue[Incrustada`horizontal]], "1:MRS:", "1:MRHS:"]], 
           Incrustada`Private`VCorrectas, Incrustada`Private`VIncorrectas, 
           Incrustada`Private`Vn, Incrustada`Private`Vm, 
           Incrustada`Private`i}, 
          If[
           And[
            ListQ[Incrustada`Private`Correctas], 
            ListQ[Incrustada`Private`Incorrectas], 
            ListQ[
             Incrustada`Private`ConjuntoString[Incrustada`Private`Correctas]], 
            ListQ[
             Incrustada`Private`ConjuntoString[
             Incrustada`Private`Incorrectas]]], 
           If[
            And[
            Incrustada`Private`Correctas != {}, 
             Incrustada`Private`Incorrectas != {}], If[
              Not[
               OptionValue[Incrustada`latex]], 
              Incrustada`Private`VCorrectas = 
               Incrustada`Private`ConjuntoString[
                Incrustada`Private`Correctas]; 
              Incrustada`Private`VIncorrectas = 
               Incrustada`Private`ConjuntoString[
                Incrustada`Private`Incorrectas]; 
              Incrustada`Private`hilera = 
               StringReplace[
                "{" <> StringReplace[Incrustada`Private`hilera <> Join[
                    Table[
                    "~=\(\\quad\)" <> Incrustada`Private`i <> "#Excelente", {
                    Incrustada`Private`i, Incrustada`Private`VCorrectas}], 
                    Table[
                    "~\(\\quad\)" <> Incrustada`Private`i <> "#", {
                    Incrustada`Private`i, Incrustada`Private`VIncorrectas}]], 
                   "}" -> "\\}"] <> "}", "==" -> "="], 
              Incrustada`Private`Vn = Length[
                 Select[
                  Table[
                   ListQ[Incrustada`Private`i], {
                   Incrustada`Private`i, Incrustada`Private`Correctas}], # == 
                  True& ]]; Incrustada`Private`Vm = Length[
                 Select[
                  Table[
                   ListQ[Incrustada`Private`i], {
                   Incrustada`Private`i, Incrustada`Private`Incorrectas}], # == 
                  True& ]]; 
              Incrustada`Private`VCorrectas = If[Incrustada`Private`Vn == 0, 
                 Incrustada`Private`ConjuntoStringLatex[
                 Incrustada`Private`Correctas], 
                 If[
                  OptionValue[Incrustada`conjunto], 
                  Table[
                   If[
                    ListQ[Incrustada`Private`i], "\\left\\{" <> 
                    ToString[Incrustada`Private`i] <> "\\right\\}", 
                    Incrustada`Private`i], {Incrustada`Private`i, 
                    Incrustada`Private`ConjuntoStringLatex[
                    Incrustada`Private`Correctas]}], 
                  Table[
                   If[
                    ListQ[Incrustada`Private`i], 
                    StringRiffle[Incrustada`Private`i, ","], 
                    Incrustada`Private`i], {Incrustada`Private`i, 
                    Incrustada`Private`ConjuntoStringLatex[
                    Incrustada`Private`Correctas]}]]]; 
              Incrustada`Private`VIncorrectas = If[Incrustada`Private`Vm == 0, 
                 Incrustada`Private`ConjuntoStringLatex[
                 Incrustada`Private`Incorrectas], 
                 If[
                  OptionValue[Incrustada`conjunto], 
                  Table[
                   If[
                    ListQ[Incrustada`Private`i], "\\left\\{" <> 
                    ToString[Incrustada`Private`i] <> "\\right\\}", 
                    Incrustada`Private`i], {Incrustada`Private`i, 
                    Incrustada`Private`ConjuntoStringLatex[
                    Incrustada`Private`Incorrectas]}], 
                  Table[
                   If[
                    ListQ[Incrustada`Private`i], 
                    StringRiffle[Incrustada`Private`i, ","], 
                    Incrustada`Private`i], {Incrustada`Private`i, 
                    Incrustada`Private`ConjuntoStringLatex[
                    Incrustada`Private`Incorrectas]}]]]; 
              Incrustada`Private`hilera = 
               "{" <> StringReplace[Incrustada`Private`hilera <> Join[
                    Table[
                    "~=\({\\displaystyle{\\quad " <> Incrustada`Private`i <> 
                    "}}\)#Excelente", {
                    Incrustada`Private`i, Incrustada`Private`VCorrectas}], 
                    Table[
                    "~\({\\displaystyle{\\quad " <> Incrustada`Private`i <> 
                    "}}\)#", {
                    Incrustada`Private`i, 
                    Incrustada`Private`VIncorrectas}]], {"}" -> "\\}"}] <> 
                "}"]; If[
              Not[
               StringContainsQ[Incrustada`Private`hilera, "Subscript"]], 
              CopyToClipboard[Incrustada`Private`hilera]; 
              Incrustada`Private`hilera]]]]]}], "SubValues" -> None, 
    "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, 
    "Options" -> {
     Incrustada`horizontal -> False, Incrustada`latex -> False, 
      Incrustada`conjunto -> False, Incrustada`multiple -> False}, 
    "Attributes" -> {HoldAll, Protected}, "FullName" -> 
    "Incrustada`SMOption"|>, False]]], "Output",
 CellChangeTimes->{3.887105325334113*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"033e5c59-2c85-459a-a32f-c786d5b992eb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "ShortAnswer"}]], "Input",
 CellChangeTimes->{{3.887105328068302*^9, 3.8871053372256107`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"9ed6b8e9-242d-4e8b-90d7-14d70eca9f64"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"Genera el c\[OAcute]digo correspondiente a una \
respuesta corta. Sintaxis: ShortAnswer[Correctas], con \
\[LeftGuillemet]Correctas\[RightGuillemet] una lista con las opciones \
correctas. Presenta los atributos \[LeftGuillemet]UpperLower->True\
\[RightGuillemet] si se desea que se haga una distinci\[OAcute]n entre letras \
may\[UAcute]sculas y min\[UAcute]sculas y \[LeftGuillemet]evaluar->True\
\[RightGuillemet] que simplifica valores dentro de \[LeftGuillemet]Correctas\
\[RightGuillemet].\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[
           TagBox[GridBox[{
              {
               StyleBox[
                TagBox[
                 TooltipBox[
                  StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
                   StripOnInput->False],
                  "\"Definitions\"",
                  TooltipStyle->"TextStyling"],
                 Annotation[#, "Definitions", "Tooltip"]& ], "DialogStyle",
                StripOnInput->False]},
              {
               TemplateBox[{"\"\[ThinSpace]\"", 
                 GridBox[{{
                    RowBox[{
                    RowBox[{"ShortAnswer", "[", 
                    RowBox[{"Incrustada`Private`Correctas_", ",", 
                    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"BooleanQ", "[", 
                    RowBox[{"OptionValue", "[", "UpperLower", "]"}], "]"}], 
                    "&&", 
                    RowBox[{"BooleanQ", "[", 
                    RowBox[{"OptionValue", "[", "evaluar", "]"}], "]"}]}], 
                    ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    
                    RowBox[{"ListQ", "[", "Incrustada`Private`Correctas", 
                    "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`Correctas", "\[NotEqual]", 
                    RowBox[{"{", "}"}]}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"OptionValue", "[", "UpperLower", "]"}]}], ",", 
                    RowBox[{"Desplegada", "[", 
                    RowBox[{"Incrustada`Private`Correctas", ",", 
                    RowBox[{"{", "}"}], ",", 
                    RowBox[{"bandera", "\[Rule]", "1"}], ",", 
                    RowBox[{"evaluar", "\[Rule]", 
                    RowBox[{"OptionValue", "[", "evaluar", "]"}]}]}], "]"}], 
                    ",", 
                    RowBox[{"Desplegada", "[", 
                    RowBox[{"Incrustada`Private`Correctas", ",", 
                    RowBox[{"{", "}"}], ",", 
                    RowBox[{"bandera", "\[Rule]", "2"}], ",", 
                    RowBox[{"evaluar", "\[Rule]", 
                    RowBox[{"OptionValue", "[", "evaluar", "]"}]}]}], "]"}]}],
                     "]"}]}], "]"}]}], "]"}]}], "]"}]}]}, {" "}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                "RowDefault"]}
             },
             DefaultBaseStyle->"Column",
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Column"],
           FrameMargins->{{6, 0}, {3, 6}}], "\<\"\"\>"},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Options\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Options\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Options", "Tooltip"]& ], 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"UpperLower", "\[Rule]", "False"}], ",", 
                    RowBox[{"evaluar", "\[Rule]", "False"}]}], "}"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Attributes\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Attributes\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Attributes", "Tooltip"]& ], 
                   RowBox[{"{", 
                    RowBox[{"HoldAll", ",", "Protected"}], "}"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"Incrustada`ShortAnswer\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"Genera el c\[OAcute]digo correspondiente a una \
respuesta corta. Sintaxis: ShortAnswer[Correctas], con \
\[LeftGuillemet]Correctas\[RightGuillemet] una lista con las opciones \
correctas. Presenta los atributos \[LeftGuillemet]UpperLower->True\
\[RightGuillemet] si se desea que se haga una distinci\[OAcute]n entre letras \
may\[UAcute]sculas y min\[UAcute]sculas y \[LeftGuillemet]evaluar->True\
\[RightGuillemet] que simplifica valores dentro de \[LeftGuillemet]Correctas\
\[RightGuillemet].\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{10., {3., 7.}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               ImageSizeCache->{10., {3., 7.}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "Genera el c\[OAcute]digo correspondiente a una respuesta corta. \
Sintaxis: ShortAnswer[Correctas], con \[LeftGuillemet]Correctas\
\[RightGuillemet] una lista con las opciones correctas. Presenta los \
atributos \[LeftGuillemet]UpperLower->True\[RightGuillemet] si se desea que \
se haga una distinci\[OAcute]n entre letras may\[UAcute]sculas y \
min\[UAcute]sculas y \[LeftGuillemet]evaluar->True\[RightGuillemet] que \
simplifica valores dentro de \[LeftGuillemet]Correctas\[RightGuillemet].", 
    "Documentation" -> None, "OwnValues" -> None, "UpValues" -> None, 
    "DownValues" -> 
    Information`InformationValueForm[
     DownValues, Incrustada`ShortAnswer, {Incrustada`ShortAnswer[
         Pattern[Incrustada`Private`Correctas, 
          Blank[]], 
         OptionsPattern[]] :> If[
         And[
          BooleanQ[
           OptionValue[Incrustada`UpperLower]], 
          BooleanQ[
           OptionValue[Incrustada`evaluar]]], 
         If[
          ListQ[Incrustada`Private`Correctas], 
          If[Incrustada`Private`Correctas != {}, 
           If[
            Not[
             OptionValue[Incrustada`UpperLower]], 
            Incrustada`Desplegada[
            Incrustada`Private`Correctas, {}, Incrustada`bandera -> 1, 
             Incrustada`evaluar -> OptionValue[Incrustada`evaluar]], 
            Incrustada`Desplegada[
            Incrustada`Private`Correctas, {}, Incrustada`bandera -> 2, 
             Incrustada`evaluar -> OptionValue[Incrustada`evaluar]]]]]]}], 
    "SubValues" -> None, "DefaultValues" -> None, "NValues" -> None, 
    "FormatValues" -> None, 
    "Options" -> {
     Incrustada`UpperLower -> False, Incrustada`evaluar -> False}, 
    "Attributes" -> {HoldAll, Protected}, "FullName" -> 
    "Incrustada`ShortAnswer"|>, False]]], "Output",
 CellChangeTimes->{{3.8871053342417774`*^9, 3.8871053379187794`*^9}},
 CellLabel->"Out[7]=",ExpressionUUID->"0be864ed-5a72-4857-bdbd-0caef7bbaff9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "ShortNumerical"}]], "Input",
 CellChangeTimes->{{3.8871053403646045`*^9, 3.887105346034077*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"119584be-f54d-4b36-85d7-502e0a5efcbc"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"Genera el c\[OAcute]digo correspondiente a una \
respuesta corta num\[EAcute]rica. Sintaxis: ShortNumerical[Correctas], con \
\[LeftGuillemet]Correctas\[RightGuillemet] una lista con las opciones \
correctas. Presenta los atributos \[LeftGuillemet]precision->Valor\
\[RightGuillemet] que especifica en \[LeftGuillemet]Valor\[RightGuillemet] un \
nivel de presici\[OAcute]n aceptable como respuesta correcta (x es correcta \
si \[LeftGuillemet]valor correcto - precision\[RightGuillemet] <= x <= \
\[LeftGuillemet]valor correcto + precision\[RightGuillemet]) y \
\[LeftGuillemet]evaluar->True\[RightGuillemet] que simplifica valores dentro \
de \[LeftGuillemet]Correctas\[RightGuillemet].\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[
           TagBox[GridBox[{
              {
               StyleBox[
                TagBox[
                 TooltipBox[
                  StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
                   StripOnInput->False],
                  "\"Definitions\"",
                  TooltipStyle->"TextStyling"],
                 Annotation[#, "Definitions", "Tooltip"]& ], "DialogStyle",
                StripOnInput->False]},
              {
               TemplateBox[{"\"\[ThinSpace]\"", 
                 GridBox[{{
                    RowBox[{
                    RowBox[{"ShortNumerical", "[", 
                    RowBox[{"Incrustada`Private`Correctas_", ",", 
                    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"NumericQ", "[", 
                    RowBox[{"OptionValue", "[", "precision", "]"}], "]"}], 
                    "&&", 
                    RowBox[{"BooleanQ", "[", 
                    RowBox[{"OptionValue", "[", "evaluar", "]"}], "]"}]}], 
                    ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"VectorQ", "[", 
                    RowBox[{"Incrustada`Private`Correctas", ",", "NumberQ"}], 
                    "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`Correctas", "\[NotEqual]", 
                    RowBox[{"{", "}"}]}], ",", 
                    RowBox[{"Desplegada", "[", 
                    RowBox[{"Incrustada`Private`Correctas", ",", 
                    RowBox[{"{", "}"}], ",", 
                    RowBox[{"bandera", "\[Rule]", "3"}], ",", 
                    RowBox[{"precision", "\[Rule]", 
                    RowBox[{"OptionValue", "[", "precision", "]"}]}], ",", 
                    RowBox[{"evaluar", "\[Rule]", 
                    RowBox[{"OptionValue", "[", "evaluar", "]"}]}]}], "]"}]}],
                     "]"}]}], "]"}]}], "]"}]}]}, {" "}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                "RowDefault"]}
             },
             DefaultBaseStyle->"Column",
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Column"],
           FrameMargins->{{6, 0}, {3, 6}}], "\<\"\"\>"},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Options\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Options\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Options", "Tooltip"]& ], 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"precision", "\[Rule]", "0"}], ",", 
                    RowBox[{"evaluar", "\[Rule]", "False"}]}], "}"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Attributes\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Attributes\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Attributes", "Tooltip"]& ], 
                   RowBox[{"{", 
                    RowBox[{"HoldAll", ",", "Protected"}], "}"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"Incrustada`ShortNumerical\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"Genera el c\[OAcute]digo correspondiente a una \
respuesta corta num\[EAcute]rica. Sintaxis: ShortNumerical[Correctas], con \
\[LeftGuillemet]Correctas\[RightGuillemet] una lista con las opciones \
correctas. Presenta los atributos \[LeftGuillemet]precision->Valor\
\[RightGuillemet] que especifica en \[LeftGuillemet]Valor\[RightGuillemet] un \
nivel de presici\[OAcute]n aceptable como respuesta correcta (x es correcta \
si \[LeftGuillemet]valor correcto - precision\[RightGuillemet] <= x <= \
\[LeftGuillemet]valor correcto + precision\[RightGuillemet]) y \
\[LeftGuillemet]evaluar->True\[RightGuillemet] que simplifica valores dentro \
de \[LeftGuillemet]Correctas\[RightGuillemet].\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{10., {3., 7.}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               ImageSizeCache->{10., {3., 7.}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "Genera el c\[OAcute]digo correspondiente a una respuesta corta num\
\[EAcute]rica. Sintaxis: ShortNumerical[Correctas], con \
\[LeftGuillemet]Correctas\[RightGuillemet] una lista con las opciones \
correctas. Presenta los atributos \[LeftGuillemet]precision->Valor\
\[RightGuillemet] que especifica en \[LeftGuillemet]Valor\[RightGuillemet] un \
nivel de presici\[OAcute]n aceptable como respuesta correcta (x es correcta \
si \[LeftGuillemet]valor correcto - precision\[RightGuillemet] <= x <= \
\[LeftGuillemet]valor correcto + precision\[RightGuillemet]) y \
\[LeftGuillemet]evaluar->True\[RightGuillemet] que simplifica valores dentro \
de \[LeftGuillemet]Correctas\[RightGuillemet].", "Documentation" -> None, 
    "OwnValues" -> None, "UpValues" -> None, "DownValues" -> 
    Information`InformationValueForm[
     DownValues, Incrustada`ShortNumerical, {Incrustada`ShortNumerical[
         Pattern[Incrustada`Private`Correctas, 
          Blank[]], 
         OptionsPattern[]] :> If[
         And[
          NumericQ[
           OptionValue[Incrustada`precision]], 
          BooleanQ[
           OptionValue[Incrustada`evaluar]]], 
         If[
          VectorQ[Incrustada`Private`Correctas, NumberQ], 
          If[Incrustada`Private`Correctas != {}, 
           Incrustada`Desplegada[
           Incrustada`Private`Correctas, {}, Incrustada`bandera -> 3, 
            Incrustada`precision -> OptionValue[Incrustada`precision], 
            Incrustada`evaluar -> OptionValue[Incrustada`evaluar]]]]]}], 
    "SubValues" -> None, "DefaultValues" -> None, "NValues" -> None, 
    "FormatValues" -> None, 
    "Options" -> {Incrustada`precision -> 0, Incrustada`evaluar -> False}, 
    "Attributes" -> {HoldAll, Protected}, "FullName" -> 
    "Incrustada`ShortNumerical"|>, False]]], "Output",
 CellChangeTimes->{3.88710534715528*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"3e33e015-d546-4e67-90e8-dde881691f53"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "TablaHTML"}]], "Input",
 CellChangeTimes->{{3.8871053510268173`*^9, 3.8871053556464667`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"d222cee6-078b-444c-bc59-1d8bbca6d257"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"Genera el c\[OAcute]digo correspondiente a una \
tabla HTML con respuestas desplegadas por defecto. Sintaxis: \
TablaHTML[Matriz], con \[LeftGuillemet]Matriz\[RightGuillemet] la matriz a \
pasar a tabla HTML. Presenta los atributos \
\[LeftGuillemet]encabezados->Conjunto\[RightGuillemet] que especifica en \
\[LeftGuillemet]Conjunto\[RightGuillemet] encabezados para las filas y las \
columnas, \[LeftGuillemet]distractor->Conjunto\[RightGuillemet] donde en \
\[LeftGuillemet]Conjunto\[RightGuillemet] se integran las opciones \
incorrectas para todas las respuestas desplegadas, \
\[LeftGuillemet]distractores->Conjunto\[RightGuillemet] si se quiere \
individualizar las opciones incorrectas para cada respuesta desplegada, \
\[LeftGuillemet]completar->True\[RightGuillemet] en caso de que se deseen \
respuestas de complete en todos los campos de la tabla y \
\[LeftGuillemet]mixta->True\[RightGuillemet] se usa cuando se requiere una \
mezcla pseudoaleatoria de respuestas desplegadas y de completar.\"\>", 
             "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[
           TagBox[GridBox[{
              {
               StyleBox[
                TagBox[
                 TooltipBox[
                  StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
                   StripOnInput->False],
                  "\"Definitions\"",
                  TooltipStyle->"TextStyling"],
                 Annotation[#, "Definitions", "Tooltip"]& ], "DialogStyle",
                StripOnInput->False]},
              {
               TemplateBox[{"\"\[ThinSpace]\"", 
                 GridBox[{{
                    RowBox[{
                    RowBox[{"TablaHTML", "[", 
                    RowBox[{"Incrustada`Private`Matriz_", ",", 
                    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
                    RowBox[{"Quiet", "[", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"ListQ", "[", 
                    RowBox[{"OptionValue", "[", "encabezados", "]"}], "]"}], 
                    "&&", 
                    RowBox[{"ListQ", "[", 
                    RowBox[{"OptionValue", "[", "distractor", "]"}], "]"}], 
                    "&&", 
                    RowBox[{"ListQ", "[", 
                    RowBox[{"OptionValue", "[", "distractores", "]"}], "]"}], 
                    "&&", 
                    RowBox[{"BooleanQ", "[", 
                    RowBox[{"OptionValue", "[", "completar", "]"}], "]"}], 
                    "&&", 
                    RowBox[{"BooleanQ", "[", 
                    RowBox[{"OptionValue", "[", "mixta", "]"}], "]"}], "&&", 
                    RowBox[{"ListQ", "[", "Incrustada`Private`Matriz", "]"}], 
                    "&&", 
                    RowBox[{"IntegerQ", "[", 
                    RowBox[{
                    RowBox[{"Dimensions", "[", "Incrustada`Private`Matriz", 
                    "]"}], "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}], "]"}], "&&", 
                    RowBox[{"IntegerQ", "[", 
                    RowBox[{
                    
                    RowBox[{"Dimensions", "[", "Incrustada`Private`Matriz", 
                    "]"}], "\[LeftDoubleBracket]", "2", 
                    "\[RightDoubleBracket]"}], "]"}]}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "[", 
                    RowBox[{"OptionValue", "[", "encabezados", "]"}], "]"}], 
                    "\[Equal]", "0"}], "||", 
                    RowBox[{
                    RowBox[{"Length", "[", 
                    RowBox[{"OptionValue", "[", "encabezados", "]"}], "]"}], 
                    "\[Equal]", "2"}]}], ")"}], "&&", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "[", 
                    RowBox[{"OptionValue", "[", "distractor", "]"}], "]"}], 
                    "\[Equal]", "0"}], "||", 
                    RowBox[{
                    RowBox[{"Length", "[", 
                    RowBox[{"OptionValue", "[", "distractor", "]"}], "]"}], 
                    "\[Equal]", "1"}]}], ")"}], "&&", 
                    RowBox[{
                    RowBox[{"Length", "[", 
                    RowBox[{"OptionValue", "[", "distractores", "]"}], "]"}], 
                    "\[LessEqual]", 
                    RowBox[{
                    RowBox[{
                    
                    RowBox[{"Dimensions", "[", "Incrustada`Private`Matriz", 
                    "]"}], "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}], " ", 
                    RowBox[{
                    
                    RowBox[{"Dimensions", "[", "Incrustada`Private`Matriz", 
                    "]"}], "\[LeftDoubleBracket]", "2", 
                    "\[RightDoubleBracket]"}]}]}]}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "[", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "encabezados", "]"}], 
                    "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
                    "]"}], "\[Equal]", 
                    RowBox[{
                    
                    RowBox[{"Dimensions", "[", "Incrustada`Private`Matriz", 
                    "]"}], "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}]}], "&&", 
                    RowBox[{
                    RowBox[{"Length", "[", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "encabezados", "]"}], 
                    "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
                    "]"}], "\[Equal]", 
                    RowBox[{
                    
                    RowBox[{"Dimensions", "[", "Incrustada`Private`Matriz", 
                    "]"}], "\[LeftDoubleBracket]", "2", 
                    "\[RightDoubleBracket]"}]}]}], ")"}], "||", 
                    RowBox[{
                    RowBox[{"Length", "[", 
                    RowBox[{"OptionValue", "[", "encabezados", "]"}], "]"}], 
                    "\[Equal]", "0"}]}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"MemberQ", "[", 
                    RowBox[{
                    RowBox[{"ListQ", "/@", 
                    RowBox[{"OptionValue", "[", "distractores", "]"}]}], ",", 
                    "False"}], "]"}]}], ",", 
                    RowBox[{"Module", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`n", "=", 
                    RowBox[{
                    
                    RowBox[{"Dimensions", "[", "Incrustada`Private`Matriz", 
                    "]"}], "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}]}], ",", 
                    RowBox[{"Incrustada`Private`m", "=", 
                    RowBox[{
                    RowBox[{
                    "Dimensions", "[", "Incrustada`Private`Matriz", "]"}], 
                    "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], 
                    ",", "Incrustada`Private`MatrizAux", ",", 
                    
                    RowBox[{"Incrustada`Private`tablaHTML", "=", 
                    "\"<table border=1><tbody>\""}], ",", 
                    "Incrustada`Private`correctas", ",", 
                    "Incrustada`Private`incorrectas", ",", 
                    "Incrustada`Private`i", ",", "Incrustada`Private`j", ",", 
                    RowBox[{"Incrustada`Private`opcions", "=", 
                    RowBox[{"{", "}"}]}], ",", 
                    RowBox[{"Incrustada`Private`contador", "=", "1"}], ",", 
                    "Incrustada`Private`vmixto"}], "}"}], ",", 
                    RowBox[{
                    RowBox[{"For", "[", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`i", "=", "1"}], ",", 
                    
                    RowBox[{"Incrustada`Private`i", "\[LessEqual]", 
                    "Incrustada`Private`n"}], ",", 
                    RowBox[{
                    RowBox[{"For", "[", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`j", "=", "1"}], ",", 
                    
                    RowBox[{"Incrustada`Private`j", "\[LessEqual]", 
                    "Incrustada`Private`m"}], ",", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`opcions", "=", 
                    RowBox[{"Append", "[", 
                    RowBox[{"Incrustada`Private`opcions", ",", 
                    
                    RowBox[{"Incrustada`Private`Matriz", 
                    "\[LeftDoubleBracket]", 
                    
                    RowBox[{"Incrustada`Private`i", ",", 
                    "Incrustada`Private`j"}], "\[RightDoubleBracket]"}]}], 
                    "]"}]}], ";", 
                    RowBox[{"Incrustada`Private`j", "++"}]}]}], "]"}], ";", 
                    RowBox[{"Incrustada`Private`i", "++"}]}]}], "]"}], ";", 
                    RowBox[{"Incrustada`Private`opcions", "=", 
                    
                    RowBox[{"DeleteDuplicates", "[", 
                    "Incrustada`Private`opcions", "]"}]}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"BooleanQ", "[", 
                    RowBox[{
                    RowBox[{"Desplegada", "[", 
                    RowBox[{
                    
                    RowBox[{"Evaluate", "[", "Incrustada`Private`opcions", 
                    "]"}], ",", 
                    RowBox[{"{", "}"}], ",", 
                    RowBox[{"bandera", "\[Rule]", "1"}]}], "]"}], 
                    "\[NotEqual]", 
                    RowBox[{"ToString", "[", "Null", "]"}]}], "]"}], "&&", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"BooleanQ", "[", 
                    RowBox[{
                    RowBox[{"Desplegada", "[", 
                    RowBox[{
                    RowBox[{"Evaluate", "[", 
                    RowBox[{"OptionValue", "[", "distractor", "]"}], "]"}], 
                    ",", 
                    RowBox[{"{", "}"}], ",", 
                    RowBox[{"bandera", "\[Rule]", "1"}]}], "]"}], 
                    "\[NotEqual]", 
                    RowBox[{"ToString", "[", "Null", "]"}]}], "]"}], "||", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "distractor", "]"}], 
                    "\[Equal]", 
                    RowBox[{"{", "}"}]}]}], ")"}], "&&", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"BooleanQ", "[", 
                    RowBox[{
                    RowBox[{"Desplegada", "[", 
                    RowBox[{
                    RowBox[{"Evaluate", "[", 
                    RowBox[{"OptionValue", "[", "distractores", "]"}], "]"}], 
                    ",", 
                    RowBox[{"{", "}"}], ",", 
                    RowBox[{"bandera", "\[Rule]", "1"}]}], "]"}], 
                    "\[NotEqual]", 
                    RowBox[{"ToString", "[", "Null", "]"}]}], "]"}], "||", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "distractores", "]"}], 
                    "\[Equal]", 
                    RowBox[{"{", "}"}]}]}], ")"}]}], ",", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "[", 
                    RowBox[{"OptionValue", "[", "encabezados", "]"}], "]"}], 
                    "\[Equal]", "0"}], ",", 
                    
                    RowBox[{"Incrustada`Private`MatrizAux", "=", 
                    "Incrustada`Private`Matriz"}], ",", 
                    RowBox[{"Incrustada`Private`MatrizAux", "=", 
                    RowBox[{"Transpose", "[", 
                    RowBox[{"Join", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Prepend", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"OptionValue", "[", "encabezados", "]"}], 
                    "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
                    ",", "\"\""}], "]"}], "}"}], ",", 
                    RowBox[{"Transpose", "[", 
                    RowBox[{"Join", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "encabezados", "]"}], 
                    "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
                    "}"}], ",", "Incrustada`Private`Matriz"}], "]"}], "]"}]}],
                     "]"}], "]"}]}]}], "]"}], ";", 
                    RowBox[{"Incrustada`Private`n", "=", 
                    RowBox[{
                    
                    RowBox[{"Dimensions", "[", "Incrustada`Private`MatrizAux",
                     "]"}], "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}]}], ";", 
                    RowBox[{"Incrustada`Private`m", "=", 
                    RowBox[{
                    
                    RowBox[{"Dimensions", "[", "Incrustada`Private`MatrizAux",
                     "]"}], "\[LeftDoubleBracket]", "2", 
                    "\[RightDoubleBracket]"}]}], ";", 
                    RowBox[{"For", "[", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`i", "=", "1"}], ",", 
                    
                    RowBox[{"Incrustada`Private`i", "\[LessEqual]", 
                    "Incrustada`Private`n"}], ",", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`tablaHTML", "=", 
                    
                    RowBox[{"Incrustada`Private`tablaHTML", "<>", 
                    "\"<tr>\""}]}], ";", 
                    RowBox[{"For", "[", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`j", "=", "1"}], ",", 
                    
                    RowBox[{"Incrustada`Private`j", "\[LessEqual]", 
                    "Incrustada`Private`m"}], ",", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`correctas", "=", 
                    RowBox[{"{", 
                    
                    RowBox[{"Incrustada`Private`MatrizAux", 
                    "\[LeftDoubleBracket]", 
                    RowBox[{
                    "Incrustada`Private`i", ",", "Incrustada`Private`j"}], 
                    "\[RightDoubleBracket]"}], "}"}]}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "[", 
                    RowBox[{"OptionValue", "[", "distractor", "]"}], "]"}], 
                    "\[Equal]", "1"}], ",", 
                    RowBox[{"Incrustada`Private`incorrectas", "=", 
                    RowBox[{"Complement", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"OptionValue", "[", "distractor", "]"}], 
                    "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
                    ",", "Incrustada`Private`correctas"}], "]"}]}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Incrustada`Private`contador", "\[LessEqual]", 
                    RowBox[{"Length", "[", 
                    RowBox[{"OptionValue", "[", "distractores", "]"}], 
                    "]"}]}], "&&", 
                    RowBox[{"!", 
                    RowBox[{"MemberQ", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Flatten", "[", 
                    RowBox[{"OptionValue", "[", "encabezados", "]"}], "]"}], 
                    "\[Union]", 
                    RowBox[{"{", "\"\"", "}"}]}], ",", 
                    
                    RowBox[{"Incrustada`Private`MatrizAux", 
                    "\[LeftDoubleBracket]", 
                    RowBox[{"Incrustada`Private`i", ",", 
                    "Incrustada`Private`j"}], "\[RightDoubleBracket]"}]}], 
                    "]"}]}]}], ",", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`incorrectas", "=", 
                    RowBox[{"Complement", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"OptionValue", "[", "distractores", "]"}], 
                    "\[LeftDoubleBracket]", "Incrustada`Private`contador", 
                    "\[RightDoubleBracket]"}], ",", 
                    "Incrustada`Private`correctas"}], "]"}]}], ";", 
                    RowBox[{"Incrustada`Private`contador", "++"}]}], ",", 
                    RowBox[{"Incrustada`Private`incorrectas", "=", 
                    RowBox[{"Complement", "[", 
                    
                    RowBox[{"Incrustada`Private`opcions", ",", 
                    "Incrustada`Private`correctas"}], "]"}]}]}], "]"}]}], 
                    "]"}], ";", 
                    RowBox[{"Incrustada`Private`vmixto", "=", 
                    RowBox[{"RandomInteger", "[", "]"}]}], ";", 
                    RowBox[{"Incrustada`Private`tablaHTML", "=", 
                    
                    RowBox[{"Incrustada`Private`tablaHTML", "<>", "\"<td>\"", 
                    "<>", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "[", 
                    RowBox[{"OptionValue", "[", "encabezados", "]"}], "]"}], 
                    "\[NotEqual]", "0"}], "&&", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`i", "\[Equal]", "1"}], "||", 
                    RowBox[{"Incrustada`Private`j", "\[Equal]", "1"}]}], 
                    ")"}]}], ",", 
                    RowBox[{"ToLatex", "[", 
                    RowBox[{"Evaluate", "[", 
                    
                    RowBox[{"Incrustada`Private`MatrizAux", 
                    "\[LeftDoubleBracket]", 
                    RowBox[{"Incrustada`Private`i", ",", 
                    "Incrustada`Private`j"}], "\[RightDoubleBracket]"}], 
                    "]"}], "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"OptionValue", "[", "completar", "]"}]}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "mixta", "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`vmixto", "\[Equal]", "0"}], 
                    ",", 
                    RowBox[{"Desplegada", "[", 
                    RowBox[{
                    
                    RowBox[{"Evaluate", "[", "Incrustada`Private`correctas", 
                    "]"}], ",", 
                    RowBox[{"Evaluate", "[", "Incrustada`Private`incorrectas",
                     "]"}]}], "]"}], ",", 
                    RowBox[{"ShortAnswer", "[", 
                    
                    RowBox[{"Evaluate", "[", "Incrustada`Private`correctas", 
                    "]"}], "]"}]}], "]"}], ",", 
                    RowBox[{"Desplegada", "[", 
                    RowBox[{
                    
                    RowBox[{"Evaluate", "[", "Incrustada`Private`correctas", 
                    "]"}], ",", 
                    RowBox[{"Evaluate", "[", "Incrustada`Private`incorrectas",
                     "]"}]}], "]"}]}], "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "mixta", "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"Incrustada`Private`vmixto", "\[Equal]", "0"}], 
                    ",", 
                    RowBox[{"Desplegada", "[", 
                    RowBox[{
                    
                    RowBox[{"Evaluate", "[", "Incrustada`Private`correctas", 
                    "]"}], ",", 
                    RowBox[{"Evaluate", "[", "Incrustada`Private`incorrectas",
                     "]"}]}], "]"}], ",", 
                    RowBox[{"ShortAnswer", "[", 
                    
                    RowBox[{"Evaluate", "[", "Incrustada`Private`correctas", 
                    "]"}], "]"}]}], "]"}], ",", 
                    RowBox[{"ShortAnswer", "[", 
                    
                    RowBox[{"Evaluate", "[", "Incrustada`Private`correctas", 
                    "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], "<>", 
                    "\"</td>\""}]}], ";", 
                    RowBox[{"Incrustada`Private`j", "++"}]}]}], "]"}], ";", 
                    RowBox[{"Incrustada`Private`tablaHTML", "=", 
                    
                    RowBox[{"Incrustada`Private`tablaHTML", "<>", 
                    "\"</tr>\""}]}], ";", 
                    RowBox[{"Incrustada`Private`i", "++"}]}]}], "]"}], ";", 
                    RowBox[{"Incrustada`Private`tablaHTML", "=", 
                    
                    RowBox[{"Incrustada`Private`tablaHTML", "<>", 
                    "\"</tbody></table>\""}]}], ";", 
                    
                    RowBox[{"CopyToClipboard", "[", 
                    "Incrustada`Private`tablaHTML", "]"}], ";", 
                    "Incrustada`Private`tablaHTML"}]}], "]"}]}]}], "]"}]}], 
                    "]"}]}], "]"}]}], "]"}]}], "]"}], "]"}]}]}, {" "}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                "RowDefault"]}
             },
             DefaultBaseStyle->"Column",
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Column"],
           FrameMargins->{{6, 0}, {3, 6}}], "\<\"\"\>"},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   PaneSelectorBox[{True->
                    ButtonBox[
                    PaneSelectorBox[{False->
                    TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", 
                    StyleBox[
                    "\"Options\"", "InformationRowLabel", StripOnInput -> 
                    False], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "DownPointerOpener"]]},
                    "RowWithSeparators"], True->
                    TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", 
                    StyleBox[
                    "\"Options\"", "InformationRowLabel", StripOnInput -> 
                    False], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "DownPointerOpenerHot"]]},
                    "RowWithSeparators"]}, Dynamic[
                    CurrentValue["MouseOver"]],
                    FrameMargins->0,
                    ImageSize->Automatic],
                    Appearance->None,
                    BaseStyle->None,
                    
                    ButtonFunction:>(Part[System`InformationDump`open$$, 3] = 
                    False),
                    Evaluator->Automatic,
                    FrameMargins->0,
                    ImageMargins->0,
                    Method->"Preemptive"], False->
                    ButtonBox[
                    PaneSelectorBox[{False->
                    TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", 
                    StyleBox[
                    "\"Options\"", "InformationRowLabel", StripOnInput -> 
                    False], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "RightPointerOpener"]]},
                    "RowWithSeparators"], True->
                    TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", 
                    StyleBox[
                    "\"Options\"", "InformationRowLabel", StripOnInput -> 
                    False], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "RightPointerOpenerHot"]]},
                    "RowWithSeparators"]}, Dynamic[
                    CurrentValue["MouseOver"]],
                    FrameMargins->0,
                    ImageSize->Automatic],
                    Appearance->None,
                    BaseStyle->None,
                    
                    ButtonFunction:>(Part[System`InformationDump`open$$, 3] = 
                    True),
                    Evaluator->Automatic,
                    FrameMargins->0,
                    ImageMargins->0,
                    Method->"Preemptive"]}, Dynamic[
                    FEPrivate`Part[System`InformationDump`open$$, 3]]], 
                   PaneSelectorBox[{True->GridBox[{
                    {
                    RowBox[{"encabezados", "\[Rule]", 
                    RowBox[{"{", "}"}]}]},
                    {
                    RowBox[{"distractor", "\[Rule]", 
                    RowBox[{"{", "}"}]}]},
                    {
                    RowBox[{"distractores", "\[Rule]", 
                    RowBox[{"{", "}"}]}]},
                    {
                    RowBox[{"completar", "\[Rule]", "False"}]},
                    {
                    RowBox[{"mixta", "\[Rule]", "False"}]},
                    {
                    StyleBox[
                    
                    TemplateBox[{
                    "\"(\"", "\"\[InvisibleSpace]\"", "5", "\" total)\""},
                    "RowDefault"], "InformationRowOpener",
                    StripOnInput->False]}
                    },
                    BaselinePosition->{Baseline, {1, 1}},
                    DefaultBaseStyle->"Column",
                    GridBoxAlignment->{"Columns" -> {{Left}}},
                    
                    GridBoxItemSize->{
                    "Columns" -> {{Automatic}}, "Rows" -> {{1.}}}], False->
                    RowBox[{
                    RowBox[{"encabezados", "\[Rule]", 
                    RowBox[{"{", "}"}]}], "\[ThinSpace]", 
                    StyleBox["\<\"\[Ellipsis]\"\>", "InformationRowOpener",
                    StripOnInput->False], "\[ThinSpace]", 
                    StyleBox[
                    
                    TemplateBox[{
                    "\"(\"", "\"\[InvisibleSpace]\"", "5", "\" total)\""},
                    "RowDefault"], "InformationRowOpener",
                    StripOnInput->False]}]}, Dynamic[
                    FEPrivate`Part[System`InformationDump`open$$, 3]],
                    BaselinePosition->Baseline,
                    ImageSize->Automatic]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Attributes\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Attributes\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Attributes", "Tooltip"]& ], 
                   RowBox[{"{", "Protected", "}"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"Incrustada`TablaHTML\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"Genera el c\[OAcute]digo correspondiente a una \
tabla HTML con respuestas desplegadas por defecto. Sintaxis: \
TablaHTML[Matriz], con \[LeftGuillemet]Matriz\[RightGuillemet] la matriz a \
pasar a tabla HTML. Presenta los atributos \
\[LeftGuillemet]encabezados->Conjunto\[RightGuillemet] que especifica en \
\[LeftGuillemet]Conjunto\[RightGuillemet] encabezados para las filas y las \
columnas, \[LeftGuillemet]distractor->Conjunto\[RightGuillemet] donde en \
\[LeftGuillemet]Conjunto\[RightGuillemet] se integran las opciones \
incorrectas para todas las respuestas desplegadas, \
\[LeftGuillemet]distractores->Conjunto\[RightGuillemet] si se quiere \
individualizar las opciones incorrectas para cada respuesta desplegada, \
\[LeftGuillemet]completar->True\[RightGuillemet] en caso de que se deseen \
respuestas de complete en todos los campos de la tabla y \
\[LeftGuillemet]mixta->True\[RightGuillemet] se usa cuando se requiere una \
mezcla pseudoaleatoria de respuestas desplegadas y de completar.\"\>", 
             "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{10., {3., 7.}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               ImageSizeCache->{10., {3., 7.}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "Genera el c\[OAcute]digo correspondiente a una tabla HTML con respuestas \
desplegadas por defecto. Sintaxis: TablaHTML[Matriz], con \
\[LeftGuillemet]Matriz\[RightGuillemet] la matriz a pasar a tabla HTML. \
Presenta los atributos \[LeftGuillemet]encabezados->Conjunto\[RightGuillemet] \
que especifica en \[LeftGuillemet]Conjunto\[RightGuillemet] encabezados para \
las filas y las columnas, \[LeftGuillemet]distractor->Conjunto\
\[RightGuillemet] donde en \[LeftGuillemet]Conjunto\[RightGuillemet] se \
integran las opciones incorrectas para todas las respuestas desplegadas, \
\[LeftGuillemet]distractores->Conjunto\[RightGuillemet] si se quiere \
individualizar las opciones incorrectas para cada respuesta desplegada, \
\[LeftGuillemet]completar->True\[RightGuillemet] en caso de que se deseen \
respuestas de complete en todos los campos de la tabla y \
\[LeftGuillemet]mixta->True\[RightGuillemet] se usa cuando se requiere una \
mezcla pseudoaleatoria de respuestas desplegadas y de completar.", 
    "Documentation" -> None, "OwnValues" -> None, "UpValues" -> None, 
    "DownValues" -> 
    Information`InformationValueForm[
     DownValues, Incrustada`TablaHTML, {Incrustada`TablaHTML[
         Pattern[Incrustada`Private`Matriz, 
          Blank[]], 
         OptionsPattern[]] :> Quiet[
         If[
          And[
           ListQ[
            OptionValue[Incrustada`encabezados]], 
           ListQ[
            OptionValue[Incrustada`distractor]], 
           ListQ[
            OptionValue[Incrustada`distractores]], 
           BooleanQ[
            OptionValue[Incrustada`completar]], 
           BooleanQ[
            OptionValue[Incrustada`mixta]], 
           ListQ[Incrustada`Private`Matriz], 
           IntegerQ[
            Part[
             Dimensions[Incrustada`Private`Matriz], 1]], 
           IntegerQ[
            Part[
             Dimensions[Incrustada`Private`Matriz], 2]]], 
          If[
           And[
            Or[Length[
               OptionValue[Incrustada`encabezados]] == 0, Length[
               OptionValue[Incrustada`encabezados]] == 2], 
            Or[Length[
               OptionValue[Incrustada`distractor]] == 0, Length[
               OptionValue[Incrustada`distractor]] == 1], Length[
              OptionValue[Incrustada`distractores]] <= Part[
               Dimensions[Incrustada`Private`Matriz], 1] Part[
               Dimensions[Incrustada`Private`Matriz], 2]], 
           If[
            Or[
             And[Length[
                Part[
                 OptionValue[Incrustada`encabezados], 1]] == Part[
                Dimensions[Incrustada`Private`Matriz], 1], Length[
                Part[
                 OptionValue[Incrustada`encabezados], 2]] == Part[
                Dimensions[Incrustada`Private`Matriz], 2]], Length[
               OptionValue[Incrustada`encabezados]] == 0], 
            If[
             Not[
              MemberQ[
               Map[ListQ, 
                OptionValue[Incrustada`distractores]], False]], 
             Module[{Incrustada`Private`n = Part[
                 Dimensions[Incrustada`Private`Matriz], 1], 
               Incrustada`Private`m = Part[
                 Dimensions[Incrustada`Private`Matriz], 2], 
               Incrustada`Private`MatrizAux, Incrustada`Private`tablaHTML = 
               "<table border=1><tbody>", Incrustada`Private`correctas, 
               Incrustada`Private`incorrectas, Incrustada`Private`i, 
               Incrustada`Private`j, Incrustada`Private`opcions = {}, 
               Incrustada`Private`contador = 1, Incrustada`Private`vmixto}, 
              For[Incrustada`Private`i = 1, Incrustada`Private`i <= 
                Incrustada`Private`n, 
                For[Incrustada`Private`j = 1, Incrustada`Private`j <= 
                  Incrustada`Private`m, 
                  Incrustada`Private`opcions = 
                   Append[Incrustada`Private`opcions, 
                    Part[
                    Incrustada`Private`Matriz, Incrustada`Private`i, 
                    Incrustada`Private`j]]; Increment[Incrustada`Private`j]]; 
                Increment[Incrustada`Private`i]]; 
              Incrustada`Private`opcions = 
               DeleteDuplicates[Incrustada`Private`opcions]; If[
                And[
                 BooleanQ[Incrustada`Desplegada[
                    Evaluate[Incrustada`Private`opcions], {}, 
                    Incrustada`bandera -> 1] != ToString[Null]], 
                 Or[
                  BooleanQ[Incrustada`Desplegada[
                    Evaluate[
                    OptionValue[Incrustada`distractor]], {}, 
                    Incrustada`bandera -> 1] != ToString[Null]], 
                  OptionValue[Incrustada`distractor] == {}], 
                 Or[
                  BooleanQ[Incrustada`Desplegada[
                    Evaluate[
                    OptionValue[Incrustada`distractores]], {}, 
                    Incrustada`bandera -> 1] != ToString[Null]], 
                  OptionValue[Incrustada`distractores] == {}]], If[Length[
                    OptionValue[Incrustada`encabezados]] == 0, 
                  Incrustada`Private`MatrizAux = Incrustada`Private`Matriz, 
                  Incrustada`Private`MatrizAux = Transpose[
                    Join[{
                    Prepend[
                    Part[
                    OptionValue[Incrustada`encabezados], 1], ""]}, 
                    Transpose[
                    Join[{
                    Part[
                    OptionValue[Incrustada`encabezados], 2]}, 
                    Incrustada`Private`Matriz]]]]]; 
                Incrustada`Private`n = Part[
                   Dimensions[Incrustada`Private`MatrizAux], 1]; 
                Incrustada`Private`m = Part[
                   Dimensions[Incrustada`Private`MatrizAux], 2]; 
                For[Incrustada`Private`i = 1, Incrustada`Private`i <= 
                  Incrustada`Private`n, 
                  Incrustada`Private`tablaHTML = 
                   Incrustada`Private`tablaHTML <> "<tr>"; 
                  For[Incrustada`Private`j = 1, Incrustada`Private`j <= 
                    Incrustada`Private`m, Incrustada`Private`correctas = {
                    Part[
                    Incrustada`Private`MatrizAux, Incrustada`Private`i, 
                    Incrustada`Private`j]}; If[Length[
                    OptionValue[Incrustada`distractor]] == 1, 
                    Incrustada`Private`incorrectas = Complement[
                    Part[
                    OptionValue[Incrustada`distractor], 1], 
                    Incrustada`Private`correctas], 
                    If[
                    And[Incrustada`Private`contador <= Length[
                    OptionValue[Incrustada`distractores]], 
                    Not[
                    MemberQ[
                    Union[
                    Flatten[
                    OptionValue[Incrustada`encabezados]], {""}], 
                    Part[
                    Incrustada`Private`MatrizAux, Incrustada`Private`i, 
                    Incrustada`Private`j]]]], 
                    Incrustada`Private`incorrectas = Complement[
                    Part[
                    OptionValue[Incrustada`distractores], 
                    Incrustada`Private`contador], 
                    Incrustada`Private`correctas]; 
                    Increment[Incrustada`Private`contador], 
                    Incrustada`Private`incorrectas = 
                    Complement[
                    Incrustada`Private`opcions, 
                    Incrustada`Private`correctas]]]; 
                    Incrustada`Private`vmixto = RandomInteger[]; 
                    Incrustada`Private`tablaHTML = 
                    Incrustada`Private`tablaHTML <> "<td>" <> If[
                    And[Length[
                    OptionValue[Incrustada`encabezados]] != 0, 
                    Or[Incrustada`Private`i == 1, Incrustada`Private`j == 1]], 
                    Incrustada`ToLatex[
                    Evaluate[
                    Part[
                    Incrustada`Private`MatrizAux, Incrustada`Private`i, 
                    Incrustada`Private`j]]], 
                    If[
                    Not[
                    OptionValue[Incrustada`completar]], 
                    If[
                    OptionValue[Incrustada`mixta], 
                    If[Incrustada`Private`vmixto == 0, 
                    Incrustada`Desplegada[
                    Evaluate[Incrustada`Private`correctas], 
                    Evaluate[Incrustada`Private`incorrectas]], 
                    Incrustada`ShortAnswer[
                    Evaluate[Incrustada`Private`correctas]]], 
                    Incrustada`Desplegada[
                    Evaluate[Incrustada`Private`correctas], 
                    Evaluate[Incrustada`Private`incorrectas]]], 
                    If[
                    OptionValue[Incrustada`mixta], 
                    If[Incrustada`Private`vmixto == 0, 
                    Incrustada`Desplegada[
                    Evaluate[Incrustada`Private`correctas], 
                    Evaluate[Incrustada`Private`incorrectas]], 
                    Incrustada`ShortAnswer[
                    Evaluate[Incrustada`Private`correctas]]], 
                    Incrustada`ShortAnswer[
                    Evaluate[Incrustada`Private`correctas]]]]] <> "</td>"; 
                    Increment[Incrustada`Private`j]]; 
                  Incrustada`Private`tablaHTML = 
                   Incrustada`Private`tablaHTML <> "</tr>"; 
                  Increment[Incrustada`Private`i]]; 
                Incrustada`Private`tablaHTML = 
                 Incrustada`Private`tablaHTML <> "</tbody></table>"; 
                CopyToClipboard[Incrustada`Private`tablaHTML]; 
                Incrustada`Private`tablaHTML]]]]]]]}], "SubValues" -> None, 
    "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, 
    "Options" -> {
     Incrustada`encabezados -> {}, Incrustada`distractor -> {}, 
      Incrustada`distractores -> {}, Incrustada`completar -> False, 
      Incrustada`mixta -> False}, "Attributes" -> {Protected}, "FullName" -> 
    "Incrustada`TablaHTML"|>, False]]], "Output",
 CellChangeTimes->{3.887105356209942*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"10f78171-dfdd-4227-a82a-7fe0aeb744bd"]
}, Open  ]]
},
WindowSize->{812.5714285714286, 390.},
WindowMargins->{{-822.8571428571428, Automatic}, {Automatic, 0}},
FrontEndVersion->"13.2 para Microsoft Windows (64-bit) (January 30, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"2cddcd89-798e-4aab-9617-56016ec8fd1f"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 284, 5, 99, "Input",ExpressionUUID->"83819aa0-33b3-49c7-8290-d8a0d9126814"],
Cell[CellGroupData[{
Cell[867, 29, 199, 3, 28, "Input",ExpressionUUID->"8d11783c-76c5-4852-a759-757f665d81e5"],
Cell[1069, 34, 24130, 460, 93, "Output",ExpressionUUID->"9135fd1f-a631-4a80-bf28-488dca89f176"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25236, 499, 199, 3, 28, "Input",ExpressionUUID->"a067e8c2-77a0-4cbc-92f1-fe932d79a092"],
Cell[25438, 504, 23835, 532, 169, "Output",ExpressionUUID->"47e47b63-7bb5-4496-9dbc-1a4ee5808dd4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49310, 1041, 193, 3, 28, "Input",ExpressionUUID->"b7fa261a-9448-4725-8cd5-08f5f27967ce"],
Cell[49506, 1046, 14440, 342, 143, "Output",ExpressionUUID->"679cec83-f815-4a9d-b1a1-6c8b4a5f6cff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63983, 1393, 195, 3, 28, "Input",ExpressionUUID->"7692b5e9-6133-4f5d-b2e2-878d116e213e"],
Cell[64181, 1398, 35562, 774, 220, "Output",ExpressionUUID->"033e5c59-2c85-459a-a32f-c786d5b992eb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99780, 2177, 200, 3, 28, "Input",ExpressionUUID->"9ed6b8e9-242d-4e8b-90d7-14d70eca9f64"],
Cell[99983, 2182, 14703, 344, 143, "Output",ExpressionUUID->"0be864ed-5a72-4857-bdbd-0caef7bbaff9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[114723, 2531, 203, 3, 28, "Input",ExpressionUUID->"119584be-f54d-4b36-85d7-502e0a5efcbc"],
Cell[114929, 2536, 14639, 334, 169, "Output",ExpressionUUID->"3e33e015-d546-4e67-90e8-dde881691f53"]
}, Open  ]],
Cell[CellGroupData[{
Cell[129605, 2875, 200, 3, 28, "Input",ExpressionUUID->"d222cee6-078b-444c-bc59-1d8bbca6d257"],
Cell[129808, 2880, 46873, 1006, 243, "Output",ExpressionUUID->"10f78171-dfdd-4227-a82a-7fe0aeb744bd"]
}, Open  ]]
}
]
*)

