Forum: Programmieren allgemein
Delphi
by mleyen,
14. Mär 2011
Dann halt: (Wenn ich mich auf die schnelle nicht vertue)
function getQdOuterCircQdDiff(const InnerQuadSideLen: Extended): Extended;
begin
Result := (Sqrt(2*Power(InnerQuadSideLen,2)) - InnerQuadSideLen)/2;
end;
Forum: Programmieren allgemein
Delphi
by mleyen,
14. Mär 2011
Ist jetzt die Entfernung vom äußerem zum innerem Quadrat gesucht, wobei die Seitenlänge vom äußerem Quadrat gegeben ist?
Dann:
function getQdInnerCircQdDiff(const QuadSideLenDiv2: Extended): Extended;
begin
Result := QuadSideLenDiv2 - Sin(Pi/180*45)*QuadSideLenDiv2;
end;