Advanced Search

cstjohn

0 Reputation

2 Badges

12 years, 254 days
Contact cstjohn

MaplePrimes Activity


These are replies submitted by cstjohn

Yep, thank you I figured that was the pr...

cstjohn 0
October 25 2012
0 0

Yep, thank you I figured that was the problem and I fixed it and everything runs smooth now.  The code now is

r1 := 1/u
Top := [r*cos(v), r*sin(v), 2*sqrt(s*(r-s))];

Bottom := [r*cos(v), r*sin(v), -2*sqrt(s*(r-s))];

figure(22) := plot3d([Top, Bottom], r = s .. 100, v = 0 .. 2*Pi) 

 

The u is just so I don't have make my r look messy and it deals with schwarchild geodesics and I wanted to keep things as close to textbook definitions as possible. 

 

I am then animating and using that r1 to define where a point on that figure will appear.

Yep, thank you I figured that was the pr...

cstjohn 0
October 25 2012

Yep, thank you I figured that was the problem and I fixed it and everything runs smooth now.  The code now is

r1 := 1/u
Top := [r*cos(v), r*sin(v), 2*sqrt(s*(r-s))];

Bottom := [r*cos(v), r*sin(v), -2*sqrt(s*(r-s))];

figure(22) := plot3d([Top, Bottom], r = s .. 100, v = 0 .. 2*Pi) 

 

The u is just so I don't have make my r look messy and it deals with schwarchild geodesics and I wanted to keep things as close to textbook definitions as possible. 

 

I am then animating and using that r1 to define where a point on that figure will appear.

Page 1 of 1