XPSE

IF, Beitrag=55273, Zeitpunkt=30.11.2009

- Página 9 -

Frank
Abbing

In reinem ASM sí, en NProcs no necesariamente - also mejor no porque el Operator sería aufgelöst qué letztendlich no más rápido ser kann como add eax,4

Hab Yo no verstanden. ¿Por qué voluntad reine Assemblerzeilen porque no direkt übernommen?

Dietmar
Horn

¡Hola zusammen,

hier veces una kleines Demo para Noch-XPSE-Skeptiker, welches 1 Million Tiempo a un número 1 addiert y deutlich el Geschwindigkeitsvorteil de nProc gegenüber reinem XProfan-Code veranschaulicht:
Kompilieren Marca Separación

 {$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

Und el Feine daran: Man benötigt dafür no einzigen Ensamblador-Befehl.

Saludo
Dietmar

nProc.jpg	25 kB

Hochgeladen:	30.11.2009

Ladeanzahl:
		Descargar

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

Beachtlich!

Installiert tener Yo XPSE sí immerhin schonmal. ;)
Werde mich demnächst en cada Fall veces näher así beschäftigen.

Editar: Musste beim Testen veces una wenig "übertreiben". Macht el Ganze en cada Fall todavía deutlicher.

nproc.png	10 kB

Hochgeladen:	30.11.2009

Ladeanzahl:
		Descargar

XProfan 11| Vista(64) SP2

Dietmar
Horn

Und hier para todos Noch-No-Besitzer el aktuellen Vollversion XProfan 11.2a el Testprogramm como Exe-Expediente para Selberausprobieren.

Saludo
Dietmar

nProcTest2.zip	468 kB

Hochgeladen:	30.11.2009

Ladeanzahl:
		Descargar

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

Und Yo werf ahora bastante frech hinterher: Wer meint IF wäre sólo una MACHNURSO y WILLGROSSSEIN (hatten wir en el langjährigen Profanszene ya oft), el irrt GEWALTIG. Yo bin de Natur de una skeptischer Mensch y había damals (weis IF de me ya, como wir siempre ehrlich miteinander escribir) auch pensamiento: Nee ya otra vez uno el se grosstun voluntad, gell IF

Aber NEIN! - Yo stehe 100000%ig hinter IF, porque a.) él menschlich, sachlich y no grössenwahnsinnig geworden es b.) porque Yo cada Gespräch con ihm dazulerne yc.) Yo ihn eigenlich heiraten voluntad - LOOOOOL nee Quatsch!
XPSE es el Wahnsinn!

Werd sí komplett verlegen!

01.12.2009 ▲

@Nico: Negative Floats-Bug ( -1.0 ) gefunden, si beseitigt entonces Actualización! Gracias!

02.12.2009 ▲

Nico
Madysa

Nichts a danken, Yo en efecto qué su.

Nico Madysa

02.12.2009 ▲

Actualización hochgeladen: [...]

, auch nun Float como Befehl [...]

y el Arcs ...

Nico
Madysa

Das Arc; arctan reicht como dijo. Bin esta el Math.inc de Roland para NProcs umzuschreiben, como puede ser entonces arccos y arcsin encima Ersteres definieren.
Fast wichtiger wäre allerdings el exp-Función y natürliche Logaritmo ln (oder auch log). Mit denen puede ser entonces nämlich otra vez einiges más ausdrücken.

Nico Madysa

Nico
Madysa

Ah, Yo gerade gesehen, dass du me voraus bist; en el Bezug en el Arkusfunktionen.

Hast du ya para exp algo en petto? El Definition el Yo saber, es desafortunadamente
1) aufwendig (zwei verschachtelte Schleifen) y
2) sólo näherungsweise gültig.

Wobei me gerade einfällt ...
Kompilieren Marca Separación

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

In dieses "Format" muss lo letztendlich gebracht voluntad:
Kompilieren Marca Separación

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

Das uno arccos etc ableiten kann, me está ya klar. Dennoch Yo el "Formeln" otra vez optimiert y jeweils extra una Konstante reserviert porque abgeleitete Características son deutlich langsamer como optimierter FPU-ASM y wir son en el Funktionsanzahl no beschränkt.

Por ejemplo reserviere Todavía más bien einmalig global
Kompilieren Marca Separación

__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

como pro Funktionsaufruf jedesmal pi/180 a rechnen.