[*]Profan

English

Frank
Abbing

i wish me (in first line for Floats) whom new relationalen Operator: about or. almost same. means quasi one Gleichheitszeichen with of/ one spare einstellbaren tolerance, z.B.:

~=

or

><

and moreover a function, around the Toleranzwert (in positiver and at the same time too negativer direction) To settle, How z.B.:

Set(About, 0.0001)

the whole would too meaningfully for Integer-numbers. in the drop setting one even ganzzahlige values:

Set(About,3)

For this, Please too reading: [web]https://www.rgh-soft.de/forum01/read.php?f=7&i=12824&t=12824[/web] and [web]https://de.wikipedia.org/wiki/Gleichheitszeichen[/web]

11/08/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 2 -

Jörg
Sellmeyer

Compile Mark Separation

@Jörg, keine Funktion zum Runden, sondern eine Bedingung!

OK, the comparison with the Ganzzahl was something To short sprang.
in the principle power my function but very the, what Rolands or your structure too make.
Compile Mark Separation

Proc RoundAbout

    Parameters F!,n%,F2!
    Declare r%
    r% = (Round(F!,n%) = Round(F2!,n%))
    Print Str$(F!) +  =  + Str$(F2!) + :  + Str$(r%)
    Print Str$(Round(F!,n%)) +  =  + Str$(Round(F2!,n%)) + :  + Str$(r%)
    Return r%

EndProc

WhileLoop 10

    print RoundAbout(1.573525,&Loop,1.573527),&Loop

Wend

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

11/13/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

These Solutions weg naturally, but you're altogether not efficient. One zusätzlicher relationaler Operator would sure slight incorporate and wouldn't moreover disturbing.
me personally would such rudimentären extensions glücklicher make as The x-th summary of 2-3 APIs. but Please...

11/13/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

a new Operator, the in the maths completely uncharted is, stops I for unhelpful.

sooner could I me Set-function present, with the I The accuracy of Float-Compare take on can, about Set(IrgendeinSinnvollerName, 7).
too meaningfully would Perhaps a function Test(worth!, of!, To!), with the screen becomes, whether a worth between whom named border lying.

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

11/13/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

a new Operator, the in the maths completely uncharted is, stops I for unhelpful.

Trend-Setting heard well not To your strengthen.

however, your Proposals shine me at least a little bit against To come what about me would its installation therefore naturally saluting.

11/14/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Wodrich

a new Operator, the in the maths completely uncharted is, stops I for unhelpful.

as Operator likes the Yes voices, but in very many Source code geistern The gamma-Korrekturwerte around. there could one itself with Franks wish so some improve....

only because the Mathematiker not yet on so a Solution come are must tappt im dunkeln Yes not so bad his..

how'bout with tolerance for Set and function..... (engl.. Tolerance)

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

11/16/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

finally time approval. The what-the-Bauer-not-knows-lunching-it-not-bearing here in the Thread found so did i already something erschreckend.

11/16/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

I have me time detailed Thoughts one vaguely comparison made:

Zuallererst: I see one, that such a thing for mancherlei tack meaningfully is and of therefore too possible flexibly his ought to.

though parting therefore some the here suggested Solutions from:
Gleichheitszeichen through Set-function gesteuert: the would of course flexibly handhabbar, power whom code but tougher To reading. If is a a procedure viewing, white one never, what the = because now means: Gleicheit or only a somehow geartete Ähnlichkeit the values. there should one already whom whole code search, whether somewhere a suitable Set-function standing and which this functions with Calling the procedure straight validly are. same ought to already same mean.
One new Operator, about ~: so this flexibly handhabbar would, would have the strain the accuracy the Vergleichs here over a Set-function tuned go, so that this the same trouble How the erweiterte Gleichheitszeichen has, with the Difference, that one now white, that The exakte equality here presumably not question comes.

as Solution bid itself therefore a new function on: about nearly(worth1!, worth2!, accuracy%) where accuracy The same weight How with round(worth!, accuracy%) has, and the Number of Nachkommastellen angibt, The at comparison wirken. These number can also negative his, circa about with large numbers The back to put not To respect. nearly(5,999, 6,004, 2) would then 1 (=wahr) yield, there both values on 2 to put gerundet same are, namely 6,00.
parallel moreover would about The function between(worth!, of!, To!) imaginable, The 1 zurückggibt if worth! between of! and To! lying: of! <= wert! <= bis!
round down could to the whole yet with brat(worth!, mins!, max!), the the value on The border beschneidet, means mins! zurückgibt, if the worth small as mins! is and max! zurückgibt, if it larger as max! is. lying it between, becomes it unchanged zurückgegeben.

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

11/18/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jau the smell already almost after a Intersektionskontrolle for Rechtecke, quasi two betweens, accordingly could is a proc from 7 Lines in a proc from 5 Lines paraphrase. Perhaps bring You the between but too too yet optionale Mehrparameter with:
Compile Mark Separation

if between(x!,y!,10,10,200,200)//prüft ob Punkt x! y! im Rechteck 10,10 - 200,200 liegt

    if between(x!,y!,x!+50,y!+50,10,10,200,200)// prüft ob Rechteck x! y! - x!+50 y!+50 im Rechteck 10 10 200 200 liegt./pre>