Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*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 2001

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

Search the Archive

Re: webMathematica

  • To: mathgroup at smc.vnet.net
  • Subject: [mg31598] Re: webMathematica
  • From: Au Han Bin <auhb3 at cz3.nus.edu.sg>
  • Date: Thu, 15 Nov 2001 05:52:32 -0500 (EST)
  • References: <9qjjnd$j8a$1@smc.vnet.net> <9qrcm7$bvn$1@smc.vnet.net> <9sdkp4$5vh$1@smc.vnet.net> <9sgedl$93e$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

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