Problem 1.


 sum = 114+120+92+98+92+109 = 625,  average here taken over 3 days 

average = (114+120+92+98+92+109)/6=104.166

average 104.166 converts to average A1c of 5.3  on the web tool 

( 104.166 +46.7 )/28.7=5.25665505226, hand calculations

Problem 2

sum = 118+114+101+100+103+106 =642 ,  average here taken over 3 days 

average= (118+114+101+100+103+106)/6=107

average 107 converts to average A1c of 5.4  on the web tool 

Formula for average A1C = ( eAG +46.7 )/28.7 = subbing  ( 107 +46.7 )/28.7  =5.37860627178


( 107.666 +46.7 )/28.7=5.37860627178 hand calculations

Problem 3

sum = 99+102+108+120+109+108= 646 , average here taken over 3 days

average= (99+102+108+120+109+108)/6=  107.666

average 107.666 converts to average A1c of 5.4 on the web tool

Formula for average A1C = ( eAG +46.7 )/28.7 = subbing  ( 107.666 +46.7 )/28.7  =5.3554   hand calculations

Problem 4

sample = average  sum = 96 + 90 + 87 + 101 + 100 + 88 = 562

562/6 =  93.6666 average glucose level, 93.7 rounded

conversion on net page , 93.7 glucose average converts to 4.9 HbA1C, average, using net tool

Formula for average A1C = ( eAG +46.7 )/28.7 

= subbing  ( 93.7 +46.7 )/28.7  =5.3554   hand calculations

formula = ( 93.7 +46.7 )/28.7= 4.89198606272,  hand calculations

Problem 5



3 Hamburger meals  over a day, testing Glucose Meter response




breakfast starts at BG 93, after hour BG is 105, BG raises 12 points
lunch starts at BG 100, after hour BG is 99, BG dropped one point 

supper starts at BG 84, after hour BG is 88, BG raises  4 points

sum = 93+105+100+99+84+88= 569

average BG =(93+105+100+99+84+88)/6= 94.8333333
average A1c = ( 94.8333 +46.7 )/28.7 = 4.93147 , hand calculations



BG ideal for adult male 83, calculating = (83 +46.7 )/28.7=   4.51916 average A1C 

Problem 6   entered 1/2/2024

Sum of 5 readings over a day.
Search engine math >>>>[88+98+91+92+91+ 93]
= 462 correct
sum over a day,
----
Search engine math >>>>
( 88+98+91+92+91+ 93 ) / 5
= 92.4 correct sum
---
Search engine math >>>> ( (88+98+91+92+91+ 93) / 5.) + 46.7) / 28.7
----
5.48083624 correct
----
Note. This formula uses average BG readings from a home glucometer, not as accurate as lab blood test. Testcase samples over one day only, but over three days would be more accurate, in opinion,  Results may be useful as a check on home glucometer results.
----
Formula for average A1C = ( eAG +46.7 )/28.7 
----
formula = subbing     hand calculations
----

----
Note. Additional significant figures are used to check the TCL calculator, not to infer the accuracy of inputs and product reports. 
Meaning here, round to nearest tenth 0.1.  Normal metabolism or BG ideal  for adult male is estimated to be BG of 83 and A1c of 4.5 , reference from  Dr. Bernstein.
----

----
Sample problem 7     entered 01/02/2024
----
Search engine math >>>> ( (81+77.4+73.8 +81+73.8)) / 5.) + 46.7) / 28.7

4.32404181 correct
----

----
Note. Additional significant figures are used to check the TCL calculator, not to infer the accuracy of inputs and product reports. 
Meaning here, round to nearest tenth 0.1.  Normal metabolism or BG ideal  for adult male is estimated to be BG of 83 and A1c of 4.5 , reference from  Dr. Bernstein.
----

        ;# pretty print from autoindent and ased editor
        ;# Convert HbA1c to Average Blood Glucose mg/dl V2
        ;# Console program example demo
        ;# written on Windows 10 on  TCL
        ;# working under TCL version 8.6
        ;# gold on TCL Club , 20aug2020
        ;# Each HbA1c reading usually from
        ;# limits of 4.0 to 11
        ;# has an equivalent average blood glucose
        ;# over a 3 month period.
        ;# formula from Diabetes Care, 2012.
        ;# Roughly 5 HbA1c converts to 100
        ;# mg/dl abbrev. for milligrams per deciliter
        ;# mmol/L abbrev. for milligrams per Liter
        package require Tk
        package require math::numtheory
        package require math::constants
        package require math::trig
        package require math
        namespace path {::tcl::mathop ::tcl::mathfunc math::numtheory math::trig math::constants }
        set tclprecision 17
        console show
        ;# following dresses up console output to easy eye
        console eval {.console config -bg palegreen}
        console eval {.console config -font {fixed 20 bold}}
        console eval {wm geometry . 40x20}
        set tclprecision 17
        ;# hbA1c_convert_to_average_blood_glucose mg/dl  HbA1c
        proc a1c hbA1c {  expr { 35.6*$hbA1c -77.3} }
        ;# convert mg/dl to mmol/L average 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 } }
        ;# proc precisionx used to round off floating point numbers
        proc precisionx {precision float}  {
            ;#  tcl:wiki:Floating-point formatting, <AM>
            ;# select numbers only, not used on every number.
            set x [ expr {round( 10 ** $precision * $float) / (10.0 ** $precision)} ]
            ;#  rounded or clipped to nearest 5ird significant figure
            set x [ format "%#.5g" $x ]
            return $x
        }
        proc table_format_out  n {
            set sum 0
            ;# initial hbA1c level
            set count 4.0
            puts "%| table|  | printed in|TCL format |% "
            puts "%| HbA1c units | mg/dl units |conv. mmol/L units  |comment, if any|% "
            ;# adapted proc from <RS>
            ;# printout in TCL WIKI format table
            for { set i 1 } { $i <= $n } { incr i } {
                set count [+ $count .1]
                set mgdl5 [ precisionx 3 [ a1c $count ]]
                set mmoll  [ precisionx 3 [mgdl_to_mmoll [ a1c $count ]]]
                puts "&| [ precisionx 3  $count ] | $mgdl5  | $mmoll | |&"
                incr sum $i
            }
            return $sum
        }
        proc comma_delimit_format n {
            set sum 0
            ;# initial hbA1c level
            set count 4.0
            puts "table, ,  printed in,  TCL format  "
            puts "HbA1c units , mg/dl units , conv. mmol/L units, comment, if any "
            ;# adapted proc from <RS>
            ;# printout in TCL  comma delimited format
            for { set i 1 } { $i <= $n } { incr i } {
                set count [+ $count .1]
                set mgdl5 [ precisionx 3 [ a1c $count ]]
                set mmoll  [ precisionx 3 [mgdl_to_mmoll [ a1c $count ]]]
                puts "[ precisionx 3  $count ] , $mgdl5, $mmoll ,  ,"
                incr sum $i
            }
            return $sum
        }
        puts "  Console wrapper for solution proc"
        puts "  ***************************"
        puts "  ***************************"   
        table_format_out 90
        comma_delimit_format 90
        ;# end of working deck
        ;# add cosmetics below to bottom of file 
        console eval {.console config -bg palegreen}
        console eval {.console config -font {fixed 20 bold}}
        console eval {wm geometry . 40x20}
        console eval {wm title . " Report for Homa_IR_2  "}
        console eval {. configure -background orange -highlightcolor brown -relief raised -border 30}       

    ;# 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