Re: einheiten umrechnung

[Udo und Susanne Krause <su.krause@XXXXXXX.ch>]

Hallo Robert,

das kann man mit nowakSIUnderived[] ruppig und direkt erledigen:

In[1]:=<<Miscellaneous`PhysicalConstants`
In[2]:=<<Miscellaneous`Units`

In[96]:= Remove[nowakSIUnderived]
nowakSIUnderived[s_Symbol, lowerD_:(-2), upperD_:2, stepW_:1] :=
Module[{t},
 t = Flatten[Table[Kilogram^o1 Meter^o2 Second^o3 Ampere^o4, {o1, 
lowerD, upperD, stepW},
   {o2, lowerD, upperD, stepW}, {o3, lowerD, upperD, stepW}, {o4, 
lowerD, upperD, stepW}]];
 If[Off[Convert::incomp];
   t = Select[Convert[s, #]& /@ t, (# =!= s)&];
   On[Convert::incomp];
    Length[t] > 0, First[t], s
 ]
] /; lowerD < upperD && NumberQ[lowerD] && NumberQ[upperD] && NumberQ[stepW]

In[100]:= (nowakSIUnderived[#1, -3, 2] & ) /@ {Coulomb, Tesla, Weber, 
Volt, Watt, Joule, Newton, FootCandle}

Out[100]=
{Ampere*Second, Kilogram/(Ampere*Second^2), 
(Kilogram*Meter^2)/(Ampere*Second^2),
 (Kilogram*Meter^2)/(Ampere*Second^3), (Kilogram*Meter^2)/Second^3, 
(Kilogram*Meter^2)/Second^2,
 (Kilogram*Meter)/Second^2, FootCandle}

Mit den besten Grüssen
Udo.

Uta & Peter Klamser wrote:

> Hallo,
>
>
> *Ted Ersek* 
> <http://library.wolfram.com/infocenter/search/?search_results=1;search_person_id=2570> 
> hat unter
>
> http://library.wolfram.com/infocenter/MathSource/4283/
>
> so was ähnliches veröffentlicht.
>
> Gute Infos findet man ferner unter
>
> http://www.verbeia.com/mathematica/
>
> Gruß
>
> Peter Klamser
>
> Nowak Robert schrieb:
>
> > hallo leute,
> >
> > ich kenne:
> > << Miscellaneous`PhysicalConstants`
> > << Miscellaneous`Units`
> >
> > was ich aber suche ist ein instrument welches mir abgeleitetet 
> > einheiten auf die grundeinheiten (kg, m, s, A) umrechnet.
> > also so etwas ähnliches wie die folgende ersetzungsregel liste:
> >
> > {Coulomb -> Ampere*Second, Tesla -> Weber/Meter^2, Weber -> 
> > Second*Volt, Volt -> Watt/Ampere, Watt -> Joule/Second,
> > Joule -> Meter*Newton, Newton -> (Kilogram*Meter)/Second^2}
> >
> > gibts so etwas nicht vollständig und fertig ?
> >
> > grüsse robert
> >
> > -------------------------------
> > Robert NOWAK
> > IMS Nanofabrication GmbH
> > Schreygasse 3
> > A-1020 Vienna, Austria / Europe
> > phone: +43-1-2144894-32
> > fax: +43-1-2144894-99
> > e-mail: robert.nowak@XXXXXXX.at
> > web: www.ims.co.at
> >
> >
> >
> >