|
Registriert seit: 21. Apr 2005
Ort: Spremberg
455 Beiträge
Turbo Delphi für Win32
|
Re: mod für real-Speicher bzw.wie ein vielfaches von Pi umwa
6. Jun 2005, 08:50
Delphi-Quellcode:
function PiModulo (const Value: Extended): Extended;
var
H: Extended
begin
H := Frac (Value/2/Pi);
Result := Value-(2*Pi*H);
end;
ungetestet
Da sprach der Stumme zum Blinden: "Du wirst sehen ..."
oder
Wer lesen kann, ist klar im Vorteil!
|