-
Notifications
You must be signed in to change notification settings - Fork 0
/
Método de Muller.nb
650 lines (632 loc) · 35.4 KB
/
Método de Muller.nb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 12.2' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 35397, 642]
NotebookOptionsPosition[ 33983, 613]
NotebookOutlinePosition[ 34415, 630]
CellTagsIndexPosition[ 34372, 627]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"MetodoDeMuller", "[",
RowBox[{
"P0_", ",", "P1_", ",", " ", "P2_", ",", "Tolerancia_", ",",
"NumeroDeIteraciones_", ",", "F_"}], "]"}], ":=", " ",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"x0", "=", "P0"}], ",",
RowBox[{"x1", "=", "P1"}], ",",
RowBox[{"x2", "=", "P2"}], ",",
RowBox[{"x3", "=", "0"}], ",", "\[IndentingNewLine]",
RowBox[{"h0", "=", "0"}], ",",
RowBox[{"h1", "=", "0"}], ",", "\[IndentingNewLine]",
RowBox[{"delta0", "=", "0"}], ",",
RowBox[{"delta1", "=", "0"}], ",", "\[IndentingNewLine]",
RowBox[{"n", "=", "NumeroDeIteraciones"}], ",", "\[IndentingNewLine]",
RowBox[{"raiz", "=", "0"}], ",",
RowBox[{"error", "=", "0"}], ",", "\[IndentingNewLine]",
RowBox[{"a", "=", "0"}], ",",
RowBox[{"b", "=", "0"}], ",",
RowBox[{"c", "=", "0"}], ",", "\[IndentingNewLine]",
RowBox[{"i", "=", "1"}]}], "\[IndentingNewLine]", "}"}], ",",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"While", "[",
RowBox[{
RowBox[{"i", "<", "n"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"h0", "=",
RowBox[{"x1", "-", "x0"}]}], ";", "\[IndentingNewLine]",
RowBox[{"h1", "=",
RowBox[{"x2", "-", "x1"}]}], ";", "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"delta0", "=",
FractionBox[
RowBox[{
RowBox[{"F", "[", "x1", "]"}], "-",
RowBox[{"F", "[", "x0", "]"}]}], "h0"]}], ";",
"\[IndentingNewLine]",
RowBox[{"delta1", "=",
FractionBox[
RowBox[{
RowBox[{"F", "[", "x2", "]"}], "-",
RowBox[{"F", "[", "x1", "]"}]}], "h1"]}], ";",
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"a", "=",
FractionBox[
RowBox[{"delta1", "-", "delta0"}],
RowBox[{"h1", "+", "h0"}]]}], ";", "\[IndentingNewLine]",
RowBox[{"b", "=",
RowBox[{
RowBox[{"(",
RowBox[{"a", "*", "h1"}], ")"}], "+", "delta1"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"c", "=",
RowBox[{"F", "[", "x2", "]"}]}], ";", "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"raiz", "=",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
SuperscriptBox["b", "2"], "-",
RowBox[{"4", "*", "a", "*", "c"}]}], ")"}]}]}], ";",
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"b", "-", "raiz"}], "]"}], ">",
RowBox[{"Abs", "[",
RowBox[{"b", "+", "raiz"}], "]"}]}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"raiz", "=",
RowBox[{"-", "raiz"}]}], ";"}]}], "\[IndentingNewLine]", "]"}],
";", "\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"x3", "=",
RowBox[{"x2", "+",
FractionBox[
RowBox[{
RowBox[{"-", "2"}], "*", "c"}],
RowBox[{"b", "+", "raiz"}]]}]}], ";", "\[IndentingNewLine]",
RowBox[{"error", "=",
RowBox[{"Abs", "[",
RowBox[{
RowBox[{"(",
RowBox[{"x3", "-", "x2"}], ")"}], "/", "x3"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{
"\"\<El valor de X en la iteraci\[OAcute]n \>\"", ",", "i", ",",
"\"\< es de \>\"", ",", "x3", ",", " ",
"\"\< con un error aproximado de \>\"", ",", "error"}], "]"}],
";", "\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{"\"\<A: \>\"", ",", "a"}], "]"}], ";",
"\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{
"\"\<E0: \>\"", ",", "delta0", ",", " ", "\"\< E1: \>\"", ",", " ",
"delta1"}], "]"}], ";", "\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{"error", "<", "Tolerancia"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"\"\<El valor aproximado de X es: \>\"", ",", "x3"}],
"]"}], ";", "\[IndentingNewLine]",
RowBox[{"Break", "[", "]"}], ";"}]}], "\[IndentingNewLine]",
"]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"x0", "=", "x1"}], ";", "\[IndentingNewLine]",
RowBox[{"x1", "=", "x2"}], ";", "\[IndentingNewLine]",
RowBox[{"x2", "=", "x3"}], ";", "\[IndentingNewLine]",
RowBox[{"x3", "=", "0"}], ";", "\[IndentingNewLine]",
RowBox[{"i", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";",
"\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{"i", ">=",
RowBox[{"n", "+", "1"}]}], ",", "\[IndentingNewLine]",
RowBox[{
"Print", "[",
"\"\<El m\[EAcute]todo excedi\[OAcute] el n\[UAcute]mero de \
iteraciones\>\"", "]"}]}], "\[IndentingNewLine]", "]"}]}]}],
"\[IndentingNewLine]", "]"}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"F", "[", "x_", "]"}], ":=",
RowBox[{
SuperscriptBox["x", "3"], "+",
RowBox[{"3",
SuperscriptBox["x", "2"]}], "-", "1"}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"N", "[",
RowBox[{
RowBox[{"MetodoDeMuller", "[",
RowBox[{
RowBox[{"-", "2.8793"}], ",", "0.5320", ",",
RowBox[{"-", "0.6527"}], ",", "0.0001", ",", "20", ",", "F"}], "]"}],
",", "10"}], "]"}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.829500687402295*^9, 3.8295007798338194`*^9}, {
3.8295008191303473`*^9, 3.8295008220375338`*^9}, 3.8295008687831917`*^9, {
3.82950533580882*^9, 3.8295056348044615`*^9}, {3.829505747639346*^9,
3.8295057918894286`*^9}, {3.82950583587961*^9, 3.8295059343593273`*^9}, {
3.8295059844993896`*^9, 3.8295061266038256`*^9}, {3.8295061609558883`*^9,
3.829506208006282*^9}, {3.82950715708029*^9, 3.8295071620610495`*^9}, {
3.8295072129567432`*^9, 3.8295072648959103`*^9}, {3.8295073005581136`*^9,
3.829507372334919*^9}, {3.8295081403475437`*^9, 3.8295084962024856`*^9}, {
3.829508553568925*^9, 3.829508713340946*^9}, {3.8295090067645774`*^9,
3.829509186607983*^9}, {3.8295092504275856`*^9, 3.8295092863906555`*^9}, {
3.829509357612007*^9, 3.829509369523885*^9}, {3.8295096428961496`*^9,
3.8295096532835083`*^9}, {3.8295097179218473`*^9, 3.829509731153045*^9}, {
3.829509762944667*^9, 3.829509764046911*^9}, {3.8295101347657795`*^9,
3.82951014842031*^9}, {3.8295102103553143`*^9, 3.829510238305222*^9}, {
3.8295103082024527`*^9, 3.829510309189226*^9}, {3.8295103465241566`*^9,
3.829510357730559*^9}, {3.829576025406324*^9, 3.8295760875497985`*^9}, {
3.8295763576597414`*^9, 3.829576510646618*^9}, {3.829576579264583*^9,
3.8295766182240906`*^9}, {3.82957666416249*^9, 3.8295768445502844`*^9}, {
3.829577034203022*^9, 3.8295771612965508`*^9}, 3.8295772122729545`*^9, {
3.829577270578518*^9, 3.829577560743001*^9}, {3.8295776164386063`*^9,
3.8295776184811797`*^9}, {3.829577657383931*^9, 3.8295779000832*^9}, {
3.829577930209098*^9, 3.829578037313438*^9}, {3.829578224940702*^9,
3.829578270481559*^9}, {3.82957830359892*^9, 3.829578348407563*^9}, {
3.8295784992244663`*^9, 3.8295786155998774`*^9}, {3.829578762993844*^9,
3.8295788448933973`*^9}, {3.829578970000066*^9, 3.8295789709335*^9}, {
3.8295790966253805`*^9, 3.829579129119565*^9}, {3.8295794035449357`*^9,
3.829579408156167*^9}, {3.829579485376421*^9, 3.8295795173550587`*^9}, {
3.8295795703222094`*^9, 3.829579678640504*^9}, {3.8295797100259824`*^9,
3.829579710095965*^9}, {3.829579792267609*^9, 3.8295798443884325`*^9}, {
3.8295798943951125`*^9, 3.8295799238526297`*^9}, {3.8295799633487115`*^9,
3.8295799847932754`*^9}, {3.8295800924710917`*^9, 3.829580147438078*^9}, {
3.829580195654291*^9, 3.8295802265818186`*^9}, {3.829580504714354*^9,
3.829580505384788*^9}, {3.8295805430301485`*^9, 3.829580556225169*^9}, {
3.829580603828673*^9, 3.829580604013527*^9}, {3.8295806406726947`*^9,
3.8295806931321115`*^9}, {3.8295807524067984`*^9,
3.8295807850551248`*^9}, {3.829580827528344*^9, 3.829580852265766*^9}, {
3.829580924793786*^9, 3.829580932126923*^9}, {3.8295979818577027`*^9,
3.8295980376541147`*^9}, {3.8295980830078244`*^9, 3.829598332663906*^9}, {
3.829598418833392*^9, 3.829598420308316*^9}, {3.8295984857782583`*^9,
3.829598542704774*^9}, {3.829598578275414*^9, 3.82959859089127*^9}, {
3.829598641694495*^9, 3.8295986448015423`*^9}, {3.8295990849787736`*^9,
3.8295990885536594`*^9}, {3.8295991605286827`*^9,
3.8295991752838936`*^9}, {3.8295995242163095`*^9, 3.829599557428153*^9}, {
3.829599768075547*^9, 3.829599805381177*^9}, {3.8296000420181155`*^9,
3.8296001140780115`*^9}, {3.8296003803793726`*^9, 3.829600522119088*^9}, {
3.8296009595518346`*^9, 3.8296010125169287`*^9}, {3.8296011008869133`*^9,
3.8296011265671625`*^9}, {3.829653301800726*^9, 3.829653311069855*^9}, {
3.829653430668638*^9, 3.829653457949112*^9}, {3.8296605647782907`*^9,
3.8296605729172525`*^9}, {3.8296607518891325`*^9, 3.829660803710264*^9}, {
3.8296610289970236`*^9, 3.8296610323361807`*^9}, {3.82966112954524*^9,
3.8296611300151873`*^9}, {3.8296611876194515`*^9,
3.8296612032875376`*^9}, {3.8296617220966625`*^9, 3.829661728650073*^9}, {
3.8296623509999857`*^9, 3.8296623522340703`*^9}, {3.829662451892054*^9,
3.8296624999689956`*^9}, {3.8296626716621475`*^9,
3.8296630782082725`*^9}, {3.829663315050311*^9, 3.829663653404764*^9}, {
3.829663688914281*^9, 3.8296637024894843`*^9}, {3.8296637615041666`*^9,
3.8296639205635757`*^9}, 3.8296640571634817`*^9, {3.8296641045938115`*^9,
3.8296642226577377`*^9}, {3.829664286357396*^9, 3.829664565257513*^9}, {
3.8296647036112947`*^9, 3.829664792107768*^9}, {3.8296648277827063`*^9,
3.829664828147823*^9}, {3.8296648708678055`*^9, 3.8296648761977606`*^9}, {
3.829664976357707*^9, 3.829664987199482*^9}, {3.829665018094095*^9,
3.829665018584147*^9}, {3.8296676705788593`*^9, 3.82966767331723*^9}, {
3.8296677061724405`*^9, 3.8296678681857944`*^9}, {3.829667905710455*^9,
3.829667912405384*^9}, 3.829674123406415*^9, {3.8296747587567453`*^9,
3.8296748683725386`*^9}, 3.829675011388506*^9, {3.8296758544285135`*^9,
3.829675866573152*^9}, {3.8296759934234324`*^9, 3.829675994009245*^9}, {
3.8296761450559845`*^9, 3.8296761856843348`*^9}, {3.8296765697647123`*^9,
3.829676571160017*^9}, {3.8296766345381384`*^9, 3.829676661332893*^9}, {
3.8296767407399883`*^9, 3.829676772503645*^9}, {3.8296772030009394`*^9,
3.8296774061689863`*^9}, {3.82967750391109*^9, 3.829677538568303*^9}, {
3.829677613348387*^9, 3.82967762859147*^9}, {3.829677701614374*^9,
3.8296777419560637`*^9}, 3.829677878113639*^9, {3.829677919143166*^9,
3.829677937116494*^9}, {3.829678012561881*^9, 3.82967810083152*^9}, {
3.8296781712277493`*^9, 3.829678203243134*^9}, {3.8296782372216663`*^9,
3.829678258065055*^9}, {3.829678290832028*^9, 3.829678359153572*^9}, {
3.829678607691128*^9, 3.8296786128485503`*^9}, {3.8296788767761946`*^9,
3.8296789430416193`*^9}, 3.8296790145641327`*^9, {3.829679070774369*^9,
3.8296791390334663`*^9}, {3.829679211636394*^9, 3.8296792639647093`*^9}, {
3.8296793350799255`*^9, 3.8296793414020643`*^9}, {3.829679586628141*^9,
3.829679607594343*^9}, {3.8296796988270345`*^9, 3.82967970193631*^9}, {
3.8296797429923162`*^9, 3.8296797811678085`*^9}, {3.829679817369742*^9,
3.829679889446251*^9}, 3.829679932693721*^9, {3.829680298612652*^9,
3.829680306219337*^9}, {3.830011354639106*^9, 3.830011421611869*^9}, {
3.830011527740794*^9, 3.8300115289033585`*^9}, 3.8300115895074625`*^9, {
3.830011733689052*^9, 3.8300117392559514`*^9}, {3.830011783132188*^9,
3.830011803535847*^9}, {3.830012437993636*^9, 3.8300125414553986`*^9}, {
3.830015605269588*^9,
3.8300156090995235`*^9}},ExpressionUUID->"35b47220-2d93-44b2-be8d-\
79535f0e6b84"],
Cell[CellGroupData[{
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"El valor de X en la iteraci\[OAcute]n \"\>",
"\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" es de \"\>",
"\[InvisibleSpace]",
RowBox[{"-", "0.6852816915727007`"}],
"\[InvisibleSpace]", "\<\" con un error aproximado de \"\>",
"\[InvisibleSpace]", "0.04754496139817591`"}],
SequenceForm[
"El valor de X en la iteraci\[OAcute]n ", 1, " es de ", -0.6852816915727007,
" con un error aproximado de ", 0.04754496139817591],
Editable->False]], "Print",
CellChangeTimes->{{3.8296645927973766`*^9, 3.8296646294674444`*^9}, {
3.8296648146730785`*^9, 3.8296648374839883`*^9}, {3.829664880747609*^9,
3.829664885312875*^9}, {3.82966497769174*^9, 3.829664989079508*^9},
3.829665020754361*^9, {3.8296678813556533`*^9, 3.8296679135906115`*^9}, {
3.82967411210858*^9, 3.8296741318757906`*^9}, 3.8296748880193872`*^9, {
3.829675015683181*^9, 3.82967501801081*^9}, 3.829675873173556*^9,
3.829675998272725*^9, 3.82967615558121*^9, 3.8296761916987686`*^9,
3.829676579645928*^9, {3.8296766431399727`*^9, 3.8296766692533345`*^9}, {
3.8296775452231274`*^9, 3.829677549157563*^9}, {3.829677727031989*^9,
3.829677748780117*^9}, 3.8296778811388845`*^9, 3.8296779410449667`*^9, {
3.8296781061640224`*^9, 3.8296781122887106`*^9}, {3.8296781864863815`*^9,
3.8296782115070686`*^9}, {3.829678351038102*^9, 3.8296783604885116`*^9},
3.8296786270727797`*^9, {3.829678926893937*^9, 3.8296789533833966`*^9},
3.8296790160418425`*^9, {3.829679113577036*^9, 3.8296791399120455`*^9},
3.829679232775679*^9, 3.8296792661443896`*^9, 3.8296793424048867`*^9, {
3.8296795945802803`*^9, 3.8296796203717766`*^9}, 3.829679708442095*^9,
3.8296797869431086`*^9, 3.829679899499293*^9, 3.829679940718976*^9, {
3.8296802994641237`*^9, 3.8296803069522066`*^9}, {3.830011372687249*^9,
3.8300113764783487`*^9}, 3.8300114234560633`*^9, {3.8300115302075777`*^9,
3.830011590717455*^9}, 3.8300118150785093`*^9, 3.8300125110058374`*^9,
3.830012545805585*^9},
CellLabel->
"Durante la evaluaci\[OAcute]n de \
In[37]:=",ExpressionUUID->"5116e66b-4cef-4673-ae9e-7618644d81ba"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"F[x0] \"\>", "\[InvisibleSpace]", "0.0006474767430013628`",
"\[InvisibleSpace]", "\<\" F[x1] \"\>", "\[InvisibleSpace]",
RowBox[{"-", "0.00035923199999976507`"}],
"\[InvisibleSpace]", "\<\" F[x2] \"\>", "\[InvisibleSpace]",
RowBox[{"-", "9.615183000022398`*^-6"}]}],
SequenceForm[
"F[x0] ", 0.0006474767430013628, " F[x1] ", -0.00035923199999976507`,
" F[x2] ", -9.615183000022398*^-6],
Editable->False]], "Print",
CellChangeTimes->{{3.8296645927973766`*^9, 3.8296646294674444`*^9}, {
3.8296648146730785`*^9, 3.8296648374839883`*^9}, {3.829664880747609*^9,
3.829664885312875*^9}, {3.82966497769174*^9, 3.829664989079508*^9},
3.829665020754361*^9, {3.8296678813556533`*^9, 3.8296679135906115`*^9}, {
3.82967411210858*^9, 3.8296741318757906`*^9}, 3.8296748880193872`*^9, {
3.829675015683181*^9, 3.82967501801081*^9}, 3.829675873173556*^9,
3.829675998272725*^9, 3.82967615558121*^9, 3.8296761916987686`*^9,
3.829676579645928*^9, {3.8296766431399727`*^9, 3.8296766692533345`*^9}, {
3.8296775452231274`*^9, 3.829677549157563*^9}, {3.829677727031989*^9,
3.829677748780117*^9}, 3.8296778811388845`*^9, 3.8296779410449667`*^9, {
3.8296781061640224`*^9, 3.8296781122887106`*^9}, {3.8296781864863815`*^9,
3.8296782115070686`*^9}, {3.829678351038102*^9, 3.8296783604885116`*^9},
3.8296786270727797`*^9, {3.829678926893937*^9, 3.8296789533833966`*^9},
3.8296790160418425`*^9, {3.829679113577036*^9, 3.8296791399120455`*^9},
3.829679232775679*^9, 3.8296792661443896`*^9, 3.8296793424048867`*^9, {
3.8296795945802803`*^9, 3.8296796203717766`*^9}, 3.829679708442095*^9,
3.8296797869431086`*^9, 3.829679899499293*^9, 3.829679940718976*^9, {
3.8296802994641237`*^9, 3.8296803069522066`*^9}, {3.830011372687249*^9,
3.8300113764783487`*^9}, 3.8300114234560633`*^9, {3.8300115302075777`*^9,
3.830011590717455*^9}, 3.8300118150785093`*^9, 3.8300125110058374`*^9,
3.8300125458105707`*^9},
CellLabel->
"Durante la evaluaci\[OAcute]n de \
In[37]:=",ExpressionUUID->"f59a84c9-889e-4b90-8620-10b53212ab99"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"E0: \"\>", "\[InvisibleSpace]",
RowBox[{"-", "0.00029511000000033064`"}],
"\[InvisibleSpace]", "\<\" E1: \"\>", "\[InvisibleSpace]",
RowBox[{"-", "0.00029510999999978285`"}]}],
SequenceForm[
"E0: ", -0.00029511000000033064`, " E1: ", -0.00029510999999978285`],
Editable->False]], "Print",
CellChangeTimes->{{3.8296645927973766`*^9, 3.8296646294674444`*^9}, {
3.8296648146730785`*^9, 3.8296648374839883`*^9}, {3.829664880747609*^9,
3.829664885312875*^9}, {3.82966497769174*^9, 3.829664989079508*^9},
3.829665020754361*^9, {3.8296678813556533`*^9, 3.8296679135906115`*^9}, {
3.82967411210858*^9, 3.8296741318757906`*^9}, 3.8296748880193872`*^9, {
3.829675015683181*^9, 3.82967501801081*^9}, 3.829675873173556*^9,
3.829675998272725*^9, 3.82967615558121*^9, 3.8296761916987686`*^9,
3.829676579645928*^9, {3.8296766431399727`*^9, 3.8296766692533345`*^9}, {
3.8296775452231274`*^9, 3.829677549157563*^9}, {3.829677727031989*^9,
3.829677748780117*^9}, 3.8296778811388845`*^9, 3.8296779410449667`*^9, {
3.8296781061640224`*^9, 3.8296781122887106`*^9}, {3.8296781864863815`*^9,
3.8296782115070686`*^9}, {3.829678351038102*^9, 3.8296783604885116`*^9},
3.8296786270727797`*^9, {3.829678926893937*^9, 3.8296789533833966`*^9},
3.8296790160418425`*^9, {3.829679113577036*^9, 3.8296791399120455`*^9},
3.829679232775679*^9, 3.8296792661443896`*^9, 3.8296793424048867`*^9, {
3.8296795945802803`*^9, 3.8296796203717766`*^9}, 3.829679708442095*^9,
3.8296797869431086`*^9, 3.829679899499293*^9, 3.829679940718976*^9, {
3.8296802994641237`*^9, 3.8296803069522066`*^9}, {3.830011372687249*^9,
3.8300113764783487`*^9}, 3.8300114234560633`*^9, {3.8300115302075777`*^9,
3.830011590717455*^9}, 3.8300118150785093`*^9, 3.8300125110058374`*^9,
3.8300125458185697`*^9},
CellLabel->
"Durante la evaluaci\[OAcute]n de \
In[37]:=",ExpressionUUID->"cdcb1dda-dff7-4aad-ba2b-707c6f0b187b"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"El valor de X en la iteraci\[OAcute]n \"\>",
"\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" es de \"\>",
"\[InvisibleSpace]",
RowBox[{"-", "0.6527036987779277`"}],
"\[InvisibleSpace]", "\<\" con un error aproximado de \"\>",
"\[InvisibleSpace]", "0.049912376558872824`"}],
SequenceForm[
"El valor de X en la iteraci\[OAcute]n ", 2, " es de ", -0.6527036987779277,
" con un error aproximado de ", 0.049912376558872824`],
Editable->False]], "Print",
CellChangeTimes->{{3.8296645927973766`*^9, 3.8296646294674444`*^9}, {
3.8296648146730785`*^9, 3.8296648374839883`*^9}, {3.829664880747609*^9,
3.829664885312875*^9}, {3.82966497769174*^9, 3.829664989079508*^9},
3.829665020754361*^9, {3.8296678813556533`*^9, 3.8296679135906115`*^9}, {
3.82967411210858*^9, 3.8296741318757906`*^9}, 3.8296748880193872`*^9, {
3.829675015683181*^9, 3.82967501801081*^9}, 3.829675873173556*^9,
3.829675998272725*^9, 3.82967615558121*^9, 3.8296761916987686`*^9,
3.829676579645928*^9, {3.8296766431399727`*^9, 3.8296766692533345`*^9}, {
3.8296775452231274`*^9, 3.829677549157563*^9}, {3.829677727031989*^9,
3.829677748780117*^9}, 3.8296778811388845`*^9, 3.8296779410449667`*^9, {
3.8296781061640224`*^9, 3.8296781122887106`*^9}, {3.8296781864863815`*^9,
3.8296782115070686`*^9}, {3.829678351038102*^9, 3.8296783604885116`*^9},
3.8296786270727797`*^9, {3.829678926893937*^9, 3.8296789533833966`*^9},
3.8296790160418425`*^9, {3.829679113577036*^9, 3.8296791399120455`*^9},
3.829679232775679*^9, 3.8296792661443896`*^9, 3.8296793424048867`*^9, {
3.8296795945802803`*^9, 3.8296796203717766`*^9}, 3.829679708442095*^9,
3.8296797869431086`*^9, 3.829679899499293*^9, 3.829679940718976*^9, {
3.8296802994641237`*^9, 3.8296803069522066`*^9}, {3.830011372687249*^9,
3.8300113764783487`*^9}, 3.8300114234560633`*^9, {3.8300115302075777`*^9,
3.830011590717455*^9}, 3.8300118150785093`*^9, 3.8300125110058374`*^9,
3.830012545821543*^9},
CellLabel->
"Durante la evaluaci\[OAcute]n de \
In[37]:=",ExpressionUUID->"e4518bc6-8c15-41c6-94b3-8927ea7ff16a"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"F[x0] \"\>", "\[InvisibleSpace]",
RowBox[{"-", "0.00035923199999976507`"}],
"\[InvisibleSpace]", "\<\" F[x1] \"\>", "\[InvisibleSpace]",
RowBox[{"-", "9.615183000022398`*^-6"}],
"\[InvisibleSpace]", "\<\" F[x2] \"\>", "\[InvisibleSpace]",
"0.08701717214273019`"}],
SequenceForm[
"F[x0] ", -0.00035923199999976507`, " F[x1] ", -9.615183000022398*^-6,
" F[x2] ", 0.08701717214273019],
Editable->False]], "Print",
CellChangeTimes->{{3.8296645927973766`*^9, 3.8296646294674444`*^9}, {
3.8296648146730785`*^9, 3.8296648374839883`*^9}, {3.829664880747609*^9,
3.829664885312875*^9}, {3.82966497769174*^9, 3.829664989079508*^9},
3.829665020754361*^9, {3.8296678813556533`*^9, 3.8296679135906115`*^9}, {
3.82967411210858*^9, 3.8296741318757906`*^9}, 3.8296748880193872`*^9, {
3.829675015683181*^9, 3.82967501801081*^9}, 3.829675873173556*^9,
3.829675998272725*^9, 3.82967615558121*^9, 3.8296761916987686`*^9,
3.829676579645928*^9, {3.8296766431399727`*^9, 3.8296766692533345`*^9}, {
3.8296775452231274`*^9, 3.829677549157563*^9}, {3.829677727031989*^9,
3.829677748780117*^9}, 3.8296778811388845`*^9, 3.8296779410449667`*^9, {
3.8296781061640224`*^9, 3.8296781122887106`*^9}, {3.8296781864863815`*^9,
3.8296782115070686`*^9}, {3.829678351038102*^9, 3.8296783604885116`*^9},
3.8296786270727797`*^9, {3.829678926893937*^9, 3.8296789533833966`*^9},
3.8296790160418425`*^9, {3.829679113577036*^9, 3.8296791399120455`*^9},
3.829679232775679*^9, 3.8296792661443896`*^9, 3.8296793424048867`*^9, {
3.8296795945802803`*^9, 3.8296796203717766`*^9}, 3.829679708442095*^9,
3.8296797869431086`*^9, 3.829679899499293*^9, 3.829679940718976*^9, {
3.8296802994641237`*^9, 3.8296803069522066`*^9}, {3.830011372687249*^9,
3.8300113764783487`*^9}, 3.8300114234560633`*^9, {3.8300115302075777`*^9,
3.830011590717455*^9}, 3.8300118150785093`*^9, 3.8300125110058374`*^9,
3.830012545826529*^9},
CellLabel->
"Durante la evaluaci\[OAcute]n de \
In[37]:=",ExpressionUUID->"aa1b9eb1-947b-450d-92eb-43ffdcf5b73c"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"E0: \"\>", "\[InvisibleSpace]",
RowBox[{"-", "0.00029510999999978285`"}],
"\[InvisibleSpace]", "\<\" E1: \"\>", "\[InvisibleSpace]",
RowBox[{"-", "2.671033427823847`"}]}],
SequenceForm["E0: ", -0.00029510999999978285`, " E1: ", -2.671033427823847],
Editable->False]], "Print",
CellChangeTimes->{{3.8296645927973766`*^9, 3.8296646294674444`*^9}, {
3.8296648146730785`*^9, 3.8296648374839883`*^9}, {3.829664880747609*^9,
3.829664885312875*^9}, {3.82966497769174*^9, 3.829664989079508*^9},
3.829665020754361*^9, {3.8296678813556533`*^9, 3.8296679135906115`*^9}, {
3.82967411210858*^9, 3.8296741318757906`*^9}, 3.8296748880193872`*^9, {
3.829675015683181*^9, 3.82967501801081*^9}, 3.829675873173556*^9,
3.829675998272725*^9, 3.82967615558121*^9, 3.8296761916987686`*^9,
3.829676579645928*^9, {3.8296766431399727`*^9, 3.8296766692533345`*^9}, {
3.8296775452231274`*^9, 3.829677549157563*^9}, {3.829677727031989*^9,
3.829677748780117*^9}, 3.8296778811388845`*^9, 3.8296779410449667`*^9, {
3.8296781061640224`*^9, 3.8296781122887106`*^9}, {3.8296781864863815`*^9,
3.8296782115070686`*^9}, {3.829678351038102*^9, 3.8296783604885116`*^9},
3.8296786270727797`*^9, {3.829678926893937*^9, 3.8296789533833966`*^9},
3.8296790160418425`*^9, {3.829679113577036*^9, 3.8296791399120455`*^9},
3.829679232775679*^9, 3.8296792661443896`*^9, 3.8296793424048867`*^9, {
3.8296795945802803`*^9, 3.8296796203717766`*^9}, 3.829679708442095*^9,
3.8296797869431086`*^9, 3.829679899499293*^9, 3.829679940718976*^9, {
3.8296802994641237`*^9, 3.8296803069522066`*^9}, {3.830011372687249*^9,
3.8300113764783487`*^9}, 3.8300114234560633`*^9, {3.8300115302075777`*^9,
3.830011590717455*^9}, 3.8300118150785093`*^9, 3.8300125110058374`*^9,
3.830012545830518*^9},
CellLabel->
"Durante la evaluaci\[OAcute]n de \
In[37]:=",ExpressionUUID->"f6b8ac20-c532-48a4-8697-2de1ae0a1364"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"El valor de X en la iteraci\[OAcute]n \"\>",
"\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" es de \"\>",
"\[InvisibleSpace]",
RowBox[{"-", "0.6527036446661368`"}],
"\[InvisibleSpace]", "\<\" con un error aproximado de \"\>",
"\[InvisibleSpace]", "8.290407333883774`*^-8"}],
SequenceForm[
"El valor de X en la iteraci\[OAcute]n ", 3, " es de ", -0.6527036446661368,
" con un error aproximado de ", 8.290407333883774*^-8],
Editable->False]], "Print",
CellChangeTimes->{{3.8296645927973766`*^9, 3.8296646294674444`*^9}, {
3.8296648146730785`*^9, 3.8296648374839883`*^9}, {3.829664880747609*^9,
3.829664885312875*^9}, {3.82966497769174*^9, 3.829664989079508*^9},
3.829665020754361*^9, {3.8296678813556533`*^9, 3.8296679135906115`*^9}, {
3.82967411210858*^9, 3.8296741318757906`*^9}, 3.8296748880193872`*^9, {
3.829675015683181*^9, 3.82967501801081*^9}, 3.829675873173556*^9,
3.829675998272725*^9, 3.82967615558121*^9, 3.8296761916987686`*^9,
3.829676579645928*^9, {3.8296766431399727`*^9, 3.8296766692533345`*^9}, {
3.8296775452231274`*^9, 3.829677549157563*^9}, {3.829677727031989*^9,
3.829677748780117*^9}, 3.8296778811388845`*^9, 3.8296779410449667`*^9, {
3.8296781061640224`*^9, 3.8296781122887106`*^9}, {3.8296781864863815`*^9,
3.8296782115070686`*^9}, {3.829678351038102*^9, 3.8296783604885116`*^9},
3.8296786270727797`*^9, {3.829678926893937*^9, 3.8296789533833966`*^9},
3.8296790160418425`*^9, {3.829679113577036*^9, 3.8296791399120455`*^9},
3.829679232775679*^9, 3.8296792661443896`*^9, 3.8296793424048867`*^9, {
3.8296795945802803`*^9, 3.8296796203717766`*^9}, 3.829679708442095*^9,
3.8296797869431086`*^9, 3.829679899499293*^9, 3.829679940718976*^9, {
3.8296802994641237`*^9, 3.8296803069522066`*^9}, {3.830011372687249*^9,
3.8300113764783487`*^9}, 3.8300114234560633`*^9, {3.8300115302075777`*^9,
3.830011590717455*^9}, 3.8300118150785093`*^9, 3.8300125110058374`*^9,
3.830012545834531*^9},
CellLabel->
"Durante la evaluaci\[OAcute]n de \
In[37]:=",ExpressionUUID->"33437dfa-fd18-40c0-83f5-6f2edc036796"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"F[x0] \"\>", "\[InvisibleSpace]",
RowBox[{"-", "9.615183000022398`*^-6"}],
"\[InvisibleSpace]", "\<\" F[x1] \"\>", "\[InvisibleSpace]",
"0.08701717214273019`", "\[InvisibleSpace]", "\<\" F[x2] \"\>",
"\[InvisibleSpace]", "1.4275532733698526`*^-7"}],
SequenceForm[
"F[x0] ", -9.615183000022398*^-6, " F[x1] ", 0.08701717214273019, " F[x2] ",
1.4275532733698526`*^-7],
Editable->False]], "Print",
CellChangeTimes->{{3.8296645927973766`*^9, 3.8296646294674444`*^9}, {
3.8296648146730785`*^9, 3.8296648374839883`*^9}, {3.829664880747609*^9,
3.829664885312875*^9}, {3.82966497769174*^9, 3.829664989079508*^9},
3.829665020754361*^9, {3.8296678813556533`*^9, 3.8296679135906115`*^9}, {
3.82967411210858*^9, 3.8296741318757906`*^9}, 3.8296748880193872`*^9, {
3.829675015683181*^9, 3.82967501801081*^9}, 3.829675873173556*^9,
3.829675998272725*^9, 3.82967615558121*^9, 3.8296761916987686`*^9,
3.829676579645928*^9, {3.8296766431399727`*^9, 3.8296766692533345`*^9}, {
3.8296775452231274`*^9, 3.829677549157563*^9}, {3.829677727031989*^9,
3.829677748780117*^9}, 3.8296778811388845`*^9, 3.8296779410449667`*^9, {
3.8296781061640224`*^9, 3.8296781122887106`*^9}, {3.8296781864863815`*^9,
3.8296782115070686`*^9}, {3.829678351038102*^9, 3.8296783604885116`*^9},
3.8296786270727797`*^9, {3.829678926893937*^9, 3.8296789533833966`*^9},
3.8296790160418425`*^9, {3.829679113577036*^9, 3.8296791399120455`*^9},
3.829679232775679*^9, 3.8296792661443896`*^9, 3.8296793424048867`*^9, {
3.8296795945802803`*^9, 3.8296796203717766`*^9}, 3.829679708442095*^9,
3.8296797869431086`*^9, 3.829679899499293*^9, 3.829679940718976*^9, {
3.8296802994641237`*^9, 3.8296803069522066`*^9}, {3.830011372687249*^9,
3.8300113764783487`*^9}, 3.8300114234560633`*^9, {3.8300115302075777`*^9,
3.830011590717455*^9}, 3.8300118150785093`*^9, 3.8300125110058374`*^9,
3.8300125458385086`*^9},
CellLabel->
"Durante la evaluaci\[OAcute]n de \
In[37]:=",ExpressionUUID->"15c00f38-31e9-4848-9277-4f03bbbb0611"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"E0: \"\>", "\[InvisibleSpace]",
RowBox[{"-", "2.671033427823847`"}], "\[InvisibleSpace]", "\<\" E1: \"\>",
"\[InvisibleSpace]",
RowBox[{"-", "2.6710371610544494`"}]}],
SequenceForm["E0: ", -2.671033427823847, " E1: ", -2.6710371610544494`],
Editable->False]], "Print",
CellChangeTimes->{{3.8296645927973766`*^9, 3.8296646294674444`*^9}, {
3.8296648146730785`*^9, 3.8296648374839883`*^9}, {3.829664880747609*^9,
3.829664885312875*^9}, {3.82966497769174*^9, 3.829664989079508*^9},
3.829665020754361*^9, {3.8296678813556533`*^9, 3.8296679135906115`*^9}, {
3.82967411210858*^9, 3.8296741318757906`*^9}, 3.8296748880193872`*^9, {
3.829675015683181*^9, 3.82967501801081*^9}, 3.829675873173556*^9,
3.829675998272725*^9, 3.82967615558121*^9, 3.8296761916987686`*^9,
3.829676579645928*^9, {3.8296766431399727`*^9, 3.8296766692533345`*^9}, {
3.8296775452231274`*^9, 3.829677549157563*^9}, {3.829677727031989*^9,
3.829677748780117*^9}, 3.8296778811388845`*^9, 3.8296779410449667`*^9, {
3.8296781061640224`*^9, 3.8296781122887106`*^9}, {3.8296781864863815`*^9,
3.8296782115070686`*^9}, {3.829678351038102*^9, 3.8296783604885116`*^9},
3.8296786270727797`*^9, {3.829678926893937*^9, 3.8296789533833966`*^9},
3.8296790160418425`*^9, {3.829679113577036*^9, 3.8296791399120455`*^9},
3.829679232775679*^9, 3.8296792661443896`*^9, 3.8296793424048867`*^9, {
3.8296795945802803`*^9, 3.8296796203717766`*^9}, 3.829679708442095*^9,
3.8296797869431086`*^9, 3.829679899499293*^9, 3.829679940718976*^9, {
3.8296802994641237`*^9, 3.8296803069522066`*^9}, {3.830011372687249*^9,
3.8300113764783487`*^9}, 3.8300114234560633`*^9, {3.8300115302075777`*^9,
3.830011590717455*^9}, 3.8300118150785093`*^9, 3.8300125110058374`*^9,
3.8300125458454895`*^9},
CellLabel->
"Durante la evaluaci\[OAcute]n de \
In[37]:=",ExpressionUUID->"da61a95b-0c6e-4568-ac7b-7923a7cd0c68"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"El valor aproximado de X es: \"\>", "\[InvisibleSpace]",
RowBox[{"-", "0.6527036446661368`"}]}],
SequenceForm["El valor aproximado de X es: ", -0.6527036446661368],
Editable->False]], "Print",
CellChangeTimes->{{3.8296645927973766`*^9, 3.8296646294674444`*^9}, {
3.8296648146730785`*^9, 3.8296648374839883`*^9}, {3.829664880747609*^9,
3.829664885312875*^9}, {3.82966497769174*^9, 3.829664989079508*^9},
3.829665020754361*^9, {3.8296678813556533`*^9, 3.8296679135906115`*^9}, {
3.82967411210858*^9, 3.8296741318757906`*^9}, 3.8296748880193872`*^9, {
3.829675015683181*^9, 3.82967501801081*^9}, 3.829675873173556*^9,
3.829675998272725*^9, 3.82967615558121*^9, 3.8296761916987686`*^9,
3.829676579645928*^9, {3.8296766431399727`*^9, 3.8296766692533345`*^9}, {
3.8296775452231274`*^9, 3.829677549157563*^9}, {3.829677727031989*^9,
3.829677748780117*^9}, 3.8296778811388845`*^9, 3.8296779410449667`*^9, {
3.8296781061640224`*^9, 3.8296781122887106`*^9}, {3.8296781864863815`*^9,
3.8296782115070686`*^9}, {3.829678351038102*^9, 3.8296783604885116`*^9},
3.8296786270727797`*^9, {3.829678926893937*^9, 3.8296789533833966`*^9},
3.8296790160418425`*^9, {3.829679113577036*^9, 3.8296791399120455`*^9},
3.829679232775679*^9, 3.8296792661443896`*^9, 3.8296793424048867`*^9, {
3.8296795945802803`*^9, 3.8296796203717766`*^9}, 3.829679708442095*^9,
3.8296797869431086`*^9, 3.829679899499293*^9, 3.829679940718976*^9, {
3.8296802994641237`*^9, 3.8296803069522066`*^9}, {3.830011372687249*^9,
3.8300113764783487`*^9}, 3.8300114234560633`*^9, {3.8300115302075777`*^9,
3.830011590717455*^9}, 3.8300118150785093`*^9, 3.8300125110058374`*^9,
3.830012545848481*^9},
CellLabel->
"Durante la evaluaci\[OAcute]n de \
In[37]:=",ExpressionUUID->"f864977e-d3e4-4f1d-8043-420dd876fd7c"]
}, Open ]]
}, Open ]]
},
WindowSize->{1350, 679},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>1.5 Inherited,
FrontEndVersion->"12.2 para Microsoft Windows (64-bit) (December 12, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"5b8d1255-79d9-40a7-af44-0d76ea0f8303"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 12586, 234, 1961, "Input",ExpressionUUID->"35b47220-2d93-44b2-be8d-79535f0e6b84"],
Cell[CellGroupData[{
Cell[13191, 260, 2170, 35, 34, "Print",ExpressionUUID->"5116e66b-4cef-4673-ae9e-7618644d81ba"],
Cell[15364, 297, 2132, 34, 36, "Print",ExpressionUUID->"f59a84c9-889e-4b90-8620-10b53212ab99"],
Cell[17499, 333, 1998, 32, 34, "Print",ExpressionUUID->"cdcb1dda-dff7-4aad-ba2b-707c6f0b187b"],
Cell[19500, 367, 2173, 35, 34, "Print",ExpressionUUID->"e4518bc6-8c15-41c6-94b3-8927ea7ff16a"],
Cell[21676, 404, 2130, 35, 36, "Print",ExpressionUUID->"aa1b9eb1-947b-450d-92eb-43ffdcf5b73c"],
Cell[23809, 441, 1982, 31, 34, "Print",ExpressionUUID->"f6b8ac20-c532-48a4-8697-2de1ae0a1364"],
Cell[25794, 474, 2174, 35, 36, "Print",ExpressionUUID->"33437dfa-fd18-40c0-83f5-6f2edc036796"],
Cell[27971, 511, 2112, 34, 36, "Print",ExpressionUUID->"15c00f38-31e9-4848-9277-4f03bbbb0611"],
Cell[30086, 547, 1976, 31, 34, "Print",ExpressionUUID->"da61a95b-0c6e-4568-ac7b-7923a7cd0c68"],
Cell[32065, 580, 1890, 29, 34, "Print",ExpressionUUID->"f864977e-d3e4-4f1d-8043-420dd876fd7c"]
}, Open ]]
}, Open ]]
}
]
*)