Annotation of OpenXM_contrib/pari/src/test/in/ploth, Revision 1.1.1.1
1.1 maekawa 1: \e
2: default(realprecision,9)
3: t=plothsizes();
4: plotinit(0,t[1]-11,t[2]-11)
5: plotscale(0,0,1000,0,1000);
6: plotbox(0,500,500)
7: plotdraw([0,0,0])
8: psdraw([0,0,0])
9: plotcolor(0,2);
10: plotmove(0,0,900); plotlines(0,900,0)
11: plotlines(0,vector(5,k,50*k),vector(5,k,10*k*k))
12: plotmove(0,243,583); plotcursor(0)
13: plot(x=-5,5,sin(x))
14: ploth(x=-5,5,sin(x))
15: ploth(t=0,2*Pi,[sin(5*t),sin(7*t)])
16: ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],1,100)
17: ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],2,100)
18: ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],3,100)
19: plothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500))
20: plothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500),1)
21: plotpoints(0,225,334)
22: plotpoints(0,vector(10,k,10*k),vector(10,k,5*k*k))
23: psploth(x=-5,5,sin(x))
24: psplothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500),1)
25: plotmove(0,50,50);plotrbox(0,50,50)
26: plotrline(0,150,100)
27: plotcolor(0,4);
28: plotcursor(0)
29: plotrmove(0,5,5); plotcursor(0)
30: plotrpoint(0,20,20)
31: plotmove(0,100,100); plotstring(0,Pi)
32: plotmove(0,200,200); plotstring(0,"(0,0)")
33: plotdraw([0,10,10])
34: psdraw([0,10,10])
35: print("Total time spent: ",gettime);
36: \q
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>