Annotation of OpenXM_contrib/pari-2.2/src/test/64/ploth, Revision 1.1.1.1
1.1 noro 1: ? default(realprecision,9)
2: realprecision = 9 significant digits
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: % = [243, 583]
14: ? plot(x=-5,5,sin(x))
15:
16: 0.9995545 x""x_''''''''''''''''''''''''''''''''''_x""x'''''''''''''''''''|
17: | x _ "_ |
18: | x _ _ |
19: | x _ |
20: | _ " |
21: | " x |
22: | x _ |
23: | " |
24: | " x _ |
25: | _ |
26: | " x |
27: ````````````x``````````````````_````````````````````````````````
28: | " |
29: | " x _ |
30: | _ |
31: | " x |
32: | x _ |
33: | _ " |
34: | " x |
35: | " " x |
36: | "_ " x |
37: -0.999555 |...................x__x".................................."x__x
38: -5 5
39: ? ploth(x=-5,5,sin(x))
40: % = [-5.00000000, 5.00000000, -0.999996411, 0.999996410]
41: ? ploth(t=0,2*Pi,[sin(5*t),sin(7*t)])
42: % = [0.E-92, 6.28318530, -0.999998764, 0.999998764]
43: ? ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],1,100)
44: % = [-0.999874128, 0.999874127, -0.999874128, 0.999874127]
45: ? ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],2,100)
46: *** multi-curves cannot be plot recursively.
47: ? ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],3,100)
48: % = [-1.00000000, 1.00000000, -1.00000000, 1.00000000]
49: ? plothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500))
50: % = [0.E-92, 500.000000, 0.E-92, 500.000000]
51: ? plothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500),1)
52: % = [0.E-92, 500.000000, 0.E-92, 500.000000]
53: ? plotpoints(0,225,334)
54: ? plotpoints(0,vector(10,k,10*k),vector(10,k,5*k*k))
55: ? psploth(x=-5,5,sin(x))
56: % = [-5.00000000, 5.00000000, -0.999996411, 0.999996410]
57: ? psplothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500),1)
58: % = [0.E-92, 500.000000, 0.E-92, 500.000000]
59: ? plotmove(0,50,50);plotrbox(0,50,50)
60: ? plotrline(0,150,100)
61: ? plotcolor(0,4);
62: ? plotcursor(0)
63: % = [200, 150]
64: ? plotrmove(0,5,5);plotcursor(0)
65: % = [205, 155]
66: ? plotrpoint(0,20,20)
67: ? plotmove(0,100,100);plotstring(0,Pi)
68: ? plotmove(0,200,200);plotstring(0,"(0,0)")
69: ? plotdraw([0,10,10])
70: ? psdraw([0,10,10])
71: ? print("Total time spent: ",gettime);
72: Total time spent: 2196
73: ? \q
74: Good bye!
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>