Re: Math problem

Actually, I was just trying to give you the gist of why it was happening to
show you where to start, not a formula. I am kind of lazy that way! Just
for grins, can someone determine why even with the formula which gives an
exact result you will no get a perfect result.

Russ

"Don Strenczewilk" <nospam@xxxxxxxxxx> wrote in message
news:46d83cb5@xxxxxxxxxxxxxxxxxxxxxxxxx
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.




.

Relevant Pages

  • Re: Qio ?
    ... VAR ... PROCEDURE Rec; ... Writeln; ... CAMDEV doit etre en mode PASTHRU'); ...
    (comp.os.vms)
  • Re: Needed: Ethernet String to Ethernet Address.
    ... function EthernetStringToEthernetAddress(ParaString: string; var ... ParaAddress: TEthernetAddress): boolean; ... if EthernetStringToEthernetAddress(vEthernetString, vEthernetAddress) ... writeln(IntToHex(vEthernetAddress, 2)); ...
    (alt.comp.lang.borland-delphi)
  • Re: Why does this not work: PChar(@Name[0]) := Pchar(String);
    ... Tut tut tut, always test your shit first before posting otherwise you look ... WriteLn(vArray); ... procedure DumpCodecName(var A: array of WideChar); ... vLength:= Length; ...
    (alt.comp.lang.borland-delphi)
  • Re: TrySetLength not possible !? :(
    ... (* SetLength Procedure *) ... Function TrySetLength(var Param; const NewLength, ... var DynamicArray: ... Writeln(Length(A) div SizeOf); ...
    (alt.comp.lang.borland-delphi)