MathGroup Archive 2001

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

Search the Archive

Re: webMathematica


Hi, I am a mathematica newbie with urgent problems with how to create a branching tree. i have a template for it.
however, can someone show me a more efficient or understandable version of how to make a branching tree.

(2) i also like to inquire if, i like to modify my algorithm, such that i can bend my last branch in a differnt
angle that is a user input.

Thank you for your guidance,

regards, a desperate mathematica newbie


rotate2d[a_, tht_, b_]:=b + {{Cos[tht],-Sin[tht]},
{Sin[tht],Cos[tht]}}.a;
rotation=0.3;
shrinkage=0.8;


Clear[twinline];
twinline[Line[{start_, end_}]]:=
{Line[{end, end + shrinkage rotate2d[end-start, rotation,{0,0}]}],
Line[{end, end + shrinkage rotate2d[end -start, -rotation,{0,0}]}] }

Show[Graphics[{ Line[{{0,0},{0,1}}],twinline[Line[{{0.,0.},{0.,1.}}]] }],
AspectRatio->Automatic]

Clear[doTwins];
doTwins[lines_]:=Flatten[Map[twinline,lines]]

Show[Graphics[NestList[doTwins,{Line[{{0,-1},{3,-2}}]},4]],
AspectRatio->Automatic, PlotRange->All]




  • Prev by Date: Re: Spherical Harmonics
  • Next by Date: Re: Passing functions to C-code
  • Previous by thread: Re: webMathematica
  • Next by thread: Complex Number Simultaneous Equation 2 Unknowns