liuyaodong

56 Reputation

2 Badges

17 years, 52 days

MaplePrimes Activity


These are questions asked by liuyaodong

restart;
with( plots ):
P := Array(1..51);
P1 := Array(1..51);
P2 := Array(1..51);
P3 := Array(1..51);
R := proc (s) options operator, arrow; 0.6e-1*(arctan(10*s/1.3-3.0)/Pi+1/2) end proc;
y := proc (s) options operator, arrow; evalf((-1)*0.6e-1*(arctan(10*s/1.3-3.0)/Pi+1/2)*cos(6*Pi*s/1.3)) end proc;
z := proc (s) options operator, arrow; evalf(0.6e-1*(arctan(10*s/1.3-3.0)/Pi+1/2)*sin(6*Pi*s/1.3)) end proc;
f := unapply( simplify(sqrt(1-((6*Pi/(2.6)*0.6e-1)*R(s))^2-(D(R))(s)^2)), s ):
for i from 1 to 51 do

I have 4 matrixes such as  P, P1, P2,P3

what can i do paint four 3D-lines  in one plot with points in the 4 matrixs?

 P := Matrix(51, 3);

R := proc (s) options operator, arrow; 0.6e-1*(arctan(10*s/1.3-3.0)/Pi+1/2) end proc;

y := proc (s) options operator, arrow; evalf((-1)*0.6e-1*(arctan(10*s/1.3-3.0)/Pi+1/2)*cos(6*Pi*s/1.3)) end proc;

z := proc (s) options operator, arrow; evalf(0.6e-1*(arctan(10*s/1.3-3.0)/Pi+1/2)*sin(6*Pi*s/1.3)) end proc

for i to 51 do

P := Matrix(51, 3): > R := 0.6e-1*(arctan(10*s/1.3+(-10)*.3)/Pi+1/2) ; y := evalf((-1)*0.6e-1*(arctan(10*s/1.3+(-10)*.3)/Pi+1/2)*cos(6*Pi*s/1.3)); > z := evalf(0.6e-1*(arctan(10*s/1.3+(-10)*.3)/Pi+1/2)*sin(6*Pi*s/1.3)); > for i from 1 to 51 do P[i, 1]:= evalf(Int(sqrt(1-((6*Pi/(1.3)*0.6e-1)*R(s))^2-(D(R))(s)^2), s = 0 .. 0.26e-1*i, 5, _Dexp)); end do; >for i from 1 to 51 do P[i, 2]:= y(0.26e-1*i); end do; >for i from to 51 do p[i, 3]:= z(0.26e-1*i) end do; I want paint the 3D-line by these points . what can I do? use plot3d(?) ?? Need help! Thank you!
>P := array(1 .. 51, 1 .. 3); >y := (-1)*0.6e-1*(arctan(10*s/1.3+(-10)*.3)/Pi+1/2)*cos(6*Pi*s/1.3); >for i from 1 to 51 do p[i, 2] = y(0.26e-1*i; od; / 1.227772386 1\ p[1, 2] = -0.06 |- ----------- + -| cos(0.1200000000 Pi) \ Pi 2/ / 1.203622493 1\ p[2, 2] = -0.06 |- ----------- + -| cos(0.2400000000 Pi) \ Pi 2/
> R := 0.6e-1*(arctan(10*s/1.3+(-10)*.3)/Pi+1/2) / /10 s \ \ |arctan|---- + (-10) 0.3| | | \1.3 / 1| s -> 0.06 |------------------------ + -| \ Pi 2/ > y := -R(s)*cos(6*Pi*s/1.3) > y(0.26); ???what can I do to get the result of y,when s=0.026 Need help from anyone! Thank you! liu
1 2 Page 1 of 2