Ilya Zakharevich on Mon, 27 Dec 2004 13:41:53 +0100

 [PATCH 2.1.6] 64-bit test ploth

```This patch fixes wrong format of the output:

--- pari-2.1.6/src/test/64/ploth	Sun Mar 12 09:27:46 2000
+++ pari-2.1.6/src/test/64/ploth-32	Sun Mar 12 09:27:46 2000
@@ -1,2 +1,3 @@
+   echo = 1 (on)
? default(realprecision,9)
realprecision = 9 significant digits
@@ -11,5 +12,5 @@
? plotlines(0,vector(5,k,50*k),vector(5,k,10*k*k))
? plotmove(0,243,583);plotcursor(0)
-% = [243, 583]
+[243, 583]
? plot(x=-5,5,sin(x))

@@ -38,30 +39,30 @@
-5                                                             5
? ploth(x=-5,5,sin(x))
-% = [-5.00000000, 5.00000000, -0.999996411, 0.999996410]
+[-5.00000000, 5.00000000, -0.999996411, 0.999996410]
? ploth(t=0,2*Pi,[sin(5*t),sin(7*t)])
-% = [0.E-92, 6.28318530, -0.999998764, 0.999998764]
+[0.E-92, 6.28318530, -0.999998764, 0.999998765]
? ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],1,100)
-% = [-0.999874128, 0.999874127, -0.999874128, 0.999874127]
+[-0.999874125, 0.999874127, -0.999874127, 0.999874128]
? ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],2,100)
***   multi-curves cannot be plot recursively.
? ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],3,100)
-% = [-1.00000000, 1.00000000, -1.00000000, 1.00000000]
+[-1.00000000, 0.999999999, -1.00000000, 0.999999999]
? plothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500))
-% = [0.E-92, 500.000000, 0.E-92, 500.000000]
+[0.E-92, 500.000000, 0.E-92, 500.000000]
? plothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500),1)
-% = [0.E-92, 500.000000, 0.E-92, 500.000000]
+[0.E-92, 500.000000, 0.E-92, 500.000000]
? plotpoints(0,225,334)
? plotpoints(0,vector(10,k,10*k),vector(10,k,5*k*k))
? psploth(x=-5,5,sin(x))
-% = [-5.00000000, 5.00000000, -0.999996411, 0.999996410]
+[-5.00000000, 5.00000000, -0.999996411, 0.999996410]
? psplothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500),1)
-% = [0.E-92, 500.000000, 0.E-92, 500.000000]
+[0.E-92, 500.000000, 0.E-92, 500.000000]
? plotmove(0,50,50);plotrbox(0,50,50)
? plotrline(0,150,100)
? plotcolor(0,4);
? plotcursor(0)
-% = [200, 150]
+[200, 150]
? plotrmove(0,5,5);plotcursor(0)
-% = [205, 155]
+[205, 155]
? plotrpoint(0,20,20)
? plotmove(0,100,100);plotstring(0,Pi)
@@ -70,5 +71,4 @@
? psdraw([0,10,10])
? print("Total time spent: ",gettime);
-Total time spent: 2196
+Total time spent: 1205
? \q
-Good bye!

```