MathGroup Archive 2013

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

Search the Archive

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




  • 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