Search All of the Math Forum:

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

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

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

 Messages: [ Previous | Next ]
 Narasimham Posts: 359 Registered: 9/16/06
Output display by slide
Posted: Oct 1, 2013 6:21 AM

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

Date Subject Author
10/1/13 Narasimham
10/2/13 Alexei Boulbitch
10/2/13 Dr. Wolfgang Hintze