ln (1 + x) in eigenen Code ohne Math.Log(1 + x)

  • VB.NET

Es gibt 44 Antworten in diesem Thema. Der letzte Beitrag () ist von Facebamm.

    dekon12 schrieb:

    Das einzige was mir noch den Kopf zerbricht ist ,dass
    … Du anscheinend nicht bereit bist, auf gestellte, offene Fragen einzugehen. Bis zu einer Änderung dieser Einstellung bin ich hier raus.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Wie dem auch sei, hab es selber hinbekommen!

    VB.NET-Quellcode

    1. ​Option Strict On
    2. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. Dim x As Double = CType(TextBox1.Text, Double)
    6. Dim n As Integer = CType(TextBox2.Text, Integer)
    7. Dim Summe As Double = 0
    9. For k As Integer = 1 To n Step 1
    11. Dim i As Double = (x ^ k / k)
    12. Dim newi As Double = -(x ^ k / k)
    14. If k Mod 2 = 0 Then
    15. i = i * (-1)
    16. End If
    18. Summe = Summe + i
    20. Next k
    22. TextBox3.Text = CStr(Summe)
    24. x = Math.Log(1 + x)
    25. TextBox4.Text = CStr(x)
    26. End Sub
    28. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    29. AcceptButton = Button1
    30. End Sub
    31. End Class


    Anbei der Code, Formatierungsfehler könnt ihr mir bestimmt verzeihen!

    @dekon12 ganz langsam, leider zu langsam, wird es.
    Ich hab mal Deinen Code etwas überarbeitet:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Dim x As Double = Double.Parse(TextBox1.Text)
    5. Dim n As Integer = Integer.Parse(TextBox2.Text)
    6. Dim Summe As Double = 0
    7. For k As Integer = 1 To n
    8. Dim i As Double = (x ^ k / k)
    9. If k Mod 2 = 0 Then
    10. i = -i
    11. End If
    12. Summe += i
    13. Next k
    14. TextBox3.Text = Summe.ToString()
    15. x = Math.Log(1 + x)
    16. TextBox4.Text = x.ToString()
    17. End Sub
    18. 'Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    19. ' AcceptButton = Button1
    20. 'End Sub
    21. End Class
    Den AcceptButton setzt Du besser im Designer.
    Als nächstes verwendest Du zur Zahleneingabe ein NumericUpDown-Control. ;)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    C-Quellcode

    1. int ilog2(int x) {
    3. int i, j, k, l, m;
    4. x = x | (x >> 1);
    5. x = x | (x >> 2);
    6. x = x | (x >> 4);
    7. x = x | (x >> 8);
    8. x = x | (x >> 16);
    10. // i = 0x55555555
    11. i = 0x55 | (0x55 << 8);
    12. i = i | (i << 16);
    14. // j = 0x33333333
    15. j = 0x33 | (0x33 << 8);
    16. j = j | (j << 16);
    18. // k = 0x0f0f0f0f
    19. k = 0x0f | (0x0f << 8);
    20. k = k | (k << 16);
    22. // l = 0x00ff00ff
    23. l = 0xff | (0xff << 16);
    25. // m = 0x0000ffff
    26. m = 0xff | (0xff << 8);
    28. x = (x & i) + ((x >> 1) & i);
    29. x = (x & j) + ((x >> 2) & j);
    30. x = (x & k) + ((x >> 4) & k);
    31. x = (x & l) + ((x >> 8) & l);
    32. x = (x & m) + ((x >> 16) & m);
    33. x = x + ~0;
    34. return x;
    35. }


    Edit: ~NoFear23m
    @'Facebamm' Bitte in Zukunft auch gerne was dazu schreiben und vorallem die Quelle angeben: stackoverflow.com/questions/21…e-operators-in-c/21443178

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Nofear23m“ ()

Facebook
Telefonspende