Annotation of OpenXM_contrib/pari/src/test/64/ploth, Revision 1.1.1.1
1.1 maekawa 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:
48: ? ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],3,100)
49: % = [-1.00000000, 1.00000000, -1.00000000, 1.00000000]
50: ? plothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500))
51: % = [0.E-92, 500.000000, 0.E-92, 500.000000]
52: ? plothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500),1)
53: % = [0.E-92, 500.000000, 0.E-92, 500.000000]
54: ? plotpoints(0,225,334)
55: ? plotpoints(0,vector(10,k,10*k),vector(10,k,5*k*k))
56: ? psploth(x=-5,5,sin(x))
57: % = [-5.00000000, 5.00000000, -0.999996411, 0.999996410]
58: ? psplothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500),1)
59: % = [0.E-92, 500.000000, 0.E-92, 500.000000]
60: ? plotmove(0,50,50);plotrbox(0,50,50)
61: ? plotrline(0,150,100)
62: ? plotcolor(0,4);
63: ? plotcursor(0)
64: % = [200, 150]
65: ? plotrmove(0,5,5);plotcursor(0)
66: % = [205, 155]
67: ? plotrpoint(0,20,20)
68: ? plotmove(0,100,100);plotstring(0,Pi)
69: ? plotmove(0,200,200);plotstring(0,"(0,0)")
70: ? plotdraw([0,10,10])
71: ? psdraw([0,10,10])
72: ? print("Total time spent: ",gettime);
73: Total time spent: 2196
74: ? \q
75: Good bye!
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>