Re: Output display by slide
- To: mathgroup at smc.vnet.net
- Subject: [mg131791] Re: Output display by slide
- From: Bob Hanlon <hanlonr357 at gmail.com>
- Date: Sun, 6 Oct 2013 03:47:14 -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
- References: <20131004022643.847D86A95@smc.vnet.net>
Manipulate[ Module[{ a = 3, c = 2, sgn = 1, SGN = 1, v1, v2, v3, x, y, 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}]; {XF, YF} = {x, y} /. 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}][[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, Red, FP}, GridLines -> Automatic, Frame -> True, PlotRange -> {{-1.1, 4.1}, Automatic}, PlotLabel -> Style["FERMAT PT", 16]]], {{b, 1.5}, -1, 4, 0.1, Appearance -> "Labeled"}] Bob Hanlon On Thu, Oct 3, 2013 at 10:26 PM, Narasimham <mathma18 at gmail.com> wrote: > 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"}] > >
- References:
- Re: Output display by slide
- From: Narasimham <mathma18@gmail.com>
- Re: Output display by slide