Das deutsche QBasic- und FreeBASIC-Forum

[pzktupel]

Hallo, gibt es einen schnelleren Befehl, um MOD 8 zu bekommen ?

***
DIM AS USHORT N,A
DIM AS UINTEGER I
INPUT "N";N
PRINT TIMER
FOR I=1 TO 100000000
A= N MOD 8
NEXT I
PRINT TIMER
FOR I=1 TO 100000000
A=N SHL 13
A = A SHR 13
NEXT I
PRINT TIMER
SLEEP

***

Läuft auf dasselbe hinaus.

Gruß
_________________
Umfangreichste Angaben zu Primzahl k-Tupel
https://www.pzktupel.de/ktuplets.php

[nemored]

Bei Zweierpotenzen kannst du es noch mit "N AND 7" versuchen, das sollte schneller gehen als MOD - funktioniert aber nur mit Zweierpotenzen.

Laufen bei dir MOD und SHL/SHR wirklich gleich schnell? Bei mir war jetzt bei mehreren Versuchen die SHL/SHR-Methode fast doppelt so schnell (und auch etwas schneller als AND).
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[pzktupel]

Ja, etwa gleich.

Hier mal für 1 MRD Interationen

N? 799
429666.4866057
429669.3533163
429672.2092275

Es betrifft nur die 8 speziell, da sie für ein Bitfeld mit UBYTE nötig ist

Danke !
_________________
Umfangreichste Angaben zu Primzahl k-Tupel
https://www.pzktupel.de/ktuplets.php

[pzktupel]

Ist ja geil mit N AND 7...bau ich gleich mal ins Sieb

Danke !

Nachtrag:

Also N AND 7 bringt keinerlei Speedvorteil gegenüber N MOD 8

System: Ryzen 1700
_________________
Umfangreichste Angaben zu Primzahl k-Tupel
https://www.pzktupel.de/ktuplets.php

[nemored]

Beispielausgabe bei mir:

[pzktupel]

habs mal mit -gen -gcc gemacht (ist mir komplett neu)

N? 5913
Start :434588.6120438
MOD :434591.4962621
SHL/SHR: 434594.4545164
AND 7 : 434597.2681629 *

2.8-2.9 s , etwa immer gleich. 1 Mrd Interationen
_____________

In der Tat ist -gcc gas unter 32bit ein Tick schneller im SHL/SHR als 64bit.
Problem ist aber wieder bei 32bit der begrenzte RAM
_________________
Umfangreichste Angaben zu Primzahl k-Tupel
https://www.pzktupel.de/ktuplets.php

[nemored]

Ich habe noch eine sehr verrückte Idee - läuft bei mir zwar auch nicht schneller, ist aber wenigstens schön verrückt.

[pzktupel]

Außer Reichweite ist auch " VALUINT(BIN(N,3)) " für N MOD 8

Aber ingesamt, ist es leider nicht wirklich massiv schneller.

Wäre gut gewesen, wenn es einen Befehl gäbe, der die letzten 3 Bit von rechts sofort verwerten könnte.

Was mich auch etwas stört, ist das Freebasic für

DIM A(Bereich) AS UBYTE

A(N SHR 3)=BITSET(N SHR 3, N MOD 8) immer das Feld vorher wieder löscht.

Nur bei: A(N SHR 3)=BITSET(A(N SHR 3), N MOD 8 ) wird der Inhalt behalten und das BIT bei 0..7 ergänzt
_________________
Umfangreichste Angaben zu Primzahl k-Tupel
https://www.pzktupel.de/ktuplets.php

[nemored]

BITSET(N SHR 3, N MOD 8) setzt ein spezielles Bit im Ausdruck "N SHR 3" und nicht in der Variablen "A(N SHR 3)" - oder habe ich die Aussage falsch verstanden? "A(N SHR 3)" wird nicht vorher gelöscht, sondern mit dem Ergebnis von "BITSET(N SHR 3, N MOD 8)" überschrieben.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[pzktupel]

Speziell war es so gemeint.

Integerwert=100
Im Bitfeld F() also F(12)=00001000 wird das BIT gesetzt
jetzt ist der Integerwert=99
Im Bitfeld F() also F(12)=00000100 wird das BIT gesetzt

Wünschenswert wäre aber F(12)=00001100, das geht aber nur , wenn extra
F(12) im BITSET-Befehl eingebunden wird mit F(12)=BITSET(F(12),3)

Das Feld 12 umfasst alle Zahlen von 96 bis 103
_________________
Umfangreichste Angaben zu Primzahl k-Tupel
https://www.pzktupel.de/ktuplets.php

[nemored]

[pzktupel]

F(12)=BITSET(F(12),3) ist die einzige Lösung.

Wenn man in einem Bereich siebt und in einem Bitfeld ablegt, dann ist es so, dass mehrmals über dieselbe Zahl drübergebügelt wird.

Bsp. 1001 würde durch die 7,11 und 13 erfasst werden.

1001 hat aber im Bitfeld -> F(125) mit Bitstelle 00000001
1003 hat F(125)=Bitstelle 00000100 , durch die 17 einmalig erfasst

Eigentlich würde es genügen, wenn es den Befehl als Einzelanweisung gäbe
wie
> BITSET(F(X SHR 3),X MOD 8) < , aber nein, der will noch ein "=" haben

Ist ein Bit gesetzt, dann setze halt nochmal und addiere nicht die numerischen werte, wie es auch vorkommt

Fazit:
Es ist unnötig in einem Feldinhalt ein Bit zu setzen und expliziet nochmal das Feld anzusprechen.


Sowas für eine volle Belegung für F(X SHR 3)

BITSET(F(X SHR 3),0)
BITSET(F(X SHR 3),1)
BITSET(F(X SHR 3),2)
BITSET(F(X SHR 3),3)
BITSET(F(X SHR 3),4)
BITSET(F(X SHR 3),5)
BITSET(F(X SHR 3),6)
BITSET(F(X SHR 3),7)

gibt es eben nicht,egal
_________________
Umfangreichste Angaben zu Primzahl k-Tupel
https://www.pzktupel.de/ktuplets.php

[hhr]

Ist so etwas gemeint?

[pzktupel]

Hallo !

Leider nicht wirklich.

Der Ursprung war , so schnell wie möglich von einer Zahl N das N MOD 8 zu berechnen, weil dieser Wert in einem Array das Bit auf 1 setzen soll.

Das zweite war, das ich es umständlich finde, wie man ein Bit schrittweise in einem Feldinhalt zwischen 0..7 ergänzen kann.

Ich habe ja die Lösung , aber denke FB könnte da noch Einsparungen teffen.

Setzt man ein Bit, geht die alte Position verloren.

Man könnte zwar 1 oder 0 an einer Stelle abfragen und bei 0 einfach addieren mit : F(x)+=, aber das kostet Zeit und ist damit unerwünscht.

Somit bleibt nur das genannte F(X SHR 3)=BITSET(F(X SHR 3), X MOD 8) übrig.

Das soll ja nun auch nicht ausufern, somit bleibt " MOD 8 " als Befehl nur übrig. [Oder gleichwertig "N AND 7"]
_________________
Umfangreichste Angaben zu Primzahl k-Tupel
https://www.pzktupel.de/ktuplets.php

[nemored]

[pzktupel]

Aha, siehste und da gehen bei mir schon wieder die Lichter aus !

So tief gleich im Code rumwuseln kann ich eben doch nicht
_________________
Umfangreichste Angaben zu Primzahl k-Tupel
https://www.pzktupel.de/ktuplets.php

[nemored]

Ach was, im Code rumwuseln - das steht in der Referenz
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[volta]

Hi,
N and 7 ist doch schon 5-6 mal schneller als N mod 8

[pzktupel]

@volta

Den Assemblercode habe ich bei mir entfernt, da compilerfehler...aber hier für
10^9 Interationen nochmal die Zeiten mit Deinem Code

2.863855899951886
2.810774999961723
2.843578899977729

Es gewinnt klar sogar die SHL/SHR Methode, aber 0.04s ist auf 10^9 mal kein
Mehrgewinn

Da ist kein Unterschied,leider . Mit Freebasic 1.07 Win64 ändert sich auch nix.

Kann ja sein, dass alle Intel-PCs haben die wieder extra Befehlssätze haben.

Gruß
_________________
Umfangreichste Angaben zu Primzahl k-Tupel
https://www.pzktupel.de/ktuplets.php

[volta]

Hi,
ich hätte nicht gedacht das die 32Bit Version mit N mod 8 so langsam ist.
Da FB sehr maschinennah compiliert sind die asm Teile nur unwesentlich schneller.
Ich hatte die falsche Registergrößen benutzt (in 32Bit ist das kein Problem).