Mark R. Havens
17 lines
283 B
ObjectPascal
17 lines
283 B
ObjectPascal
unit Kairos;
|
|
|
|
interface
|
|
|
|
procedure UpdateCoherence(var I: array of Double; const Phase: Double);
|
|
|
|
implementation
|
|
|
|
procedure UpdateCoherence(var I: array of Double; const Phase: Double);
|
|
var
|
|
I: Integer;
|
|
begin
|
|
for I := Low(I) to High(I) do
|
|
I[I] := I[I] * Cos(Phase);
|
|
end;
|
|
|
|
end. |