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.     >_ 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.