Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1998

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

Search the Archive

Re: Help !!!!!!!

  • To: mathgroup at smc.vnet.net
  • Subject: [mg12911] Re: [mg12778] Help !!!!!!!
  • From: "Jrgen Tischer" <jtischer at col2.telecom.com.co>
  • Date: Wed, 24 Jun 1998 03:44:33 -0400
  • Sender: owner-wri-mathgroup at wolfram.com

Hi, Henrique Gloria etc,

In[1]:=
ru[{a_,b_}]:={{{x_,a}}->{{x,a},{{a,b}}},{{x_,a},l__}->{{x,a},l,{{a,b}}}
}
In[2]:=
fu[li_List,{a_,b_}]:=If[FreeQ[li,{_,a}],{li,{{a,b}}},li/.ru[{a,b}]]
In[3]:= Fold[fu,{First[A]},Rest[A]]

Jrgen

-----Original Message-----
From: Gloria <terravella at redestb.es> To: mathgroup at smc.vnet.net
Subject: [mg12911] [mg12778] Help !!!!!!!


>
>                Hi:
>
>     How  Can  I   convert  the  list A   to  list  B ??
>
>
>  A=
>{{1,2},{1,3},{2,4},{2,5},{4,6},{4,7},{5,8},{5,9},{6,10},{6,11},{7,12},{7
,13
}
>,{10,14},{10,15},{10,16},{11,17},{11,18},{11,19},{12,20},{12,21}}
>
>
> B=
>{{{1,2},{{2,4},{{4,6},{{6,10},{{10,14}},{{10,15}},{{10,16}}},{{6,11},{{1
1,1
7
>}},{{11,18}},{{11,19}}}},{{4,7},{{7,12},{{12,20}},{{12,21}}},{{7,13}}}},
{{2
,
>5},{{5,8}},{{5,9}}}},{{1,3}}}
>
>
>                Thank  you for your  help.
>
>              Henrique cao
>
>  carraldeprada at redestb.es
>
>
>



  • Prev by Date: Visual c++ mathematics
  • Next by Date: Q: ShowLegend
  • Previous by thread: Help !!!!!!!
  • Next by thread: plotting singular functions