Drexel dragonThe Math ForumDonate to the Math Forum



Search All of the Math Forum:

Views expressed in these public forums are not endorsed by Drexel University or The Math Forum.


Math Forum » Discussions » Software » comp.soft-sys.math.mathematica

Topic: Output display by slide
Replies: 2   Last Post: Oct 2, 2013 5:53 AM

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View   Messages: [ Previous | Next ]
Narasimham

Posts: 350
Registered: 9/16/06
Output display by slide
Posted: Oct 1, 2013 6:21 AM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

a=3; b=2.5; c=2 ;
(* Given triangle vertices are {(0,0),(x1,y1),(x2,y2)} = { (0,0),(a,0),(b,c) } to find CG *)
v1=Graphics[Circle[{0,0},{.03,.03}]];v2=Graphics[Circle[{a,0},{.03,.03}]];v3=Graphics[Circle[{b,c},{.03,.03}]];
x1=a;y1=0;x2=b;y2=c; {XF,YF}={x1+x2, y1+y2}/3;
CG=Graphics[Disk[{XF,YF},{.05,.05} ]];
Triang=Graphics[Line[{{0,0},{a,0},{b,c},{0,0},{XF,YF},{a,0},{XF,YF},{b,c},{XF,YF},{0,0}}] ] ;
bb=Show[{v1,v2,v3,Triang,CG},GridLines->Automatic,Axes-> True ,AspectRatio-> Automatic, PlotLabel-> "Centre of Gravity"]

How to vary b value in a SlideView or Manipulate, say between 0 to 4, (along horizontal line y =2) to display Centre of Gravity like it is in GSP or in Java mode ?

TIA,
Narasimham




Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© Drexel University 1994-2014. All Rights Reserved.
The Math Forum is a research and educational enterprise of the Drexel University School of Education.