?    echo = 1 (on)
? default(realprecision,9)
   realprecision = 9 significant digits
? plotinit(0,500,500)
? plotbox(0,500,500)
? plotdraw([0,0,0])
? psdraw([0,0,0])
? plotcolor(0,2);
? 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))

      0.999 xxxx---------------------------------xxxx------------------|
            |   x                               x    xx                |
            |    x                             x       x               |
            |     x                           x                        |
            |      x                         x          x              |
            |       x                                    x             |
            |                               x                          |
            |        x                     x              x            |
            |         x                                    x           |
            |                             x                            |
            -----------x------------------------------------x-----------
            |                            x                             |
            |           x                                    x         |
            |            x              x                     x        |
            |                          x                               |
            |             x                                    x       |
            |              x          x                         x      |
            |                        x                           x     |
            |               x       x                             x    |
            |                xx    x                               x   |
     -0.999 |------------------xxxx---------------------------------xxxx
             -5.000                                                   5.00
0

? ploth(x=-5,5,sin(x))
% = [-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.999998765]
? ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],1,100)
% = [-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, 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]
? 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]
? 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]
? 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]
? plotmove(0,50,50);plotrbox(0,50,50)
? plotrline(0,150,100)
? plotcolor(0,4);
? plotcursor(0)
% = [200, 150]
? plotrmove(0,5,5);plotcursor(0)
% = [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: 1174
? \q
Good bye!
