{VERSION 1 1 "MS-Windows" "1.0"}{GLOBALS 3 2}{FONT 0 "Arial" "Ari
al" "Helvetica-Bold" 8 14 0 "Helvetica-Bold" 14{COLOR "800080"}}
{FONT 1 "MS Serif" "MS Serif" "Times-Roman" 4 14 64 "Times-Roman"
 14{COLOR "000000"}}{FONT 2 "Courier New" "Courier New" "Courier"
 4 14 192 "Courier" 14{COLOR "008080"}}{SCP_R 0 0 14{SCP_R 1 0 1
{INP_R 3 0 "> "{TEXT 0 12 "with(plots);"}}}{SCP_R 5 0 1{INP_R 7 0
 "> "{TEXT 0 0 ""}}}{SCP_R 9 0 1{INP_R 11 0 "> "{TEXT 0 29 "X:=1/
3*t^3+ t;   Y:=3 *t^3-t;"}}}{SCP_R 13 0 1{INP_R 15 0 "> "{TEXT 0 
31 "DX:=diff(X,t);   DY:=diff(Y,t);"}}}{SCP_R 17 0 1{INP_R 19 0 "
> "{TEXT 0 15 "solve(DX=DY,t);"}}}{SCP_R 21 0 1{INP_R 23 0 "> "
{TEXT 0 40 "tanc:=(x-subs(t=1/2,X)) + subs(t=1/2,Y);"}}}{SCP_R 25
 0 1{INP_R 27 0 "> "{TEXT 0 70 "p1:=plot([X, Y,t=0..2], x=0..1.5,
 y=-.8..1, thickness=2, color=black):"}}}{SCP_R 29 0 1{INP_R 31 0
 "> "{TEXT 0 73 "p2:=plot(tanc,             x=0..1.5, y=-.8..1, t
hickness=2, color=black):"}}}{SCP_R 33 0 1{INP_R 35 0 "> "{TEXT 0
 63 "display([p1,p2],xtickmarks=0,ytickmarks=0,scaling=constraine
d);"}}}{SCP_R 37 0 1{INP_R 39 0 "> "{TEXT 0 0 ""}}}{SCP_R 41 0 2
{INP_R 43 0 "> "{TEXT 0 73 "plot([t+t^3, t-t^3, t=0..1],view=[0..
2,0.. .4],xtickmarks=3,ytickmarks=2,"}}{INP_R 46 0 "> "{TEXT 0 50
 "scaling=constrained,axesfont=[HELVETICA,BOLD,18]);"}}}{SCP_R 48
 0 1{INP_R 50 0 "> "{TEXT 0 0 ""}}}{SCP_R 52 0 1{INP_R 54 0 "> "
{TEXT 0 13 "?plot,options"}}}{SCP_R 56 0 1{INP_R 58 0 "> "{TEXT 0
 0 ""}}}}{END}