?display

gkokovidis — Sun, 29 Aug 2010 22:42:30 Z

You can use "display", which is part of the plots package to combine more than one plot (it can be a mix of plot structures, like spacecurve and plot3d for example), or you can combine the curves you wish to plot in one statement. See example below. The first part is right out of the help page for the "spacecurve" command.

>	restart:with(plots):

>	spacecurve({[sin(t),0,cos(t),t=0..2*Pi],[cos(t)+1,sin(t),0,numpoints=10]},t=-Pi..Pi,axes=FRAME);

>	plot1:=spacecurve([sin(t),0,cos(t),t=0..2*Pi],t=-Pi..Pi):

>	plot2:=spacecurve([cos(t)+1,sin(t),0,numpoints=10],t=-Pi..Pi):

>	display(plot1,plot2,axes=FRAME);

>	spacecurve({[2t+3,5t-2,-t+1],[-2t+7,t+8,2t-1]},t=-4..4,axes=Normal,orientation=[45, 56,0],thickness=3);

>	eq1:=2t+3=-2s+7;

(1)

>	eq2:=5*t-2=s+8;

(2)

>	eq3:=-t+1=2*s-1;

(3)

>	solve({eq1,eq2},{t,s});

(4)

>	eval(eq1,{t=2,s=0});

(5)

>	eval(eq2,{t=2,s=0});

(6)

>	eval(eq3,{t=2,s=0});

(7)

>	ss:=spacecurve({[2t+3,5t-2,-t+1],[-2t+7,t+8,2t-1]},t=-4..4,axes=Normal,orientation=[45, 56,0],thickness=3):

>	pp:=pointplot3d([7,8,-1],symbol=solidcircle,symbolsize=30,color=red):

>	display(ss,pp);

Download IntersectingLinesSpa.mws

Thank you very much!

emoh1 — Mon, 30 Aug 2010 17:53:54 Z

Thank you very much!

MaplePrimes - answers and comments on Question, How do I plot two intersecting lines in space with normal axes?

?display

Thank you very much!