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>
- Re: Output display by slide