[BACK]Return to ploth CVS log [TXT][DIR] Up to [local] / OpenXM_contrib / pari / src / test / in
File: [local] / OpenXM_contrib / pari / src / test / in / Attic / ploth (download)

Revision 1.1.1.1 (vendor branch), Sun Jan 9 17:35:35 2000 UTC (24 years, 5 months ago) by maekawa
Branch: PARI_GP
CVS Tags: maekawa-ipv6, VERSION_2_0_17_BETA, RELEASE_20000124, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, RELEASE_1_1_3, RELEASE_1_1_2
Changes since 1.1: +0 -0 lines 

Import PARI/GP 2.0.17 beta.

\e
default(realprecision,9)
t=plothsizes();
plotinit(0,t[1]-11,t[2]-11)
plotscale(0,0,1000,0,1000);
plotbox(0,500,500)
plotdraw([0,0,0])
psdraw([0,0,0])
plotcolor(0,2);
plotmove(0,0,900); plotlines(0,900,0)
plotlines(0,vector(5,k,50*k),vector(5,k,10*k*k))
plotmove(0,243,583); plotcursor(0)
plot(x=-5,5,sin(x))
ploth(x=-5,5,sin(x))
ploth(t=0,2*Pi,[sin(5*t),sin(7*t)])
ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],1,100)
ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],2,100)
ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],3,100)
plothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500))
plothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500),1)
plotpoints(0,225,334)
plotpoints(0,vector(10,k,10*k),vector(10,k,5*k*k))
psploth(x=-5,5,sin(x))
psplothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500),1)
plotmove(0,50,50);plotrbox(0,50,50)
plotrline(0,150,100)
plotcolor(0,4);
plotcursor(0)
plotrmove(0,5,5); plotcursor(0)
plotrpoint(0,20,20)
plotmove(0,100,100); plotstring(0,Pi)
plotmove(0,200,200); plotstring(0,"(0,0)")
plotdraw([0,10,10])
psdraw([0,10,10])
print("Total time spent: ",gettime);
\q