1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
echo = 1
? plotinit(0,500,500)
? plotmove(0,0,0);plotbox(0,500,500)
? plotmove(0,200,150)
? plotcursor(0)
[200, 150]
? write("pari.ps",plotexport("ps",0))
? plotinit(1,700,700)
? plotkill(1)
? 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)
[243, 583]
? plot(x=-5,5,sin(x),-1,1)
1 x""x_''''''''''''''''''''''''''''''''''_x""x'''''''''''''''''''|
| x _ "_ |
| x _ _ |
| x _ |
| _ " |
| " x |
| x _ |
| " |
| " x _ |
| _ |
| " x |
````````````x``````````````````_````````````````````````````````
| " |
| " x _ |
| _ |
| " x |
| x _ |
| _ " |
| " x |
| " " x |
| "_ " x |
-1 |...................x__x".................................."x__x
-5 5
? plotpoints(0,225,334)
? plotpoints(0,vector(10,k,10*k),vector(10,k,5*k*k))
? write("pari.ps",plotexport("ps",[0,20,20]))
? write("pari.ps",plothexport("ps",x=-5,5,sin(x)))
? write("pari.ps",plothexport("ps",t=0,2*Pi,[sin(5*t),sin(7*t)],1,100))
? write("pari.ps",plothrawexport("ps",vector(100,k,k),vector(100,k,k*k/100)))
? plotmove(0,50,50);plotrbox(0,50,50)
? plotrline(0,200,150)
? plotcursor(0)
[250, 200]
? plotrmove(0,5,5);plotcursor(0)
[255, 205]
? plotrpoint(0,20,20)
? plotinit(3,600,600);plotscale(3,-7,7,-2,2);plotcursor(3)
[-7, 2]
? plotmove(0,100,100);plotstring(0,Pi)
? plotmove(0,200,200);plotstring(0,"(0,0)")
? write("pari.ps",plotexport("ps",[0,10,10]))
? if(getheap()!=HEAP,getheap())
? print("Total time spent: ",gettime);
Total time spent: 5