|
Registriert seit: 3. Apr 2005
Ort: Jahnsdorf
48 Beiträge
Delphi 5 Enterprise
|
Re: mod mit extendet
10. Apr 2005, 23:50
Für die Begrenzung von Winkeln im Gradmaß, kann man folgendes nehmen:
Delphi-Quellcode:
Function LimitAngleDeg2( Var Angle: Extended): Extended;
Asm
FILD WORD PTR [@@Value360]
FLD TBYTE PTR [Angle]
FPREM
FSTP ST(1)
JMP @@Ret
@@Value360:
DW 360
@@Ret:
End;
Die FILD-Anweisung durch FLD TBYTE PTR [ObereSchranke]
ersetzen für andere Grenzen, wenn Obere Grenze ein Parameter ist.
Benny Baumann
Je komplexer das System, desto kleiner die Fehler; je kleiner die Fehler, desto häufiger ihr Auftreten!
|