Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Re: Unit conversion of a list of quantities

• To: mathgroup at smc.vnet.net
• Subject: [mg131980] Re: Unit conversion of a list of quantities
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Fri, 8 Nov 2013 16:24:45 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-outx@smc.vnet.net
• Delivered-to: mathgroup-newsendx@smc.vnet.net
• References: <20131107052837.122DC6A56@smc.vnet.net>

Convert your lists to quantities before using UnitConvert


Edep = {4.9491200000000017`*^-14 Joules, 1.8669264000000004`*^-14 Joules,
   6.223088000000001`*^-15 Joules};


mass = {0.043937500000000004` g, 0.06987` g, 0.02329` g};


dose = UnitConvert[Quantity[Edep/Joules, "Joules"]/
   Quantity[mass/g, "Gram"], "Joules/kg"]


{Quantity[
     1.1264000000000004*^-9,
     "Joules"/"Kilograms"],
   Quantity[
     2.6720000000000007*^-10,
     "Joules"/"Kilograms"],
   Quantity[2.672*^-10,
     "Joules"/"Kilograms"]}


This can be shortened


dose = UnitConvert[Quantity[Edep/Joules, "J"]/
   Quantity[mass/g, "g"], "J/kg"]


{Quantity[
     1.1264000000000004*^-9,
     "Joules"/"Kilograms"],
   Quantity[
     2.6720000000000007*^-10,
     "Joules"/"Kilograms"],
   Quantity[2.672*^-10,
     "Joules"/"Kilograms"]}


% == %%


True



Bob Hanlon




On Thu, Nov 7, 2013 at 12:28 AM, mariusz sapinski <
mariusz.sapinski at gmail.com> wrote:

> I have the following lists:
> Edep = {4.9491200000000017`*^-14 Joules,
>   1.8669264000000004`*^-14 Joules, 6.223088000000001`*^-15 Joules}
> mass = {0.043937500000000004` g, 0.06987` g, 0.02329` g}
>
> I want to calculate dose:
> dose = Edep/mass
>
> I get another list (of Quantities):
>
> {(1.1264*10^-12 Joules)/g, (2.672*10^-13 Joules)/g, (
>  2.672*10^-13 Joules)/g}
>
> OK, but I want to have Grays, ie. Joules/kg:
>
> UnitConvert[dose, "Joules/kg"]
>
> Unfortunately output is not what I want:
> {UnitConvert[(1.1264*10^-12 Joules)/g, "Joules/kg"],
>  UnitConvert[(2.672*10^-13 Joules)/g, "Joules/kg"],
>  UnitConvert[(2.672*10^-13 Joules)/g, "Joules/kg"]}
>
>
> How to get Mathematica to convert J/g to J/kg?
> Mathematica 9.0.1 on linux.
>
> Regards, Mariusz
>
>

• References:
  • Unit conversion of a list of quantities
    • From: mariusz sapinski <mariusz.sapinski@gmail.com>