MathGroup Archive 2004

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

Search the Archive

Re: Re: Delete problem

  • To: mathgroup at smc.vnet.net
  • Subject: [mg52926] Re: [mg52886] Re: Delete problem
  • From: DrBob <drbob at bigfoot.com>
  • Date: Fri, 17 Dec 2004 05:18:40 -0500 (EST)
  • References: <cpp1b4$aqo$1@smc.vnet.net> <200412160840.DAA27234@smc.vnet.net>
  • Reply-to: drbob at bigfoot.com
  • Sender: owner-wri-mathgroup at wolfram.com

The following example has 0 and negative values only -- not "both positive and negative values" in the ninth position, so we shouldn't delete the sublist:

masterlist={{{"AEST-01-C-10",1,1,1,2,31,1,C,-2.1},{"AEST-01-C-10",1,1,1,4,
           31,1,C,-1.1},{"AEST-01-C-10",2,2,1,2,12,2,C,0.0}}};
CheckListQ[lst_]:=(Length[lst]\[Equal]3&&Length@Union@Sign@Last@Transpose@
         lst>1)
DeleteCases[masterlist,_?CheckListQ]

{}

Bobby

On Thu, 16 Dec 2004 03:40:19 -0500 (EST), Jens-Peer Kuska <kuska at informatik.uni-leipzig.de> wrote:

> Hi,
>
> you mean
>
> masterlist = {{{"AEST-01-C-10", 1, 1, 1, 2, 31, 1, C, -2.14},
> {"AEST-01-C-10",
> 1, 1, 1, 4, 31, 1, C, -1.1}, {"AEST-01-C-10", 2, 2, 1, 2, 12, 2, C,
> 1.79}}, {{"AEST-07-E-04", 2, 1, 2, 1, 10, 2, C,
> 1.334}, {"AEST-07-E-04", 2, 1, 3, 2, 1, 4, C, 1.997},
> {"AEST-07-E-04", 3, 2, 1, 1, 2, 1, C, -1.17}, {"AEST-07-E-04", 3, 4, 1,
> 1, 21, 2, C, 2.15}}}
>
>
>
> CheckListQ[lst_] := (Length[lst] == 3 &&
>
>  Length[Union[Sign[ Last[Transpose[lst]]]]] > 1)
>
> And for the selection of the list (beside many other posibilities)
>
> newlist=DeleteCases[masterlist, _?CheckListQ]
>
> Regards
>
>   Jens
>
> "Todd Allen" <genesplicer28 at yahoo.com> schrieb im Newsbeitrag
> news:cpp1b4$aqo$1 at smc.vnet.net...
>> Hi everyone,
>>
>>    I have situation where I am trying to quality
>> control check a "list of lists" for certain values
>> that should be deleted from the list if they are
>> found.  I have wrote a few lines of code that I
>> believe should work, but rather than simply deleting a
>> part of the list,  mathematica seems to delete the
>> entire list.  Below is the situation with a small test
>> dataset:
>>
>> masterlist={{{AEST-01-C-10,1,1,1,2,31,1,C,-2.14},{AEST-01-C-10,1,1,1,4,31,1,
>>
>> C,-1.1},{AEST-01-C-10,2,2,1,2,12,2,C,1.79}},{{AEST-07-E-04,2,1,2,1,10,2,
>>
>> C,1.334},{AEST-07-E-04,2,1,3,2,1,4,C,1.997},{AEST-07-E-04,3,2,1,1,2,1,
>>      C,-1.17},{AEST-07-E-04,3,4,1,1,21,2,C,2.15}}};
>>
>> index=1;ccheck=Sign[masterlist[[index,All,9]]];While[
>>  index<=Length[masterlist],
>>  If[Count[ccheck,_?Positive]>0 &&
>> Count[ccheck,_?Negative]>0 &&
>>
>> Count[ccheck,_Integer]==3,masterlist=Delete[masterlist,index],index++]];
>>
>>
>> I am trying to delete lists that have both positive
>> and negative values in the ninth position of common
>> elements and also have only 3 members of that group.
>> For example, I would expect mathematica to delete the
>> first group of masterlist above, because it has three
>> subgroups of AEST-01-C-10 and it has the values of
>> -2.14, -1.1and 1.79 in each of the three AEST-01-C-10
>> elements.  Sorry if I have badgered the proper use of
>> list/grouping terminology, but hopefully my general
>> idea is clear.
>>
>> Thank you for any thoughts you might have.
>>
>> Best regards,
>> Todd
>>
>>
>>
>>
>>
>> __________________________________
>> Do you Yahoo!?
>> Yahoo! Mail - Helps protect you from nasty viruses.
>> http://promotions.yahoo.com/new_mail
>>
>
>
>
>
>



-- 
DrBob at bigfoot.com
www.eclecticdreams.net


  • Prev by Date: Re: Re: shuffling (randomizing) a series
  • Next by Date: NonlinearRegress+NIntegrate
  • Previous by thread: Re: Delete problem
  • Next by thread: Two DatabaseLink issues