Re: how to get rid of extra parentheses ?
- To: mathgroup at smc.vnet.net
- Subject: [mg92526] Re: how to get rid of extra parentheses ?
- From: Peter Pein <petsie at dordos.net>
- Date: Thu, 2 Oct 2008 18:48:43 -0400 (EDT)
- References: <gc2167$qa4$1@smc.vnet.net>
Say you've got this result:
In[1]:= result = {{cb*S*(V/2)}};
Take the first element of the first sublist:
In[2]:= desiredResult = result[[1,1]]
Out[2]=
(cb*S*V)/2
If you get deeper nested results like:
In[3]:= r5 = Nest[List, cb*S*(V/2), 5]
Out[3]=
{{{{{(cb*S*V)/2}}}}}
then you can flatten this structure to a simple list and take the first part
In[4]:= First[Flatten[r5]]
Out[4]=
(cb*S*V)/2
which gives the same result as this step-by-step-method:
In[5]:= NestWhile[First, r5, ListQ]
Out[5]= (cb*S*V)/2
hth,
Peter
Obaid Rehman schrieb:
> Hi , there
>
>
>
> I am wondering if some one can help me in my issue.
>
>
>
> After some Algebraic manipulation I get the result but it is inside the
> two parenthesis e.g. {{........... }}. The problem is that Mathematica
> understand it as a list or matrix entry.
>
> If I need to use this result directly into the matrix manipulation it
> gives the error. Question is how to get rid these extra parentheses in
> the result that Mathematica add itself?
>
>
>
> e.g
>
>
>
> {{cb S V/ 2}}
>
>
>
> U can see there is no need of these extra parenthesis
>
> Obaid
>
>