(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.2' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 22883, 689]*) (*NotebookOutlinePosition[ 23582, 713]*) (* CellTagsIndexPosition[ 23538, 709]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ \(WishMaster\)], "Title", FontFamily->"Courier New"], Cell[BoxData[ \(Por\ Thales\ Fernandes\)], "Subtitle", FontFamily->"Courier New"], Cell["Para Stephanie", "Subsubtitle", FontFamily->"Courier New"], Cell[BoxData[ \(Como\ aproveitas\ seus\ desejos\ da\ melhor\ forma\ possivel\)], \ "Subsubtitle", FontFamily->"Courier New"], Cell["\<\ Os desejos em horas sao considerados os unicos desejos reais, todos os outros \ sao apenas farsa, apenas esses funcionam. Quando der a hora marcada devemos fazer o desejo com vontade que ele se \ realizar\[AAcute].\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Hor\[AAcute]rios\ Puros\)], "Section", FontFamily->"Courier New", FontSize->18], Cell["\<\ Os hor\[AAcute]rios puros s\[ATilde]o aquelas horas que v\[ATilde]o de meia \ noite e um ate meio dia e cinq\[UDoubleDot]enta e nove. Os hor\[AAcute]rios puros tamb\[EAcute]m possuem outra particularidade. As horas s\[ATilde]o iguais aos minutos. Por exemplo 02:02 Os hor\[AAcute]rios de uma hora da tarde at\[EAcute] meia noite n\[ATilde]o s\ \[ATilde]o hor\[AAcute]rios puros justamente por ter uma dupla coloca\ \[CCedilla]\[ATilde]o. S\[ATilde]o hor\[AAcute]rios duais, pois 23:23 , 11:11 \ Pm.\ \>", "Text"], Cell["Vamos achar uma formula para os horarios puros.", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(Off[General::spell1]\), "\[IndentingNewLine]", \(Lista = Table[{m, n, "\<:\>", m, n}, {m, 0, 1}, {n, 0, 9}]\)}], "Input",\ FontFamily->"Courier New"], Cell[BoxData[ \({{{0, 0, ":", 0, 0}, {0, 1, ":", 0, 1}, {0, 2, ":", 0, 2}, {0, 3, ":", 0, 3}, {0, 4, ":", 0, 4}, {0, 5, ":", 0, 5}, {0, 6, ":", 0, 6}, {0, 7, ":", 0, 7}, {0, 8, ":", 0, 8}, {0, 9, ":", 0, 9}}, {{1, 0, ":", 1, 0}, {1, 1, ":", 1, 1}, {1, 2, ":", 1, 2}, {1, 3, ":", 1, 3}, {1, 4, ":", 1, 4}, {1, 5, ":", 1, 5}, {1, 6, ":", 1, 6}, {1, 7, ":", 1, 7}, {1, 8, ":", 1, 8}, {1, 9, ":", 1, 9}}}\)], "Output"] }, Open ]], Cell[BoxData[ \(Fun\[CCedilla]\[ATilde]o[a_, b_, c_] := ToString[Lista\[LeftDoubleBracket]a, b, c\[RightDoubleBracket]]\)], "Input", FontFamily->"Courier New"], Cell[BoxData[ \(Hora01[a_, b_] := Fun\[CCedilla]\[ATilde]o[a, b, 1] <> Fun\[CCedilla]\[ATilde]o[a, b, 2] <> Fun\[CCedilla]\[ATilde]o[a, b, 3] <> Fun\[CCedilla]\[ATilde]o[a, b, 4] <> Fun\[CCedilla]\[ATilde]o[a, b, 5]\)], "Input", FontFamily->"Courier New"], Cell[CellGroupData[{ Cell[BoxData[ \(Soma = \[Sum]\+\(n = 2\)\%10 Hora01[1, n] + \[Sum]\+\(n = 1\)\%3 Hora01[ 2, n]\)], "Input", FontFamily->"Courier New"], Cell[BoxData[ \("01:01" + "02:02" + "03:03" + "04:04" + "05:05" + "06:06" + "07:07" + "08:08" + "09:09" + "10:10" + "11:11" + "12:12"\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(HorasPuras = TableForm[ Table[Soma\[LeftDoubleBracket]n\[RightDoubleBracket], {n, 1, 12}]]\)], "Input", FontFamily->"Courier New"], Cell[BoxData[ InterpretationBox[GridBox[{ {"\<\"01:01\"\>"}, {"\<\"02:02\"\>"}, {"\<\"03:03\"\>"}, {"\<\"04:04\"\>"}, {"\<\"05:05\"\>"}, {"\<\"06:06\"\>"}, {"\<\"07:07\"\>"}, {"\<\"08:08\"\>"}, {"\<\"09:09\"\>"}, {"\<\"10:10\"\>"}, {"\<\"11:11\"\>"}, {"\<\"12:12\"\>"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"01:01", "02:02", "03:03", "04:04", "05:05", "06:06", "07:07", "08:08", "09:09", "10:10", "11:11", "12:12"}]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(NumeroDeHorariosPuros = Length[HorasPuras\[LeftDoubleBracket]1\[RightDoubleBracket]]\)], "Input",\ FontFamily->"Courier New"], Cell[BoxData[ \(12\)], "Output"] }, Open ]], Cell[BoxData[ \(De\ quantos\ em\ quantos\ minutos\ podemos\ fazer\ um\ desejo\ com\ os\ \ horarios\ puros? Como\ podemos\ ver\ a\ diferen\[CCedilla]a\ \[EAcute]\ de\ uma\ hora\ \ e\ um\ minuto . Porem\ meio\ dia\ e\ doze\ teremos\ que\ esperar\ doze\ horas\ e\ \ quarenta\ e\ nove\ minutos\ para\ desejar\)], "Text", FontFamily->"Courier New"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Hor\[AAcute]rios\ ImPuros\)], "Section", FontFamily->"Courier New", FontSize->18], Cell["\<\ S\[ATilde]o parecidos com os horarios puros, os horarios puros possuem uma \ diferen\[CCedilla]a de uma hora e um minuto para cada desejo, j\[AAcute] os \ horarios impuros nos enganam por causa dos relogios, podem ser 23:23 ou 11:11 \ pm. Assim possuem um intervalo menor, sao impuros.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Lista = Table[{m, n, "\<:\>", m, n}, {m, 0, 2}, {n, 0, 9}]\)], "Input", FontFamily->"Courier New"], Cell[BoxData[ \({{{0, 0, ":", 0, 0}, {0, 1, ":", 0, 1}, {0, 2, ":", 0, 2}, {0, 3, ":", 0, 3}, {0, 4, ":", 0, 4}, {0, 5, ":", 0, 5}, {0, 6, ":", 0, 6}, {0, 7, ":", 0, 7}, {0, 8, ":", 0, 8}, {0, 9, ":", 0, 9}}, {{1, 0, ":", 1, 0}, {1, 1, ":", 1, 1}, {1, 2, ":", 1, 2}, {1, 3, ":", 1, 3}, {1, 4, ":", 1, 4}, {1, 5, ":", 1, 5}, {1, 6, ":", 1, 6}, {1, 7, ":", 1, 7}, {1, 8, ":", 1, 8}, {1, 9, ":", 1, 9}}, {{2, 0, ":", 2, 0}, {2, 1, ":", 2, 1}, {2, 2, ":", 2, 2}, {2, 3, ":", 2, 3}, {2, 4, ":", 2, 4}, {2, 5, ":", 2, 5}, {2, 6, ":", 2, 6}, {2, 7, ":", 2, 7}, {2, 8, ":", 2, 8}, {2, 9, ":", 2, 9}}}\)], "Output"] }, Open ]], Cell[BoxData[ \(Fun\[CCedilla]\[ATilde]o[a_, b_, c_] := ToString[Lista\[LeftDoubleBracket]a, b, c\[RightDoubleBracket]]\)], "Input", FontFamily->"Courier New"], Cell[BoxData[ \(Hora01[a_, b_] := Fun\[CCedilla]\[ATilde]o[a, b, 1] <> Fun\[CCedilla]\[ATilde]o[a, b, 2] <> Fun\[CCedilla]\[ATilde]o[a, b, 3] <> Fun\[CCedilla]\[ATilde]o[a, b, 4] <> Fun\[CCedilla]\[ATilde]o[a, b, 5]\)], "Input", FontFamily->"Courier New"], Cell[CellGroupData[{ Cell[BoxData[ \(Soma = \[Sum]\+\(n = 1\)\%10 Hora01[1, n] + \[Sum]\+\(n = 1\)\%10 Hora01[2, n] + \[Sum]\+\(n = 1\)\%5 Hora01[3, n]\)], "Input", FontFamily->"Courier New"], Cell[BoxData[ \("00:00" + "01:01" + "02:02" + "03:03" + "04:04" + "05:05" + "06:06" + "07:07" + "08:08" + "09:09" + "10:10" + "11:11" + "12:12" + "13:13" + "14:14" + "15:15" + "16:16" + "17:17" + "18:18" + "19:19" + "20:20" + "21:21" + "22:22" + "23:23" + "24:24"\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(HorasImPuras = TableForm[ Table[Soma\[LeftDoubleBracket]n\[RightDoubleBracket], {n, 1, 25}]]\)], "Input", FontFamily->"Courier New"], Cell[BoxData[ InterpretationBox[GridBox[{ {"\<\"00:00\"\>"}, {"\<\"01:01\"\>"}, {"\<\"02:02\"\>"}, {"\<\"03:03\"\>"}, {"\<\"04:04\"\>"}, {"\<\"05:05\"\>"}, {"\<\"06:06\"\>"}, {"\<\"07:07\"\>"}, {"\<\"08:08\"\>"}, {"\<\"09:09\"\>"}, {"\<\"10:10\"\>"}, {"\<\"11:11\"\>"}, {"\<\"12:12\"\>"}, {"\<\"13:13\"\>"}, {"\<\"14:14\"\>"}, {"\<\"15:15\"\>"}, {"\<\"16:16\"\>"}, {"\<\"17:17\"\>"}, {"\<\"18:18\"\>"}, {"\<\"19:19\"\>"}, {"\<\"20:20\"\>"}, {"\<\"21:21\"\>"}, {"\<\"22:22\"\>"}, {"\<\"23:23\"\>"}, {"\<\"24:24\"\>"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"00:00", "01:01", "02:02", "03:03", "04:04", "05:05", "06:06", "07:07", "08:08", "09:09", "10:10", "11:11", "12:12", "13:13", "14:14", "15:15", "16:16", "17:17", "18:18", "19:19", "20:20", "21:21", "22:22", "23:23", "24:24"}]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(NumeroDeHorariosImPuros = Length[HorasImPuras\[LeftDoubleBracket]1\[RightDoubleBracket]]\)], \ "Input", FontFamily->"Courier New"], Cell[BoxData[ \(25\)], "Output"] }, Open ]], Cell["De quanto em quanto tempo podemos fazer um desejo?", "Text"], Cell["\<\ Como 23:23 = 11:23 pm. Ent\[ATilde]o podemos desejar 11:11 pm e 23:23. uma \ diferen\[CCedilla]a de 12 minutos, podemos ver que essa razao permanece \ constante. Ent\[ATilde]o fazemos um desejo em 12 minutos depois outro apos 49 \ minutos, depois um a 12 min ... e assim se segue, sendo a media de desejos a \ cada 30.5 minutos\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Hor\[AAcute]rios\ Seq\[UDoubleDot]enciais\)], "Section", FontFamily->"Courier New", FontSize->18], Cell["\<\ Os hor\[AAcute]rios seq\[UDoubleDot]enciais s\[ATilde]o formados pela seq\ \[UDoubleDot]\[EHat]ncia,de raz\[ATilde]o um,de d\[IAcute]gitos de um rel\ \[OAcute]gio. Por exemplo, 01:23. S\[ATilde]o Hor\[AAcute]rios muito raros. Aproveite-os bem\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Lista = Table[{n, n + 1, "\<:\>", n + 2, n + 3}, {n, 0, 2}]\)], "Input",\ FontFamily->"Courier New"], Cell[BoxData[ \({{0, 1, ":", 2, 3}, {1, 2, ":", 3, 4}, {2, 3, ":", 4, 5}}\)], "Output"] }, Open ]], Cell[BoxData[ \(Fun\[CCedilla]\[ATilde]o[a_, b_] := ToString[Lista\[LeftDoubleBracket]a, b\[RightDoubleBracket]]\)], "Input",\ FontFamily->"Courier New"], Cell[BoxData[ \(Hora01[a_] := Fun\[CCedilla]\[ATilde]o[a, 1] <> Fun\[CCedilla]\[ATilde]o[a, 2] <> Fun\[CCedilla]\[ATilde]o[a, 3] <> Fun\[CCedilla]\[ATilde]o[a, 4] <> Fun\[CCedilla]\[ATilde]o[a, 5]\)], "Input", FontFamily->"Courier New"], Cell[CellGroupData[{ Cell[BoxData[ \(Sequencia = TableForm[Table[Hora01[n], {n, 1, 3}]]\)], "Input", FontFamily->"Courier New"], Cell[BoxData[ InterpretationBox[GridBox[{ {"\<\"01:23\"\>"}, {"\<\"12:34\"\>"}, {"\<\"23:45\"\>"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"01:23", "12:34", "23:45"}]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(NumeroDeHorariosSequenciais = Length[Sequencia\[LeftDoubleBracket]1\[RightDoubleBracket]]\)], "Input",\ FontFamily->"Courier New"], Cell[BoxData[ \(3\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(Lista\[LeftDoubleBracket]2\[RightDoubleBracket] - Lista\[LeftDoubleBracket]1\[RightDoubleBracket]\), "\n", \(Lista\[LeftDoubleBracket]3\[RightDoubleBracket] - Lista\[LeftDoubleBracket]2\[RightDoubleBracket]\)}], "Input", FontFamily->"Courier New"], Cell[BoxData[ \({1, 1, 0, 1, 1}\)], "Output"], Cell[BoxData[ \({1, 1, 0, 1, 1}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(23 + 15\)], "Input", FontFamily->"Courier New"], Cell[BoxData[ \(38\)], "Output"] }, Open ]], Cell["\<\ Ent\[ATilde]o podemos fazer um desejo sequencial a cada 11 horas e 11 \ minutos, sendo que as 23:45 teremos que esperar apenas uma hora e 38 minutos \ para desejas. Aproveite esse horario.\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Hor\[AAcute]rios\ Inversos\)], "Section", FontFamily->"Courier New", FontSize->18], Cell["\<\ S\[ATilde]o as horas cujos minutos s\[ATilde]o os inversos das horas, ao \ contrario. Por exemplo, 02:20\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Lista = Table[{m, n, "\<:\>", n, m}, {m, 0, 2}, {n, 0, 9}]\)], "Input", FontFamily->"Courier New"], Cell[BoxData[ \({{{0, 0, ":", 0, 0}, {0, 1, ":", 1, 0}, {0, 2, ":", 2, 0}, {0, 3, ":", 3, 0}, {0, 4, ":", 4, 0}, {0, 5, ":", 5, 0}, {0, 6, ":", 6, 0}, {0, 7, ":", 7, 0}, {0, 8, ":", 8, 0}, {0, 9, ":", 9, 0}}, {{1, 0, ":", 0, 1}, {1, 1, ":", 1, 1}, {1, 2, ":", 2, 1}, {1, 3, ":", 3, 1}, {1, 4, ":", 4, 1}, {1, 5, ":", 5, 1}, {1, 6, ":", 6, 1}, {1, 7, ":", 7, 1}, {1, 8, ":", 8, 1}, {1, 9, ":", 9, 1}}, {{2, 0, ":", 0, 2}, {2, 1, ":", 1, 2}, {2, 2, ":", 2, 2}, {2, 3, ":", 3, 2}, {2, 4, ":", 4, 2}, {2, 5, ":", 5, 2}, {2, 6, ":", 6, 2}, {2, 7, ":", 7, 2}, {2, 8, ":", 8, 2}, {2, 9, ":", 9, 2}}}\)], "Output"] }, Open ]], Cell[BoxData[ \(Fun\[CCedilla]\[ATilde]o[a_, b_, c_] := ToString[Lista\[LeftDoubleBracket]a, b, c\[RightDoubleBracket]]\)], "Input", FontFamily->"Courier New"], Cell[BoxData[ \(Hora01[a_, b_] := Fun\[CCedilla]\[ATilde]o[a, b, 1] <> Fun\[CCedilla]\[ATilde]o[a, b, 2] <> Fun\[CCedilla]\[ATilde]o[a, b, 3] <> Fun\[CCedilla]\[ATilde]o[a, b, 4] <> Fun\[CCedilla]\[ATilde]o[a, b, 5]\)], "Input", FontFamily->"Courier New"], Cell[CellGroupData[{ Cell[BoxData[ \(Soma = \[Sum]\+\(n = 1\)\%6 Hora01[1, n] + \[Sum]\+\(n = 1\)\%6 Hora01[ 2, n] + \[Sum]\+\(n = 1\)\%5 Hora01[3, n]\)], "Input", FontFamily->"Courier New"], Cell[BoxData[ \("00:00" + "01:10" + "02:20" + "03:30" + "04:40" + "05:50" + "10:01" + "11:11" + "12:21" + "13:31" + "14:41" + "15:51" + "20:02" + "21:12" + "22:22" + "23:32" + "24:42"\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(HorasInversas = TableForm[ Table[Soma\[LeftDoubleBracket]n\[RightDoubleBracket], {n, 1, 17}]]\)], "Input", FontFamily->"Courier New"], Cell[BoxData[ InterpretationBox[GridBox[{ {"\<\"00:00\"\>"}, {"\<\"01:10\"\>"}, {"\<\"02:20\"\>"}, {"\<\"03:30\"\>"}, {"\<\"04:40\"\>"}, {"\<\"05:50\"\>"}, {"\<\"10:01\"\>"}, {"\<\"11:11\"\>"}, {"\<\"12:21\"\>"}, {"\<\"13:31\"\>"}, {"\<\"14:41\"\>"}, {"\<\"15:51\"\>"}, {"\<\"20:02\"\>"}, {"\<\"21:12\"\>"}, {"\<\"22:22\"\>"}, {"\<\"23:32\"\>"}, {"\<\"24:42\"\>"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ {"00:00", "01:10", "02:20", "03:30", "04:40", "05:50", "10:01", "11:11", "12:21", "13:31", "14:41", "15:51", "20:02", "21:12", "22:22", "23:32", "24:42"}]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(NumeroDeHorariosInversas = Length[HorasInversas\[LeftDoubleBracket]1\[RightDoubleBracket]]\)], \ "Input", FontFamily->"Courier New"], Cell[BoxData[ \(17\)], "Output"] }, Open ]], Cell["\<\ Os desejos sao feitos a cada uma hora e dez minutos. Sendo que as 5 e 50 da \ manha temos que esperar 4 horas e onze minutos e depois se segue uma hora e \ dez minutos a cada desejo e quanto se cehga 15:51 temos que esperar mais \ quatro horas e onze minutos.\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Conclus\[OTilde]es\)], "Section", FontFamily->"Courier New", FontSize->18], Cell[BoxData[ \(Temos\ direito\ a\ 57\ desejos\ em\ um\ dia\)], "Text", FontFamily->"Courier New"], Cell[CellGroupData[{ Cell[BoxData[ \(NumeroDeHorariosSequenciais + NumeroDeHorariosPuros + NumeroDeHorariosImPuros + NumeroDeHorariosInversas\)], "Input", FontFamily->"Courier New"], Cell[BoxData[ \(57\)], "Output"] }, Open ]], Cell["\<\ Isso mostra os horarios para desejos, os horarios com um dois na frente s\ \[ATilde]o os horarios duais, ou seja, temos direito a dois desejos e existe \ um horario, 11:11, que \[EAcute] conhecido como horario sagrado, temos \ direito a 3 desejos em um horario so!\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\[Sum]\+\(n = 1\)\%NumeroDeHorariosPuros HorasPuras\[LeftDoubleBracket]1, n\[RightDoubleBracket] + \[Sum]\+\(n = 1\)\%NumeroDeHorariosImPuros HorasImPuras\[LeftDoubleBracket]1, n\[RightDoubleBracket] + \[Sum]\+\(n = \ 1\)\%NumeroDeHorariosSequenciais Sequencia\[LeftDoubleBracket]1, n\[RightDoubleBracket] + \[Sum]\+\(n = \ 1\)\%NumeroDeHorariosInversas HorasInversas\[LeftDoubleBracket]1, n\[RightDoubleBracket]\)], "Input", FontFamily->"Courier New"], Cell[BoxData[ \(2\ "00:00" + 2\ "01:01" + "01:10" + "01:23" + 2\ "02:02" + "02:20" + 2\ "03:03" + "03:30" + 2\ "04:04" + "04:40" + 2\ "05:05" + "05:50" + 2\ "06:06" + 2\ "07:07" + 2\ "08:08" + 2\ "09:09" + "10:01" + 2\ "10:10" + 3\ "11:11" + 2\ "12:12" + "12:21" + "12:34" + "13:13" + "13:31" + "14:14" + "14:41" + "15:15" + "15:51" + "16:16" + "17:17" + "18:18" + "19:19" + "20:02" + "20:20" + "21:12" + "21:21" + 2\ "22:22" + "23:23" + "23:32" + "23:45" + "24:24" + "24:42"\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(w = Characters[ ToString["\<00:00\>" + "\<01:01\>" + "\<01:10\>" + "\<01:23\>" + \ "\<02:02\>" + "\<02:20\>" + "\<03:03\>" + "\<03:30\>" + "\<04:04\>" + \ "\<04:40\>" + "\<05:05\>" + "\<05:50\>" + "\<06:06\>" + "\<07:07\>" + \ "\<08:08\>" + "\<09:09\>" + "\<10:01\>" + "\<10:10\>" + "\<11:11\>" + \ "\<12:12\>" + "\<12:21\>" + "\<12:34\>" + "\<13:13\>" + "\<13:31\>" + \ "\<14:14\>" + "\<14:41\>" + "\<15:15\>" + "\<15:51\>" + "\<16:16\>" + \ "\<17:17\>" + "\<18:18\>" + "\<19:19\>" + "\<20:02\>" + "\<20:20\>" + \ "\<21:12\>" + "\<21:21\>" + "\<22:22\>" + "\<23:23\>" + "\<23:32\>" + \ "\<23:45\>" + "\<24:24\>" + "\<24:42\>"]] /. \[InvisibleSpace]{"\<+\>" \ \[Rule] "\< \>"}\)], "Input", FontFamily->"Courier New"], Cell[BoxData[ \({"0", "0", ":", "0", "0", " ", " ", " ", "0", "1", ":", "0", "1", " ", " ", " ", "0", "1", ":", "1", "0", " ", " ", " ", "0", "1", ":", "2", "3", " ", " ", " ", "0", "2", ":", "0", "2", " ", " ", " ", "0", "2", ":", "2", "0", " ", " ", " ", "0", "3", ":", "0", "3", " ", " ", " ", "0", "3", ":", "3", "0", " ", " ", " ", "0", "4", ":", "0", "4", " ", " ", " ", "0", "4", ":", "4", "0", " ", " ", " ", "0", "5", ":", "0", "5", " ", " ", " ", "0", "5", ":", "5", "0", " ", " ", " ", "0", "6", ":", "0", "6", " ", " ", " ", "0", "7", ":", "0", "7", " ", " ", " ", "0", "8", ":", "0", "8", " ", " ", " ", "0", "9", ":", "0", "9", " ", " ", " ", "1", "0", ":", "0", "1", " ", " ", " ", "1", "0", ":", "1", "0", " ", " ", " ", "1", "1", ":", "1", "1", " ", " ", " ", "1", "2", ":", "1", "2", " ", " ", " ", "1", "2", ":", "2", "1", " ", " ", " ", "1", "2", ":", "3", "4", " ", " ", " ", "1", "3", ":", "1", "3", " ", " ", " ", "1", "3", ":", "3", "1", " ", " ", " ", "1", "4", ":", "1", "4", " ", " ", " ", "1", "4", ":", "4", "1", " ", " ", " ", "1", "5", ":", "1", "5", " ", " ", " ", "1", "5", ":", "5", "1", " ", " ", " ", "1", "6", ":", "1", "6", " ", " ", " ", "1", "7", ":", "1", "7", " ", " ", " ", "1", "8", ":", "1", "8", " ", " ", " ", "1", "9", ":", "1", "9", " ", " ", " ", "2", "0", ":", "0", "2", " ", " ", " ", "2", "0", ":", "2", "0", " ", " ", " ", "2", "1", ":", "1", "2", " ", " ", " ", "2", "1", ":", "2", "1", " ", " ", " ", "2", "2", ":", "2", "2", " ", " ", " ", "2", "3", ":", "2", "3", " ", " ", " ", "2", "3", ":", "3", "2", " ", " ", " ", "2", "3", ":", "4", "5", " ", " ", " ", "2", "4", ":", "2", "4", " ", " ", " ", "2", "4", ":", "4", "2"}\)], "Output"] }, Open ]], Cell[BoxData[ \(Horas[n_] := ToExpression[w\[LeftDoubleBracket]n\[RightDoubleBracket]]\ 60\ 10 + ToExpression[w\[LeftDoubleBracket]n + 1\[RightDoubleBracket]]\ 60 + ToExpression[w\[LeftDoubleBracket]n + 3\[RightDoubleBracket]]\ 10 + ToExpression[ w\[LeftDoubleBracket]n + 4\[RightDoubleBracket]]\)], "Input", FontFamily->"Courier New"], Cell[BoxData[ \(Diferen\[CCedilla]a[n_] := Horas[1 + n\ 8] - Horas[1 + \((n - 1)\)\ 8]\)], "Input", FontFamily->"Courier New"], Cell[CellGroupData[{ Cell[BoxData[ \(p = Table[Diferen\[CCedilla]a[n], {n, 1, 41}]\)], "Input", FontFamily->"Courier New"], Cell[BoxData[ \({61, 9, 13, 39, 18, 43, 27, 34, 36, 25, 45, 16, 61, 61, 61, 52, 9, 61, 61, 9, 13, 39, 18, 43, 27, 34, 36, 25, 61, 61, 61, 43, 18, 52, 9, 61, 61, 9, 13, 39, 18}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(p . Table[1, {41}]\/41. \)], "Input", FontFamily->"Courier New"], Cell[BoxData[ \(36.146341463414636`\)], "Output"] }, Open ]], Cell["\<\ O que esses dados nos mostra!? Mostram que, o dia come\[CCedilla]a meia noite, e que apartir dai e \ contando apos desejar algo meia noite o proximo desejo sera apos 61 minutos, \ dps o proximo a 9 minutos. e assim por diante. a media de desejos em um dia \ \[EAcute] um desejo a cada 36 minutos. Eu nao levei em conta que 23 = 11 pm. pois ja to de saco cheio dessa \ estupidez.\ \>", "Text"] }, Open ]] }, Open ]] }, FrontEndVersion->"5.2 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 677}}, WindowSize->{840, 492}, WindowMargins->{{30, Automatic}, {Automatic, 63}}, CellLabelAutoDelete->True, FontFamily->"Courier New" ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 72, 2, 83, "Title"], Cell[1851, 57, 87, 2, 51, "Subtitle"], Cell[1941, 61, 66, 1, 30, "Subsubtitle"], Cell[2010, 64, 130, 3, 30, "Subsubtitle"], Cell[2143, 69, 242, 5, 71, "Text"], Cell[CellGroupData[{ Cell[2410, 78, 103, 3, 70, "Section"], Cell[2516, 83, 522, 10, 128, "Text"], Cell[3041, 95, 63, 0, 33, "Text"], Cell[CellGroupData[{ Cell[3129, 99, 178, 4, 50, "Input"], Cell[3310, 105, 473, 6, 86, "Output"] }, Open ]], Cell[3798, 114, 183, 4, 30, "Input"], Cell[3984, 120, 295, 6, 30, "Input"], Cell[CellGroupData[{ Cell[4304, 130, 152, 3, 51, "Input"], Cell[4459, 135, 158, 2, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4654, 142, 180, 5, 30, "Input"], Cell[4837, 149, 673, 20, 215, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5547, 174, 155, 4, 30, "Input"], Cell[5705, 180, 36, 1, 29, "Output"] }, Open ]], Cell[5756, 184, 366, 7, 50, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[6159, 196, 105, 3, 70, "Section"], Cell[6267, 201, 309, 5, 71, "Text"], Cell[CellGroupData[{ Cell[6601, 210, 120, 2, 30, "Input"], Cell[6724, 214, 698, 9, 124, "Output"] }, Open ]], Cell[7437, 226, 183, 4, 30, "Input"], Cell[7623, 232, 295, 6, 30, "Input"], Cell[CellGroupData[{ Cell[7943, 242, 189, 3, 51, "Input"], Cell[8135, 247, 302, 4, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8474, 256, 182, 5, 30, "Input"], Cell[8659, 263, 1185, 35, 423, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9881, 303, 159, 4, 30, "Input"], Cell[10043, 309, 36, 1, 29, "Output"] }, Open ]], Cell[10094, 313, 66, 0, 33, "Text"], Cell[10163, 315, 351, 6, 71, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[10551, 326, 121, 3, 70, "Section"], Cell[10675, 331, 266, 5, 71, "Text"], Cell[CellGroupData[{ Cell[10966, 340, 123, 3, 30, "Input"], Cell[11092, 345, 91, 1, 29, "Output"] }, Open ]], Cell[11198, 349, 167, 4, 30, "Input"], Cell[11368, 355, 267, 5, 30, "Input"], Cell[CellGroupData[{ Cell[11660, 364, 112, 2, 30, "Input"], Cell[11775, 368, 322, 10, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12134, 383, 160, 4, 30, "Input"], Cell[12297, 389, 35, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12369, 395, 289, 5, 50, "Input"], Cell[12661, 402, 49, 1, 29, "Output"], Cell[12713, 405, 49, 1, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12799, 411, 69, 2, 30, "Input"], Cell[12871, 415, 36, 1, 29, "Output"] }, Open ]], Cell[12922, 419, 212, 4, 52, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[13171, 428, 106, 3, 70, "Section"], Cell[13280, 433, 133, 4, 52, "Text"], Cell[CellGroupData[{ Cell[13438, 441, 120, 2, 30, "Input"], Cell[13561, 445, 698, 9, 124, "Output"] }, Open ]], Cell[14274, 457, 183, 4, 30, "Input"], Cell[14460, 463, 295, 6, 30, "Input"], Cell[CellGroupData[{ Cell[14780, 473, 187, 3, 51, "Input"], Cell[14970, 478, 215, 3, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15222, 486, 183, 5, 30, "Input"], Cell[15408, 493, 872, 26, 295, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16317, 524, 161, 4, 30, "Input"], Cell[16481, 530, 36, 1, 29, "Output"] }, Open ]], Cell[16532, 534, 283, 5, 71, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[16852, 544, 98, 3, 70, "Section"], Cell[16953, 549, 104, 2, 31, "Text"], Cell[CellGroupData[{ Cell[17082, 555, 173, 3, 50, "Input"], Cell[17258, 560, 36, 1, 29, "Output"] }, Open ]], Cell[17309, 564, 288, 5, 71, "Text"], Cell[CellGroupData[{ Cell[17622, 573, 540, 10, 98, "Input"], Cell[18165, 585, 542, 8, 86, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18744, 598, 755, 13, 130, "Input"], Cell[19502, 613, 1860, 24, 200, "Output"] }, Open ]], Cell[21377, 640, 385, 7, 50, "Input"], Cell[21765, 649, 139, 3, 30, "Input"], Cell[CellGroupData[{ Cell[21929, 656, 107, 2, 30, "Input"], Cell[22039, 660, 207, 3, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22283, 668, 86, 2, 42, "Input"], Cell[22372, 672, 53, 1, 29, "Output"] }, Open ]], Cell[22440, 676, 415, 9, 128, "Text"] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)