Roots and powers playing nicely together...

[Kernelpanic]

Mighty mighty, Pete! But I can't see through it. How is the root value created? See the screenshot. One can't find out the exponent without it.

It's not a mistake, because otherwise one wouldn't get to the exponent. Then what is it?

Code: (Select All)

'Kubikwurzel berechnen - 23. Sept. 2022

'$Debug
Dim As Double n, nDummy, x, rootx, potenz

Print
Input "Wurzelexponent: ", n
Input "Radikand      : ", x

rootx = x ^ (1 / n)

Print Using "Kubikwurzel: ###.##########"; rootx

Print
potenz = (rootx ^ n)
Print Using "Und zurueck: ########.###"; potenz

Print
'Exponent ermitteln nach Pete
'nDummy = rootx ^ x
nDummy = 1.06675811 ^ x
Print Using "Exponent anzeigen: ###.##########"; nDummy

End