XPSE

iF, Beitrag=55273, Zeitpunkt=30.11.2009

- page 9 -

Frank
Abbing

dans reinem ASM oui, dans NProcs pas absolument - alors besser pas car qui Operator serait aufgelöst quoi letztendlich pas plus rapide son peux comme add eax,4

Hab je pas verstanden. pourquoi volonté reine Assemblerzeilen car pas direct übernommen?

Dietmar
Horn

allô zusammen,

ici la fois un kleines Demo pour encore-XPSE-Skeptiker, welches 1 million la fois trop einer numéro 1 addiert et deutlich den Geschwindigkeitsvorteil de nProc à reinem XProfan-Code veranschaulicht:
Kompilieren Marque Séparation

 {$CLEQ}
declare zeit1&,zeit2&,zeit&

nPROC ADDIEREN

    var zahl&=0

    Whileloop 1000000

        add zahl&,1

    EndWhile

    return zahl&

ENDPROC

PROC ADDIERE

    var zahl&=0

    Whileloop 1000000

        add zahl&,1

    EndWhile

    return zahl&

ENDPROC

WindowTitle " Bitte warten ... teste mit nProc von XPSE"
cls
Print ""
zeit1& = &GetTickCount
Print "Schleifendurchläufe: " + str$(ADDIEREN())
zeit2& = &GetTickCount
zeit& = zeit2& - zeit1&
print "Ausführungsgeschwindigkeit mit nProc von XPSE: " + str$(zeit&) + " Millisekunden"
WindowTitle " Bitte warten ... teste mit reinem XProfan"
Print ""
zeit1& = &GetTickCount
Print "Schleifendurchläufe: " + str$(ADDIERE())
zeit2& = &GetTickCount
zeit& = zeit2& - zeit1&
print "Ausführungsgeschwindigkeit mit reinem XProfan: " + str$(zeit&) + " Millisekunden"
SetText %HWnd,"Geschwindigkeitstest beendet!"
waitinput
end

et cela Feine daran: on nécessaire pour keinen einzigen Assembler-Befehl.

Salut
Dietmar

nProc.jpg	25 kB

Hochgeladen:	30.11.2009

Downloadcounter:
		Download

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Christian
Schneider

considérable!

Installiert hab je XPSE oui immerhin Schonmal. ;)
Werde mich bientôt sur jeden le cas la fois näher avec cela beschäftigen.

Éditer: Musste beim Testen la fois un peu "übertreiben". pouvoir cela Ganze sur jeden le cas encore deutlicher.

nproc.png	10 kB

Hochgeladen:	30.11.2009

Downloadcounter:
		Download

XProfan 11| Vista(64) SP2

Dietmar
Horn

et ici pour alle encore-pas-Besitzer qui aktuellen Vollversion XProfan 11.2a cela Testprogramm comme Exe-Dossier zum Selberausprobieren.

Salut
Dietmar

nProcTest2.zip	468 kB

Hochgeladen:	30.11.2009

Downloadcounter:
		Download

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Rolf
Koch

et je werf maintenant entier frech hinterher: qui meint iF wäre seulement un MACHNURSO et WILLGROSSSEIN (hatten wir dans qui langjährigen Profanszene déjà souvent), qui irrt GEWALTIG. je suis de nature aus un skeptischer homme et hatte autrefois (weis iF de mir bereits, là wir toujours honnête miteinander écrivons) aussi gedacht: Nee encore einer qui sich grosstun veux, gell iF

mais NEIN! - je stehe 100000%ig derrière iF, weil a.) il humain, sachlich et pas grössenwahnsinnig geworden ist b.) weil je chez chaque conversation avec ihm dazulerne et c.) je ihn eigenlich heiraten veux - LOOOOOL nee Quatsch!
XPSE ist qui démence!

Werd oui komplett verlegen!

01.12.2009 ▲

@Nico: Negative Floats-Bug ( -1.0 ) trouvé, si beseitigt ensuite Update! merci!

02.12.2009 ▲

Nico
Madysa

rien trop remercier, j'ai oui aussi quoi en.

Nico Madysa

02.12.2009 ▲

Update hochgeladen: [...]

, aussi eh bien Float comme Befehl [...]

et qui Arcs ...

Nico
Madysa

cela Arc; arctan reicht comment dit. suis dabei qui Math.inc de Roland pour NProcs umzuschreiben, là peux on ensuite arccos et arcsin sur Ersteres définir.
presque wichtiger wäre allerdings qui exp-Funktion et qui natürliche Logarithme ln (ou bien aussi log). avec denen peux on ensuite nämlich wieder einiges d'autre ausdrücken.

Nico Madysa

Nico
Madysa

Ah, j'ai justement gesehen, dass du mir voraus bist; im Bezug sur qui Arkusfunktionen.

la hâte du déjà pour exp quelque chose dans petto? qui définition qui je connais, ist malheureusement
1) aufwendig (deux imbriquées Schleifen) et
2) seulement näherungsweise gültig.

Wobei mir justement einfällt ...
Kompilieren Marque Séparation

proc Pow

    parameters x!,n&
    var ret! = 1

    whileloop n&

        ret! = ret! * x!

    EndWhile

    return ret!

endproc

proc fakultaet

    parameters n&
    case n& <= 1 : return 1
    return n * fakultaet(n&-1)

endproc

nproc exp  Eulersche Zahl e^x!

    parameters x!
    var e! = 0.0

    whileloop 99999 halt möglichst groß

        e! = e! + Pow(x!,&loop) / fakultaet(&loop)

    EndWhile

    return e!

endproc

Nico Madysa

dans cet "Format" muss es letztendlich gebracht volonté:
Kompilieren Marque Séparation

nProc ArcSin

    Parameters a!
    //arctan(a!/Sqrt(-a!*a!+1.0))
    mov eax,addr(a!)
    push eax
    // von hier
    fld qword ptr [eax]
    fmul qword ptr [eax]
    fsubr qword ptr __xeTF_00
    fadd qword ptr __xeTF_01
    fsqrt
    fdivr qword ptr [eax]
    fld1
    fpatan
    // bis hier
    pop eax
    fstp qword ptr [eax]
    return a!

endproc

cela on arccos etc ableiten peux, c'est moi déjà bien sûr. toutefois habe je qui "Formeln" nochmal optimiert et jeweils extra une Konstante reserviert car abgeleitete Funktionen sommes deutlich langsamer comme optimierter FPU-ASM et nous sommes dans qui Funktionsanzahl pas beschränkt.

Beispielsweise reserviere je doch lieber einmalig global
Kompilieren Marque Séparation

__xeTF_00 dq 0.0
__xeTF_01 dq 1.0
__xeTF_02 dq 1.57079632679489656
__xeTF_03 dq 0.01745329251994329
__xeTF_04 dq 57.29577951308232087

comme pro Funktionsaufruf chaque fois pi/180 trop le calcul.