#  pretty print from autoindent and ased editor
 

    #  conversion unit formulas in one line TCL procs
    #  HOMA-IR standing for Homeostatic Model Assessment of Insulin Resistance 
    #  HOMA_IR = expr { $insulin * $glucose * $scale_factor}
    #  fasting blood insulin in units  uIU/mL
    #  fasting blood glucose in units mg/dL
    proc HOMA_IR2 { insulin  glucose }  {
            set scale_factor [ expr { 1. / 405. } ]
            return [expr { $insulin * $glucose * $scale_factor}]}
    #  HOMA-IR calculations here requires U.S. standard units.
    #  European SI units as best understood. 
    #  To convert component terms of  HOMA-IR ( $insulin & $glucose)
    #  from international S.I. units:
    #  Insulin: pmol/L to uIU/mL, divide by (÷) 6
    #  Glucose: mmol/L to mg/dL, multiply by (x) 18
    #  hbA1c_convert_to_average_blood_glucose mg/dl  HbA1c
    #  HbA1c test is a simple blood test that measures your 
    #  average blood sugar levels over the past 3 months.
    #  As a peg point, 5 HbA1c units converts to 100 mg/dl,
    #  mg/dl is abbreviation for milligrams per deciliter.
    proc a1c hbA1c {  expr { 35.6*$hbA1c -77.3} }
    #  convert mg/dl to mmol/L average blood glucose
    #   European SI units conversion on blood glucose
    #  some papers round off 18.016 to mgdl/18.
    proc mgdl_to_mmoll mgdl {  expr { $mgdl/18.0 } }
    #  convert  mmol/L to mg/dl average blood glucose
    proc mmoll_to_mgdl mmoll {  expr { $mmoll*18.0 } }
    #  formula QUICKI_index insulin resistance = 1/(log(insulin) + log(glucose)), decimal logs 
    proc QUICKI_INDEX_IR { insulin  glucose } { return [ expr { 1./(log10($insulin) + log10($glucose))} ] }
    #  Usage set answer [  QUICKI_INDEX_IR 4. 100. ] #  eval 0.38