(Subscript[h, 1])=Quantity[{11.7,12.0,13.6,14.3,13.4},"Centimeters"]

(Subscript[Δh, 1])=Quantity[0.14,"Centimeters"]

(Subscript[h, 3])=Quantity[{2.1,2.4,2.8,3.0,3.0},"Centimeters"]

(Subscript[Δh, 3])=Quantity[0.14,"Centimeters"]

((Subscript[h, 1])/((Subscript[h, 1])-(Subscript[h, 3])))

(1/((((Subscript[h, 1])-(Subscript[h, 3])))^2))(Sqrt[((((Subscript[h, 1])(Subscript[Δh, 3])))^2)+((((Subscript[h, 3])(Subscript[Δh, 1])))^2)])

Mean[%5]

StandardDeviation[%5]

Sqrt[.02^2+.03^2]

(1/50){46.28,0.05}

(1/51){50.23,0.05}

{(Subscript[V, Argon]),(Subscript[ΔV, Argon])}=Quantity[{5460,5},(("Centimeters")^3)]

{(Subscript[V, Luft]),(Subscript[ΔV, Luft])}=Quantity[{5370,5},(("Centimeters")^3)]

{(Subscript[m, dingsi,Argon]),(Subscript[Δm, dingsi,Argon])}=Quantity[{26.006,0.002},"Grams"]

{(Subscript[m, dingsi,Luft]),(Subscript[Δm, dingsi,Luft])}=Quantity[{26.116,0.002},"Grams"]

{(Subscript[r, dingsi,Argon]),(Subscript[Δr, dingsi,Argon])}=(1/2)Quantity[{15.97,0.05},"Millimeters"]

{(Subscript[r, dingsi,Luft]),(Subscript[Δr, dingsi,Luft])}=(1/2)Quantity[{15.95,0.05},"Millimeters"]

{(Subscript[T, Argon]),(Subscript[ΔT, Argon])}=Quantity[{0.926,0.001},"Seconds"]

{(Subscript[T, Luft]),(Subscript[ΔT, Luft])}=Quantity[{0.985,0.001},"Seconds"]

{p,Δp}=Quantity[{1000.7,0.1},"Hectopascals"]

((4(Subscript[m, dingsi,Luft])(Subscript[V, Luft]))/(((Subscript[r, dingsi,Luft])^4)((Subscript[T, Luft])^2)p))

(4/(((Subscript[r, dingsi,Luft])^4)((Subscript[T, Luft])^2)p))√(((((Subscript[Δm, dingsi,Luft])(Subscript[V, Luft])))^2)+((((Subscript[m, dingsi,Luft])(Subscript[ΔV, Luft])))^2)+(((-4(Subscript[m, dingsi,Luft])(Subscript[V, Luft])((Subscript[Δr, dingsi,Luft])/(Subscript[r, dingsi,Luft]))))^2)+(((-2(Subscript[m, dingsi,Luft])(Subscript[V, Luft])((Subscript[ΔT, Luft])/(Subscript[T, Luft]))))^2)+(((-4(Subscript[m, dingsi,Luft])(Subscript[V, Luft])((Δp)/p)))^2))

((4(Subscript[m, dingsi,Argon])(Subscript[V, Argon]))/(((Subscript[r, dingsi,Argon])^4)((Subscript[T, Argon])^2)p))

(4/(((Subscript[r, dingsi,Argon])^4)((Subscript[T, Argon])^2)p))√(((((Subscript[Δm, dingsi,Argon])(Subscript[V, Argon])))^2)+((((Subscript[m, dingsi,Argon])(Subscript[ΔV, Argon])))^2)+(((-4(Subscript[m, dingsi,Argon])(Subscript[V, Argon])((Subscript[Δr, dingsi,Argon])/(Subscript[r, dingsi,Argon]))))^2)+(((-2(Subscript[m, dingsi,Argon])(Subscript[V, Argon])((Subscript[ΔT, Argon])/(Subscript[T, Argon]))))^2)+(((-4(Subscript[m, dingsi,Argon])(Subscript[V, Argon])((Δp)/p)))^2))