Halbwertszeit berechnen...

[Codix32]

Hallo Leutz,

bin ein Greenhorn und möchte mit Delphi ein kleines Proggi machen, mit dem man Halbwertszeiten berechnen kann.

Mein Problem an sich ist nicht die Programmiersprache, sondern mein IQ läßt es nicht zu, die Formel für Halbwertszeiten zu verstehen.

Beispiel: Die Zahl 1200 halbiert sich alle 12 Std. Wie sieht die Zahl nach 9 Std oder 16 Std, usw, aus?
Wer von euch hat einen höheren IQ und kann mir eine Proc oder Func schreiben?

Codix32

[jfheins]

Delphi-Quellcode:

function fraction(t: double) : double;
const
  HWZ : double = 12;
begin
  Result := Math.power(0.5, t/HWZ);
end;

Gibt dir den Bruchteil zurück, der nach der Zeit t übrigbleibt

d.h. du musst den Bruchteil noch mit der Ursprungsmenge multiplizieren, um die Momentanmenge zu erhalten

[Codix32]

Zitat von jfheins:

Delphi-Quellcode:

function fraction(t: double) : double;
const
  HWZ : double = 12;
begin
  Result := Math.power(0.5, Zeit/HWZ);
end;

Gibt dir den Bruchteil zurück, der nach der Zeit t übrigbleibt

d.h. du musst den Bruchteil noch mit der Ursprungsmenge multiplizieren, um die Momentanmenge zu erhalten

Danke, das ist super, jfHeins.

Aber was ist 'Math.power' für eine Funktion? Gibt es die auch in Delphi 2005?

[gammatester]

Zitat von jfheins:

Delphi-Quellcode:

function fraction(t: double) : double;
const
  HWZ : double = 12;
begin
  Result := Math.power(0.5, Zeit/HWZ);
end;

Gibt dir den Bruchteil zurück, der nach der Zeit t übrigbleibt ;)

d.h. du musst den Bruchteil noch mit der Ursprungsmenge multiplizieren, um die Momentanmenge zu erhalten ;)

Wenn Du innerhalb von power 't' statt 'Zeit' schreibst, wird's richtiger.

[Codix32]

Zitat von gammatester:

Zitat von jfheins:

Delphi-Quellcode:

function fraction(t: double) : double;
const
  HWZ : double = 12;
begin
  Result := Math.power(0.5, Zeit/HWZ);
end;

Gibt dir den Bruchteil zurück, der nach der Zeit t übrigbleibt

d.h. du musst den Bruchteil noch mit der Ursprungsmenge multiplizieren, um die Momentanmenge zu erhalten

Wenn Du innerhalb von power 't' statt 'Zeit' schreibst, wird's richtiger.

Danke, und die Func Power liegt in der Unit 'Math'.

Danke euch, gammatester und jfheins