Keskustelu: Koodit: QB: Haastaja SQR-komennolle

Qbasicissa on neliöjuurten laskukomento, SQR, mutta muullakin tavalla voi laskea sen. Tässä näytetään miten. Hyödytön, eikä siitä opi mitään, mutta lähetinpä kuitenkin.

cls
dim kake as double
dim nelio as double
dim keka as double
input "Anna laskettavan neliöjuuren neliö";nelio
kake=nelio/200+2
keka=nelio/kake
for i=1 to 500
kake=(keka+kake)/2
keka=nelio/kake
next
print kake

Voi herrajumala näihin vinkkeihin voisi laittaa joitain selityksiäkin. Oletettavasti Newton-Rhapson on kuitenkin kehissä.

yritin just tehä vb:lle nopeempaa neliöjuuri laskentaa, mutta tuliki n.6 kertaa hitaampi =)
näin:

Dim a As Double, n As Long, aa(1 To 1000) As Double, c As Long, b As Double

a = (n / 200) + 2
n = 10
aa(1) = ((n / a) + a) / 2
c = 0
Do
c = c + 1
aa(c + 1) = (n / aa(c))
b = (aa(c + 1) + aa(c)) / 2
aa(c + 1) = b
Loop Until aa(c) = aa(c + 1)

Neliöjuuri on myös luku^0.5