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

MathGroup Archive 2007

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

Search the Archive

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]]]}]}];

> 

>             }]

>         }]

>     }]

> 

> 




  • Prev by Date: Re: ComplexExpand in Mathematica 5.2 and 6
  • Next by Date: My problem when solving a system of equations
  • Previous by thread: What is the problem?
  • Next by thread: Options for a very large computation