XPSE

proc test

    volver 20

ENDPROC

nproc test

    volver 20

ENDPROC

Inline-Ensamblador:

nproc test

    mov eax...//assembler

ENDPROC

11.11.2009 ▲

- Página 8 -

A Función if: Braucht uno garnicht en nProcs! Usted puede simplemente sagen: a=1=2 z.B. en a en 0 a conjunto oder volver a+b<c - el se alles sauber aufgelöst.

Yo blanco trotzdem no, Yo schönes ArcTan hinbekomme.

Was el Konstanten angeht, bin Yo no sicher -- Yo denke no, dass fertige soooo viel más rápido son como si uno Pi() simplemente con 2, o. 0,5 malnimmt.

Z.B. Usted berechnest para 640x480 Pixel el R-Anteil uno Farbe - para cada Pixel *2 oder no *2 nehmen... el es hier el Cuestión y macht sehrwohl entonces unheimlichen Geschwindigkeitsunterschied de.

Nico
Madysa

Aber el Konstanten son así específicamente, dass lo wohl reichen dürfte, el en un Incluir a packen, oder?

El IF-Características brauchte Yo en así algo:
Kompilieren Marca Separación

v = v + if(r <> 0, a / m * dy / r, 0)

Wenn Yo como una Brett vorm Kopfe habe, entonces wäre Yo dankbar, si du lo löstest.

En arctan weiß el Wikipädie mehr.
1. Arctan x lässt se cualquier genau annähern. arctan(x) = x - x^3/3 + x^5/5 - x^7/7 + ...
Das gilt allerdings sólo, si x zwischen -1 y +1 liegt.

2. Lo gilt: arctan(x) = 2 * arctan(x / (1 + sqrt(1 + sqr(x))))
Ist abs(x) also größer como 1, entonces kann lo así en una niedrigeren Winkel zurückgeführt voluntad, el entonces wiederum con el obigen Reihe angenähert voluntad kann.

Yo versuche mich dran; veces sehen, si Yo más rápido fertig bin como du.

Nico Madysa

Nico
Madysa

Apéndice: Yo habe el Verdacht, dass XPSE con el Literal -1.0 Problemas ha.

Nico Madysa

Nico
Madysa

Erster!

 {$cleq}

{arctan

    nproc narctan

        parameters x!
        Reduktion auf lösbaren Arctan
        var fakt& = 1

        whilenot x!>(0.0 - 1.0) and x!<(1.0)

            mul fakt&,2
            x! = x! / (sqrt(sqr(x!) + 1.0) + 1.0)

        wend

        Arctan
        x! = x! - (x! * sqr(x!)) / 3.0 + (x! * sqr(sqr(x!)) / 5.0) - (x! * sqr(sqr(sqr(x!))) / 7.0) + (x! * sqr(sqr(sqr(sqr(x!)))) / 9.0) - (x! * sqr(sqr(sqr(sqr(sqr(x!))))) / 11.0)
        return x! * float(fakt&)

    endproc

    whileloop -120,120

        SetPixel &loop+200,200 - 30 *  arctan(&loop / 10),$FF
        SetPixel &loop+200,200 - 30 * narctan(&loop / 10),$FF0000

    EndWhile

    waitinput
    end

Drunter todavía una más rápido Vergleich de Rolands arctan (rot) con el angenäherten (blau).

Nico Madysa

Schaue Yo liebend gerne heute Abend Zuhause a!

Zum iff: v = v + if(r <> 0, a / m * dy / r, 0)

es doch v = v + (r<>0)*( a / m * dy / r) ?

Nico
Madysa

... Verflucht du bist bien!

Gut, el Punkt va a dich. Doch dass con -1.0 algo no stimmt, mi Yo siempre todavía.

EDIT: Argh, nein, el kann doch no ir! In deiner Variante se sí trotzdem por Null geteilt, si r! Null es.

Yo wusste doch, dass Yo en el if qué pensamiento habe.

Nico Madysa

Nico
Madysa

Apéndice: Lo fehlt me auch todavía Float() en Gleitkommazahlen de una Zona a lesen. Weiß no, Yo el sonst a un hilo weiterreichen se.

Nico Madysa

Wollte Usted sólo zeigen, dass uno (natürlich) auch con boolischen Ergebnissen rechnen kann.

-1.0 schaue Yo a y el float-Función reiche Yo después de.

PS: In nativen Características hält el Floatvariable sólo el Adresse uno 8-Byte Speichers de el se el jeweilige Float zusammensetzt. mov eax,f! mov ebx,[eax] setzt después de ebx also erste 4 byte y add eax,4 mov ebx,[eax] kommst a el nächsten 4 Byte - Yo baue el aber (natürlich) direkt una.

Frank
Abbing

add eax,4
mov ebx,[eax]
Tomar mejor:

mov ebx,[eax+4]

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