XPSE

proc test

    return 20

endproc

nproc test

    return 20

endproc

Inline-Assembler:

nproc test

    mov eax...//assembler

endproc

11.11.2009 ▲

- page 8 -

Zur Funktion si: Braucht on garnicht chez nProcs! tu peux simple dire: a=1=2 z.B. um a sur 0 trop mettons ou bien return a+b<c - cela wird alles net aufgelöst.

je weiss quand même pas, comment je schönes ArcTan hinbekomme.

quoi qui Konstanten angeht, suis je Je ne sûrement -- je denke pas, dass fertige soooo viel plus rapide sommes comme si on Pi() simple avec 2, bzw. 0,5 malnimmt.

Z.B. Du berechnest pour 640x480 Pixel den R-Anteil einer la couleur - pour chaque Pixel *2 ou bien pas *2 prendre... c'est ici qui Frage et pouvoir sehrwohl ensuite unheimlichen Geschwindigkeitsunterschied aus.

Nico
Madysa

mais qui Konstanten sommes so speziell, dass es wohl reichen pourrait, cela dans un Include trop saisir, ou bien?

qui iF-Funktionen brauchte je dans so quelque chose:
Kompilieren Marque Séparation

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

si je là un Brett vorm Kopfe habe, ensuite wäre je reconnaissant, si du es löstest.

chez arctan sais qui Wikipädie plus.
1. Arctan x peut sich beliebig oui c'est ca annähern. arctan(x) = x - x^3/3 + x^5/5 - x^7/7 + ...
cela gilt allerdings seulement, si x entre -1 et +1 liegt.

2. Es gilt: arctan(x) = 2 * arctan(x / (1 + sqrt(1 + sqr(x))))
Ist abs(x) alors größer comme 1, ensuite peux es so sur une niedrigeren Winkel zurückgeführt volonté, qui ensuite wiederum avec qui obigen Reihe angenähert volonté peux.

je versuche mich dran; la fois voyons, si je plus rapide fertig suis comme du.

Nico Madysa

Nico
Madysa

Nachtrag: j'ai den le doute, dass XPSE avec dem Literal -1.0 Probleme hat.

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 encore un plus rapide comparaison de Rolands arctan (rouge) avec dem angenäherten (bleu).

Nico Madysa

Schaue je mir liebend volontiers aujourd'hui soir Zuhause à!

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

mais est v = v + (r<>0)*( a / m * dy / r) ?

Nico
Madysa

... Verflucht tu es bien!

bien, qui Punkt allez à toi. Doch dass avec -1.0 quelque chose pas stimmt, mon je toujours.

EDIT: Argh, non, cela peux doch pas aller! dans deiner variante wird oui quand même par zéro geteilt, si r! zéro ist.

je wusste doch, dass je mir chez dem si quoi gedacht habe.

Nico Madysa

Nico
Madysa

Nachtrag: Es fehlt mir aussi encore Float() um Gleitkommazahlen aus einem Bereich trop lesen. sais pas, comment je qui sonst à une Fil weiterreichen soll.

Nico Madysa

voulais Dir seulement montrer, dass on (naturellement) aussi avec boolischen Ergebnissen le calcul peux.

-1.0 schaue je mir à et qui float-Funktion reiche je pour.

PS: dans nativen Funktionen hält qui Floatvariable seulement qui Adresse eines 8-Byte Mémoire aus dem sich qui jeweilige Float zusammensetzt. mov eax,f! mov ebx,[eax] mets pour ebx alors erste 4 byte et add eax,4 mov ebx,[eax] viens à qui prochain 4 Byte - je baue cela mais (naturellement) direct un.

Frank
Abbing

add eax,4
mov ebx,[eax]
prends besser:

mov ebx,[eax+4]

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