сгенерировать цифры

[Pavia]

1/GFlops=1/(1 GFlop/c) используем правило дробей. с/1 GFlop

Частота процессора должна быть, как минимум 7,5 террагерц.

У меня частота менее 3 ГГц однако 750 GFlops имею.

И, как я говорил выше,одна операция, делается как минимум за 10 тактов.

Так я это и учёл.

[Smitt&Wesson]

Сообщение от Pavia

1/GFlops=1/(1 GFlop/c) используем правило дробей. с/1 GFlop


У меня частота менее 3 ГГц однако 750 GFlops имею.

Так я это и учёл.

Проснись и пой. Флопс.
единица, используемая для измерения производительности компьютеров, показывающая, сколько операций с плавающей запятой в секунду выполняет данная вычислительная система.

используем правило дробей.

Используем. 1 флопс = 1 операция с плавающей запятой в секунду. Тактовая частота процессора = 10 герц и больше. Да, чё я тут распинаюсь, если у чела производительность 750 гигафлопс... .

[Pavia]

Написал простой тест генерации. Запустил тест.
2 000 000 000 000 генерируется за 60 секунд плюс минус 2 секунды
Дроби.
2 000 000 000 000 000 генерируется за 1000 минут или 16,6 часа.
Поднимать скорость ещё в 2 раза не хочу.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    TrackBar1: TTrackBar;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


  TMyThread= class(TThread)
  private

  protected

  public
    counter:Integer;
    procedure Execute; override;
    procedure ReDraw;

  end;

var
  Form1: TForm1;
  StartTime, StopTime:Integer;
  Sum:Integer;
const
  MainLoop=1000*1000*1000;
  MidleLoop=200;
  ShortLoop=10;
implementation

{$R *.dfm}


function LongGen1(var Goal:UInt64; Start:UInt64; Count:Integer):Boolean;
// Перебор чисел по порятку
var i:Integer;
var Goal1:UInt64;
begin
Result:=False;
Goal:=Start;
Goal1:=Goal;;
for i:= 0  to Count-1 do
  begin
   Inc(Goal1);
  end;
Goal:=Goal1;
Result:=False;
end;

function LongGen2(var Goal:UInt64; Start:UInt64; Count:Integer):Boolean;
// Перебор чисел по порятку
var i:Integer;
var Goal1:UInt64;
begin
Result:=False;
Goal:=Start;
Goal1:=Goal;;
Count:= Count div 16;
for i:= 0  to Count-1 do
  begin
   Inc(Goal1);
   Inc(Goal1);
   Inc(Goal1);
   Inc(Goal1);
   Inc(Goal1);
   Inc(Goal1);
   Inc(Goal1);
   Inc(Goal1);

   Inc(Goal1);
   Inc(Goal1);
   Inc(Goal1);
   Inc(Goal1);
   Inc(Goal1);
   Inc(Goal1);
   Inc(Goal1);
   Inc(Goal1);
  end;
Goal:=Goal1;
Result:=False;
end;

function LongGen3(var Goal:UInt64; Start:UInt64; Count:Integer):Boolean;
// Перебор чисел по порятку
var i:Integer;
var Goal1,Goal2:UInt64;
begin
Result:=False;
Goal:=Start;
Count:= Count div 16;
Goal1:=Goal;
Goal2:=Goal1+1;
for i:= 0  to Count-1 do
  begin
    Inc(Goal1,2); Inc(Goal2,2);
    Inc(Goal1,2); Inc(Goal2,2);
    Inc(Goal1,2); Inc(Goal2,2);
    Inc(Goal1,2); Inc(Goal2,2);
    Inc(Goal1,2); Inc(Goal2,2);
    Inc(Goal1,2); Inc(Goal2,2);
    Inc(Goal1,2); Inc(Goal2,2);
    Inc(Goal1,2); Inc(Goal2,2);
  end;
Goal:=Goal2;
Result:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 Woker:TMyThread;
 i:Integer;
begin
 TrackBar1.Position:=0;
 StartTime:=GetTickCount;
 Sum:=0;
 for i:=0 to ShortLoop-1 do
   begin
   Woker:=TMyThread.Create(true);
   Woker.counter:=i*MidleLoop;
   Woker.Suspended:=False;
   end;
end;

{ TMyThead }

procedure TMyThread.Execute;
var
  i:Integer;
  Count:Integer;
  Start:UInt64;
  Last:UInt64;
begin
// while not Terminated do
     begin
     Count:=MainLoop;
     Start:=UInt64(Counter)*Count;
     Last:=0;
     for i:=0 to MidleLoop-1 do
       begin
       Self.Synchronize(ReDraw);
       if LongGen3(Last, Start, Count) then
          exit;
       Start:=Last;
       Inc(Counter);
       end;
      Inc(Sum,Counter);
      Self.Synchronize(ReDraw);
     end;
end;

procedure TMyThread.ReDraw;
var dt:Real;
begin
  StopTime:=GetTickCount;
  dt:=(StopTime-StartTime)/1000;
  Form1.TrackBar1.Position:=Form1.TrackBar1.Position+1;
  Form1.Caption:=Format('GPass/s %.2f; dt=%.2f s',[Form1.TrackBar1.Position/dt, dt]);
end;

end.

[min@y™]

Ну, ребяты... Я не знаю.
Написал кривую прогу левой пяткой. Вроде работает...



Поэкспериментировать кто-нить хочет? гыгыгы...

305.png

При написании юзал только стандартные компоненты!
Без ГМО и нитратов!