RE: List operation, LabeledListPlot, Goto Statement
- To: mathgroup at smc.vnet.net
- Subject: [mg36744] RE: [mg36739] List operation, LabeledListPlot, Goto Statement
- From: "DrBob" <drbob at bigfoot.com>
- Date: Sun, 22 Sep 2002 04:32:23 -0400 (EDT)
- Reply-to: <drbob at bigfoot.com>
- Sender: owner-wri-mathgroup at wolfram.com
Here's an answer to Question 1:
individual1 = RandomPermutation[12]
individual2 = RandomPermutation[12]
cutPosition = 3;
cutLength = 4;
cutSequence = Take[Drop[individual1, cutPosition], cutLength]
sonOne = Complement[individual2, cutSequence]
sonOne = RotateLeft[sonOne, 1]
sonOne = Join[Take[sonOne, cutLength - 1], cutSequence, Drop[sonOne,
cutLength - 1]]
Bobby Treat
-----Original Message-----
From: Alexandre Costa [mailto:costa at fem.unicamp.br]
To: mathgroup at smc.vnet.net
Subject: [mg36744] [mg36739] List operation, LabeledListPlot, Goto Statement
Dear Group,
It is a pleasure write to you again. I have three questions to ask.
Thanks for any enlightenment on these subjects.
Alexandre Costa
Question One: The below code is working fine but I think there are more
elegant ways of doing so.
Any suggestions are VERY WELCOME.
<< DiscreteMath`Permutations`
individual1 = RandomPermutation[12]
individual2 = RandomPermutation[12]
CutPosition = 3 ;
CutLength = 4 ;
CutSequence = Take[Drop[individual1, CutPosition], CutLength]
SonOne = individual2;
Do[
If[MemberQ[SonOne, CutSequence[[i]]],
SonOne = Delete[SonOne, Position[SonOne, CutSequence[[i]]]]],
{i, 1,
CutLength}];
SonOne
SonOne = RotateLeft[SonOne, 1]
Do[SonOne = Insert[SonOne, Reverse[CutSequence][[i]], CutPosition +
1], {i, 1,
CutLength}]
SonOne
Question Two:
How can I change points properties (such as Size and Color) for the plot
below? The PlotStyle Option does not work for this LabeledListPlot
<< Graphics`Graphics`
listcities = {{1, 5}, {4, 6}, {7, 5}, {5, 4}, {9, 4}, {2, 3}, {4, 2},
{6, 2}, {1, 1}, {5, 1}, {3, 0}, {9, 0}};
LabeledListPlot[listcities, Axes -> None, Frame -> True,
GridLines -> Automatic, PlotRange -> All,
DisplayFunction -> $DisplayFunction]
Question Three: Why the Goto statement below is not working?
q = 2;
Label[start];
q = 3;
Label[begin];
Print[q];
q += 1; If[q < 6, Goto[begin], Goto[start]]