Scientific Software and Services for Systems Biology and Medical Cybernetics 

 MAIN MENU

 Welcome

 Software

 Services

 Contact






 CONTACT

Dr. Johannes W. Dietrich

D-45527 Hattingen,
Nordrhein-Westfalen
F. R. Germany
j.w.dietrich@[Host]

For [Host] please substitute "medical-cybernetics.de"

FORMATIO RETICULARIS is a common label for software applications specially designed for cybernetic research in life sciences.

 




FindMysoft.com - Fast and free software download directory  

>_

Interconnect

procedure Calculate;
begin
 if TSH > 0 then
  begin
   GT := betaT * (DT + TSH) * (1 + k41 * TBG + k42 * TBPA) * FT4 / (alphaT * TSH);
   GTs := concat(StringOf(1e12 * GT : 5 : 2), ' pmol/s');
  end
 else
  GTs := gnotcalculatableString;
 if FT4 > 0 then
  begin
   GD := beta31 * (kM1 + FT4) * (1 + k30 * TBG) * FT3 / (alpha31 * FT4);
   GDs := concat(StringOf(1e9 * GD : 5 : 2), ' nmol/s');
  end
 else
 GDs := gnotcalculatableString;
end;


© 1999-2010 J. W. D.