Re: Easiest Mathematica algorhitm needed
- To: mathgroup at smc.vnet.net
- Subject: [mg92810] Re: [mg92793] Easiest Mathematica algorhitm needed
- From: "Yuri Kandrashkin" <spinalgebra at gmail.com>
- Date: Tue, 14 Oct 2008 04:55:17 -0400 (EDT)
- References: <gcq09i$c30$1@smc.vnet.net> <200810120835.EAA08892@smc.vnet.net>
Hi,
You can use the function ReplaceAll:
m=Table[Sqrt[n!],{n,1,10}]
m /. {{a_. Power[b_,1/2]:>b},{Power[_,1/2]->1}}
> Dear Mathematica Gurus,
> Who know which Matrhematica function uses to separate square free part
> of number.
> e.g.
> In[1]: Table[Sqrt[n!], {n, 1, 10}]
> Out[1]: {1, Sqrt[2], Sqrt[6], 2 Sqrt[6], 2 Sqrt[30], 12 Sqrt[5], 12
> Sqrt[35],
> 24 Sqrt[70], 72 Sqrt[70], 720 Sqrt[7]}
> What to do to take squre-free parts:
> {1, 2, 6, 6, 30, 5, 35, 70, 70, 7}
> or square parts
> {1, 1, 1, 2, 2, 12, 12, 24, 72, 720}
> Best wishes
> Artur
>
>
--
Sincerely,
Yuri Kandrashkin, PhD
http://spinalgebra.com - Mathematica based applications:
- Magnetic Resonance with SpinAlgebra
- Work with systems of Units
- Interactive tools: ViewPoint selector, Options explorer, etc
- References:
- Re: Executing external notebook
- From: Peter Pein <petsie@dordos.net>
- Re: Executing external notebook