Inits

In[]:=
voltageDiv[v_,r_]:=v
10
10+r
5
In[]:=
fits=rwData=vwData={};​​Clear[appendData]​​appendData[voltages_,weights_:{153,500,1400,2400,3900}]:=Block[{resistances,fitR,r,v},​​Print[resistances=Table[r/.First[NSolve[voltageDiv[v,r],r]],{v,voltages}]];​​AppendTo[rwData,Thread[{resistances,weights}]];​​AppendTo[vwData,Thread[{voltages,weights}]];​​fitR=Power[,LinearModelFit[Map[Log,Thread[{resistances,weights}],{2}],r,r][Log[r]]];​​AppendTo[fits,fitR/.First[Solve[voltageDiv[v,r],r]]/.Power[x_,p_/;!IntegerQ[p]]1/Power[1/Together[x],p]];​​]

Append data

In[]:=
appendData[{1.3,2.65,3.9,4.39,4.59}]
{28.4615,8.86792,2.82051,1.38952,0.893246}
In[]:=
appendData[{1.74,2.83,3.85,4.25,4.609}]
{18.7356,7.66784,2.98701,1.76471,0.84834}
In[]:=
appendData[{1.55,2.94,4.03,4.41,4.74}]
{22.2581,7.0068,2.40695,1.33787,0.548523}
In[]:=
appendData[{1.8,2.6,4.08,4.5,4.65}]
{17.7778,9.23077,2.2549,1.11111,0.752688}
In[]:=
appendData[{1.84,2.3,3.99,4.17,4.50}]
{17.1739,11.7391,2.53133,1.99041,1.11111}
In[]:=
appendData[{1.58,2.46,3.69,4.2,4.69}]
{21.6456,10.3252,3.55014,1.90476,0.660981}

Summary

In[]:=
With[{is=Medium},Grid[{{ListLogLogPlot[rwData,PlotMarkersAutomatic,JoinedTrue,GridLinesAutomatic,FrameTrue,FrameLabel{"Resistance (kΩ)","Weight (g)"},ImageSizeis,PlotLegendsfits],Show[ListPlot[vwData,PlotMarkersAutomatic,GridLinesAutomatic,FrameTrue,FrameLabel{{None,"Weight (g)"},{"Voltage (V)",None}},FrameTicks{{None,All},{All,None}},ImageSizeis,PlotRangeAll],Plot[fits,{v,0.01,4.9},PlotRangeAll]]}},Spacings0]]//Rasterize
Out[]=
In[]:=
ParametricPlot[{Mean[fits],StandardDeviation[fits]},{v,0,4.5},GridLinesAutomatic,FrameTrue,FrameLabel{"Weight (g)","Weight SD (g)"},PlotRangeAll,AspectRatio1/GoldenRatio]
Out[]=