Deutsches Lazarusforum

Hallo,

wenn Dein Vergleichswert aFloat im Feld aFA vorkommt, wird er den auch finden.
Das versuchte ich zu vermeiden.

Gruß Horst

Hallo,

ist das nicht einfach?
Einmal die Liste abklappern und mit dem Wert vergleichen und immer den gerade "nächsten" <> Wert speichern.
program findNearest;
type
tValue = Uint32;
tFeld = array of tValue;

function FindNearestIdx(value: TValue;const Feld: tFeld):int32;
var
minIdx,i : Int32 ...

Hallo,

wenn man die Funktion von kupferstecher mit Ausgabe des Assemblers kompiliert kommt doch schon der gleiche passende Assembler-Code raus.
Reicht da nicht ein simples inline um dann genau so schnell zu sein?
Unter 64-Bit linux fpc -O3 -al -Xs kompiliert:
function rech(i, j: Integer): Integer ...

Hallo,

das gibt es schon ohne assembler:
Rotiere x um n bits nach links die Bits werden innerhalb von x verschoben, was oben rausfällt wird unten wieder reingeschoben.
https://en.wikipedia.org/wiki/Bitwise_operation#Circular_shift

https://www.freepascal.org/docs-html/3.0.0/rtl/system/index-5.html ...

Hallo,

wenn ich unter Win10 64-Bit für FreePascal 32-Bit compiliere dauerte es immer eine Ewigkeit, obwohl die ausgegebene Kompilierzeit selbst nur maximal doppelt so lang wie bei 64-bit ist.Eben diese 10 bis 20 Sekunden Bedenkzeit, bevor es überhaupt los geht.Während der Zeit ist ein Prozessorkern ...

Hallo,

ich habe noch was dran herumgeschraubt, um zu sehen ob die Suche nach Orten in der Umgebung einer Koordinate Sinn machen können.
1 Breitengrad sind ja 110 km .1 Längengrad am Äquätor auch, zu den Polen wird es etwas eng.
Um Berlin sind es schon 330 Ortsangaben.
Anbei das Lazarus Projekt. Es ...

Hallo,

ich habe mein Programm wieder verändert und jsonparser wie wp_xyz eingesetzt hat, um einmalig ein File of TCity zu erstellen.
Diese ist schon entsprechend nach Land-> Name-> ID sortiert.
Nach einmaligem Einlesen kann man dann für die Länder ja Start und Endindices speichern.
Aber bei nur 16 ...

Hallo,

zur Verdeutlichung.
Der Nachkommateil ist der Anteil vom Tag.
Wenn Du die Sekunden haben willst dann x 86400 rechnen

T0 := time;
sleep(1010);
dt:= time-T0;
writeln('Es sind ',dt:10:8,' Tage vergangen');
writeln('Es sind ',dt*24:10:8,' Stunden vergangen');
writeln('Es sind ',dt*24*60:10:8 ...

Hallo,

ich würde die city.list in ein file of TCity umwandeln.
Das ist nur selten nötig und damit ist sie leichter handhabbar.

Steffen Polster hatte vor Jahren ein OpenSource-Programm dafür komponiert:
https://www.entwickler-ecke.de/viewtopic.php?t=111904
Aber die wollen jetzt einen persönlichen ...

Hallo,

ich habe mal die json Datei pro Datum zu einem Einzeiler gemacht.
[
{"id":707860,"name":"Hurzuf","country":"UA","coord":{"lon":34.283333,"lat":44.549999}},
{"id":519188,"name":"Novinki","country":"RU","coord":{"lon":37.666668,"lat":55.683334}},
{"id":1283378,"name":"Gorkhā","country":"NP ...

Hallo,

ich habe mal ein minimales Programm aus dem Schnipsel oben geschrieben.
uses
sysutils,classes,fpjson,jsonparser;
var
FS : TFileStream;
SL : TStringList;
J : TJSONData;
T1,T0 :int64;
i : NativeInt;
begin
T0 := GetTickCount64;
FS := TFileStream.Create('city.list.json',fmOpenRead ...

Hallo,

http://bulk.openweathermap.org/sample/
dort die erste
city.list.json.gz

Gruß Horst

Hallo,

besonders bei 32-Bit bekommt man die geringe Zahl an Registern zu spüren.Das auslagern in kleine Funktionen bringt erheblich was und es sollte auch vergleichbarer werden, egal wo man die Funktion im Quelltext benutzt.

program p;
uses
sysutils;

const
IMAX = 250000000;
var
x: double ...

Hallo,

wie der CPu Bench zeigt, liegt die single-thread performance bei 1:8 also nicht so weit weg von 1:10 hier.
Man kann aber das Programm ein wenig umstellen, um ohne IF's und n als double auszukommen.
Vielleicht hilft das ja ein wenig.

program p;
uses
sysutils;

var
x : double;
i ...

Hallo,

ich habe einen Ryzen 5 1600 Rechner und das Programm mal für 64-Bit unter Linux mit FPC 3.0.4 compiliert.
Bei mir bleibt Subtraktion schneller.
Original:

{$Codepage UTF8}
{$mode objfpc}{$H+}
{$CODEALIGN proc=32,loop=8}
program Project1;
und fpc so aufgerufen:
fpc -O3 -Xs -al ...