Kubikwurzel ziehen
Kubikwurzel ziehen
Hallo ihr pb-User!
Ich hoffe, dass ich diesmal das richtige Forum zufassen habe.
wie zieht man in PureBasic eine Kubikwurzel???
Ich hoffe, dass ich diesmal das richtige Forum zufassen habe.
wie zieht man in PureBasic eine Kubikwurzel???
Wie mit einem Taschenrechner: W=Z^1/3
Gruss
Helle
Code: Alles auswählen
Global A.d = 2
Global W.d
W = Pow(A,1/3)
Debug W
Helle
-
- Beiträge: 6291
- Registriert: 29.08.2004 08:37
- Computerausstattung: Hoffentlich bald keine mehr
- Kontaktdaten:
Ne isser nicht.Biedermeier hat geschrieben:hähähä, du bist der admin, du naseIch hoffe, dass ich diesmal das richtige Forum zufassen habe.![]()
Code: Alles auswählen
#MAXIMUM = $FFFFFFFF ; Einfach ein Maximum
#TOLLERANCE = 0.000001
Procedure.d Wurzel(Val.d, Exp.l)
Define Result.d = #MAXIMUM
Define Power.d = 0.0
Repeat
Power = Pow(Result, Exp)
If Power > Val + #TOLLERANCE
Result * 0.5
ElseIf Power < Val - #TOLLERANCE
Result * 1.5
Else
Break
EndIf
ForEver
ProcedureReturn Result
EndProcedure
Debug Wurzel(27, 3)

Angenommen es gäbe einen Algorithmus mit imaginärer Laufzeit O(i * n), dann gilt O((i * n)^2) = O(-1 * n^2) d.h. wenn man diesen Algorithmus verschachtelt ist er fertig, bevor er angefangen hat.
häää??? wer ist dann der admin??? ich dachte immer, dass falco hier der admin ist. 
EDIT: OK, gewonnen! Falko und Falco
das ist nicht aufgefallen... die avatare sind ja auch ziemlich ähnlich mit nem F drauf und so

EDIT: OK, gewonnen! Falko und Falco
das ist nicht aufgefallen... die avatare sind ja auch ziemlich ähnlich mit nem F drauf und so
Zuletzt geändert von DarkSoul am 03.01.2007 14:23, insgesamt 1-mal geändert.

Re: Kubikwurzel ziehen
Hallo RS-Basic? (Reine VermutungFalco hat geschrieben:Hallo ihr pb-User!

:::: WIN 10 :: PB 5.73 :: (x64) ::::
Na Falco gibts doch erst seit heute, und die Anrede ist irgendwie RS-Basic like. (Sorry wenn ich mich irre!)Biedermeier hat geschrieben:meinste dass er nen zweiten acc hat, damit nicht mehr 5 RSBasic-threads untereinander stehen????
P.S.
Und der Falko wird sich freuen, auch an mir Olaf rückwärts Falo hatte er schon zu schlucken.

Zuletzt geändert von rolaf am 03.01.2007 14:30, insgesamt 1-mal geändert.
:::: WIN 10 :: PB 5.73 :: (x64) ::::
- Falko
- Admin
- Beiträge: 3535
- Registriert: 29.08.2004 11:27
- Computerausstattung: PC: MSI-Z590-GC; 32GB-DDR4, ICore9; 2TB M2 + 2x3TB-SATA2 HDD; Intel ICore9 @ 3600MHZ (Win11 Pro. 64-Bit),
Acer Aspire E15 (Win11 Home X64). Purebasic LTS 6.11b1
HP255G8 Notebook @AMD Ryzen 5 5500U with Radeon Graphics 2.10 GHz 3.4GHz, 32GB_RAM, 3TB_SSD (Win11 Pro 64-Bit) - Kontaktdaten: