WishMaster

Por Thales Fernandes

Para Stephanie

Como aproveitas seus desejos da melhor forma possivel

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á.

Horários Puros

Os horários puros são aquelas horas que vão de meia noite e um ate meio dia e cinqüenta e nove.
Os horários puros também possuem outra particularidade.
As horas são iguais aos minutos.
Por exemplo 02:02
Os horários de uma hora da tarde até meia noite não são horários puros justamente por ter uma dupla colocação. São horários duais, pois 23:23 , 11:11 Pm.

Vamos achar uma formula para os horarios puros.

Off[General::spell1]
Lista = Table[{m, n, ":", m, n}, {m, 0, 1}, {n, 0, 9}]

Função[a_, b_, c_] := 
      ToString[Lista[[a, b, 
          c]]]

Hora01[a_, b_] := 
      Função[a, b, 1] <> Função[a, b, 2] <> 
        Função[a, b, 3] <> 
        Função[a, b, 4] <> 
        Função[a, b, 5]

Soma = (∑_(n = 2)^10) Hora01[1, n] + (∑_(n = 1)^3) Hora01[
            2, n]

HorasPuras = 
      TableForm[
        Table[Soma[[n]], {n, 1, 
            12}]]

NumeroDeHorariosPuros = 
      Length[HorasPuras[[1]]]

\(De\ quantos\ em\ quantos\ minutos\ podemos\ fazer\ um\ desejo\ com\ os\ horarios\ puros?
        Como\ podemos\ ver\ a\ diferença\ é\ de\ uma\ hora\ e\ um\ minuto . 
        Porem\ meio\ dia\ e\ doze\ teremos\ que\ esperar\ doze\ horas\ e\ quarenta\ e\ nove\ minutos\ para\ desejar\)

Horários ImPuros

São parecidos com os horarios puros, os horarios puros possuem uma diferença de uma hora e um minuto para cada desejo, já os horarios impuros nos enganam por causa dos relogios, podem ser 23:23 ou 11:11 pm. Assim possuem um intervalo menor, sao impuros.

Lista = Table[{m, n, ":", m, n}, {m, 0, 2}, {n, 0, 9}]

Função[a_, b_, c_] := 
      ToString[Lista[[a, b, 
          c]]]

Hora01[a_, b_] := 
      Função[a, b, 1] <> Função[a, b, 2] <> 
        Função[a, b, 3] <> 
        Função[a, b, 4] <> 
        Função[a, b, 5]

Soma = (∑_(n = 1)^10) Hora01[1, n] + (∑_(n = 1)^10) 
            Hora01[2, n] + (∑_(n = 1)^5) Hora01[3, n]

HorasImPuras = 
      TableForm[
        Table[Soma[[n]], {n, 1, 
            25}]]

NumeroDeHorariosImPuros = 
      Length[HorasImPuras[[1]]]

De quanto em quanto tempo podemos fazer um desejo?

Como 23:23 = 11:23 pm. Então podemos desejar 11:11 pm e 23:23. uma diferença de 12 minutos, podemos ver que essa razao permanece constante. Entã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

Horários Seqüenciais

Os horários seqüenciais são formados pela seqüência,de razão um,de dígitos de um relógio. Por exemplo, 01:23.
São Horários muito raros. Aproveite-os bem

Lista = Table[{n, n + 1, ":", n + 2, n + 3}, {n, 0, 2}]

Função[a_, b_] := 
      ToString[Lista[[a, b]]]

Hora01[a_] := 
      Função[a, 1] <> Função[a, 2] <> 
        Função[a, 3] <> Função[a, 4] <> 
        Função[a, 5]

Sequencia = TableForm[Table[Hora01[n], {n, 1, 3}]]

NumeroDeHorariosSequenciais = 
      Length[Sequencia[[1]]]

Lista[[2]] - 
      Lista[[1]]
Lista[[3]] - 
      Lista[[2]]

23 + 15

Entã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.

Horários Inversos

São as horas cujos minutos são os inversos das horas, ao contrario.
    Por exemplo, 02:20

Lista = Table[{m, n, ":", n, m}, {m, 0, 2}, {n, 0, 9}]

Função[a_, b_, c_] := 
      ToString[Lista[[a, b, 
          c]]]

Hora01[a_, b_] := 
      Função[a, b, 1] <> Função[a, b, 2] <> 
        Função[a, b, 3] <> 
        Função[a, b, 4] <> 
        Função[a, b, 5]

Soma = (∑_(n = 1)^6) Hora01[1, n] + (∑_(n = 1)^6) Hora01[
            2, n] + (∑_(n = 1)^5) Hora01[3, n]

HorasInversas = 
      TableForm[
        Table[Soma[[n]], {n, 1, 
            17}]]

NumeroDeHorariosInversas = 
      Length[HorasInversas[[1]]]

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.

Conclusões

Temos direito a 57 desejos em um dia

NumeroDeHorariosSequenciais + NumeroDeHorariosPuros + 
      NumeroDeHorariosImPuros + NumeroDeHorariosInversas

Isso mostra os horarios para desejos, os horarios com um dois na frente são os horarios duais, ou seja, temos direito a dois desejos e existe um horario, 11:11, que é conhecido como horario sagrado, temos direito a 3 desejos em um horario so!

(∑_(n = 1)^NumeroDeHorariosPuros) 
          HorasPuras[[1, 
          n]] + (∑_(n = 1)^NumeroDeHorariosImPuros) 
          HorasImPuras[[1, 
          n]] + (∑_(n = 1)^NumeroDeHorariosSequenciais) Sequencia[[1, 
          n]] + (∑_(n = 1)^NumeroDeHorariosInversas) HorasInversas[[1, 
          n]]

\(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"]] /. {"+" -> " "}\)

Horas[n_] := 
      ToExpression[w[[n]]] 60 10 + 
        ToExpression[w[[n + 1]]] 60 + 
        ToExpression[w[[n + 3]]] 10 + 
        ToExpression[
          w[[n + 4]]]

Diferença[n_] := 
      Horas[1 + n 8] - Horas[1 + (n - 1) 8]

p = Table[Diferença[n], {n, 1, 41}]

p . Table[1, {41}]/41.

O que esses dados nos mostra!?
    Mostram que, o dia começ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 é um desejo a cada 36 minutos.
    
    Eu nao levei em conta que 23 = 11 pm. pois ja to de saco cheio dessa estupidez.