Red de conocimiento informático - Conocimiento del nombre de dominio - ¿Cómo convertir este pseudocódigo en un programa VBA y un programa Matlab? ¡Sería mejor si existieran algoritmos de lenguaje natural y diagramas de flujo! ! !

¿Cómo convertir este pseudocódigo en un programa VBA y un programa Matlab? ¡Sería mejor si existieran algoritmos de lenguaje natural y diagramas de flujo! ! !

La famosa secuencia de Fibonacci

se puede simplificar así:

Los conejos se dividen en pequeños, medianos y grandes.

Cuando nacen, son Pequeños, el segundo mes es mediano, y el tercer mes es grande (cuando se hace grande, da a luz a un pequeño)

Grande = mediano-grande del último mes

Mediano = Pequeño del mes pasado

Pequeño = Grande de este mes

---------------------- ---- --

Sub TuZi()

Dim i, n, s, a1, a2, a3, x()

n = 40 'enésimo mes

ReDim x(1 To n)

a1 = 1: a2 = 0: a3 = 0

Para i = 1 To n

x(i) = a1 a2 a3

a3 = a2 a3

a2 = a1

a1 = a3

Siguiente

' Con [h1] 'Salida a tabla de Excel

' .EntireColumn.ClearContents

' .Resize(UBound(x)) = Aplicación. WorksheetFunction.Transpose(x)

' .Offset(UBound(x)).Select

' End With

' Print Join(x, vbCrLf) '. Salida a ventana de impresión

MsgBox Join(x, vbCrLf) 'Salida a ventana emergente

End Sub