Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Output display by slide

• To: mathgroup at smc.vnet.net
• Subject: [mg131786] Re: Output display by slide
• From: Narasimham <mathma18 at gmail.com>
• Date: Thu, 3 Oct 2013 22:26:43 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-outx@smc.vnet.net
• Delivered-to: mathgroup-newsendx@smc.vnet.net

Thanks Dr.Boulbitch, Dr.Hintze and Dr.Bob Hanlon (response from this faster unmoderated site).

The attempt here is to see a changing Fermat point with extended domain of b.

I asked you about changing Center of Gravity in the way you suggested with a view to later on put (XF,YF) from output of NSolve, NDSolve,etc.into the Graphics.I am unable to extract it... although can be successfully done without the Manipulate nesting for a single (XF,YF) point.

Please help in suggesting how to incorporate this seemingly simple point pick up. TIA, shall be patient for a couple of days on this moderated site, and with

Regards
Narasimham


Manipulate[Module[{a=3,c=2,sgn=1,SGN=1,v1,v2,v3,x1,y1,x2,y2,XF,YF,FP,Triang},x1=a;y1=0.;x2=b;y2=c;
v1=Circle[{0,0},{.03,.03}];
v2=Circle[{a,0},{.03,.03}];
v3=Circle[{b,c},{.03,.03}];
NSolve[{sgn x/Sqrt[x^2+y^2]==(x1-x)/Sqrt[(x1-x)^2+(y1-y)^2]+SGN (x2-x)/Sqrt[(x2-x)^2+(y2-y)^2],sgn y/Sqrt[x^2+y^2]==(y1-y)/Sqrt[(x1-x)^2+(y1-y)^2]+SGN (y2-y)/Sqrt[(x2-x)^2+(y2-y)^2]},{x,y}];
XF=x/.%[[1]];YF=y/.%%[[1]];
FP=Disk[{XF,YF},{.05,.05}];
Triang=Line[{{0,0},{a,0},{b,c},{0,0},{XF,YF},{a,0},{XF,YF},{b,c},{XF,YF},{0,0}}];
Graphics[{v1,v2,v3,Triang,FP},GridLines->Automatic,Frame->True,PlotRange->{{-4.1,4.1},Automatic},PlotLabel->Style["FERMAT PT",16]]],{{b,2.5},-4,4,0.1,Appearance->"Labeled"}]

• Follow-Ups:
  • Re: Output display by slide
    • From: Bob Hanlon <hanlonr357@gmail.com>