Unidad 8: Métodos de Optimización

Ejercicio de la Unidad 8:

Realice un programa que permita medir el rendimiento de cualquier acción.

1.
2. Private Sub Command1_Click()
3. Dim dblStart As Double
4. Dim dblEnd As Double
5. Dim i as Long
6. dblStart = Timer ' Hora de inicio.
7. For i = 0 To 9999
8. »Rutina para probar« ' Escriba su rutina aquí.
9. Next
10. dblEnd = Timer ' Hora de terminación.
11. Debug.Print dblEnd - dblStart ' Presenta el tiempo
transcurrido.
12. End Sub

Unidad 7: Ecuaciones Diferenciales Ordinarias

Ejercicio de la unidad 7:

Dada una serie numérica sumatoria cuyo límite superior es infinito e inferior es k=k0 f(k) , vamos a desplegar las primeras N sumas parciales SN = sumatoria con límite superior infinito e inferior k=k0 f(k) , de la celda A4 en adelante.

Usando la funcion SumaParcial(formula, Kini, N), solo debemos calcular cada suma parcial por separado.
For i = 1 to N
Cells(3+i,1)= SumaParcial(formula,Kini,i)
Next i

El código del botón es:

Private Sub CommandButton1_Click()
Dim x0 As Double
Dim formula1 As String
Dim N As Integer
formula1 = Cells(3, 2)
N = Cells(3, 4)
For i = 1 To N 'sumas parciales S1, S2, ... SN
Cells(3 + i, 1) = "S" + str(i) + " = "
Cells(3 + i, 2) = sp(formula1, 1, i)
Next i
End Sub