Makro zur Fourier-Reihenentwickung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Klaus,
das kannst Du z.B. so ermitteln:

Option Explicit
Sub bereichAufrufen()
Dim ergebnis
ergebnis = bereich("Q")  ' oben und unten Text, dazwischen Zahlen
MsgBox ergebnis(1) & " : " & ergebnis(2)
ergebnis = bereich("T")  ' nur Text
MsgBox ergebnis(1) & " : " & ergebnis(2)
ergebnis = bereich("U")  ' alles Text, nur eine Zahl
MsgBox ergebnis(1) & " : " & ergebnis(2)
End Sub
Function bereich(spalte$)
Dim r As Range
Dim i&, uFix&, oFix& ' & = as long
Dim vonbis&(1 To 2)
Set r = Intersect(UsedRange, Columns(spalte))
bereich = vonbis
If Not r Is Nothing Then
oFix = r(1).Row
uFix = r(r.Count).Row
i = oFix
While i = oFix And (Not IsNumeric(r(i).Value) Or r(i).Value = ""): i = i - 1: Wend
If i = oFix - 1 Then Exit Function
vonbis(2) = oFix + i - 1
bereich = vonbis
End If
End Function

Ansonsten kann ich Berechnungen in Deiner Beispieldatei nicht recht nachvollziehen: in L37 ziehst Du 30 von 150 ab, in L53 umgekehrt.
Da die "Stellen" mitunter recht flott davongaloppieren und oft ab einem gewissen n Excels Wertebereich für double überschreiten, könntest Du in Deinem Makro den 10er-Exponenten ermitteln (als Formel: =log10(100) ergibt z.B. 2) und vergleichen, und wenn die Differenz mehr als 15 beträgt (die verfügbaren, signifikanten Stellen) kannst Du die Iteration abbrechen.
Übrigens habe ich mal Deine Werte in "meine" Formeln eingesetzt und mich gewundert, daß bei Dir in O62 eine 0 steht und bei mir #ZAHL; das liegt daran, daß ich mit dem Ergebnis "weiterrechne". Abstrakt ausgedrückt, ergibt =EXP(-große Zahl) =0, aber =1/Exp(große Zahl) einen Fehler.
Daß Deine Ergebnisse (zumindest die in der Datei) nicht passen, ist nicht verwunderlich: Du stellst das +/- zwar z.B. in N53:N62 dar, berechnest aber in O63 einfach die Summe, ohne das Vorzeichen zu beachten (also nur +).
Schöne Grüße,
Michael

Hi Klaus,
ich habe die Geschichte mal etwas aufgepäppelt:
a) Einsatz meiner Function Bereich
b) Du hast ja unterschiedliche Startwerte in den Zeilen 25 und 26; deshalb habe ich die Nummern dieser Zeilen in die gelbe Spalte gesteckt, so daß immer die komplette Spalte Q durchgeackert wird, und zwar mit den jeweils passenden Startwerten.
c) der Algorithmus ist optimiert (überflüssige Berechnungen aus dem Exp() rausgenommen: war übrigens bereits in meiner ersten Datei schon so als reine Formel optimiert.
d) zwei Varianten: n=1..10 und insbesondere mit variablem n: letzterer rechnet bis max. n=1000 (eigentlich 999, weil "kleiner") - mit dem Wert kannst Du mal spielen - und es wird log10 ausgewertet als Abbruchbedingung.
Du schreibst ja schon so schön: Für kleine Zeiten sind deutlich mehr als 10 Iterationen erforderlich! Stimmt genau: Du wirst sehen...
Das Skript habe ich einigermaßen dokumentiert; was für Dich neu sein dürfte, ist der Einsatz von Arrays, da kannst Du Dich mal einlesen: http://www.online-excel.de/excel/singsel_vba.php?f=152
Die Schleife bricht ab, sobald die Differenz von log10(1. Wert) und log10(akt. Wert) größer als 15 ist: in dem Fall "rutscht" der aktuelle Wert aus den signifikanten Stellen des 1. (und größten) Werts "heraus"; bei sehr "galoppierenden" Stellenverschiebungen ist das schon bei n=4 so.
Die Datei: https://www.herber.de/bbs/user/108979.xlsm
Damit man unsere Werte vergleichen kann, erfolgt meine Ausgabe erst Mal in Spalte U (Const SpE = "U"), das kannst Du ja dann ändern.
Ich habe einige Testwerte geändert (wegen der "sehr kleinen Zeiten"); die sind grün markiert. Deine Originalwerte habe ich nach rechts kopiert (ab Spalte ").
Schöne Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

Makro zur Fourier-Reihenentwickung

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread