Kubikwurzel ziehen

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
Falco
Beiträge: 1
Registriert: 03.01.2007 13:47

Kubikwurzel ziehen

Beitrag von Falco »

Hallo ihr pb-User!

Ich hoffe, dass ich diesmal das richtige Forum zufassen habe.

wie zieht man in PureBasic eine Kubikwurzel???
Benutzeravatar
Helle
Beiträge: 566
Registriert: 11.11.2004 16:13
Wohnort: Magdeburg

Beitrag von Helle »

Wie mit einem Taschenrechner: W=Z^1/3

Code: Alles auswählen

Global A.d = 2
Global W.d

W = Pow(A,1/3)
Debug W
Gruss
Helle
Benutzeravatar
DarkSoul
Beiträge: 689
Registriert: 19.10.2006 12:51

Beitrag von DarkSoul »

Ich hoffe, dass ich diesmal das richtige Forum zufassen habe.
hähähä, du bist der admin, du nase, daher solltest du das eigentlich selber wissen :mrgreen: :mrgreen:
Bild
DarkDragon
Beiträge: 6291
Registriert: 29.08.2004 08:37
Computerausstattung: Hoffentlich bald keine mehr
Kontaktdaten:

Beitrag von DarkDragon »

Biedermeier hat geschrieben:
Ich hoffe, dass ich diesmal das richtige Forum zufassen habe.
hähähä, du bist der admin, du nase :mrgreen: :mrgreen:
Ne isser nicht.

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)
Ein bissel approximation gefälligst? ;-)
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.
Benutzeravatar
DarkSoul
Beiträge: 689
Registriert: 19.10.2006 12:51

Beitrag von DarkSoul »

häää??? wer ist dann der admin??? ich dachte immer, dass falco hier der admin ist. :roll:

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.
Bild
Benutzeravatar
rolaf
Beiträge: 3843
Registriert: 10.03.2005 14:01

Re: Kubikwurzel ziehen

Beitrag von rolaf »

Falco hat geschrieben:Hallo ihr pb-User!
Hallo RS-Basic? (Reine Vermutung :lol: wegen der Grußformel!)
:::: WIN 10 :: PB 5.73 :: (x64) ::::
Benutzeravatar
DarkSoul
Beiträge: 689
Registriert: 19.10.2006 12:51

Beitrag von DarkSoul »

meinste dass er nen zweiten acc hat, damit nicht mehr 5 RSBasic-threads untereinander stehen????
Bild
Benutzeravatar
rolaf
Beiträge: 3843
Registriert: 10.03.2005 14:01

Beitrag von rolaf »

Biedermeier hat geschrieben:meinste dass er nen zweiten acc hat, damit nicht mehr 5 RSBasic-threads untereinander stehen????
Na Falco gibts doch erst seit heute, und die Anrede ist irgendwie RS-Basic like. (Sorry wenn ich mich irre!)

P.S.
Und der Falko wird sich freuen, auch an mir Olaf rückwärts Falo hatte er schon zu schlucken. :wink:
Zuletzt geändert von rolaf am 03.01.2007 14:30, insgesamt 1-mal geändert.
:::: WIN 10 :: PB 5.73 :: (x64) ::::
Benutzeravatar
DarkSoul
Beiträge: 689
Registriert: 19.10.2006 12:51

Beitrag von DarkSoul »

und ich hab ih schon für den admin gehalten! Falco und Falko verwechselt man ganz schnell mal, ich hab dad nich ganz auf anhieb bemerkt, weil ich nur das F auf dem avatar gesehen habe und gedacht habe, das ist der admin!
Bild
Benutzeravatar
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:

Beitrag von Falko »

:bounce:

So kann man sich irren :twisted:

Das Avartar von mir ist aber nicht nur das F, sondern auch ein P dahinter, was
von Falko-Pure kommt :allright:

Gruß Falko
Bild
Win11 Pro 64-Bit, PB_6.11b1
Antworten