procedure GDIRenderer.CircleApproximation(xcenter, ycenter, Radius, Rotate: Double; style: TStyle);
var
PArrow: array [1 .. points] of TPoint;
i: integer;
theta: Double;
x, y : double;
beforeBrushColor, beforePenColor: TColor;
beforePenWidth: integer;
begin
beforeBrushColor := FCanvas.Brush.color;
beforePenColor := FCanvas.Pen.color;
beforePenWidth := FCanvas.Pen.Width;
FCanvas.Pen.color := style.PenColor;
FCanvas.Pen.Width := style.penWidth;
FCanvas.Brush.color := style.BrushColor;
for i := 1 to points do
begin
theta := Pi * ((i-1)/(points/2));
x := xcenter + (Radius* Cos(theta));
y := ycenter + (Radius* Sin(theta));
PArrow[i] := Point(Round(x), Round(y));
end;
FCanvas.Polygon(PArrow);
FCanvas.Brush.color := beforeBrushColor;
FCanvas.Pen.color := beforePenColor;
FCanvas.Pen.Width := beforePenWidth;
end;
procedure TDoF.Calc(Sender: TObject);
var
focal: integer;
aperture: double;
CoC: double;
Hyperfocal: double;
distance: double;
NearF, FarF, doftotal: double;
begin
distance := StrToFloat(Edit2.Text) * 1000 * 0.3048;
focal := getFocal(ComboBox1.Text);
aperture := getAperture(ComboBox2.Text);
CoC := StrToFloat(Edit1.Text);
photovalues.Values['Subject distance (inches)'] := FloatToStr(StrToFloat(Edit2.Text) * 12) + ' in';
photovalues.Values['Subject distance (meters)'] := FloatToStr(StrToFloat(Edit2.Text) * 0.3048) + ' m';
photovalues.Values['Subject distance (millimeters)'] := FloatToStr(StrToFloat(Edit2.Text) * 0.3048 * 1000) + ' mm';
Hyperfocal := 0;
if (aperture * CoC) > 0 then
Hyperfocal := Sqr(focal) / (aperture * CoC);
photovalues.Values['Hyperfocal distance for this lens/aperture combination (meters)'] := FloatToStr(Hyperfocal) + ' m';
photovalues.Values['Hyperfocal rounded distance for this lens/aperture combination (meters)'] := FormatFloat(f, Hyperfocal) + ' m';
photovalues.Values['Hyperfocal distance for this lens/aperture combination (ft)'] := FloatToStr(Hyperfocal * feet) + ' ft';
photovalues.Values['Hyperfocal rounded distance for this lens/aperture combination (ft)'] := FormatFloat(f, Round(Hyperfocal * feet)) + ' ft';
NearF := ((Hyperfocal * 1000 * distance) / ((Hyperfocal * 1000) + (distance - focal))) / 1000;
photovalues.Values['Near limit of acceptable sharpness (meters)'] := FloatToStr(NearF) + ' m';
photovalues.Values['Rounded near limit of acceptable sharpness (meters)'] := FormatFloat(f, Round(NearF)) + ' m';
photovalues.Values['Near limit of acceptable sharpness (ft)'] := FloatToStr(NearF * feet) + ' ft';
photovalues.Values['Rounded near limit of acceptable sharpness (ft)'] := FormatFloat(f, Round(NearF * feet)) + ' ft';
FarF := ((Hyperfocal * 1000 * distance) / ((Hyperfocal * 1000) - (distance - focal)) / 1000);
if FarF < 0 then
begin
photovalues.Values['Far limit of acceptable sharpness (meters)'] := 'Infinity';
photovalues.Values['Rounded far limit of acceptable sharpness (meters)'] := 'Infinity';
photovalues.Values['Far limit of acceptable sharpness (ft)'] := 'Infinity';
photovalues.Values['Rounded far limit of acceptable sharpness (ft)'] := 'Infinity';
end
else
begin
photovalues.Values['Far limit of acceptable sharpness (meters)'] := FloatToStr(FarF) + ' m';
photovalues.Values['Rounded far limit of acceptable sharpness (meters)'] := FormatFloat(f, Round(FarF)) + ' m';
photovalues.Values['Far limit of acceptable sharpness (ft)'] := FloatToStr(FarF * feet) + ' ft';
photovalues.Values['Rounded far limit of acceptable sharpness (ft)'] := FormatFloat(f, Round(FarF * feet)) + ' ft';
end;
doftotal := Round(FarF - NearF);
if doftotal < 0 then
begin
photovalues.Values['Total depth of field (meters)'] := 'Infinity';
photovalues.Values['Total rounded depth of field (meters)'] := 'Infinity';
photovalues.Values['Total depth of field (ft)'] := 'Infinity';
photovalues.Values['Total rounded depth of field (ft)'] := 'Infinity';
end
else if (doftotal >= 0) and (doftotal < 0.001) then
begin
photovalues.Values['Total depth of field (meters)'] := '> 1 mm';
photovalues.Values['Total rounded depth of field (meters)'] := '> 1 mm';
photovalues.Values['Total depth of field (ft)'] := '> 0.0393 in';
photovalues.Values['Total rounded depth of field (ft)'] := '> 0.0393 in';
end
else
begin
photovalues.Values['Total depth of field (meters)'] := FloatToStr(doftotal) + ' m';
photovalues.Values['Total rounded depth of field (meters)'] := FormatFloat(f, Round(doftotal)) + ' m';
photovalues.Values['Total depth of field (ft)'] := FloatToStr(doftotal * feet) + ' ft';
photovalues.Values['Total rounded depth of field (ft)'] := FormatFloat(f, Round(doftotal * feet)) + ' ft';
end;
end;
unit uComparing;
interface
uses
generics.defaults, generics.collections;
type
TIntegerComparer = class(TComparer<Integer>);
TIntegerList = class(TList<Integer>);
implementation
end. procedure TForm1.Button1Click(Sender: TObject);
var
integerList : TIntegerList;
i: Integer;
begin
integerList := TIntegerList.Create(TIntegerComparer.default);
for i := 0 to memo1.Lines.count - 1 do
integerList.Add(StrToInt(Memo1.Lines[i]));
integerList.Sort;
for i := 0 to integerList.count - 1 do
Memo2.Lines.Add(IntToStr(integerList[i]));
end;
unit uComparing;
interface
uses
generics.defaults, generics.collections;
type
TIntegerComparer = class(TComparer<Integer>)
public
function Compare(const Left, Right : Integer) : Integer; override;
end;
TIntegerList = class(TList<Integer>);
implementation
{ TIntegerComparer }
function TIntegerComparer.Compare(const Left, Right: Integer): Integer;
begin
result := Right - Left;
end;
end. procedure TForm1.Button1Click(Sender: TObject);
var
integerList : TIntegerList;
i: Integer;
begin
integerList := TIntegerList.Create(TIntegerComparer.create);
for i := 0 to memo1.Lines.count - 1 do
integerList.Add(StrToInt(Memo1.Lines[i]));
integerList.Sort;
for i := 0 to integerList.count - 1 do
Memo2.Lines.Add(IntToStr(integerList[i]));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
integerList : TIntegerList;
i: Integer;
begin
integerList := TIntegerList.Create();
for i := 0 to memo1.Lines.count - 1 do
integerList.Add(StrToInt(Memo1.Lines[i]));
integerList.Sort(TIntegerComparer.Construct(
function (const Left , Right : integer): integer
begin
result := Left - Right;
end
));
for i := 0 to integerList.count - 1 do
Memo2.Lines.Add(IntToStr(integerList[i]));
end;
cold(x)=(x<=40? 0: cold2(x)) cold2(x)=(x<=40 & x > 40? 1: cold3(x)) cold3(x)=(x<=50 & x > 40? -0.1*x + 5: cold4(x)) cold4(x)=(x<=50 & x > 50? 1: cold5(x)) cold5(x)=(x>50? 0:0) cool(x)=(x<=40? 0: cool2(x)) cool2(x)=(x<=55 & x > 40? 0.066667*x -2.666667: cool3(x)) cool3(x)=(x<=55 & x > 55? 1: cool4(x)) cool4(x)=(x<=65 & x > 55? -0.1*x + 6.5: cool5(x)) cool5(x)=(x>65? 0:0) justright(x)=(x<=60? 0: justright2(x)) justright2(x)=(x<=65 & x > 60? 0.2*x -12: justright3(x)) justright3(x)=(x<=65 & x > 65? 1: justright4(x)) justright4(x)=(x<=70 & x > 65? -0.2*x + 14: justright5(x)) justright5(x)=(x>70? 0:0) warm(x)=(x<=65? 0: warm2(x)) warm2(x)=(x<=75 & x > 65? 0.1*x -6.5: warm3(x)) warm3(x)=(x<=75 & x > 75? 1: warm4(x)) warm4(x)=(x<=85 & x > 75? -0.1*x + 8.5: warm5(x)) warm5(x)=(x>85? 0:0) hot(x)=(x<=80? 0: hot2(x)) hot2(x)=(x<=90 & x > 80? 0.1*x -8: hot3(x)) hot3(x)=(x<=90 & x > 90? 1: hot4(x)) hot4(x)=(x<=90 & x > 90? 1: hot5(x)) hot5(x)=(x>90? 0:0) set yrange[-0.1:1.1] set xtics 0, 15 set grid set samples 1001 bind Close "exit gnuplot" plot [40:90] cold(x) ,cool(x) ,justright(x) ,warm(x) ,hot(x)
cold(x)=\begin{Bmatrix}{0}&\mbox{if}& x\leq40\\{1}&\mbox{if}& 40< x \leq40\\{-0.1*x + 5}&\mbox{if}& 40< x \leq50\\{1}&\mbox{if}& 50< x \leq50\\{0}&\mbox{if}& x > 50\end{matrix}\\
cool(x)=\begin{Bmatrix}{0}&\mbox{if}& x\leq40\\{0.066667*x -2.666667}&\mbox{if}& 40< x \leq55\\{1}&\mbox{if}& 55< x \leq55\\{-0.1*x + 6.5}&\mbox{if}& 55< x \leq65\\{0}&\mbox{if}& x > 65\end{matrix}\\
justright(x)=\begin{Bmatrix}{0}&\mbox{if}& x\leq60\\{0.2*x -12}&\mbox{if}& 60< x \leq65\\{1}&\mbox{if}& 65< x \leq65\\{-0.2*x + 14}&\mbox{if}& 65< x \leq70\\{0}&\mbox{if}& x > 70\end{matrix}\\
warm(x)=\begin{Bmatrix}{0}&\mbox{if}& x\leq65\\{0.1*x -6.5}&\mbox{if}& 65< x \leq75\\{1}&\mbox{if}& 75< x \leq75\\{-0.1*x + 8.5}&\mbox{if}& 75< x \leq85\\{0}&\mbox{if}& x > 85\end{matrix}\\
hot(x)=\begin{Bmatrix}{0}&\mbox{if}& x\leq80\\{0.1*x -8}&\mbox{if}& 80< x \leq90\\{1}&\mbox{if}& 90< x \leq90\\{1}&\mbox{if}& 90< x \leq90\\{0}&\mbox{if}& x > 90\end{matrix}\\
//@Author Jordi Coll
//@2010
unit uListCompare;
interface
uses
Classes, SysUtils;
type
TListCompare = class(TObject)
private
FList2: TStringList;
FList1: TStringList;
procedure SetList1(const Value: TStringList);
procedure SetList2(const Value: TStringList);
public
property List1: TStringList read FList1 write SetList1;
property List2: TStringList read FList2 write SetList2;
constructor Create();
destructor Destroy(); override;
procedure DumpList();
function ExistInList1(s: string): boolean;
function ExistInList2(s: string): boolean;
end;
implementation
{ TListCompare }
constructor TListCompare.Create;
begin
FList1 := TStringList.Create;
FList2 := TStringList.Create;
end;
destructor TListCompare.Destroy;
begin
FreeAndNil(FList1);
FreeAndNil(FList2);
inherited;
end;
procedure TListCompare.DumpList;
var
i: Integer;
begin
if List2.Count = 0 then
begin
for i := 0 to List1.Count - 1 do
begin
List2.Add(List1[i]);
log('New Item ->' + List1[i]);
end;
end
else
begin
for i := 0 to List1.Count - 1 do
begin
if not ExistInList2(List1[i]) then
log('New Item ->' + List1[i]);
end;
for i := 0 to List2.Count - 1 do
begin
if not ExistInList1(List2[i]) then
log('Item doesn''t exist ->' + List2[i]);
end;
List2.Clear;
for i := 0 to List1.Count - 1 do
List2.Add(List1[i]);
end;
end;
function TListCompare.ExistInList1(s: string): boolean;
var
found: boolean;
i: Integer;
begin
i := 0;
found := false;
while (i < FList1.Count) and (not found) do
begin
found := FList1[i] = s;
inc(i);
end;
result := found;
end;
function TListCompare.ExistInList2(s: string): boolean;
var
found: boolean;
i: Integer;
begin
i := 0;
foundt := false;
while (i < FList2.Count) and (not found) do
begin
foundt := FList2[i] = s;
inc(i);
end;
result := found;
end;
procedure TListCompare.SetList1(const Value: TStringList);
begin
FList1 := Value;
end;
procedure TListCompare.SetList2(const Value: TStringList);
begin
FList2 := Value;
end;
end.
In this quick article I will show you how to create your own Raspberry Pi cluster for parallel computing via MPI (Messaging Passing ...
