11-15-2014, 06:46 PM
Does anyone know is there a way to plot a curve in 3-space with the HP Prime? For example, plot the circular helix defined by the parameterized vector r(t)=[a*sin(t), a*cos(t), c*t].
#cas
PPLOT(a,c,t0,tn,dt):=
BEGIN
local n:=1,l;
r(t):=[a*cos(t),a*sin(t),c*t];
ptdef:=MAKELIST(r(X),X,t0,tn,dt);
n:=size(ptdef)-1;
ldef:=MAKELIST({X,X+1},X,1,n);
l:=LINE_P(ptdef,ldef,
{
[[1,0,0,0],[0,1,0,0],[0,0,1,15]],
"N",
{-160,-120,16*15},
{-a,a,-a,a,c*t0,c*tn}
});
freeze;
return 0;
END;
#end