XPSE

iF, Beitrag=55273, Zeitpunkt=30.11.2009

- Page 9 -

Frank
Abbing

In reinem ASM Yes, in NProcs not absolutely - means rather not because the Operator would aufgelöst what letztendlich not faster his can as add eax,4

Have I do not understood. Why go pure Assemblerzeilen because not directly übernommen?

Dietmar
Horn

Hello together,

here time one small demonstration for yet-XPSE-Skeptiker, which 1 million time to a number 1 add and explicit whom Geschwindigkeitsvorteil of nProc to reinem XProfan-code exemplifies:
Compile Mark Separation

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

and the swell on it: one needed for none only Assembler-commands.

Greeting
Dietmar

nProc.jpg	25 kB

Hochgeladen:	11/30/09

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

remarkable!

installs Have I XPSE Yes still Schonmal. ;)
will be me soon In any drop time hither so keep busy.

Edit: Musste at testing time a little bit "übertreiben". power the whole In any drop yet deutlicher.

nproc.png	10 kB

Hochgeladen:	11/30/09

Downloadcounter:
		Download

XProfan 11| Vista(64) SP2

Dietmar
Horn

and here for all yet-not-owner the actually Full Version XProfan 11.2a the Testprogramm as Exe-File to that Selberausprobieren.

Greeting
Dietmar

nProcTest2.zip	468 kB

Hochgeladen:	11/30/09

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

what about me werf now integrally impudent afterwards: who means iF would only one MACHNURSO and WILLGROSSSEIN (had we in the langjährigen Profanszene already often), the irrt GEWALTIG. i'm of Nature one skeptischer human and having then (wisely iF of me already, there we always sincere together write) too virtual: no again of/ one the itself grosstun wants, gell iF

but NEIN! - I stand 100000%ig behind iF, because a.) it menschlich, objectively and not grössenwahnsinnig become is b.) because I each conversation with it dazulerne and c.) I it eigenlich wed wants - LOOOOOL no balderdash!
XPSE is the deliriousness!

Werd Yes complete uneasily!

12/01/09 ▲

@Nico: negatives Floats-bow ( -1.0 ) found, if eliminating then Update! thanks!

12/02/09 ▲

Nico
Madysa

nothing To thank, I have indeed what of it.

Nico Madysa

12/02/09 ▲

Update uploaded: [...]

, too now Float as commands [...]

and the Arcs ...

Nico
Madysa

the Arc; arctan reicht How said. be thereby The Math.inc of Roland for NProcs umzuschreiben, there You can then arccos and arcsin over Ersteres define.
almost importent would though The exp-function and the natural Logarithmus ln (or log). with them You can then namely again some other squeeze out.

Nico Madysa

Nico
Madysa

Ah, I have straight seen, that You me ahead bist; in the reference on The Arkusfunktionen.

have you got already for exp something in petto? The Definition The I know, is unfortunately
1) costly (two nested creep) and
2) only näherungsweise validly.

where me straight falls in ...
Compile Mark Separation

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 this "Format" must it letztendlich brought go:
Compile Mark Separation

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

the one arccos etc divert can, is me already clear. nevertheless have I The "Formeln" again optimiert and each extra a Constant reserved because abgeleitete functions are explicit slower as optimierter FPU-ASM and we're in the Funktionsanzahl not dull.

in example reserviere I still rather einmalig global
Compile Mark Separation

__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

as per Funktionsaufruf jedesmal pi/180 To calculate.