Berechnung wiederholen bis...

[snb]

In A1: 12
In A2:

PHP-Code:

=ISODD(A1)*(A1*3+1)+A1*NOT(ISODD(A1))/2 


[LCohen]

Danke, snb, ...

=ISODD() hilft sogar bei der Gleitkommaproblematik (zufällig eben bei 365 herausgefunden. Ob folgende die Mathematik verbiegende Willkürlichkeit damit zusammenhängt?):

WAHR ab =ISODD(0,9999999999)
FALSCH bis =ISODD(0,9999999998)

Somit kann =ISTUNGERADE() tatsächlich =RUNDEN(;) iVm =REST(;2) ersetzen.

=ISODD(A2)*(A2*3+1)+A2*NOT(ISODD(A2))/2 wird noch etwas kürzer:
=A2/2*(1+ISODD(A2)*5)+ISODD(A2)

[snb]

@LC

[snb]

@Fen

Recursiion:

Code:

Dim c00
Sub M_snb_start()
  M_snb 19
 
  MsgBox c00, , UBound(Split(Trim(c00)))
End Sub

Sub M_snb(y)
  c00 = c00 & " " & y
  If y <> 1 Then M_snb y / 2 * (1 - (y / 2 <> y \ 2) * 5) - (y / 2 <> y \ 2)
End Sub

[snb]

Unsre @Sulp Aufgabe:

Code:

Sub M_snb()
  ReDim st(600, 0)
  st(0, 0) = 3732423
 
  For j = 1 To UBound(st)
    r = -(Right(st(j - 1, 0), 1) Mod 2 = 1)
    st(j, 0) = st(j - 1, 0) / 2 * (1 + r * 5) + r
  Next
 
  Cells(1, 6).Resize(UBound(st)) = st
End Sub

[Sulprobil]

Hallo,

Ein kleiner Spaß: Es gibt 67.108.863 aufeinanderfolgende Zahlen mit derselben Collatz Länge 12970.
Die Folge startet mit 2^1812 + 1 = 292652435770286933444209068126309001887364347693011045047063826386680190104874511016605622067921797273982887309745919683323912158799543454908778177077108843571296658023926661022260884776896291285456014968356772426449688812822106222686467768831393931221511400507429428960930968393209500123452433377908421744173984264843756209043962511933297119107368598903463782739921784282286694708406907914343454077597966511409133606125047103378287562278426610440015021810278725509577366780974596755734755999794535212876968098004759753868306721095484722533892097

Anbei mein Programm (ohne jegliche Gewährleistung, aber ich verwende einen aktuellen Virenscanner).

Have fun,
Bernd


  COF_Collatz.xlsm (Größe: 18,22 KB / Downloads: 3)