Tweet
Hola a todos!!
Veréis, hoy he estado haciendo una práctica (De un trasformador) en mathematica, sobre una plantilla ya hecha. Eran unas cuantas tablas todas ellas llenas de datos del voltaje, intensidades etc etc....
Ahora me da por abrir el archivo y me sale el archivo encriptado, veo los datos, pero no en el formato. Tal que así:
Cell["Transformador: datos experimentales", "Section",
CellChangeTimes->{{3.4141361397156277`*^9, 3.414136144792377*^9}}],
Cell["\<\
Resistencia presentada por la bobina de 1600 vueltas, la de 3200 vueltas y \
por la resistencia de carga.\
\>", "Text",
CellChangeTimes->{{3.527924353244554*^9, 3.5279243849714108`*^9}}],
Cell[BoxData[
RowBox[{"resistencias", "=", GridBox[{
{"\"\<R1\>\"", "\"\<R2\>\"", "\"\<RL\>\""},
{"34.2", "154.9", "468.3"}
},
GridBoxDividers->{
"Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {},
"Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]}]], "Input",
CellChangeTimes->{{3.41413618053846*^9, 3.414136214055463*^9}, {
3.5296890835890493`*^9, 3.529689134304739*^9}}],
Cell["Primario 1600 vueltas , secundario 3200 vueltas.", "Text",
CellChangeTimes->{{3.414137008234374*^9, 3.414137027721266*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"nuEsincarga12", "=", GridBox[{
{"\"\<f(Hz)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(1\)]\)(Vpp)\>\"",
"\"\<I1(mA)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(2\)]\)(Vpp)\>\"",
"\"\<\[CapitalDelta]t(ms)\>\"", "\"\<I2 (mA)\>\""},
{"50.0",
RowBox[{"1.14", "V"}], "38.62",
RowBox[{"152", "mV"}], "7.65", "0.00"},
{"50.0",
RowBox[{"1.53", "V"}], "107.3",
RowBox[{"192", "mV"}], "7.92", "0.00"},
{"50.0",
RowBox[{"2.04", "V"}], "132.4",
RowBox[{"232", "mV"}], "8.30", "0.01"},
{"100.0",
RowBox[{"1.14", "V"}], "7.31",
RowBox[{"164", "mV"}], "5.17", "0.01"},
{"100.0",
RowBox[{"1.53", "V"}], "90.6",
RowBox[{"200", "mV"}], "4.80", "0.02"},
{"100.0",
RowBox[{"2.04", "V"}], "138.7",
RowBox[{"272", "mV"}], "4.95", "0.03"},
{"150.0",
RowBox[{"1.14", "V"}], "13.2",
RowBox[{"164", "mV"}], "3.25", "0.01"},
{"150.0",
RowBox[{"1.53", "V"}], "45.7",
RowBox[{"196", "mV"}], "3.57", "0.03"},
{"150.0",
RowBox[{"2.04", "V"}], "139.3",
RowBox[{"238", "mV"}], "3.50", "0.06"},
{"200.0",
RowBox[{"1.14", "V"}], "18.1",
RowBox[{"152", "mV"}], "2.15", "0.02"},
{"200.0",
RowBox[{"1.53", "V"}], "20.7",
RowBox[{"180", "mV"}], "2.20", "0.04"},
{"200.0",
RowBox[{"2.04", "V"}], "120.3",
RowBox[{"224", "mV"}], "2.02", "0.08"}
},
GridBoxDividers->{
"Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {},
"Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]}],
";"}]], "Input",
CellChangeTimes->{{3.41390603259128*^9, 3.413906082864594*^9}, {
3.413906120131359*^9, 3.413906335886012*^9}, {3.4139063670831137`*^9,
3.413906383771069*^9}, {3.41390643182437*^9, 3.413906489380444*^9}, {
3.41413623761623*^9, 3.414136317213168*^9}, 3.4141369005852013`*^9, {
3.414136991023224*^9, 3.4141369938163757`*^9}, {3.529931759342626*^9,
3.5299318026171017`*^9}, {3.5299320427327237`*^9,
3.5299320956948166`*^9}, {3.5299321570809245`*^9,
3.5299321652241387`*^9}, {3.529932197594196*^9, 3.5299322537698946`*^9}, {
3.529932312035997*^9, 3.5299323141576004`*^9}, {3.529932374326906*^9,
3.529932375871309*^9}, {3.529932433029809*^9, 3.5299324489418373`*^9}, {
3.529932563789239*^9, 3.5299325918536882`*^9}, {3.5299326614298105`*^9,
3.529932688495858*^9}, {3.5299327260919237`*^9, 3.5299327695068007`*^9}, {
3.529932822032092*^9, 3.529932855837352*^9}, {3.5299329957227974`*^9,
3.5299330219308434`*^9}, {3.529933058528508*^9, 3.529933060416111*^9}, {
3.529933096452174*^9, 3.5299331397110505`*^9}, {3.5299331948415475`*^9,
3.529933214310382*^9}, {3.5299332781144934`*^9, 3.5299333492974186`*^9}, {
3.5299333805286736`*^9, 3.5299334082967224`*^9}, {3.5299344402073345`*^9,
3.5299344406285353`*^9}, 3.529935499745596*^9, {3.52993706225994*^9,
3.529937202597787*^9}}],
Cell["Primario 3200 vueltas , secundario 1600 vueltas.", "Text",
CellChangeTimes->{{3.414137008234374*^9, 3.4141370581037807`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"nuEsincarga21", "=",
RowBox[{GridBox[{
{"\"\<f(Hz)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(1\)]\)(Vpp)\>\"",
"\"\<I1(mA)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(2\)]\)(Vpp)\>\"",
"\"\<\[CapitalDelta]t(ms)\>\"", "\"\<I2 (mA)\>\""},
{"50.0",
RowBox[{"1.14", "V"}], "12.79",
RowBox[{"144", "mV"}], "7.70", "0.00"},
{"50.0",
RowBox[{"1.53", "V"}], "9.89",
RowBox[{"168", "mV"}], "8.12", "0.00"},
{"50.0",
RowBox[{"2.04", "V"}], "59.81",
RowBox[{"232", "mV"}], "8.95", "0.01"},
{"100.0",
RowBox[{"1.14", "V"}], "12.8",
RowBox[{"144", "mV"}], "5.05", "0.01"},
{"100.0",
RowBox[{"1.53", "V"}], "19.30",
RowBox[{"192", "mV"}], "4.90", "0.01"},
{"100.0",
RowBox[{"2.04", "V"}], "28.60",
RowBox[{"232", "mV"}], "5.05", "0.02"},
{"150.0",
RowBox[{"1.14", "V"}], "13.8",
RowBox[{"140", "mV"}], "3.27", "0.01"},
{"150.0",
RowBox[{"1.53", "V"}], "19.4",
RowBox[{"176", "mV"}], "3.70", "0.02"},
{"150.0",
RowBox[{"2.04", "V"}], "28.18",
RowBox[{"224", "mV"}], "3.65", "0.04"},
{"200.0",
RowBox[{"1.14", "V"}], "14.1",
RowBox[{"136", "mV"}], "2.25", "0.02"},
{"200.0",
RowBox[{"1.53", "V"}], "19.3",
RowBox[{"176", "mV"}], "2.20", "0.04"},
{"200.0",
RowBox[{"2.04", "V"}], "27.5",
RowBox[{"212", "mV"}], "2.25", "0.07"}
},
GridBoxDividers->{
"Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {},
"Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]}]}],
";"}]], "Input",
CellChangeTimes->{{3.41390603259128*^9, 3.413906082864594*^9}, {
3.413906120131359*^9, 3.413906335886012*^9}, {3.4139063670831137`*^9,
3.413906383771069*^9}, {3.41390643182437*^9, 3.413906489380444*^9}, {
3.41413623761623*^9, 3.414136317213168*^9}, 3.4141369005852013`*^9, {
3.414136991023224*^9, 3.4141369938163757`*^9}, {3.41413704342487*^9,
3.414137044821088*^9}, 3.5299334921468697`*^9, {3.529933539087352*^9,
3.5299335848110323`*^9}, {3.5299336652603736`*^9,
3.5299336668515763`*^9}, {3.5299337048220434`*^9,
3.5299339300084386`*^9}, {3.5299344435769405`*^9, 3.5299344441697416`*^9},
3.529935495783189*^9, {3.5299372603958883`*^9, 3.5299373555872555`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"nuEconcarga", "=", GridBox[{
{"\"\<f(Hz)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(1\)]\)(Vpp)\>\"",
"\"\<I1(mA)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(2\)]\)(Vpp)\>\"",
"\"\<\[CapitalDelta]t(ms)\>\"", "\"\<I2 (mA)\>\""},
{"50.0",
RowBox[{"1.14", "V"}], "12.90", "124", "9.30", "0.00"},
{"50.0",
RowBox[{"1.53", "V"}], "9.81", "156", "8.90", "0.00"},
{"50.0",
RowBox[{"2.04", "V"}], "18.71", "200", "8.55", "0.00"},
{"100.0",
RowBox[{"1.14", "V"}], "13.43", "136", "5.05", "0.00"},
{"100.0",
RowBox[{"1.53", "V"}], "18.84", "172", "5.15", "0.01"},
{"100.0",
RowBox[{"2.04", "V"}], "27.3", "220", "4.95", "0.02"},
{"150.0",
RowBox[{"1.14", "V"}], "12.70", "132", "3.25", "0.01"},
{"150.0",
RowBox[{"1.53", "V"}], "19.53", "160", "3.30", "0.02"},
{"150.0",
RowBox[{"2.04", "V"}], "27.76", "220", "3.60", "0.04"},
{"200.0",
RowBox[{"1.14", "V"}], "13.35", "128", "2.30", "0.01"},
{"200.0",
RowBox[{"1.53", "V"}], "18.11", "172", "2.20", "0.02"},
{"200.0",
RowBox[{"2.04", "V"}], "28.36", "208", "2.25", "0.05"}
},
GridBoxDividers->{
"Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {},
"Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]}],
";"}]], "Input",
CellChangeTimes->{{3.41390603259128*^9, 3.413906082864594*^9}, {
3.413906120131359*^9, 3.413906335886012*^9}, {3.4139063670831137`*^9,
3.413906383771069*^9}, {3.41390643182437*^9, 3.413906489380444*^9}, {
3.41413623761623*^9, 3.414136317213168*^9}, {3.414136888220975*^9,
3.4141368957861977`*^9}, {3.4141369347983503`*^9,
3.4141369483783092`*^9}, {3.4141370019196167`*^9,
3.4141370022144547`*^9}, {3.414137062078656*^9, 3.4141370622517443`*^9},
3.527924286822407*^9, {3.529934164648451*^9, 3.5299344123144855`*^9}, {
3.529934447554948*^9, 3.529934448147749*^9}, 3.529935491914382*^9, {
3.5299373927153206`*^9, 3.5299374835074797`*^9}, {3.5299375148167353`*^9,
3.5299375242547517`*^9}, {3.529937554862005*^9, 3.529937559323613*^9}}],
Cell["Primario 1600 vueltas , secundario 3200 vueltas.", "Text",
CellChangeTimes->{{3.414137008234374*^9, 3.414137027721266*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"nuUsincarga12", "=", GridBox[{
{"\"\<f(Hz)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(1\)]\)(Vpp)\>\"",
"\"\<I1(mA)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(2\)]\)(Vpp)\>\"",
"\"\<\[CapitalDelta]t(ms)\>\"", "\"\<I2(mA)\>\""},
{"50.0",
RowBox[{"1.14", "V"}], "67.8", "152", "4.28", "0.00"},
{"50.0",
RowBox[{"1.53", "V"}], "117.2", "176", "4.14", "0.00"},
{"50.0",
RowBox[{"2.04", "V"}], "140.0", "232", "3.80", "0.01"},
{"100.0",
RowBox[{"1.14", "V"}], "50.12", "216", "7.98", "0.02"},
{"100.0",
RowBox[{"1.53", "V"}], "119.8", "200", "8
{"100.0",
RowBox[{"1.14", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]", "\[Placeholder]"},
{"100.0",
RowBox[{"1.53", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]", "\[Placeholder]"},
{"100.0",
RowBox[{"2.04", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]", "\[Placeholder]"},
{"150.0",
RowBox[{"1.14", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]", "\[Placeholder]"},
{"150.0",
RowBox[{"1.53", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]", "\[Placeholder]"},
{"150.0",
RowBox[{"2.04", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]", "\[Placeholder]"},
{"200.0",
RowBox[{"1.14", "V"}], "13.82", "264", "2.14", "0.10"},
{"200.0",
RowBox[{"1.53", "V"}], "21.12", "360", "2.10", "0.17"},
{"200.0",
RowBox[{"2.04", "V"}], "51.73", "470", "2.24", "0.17"}
},
GridBoxDividers->{
"Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {},
"Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]}],
";"}]], "Input",
CellChangeTimes->{{3.41390603259128*^9, 3.413906082864594*^9}, {
3.413906120131359*^9, 3.413906335886012*^9}, {3.4139063670831137`*^9,
3.413906383771069*^9}, {3.41390643182437*^9, 3.413906489380444*^9}, {
3.41413623761623*^9, 3.414136317213168*^9}, 3.4141369005852013`*^9, {
3.414136965213353*^9, 3.414136965589903*^9}, {3.414137078953883*^9,
3.414137079078268*^9}, 3.52993422687696*^9, {3.5299344548089604`*^9,
3.5299344552769613`*^9}, 3.5,
35488388776*^9, {3.529935965266013*^9,
3.5299359792124376`*^9}, {3.529936027993724*^9, 3.5299360705661983`*^9}}],
Cell["Primari,
200 vueltas , secundario 1600 vueltas.", "Text",
CellChangeTimes->{{3.414137008234374*^9, 3.4141370581037807`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"nuUsincarga21", "=", GridBox[{
{"\"\<f(Hz)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(1\)]\)(Vpp)\>\"",
"\"\<I1(mA)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(2\)]\)(Vpp)\>\"",
"\"\<\[CapitalDelta]t(ms)\>\"", "\"\<I2(mA)\>\""},
{"50.0",
RowBox[{"1.14", "V"}], "26.92", "152", "6.45", "0.00"},
{"50.0",
RowBox[{"1.53", "V"}], "100.4", "192", "6.15", "0.01"},
{"50.0",
RowBox[{"2.04", "V"}], "128", "252", "6.75", "0.01"},
{"100.0",
RowBox[{"1.14", "V"}], "9.32", "208", "3.70", "0.02"},
{"100.0",
RowBox[{"1.53", "V"}], "60.21", "276", "3.80", "0.04"},
{"100.0",
RowBox[{"2.04", "V"}], "120.00", "372", "6.05", "0.07"},
{"150.0",
RowBox[{"1.14", "V"}], "13.92", "256", "4.02", "0.06"},
{"150.0",
RowBox[{"1.53", "V"}], "15.38", "336", "3.70", "0.11"},
{"150.0",
RowBox[{"2.04", "V"}], "111", "448", "3.74", "0.16"},
{"200.0",
RowBox[{"1.14", "V"}], "13.08", "164", "2.18", "0.12"},
{"200.0",
RowBox[{"1.53", "V"}], "21.12", "362", "2.12", "0.21"},
{"200.0",
RowBox[{"2.04", "V"}], "58.87", "480", "2.20", "0.29"}
},
GridBoxDividers->{
"Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {},
"Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]}],
";"}]], "Input",
CellChangeTimes->{{3.41390603259128*^9, 3.413906082864594*^9}, {
3.413906120131359*^9, 3.413906335886012*^9}, {3.4139063670831137`*^9,
3.413906383771069*^9}, {3.41390643182437*^9, 3.413906489380444*^9}, {
3.41413623761623*^9, 3.414136317213168*^9}, 3.4141369005852013`*^9, {
3.414136965213353*^9, 3.414136965589903*^9}, {3.414137078953883*^9,
3.4141371024470997`*^9}, {3.52993446031577*^9, 3.529934460690171*^9},
3.5299345199390745`*^9, {3.5299346074864283`*^9, 3.529934650511304*^9}, {
3.529934696640585*^9, 3.529934741631064*^9}, {3.529934823406408*^9,
3.5299349100489597`*^9}, {3.529934942653017*^9, 3.5299349641186547`*^9}, {
3.5299353295648966`*^9, 3.5299353362573085`*^9}, {3.529935389484602*^9,
3.5299354010754223`*^9}, {3.529935442852296*^9, 3.5299354676407394`*^9}, {
3.5299355053616056`*^9, 3.529935587074549*^9}, {3.529935630848226*^9,
3.5299356586630745`*^9}, {3.5299356954167395`*^9,
3.5299357977685194`*^9}, {3.5299358536322174`*^9, 3.529935,
786619*^9}, {
3.5299358,
830744`*^9, 3.529935927014746*^9}}],
Cell[BoxData[""], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{"nuUconcarga", "=",
RowBox[{GridBox[{
{"\"\<f(Hz)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(1\)]\)(Vpp)\>\"",
"\"\<I1(mA)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(2\)]\)(Vpp)\>\"",
"\"\<\[CapitalDelta]t(ms)\>\""},
{"50.0",
RowBox[{"1.14", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"50.0",
RowBox[{"1.53", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"50.0",
RowBox[{"2.04", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"100.0",
RowBox[{"1.14", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"100.0",
RowBox[{"1.53", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"100.0",
RowBox[{"2.04", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"150.0",
RowBox[{"1.14", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"150.0",
RowBox[{"1.53", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"150.0",
RowBox[{"2.04", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"200.0",
RowBox[{"1.14", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"200.0",
RowBox[{"1.53", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"200.0",
RowBox[{"2.04", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"}
},
GridBoxDividers->{
"Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {},
"Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}], GridBox[{
{"\"\<I1(mA)\>\""},
{"\[Placeholder]"},
{"\[Placeholder]"},
{"\[Placeholder]"},
{"\[Plac
}, Open ]]
},
WindowSize->{1904, 945},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 73, 0, 71, "Section"],
Cell[CellGroupData[{
Cell[665, 26, 32, 0, 70, "Subsection"],
Cell[700, 28, 2479, 54, 70, "Input"],
Cell[3182, 84, 796, 13, 70, "Input"],
Cell[3981, 99, 648, 12, 70, "Input"],
Cell[4632, 113, 131, 1, 70, "Text"],
Cell[4766, 116, 602, 11, 70, "Input"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[5417, 133, 172, 2, 41, "Section"],
Cell[5592, 137, 122, 1, 70, "Text"],
Cell[5717, 140, 2529, 54, 70, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[8283, 199, 141, 1, 41, "Section"],
Cell[8427, 202, 445, 9, 70, "Input"],
Cell[8875, 213, 5216, 161, 70, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[14128, 379, 117, 1, 41, "Section"],
Cell[14248, 382, 122, 1, 70, "Text"],
Cell[14373, 385, 275, 5, 70, "Input"],
Cell[14651, 392, 2514, 54, 70, "Input"],
Cell[17168, 448, 2560, 54, 70, "Input"],
Cell[19731, 504, 2611, 55, 70, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[22379, 564, 122, 1, 41, "Section"],
Cell[22504, 567, 197, 4, 29, "Text"],
Cell[22704, 573, 416, 9, 43, "Input"],
Cell[23123, 584, 130, 1, 29, "Text"],
Cell[23256, 587, 2990, 65, 219, "Input"],
Cell[26249, 654, 132, 1, 29, "Text"],
Cell[26384, 657, 2410, 57, 219, "Input"],
Cell[28797, 716, 2153, 45, 219, "Input"],
Cell[30953, 763, 130, 1, 29, "Text"],
Cell[31086, 766, 2273, 51, 219, "Input"],
Cell[33362, 819, 132, 1, 29, "Text"],
Cell[33497, 822, 2505, 50, 219, "Input"],
Cell[36005, 874, 26, 0, 31, "Input"],
Cell[36034, 876, 1944, 41, 219, "Input"]
}, Open ]]
}
]
*)
¿Cómo puedo arreglarlo sin tener que ir dato por dato cogiendolos y recuperándolos?
Muchas gracias a todos
Veréis, hoy he estado haciendo una práctica (De un trasformador) en mathematica, sobre una plantilla ya hecha. Eran unas cuantas tablas todas ellas llenas de datos del voltaje, intensidades etc etc....
Ahora me da por abrir el archivo y me sale el archivo encriptado, veo los datos, pero no en el formato. Tal que así:
Cell["Transformador: datos experimentales", "Section",
CellChangeTimes->{{3.4141361397156277`*^9, 3.414136144792377*^9}}],
Cell["\<\
Resistencia presentada por la bobina de 1600 vueltas, la de 3200 vueltas y \
por la resistencia de carga.\
\>", "Text",
CellChangeTimes->{{3.527924353244554*^9, 3.5279243849714108`*^9}}],
Cell[BoxData[
RowBox[{"resistencias", "=", GridBox[{
{"\"\<R1\>\"", "\"\<R2\>\"", "\"\<RL\>\""},
{"34.2", "154.9", "468.3"}
},
GridBoxDividers->{
"Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {},
"Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]}]], "Input",
CellChangeTimes->{{3.41413618053846*^9, 3.414136214055463*^9}, {
3.5296890835890493`*^9, 3.529689134304739*^9}}],
Cell["Primario 1600 vueltas , secundario 3200 vueltas.", "Text",
CellChangeTimes->{{3.414137008234374*^9, 3.414137027721266*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"nuEsincarga12", "=", GridBox[{
{"\"\<f(Hz)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(1\)]\)(Vpp)\>\"",
"\"\<I1(mA)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(2\)]\)(Vpp)\>\"",
"\"\<\[CapitalDelta]t(ms)\>\"", "\"\<I2 (mA)\>\""},
{"50.0",
RowBox[{"1.14", "V"}], "38.62",
RowBox[{"152", "mV"}], "7.65", "0.00"},
{"50.0",
RowBox[{"1.53", "V"}], "107.3",
RowBox[{"192", "mV"}], "7.92", "0.00"},
{"50.0",
RowBox[{"2.04", "V"}], "132.4",
RowBox[{"232", "mV"}], "8.30", "0.01"},
{"100.0",
RowBox[{"1.14", "V"}], "7.31",
RowBox[{"164", "mV"}], "5.17", "0.01"},
{"100.0",
RowBox[{"1.53", "V"}], "90.6",
RowBox[{"200", "mV"}], "4.80", "0.02"},
{"100.0",
RowBox[{"2.04", "V"}], "138.7",
RowBox[{"272", "mV"}], "4.95", "0.03"},
{"150.0",
RowBox[{"1.14", "V"}], "13.2",
RowBox[{"164", "mV"}], "3.25", "0.01"},
{"150.0",
RowBox[{"1.53", "V"}], "45.7",
RowBox[{"196", "mV"}], "3.57", "0.03"},
{"150.0",
RowBox[{"2.04", "V"}], "139.3",
RowBox[{"238", "mV"}], "3.50", "0.06"},
{"200.0",
RowBox[{"1.14", "V"}], "18.1",
RowBox[{"152", "mV"}], "2.15", "0.02"},
{"200.0",
RowBox[{"1.53", "V"}], "20.7",
RowBox[{"180", "mV"}], "2.20", "0.04"},
{"200.0",
RowBox[{"2.04", "V"}], "120.3",
RowBox[{"224", "mV"}], "2.02", "0.08"}
},
GridBoxDividers->{
"Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {},
"Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]}],
";"}]], "Input",
CellChangeTimes->{{3.41390603259128*^9, 3.413906082864594*^9}, {
3.413906120131359*^9, 3.413906335886012*^9}, {3.4139063670831137`*^9,
3.413906383771069*^9}, {3.41390643182437*^9, 3.413906489380444*^9}, {
3.41413623761623*^9, 3.414136317213168*^9}, 3.4141369005852013`*^9, {
3.414136991023224*^9, 3.4141369938163757`*^9}, {3.529931759342626*^9,
3.5299318026171017`*^9}, {3.5299320427327237`*^9,
3.5299320956948166`*^9}, {3.5299321570809245`*^9,
3.5299321652241387`*^9}, {3.529932197594196*^9, 3.5299322537698946`*^9}, {
3.529932312035997*^9, 3.5299323141576004`*^9}, {3.529932374326906*^9,
3.529932375871309*^9}, {3.529932433029809*^9, 3.5299324489418373`*^9}, {
3.529932563789239*^9, 3.5299325918536882`*^9}, {3.5299326614298105`*^9,
3.529932688495858*^9}, {3.5299327260919237`*^9, 3.5299327695068007`*^9}, {
3.529932822032092*^9, 3.529932855837352*^9}, {3.5299329957227974`*^9,
3.5299330219308434`*^9}, {3.529933058528508*^9, 3.529933060416111*^9}, {
3.529933096452174*^9, 3.5299331397110505`*^9}, {3.5299331948415475`*^9,
3.529933214310382*^9}, {3.5299332781144934`*^9, 3.5299333492974186`*^9}, {
3.5299333805286736`*^9, 3.5299334082967224`*^9}, {3.5299344402073345`*^9,
3.5299344406285353`*^9}, 3.529935499745596*^9, {3.52993706225994*^9,
3.529937202597787*^9}}],
Cell["Primario 3200 vueltas , secundario 1600 vueltas.", "Text",
CellChangeTimes->{{3.414137008234374*^9, 3.4141370581037807`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"nuEsincarga21", "=",
RowBox[{GridBox[{
{"\"\<f(Hz)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(1\)]\)(Vpp)\>\"",
"\"\<I1(mA)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(2\)]\)(Vpp)\>\"",
"\"\<\[CapitalDelta]t(ms)\>\"", "\"\<I2 (mA)\>\""},
{"50.0",
RowBox[{"1.14", "V"}], "12.79",
RowBox[{"144", "mV"}], "7.70", "0.00"},
{"50.0",
RowBox[{"1.53", "V"}], "9.89",
RowBox[{"168", "mV"}], "8.12", "0.00"},
{"50.0",
RowBox[{"2.04", "V"}], "59.81",
RowBox[{"232", "mV"}], "8.95", "0.01"},
{"100.0",
RowBox[{"1.14", "V"}], "12.8",
RowBox[{"144", "mV"}], "5.05", "0.01"},
{"100.0",
RowBox[{"1.53", "V"}], "19.30",
RowBox[{"192", "mV"}], "4.90", "0.01"},
{"100.0",
RowBox[{"2.04", "V"}], "28.60",
RowBox[{"232", "mV"}], "5.05", "0.02"},
{"150.0",
RowBox[{"1.14", "V"}], "13.8",
RowBox[{"140", "mV"}], "3.27", "0.01"},
{"150.0",
RowBox[{"1.53", "V"}], "19.4",
RowBox[{"176", "mV"}], "3.70", "0.02"},
{"150.0",
RowBox[{"2.04", "V"}], "28.18",
RowBox[{"224", "mV"}], "3.65", "0.04"},
{"200.0",
RowBox[{"1.14", "V"}], "14.1",
RowBox[{"136", "mV"}], "2.25", "0.02"},
{"200.0",
RowBox[{"1.53", "V"}], "19.3",
RowBox[{"176", "mV"}], "2.20", "0.04"},
{"200.0",
RowBox[{"2.04", "V"}], "27.5",
RowBox[{"212", "mV"}], "2.25", "0.07"}
},
GridBoxDividers->{
"Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {},
"Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]}]}],
";"}]], "Input",
CellChangeTimes->{{3.41390603259128*^9, 3.413906082864594*^9}, {
3.413906120131359*^9, 3.413906335886012*^9}, {3.4139063670831137`*^9,
3.413906383771069*^9}, {3.41390643182437*^9, 3.413906489380444*^9}, {
3.41413623761623*^9, 3.414136317213168*^9}, 3.4141369005852013`*^9, {
3.414136991023224*^9, 3.4141369938163757`*^9}, {3.41413704342487*^9,
3.414137044821088*^9}, 3.5299334921468697`*^9, {3.529933539087352*^9,
3.5299335848110323`*^9}, {3.5299336652603736`*^9,
3.5299336668515763`*^9}, {3.5299337048220434`*^9,
3.5299339300084386`*^9}, {3.5299344435769405`*^9, 3.5299344441697416`*^9},
3.529935495783189*^9, {3.5299372603958883`*^9, 3.5299373555872555`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"nuEconcarga", "=", GridBox[{
{"\"\<f(Hz)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(1\)]\)(Vpp)\>\"",
"\"\<I1(mA)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(2\)]\)(Vpp)\>\"",
"\"\<\[CapitalDelta]t(ms)\>\"", "\"\<I2 (mA)\>\""},
{"50.0",
RowBox[{"1.14", "V"}], "12.90", "124", "9.30", "0.00"},
{"50.0",
RowBox[{"1.53", "V"}], "9.81", "156", "8.90", "0.00"},
{"50.0",
RowBox[{"2.04", "V"}], "18.71", "200", "8.55", "0.00"},
{"100.0",
RowBox[{"1.14", "V"}], "13.43", "136", "5.05", "0.00"},
{"100.0",
RowBox[{"1.53", "V"}], "18.84", "172", "5.15", "0.01"},
{"100.0",
RowBox[{"2.04", "V"}], "27.3", "220", "4.95", "0.02"},
{"150.0",
RowBox[{"1.14", "V"}], "12.70", "132", "3.25", "0.01"},
{"150.0",
RowBox[{"1.53", "V"}], "19.53", "160", "3.30", "0.02"},
{"150.0",
RowBox[{"2.04", "V"}], "27.76", "220", "3.60", "0.04"},
{"200.0",
RowBox[{"1.14", "V"}], "13.35", "128", "2.30", "0.01"},
{"200.0",
RowBox[{"1.53", "V"}], "18.11", "172", "2.20", "0.02"},
{"200.0",
RowBox[{"2.04", "V"}], "28.36", "208", "2.25", "0.05"}
},
GridBoxDividers->{
"Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {},
"Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]}],
";"}]], "Input",
CellChangeTimes->{{3.41390603259128*^9, 3.413906082864594*^9}, {
3.413906120131359*^9, 3.413906335886012*^9}, {3.4139063670831137`*^9,
3.413906383771069*^9}, {3.41390643182437*^9, 3.413906489380444*^9}, {
3.41413623761623*^9, 3.414136317213168*^9}, {3.414136888220975*^9,
3.4141368957861977`*^9}, {3.4141369347983503`*^9,
3.4141369483783092`*^9}, {3.4141370019196167`*^9,
3.4141370022144547`*^9}, {3.414137062078656*^9, 3.4141370622517443`*^9},
3.527924286822407*^9, {3.529934164648451*^9, 3.5299344123144855`*^9}, {
3.529934447554948*^9, 3.529934448147749*^9}, 3.529935491914382*^9, {
3.5299373927153206`*^9, 3.5299374835074797`*^9}, {3.5299375148167353`*^9,
3.5299375242547517`*^9}, {3.529937554862005*^9, 3.529937559323613*^9}}],
Cell["Primario 1600 vueltas , secundario 3200 vueltas.", "Text",
CellChangeTimes->{{3.414137008234374*^9, 3.414137027721266*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"nuUsincarga12", "=", GridBox[{
{"\"\<f(Hz)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(1\)]\)(Vpp)\>\"",
"\"\<I1(mA)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(2\)]\)(Vpp)\>\"",
"\"\<\[CapitalDelta]t(ms)\>\"", "\"\<I2(mA)\>\""},
{"50.0",
RowBox[{"1.14", "V"}], "67.8", "152", "4.28", "0.00"},
{"50.0",
RowBox[{"1.53", "V"}], "117.2", "176", "4.14", "0.00"},
{"50.0",
RowBox[{"2.04", "V"}], "140.0", "232", "3.80", "0.01"},
{"100.0",
RowBox[{"1.14", "V"}], "50.12", "216", "7.98", "0.02"},
{"100.0",
RowBox[{"1.53", "V"}], "119.8", "200", "8
{"100.0",
RowBox[{"1.14", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]", "\[Placeholder]"},
{"100.0",
RowBox[{"1.53", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]", "\[Placeholder]"},
{"100.0",
RowBox[{"2.04", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]", "\[Placeholder]"},
{"150.0",
RowBox[{"1.14", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]", "\[Placeholder]"},
{"150.0",
RowBox[{"1.53", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]", "\[Placeholder]"},
{"150.0",
RowBox[{"2.04", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]", "\[Placeholder]"},
{"200.0",
RowBox[{"1.14", "V"}], "13.82", "264", "2.14", "0.10"},
{"200.0",
RowBox[{"1.53", "V"}], "21.12", "360", "2.10", "0.17"},
{"200.0",
RowBox[{"2.04", "V"}], "51.73", "470", "2.24", "0.17"}
},
GridBoxDividers->{
"Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {},
"Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]}],
";"}]], "Input",
CellChangeTimes->{{3.41390603259128*^9, 3.413906082864594*^9}, {
3.413906120131359*^9, 3.413906335886012*^9}, {3.4139063670831137`*^9,
3.413906383771069*^9}, {3.41390643182437*^9, 3.413906489380444*^9}, {
3.41413623761623*^9, 3.414136317213168*^9}, 3.4141369005852013`*^9, {
3.414136965213353*^9, 3.414136965589903*^9}, {3.414137078953883*^9,
3.414137079078268*^9}, 3.52993422687696*^9, {3.5299344548089604`*^9,
3.5299344552769613`*^9}, 3.5,
35488388776*^9, {3.529935965266013*^9,
3.5299359792124376`*^9}, {3.529936027993724*^9, 3.5299360705661983`*^9}}],
Cell["Primari,
200 vueltas , secundario 1600 vueltas.", "Text",
CellChangeTimes->{{3.414137008234374*^9, 3.4141370581037807`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"nuUsincarga21", "=", GridBox[{
{"\"\<f(Hz)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(1\)]\)(Vpp)\>\"",
"\"\<I1(mA)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(2\)]\)(Vpp)\>\"",
"\"\<\[CapitalDelta]t(ms)\>\"", "\"\<I2(mA)\>\""},
{"50.0",
RowBox[{"1.14", "V"}], "26.92", "152", "6.45", "0.00"},
{"50.0",
RowBox[{"1.53", "V"}], "100.4", "192", "6.15", "0.01"},
{"50.0",
RowBox[{"2.04", "V"}], "128", "252", "6.75", "0.01"},
{"100.0",
RowBox[{"1.14", "V"}], "9.32", "208", "3.70", "0.02"},
{"100.0",
RowBox[{"1.53", "V"}], "60.21", "276", "3.80", "0.04"},
{"100.0",
RowBox[{"2.04", "V"}], "120.00", "372", "6.05", "0.07"},
{"150.0",
RowBox[{"1.14", "V"}], "13.92", "256", "4.02", "0.06"},
{"150.0",
RowBox[{"1.53", "V"}], "15.38", "336", "3.70", "0.11"},
{"150.0",
RowBox[{"2.04", "V"}], "111", "448", "3.74", "0.16"},
{"200.0",
RowBox[{"1.14", "V"}], "13.08", "164", "2.18", "0.12"},
{"200.0",
RowBox[{"1.53", "V"}], "21.12", "362", "2.12", "0.21"},
{"200.0",
RowBox[{"2.04", "V"}], "58.87", "480", "2.20", "0.29"}
},
GridBoxDividers->{
"Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {},
"Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}]}],
";"}]], "Input",
CellChangeTimes->{{3.41390603259128*^9, 3.413906082864594*^9}, {
3.413906120131359*^9, 3.413906335886012*^9}, {3.4139063670831137`*^9,
3.413906383771069*^9}, {3.41390643182437*^9, 3.413906489380444*^9}, {
3.41413623761623*^9, 3.414136317213168*^9}, 3.4141369005852013`*^9, {
3.414136965213353*^9, 3.414136965589903*^9}, {3.414137078953883*^9,
3.4141371024470997`*^9}, {3.52993446031577*^9, 3.529934460690171*^9},
3.5299345199390745`*^9, {3.5299346074864283`*^9, 3.529934650511304*^9}, {
3.529934696640585*^9, 3.529934741631064*^9}, {3.529934823406408*^9,
3.5299349100489597`*^9}, {3.529934942653017*^9, 3.5299349641186547`*^9}, {
3.5299353295648966`*^9, 3.5299353362573085`*^9}, {3.529935389484602*^9,
3.5299354010754223`*^9}, {3.529935442852296*^9, 3.5299354676407394`*^9}, {
3.5299355053616056`*^9, 3.529935587074549*^9}, {3.529935630848226*^9,
3.5299356586630745`*^9}, {3.5299356954167395`*^9,
3.5299357977685194`*^9}, {3.5299358536322174`*^9, 3.529935,
786619*^9}, {
3.5299358,
830744`*^9, 3.529935927014746*^9}}],
Cell[BoxData[""], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{"nuUconcarga", "=",
RowBox[{GridBox[{
{"\"\<f(Hz)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(1\)]\)(Vpp)\>\"",
"\"\<I1(mA)\>\"", "\"\<\!\(\*SubscriptBox[\(V\), \(2\)]\)(Vpp)\>\"",
"\"\<\[CapitalDelta]t(ms)\>\""},
{"50.0",
RowBox[{"1.14", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"50.0",
RowBox[{"1.53", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"50.0",
RowBox[{"2.04", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"100.0",
RowBox[{"1.14", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"100.0",
RowBox[{"1.53", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"100.0",
RowBox[{"2.04", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"150.0",
RowBox[{"1.14", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"150.0",
RowBox[{"1.53", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"150.0",
RowBox[{"2.04", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"200.0",
RowBox[{"1.14", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"200.0",
RowBox[{"1.53", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"},
{"200.0",
RowBox[{"2.04", "V"}], "\[Placeholder]", "\[Placeholder]",
"\[Placeholder]"}
},
GridBoxDividers->{
"Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {},
"Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}], GridBox[{
{"\"\<I1(mA)\>\""},
{"\[Placeholder]"},
{"\[Placeholder]"},
{"\[Placeholder]"},
{"\[Plac
}, Open ]]
},
WindowSize->{1904, 945},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 73, 0, 71, "Section"],
Cell[CellGroupData[{
Cell[665, 26, 32, 0, 70, "Subsection"],
Cell[700, 28, 2479, 54, 70, "Input"],
Cell[3182, 84, 796, 13, 70, "Input"],
Cell[3981, 99, 648, 12, 70, "Input"],
Cell[4632, 113, 131, 1, 70, "Text"],
Cell[4766, 116, 602, 11, 70, "Input"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[5417, 133, 172, 2, 41, "Section"],
Cell[5592, 137, 122, 1, 70, "Text"],
Cell[5717, 140, 2529, 54, 70, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[8283, 199, 141, 1, 41, "Section"],
Cell[8427, 202, 445, 9, 70, "Input"],
Cell[8875, 213, 5216, 161, 70, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[14128, 379, 117, 1, 41, "Section"],
Cell[14248, 382, 122, 1, 70, "Text"],
Cell[14373, 385, 275, 5, 70, "Input"],
Cell[14651, 392, 2514, 54, 70, "Input"],
Cell[17168, 448, 2560, 54, 70, "Input"],
Cell[19731, 504, 2611, 55, 70, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[22379, 564, 122, 1, 41, "Section"],
Cell[22504, 567, 197, 4, 29, "Text"],
Cell[22704, 573, 416, 9, 43, "Input"],
Cell[23123, 584, 130, 1, 29, "Text"],
Cell[23256, 587, 2990, 65, 219, "Input"],
Cell[26249, 654, 132, 1, 29, "Text"],
Cell[26384, 657, 2410, 57, 219, "Input"],
Cell[28797, 716, 2153, 45, 219, "Input"],
Cell[30953, 763, 130, 1, 29, "Text"],
Cell[31086, 766, 2273, 51, 219, "Input"],
Cell[33362, 819, 132, 1, 29, "Text"],
Cell[33497, 822, 2505, 50, 219, "Input"],
Cell[36005, 874, 26, 0, 31, "Input"],
Cell[36034, 876, 1944, 41, 219, "Input"]
}, Open ]]
}
]
*)
¿Cómo puedo arreglarlo sin tener que ir dato por dato cogiendolos y recuperándolos?
Muchas gracias a todos