=================================================================== RCS file: /home/cvs/OpenXM_contrib/pari-2.2/src/test/64/Attic/ploth,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -u -p -r1.1.1.1 -r1.2 --- OpenXM_contrib/pari-2.2/src/test/64/Attic/ploth 2001/10/02 11:17:13 1.1.1.1 +++ OpenXM_contrib/pari-2.2/src/test/64/Attic/ploth 2002/09/11 07:27:12 1.2 @@ -1,5 +1,6 @@ + echo = 1 (on) ? default(realprecision,9) - realprecision = 9 significant digits + realprecision = 19 significant digits (9 digits displayed) ? t=plothsizes(); ? plotinit(0,t[1]-11,t[2]-11) ? plotscale(0,0,1000,0,1000); @@ -10,7 +11,7 @@ ? 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] +[243, 583] ? plot(x=-5,5,sin(x)) 0.9995545 x""x_''''''''''''''''''''''''''''''''''_x""x'''''''''''''''''''| @@ -37,38 +38,37 @@ -0.999555 |...................x__x".................................."x__x -5 5 ? ploth(x=-5,5,sin(x)) -% = [-5.00000000, 5.00000000, -0.999996411, 0.999996410] +[-4.99999999, 5.00000000, -0.999996410, 0.999996411] ? ploth(t=0,2*Pi,[sin(5*t),sin(7*t)]) -% = [0.E-92, 6.28318530, -0.999998764, 0.999998764] +[0.E-92, 6.28318531, -0.999998763, 0.999998764] ? ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],1,100) -% = [-0.999874128, 0.999874127, -0.999874128, 0.999874127] +[-0.999874127, 0.999874128, -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] +[-0.999999999, 1.00000000, -0.999999999, 1.00000000] ? 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] +[-4.99999999, 5.00000000, -0.999996410, 0.999996411] ? 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) ? plotmove(0,200,200);plotstring(0,"(0,0)") ? plotdraw([0,10,10]) ? psdraw([0,10,10]) ? print("Total time spent: ",gettime); -Total time spent: 2196 +Total time spent: 819 ? \q -Good bye!