plz verbesserungen zu diesem algo...

Re(4): für nur monoton steigende...(auch @tscho)

hariw — Sun, 18 Nov 2001 22:02:18 GMT

korrekt, ich gib nicht leicht auf
jetzt mit do - loop ohne until....
[mit flag war übrigens deine boolean variable gemeint....]
__________________________________________________
Function iteration(wert, stellenanzahl)

Dim i As Integer
Dim j As Integer
Dim temp As Double
Dim winkel As Double

i = 0
temp = 0

For j = 0 To stellenanzahl
    Do
        winkel = temp + (1 / 10 ^ j) * i
        If funktion(winkel) > wert Then
            winkel = temp + (1 / 10 ^ j) * (i - 1)
            Exit Do
        End If
        i = i + 1
    Loop
Next j

iteration = winkel

End Function
__________________________________________________

mir gefällts halt so besser

nochmals gruß
hariw

Re(5): plz verbesserungen zu diesem algo...

tscho — Sun, 18 Nov 2001 21:37:28 GMT

hm, und was is a flag?

naja, mal schaun
n8
joe

Re(3): für nur monoton steigende...(auch @tscho)

tscho — Sun, 18 Nov 2001 21:36:18 GMT

du gibst wohl nie auf ) recht so

was ist wenn du eine for - next schleife bis 100000 machst? oder am besten so weit dass du jetzt noch gar nicht sagen willst wie weits gehen soll, also am besten nach oben offen?? hm, dann wären wir allerdings schon bei einer do - while oder do - loop until schleife )
dank trotzdem

nojo, aba ginge auch
n8
joe

Re(4): plz verbesserungen zu diesem algo...

Fly — Sun, 18 Nov 2001 21:35:39 GMT

Du ersparst Dir das Setzen des Flags und kannst gleich direkt dort abbrechen, nach der Berechnung.

Re(2): für nur monoton steigende...(auch @tscho)

hariw — Sun, 18 Nov 2001 21:27:04 GMT

hi,

spontane überlegung:
was is, wennst eine for - next schleife bis 1000 machst
-> sprich i einfach immer um 1 erhöhst?
die nachkommastellen brechen sowieso "< 10" ab...

hariw

Re(2): für nur monoton steigende...(auch @tscho)

hariw — Sun, 18 Nov 2001 21:16:49 GMT

hi,

ohne lang nachzudenken, dein argument klingt irgendwie plausibel, bei meine test´s war der wert 4,123...
und das kannst nicht als feature verkaufen?
malschaun, vielleicht fällt mir noch was ein....

hariw

Re(3): plz verbesserungen zu diesem algo...

tscho — Sun, 18 Nov 2001 21:13:39 GMT

hallo

was is eigentlich der vorteil einer do loop schleife gegenüber einer while schleife? ich meine in diesem fall...
ok, das mit dem j=1 wär wirklich eine idee, aber nachdems bei diesem programm nicht um die zeit geht wie lang er dafür brauchen soll das ganze durchzurechnen sondern das nicht allzu oft geändert wird wärs meines erachtens mehr oder weniger egal... naja, das sind die feinheiten auf die man noch hinarbeitn muss..

schen dank nochmal
joe

Re(2): plz verbesserungen zu diesem algo...

tscho — Sun, 18 Nov 2001 21:10:44 GMT

dere

da diese funktion in excel eingesetzt werden soll und ich da (soviel ich weiß) nur ein ergebnis ausgeben kann - ausserdem brauch ich nur eins wenn ich 2 hab weiß ich wieder nicht mit welchem ich weiterrechnen soll - deshalb fällt eine funktion mit wendepunkt sowieso flach... einzige möglichkeit ist deshalb eine monoton fallende...

so long
josef

Re: für nur monoton steigende...(auch @tscho)

tscho — Sun, 18 Nov 2001 21:08:25 GMT

zers

hehe, du hast jetz genau die version geschrieben die ich vorher ghabt hab...
wenn du nämlich eine for - next schleife bis 10 machst und diese auch für die ganzzahl gilt kannst nie ein ergebnis rausbekommen das größer als 9,99999 is

also nix mit +
ciao
josef

für nur monoton steigende...(auch @tscho)

hariw — Sun, 18 Nov 2001 20:47:08 GMT

Function iteration(wert, stellenanzahl)

Dim i As Integer
Dim j As Integer
Dim temp As Double
Dim winkel As Double

For j = 0 To stellenanzahl
    For i = 0 To 10
        winkel = temp + (1 / 10 ^ j) * i
        If funktion(winkel) > wert Then
            temp = temp + (1 / 10 ^ j) * (i - 1)
            Exit For
        End If
    Next i
Next j

iteration = temp

End Function

...bekomm ich jetzt ein plus

gruß,
hariw

Re(2): plz verbesserungen zu diesem algo...

Fly — Sun, 18 Nov 2001 20:38:43 GMT

Nun, laut der Angabe soll er "unten anfangen", was auf eine monoton steigende Fktn. hinweisen würde, so gesehen...

2 Punkte gibt's allerdings schon zu verbessern: Erstens, nimm das j=0 als Sonderfall 'raus, weil nachdem der Teil einmal (gleich am Anfang) abgearbeitet wurde kommt er dort nicht mehr hin, bring's also vor die for/next Schleife und lass die Schleife von 1 starten.

Zweitens, statt der do loop, verwende eine While Schleife.

Re: plz verbesserungen zu diesem algo...

hariw — Sun, 18 Nov 2001 20:25:17 GMT

hi

ich schaus mir mal grad an....
fakt: dein´s funkt nur bei momoton steigenden funktionen immer,
bei momoton fallenden nie, alles andere ist von den wendepunkten der fkt abhängig...
frage: soll es bei jeder fkt funktionieren?

hariw

Re: plz verbesserungen zu diesem algo...

tscho — Sun, 18 Nov 2001 19:09:51 GMT

nochmal zeng...

was ich noch loswerdn wollte... bin vba-neuling, bzw. programmieranfänger, deshalb kanns sein dass man für manches bessere funktionen nehmen könnte und die variablennamen ziemlich ungünstig gewählt wurden...

pfiat eng
josef

plz verbesserungen zu diesem algo...

tscho — Sun, 18 Nov 2001 18:04:31 GMT

hi leutz... muss für das maturaprojekt unter anderem eine fkt im excel programmieren, welche eine iteration mit einer best. funktion zu einem wert macht (kann ma des so schreiben?? er soll halt von unten anfangen und einen wert immer erhöhen, durch die fkt. den anderen wert ausrechnen und mit dem gegebenen vergleichen... so lange bis er auf, weiß ich wie nahe dran is...)
mords komplizert gschriebn, aba was leichteres fällt ma net ein...

also der vba-quellcode dazu schaut momentan so aus:

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

Function iteration(wert, stellenanzahl)

Dim i As Integer
Dim j As Integer
Dim temp As Double
Dim winkel As Double
Dim raus As Boolean

i = 0
temp = 0

For j = 0 To stellenanzahl                                      'gibt die anzahl der zu iterierenden stellen an
    If j = 0 Then                                               'ganzzahl wird berechnet
        Do
            winkel = i
            If funktion(winkel) > wert Then
                temp = winkel - 1
                raus = True
            End If
            i = i + 1
        Loop Until raus = True

    Else
        For i = 0 To 10                                         'durchläuft die ziffern 0-9 und schaut welche passen
            winkel = temp + (1 / 10 ^ j) * i
            If funktion(winkel) > wert Then                     'funktion(winkel) ist die zu iterierende funktion
                temp = temp + (1 / 10 ^ j) * (i - 1)
                Exit For
            End If
        Next i
    End If
Next j

iteration = temp

End Function

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

Function funktion(winkel)

funktion = winkel ^ 2                                           'hier kann die zu iterierende fkt. ingegeben werden

End Function

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

hab die erfahrung gmacht dass er bei nicht momoton steigenden fkt's immer a bissl spinnt... wenn also jemand freude am programmieren hat und a bissl a zeit hat wärs fein wenn er sich des mal anschaun könnt...

mfg
josef