Re: What is the problem?
- To: mathgroup at smc.vnet.net
- Subject: [mg78044] Re: What is the problem?
- From: dh <dh at metrohm.ch>
- Date: Thu, 21 Jun 2007 06:03:34 -0400 (EDT)
- References: <f505qk$rbr$1@smc.vnet.net>
Hi,
your codes is garbeled. I think there were Unicode characters that have
been translated to things like "=A1=DC". Try converting your expression
to InputForm.
hope this helps, Daniel
blueoceanally at gmail.com wrote:
> I wanna generate a tree,but what is the problem?
>
> << Graphics`Arrow`;
> SetOptions[Arrow, HeadScaling -> Relative, HeadCenter ->
> 1, HeadWidth -> 0.5, HeadLength -> 0.5];
>
> trans[this_] := Which[this == 1, n = {2, 3}, this == 2, n = {=
> 3, 4},
> this ==
> 3, n = {4, 0}, this == 4, n = {1, 0}];
>
> xx = Table[0, {i, 1, 10}, {j, 1, 30}];(*=B4=E6=BA=E1=D7=F8=B1=EA*)
> tempx = Table[0, {i, 1, 30}, {j, 1, 2}];(*=B4=E6=D6=D0=BC=E4=D6=B5*)
> tempn = Table[0, {i, 1, 30}, {j, 1, 2}];(*=B4=E6=D6=D0=BC=E4=D6=B5*)
> n = Table[0, {i, 1, 10}, {j, 1, 30}];
>
> n[[1, 1]] = 1;
>
> For[i = 1, i =A1=DC 9, i = i + 1,
> {
> For[j = 1, j =A1=DC 30, j = j + 1,
> {
> If[n[[i, j]] =A1=D9 0, {
> Which[
> n[[i, j]] == 1,
> tempn[[j]] = trans[1];
> tempx[[j, 1]] = xx[[i, j]] - 1/(2i); tempx[[j, 2]] =
> xx[[i, j]] + 1/(2i); Show[Graphics[{Hue[0.1], Arrow[{xx[[i, j]],
> i}, {tempx[[j, 1]], i + 1}],
> Hue[
> 0=2E8], Arrow[{tempx[[j, 2]], i}, {tempx[[j, 2]], i + 1}]}],
> AspectRatio -> Automatic],(*=BB=AD=BC=FD=CD=B7*)
>
> n[[i, j]] == 2,
> tempn[[j]] = trans[2];
> tempx[[j, 1]] = xx[[i,
> j]] - 1/(2i); tempx[[j, 2]] = xx[[i,
> j]] + 1/(2i); Show[Graphics[{Hue[0.6],
> Arrow[{xx[[i, j]], i}, {tempx[[j, 1]], i + 1}],
>
>
> Hue[1],
> Arrow[{tempx[[j, 2]],
> i}, {tempx[[j, 2]], i + 1}]}], AspectRatio ->
> Automatic],
>
> n[[i, j]] == 3,
> tempn[[j]] = trans[3];
> tempx[[j, 1]] = xx[[i, j]]; Show[Graphics[{
> Hue[0.9], Arrow[{xx[[i, j]], i}, {tempx[[j,
> 1]],
> i + 1}]}], AspectRatio -> Automatic],
>
> n[[i, j]] == 4,
> tempn[[j]] = trans[4];
> tempx[[j, 1]] = xx[[i, j]]; Show[Graphics[{
> Hue[0.2], Arrow[{xx[[i, j]], i}, {tempx[[j, 1]], i +
> 1}]}],
> AspectRatio -> Automatic]
> ];
>
> For[x = 1, x =A1=DC 30, x = x + 1, Print[n[[2, 1]]]; {For[y=
> =
> 1, y
> =A1=DC 2, y = y + 1, {If[tempx[[x,
> y]] =A1=D9 0, xx[[i + 1, x]] = tempx[[x, y]]]}]}];
>
> For[x = 1, x =A1=DC 30, x = x + 1,
> {
> For[y = 1, y =A1=DC 2, y = y + 1, {If[tempn [[x, y]] =A1=
> =D9 0,
> n[[i +
> 1, x]] = tempn[[x, y]]]}]}];
>
> }]
> }]
> }]
>
>