OpenXM_contrib/pari-2.2/src/test/in/ploth - view

Return to ploth CVS log

Up to [local] / OpenXM_contrib / pari-2.2 / src / test / in

File: [local] / OpenXM_contrib / pari-2.2 / src / test / in / Attic / ploth (download)

Revision 1.1.1.1 (vendor branch), Tue Oct 2 11:17:14 2001 UTC (22 years, 9 months ago) by noro
Branch: NORO
CVS Tags: RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, PARI_2_2
Changes since 1.1: +0 -0 lines

Imported pari-2.2.1(alpha).

\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