mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

final preparations for the 2.03c

Browse Source
This commit is contained in:
zueuk
2006-01-06 16:29:02 +00:00
parent e3d705bd3d
commit 3325cac7de
7 changed files with 45 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
2.10/Source/varRings2.pas
View File

@ -30,7 +30,7 @@ implementation
uses
Math;
{ TVariationTest }
{ TVariationRings2 }
///////////////////////////////////////////////////////////////////////////////
procedure TVariationRings2.Prepare;
@ -56,7 +56,7 @@ begin
// dx := sqr(FVal) + EPS; - we can precalc it!!!
// r := Length + dx - System.Int((Length + dx)/(2 * dx)) * 2 * dx - dx + Length * (1-dx);
// ^^^^......he he, lots of useless calculation.......^^^^
// ^^^^......he he, lots of useless calculations......^^^^
r := vvar * (2 - dx * (System.Int((Length/dx + 1)/2) * 2 / Length + 1));
FPx^ := FPx^ + r * FTx^;