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.
>
> 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"}]
>
>

```

• Prev by Date: Re: NonlinearModelFit properties are (suddenly) Missing[]
• Next by Date: plotting complex functions in (x,y,t) space
• Previous by thread: Re: Output display by slide
• Next by thread: Re: How to semi-ExpToTrig