Re: Math problem
- From: "Don Strenczewilk" <nospam@xxxxxxxxxx>
- Date: Fri, 31 Aug 2007 12:07:16 -0400
Thanks very much to all of you. Uwe was right on, Russ was halfway there,
and a little tweaking made the results jibe with a formula a supplier gave
to me (which is what I was trying to verify). Although Hopeful Skeptic's
solution is a good one, there is little hope of getting it implemented here.
In case anyone wants to verify the other two methods:
program DistortionFactor;
{$APPTYPE CONSOLE}
uses
SysUtils;
function Uwe( thickness, outercircumference : extended ) : extended;
var
r : extended; // radius of the roller
begin
r := (outercircumference / pi / 2) - thickness;
result := r / (r+thickness);
end;
function Russ( thickness, outercircumference : extended ) : extended;
var
k : extended; // elongation lenth (difference in length from top to
bottom of the strip)
begin
k := 2 * pi * thickness;
result := 1 - (k / outercircumference);
end;
const
T = 0.107; // thickness
O = 15; // outer circumference
begin
writeln( Uwe( T, O ) );
writeln( Russ( T, O ) );
readln;
end.
.
- Follow-Ups:
- Re: Math problem
- From: Q Correll
- Re: Math problem
- From: Russ
- Re: Math problem
- References:
- Math problem
- From: Don Strenczewilk
- Math problem
- Prev by Date: Re: How is Delphi 2007 for Win32s IDE speed compared with D2006 Studio?References: <46d45d9d$1@newsgroups.borland.com>
- Next by Date: Re: Highlander question - Win32/.Net
- Previous by thread: Re: Math problem
- Next by thread: Re: Math problem
- Index(es):
Relevant Pages
|
