Mathematiknachhilfe...

[haentschman]

Hallo alle...

irgendwie ist heute meine mathematische Gehirnzelle noch nicht wach...

Ich will einer Funktion einen Prozentwert (Integer) übergeben und den entsprechenden Integerwert zurückbekommen.
Hört sich leicht an... aber:

Wert 255 entspricht 0%
Wert 128 entspricht 100%

bedeutet 50% = 192

Danke für´s Helfen...

PS: umgekehrt (Wert in Prozent) geht so: 100 - ((aValue - 127) * 100) div 127

[Namenloser]

128*x+255*(1-x), wobei x ein Wert zwischen 0 und 1 ist.

[fkerber]

Hi,

die Zahlen sind etwas krumm
Kann es sein, dass 127 die 100% sein sollen?

Dann wäre es so:
255 - (128 / 100 * Eingabe)

LG,
Frederic

[Muellermilchtrinker]

127+128*(x/100). x von 0 bis 100 %.

EDIT: Erste 128 durch 127 geändert.

[DeddyH]

Delphi-Quellcode:

function KomischerProzentwert(Prozent: integer): integer;
const
  VALMAX = 255;
  VALMIN = 128;
  OFFSET = VALMAX - VALMIN;
var
  PrzVal: integer;
begin
  PrzVal := Round(OFFSET / 100 * Prozent);
  Result := VALMAX - PrzVal;
end;

Danach sind die 50% allerdings 191, siehe Frederic.

[haentschman]

Zum Verständnis:

Hex 00 - 7F = 0 - 127 -> 00 = 0% , 7F = 100%
Hex 80 - FF = 128 - 255 -> 80 = 100% , FF = 0%

Bitte gebt mir für´s testen noch einen Moment. Ich muß noch eine Kleinigkeit vorher fertig machen, damit sich der Quark kompillieren läßt...

[Aphton]

Anfangswert + (Endwert-Anfangswert) * ProzentuellerWert/100

Anfangswert = 255
Endwert = 128
ProzentuellerWert = 50

255 + (128-255) * 50/100
= 255 - 127 * 0.5
= 255 - 64
~ 191

[Bjoerk]

Geradlinige Interpolation: y(x):= y1 + (y2-y1) / (x2-x1) * (x-x1)

ggf. y:= Round (...)

[Jens01]

Ich hätt da auch noch eine...

Delphi-Quellcode:

{ lineare Interpolation }
function interpol(tabwert, tab1, tab2, ergebnis1, ergebnis2: Double): Double;
begin
  Result := (((tabwert - tab1) / (tab2 - tab1)) * (ergebnis2 - ergebnis1)) + ergebnis1;
end;

[haentschman]

Danke an alle...

so paßt´s:
255 - Round((127 * (aPercent / 100)))

... und 50% ist 191... ihr habt ja Recht