vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Variablen/Strings · Algorithmen/Mathematik   |   VB-Versionen: VB4, VB5, VB628.01.03
Von Kubikwurzeln und ähnlichem

Eine flexible Funktion, mit der sich Wurden 3. oder höheren Grades berechnen lassen.

Autor:   E7Bewertung:  Views:  12.256 
ohne HomepageSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

Wie war noch schnell mal die Wurzel von 9? Drei, klar. Doch wie sieht's mit der Kubikwurzel von 27 aus? Leicht, auch drei. Doch bei der vierten Wurzel von 37,29884 wird's dann schon schwieriger - vor allem wenn's in einem VB-Programm ist. Allerdings lässt sich dieses Problem schnell lösen: da Zahl hoch 0,5 die einfache Wurzel darstellt, 0,333333 die dritte Wurzel etc., kann man folgende Funktion nutzen:

Function Sqr2(ByVal Zahl As Double, _
  ByVal Wurzel As Byte)
 
  If Wurzel = 0 Then Wurzel = 1
  Sqr2 = Zahl ^ (1 / Wurzel)
End Function

Anmerkung:
Negative Zahlen lassen sich nicht berechnen, da z.B. -5 * -5 = +25, d. h. von -25 existiert keine Wurzel. Mit 0 klappt's auch nicht, da keine Division durch 0 möglich ist. In dieser Funktion stellt übrigens die Zahl 2 an zweiter Stelle übergeben die normale Quadratwurzel dar.
 



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2019 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.