Sinclair for Excel

Male
    =if(Bodyweight<173.961,10^(0.784780654*((LOG10(Bodyweight/173.961))^2)),1)

Female
    =if(Bodyweight<125.441,10^(1.056683941*((LOG10(Bodyweight/125.441))^2)),1)

Bodyweight = Cell Containing Bodyweight

Sinclair in VBScript

Function GetSinclair(totallift, liftersex, bw)

totallift = CDbl( totallift )
bw = CDbl( bw )
liftersex = CBool(liftersex)
B4 = 173.961
B5 = 125.441
B6 = 0.784780654
B7 = 1.056683941
dim Sin


liftersex = ConvertBit( liftersex)

if (liftersex = MALE_SEX ) then
    if ( bw > B4 ) then
        Sin = 1
    else
        Sin = 10^( B6*(LOG(bw/B4)/LOG_10)^2)
    end if
else
    if ( bw > B5) then
        Sin = 1
    else
        Sin = 10^( B7*(LOG(bw/B5)/LOG_10)^2 )
    end if
end if

GetSinclair = totallift * Sin

END Function

 

Siff in VBScript

Where Siff instead of using % of actual world records, uses % of what the absolute best lifter should be capable of.

Function GetSiff(totallift, sex, bw)

    sex = ConvertBit( sex )
    if ( sex = MALE_SEX ) then
        SiffFact = 512.245-(146230*(bw^-1.605))
    else
        SiffFact = 257.314-(943.063*EXP(-0.05142*bw))
    end if            
    GetSiff = (totallift/SiffFact)*100

END Function

Sinclair-Malone-Meltzer

     Sinclair-Malone-Meltzer = Sinclair * Age Correction Factor

Age	Age Correction Factor
30	1.000
31	1.014
32	1.028
33	1.043
34	1.058
35	1.072
36	1.087
37	1.100
38	1.113
39	1.125
40	1.136
41	1.147
42	1.158
43	1.170
44	1.183
45	1.195
46	1.207
47	1.217
48	1.226
49	1.234
50	1.243
51	1.255
52	1.271
53	1.293
54	1.319
55	1.350
56	1.384
57	1.417
58	1.449
59	1.480
60	1.509
61	1.536
62	1.561
63	1.584
64	1.608
65	1.636
66	1.671
67	1.719
68	1.782
69	1.856
70	1.933
71	2.002
72	2.053
73	2.087
74	2.113
75	2.142
76	2.184
77	2.251
78	2.358
79	2.500
80	2.669
81	2.849
82	3.018
83	3.166
84	3.288
85	3.386
86	3.458
87	3.508
88	3.540
89	3.559
90	3.571