Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Wurzel ziehen - erledigt, Fehler lag bei mir

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Andy19312



Anmeldungsdatum: 22.10.2005
Beiträge: 428
BeitragVerfasst am: 10.04.2010, 21:10    Titel: Wurzel ziehen - erledigt, Fehler lag bei mir Antworten mit Zitat
Schon klar, mit sqr kann man Wurzel ziehen, aber irgendwie ist es ungenau.
Hab grad einen Code von vb in freebasic umgeschrieben und alles nacheinander abgearbeitet und bin zum Ergebnis gekommen, dass es an sqr liegt, weshalb meine Rechnung falsch ist


wurzel = sqr(1+etaq)
Nq = c / wurzel
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
funkeld
gesperrt


Anmeldungsdatum: 10.10.2009
Beiträge: 179
BeitragVerfasst am: 19.04.2010, 20:06    Titel: Antworten mit Zitat
Also es wird der Float richtig benutzt in ASM.
Eigentlich kann "SQR" nicht falsch sein, höchstens die Ausgabe vom Printbefehl.

Gruss

Muster-Basic:
Code:

Dim As Single a,b

Screen 18,32

a=23.4
b=Sqr(a)

Print b

Sleep


Muster ASM-Code:
Code:

   .intel_syntax noprefix

   #test-sqr.bas' compilation started at 20:00:40 (FreeBASIC v0.21.0b)

.section .text
.balign 16
_fb_ctor__testzsqr:
push ebp
mov ebp, esp
sub esp, 8
.Lt_0002:
mov dword ptr [ebp-4], 0
mov dword ptr [ebp-8], 0
push 0
push 0
push 0
push 32
push 18
call _fb_GfxScreen@20
fld qword ptr [_Lt_0004]
fstp dword ptr [ebp-4]
fld dword ptr [ebp-4]
fsqrt
fstp dword ptr [ebp-8]
push 1
push dword ptr [ebp-8]
push 0
call _fb_PrintSingle@12
push -1
call _fb_Sleep@4
.Lt_0003:
mov esp, ebp
pop ebp
ret
   #test-sqr.bas' compilation took 0.0005104000649280849 secs

.section .data
.balign 8
_Lt_0004:   .double   23.4

.section .ctors
.int _fb_ctor__testzsqr

.section .fbctinf
.byte 16
.byte 1
.byte 5
.ascii "fbgfx\0"
.byte 6
.ascii "user32\0"
.byte 5
.ascii "gdi32\0"
.byte 5
.ascii "winmm\0"
.byte 0
.byte 0
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz